private void DelOutDateRec()
{
DateTime Start = DateTime.Now.AddDays(1 - TGlobalVar.AlarmRecDelDays);
string StartDt = Start.ToString("yyyy-MM-dd") + " 00:00:00";
string SqlCmdStr = "Delete From AlarmRecTbl Where Convert(varchar(24),信息时间) < '" + StartDt + "'";
TSqlDbClass.ExecuteNonQuerySql(TGlobalVar.sSqlConn, SqlCmdStr);
}
private void DelOutDateRec()
{
string StartDt = DateTime.Now.AddDays(1 - TGlobalVar.AlarmRecDelDays).ToShortDateString() + " 00:00:00";
string SqlCmdStr = "Delete From TestRecTbl Where Convert(DateTime,测量时间) < '" + Convert.ToDateTime(StartDt) + "'";
TSqlDbClass.ExecuteNonQuerySql(TGlobalVar.sSqlConn, SqlCmdStr);
}
private void buttOk_Click(object sender, EventArgs e)
{
try
{
if (txtXlsFileName.Text != "" && txtXlsForm.Text.Trim() != "" && cmbOpcGroupName.Text != "")
{
int iStartRow = (int)neStartRow.Value, iEndRow = (int)neEndRow.Value;
int iStartCol = (int)neStartCol.Value, iEndCol = (int)neEndCol.Value;
ExcelAppClass MyExcelApp = new ExcelAppClass();
MyExcelApp.OpenExistFile(strXlsFileName);
MyExcelApp.App.Visible = false;
//int usedRows = MyExcelApp.GetSheet(txtXlsForm.Text).UsedRange.Rows.Count;
//int usedCols = MyExcelApp.GetSheet(txtXlsForm.Text).UsedRange.Columns.Count;
//******************************************检查数据表是否存在，不存在创建**************************************
string sTableName = "OpcItemTbl_" + cmbOpcGroupName.Text;
string[] sFieldName = { "ItemName", "PlcConn", "dBlock", "ItemType", "ItemAddr", "ItemNum", "InitVal", "Comment" };
string[] sDataType = { "Varchar", "Varchar", "Varchar", "Varchar", "Varchar", "Varchar", "Varchar", "Varchar" };
int[] iMaxLen = { 24, 24, 16, 24, 48, 12, 16, 32 };
string[] sAllowNull = { "Not Null", "Not Null", "Not Null", "Not Null", "Not Null", "Not Null", "Not Null", "Not Null" };
if (TSqlDbClass.CreateTableByDateTime(TGlobalVar.sSqlConn, sTableName, sFieldName, sDataType, iMaxLen, sAllowNull) == false)
{
MessageBox.Show("数据表创建失败,请检查！", "警告");
return;
}
//**************************************************************************************************************
DateTime dtColTime = DateTime.Now;
List <List <string> > strRecBufPtr = new List <List <string> >();
if (buttKeepAdd.Checked == true)
{
System.Data.DataTable DataRecTbl = TSqlDbClass.RetnTblBySqlCmd(TGlobalVar.sSqlConn, "Select * From " + sTableName);
if (DataRecTbl != null && DataRecTbl.Rows.Count >= 1)
{
for (int k = 0; k < DataRecTbl.Rows.Count; k++)
{
List <string> strRecBuf = new List <string>();
strRecBuf.Add(dtColTime.ToString("yyyy-mm-dd hh:mm:ss:fff"));
for (int j = 0; j < sFieldName.Length; j++)
{
string strFieldVal = DataRecTbl.Rows[k][sFieldName[j]].ToString();
strRecBuf.Add(strFieldVal);
}
strRecBufPtr.Add(strRecBuf);
dtColTime = dtColTime.AddMilliseconds(1);
}
}
}
//*****************************************************************************************************
TSqlDbClass.ExecuteNonQuerySql(TGlobalVar.sSqlConn, "Delete From " + sTableName);
for (int i = 0; i <= iEndRow - iStartRow; i++)
{
List <string> strRecBuf = new List <string>();
strRecBuf.Add(dtColTime.ToString("yyyy-mm-dd hh:mm:ss:fff"));
for (int j = 0; j <= iEndCol - iStartCol; j++)
{
Range TmpRng = (Range)MyExcelApp.GetSheet(txtXlsForm.Text).Cells[i + iStartRow, j + iStartCol];
strRecBuf.Add(Convert.ToString(TmpRng.Value2));
}
strRecBufPtr.Add(strRecBuf);
dtColTime = dtColTime.AddMilliseconds(1);
}
List <string> strFieldList = new List <string>();
strFieldList.Add("ID_DateTime");
for (int k = 0; k < sFieldName.Length; k++)
{
strFieldList.Add(sFieldName[k]);
}
InsertRecProc(sTableName, strFieldList, strRecBufPtr);
MyExcelApp.Close();
}
else
{
MessageBox.Show("Opc组名或Excel表单名没填写, 请检查！", "提示");
}
}
catch (Exception ex)
{
throw ex;
}
}