系统:Win7 32Bits 旗舰版
wincc: 7.0 sp3英文版
Dim strConnectionString
Dim objConnection
Dim objCommand
Dim strSQL
Dim Rs
Dim sday
Dim smonth
Dim eday
Dim emonth
Dim str1
Dim str2
Dim temp
Dim sqlwhere
Dim msg
Dim CDG, WSH, FilePath
Dim fso, fo, sl
Dim read_temp
Dim OrderFileName
Dim ProductFileName
Dim Source
Dim SourceRow
Dim SourceCell
Dim i, j, k, m
Dim reDateStart, reDateEnd '日期控件
Dim reordergrid, reworkgrid 'MSHFlexGrid控件
Dim orderwin
Dim sum
Const ForWriting = 2
Const ForReading = 1
Set reDateStart = ScreenItems("DateStart")
Set reDateEnd = ScreenItems("DateEnd")
Set reordergrid = ScreenItems("ordergrid")
Set reworkgrid = ScreenItems("workgrid")
Set orderwin = ScreenItems("InsertWindow")
Set fso = CreateObject("Scripting.FileSystemObject")
OrderFileName = HMIRuntime.ActiveProject.Path + "\Order.csv"
ProductFileName = HMIRuntime.ActiveProject.Path + "\Finish_History.csv"
'Update file for writing SQL Data
Set fo = fso.CreateTextFile(ProductFileName, True)
fo.Close
str1 = Left(reDateStart.Value, 10)'CStr(reDate_start.Year) + "-" + smonth + "-" + sday
str2 = Left(reDateEnd.Value, 10)'CStr(reDate_end.Year) + "-" + emonth + "-" + eday
sqlwhere = "Select * from Finish_History where " + "Start_Date