|
|
基于VB及台达触摸屏的监控系统在纺机中的应用 |
|
|
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强大的图形显示、浮点运算等特点，以最大的限度合理的利用了资源，实现了对设备运行状态的监控。 (end) |
|
|
|
| |
|
|
|
|
