’班次查询子函数，获取查询字符串

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

’产量查询函数，用于查询产量并对其进行显示

Private Sub cmd_search_Click()

Dim sch_str

’按班次查询

    If Chk_team.Value = 1 Then

        sch_str = " where " + sch_team()

    End If

’查询结果显示

    Dim resource_str

    resource_str = " select info_id as 编号,info_mactype as 机器类型 ,info_liner as 班次, "

    resource_str = resource_str + " info_sumoutput as 当日产量, info_dayoutput as 累计产量,"

    resource_str = resource_str + " info_daytotal as 当日合计产量,info_total as 累计合计产量 "

    resource_str = resource_str + " from " + table_str + sch_str

    Adodc1.RecordSource = resource_str

    Debug.Print Adodc1.RecordSource

    Adodc1.Refresh

End Sub

    可根据以上单独查询班次的例子对其进行扩展，增加根据时间，车号，产量范围等对产量进行查询的功能，这里就不一一叙述了。

四、结束语

    触摸屏与上位机的结合，并通过VB6.0传送数据所构成的计算机监控系统，对于近距离传输数据的现场控制来说是一种性价比很高的解决方案。该系统充分的利用了触摸屏的通信功能和PC强大的图形显示、浮点运算等特点，以最大的限度合理的利用了资源，实现了对设备运行状态的监控。