ifix 统计脚本.docVIP

ifix 统计脚本 Option Explicit Private strEventQuery As String, strAlarmQuery As String, strTagname As String Private querytype As String, timemode As String Private startdt As String, enddt As String Private connection1 As New ADODB.Connection Private recset1 As New ADODB.Recordset Private recset2 As New ADODB.Recordset Private recset3 As New ADODB.Recordset Private TagDesc As String Private TagName1, TagName2, TagName3, TagName4, TagName5, TagName6 As String Private Sub CFixPicture_Initialize() MSFlexGrid1.Clear MSFlexGrid2.Clear TagName1 = MyTag_1 TagName2 = MyTag_2 TagName3 = MyTag_3 TagName4 = MyTag_4 TagName5 = MyTag_5 TagName6 = MyTag_6 DTPicker1.Value = Date startdt = DTPicker1.Value 0:0:0 enddt = DTPicker1.Value 23:59:59 With MSFlexGrid1 .Rows = 19 .Cols = 7 .ColWidth(0) = 0 .ColWidth(1) = 2800 .ColWidth(2) = 3000 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 2500 .ColWidth(6) = 1000 .ColAlignment(1) = flexAlignCenterCenter flexAlignCenterBottom 单元格的内容居中、中心对齐 .ColAlignment(2) = flexAlignCenterCenter flexAlignCenterBottom 单元格的内容居中、中心对齐 .ColAlignment(3) = 5 flexAlignCenterBottom 单元格的内容居中、底部对齐 .ColAlignment(4) = 5 flexAlignCenterBottom 单元格的内容居中、底部对齐 .ColAlignment(5) = 5 flexAlignCenterBottom 单元格的内容居中、底部对齐 .ColAlignment(6) = 5 flexAlignCenterBottom 单元格的内容居中、底部对齐 .Font.Size = 9 .Font.Name = 微软雅黑 .Row = 0 .Col = 0 .RowSel = 0 .ColSel = 1 .FillStyle = flexFillRepeat .CellAlignment = 5 .MergeCol(1) = True 合并第一行内容 .MergeCol(2) = True 合并第一行内容 .MergeCells = flexMergeRestrictColumns .BackColorBkg = vbWhite .TextMatrix(0, 1) = 时间 .TextMatrix(0, 2) = 皮带名称 .TextMatrix(0, 3) = 班次 .TextMatrix(0, 4) = 开机次数