用组态王报表

1、用组态王报表实现显示设备启动、停止时间和运行时长的方法在对设备的状态进行监控中，往往要取得一些参数来记录和分析设备的运行状况。这其中就包括设备的启动时间、停止时间和运行的时长。当然，组态软件不会有这样的功能，让我们 轻易实现。不过，通过组态软件的报表功能，再通过二次开发，写一些脚本语言。实现起来 倒也不难。以下，以组态王为例，是对操作过程的描述，希望能够对需要的人有一些帮助。总体思路：以一个项目为例。在这个工程中，有21台设备的运行状态需要记录，他们的运行状态依次记录在报表中。报表中的每一行都表示，此设备的一个运行周期。由于设备状态 在报表中依次排列，因此需要相应的变量来保存该设备状态所在的行

2、数。这样，当停止该设备时，才能将“停止时间”和“运行时长”填充到正确的位置。这样，就需要建立21个内存整形变量。由于报表中的记录依次排列，因此还需要一个变量来保存报表中最后一条记录 的行数，这样才能顺序填充记录。1、新建报表，并命名为“报表 1 ”。_A_X序号设备甯称启动时间.1停止时间运行时长bfog,sina,2、创建内存整形变量。21个内存变量分别保存 21个设备状态所在的行数。1个内存变量保存报表中最后一条记录的行数。円3藍塹旳%;号机毎桥斯莅行內荐隹塑2M:召冷一号杭断花行冉曲型石冰的15甄泵僚芷厅曲存建塑闪寿爭臺347负审*诵乔不嘶ip可丙苻莊51矗京也诵尸慕洞在叮內讦住星唏匚二

3、瞬啷曙诟疋厅内疗整趙2T1uh如胴碩顾正了内睜理亀m£4*悅 J1CtWF-T WE 厅旳再BI昱m爲净!2二邑机關芷疔內注塑174'命降FU二寻机酬芷讶肉荐蛊室2T5览略肌如谒松斷itb旳存參型那疝吟却陪儁在舒内存罄型2T1金饥磷珂左奇内存整墨m也存斥誉279舟店准牆才進诵至俩在行內存茸显%帛舌睛孙備訐歪P所左订內仔基型m%冲电懈猫环網m斷在疔内再常璋1&串互当卅行3、编写自定义函数，好处是减少代码量，修改方便。脚本内容具体如下"var"是变量的名称，"name"是要显示在报表中的字符串，"varRow"是

4、保存记录的行数/用年月日，时分秒，系统变量来组合形成日期。/不用日期变量，因为其格式长度不确定，在后来的分解中会很麻烦。string strY=StrFromlnt（ 本站点 $年,10 ）;string strM=StrFromInt （ 本站点 $月，10 ）;string strD=StrFromlnt（本站点$日,10 ）;string strH=StrFromInt（本站点$时,10 ）;string strMi=StrFromInt（本站点$分,10）;string strS=StrFromI nt（本站点$秒,10 ）;/确定日期的格式，并使长度和位置固定if （本站点$月10

5、）strM="0"+strM;if（本站点$日10）strD="0"+strD;if（本站点$时10）strH="0"+strH;if（本站点$分10）strMi="0"+strMi;if（本站点$秒10）strS="0"+strS;/组合，定义格式string str=strY+"-"+strM+"-"+strD+" "+strH+":"+strMi+":"+strS;/启动设备时，将“序号”、

6、“名称”、“启动时间”填充到报表中if （ var=1 ）long num= 报表当前行-1;string id=StrFromlnt(num, 10);ReportSetCellStri ng（"报表1",报表当前行,1, id ） ;/序号ReportSetCellStri ng（"报表1",报表当前行,2, name ） ;/名称ReportSetCellStri ng（"报表1",报表当前行,3, str）;/开始时间varRow=报表当前行;/所在行=报表当前行报表当前行=报表当前行+1;/停止设备时elsestring s

7、tartStr=ReportGetCellString（"报表1", varRow, 3 ）;/从报表中取得开始时间/开始时间转换秒2011-05-06 12:23:34string midY=StrMid(startStr, 1,4）;string midM=StrMid(startStr, 6, 2）;string midD=StrMid(startStr, 9, 2）;string midH=StrMid(startStr, 12, 2）;string midMi=StrMid(startStr, 15, 2);string midS=StrMid(startStr,

8、 18, 2);long IY=StrTolntmidY );long IM=StrToIntmidMlong ID=StrToIntmidDlong IH=StrToIntmidHlong lMi=StrToInt(midMi );long IS=StrTolnt(midS );long startTime= HTC on vertTimelong en dTime= HTC on vertTime（本站点$年 本站点$月 本站点$日 本站点$时 本站点$分 本站点$秒）；/结束时间转换秒单位秒/计算时间差long timeLe ngth=e ndTime-startTime;/秒转换为小时

9、/timeLe ngth=timeLe ngth/3600;string endStr=StrFromlnt(timeLength, 10) +"秒"/将“停止时间”和“运行时长”填充到报表中ReportSetCellString("报表 1", varRow, 4, str ) ;/ 结束时间ReportSetCellString("报表 1", varRow, 5, endStr ) ;/ 时间长度4、建立设备启动或停止的运行事件命令。只需调用自定义函数，并将填写相应的变量即可。女口： SetReport （本站点冰水循环泵 2运

10、行,"冰水循环泵本站点冰水循环泵2所在行）” _） Iff画五 u *4iX破軽幕舖會语暫 乜娄瀝刃史录专语&Ini - - i err ri-i in ri-i nar I- rWi- ri f _購件楠爭语育 u苦囉册d语言 u 口忑泡帀沪陆钳頁盲*劲3期址决-珈廉Q.2l> C0M1，G COM2U COM3；E C'_ilV!4:匸 COMSU ODE豊点讶水也乘F上斷 口汁卒乍沖祷h哺日荒三戸厅 竺站查傢水魂珏基3谱轩韶'輕站直妣阂耶 刨让擋站点忆二齡外*泵琏予 詡濡+畑"HT戶时可時疔 冋*站蓝地化凍加稱ii薛旳运质 ® g站卓懵机站刖測一teiis订 y i佯”帝計因讷诚二号机运行 自笑姑重廉机加呵询 TVti俞 竺如花崩巧语刑? ±沖J二昌机运行 id 2詁咸谥杞刃I刖输；，一 E 4J?卫13 切、滋站总VMD艙也I二号机话廿 4沁；,-却豁址比 3梓站嫖治罢疇睚的 討山丰站.戌询创料一迂订詔'仃严社當g sc咄注讦帝1JS厅 茁h1第点儁抑水術即葫诞合bliricLGff