【正文】 flag = cs = BV ElseIf flag = 4E Then flag = cs = BI ElseIf flag = 5E Then flag = cs = BGL ElseIf flag = 6E Then flag = cs = CV ElseIf flag = 7E Then flag = cs = CI ElseIf flag = 8E Then flag = cs = CGL newdata = Mid(strData, 3, 6) strData = End If End If findata = Val(amp。H amp。 newdata) Select Case gl Case AP = findata Case AQ = findata Case ASZ = findata Case BP = findata Case BQ = findata Case BSZ = findata Case CP = findata Case CQ = findata Case CSZ = findata Case AV = findata Case AI = findata Case AGL = findata Case BV = findata Case BI = findata Case BG = findata Case CV = findata Case CI = findata Case CGL = findata End Select = + + = + + = + + = + + = + + = + + = / = / = / = / Next iEnd SelectEnd Sub39。=====================================================39。讀取命令選擇39。=====================================================Private Sub dqcmd_Click() If = 自動(dòng)讀取 Then = 暫停讀取 = amp。HFFamp。 = True Else = 自動(dòng)讀取 = 0 = False End IfEnd SubPrivate Sub tccmd_Click() Unload MeEnd SubPrivate Sub Timer1_Timer() m = m + 1End Sub39。=================================================39。創(chuàng)建歷史數(shù)據(jù)庫39。=================================================Private Sub Timer2_Timer() 39。 39。將實(shí)時(shí)數(shù)據(jù)存入歷史數(shù)據(jù)庫中 If = False Then 39。在數(shù)據(jù)庫的末尾加入新記錄 End If 39。加入新記錄 (0) = Date 39。系統(tǒng)日期 (1) = Time 39。系統(tǒng)時(shí)間 (2) = Val() 39?？傆泄? (3) = Val() 39。總無功 (4) = Val() 39。總視在 (5) = Val() 39。總功率因數(shù) (6) = Val() 39。A有功 (7) = Val() 39。A無功 (8) = Val() 39。B有功 (9) = Val() 39。B無功 (10) = Val() 39。C有功 (12) = Val() 39。A電壓 (13) = Val() 39。B電壓 (14) = Val() 39。C電壓 (15) = Val() 39。A電流 (16) = Val() 39。B電流 (17) = Val() 39。C電流 (18) = Val() 39。A功率因數(shù) (19) = Val() 39。B功率因數(shù) (20) = Val() 39。C功率因數(shù) 39。End Sub39。=================================================39。顯示歷史數(shù)據(jù)查詢窗口39。=================================================Private Sub lscxmd_Click() End SubPrivate Sub Form_Unload(Cancel As Integer) End Sub39。=================================================39。窗體初始化39。=================================================Dim dbs As DatabaseDim rst As RecordsetDim qdf As QueryDef39。=================================================39。參數(shù)查詢39。=================================================Private Sub Form_Load() = 39。區(qū)別查詢前后DBGrid1的數(shù)據(jù)的變化。 = c:\fyr\My = jkhEnd Sub39。=================================================39。查詢39。=================================================Private Sub Command1_Click() Set db = OpenDatabase(c:\fyr\My ) sesrchStr$ = 日期= amp。 sesrchStr If Then MsgBox (要查找的記錄不存在) End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub第 37 頁