日报表解释说明

1 全局脚本全局脚本 在全局脚本里建立起与数据库的连接 通过定时整点触发脚本 把变量写 到数据库 WINCC 里全局脚本触发定时器设定是每小时整点触发 Option Explicit 变量声明 Function action 功能操作 Dim database 定义 数据库 Dim strcn cn Dim is SQL Dim riqi Dim yali wendu liuliang zhongliang dianya sudu 定义压力 温度 Dim DateTime 定义日期 时间 riqi Now Set yali HMIRuntime Tags yali 人机界面运行时间 标签 yali Read Set wendu HMIRuntime Tags wendu wendu Read Set liuliang HMIRuntime Tags liuliang liuliang Read Set zhongliang HMIRuntime Tags zhongliang zhongliang Read Set dianya HMIRuntime Tags dianya dianya Read Set sudu HMIRuntime Tags sudu sudu Read strcn Provider SQLOLEDB 1 Integrated Security SSPI Persist Security Info False Initial Catalog baobiao1 Data Source wincc Set cn CreateObject ADODB connection cn connectionString strcn cn Open is SQL insert into ribao riqi yali wendu liuliang zhongliang dianya sudu Values Integrated Provider SQLOLEDB 1 Integrated Security SSPI PersistSecurity SSPI Persist SecurityInfo False InitialSecurityInfo False Initial Catalog baobiao1 DataCatalog baobiao1 Data Source wincc Source wincc SetSet connconn CreateObject ADODB Connection CreateObject ADODB Connection conn ConnectionStringconn ConnectionString strcnstrcn conn CursorLocationconn CursorLocation 3 3 conn Openconn Open 使用命令文本查询 Set oRs CreateObject ADODB Recordset Set oCom CreateObject ADODB Command oCom CommandType 1 Set oCom ActiveConnection conn oCom CommandText Sql Set oRs oCom Execute n oRs RecordCount RecordCount指示 Recordset 对象中记录的当前数目 Text2 Text n Text2 为日报表中静态文本的查询到的记录数的文本内容为 n Set oCom1 CreateObject ADODB Command oCom1 CommandType 1 Set oCom1 ActiveConnection conn oCom1 CommandText sql1 Set oRs1 oCom1 Execute n1 oRs1 RecordCount ylp oRs1 ylp wdp oRs1 wdp llp oRs1 llp ylx oRs1 ylx wdx oRs1 wdx llx oRs1 llx yld oRs1 yld wdd oRs1 wdd lld oRs1 lld zlp oRs1 zlp dyp oRs1 dyp sdp oRs1 sdp zlx oRs1 zlx dyx oRs1 dyx sdx oRs1 sdx zld oRs1 zld dyd oRs1 dyd sdd oRs1 sdd IfIf n n 0 0 ThenThen 查询的结果数为查询的结果数为 0 0 时显示内容时显示内容 MsgBoxMsgBox 对不起对不起 没有找到符合条件的数据没有找到符合条件的数据 vbOK vbOK 没有相关数据没有相关数据 EndEnd IfIf oRs Requery MSFlexGrid1 Clear 使用使用 FlexGridFlexGrid ActiveXActiveX 控件可以在控件可以在 MicrosoftMicrosoft VisualVisual BasicBasic 的窗体中创建一个电的窗体中创建一个电 子数据表格 也可称之为网格 子数据表格 也可称之为网格 dWB4XLJL05K68bL84l6aadWB4XLJL05K68bL84l6aa MSFlexGrid1 Rows oRs RecordCount 6 MSFlexGrid1 ColWidth 0 800 MSFlexGrid1 ColWidth 1 2100 MSFlexGrid1 ColWidth 2 1000 MSFlexGrid1 ColWidth 3 1000 MSFlexGrid1 ColWidth 4 1000 MSFlexGrid1 ColWidth 5 1000 MSFlexGrid1 ColWidth 6 1000 MSFlexGrid1 ColWidth 7 1000 合并单元格 并把单元格的内容写为合并单元格 并把单元格的内容写为 R980R980 履带式布料机日报表履带式布料机日报表 MSFlexGrid1 RowMSFlexGrid1 Row 0 0 ForFor z z 0 0 ToTo 7 7 MSFlexGrid1 ColMSFlexGrid1 Col z z MSFlexGrid1 TextMSFlexGrid1 Text R980 R980 履带式布料机日报表履带式布料机日报表 NextNext MSFlexGrid1 MergeCellsMSFlexGrid1 MergeCells 4 4 Merge Merge 合并合并 MSFlexGrid1 MergeRow 0 MSFlexGrid1 MergeRow 0 TrueTrue 合并单元格 MSFlexGrid1 TextMatrix 1 0 编号 Matrix 矩阵 行 列 MSFlexGrid1 TextMatrix 1 1 日期 MSFlexGrid1 TextMatrix 1 2 压力 MSFlexGrid1 TextMatrix 1 3 温度 MSFlexGrid1 TextMatrix 1 4 流量 MSFlexGrid1 TextMatrix 1 5 重量 MSFlexGrid1 TextMatrix 1 6 电压 MSFlexGrid1 TextMatrix 1 7 速度 MSFlexGrid1 TextMatrix oRs RecordCount 2 0 总和 MSFlexGrid1 TextMatrix oRs RecordCount 3 0 最大值 MSFlexGrid1 TextMatrix oRs RecordCount 4 0 最小值 MSFlexGrid1 TextMatrix oRs RecordCount 5 0 平均值 MSFlexGrid1 ColAlignment 0 4 MSFlexGrid1 ColAlignment 1 4 MSFlexGrid1 ColAlignment 2 4 MSFlexGrid1 ColAlignment 3 4 MSFlexGrid1 ColAlignment 4 4 MSFlexGrid1 ColAlignment 5 4 MSFlexGrid1 ColAlignment 6 4 MSFlexGrid1 ColAlignment 7 4 对其方式 For i 1 To oRs RecordCount MSFlexGrid1 TextMatrix i 1 0 i Next If n 0 Then oRs MoveFirst i 0 End If 显示编号下方的信息为从第 2 行 第 0 列为 1 第 3 行第 0 列为 2 i 的 取值为从 1 到查询到的数目 oRs RecordCount Do While Not oRs EOF n n 1 ylp Int ylp 10 3 0 5 10 3 wdp Int wdp 10 3 0 5 10 3 llp Int llp 10 3 0 5 10 3 zlp Int zlp 10 3 0 5 10 3 dyp Int dyp 10 3 0 5 10 3 sdp Int sdp 10 3 0 5 10 3 i i 1 MSFlexGrid1 AddItem i i 1 t CStr oRs Fields 0 Value If e f Then MSFlexGrid1 TextMatrix i 1 1 Mid t 11 16 End If If e f Then MSFlexGrid1 TextMatrix i 1 1 t End If a1 CStr oRs Fields 1 Value b1 CStr oRs Fields 2 Value c1 CStr oRs Fields 3 Value d1 CStr oRs Fields 4 Value e1 CStr oRs Fields 5 Value f1 CStr oRs Fields 6 Value a1 Int a1 10 3 0 5 10 3 b1 Int b1 10 3 0 5 10 3 c1 Int c1 10 3 0 5 10 3 d1 Int d1 10 3 0 5 10 3 e1 Int e1 10 3 0 5 10 3 f1 Int f1 10 3 0 5 10 3 MSFlexGrid1 TextMatrix i 1 2 a1 MSFlexGrid1 TextMatrix i 1 3 b1 MSFlexGrid1 TextMatrix i 1 4 c1 MSFlexGrid1 TextMatrix i 1 5 d1 MSFlexGrid1 TextMatrix i 1 6 e1 MSFlexGrid1 TextMatrix i 1 7 f1 MSFlexGrid1 TextMatrix oRs RecordCount 3 2 yld MSFlexGrid1 TextMatrix oRs RecordCount 4 2 ylx MSFlexGrid1 TextMatrix oRs RecordCount 5 2 ylp MSFlexGrid1 TextMatrix oRs RecordCount 3 3 wdd MSFlexGrid1 TextMatrix oRs RecordCount 4 3 wdx MSFlexGrid1 TextMatrix oRs RecordCount 5 3 wdp MSFlexGrid1 TextMatrix oRs RecordCount 3 4 lld MSFlexGrid1 TextMatrix oRs RecordCount 4 4 llx MSFlexGrid1 TextMatrix oRs RecordCount 5 4 llp MSFlexGrid1 TextMatrix oRs RecordCount 3 5 zld MSFlexGrid1 TextMatrix oRs RecordCount 4 5 zlx MSFlexGrid1 TextMatrix oRs RecordCount 5 5 zlp MSFlexGrid1 TextMatrix oRs RecordCount 3 6 dyd MSFlexGrid1 TextMatrix oRs RecordCount 4 6 dyx MSFlexGrid1 TextMatrix oRs RecordCount 5 6 dyp MSFlexGrid1 TextMatrix oRs RecordCount 3 7 sdd MSFlexGrid1 TextMatrix oRs RecordCount 4 7 sdx MSFlexGrid1 TextMatrix oRs RecordCount 5 7 sdp oRs MoveNext Loop End Sub 3 打印按钮打印按钮 Sub OnClick ByVal Item Dim ExcelApp Dim ExcelBook Dim ExcelSheet Dim MSFlexGrid1 Dim i irow ICOL Dim z k Set MSFlexGrid1 ScreenItems MSFlexGrid1 Set ExcelApp CreateObject Excel Application Set ExcelBook ExcelApp Workbooks Add Set ExcelSheet ExcelBook Worksheets 1 ExcelApp Visible True ExcelSheet Range A1 H1 Merge For irow 0 To MSFlexGrid1 Rows 1 For ICOL 0 To MSFlexGrid1 Cols 1 z MSFlexGrid1 Rows ExcelSheet Cells irow 1 icol 1 Trim MSFlexGrid1 TextMatrix irow icol Next Next ExcelSheet Range A1 H z Borders 1 Weight 2 ExcelSheet Range A1 H z Borders 2 Weight 2 ExcelSheet Range A1 H z Borders 3 Weight 2 ExcelSheet Range A1 H z Borders 4 Weight 2