组态王报表功能实现方法.docVIP

一种简单的组态王报表功能实现方法

20１0年0４月２４日星期六15:18

前段时间用组态王6。53做了一个小的画面组态,其中用到了ＫＶＡDＯDBGrｉｄ控件来做报表，现总结如下。

一、准备工作

第一步：在组态王工程管理器中新建一个项目,项目路径为D:\实验项目。

第二步：新建一个ＡCCEＳS数据库

１、在“D：\实验项目”路径下新建一个MｉｃｒｏsｏftOfficｅＡccess应用程序并命名为mydaｔabase。mdｂ;

2、打开“控制面板\管理工具\OＤBC数据源管理器”选择“系统DSＮ”选项;

3、点击“添加”按钮创建新数据源，选择“MicrosofｔAccessDriver(*。ｍｄb)”；

4、在数据源名处填下“myｄatａ,并选择数据库路径为“D:\实验项目\mydatａbase.mdｂ”.

第三步：创建表格模板

点击工程浏览器左侧的“SQL访问管理器下的“表格模板”,新建一个表格并命名为Ｔable.在Table中添加所需记录的变量及日期参数,其中“日期”为定长字符串型，字符长度为10;其它诸如年、月、日、时、分则为浮点型,字符长度为１。

第四步：创建记录体

点击工程浏览器左侧的“SQＬ访问管理器”下的“记录体”,新建一个表格并命名为Record,在Reｃｏｒd中添加所需记录的变量及日期参数.记录体用来定义Access数据表格字段与组态王变量之间的对应关系。

二、连接数据库

第一步：在工程浏览器左侧的“数据库”下的“数据字典中定义一个内存整型变量,并命名为ConｎecｔID。

第二步:创立组态王与ｍydata数据源的连接，并以“表格模板Table的格式在数据库中建立名为“TｈeDａｔｅ”的表格，命令如下:

SQLCｏnneｃｔ（ConnectID，”dsn=mｙｄatａ；ｕid=;pwｄ＝)；

SＱLＣｒeａteTablｅ(CｏnnectID,TｈeDaｔｅ”,”Table”);

将上面两条命令填入“工程浏览器\命令语言\应用程序命令语言”下的“启动时”选项中。

第三步：在工程浏览器左侧的“命令语言\事件命令语言”下新建一事件命令,在“事由描述”项内填下“\\本站点＼$分==01”（每小时事件发生一次即分变量每次为一，计算了60分钟），在“发生时”框内填写

SQLInｓert（connｅctioｎid,”ＴｈeDａte,Recoｒd”)；//每小时向数据库保存一条记录。

三:建立报表查询画面

新建一个画面,并在画面上添加一个日期控件作日期查询用;添加一个KVADODＢＧｒid控件作报表显示用;添加三个按钮分别作查询、打印、退出用。

第一步：添加KＶADOＤBＧrｉd控制

1.菜单栏\编辑\插入通用控件\KVＡDＯDBGｒidClass，双击添加的控件,并命名“控件名为ｄaｙｒeport

２．在控件属性里的“数据源”选择前面定义的mｙｄata、“表名称”选择TheＤate,此时下面的“有郊字段”将出现你在记录体里面加入的数据,根据需要添加到右侧，并编辑好“标题”、“格式”等内容

3.根据需要可修改控件属性里面的“字体”、“打印设置＂等

第二步:添加时间控件

１.菜单栏\编辑\插入通用控件\MｉcrosofｔDateａndＴｉｍｅＰｉｃkｅrControl６.０(SP4)

2.双击添加的控件,并命名“控件名”为DａyｒepoｒtSｅlｅcｔ

3．根据需要可修改控件属性

第三步:添加查询按钮

1.定义按钮的“命令语言连接”“按下时”为:

dａｙrｅpｏrt。RemoveAllData(）；

(RemｏｖeAlｌRemovｅAlｌ方法描述RemoveAll方法从Dｉctｉonarｙ对象中删除所有关键字和条目对。语法object．RemoveAlｌobjeｃt始终是一个Ｄｉctionary对象的名字.说明下面的代码举例说明了ＲeｍｏvｅＡll方法的用法：Dimａ,ｄ，i’创建一些变量Setd=CreａtｅObjｅct(”Ｓcriｐting.Ｄictiｏｎarｙ”)d.Adda”，”Athｅｎs”添加一些关键字和条目ｄ。Ａddb，”Ｂelgraded.Aｄｄ”c，”Cairｏ”。。。a=ｄ。RemｏvｅAlｌ清除字典ＶC:CARRAY类下的操作函数,功能:删除该数组中的所有指针.从该数组中删除所有指针，但并不真正的删除ＣObject对象。RemｏveＡll函数将释放所有用于指针存储所占用的内存。）

２.定义按钮的“命令语言连接”“弹起时”为:(下列语言中“条件句”为内存字符串格式，在“数据词典＂里面定义)

longa;

lｏngb;

ｓtringｓtr1；

strｉngsｔr2;

a=DａyｒepｏrtS