组态王数据统计与查询的制作过程

1、数据统计与查询的制作过程利用Microsoft Access数据库和组态王的KVADODBGrid控件实现以暖气、冷气、供热水系统为例（50, 5P）软件版本：Microsoft Access 2010组态王6.53一、建立Microsoft Access数据库文件1、在我的电脑 F盘中建立一个 Microsoft Access数据库，命名为：5O AND 5P Database.accdb2、双击打开“ 5O AND 5P Database.accdb ”文件，选择“创建” 表” “表 1”； 右击“表1”，选择“重命名”，将“表1”命名为“数据采集”右击“数据采集”， 选择“设计视图”，将

2、相关的数据名写入字段，并选择相应的数据类型，完成后保 存，退出；如图01字段名称数据类型字段名称数据类型自动编号文*文本数字数字数字图01名称自动编号文*文本数字数字数字图01名称101Ci+ cd.t_dsp600 i5fiASE FilesDL104Exi：el FilesMS Access Hat abase 我逸据库驱动程序Mi cru-oftMiMicros oftMi crus oftMicrosoftMicroE uftFili crosoftMicrosQftDrivermdb) Driver (*. mdb) Drivermdb) dTASE Driver C*. d Dri

3、ver (*, mdb)Escel Driver (*. xls, *. k Access Driver mdb,冰.Access Driver (*. mdb)ID采集日期采集时间生产车间暖气供热折蒸汽总量 办公楼暖气供热折蒸汽总量 操能回收折蒸汽总量 生活供水供姓折茎汽总量 操作员、建立ODBC数据源选择windows开始”菜单“控制面板”“管理工具”双击“数据源（ODBC）”， 弹出“OBDC数据源管理器”（如图02）ODBC教据源管理卷用户D朝系统DSN交件USS驱动程序跟踪 连接地关于用户数据源可）:lUU图02“系统DSN” “添加”；（如图03）f l ODBC兼据海管理舞用户D

4、SN系统皿文件DSN驱动程序跟踪 连接池关于系统数据源：添加(1).添加(1).505FMicruutt Access Hri ver (:+:. miib,. ：t：.:iccdb)505F朋除配置（），.图03弹出“创建新数据源” “Microsoft Access Driver(*.mdb, *.accdb)” “完成”；（如图04）弹出“ODBC Microsoft Access安装” 数据源名为“5O5P” “选择”，（如图05）弹出“选择数据库”驱动器“F盘”数据库名“5O AND 5P Database.accdb” “确定”。（如图06）三、建立组态王记录体打开组态王软件，弹出

5、“工程管理器”，选择相应的工程名称，双击打开，弹出“工程 浏览器”，选择工程浏览器左侧大纲项“SQL访问管理器文件记录体”，在工程浏览器右侧 用鼠标左键双击“新建”图标；记录体名为“Bind”；输入字段名称，点击“？ ”，选择对应的变量，然后点击“增加字段”，（注：字段顺序 需与数据库，表“数据采集”，字段顺序相同）如图07所示。四、建立组态王命令语言打开组态王软件，弹出“工程管理器”，选择相应的工程名称，双击打开，弹出“工 程浏览器”。1、选择工程浏览器左侧大纲项“数据词典”，在数据词典里定义新变量，变量名称：DeviceID，变量类型：内存整型（如图08）2、选择工程浏览器左侧大纲项“命令

6、语言应用程序命令语言”，在工程浏览器右侧 用鼠标左键双击“新建”图标；选择“启动时”选项，在空白处输入以下脚本，然后“确认”；（如图09）SQLConnect(DeviceID,dsn=5O5P;uid=;pwd=);enablenavigate(0);应用程序命令语言文件匹编辑田盖港醪X选|#4吐|字启动时|运行时j停止时|SQLConnectfDevicelD, dsn=5O5P;uid=;pw（i=）;图09enabknavigatefO；图09选择“停止时”选项，在空白处输入以下脚本，然后“确认”；（如图10） SQLDisconnect（DeviceID）;应用程序命令语言文件编辑国

7、X昭显X选I料塑|宇 启动时j运行时 停止时SQLDisconnect（DevicelD）；图103、选择工程浏览器左侧大纲项“命令语言数据改变命令语言”，在工程浏览器右侧 用鼠标左键双击“新建”图标；数据改变命令语言触发的条件为连接的变量或变量的域的值发生了变化。点击“？ ”，选择变量，在空白处输入以下脚本，然后“确认”；（如图11）敏据改变命令语言文件编制明*幽曜X选|#4血|字变量域:本站点邱秒 |SQLInsert（ DevicelD,，数据采集七Bind J；图11五、创建KVADODBGrid控件选择工程浏览器左侧大纲项“画面”，在工程浏览器右侧用鼠标左键双击“新建”图标; 画面名

8、称为“报表”单击工具箱中的“插入通用控件”按钮，或选择菜单命令“编辑插入通用控件”，则弹 出“插入控件”对话框。在“插入控件”对话框内选择KVADODBGrid Class。用鼠标左键单 击“确定”按钮，关闭对话框。（如图12）插入控件JC; Frogram Fi 1 eskizigzi ewKYADODEGr i d. DLLJ色LpVibp住，巾f：理？巨r Class HC LTip-jlL 洒认匚 +. L Y- QV Cl 5 HCtrl 01. ieelfHCtri UtiiectHCtrl ULject HtfTilUlgHelper Class IcorLlI Cl assID

9、rojiIns七:HEtliReCtl Ubj e ct Kini ew Fii CurLtrol lziriri ew. Sup erGr i !. CuTitrul. ki ng3ri 础.tqri p sr口. curit2_oL IlOoFI ay er C o rLtro 1ISEUtiT.-t：i-Selncti on Cl ：em I；：uG。:3D otiK C cnti- cl 即.HCurve Ctrl!WAEODBGrid ClassKvAIitiK i rLEv C ontr ol JPiTieiliiiLOcii Cijntrol kvi m age o c: C u

10、ntr ul KvLqniR&vulve r C o ntrijl KvT cji i pCl i eiLtU ex Conti-ol Lanpi旦笔旦匚叮 nf i gnr at i cirtC ontrul Li ztTail clas e LieHazterCtrl Class Li eJl ay erC t rl C1:az z Lffkc tLci eS elect or Class取消图取消图12鼠标变成十字形。然后在画面上适当位置按下鼠标左键并进行拖动，画一个矩形框，放开鼠标左键，KVADODBGrid控件就放到画面上了。可以任意移动、缩放控件，如同处理一个单元图素一样。（如图1

11、3）选择控件，单击右键，在弹出的菜单中选择“控件属性”。弹出控件属性对话框。选择数据源，点击“浏览”，弹出“数据连接属性”，在“提供程序”选项中，选择“MicrosoftOLE DB Provider for ODBC Drivers”，然后“下一步”（如图 14）定义“连接”属性，选择使用数据源名称”，在下拉菜单中选择“5O5P”，然后“测试连接”，确定。（如图15）返回“控件属性”对话框，选择表名称“数据采集”，并将左边“有效字段”中的字段 名称添加到右边“按此顺序显示”中；（如图16）（注：字段顺序需与数据库，表“数据采集”，字段顺序相同）六、建立查询时间段的数据1、创建日历控件（Mic

12、rosoft Date and Time Picker control）在工具箱上单击“插入通用控件”或选择菜单“编辑插入通用控件”命令。会弹出如图17所示的“插入控件”对话框。HS tri iLsIrLi-utE rL=ibl 巨 ClassnSyirib-ji HS tri iLsIrLi-utE rL=ibl 巨 ClassnSyirib-ji ClassLAIim ell ate ClassMacromedi a Flash Factory ObjectM匚hartill ControlH e di aLi s t Cunt i_jlMicrosoft ADO D=it：x Contr

13、-：.l 6.0EF4) (OLEIB)M i cro -ijft A自色nt Control . 0M i cr0 Edit Arii m aii on Com七=口1 E. LI I.SP4.)M i cro e ij ft BarC o de 控件 14. 0M i cru Eott Char t Control E. U (SP4 ) l,ULEDBJM i cro soft CofTim on II i al CorLtrul. ver i on 6. LlM i cr 0 E-：it t Ilat e =irLil Tirrie Pi. c ker C ontr ol &. IJ

