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

《组态王数据查询控件的应用实用.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、组态王数据查询控件KVADODBGrid的应用演示运行画面控件说明数据查询控件名称：KV日期控件名称：Date1KV控件属性1、日期控件代码：日期格式不同，选择语言也不同的A)日期控件语言stringa;stringa1;stringa2;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;

2、}\本站点查询日期1=a+"-"+a1+"-"+a2B)日期控件语句stringa;stringa1;stringa2;a=StrFromReal(Date3.Year,0,"f");a1=StrFromReal(Date3.Month,0,"f");a2=StrFromReal(Date3.Day,0,"f");\本站点查询日期1=a+"-"+a1+"-"+a2C)日期控件语句longyear1;longmonth1;longday1;year1=date1.Year;month1=date1.Month;day1=date1.Day;strin

3、g查询开始时间;if(month1<10&&day1<10){查询开始时间=StrFromInt(year1,10)+"-"+"0"+StrFromInt(month1,10)+"-"+"0"+StrFromInt(day1,10);}if(month1<10&&day1>=10){查询开始时间=StrFromInt(year1,10)+"-"+"0"+StrFromInt(month1,10)+"-"+StrFromInt(day1,10);}if(month1>=10&&day1<10){查询开始时间=StrFromInt(year1,10)+"-"+

4、StrFromInt(month1,10)+"-"+"0"+StrFromInt(day1,10);}if(month1>=10&&day1>=10){查询开始时间=StrFromInt(year1,10)+"-"+StrFromInt(month1,10)+"-"+StrFromInt(day1,10);}\本站点开始时间=查询开始时间;2、【数据查询】代码（按日期查询，按日期1排序）stringwhe;whe="日期='"+\本站点查询日期1+"'";KV.Where=whe+"orderby日期1asc";KV.FetchData();KV.

5、RefreshData();KV.FetchEnd();3、【清除表格】按钮代码KV.RemoveAllData();4、【全部删除】代码SQLClearTable(DeviceID,"KingTable");5、【删除1月前】数据代码SQLConnect(DeviceID,"dsn=xhmeiqi;uid=;pwd=");longmonth=\本站点$月-1;longyear=\本站点$年;longday=\本站点$日;stringdate1;if(month==0){month=12;year=\本站点$年-1;}date1=StrFr

6、omInt(year,10);date1=date1+"-";date1=date1+StrFromInt(month,10);date1=date1+"-"+StrFromInt(day,10);stringwhereexpr="日期='"+date1+"'";SQLDelete(DeviceID,"KingTable",whereexpr);if(\本站点$月==4

7、

8、\本站点$月==6

9、

10、\本站点$月==9

11、

12、\本站点$月==11){if(\本站点$日==30){day=31;date1=StrFromInt(year,10);d

13、ate1=date1+"-";date1=date1+StrFromInt(month,10);date1=date1+"-"+StrFromInt(day,10);whereexpr="日期='"+date1+"'";SQLDelete(DeviceID,"KingTable",whereexpr);}}6、【查询保存】代码STRINGbstrCSV="D:兴华煤气网络数据查询数据查询"+查询日期1+".csv";KV.SaveToCSV(bstrCSV);6、【查询打印】代码KV.Print();8、【压力查询】切换菜单代码if(MenuInde

14、x==0&&ChildMenuIndex==0)ShowPictu