’班次查询子函数,获取查询字符串
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强大的图形显示、浮点运算等特点,以最大的限度合理的利用了资源,实现了对设备运行状态的监控。
|