|
’班次查詢子函數(shù)，獲取查詢字符串
Public Function sch_team()
Dim liner_str
Dim sch_str_team
Select Case Combo_team.ListIndex
Case 0
liner_str = "甲班"
Case 1
liner_str = "乙班"
Case 2
liner_str = "丙班"
Case 3
liner_str = "丁班"
End Select
sch_str_team = "info_liner = ’" + liner_str + "’"
sch_team = sch_str_team
End Function
’產(chǎn)量查詢函數(shù)，用于查詢產(chǎn)量并對其進行顯示
Private Sub cmd_search_Click()
Dim sch_str
’按班次查詢
If Chk_team.Value = 1 Then
sch_str = " where " + sch_team()
End If
’查詢結(jié)果顯示
Dim resource_str
resource_str = " select info_id as 編號,info_mactype as 機器類型 ,info_liner as 班次, "
resource_str = resource_str + " info_sumoutput as 當日產(chǎn)量, info_dayoutput as 累計產(chǎn)量,"
resource_str = resource_str + " info_daytotal as 當日合計產(chǎn)量,info_total as 累計合計產(chǎn)量 "
resource_str = resource_str + " from " + table_str + sch_str
Adodc1.RecordSource = resource_str
Debug.Print Adodc1.RecordSource
Adodc1.Refresh
End Sub
可根據(jù)以上單獨查詢班次的例子對其進行擴展，增加根據(jù)時間，車號，產(chǎn)量范圍等對產(chǎn)量進行查詢的功能，這里就不一一敘述了。
四、結(jié)束語
觸摸屏與上位機的結(jié)合，并通過VB6.0傳送數(shù)據(jù)所構(gòu)成的計算機監(jiān)控系統(tǒng)，對于近距離傳輸數(shù)據(jù)的現(xiàn)場控制來說是一種性價比很高的解決方案。該系統(tǒng)充分的利用了觸摸屏的通信功能和PC強大的圖形顯示、浮點運算等特點，以最大的限度合理的利用了資源，實現(xiàn)了對設(shè)備運行狀態(tài)的監(jiān)控。
|
