组态王数据查询控件的应用实用

C)日期控件语句 long year1; long month1; long day1; year1=date1.Year; month1=date1.Month; day1=date1.Day; string 查询开始时间;
if(month1<10&&day1<10) { 查询开始时间=StrFromInt(year1, 10)+"-"+"0"+StrFromInt(month1, 10)+"-"+"0"+StrFromInt(day1, 10); } if(month1<10&&day1>=10) {
GetDate(\\本站点\huhu1,\\本站点\year,\\本站点\month,\\本站点\day);
if(\\本站点\month<10) \\本站点\months="0"+StrFromInt( \\本站点\month, 10); else \\本站点\months=StrFromInt( \\本站点\month, 10); if(\\本站点\day<10) \\本站点\days="0"+StrFromInt( \\本站点\day, 10); else \\本站点\days=StrFromInt( \\本站点\day, 10);
查询开始时间=StrFromInt(year1, 10)+"-"+"0"+StrFromInt(month1, 10)+"-"+StrFromInt(day1, 10); } if(month1>=10&&day1<10) { 查询开始时间=StrFromInt(year1, 10)+"-"+StrFromInt(month1, 10)+"-"+"0"+StrFromInt(day1, 10); } if(month1>=10&&day1>=10) { 查询开始时间=StrFromInt(year1, 10)+"-"+StrFromInt(month1, 10)+"-"+StrFromInt(day1, 10); }
{ day=31; date1= StrFromInt( year, 10 ); date1=date1+"-"; date1 = date1 + StrFromInt( month, 10 ); date1 = date1 + "-" + StrFromInt( day, 10); whereexpr="日期='"+date1+"'"; SQLDelete( DeviceID, "KingTable", whereexpr); } }
组态王数据查询控件 KVADODBGrid 的应用
控件说明 数据查询控件名称：KV 日期控件名称：Date1
演示运行画面
KV 控件属性
Hale Waihona Puke 1、日期控件代码： 日期格式不同，选择语言也不同的
A)日期控件语言 string a; string a1; string a2; a=StrFromReal( Date3.Year, 0, "f" ); a1=StrFromReal( Date3.Month, 0, "f" ); a2=StrFromReal( Date3.Day, 0, "f" ); if (StrToReal(a1)<10) { a1="0"+a1; } if (StrToReal(a2)<10) { a2="0"+a2; } \\本站点\查询日期 1=a+"-"+a1+"-"+a2
string str;
\\本站点\huhu0=HTConvertTime(1970,1,11,0,0,0); \\本站点\huhu1=HTConvertTime(\\本站点\$年,\\本站点\$月,\\本站点\$日,\\本站点\$时,\\本站点\$分,\\ 本站点\$秒)-HTConvertTime(1970,1,11,0,0,0);
说明：xhmeiqi2 为 ODBC 源名称 Kingtable 为数据表格名称 Meiqi 为记录体名称
十一、数据库设计表 注意日期 1 格式为日期/时间（datetime）
十二、数据库连接说明 1、 建立 ACCESS 数据库文件 2、 设置 ODBC 源（xhmeiqi） 3、 组态王应用程序写连接和断开语句 4、 组态王建立表格模板和记录体 5、 组态王开始运行，在数据库文件根据表格模板建立表格 6、 运行时就可以保存数据到数据库 7、 使用历史控件是建立【日期 1】变量，并在数据库中更改为日期时间格式。 8、 使用 SQL 数据库，要在 SQL 先建立数据库文件，然后导入 ACCESS 表格，接着建立数据源
if (MenuIndex==1 && ChildMenuIndex==0) ShowPicture("数据查询 2"); ClosePicture("数据查询");
9、【删除 10 天前】数据代码 SQLConnect( DeviceID, "dsn=xhmeiqi;uid=;pwd=1236");
B)日期控件语句 string a; string a1; string a2; a=StrFromReal( Date3.Year, 0, "f" ); a1=StrFromReal( Date3.Month, 0, "f" ); a2=StrFromReal( Date3.Day, 0, "f" ); \\本站点\查询日期 1=a+"-"+a1+"-"+a2
\\本站点\开始时间=查询开始时间;
2、【数据查询】代码（按日期查询，按日期 1 排序） string whe; whe="日期='"+\\本站点\查询日期 1+"'"; KV.Where=whe+"order by 日期 1 asc"; KV.FetchData(); KV.RefreshData(); KV.FetchEnd();
6、【查询保存】代码 STRING bstrCSV="D:\兴华煤气网络\数据查询\数据查询"+查询日期 1+".csv"; KV.SaveToCSV(bstrCSV);
6、【查询打印】代码 KV.Print();
8、【压力查询】切换菜单代码 if (MenuIndex==0 && ChildMenuIndex==0) ShowPicture("数据查询 2"); ClosePicture("数据查询");
3、【清除表格】按钮代码 KV.RemoveAllData();
4、【全部删除】代码 SQLClearTable(DeviceID, "KingTable");
5、【删除 1 月前】数据代码 SQLConnect( DeviceID, "dsn=xhmeiqi;uid=;pwd="); long month=\\本站点\$月-1; long year=\\本站点\$年; long day=\\本站点\$日; string date1; if(month==0) {month=12; year=\\本站点\$年-1;} date1= StrFromInt( year, 10 ); date1=date1+"-"; date1 = date1 + StrFromInt( month, 10 ); date1 = date1 + "-" + StrFromInt( day, 10); string whereexpr="日期='"+date1+"'"; SQLDelete( DeviceID, "KingTable", whereexpr); if(\\本站点\$月==4||\\本站点\$月==6||\\本站点\$月==9||\\本站点\$月==11) { if(\\本站点\$日==30)
十、应用程序命令语言 启动：SQLConnect(DeviceID,"dsn=xhmeiqi2; ;UID=; PWD="); 运行：\\本站点\日期=$日期+" "+ $时间; \\本站点\五秒=Trunc(\\本站点\$秒/1); 停止：SQLDisconnect( DeviceID); 保存数据语言：SQLInsert( DeviceID, "KingTable", "meiqi" );
\\本站点\sc_day=StrFromInt( \\本站点\year, 10)+"/"+ \\本站点\months+"/"+\\本站点\days;
str="日期='"+\\本站点\sc_day+"'"; SQLDelete( DeviceID, "KingTable",str);