陈寒清WINCC视频教程报表脚本-打开画面显示当天数据.docx

上传人:王** 文档编号:447589 上传时间:2023-08-28 格式:DOCX 页数:6 大小:49.12KB
下载 相关 举报
陈寒清WINCC视频教程报表脚本-打开画面显示当天数据.docx_第1页
第1页 / 共6页
陈寒清WINCC视频教程报表脚本-打开画面显示当天数据.docx_第2页
第2页 / 共6页
陈寒清WINCC视频教程报表脚本-打开画面显示当天数据.docx_第3页
第3页 / 共6页
陈寒清WINCC视频教程报表脚本-打开画面显示当天数据.docx_第4页
第4页 / 共6页
陈寒清WINCC视频教程报表脚本-打开画面显示当天数据.docx_第5页
第5页 / 共6页
陈寒清WINCC视频教程报表脚本-打开画面显示当天数据.docx_第6页
第6页 / 共6页
亲,该文档总共6页,全部预览完了,如果喜欢就下载吧!
资源描述

《陈寒清WINCC视频教程报表脚本-打开画面显示当天数据.docx》由会员分享,可在线阅读,更多相关《陈寒清WINCC视频教程报表脚本-打开画面显示当天数据.docx(6页珍藏版)》请在优知文库上搜索。

1、I.在直面的点件其它二.瞄开片面trw中圣立捏序t见下面程序卜2.MBm包南屋时照源芯市密寄NAPdM.pdl瓯色A收的或WEP-年目V啦喇.缥,.VbYteiIow莅叱她.山yiMagema徉虹”BTL004HtHJQRj-rt21“:LS算SSLE力虹CeXLQl:Qi.DAdrCnlriz总工白I二.JKtfaCcELInckn8m,卫72JT2E登曲当天全部左提,为扁城5CTSFI2KGIIdI51tmmms:I.M广系U土老小IlXLI-百口片IxrnnIEceinTTr-YcviiinSFAii7hqijG4;uu-.1.wxiIK-DirrimrYcmrTiE卜E&RiyMp1E

2、tS6LocaIygumneI,SLocaiEndnw6.店面油内容睾就应款堆互3列鬲内容郛云向,一与用面而-娶却SJ烫-,”二X二史Jl%t在E称.七M泊M行acn*-.迂JUr导效招痂我乞*ftjs-o&SetcoraCtm:+Dt;RerIr-rrconn.ConnectonStreg-stcncon.QirsoxLccaion-xoce.GsenJ三cR三CxtOorJlQCoa-CLjL11.二4”,oCc3.CcandTvpe三1Su:QUeAMtae二og-8=qscCca.CcsBaAciTcxcM:“53案,ScoRji三GCCS.Cx6Kfto.ft三eordCount11

3、AH5.A=二OiTSUXiLLM.Tago(:-IWxLCn运人在.iftW由住MSFiexSrdl.ClearMS11ox:.BowecDa.RonrKcur-,fr-r-.叶E3!r、:/一JTrSrwK8rIdt(i4L(k-1?1-WSFtXLd/.rl:,一才一所X$ridl.CcLVl*1::!CF【j-一 二冤堂NiLJrH,二5 xtp-.力EHin召一,:wjzm.,IUvlhiftrI二aI-SetoCom=Creat&Obiect(ADODBrCommandF)-DConrkCoEmaridTite-1,lSetOCom.ActiveConnetiononn.oComi

4、,CommandText=si,执行检索功能*SetoRs=oCom.EKecuten=oRs.RecordCount获得检索到的总数,1HMIRuntirn己Tag名(J3).WitEn.,定义在线表格属性.MSFIcxGridLCIearMSFIeGrldl.Row莒二aRs.RecorefCount+2-MSFIexGridl.CalWidth)=700,第一列宽度设置.MSFIej(Gridl3Width俨IODO.MSFkxGHdlolWidth(2)=3300.MSFxGridl.ColWidth31=2500-MSF1exGridlolWidth(4)=2200-MSHexGri

5、dirolWidth51=2950等6列施度设比方果列数多叫维续添力WMSFIexGridLRowHeight(O)=GOO端一行高度设置.MSFxGridl.RowHeight(I)=400-MSFIexGridIrRow=0.orz=0To5限据上面的列数改变.MSFIexGridl.CeIFontSize=12r字体大小.M纤IGridLC仁卜MSFiexGridIT&xtL工件信息统计声:Mext-MSFIexGHdLMergeCells=4,相同内容合并用,元眸MsFIexGridLWLerEeRcwfO)=True1合并单元格.M5FIexGridI.Row=kForz=OTo5根

6、据上面的列数改变时MSFIexGndLCoI=LMSFIexGNdLCellB3dcCcJQUYbQaH,定七第二行猷色.Mext-MSF1exGndl.Te!O)Then:oRs.MoveFirst移动到数据库检索结果的第一行DoWhileNotoRsXOF是否到记录木尾.循环填与表格n=n+1MSFIexGridI.TEMtIVIatrix(F+2.0)-i,根1后,而实际情况对应输MSFIexGrid1,TextMatrixi+2,1)-oRs.Fieid5(0.VaJue丁rMiMMWWWMwWwdWVnWWWWWVUWWWVWVWWWUwWruVadwWWWwWWnW八MSFIexG

7、rid1,TextMatri(M2,2)=oRs.Feldsfl.ValuerMSFlexGFldl.TextMjBtri网i+23)=RtFeldE21.Vaiue.凶羽目GridITxtMtri3+&41=OH.HeEQ3).Vaiue,1MsFIexGridLTextMatrIxrFI23)=oR5JFjeld5(+),Value.i=l+l.ORSAIOCeNeXi1.oop,conn.CQ&e-二M纤但灼血工丁叩只口w三MWFIexGridJFow-移动到最占一仃.Else.妙鲍.您所查询的忖间段内没有数据Rs-Requery匚口PmCl。施EndIf.Dimkjl,kj2,kj3,