14、L,S P=1)MieroEcftMicro soft M i cro e :t Hicrosijft M i cru E：it Micro soft M i cro e :t Hicro- ijft M i cru E：it Minrurift M i cru e : 11 HicrosijftEm七巨etl，！ It&rii FiekwvFlat Scrollbajr Control 6. 0(SF4)TijITi E Tur m 5Porni sTorfri 5 To rm e Turfi -Porm s Torfri -FmF e pLirn To rm e ToEfri g2. 02

15、. 02. 02. 02. 0. 02. 0. 02. 0. 02. 02. 0Chtji2kE；i：i：-r CcimtnjBuxComni =miU!ut t onFr；inieImaEeLabelLl S tE QXMijI tiFigeUp 11 -jriE u11 on Snr ollB!r Sp i TiJiut t cm TabS trip插入控件C； YfIRD0WSsystem32.msgomct2. ocx取消取消I图17在对话框的列表中找到 “Microsoft Date and Time Picker control” 项， 选中它，然后单击“确定”按钮，或直接鼠标双击

16、该项。“插入控件”对话框自动 关闭，按照本节开始所描述的方法在画面上创建控件。创建后的控件如图18所示。JtlT 祖JtfriU W(ll 声用tu Lflm E1E 用而地剧勤rmB耍Time00:00福品I取消 | 应用也）| 幕助 |的图192、日历控件属性选中该控件，右击选择“控件属性”，弹出对话框。（如图19）M inDate:MawDate:Format:Time00:00福品I取消 | 应用也）| 幕助 |的图192、日历控件属性选中该控件，右击选择“控件属性”，弹出对话框。（如图19）M inDate:MawDate:Format:MousePointer:LEDropMode

17、1/ Enabled-CheckBox-UpDown|2C11- 5-1311601- 1 - 1V|1999-12-317|11 - dpShorOate10 - ccSDefault| Cl -点 LEDr口口No旭I lusfrunFnrmflFCtrl2属性3、定义日历控件的功能A、选择工程浏览器左侧大纲项“数据词典”，在数据词典里定义新变量变量名称：开始日期，变量类型：内存字符串变量名称：结束日期，变量类型：内存字符串B、将控件再复制一个，任意选择一个控件，然后双击鼠标，弹出对话框。在“常规” 选项中，将控件名命名为：start ；另一个控件名为：end。（如图20）在“事件”选项中

18、，选择事件“CloseUp”，并在相对应的关联函数列表单元双击。（如图21）弹出“控件事件函数”对话框。图为控件名“start”事件函数，在“函数声明” 中输入“CloseUp00()”在脚本编辑栏中输入以下脚本：(如图22) float Ayear;float Amonth;float Aday;string temp;Ayear=start.Year;Amonth=start.Month;Aday=start.Day;temp=StrFromInt( Ayear, 10 );if(Amonth10)temp=temp+-0+StrFromInt( Amonth, 10 );else tem

19、p=temp+-+StrFromInt( Amonth, 10 ); if(Aday10)temp=temp+-0+StrFromInt( Aday, 10 );else temp=temp+-+StrFromInt( Aday, 10 );本站点开始日期=temp;控件事件函数文件编辑也若带危X选|独塑|字事件： ClseUp 0函数声明：忡皿|doEeupOO 0float Ayear;float Amonth；float Ad ay；string temp；Aye a r= start. Year;Amonth=start.Mo nth；Ad ay= start. Day；temp =

20、StrFromlnt( Ayear, 10)；if(Amonth10)temp=temp+ -O +StrFromlnt( Amonth, 10 ； elsetemp二temp+u +StrFromlnt Amonth, 10 ： if(Aday10)temp=temp+ -O +StrFromlnt Aday, 10 )； elsetemp=temp+ +StrFromlnt Adayf 10 ；AV*站直 开始日期二temp;弹出“控件事件函数”对话框。图为控件名“md”事件函数，在“函数声明”中 输入“CloseUp01 ()”在脚本编辑栏中输入以下脚本：(如图23) float Ayear;float Amont