End If End Sub change(inputstr, start1 As Integer, start2 As Integer)用于转换采集到的数据，其功能是将采集到的产量数据转换为十进制。其代码如下： Public Function change(inputstr, start1 As Integer, start2 As Integer)     str_low = Mid(inputstr, start1, 4) 读寄存器中的数据赋给低字节     str_high = Mid(inputstr, start2, 4) 读寄存器中的数据赋给高字节     str_hex = str_high + str_low 整合高低字节数据     str_input = Val("&H" + str_hex) 将十六进制数据转换成十进制     If str_input >= -32768 And str_input <= -1 Then 将转换成十进制处于-32768~32767的数据转换为相应的正数         str_input = str_input + 65536     End If     change = str_input / 1000 返回值 取三位小数 End Function 3)信息查询 信息查询界面如下所示，可对已经保存的生产数据根据时间、班次、产量、车号进行综合查询。 该功能的程序方面比较简单，主要是对数据库的查询操作。以单独对班次查询为例，其代码如下： 按班次查询子函数，用于判断其搜索关键字是否有效 Private Sub Chk_team_Click()     If Chk_team.Value = 1 Then         Combo_team.Enabled = True     Else         Combo_team.Enabled = False     End If End Sub 选择班次子函数，用于判断所选班次 Private Sub Combo_team_Click()     Dim liner_str     Select Case Combo_team.ListIndex         Case 0             liner_str = "甲班"         Case 1             liner_str = "乙班"         Case 2             liner_str = "丙班"         Case 3             liner_str = "丁班"     End Select End Sub 班次查询子函数，获取查询字符串 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 班次, "