8、kj4,kj5,kj6DimQRDimMSFIeXGrid对应表格控件名称DimLoCalBeginTime,LocaIEndTimegqiDimoRs,oRsl,nznl,ifz,ssll,oComzoComstrcn,conn,pjDimzxyl查询当天全部数据,除了控件名要注意修改外,以上其他为标准SetMSFIexGridl=SCreenItemS(Al)对应表格控件名称riqi=Now1.ocaIBeginTime=Year(Hqi)&Monthfriqi)&Dayfriqi)&00:00:001.ocaIEndTime=Year(riqi)&Month(riqi)&Dayfriqi

9、)&23:59:59MsgBox1.si=SELECTDLName,Bl,B2zB3zB4zB5FROMbiaolWHEREDTBETWEEN,&LocaIBeginTime&,and&LocaIEndTime&ORDERBYDT,SI后面的内容要对应数据库中列的内容,后面的DT与前面的DT要名称一致,biao要对应数据库列表名称dbo.后面的名称strcn=nProvider=SQLOLEDB-IJntegratedSecurity=SSPI;PersistSecurityInfo=FaIse;InitialCatalog=Project_l;DataSource=AwinccSetconn

10、=CreateObject(ADODB.connection)Conn.ConnectionString=StrcnConn.CursorLocation=3conn.OpenSetoRs=CreateObject(ADODB.Recordset)Set0C0m=CreateObject(ADODB.Command)MsgBox2.oCom.CommandType=1MsgBox3.SetoCom.ActiveConnection=connMsgBox4.oCom.CommandText=siMsgBox5.SetoRs=oCom.Executen=oRs.RecordCount获得检索到的总

11、行数MsgBox6.定义在线表格属性MSFIexGridl.CIearMSFIexGridl.Rows=oRs.RecordCount+2MSFleXGridl.ColWidth(0)=700第一列宽度设置MSFIeXGridLCOlWidth=3300MSFIeGridl.ColWidth(2)=1000MSFIexGridl.ColWidth(3)=1500MSFIexGridl.ColWidth(4)=1500MSFIeGridl.ColWidth(5)=1500MSFIexGridl.ColWidth(6)=1500MSFIexGridl.ColWidth(7)=1500MSFIexG

12、ridl.RowHeight(0)=600MSFIeGridl.RowHeight(l)=400MSFIexGndl.Row=OForz=0To7根据上面的列数改变MsFlexGridl-CeIIFontSize=12MSFIexGridl-CoI=ZMSFIexGridl,Text=统计表”NextMsFlexGridl.MergeCeIIs=4,相同内容合并单元格MSFIexGridl-MergeRow(O)=True,合并单元格MSFIexGndl-Row=IForz=0To7根据上面的列数改变MSFIexGridl.CoI=ZMsFlexGndl.CelIBackCoIor=VbCya

13、n,定义第二行颜色NextMSFIexGridl.TextMatnx(IzO)=序号根据实际情况输入MsFIexGndl.TextMatrix(IJ)=日期”MSFleXGridLTeXtMatriX(1,2)=名称”12345(mm) (mm) (mm) (mm) (mm)MSFIeXGridLTeXtMatriX(1,3)=位置MSFleXGridLTeXtMatriX(L4)=位置MSFIeXGridLTeXtMatriX(L5)=位置MSFieXGridLTeXtMatriX(1,6)=位置MSFleXGridl.TextMatrixQ,7)=位置MSFIexGridl.ColAlignment(0)=4对其方式,根据实

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > IT计算机 > 计算机应用/办公自动化

copyright@ 2008-2023 yzwku网站版权所有

经营许可证编号:宁ICP备2022001189号-2

本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!