组态王报表功能实现方法

1、一种简单的组态王报表功能卖现方法创作：欧阳道时间：2021.03. 06创作：欧阳道2010年04月24目星期六15:18前段时间用组态王6. 53做了一个小的画面组态，其中用到了 KVADODBGrid控件来做报表，现总结如下。一、准备工作第一步：在组态王工程管理器中新建一个项l_h项IJ路径为D： 实验项口。第二步：新建一个ACCESS数据库1、在D： 实验项U”路径下新建一个Microsoft Office Access应用程序并命名为my database, mdb：2、打开“控制面板管理工具ODBC数据源管理器”选择“系统DS”选项；3、点击添加”按钮创建新数据源,选择Microso

2、ft Access Driver (*. mdb) n ；4、在数据源名处填下“mydatr ,并选择数据库路径为“D： 实验项Umydatabase.mdb。第三步：创建表格模板点击工程浏览器左侧的“SQL访问管理器”下的“表格模板”，新建一个表格并命名为Tableo在Table中添加 所需记录的变量及日期参数，其中“日期”为定长字符串型，字符长度为10；其它诸如年、月、日、时、分则为浮 点型，字符长度为1。第四步：创建记录体点击工程浏览器左侧的“SQL访问管理器”下的“记录体”，新建一个表格并命名为Record,在Record中添加 所需记录的变量及日期参数。记录体用来定义Access数据

3、表格字段与组态王变量之间的对应关系。二、连接数据库第一步：在工程浏览器左侧的“数据库”下的“数据字典”中定义一个内存整型变量，并命名为ConnectIDo第二步：创立组态王与mydata数据源的连接，并以“表格模板” Table的格式在数据库中建立名为“TheDate”的表 格，命令如下：SQLConnect ( ConnectID, z，dsn=mydata;uid=;pwd= z);SQLCreateTable(ConnectID, TheDate , Table);欧阳道创编2021.03.06将上面两条命令填入“工程浏览器命令语言应用程序命令语言”下的“启动时”选项中。第三步：在工程浏

4、览器左侧的“命令语言事件命令语言”下新建一事件命令，在“事山描述”项内填下“本站点$分=01”(每小时事件发生一次即分变量每次为一，讣算了 60分钟)，在发生时”框内填写SQLInsert (connectionid, TheDate, Record) ;/每小时向数据库保存一条记录。三：建立报表査询画面新建一个画面，并在画面上添加一个日期控件作日期查询用；添加一个KVADODBGrid控件作报表显示用；添加 三个按钮分别作查询、打印、退出用。第一步：添加KVADODBGrid控制菜单栏编辑插入通用控件KVADODBGrid Class,双击添加的控件，并命名“控件名”为dayreport在控

5、件属性里的“数据源”选择前面定义的mydata. “表名称”选择TheDate,此时下面的“有郊字段”将 出现你在记录体里面加入的数据，根据需要添加到右侧，并编辑好“标题”、“格式”等内容根据需要可修改控件属性里面的“字体”、“打印设置”等第二步：添加时间控件菜单栏编辑插入通用控件Microsoft Date and Time Picker Control 6. 0 (SP4)双击添加的控件，并命名控件名”为DayreportSelect根据需要可修改控件属性第三步：添加查询按钮定义按钮的“命令语言连接”“按下时”为：dayreport. RemoveAllDataO ;(RemoveAll

6、RemoveAll方法描述RemoveAll方法从Dictionary对象中删除所有关键字和条口对。语法 object. RemoveAllobject始终是一个Dictionary对象的名字。说明下面的代码举例说明了 RemoveAl 1方法的用 法：Dim a, d, i，创建一些变量 Set d = CreateObject (Scripting. Dictionary) d. Add a, Athens添加一 些关键字和条U d. Add b, ，zBelgrade/zd. Add c, Cairo. a = d. RemoveAll 清除字典VC:CARRAY类下的操作函数，功能：删

7、除该数组中的所有指针。从该数组中删除所有指针，但并不真正的删除CObject对象。 RemoveAll函数将释放所有用于指针存储所占用的内存。)定义按钮的“命令语言连接”“弹起时”为：(下列语言中“条件句”为内存字符串格式，在“数据词典” 里面定义)long a;long b;string strl;string str2;a=DayreportSelect. Month;(指针命令,控件 DayrepotSelect 中的 Month 变量) b=DayreportSelect Day;辻(a10)strl= -0,+StrFromInt( DayreportSelect.Month, 10

8、 );elsestrl= -z/+StrFromInt ( Dayrepor tSelect .Month, 10 );辻(b10)str2= -0z +StrFromInt( DayreportSelect.Day, 10 );elsestr2= -z +StrFromInt( DayreportSelect.Day, 10 );本站点条件句=StrFromInt ( DayreportSelect. Year, 10 )+strl+str2;dayreport. Where=，?: I WJ=, +本站点条件句 + order by W;dayreport FetchDatd();dayr

9、eport FetchEnd();注意：在控制面板区域和语言自定义下，需定义短日期格式为“yyyy-MM-dd”样式，若不同，则上面命令代码的判断段需作相应修改。第四步：添加打印按钮定义按钮的“命令语言连接”“弹起时”为：dayreport Print();第五步：添加退出按钮总体效果图如下图所示：4 1K参4次日报表查询请选择查询的日期：1!010-01-1!3 二n查询I II打印11退出时间（小时1浓度(ppm)压力（kpa)055.0-10.028556. 031.064.01&9.082. 027834. 031.065.02T7.010S.O28913 030.065.0379.0

10、120.028748. 030.064.0495.036.026386. 031.065.0595.033. 027834. 032.065.0&6.0113.027110.030.064.0782.084.029281.031.065.0850.0100.027110.032.065.0945.079. 027834. 030.064.01053.069.026386. 028.063.01155.0E4. Li26386. 028.063.01274.0121.026T4& 032.065.013&1.031.027472. 031.065.01458.054. 026024. 033.066.015&6.060.027834. 032.065.01687.088.028024. 032.065.017&6.074.026024. 032.066.01858.060.026748. 032.08S.019&6.080.025662. 033.066.020B3.072. 025662.0