’班次查詢(xún)子函數(shù)，獲取查詢(xún)字符串

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)量查詢(xún)函數(shù)，用于查詢(xún)產(chǎn)量并對(duì)其進(jìn)行顯示

Private Sub cmd_search_Click()

Dim sch_str

’按班次查詢(xún)

    If Chk_team.Value = 1 Then

        sch_str = " where " + sch_team()

    End If

’查詢(xún)結(jié)果顯示

    Dim resource_str

    resource_str = " select info_id as 編號(hào),info_mactype as 機(jī)器類(lèi)型 ,info_liner as 班次, "

    resource_str = resource_str + " info_sumoutput as 當(dāng)日產(chǎn)量, info_dayoutput as 累計(jì)產(chǎn)量,"

    resource_str = resource_str + " info_daytotal as 當(dāng)日合計(jì)產(chǎn)量,info_total as 累計(jì)合計(jì)產(chǎn)量 "

    resource_str = resource_str + " from " + table_str + sch_str

    Adodc1.RecordSource = resource_str

    Debug.Print Adodc1.RecordSource

    Adodc1.Refresh

End Sub

    可根據(jù)以上單獨(dú)查詢(xún)班次的例子對(duì)其進(jìn)行擴(kuò)展，增加根據(jù)時(shí)間，車(chē)號(hào)，產(chǎn)量范圍等對(duì)產(chǎn)量進(jìn)行查詢(xún)的功能，這里就不一一敘述了。

四、結(jié)束語(yǔ)

    觸摸屏與上位機(jī)的結(jié)合，并通過(guò)VB6.0傳送數(shù)據(jù)所構(gòu)成的計(jì)算機(jī)監(jiān)控系統(tǒng)，對(duì)于近距離傳輸數(shù)據(jù)的現(xiàn)場(chǎng)控制來(lái)說(shuō)是一種性?xún)r(jià)比很高的解決方案。該系統(tǒng)充分的利用了觸摸屏的通信功能和PC強(qiáng)大的圖形顯示、浮點(diǎn)運(yùn)算等特點(diǎn)，以最大的限度合理的利用了資源，實(shí)現(xiàn)了對(duì)設(shè)備運(yùn)行狀態(tài)的監(jiān)控。