IFix3.5 ACCESS ACCESS hisdata D:\Dynamics\SampleSystem\HistoricalData ODBC DSN hisdata 1 ODBC 1.1 2 1.2
3 Driver do Microsoft Access (*.mdb) 1.3 4 hisdata IFIX 1.4
1.4 5 Access 1.5 6 ODBC ifix3.5 1.6
1.6 Alarm ODBC Service 1.7 ODBC 1.8 4
1.9 1.9 Access 1.8 1.10 5
hisdata 1.8 1.7 1.6 ifix3.5 ifix3.5 CTRl+W 2.1 ifix1_alarm_history_query.grf 1 MSHFlexGrid Grid1 1 ComboBox alarmarea 4 DTPicker StartDTPicker StartTTPicker EndDTPicker EndTTPicker 4 Text 1 CommandButton (cmdok) MSHFlexGrid ComboBox DTPicker CommandButton 6
2.1 ADO 2.2 7
Dim rdate, rdate1, tag, tt, dt Dim StartTime, EndTime As String Private Sub CFixPicture_Initialize() With alarmarea.additem "BATCH_PRODUCTION".AddItem "Discrete_Mfg".AddItem "Pharm_Process".AddItem "Waste_Water".AddItem "ALL".Text = "ALL" End With rdate = Date rdate = Format(rdate, "yyyy-mm-dd") rdate = rdate & " 00:00:00" StartDTPicker = rdate StartDTPicker1 = rdate rdate1 = Date rdate1 = Format(rdate1, "yyyy-mm-dd") tt = Time tt = Format(tt, "hh:mm:ss") rdate1 = rdate1 & " " & tt EndDTPicker = rdate1 EndTTPicker = Time EndDTPicker1 = rdate1 EndTTPicker1 = Time StartTime = rdate EndTime = rdate1 CFixPicture_Initialize alarmarea Private Sub cmdok_click() Dim strqueryavg, strqueryavg1, strqueryavg2, strqueryavg3 As String Dim str As String Dim Querytime As String str = "" 8
If alarmarea.text <> "ALL" Then str = alarmarea.text End If strqueryavg = "SELECT FIXALARMS.ALM_DATEIN,FIXALARMS.ALM_TIMEIN,FIXALARMS.ALM_DATELAS T,FIXALARMS.ALM_TIMELAST,FIXALARMS.ALM_TAGNAME,FIXALARMS.ALM_D ESCR, FIXALARMS.ALM_VALUE,FIXALARMS.ALM_ALMAREA, FIXALARMS.ALM_OPFULLNAME, FIXALARMS.ALM_OPNODE FROM FIXALARMS" strqueryavg1 = " WHERE (FIXALARMS.ALM_ALMAREA LIKE '%" & str & "%')" strqueryavg2 = " AND (FIXALARMS.ALM_NATIVETIMELAST BETWEEN {ts '" & StartTime & "'} AND {ts '" & EndTime & "'})" strqueryavg3 = " ORDER BY FIXALARMS.ALM_NATIVETIMELAST DESC" strqueryavg = strqueryavg & strqueryavg1 & strqueryavg2 & strqueryavg3 Dim i, j As Integer Dim cnado As New ADODB.Connection Dim rsado As Recordset Set cnado = New ADODB.Connection cnado.connectionstring = "DSN = hisdata; UID = sa; PWD = ;" cnado.open "hisdata", "sa", "" Set rsado = New ADODB.Recordset rsado.cursorlocation = aduseclient rsado.open strqueryavg, cnado, adopendynamic, adlockunspecified, -1 If rsado.recordcount > 5000 Then MsgBox " 5000 " Exit Sub End If Set Grid1.DataSource = rsado Set cnado = Nothing With Grid1.TextMatrix(0, 1) = " ".TextMatrix(0, 2) = " ".TextMatrix(0, 3) = " ".TextMatrix(0, 4) = " ".TextMatrix(0, 5) = "TAGNAME".TextMatrix(0, 6) = " ".TextMatrix(0, 7) = " ".TextMatrix(0, 8) = " " 9
.TextMatrix(0, 9) = " ".TextMatrix(0, 10) = " ".ColWidth(0) = 500.ColWidth(1) = 1000.ColWidth(2) = 1250.ColWidth(3) = 1000.ColWidth(4) = 1250.ColWidth(5) = 2250.ColWidth(6) = 2000.ColWidth(7) = 1500.ColWidth(8) = 1500.ColWidth(9) = 1500.ColWidth(10) = 1200.ColWidth(11) = 1200 End With For i = 1 To Grid1.Rows - 1 Grid1.TextMatrix(i, 0) = i Next cmdok_click Grid1 SQL SELECT WHERE LIKE BETWEEN AND ORDER BY SQL Private Sub EndDTPicker_Change() dt = EndDTPicker dt = Format(dt, "yyyy-mm-dd") tt = EndTTPicker.Hour & ":" & EndTTPicker.minute & ":" & EndTTPicker.second tt = Format(tt, "hh:mm:ss") EndTime = dt & " " & tt Private Sub EndTTPicker_Change() dt = EndDTPicker dt = Format(dt, "yyyy-mm-dd") tt = EndTTPicker.Hour & ":" & EndTTPicker.minute & ":" & EndTTPicker.second tt = Format(tt, "hh:mm:ss") EndTime = dt & " " & tt 10
Private Sub StartDTPicker_Change() dt = StartDTPicker dt = Format(dt, "yyyy-mm-dd") tt = StartTTPicker.Hour & ":" & StartTTPicker.minute & ":" & StartTTPicker.second tt = Format(tt, "hh:mm:ss") StartTime = dt & " " & tt Private Sub StartTTPicker_Change() dt = StartDTPicker dt = Format(dt, "yyyy-mm-dd") tt = StartTTPicker.Hour & ":" & StartTTPicker.minute & ":" & StartTTPicker.second tt = Format(tt, "hh:mm:ss") StartTime = dt & " " & tt SQL SQL SERVER ACCESS SQL SERVER ODBC DSN SQL Server 11