form4.frm

vb作的化学试剂测试程序

    Chang_Record.Open "select ID as 自动编号, Jc_Date as 检测日期, Jc_time as 检测时间,Yp_Id as 样品号, Yp_dress as 产地, Yp_cls as 类别, Trans as 透光度, Absorb as 吸光度, Contrl as 抑制率 from nycl " & Cx_sTring & " Order by Jc_Date ", cnn1, , , adCmdText
    Set MSHFlexGrid1.DataSource = Chang_Record
    Set Text1.DataSource = Chang_Record
    Set Text2.DataSource = Chang_Record
    Set Text3.DataSource = Chang_Record
    Set Text4.DataSource = Chang_Record
    Set Text5.DataSource = Chang_Record
    Set Text6.DataSource = Chang_Record
    Set Text7.DataSource = Chang_Record
    Set Text8.DataSource = Chang_Record
    Text1.Refresh
    MSHFlexGrid1.Refresh
    
    Chang_Record.MoveFirst
    Chang_Record.Move (MSHFlexGrid1.Row - 1)
    
    
End Sub

Private Sub Command5_Click()
    Dim addH As Byte, addL As Byte, addA As Long
    Dim lenH As Byte, lenL As Byte, lenA As Long
    
    
    Dim vv As String
    Dim Start_Num, End_Num, ii As Integer
    
    If Val(Text10.Text) = 0 Then
        MsgBox "请输入数字序号！", , "提示"
        Exit Sub
    End If
    
    If Val(Text11.Text) = 0 Then
        MsgBox "请输入数字序号！", "提示"
        Exit Sub
    End If
    
    If Val(Text12.Text) = 0 Then
        MsgBox "请输入数字序号！", "提示"
        Exit Sub
    End If
    
    If Val(Text12.Text) < Val(Text11.Text) Then
        MsgBox "终值序号应小于初值序号，请重新输入！", , "警告"
        Exit Sub
    End If
    
    If MSComm1.PortOpen <> True Then MSComm1.PortOpen = True
    MSComm1.PortOpen = False
    MSComm1.PortOpen = True
    
    MSHFlexGrid2.Clear
    
    MSHFlexGrid2.Row = 0
    MSHFlexGrid2.Col = 0
    MSHFlexGrid2.Text = "序号"

    MSHFlexGrid2.Col = 1
    MSHFlexGrid2.Text = "未用"
    
    MSHFlexGrid2.Col = 2
    MSHFlexGrid2.Text = "年月日"
    
    MSHFlexGrid2.Col = 3
    MSHFlexGrid2.Text = "时间"
    
    MSHFlexGrid2.Col = 4
    MSHFlexGrid2.Text = "未用"
    
    MSHFlexGrid2.Col = 5
    MSHFlexGrid2.Text = "抑制率"
    
    MSHFlexGrid2.Col = 6
    MSHFlexGrid2.Text = "吸光度"
    
    MSHFlexGrid2.Col = 7
    MSHFlexGrid2.Text = "SUM"
    
    addH = Val("&H" & "01")
    addL = Val("&H" & "80")
    lenH = Val("&H" & "0")
    lenL = Val("&H" & "10")
    lenA = Val(lenH * 16 + lenL)
   
    If Option3.Value = True Then
        Start_Num = 0
        End_Num = 1000
    Else
        If Option5(0).Value = True Then
            Start_Num = Val(Text10.Text) - 1
            End_Num = Val(Text10.Text)
        Else
            Start_Num = Val(Text11.Text) - 1
            End_Num = Val(Text12.Text)
        End If
    End If
    
    ii = 0
    Erase DataS()
    MSHFlexGrid2.Rows = End_Num - Start_Num + 1
    
    If MSComm1.PortOpen = True Then
        
        For i = Start_Num To End_Num - 1
            addA = &H180 + i * 16
            addH = (addA And &HFF00) / &H100
            addL = (addA And &HFF)
            
            ii = ii + 1
            
            Csy_CmdStr = "RE" & Chr(addH) & Chr(addL) & Chr(lenH) & Chr(lenL) & vbCr
            MSComm1.Output = Csy_CmdStr
            
            Time_Daily (1)
            Do
                DoEvents
                
                K = MSComm1.InBufferCount
        
                If K > 1 Then
        
                    'ReDim DataS(K - 1)
                    DataS = MSComm1.Input
        
                End If
               
            Loop Until K = MSComm1.InBufferCount
            
            vv = Right("0000" & Trim(Str(i + 1)), 4)
                
            MSHFlexGrid2.Row = ii
            MSHFlexGrid2.Col = 0
            MSHFlexGrid2.Text = vv
            
            'Flag
            vv = Right("00" & Trim(Hex(DataS(0))), 2)
            MSHFlexGrid2.Row = ii
            MSHFlexGrid2.Col = 1
            MSHFlexGrid2.Text = vv
            '日期
            
            vv = Right("00" & Trim(Hex(DataS(1))), 2) & "." & Right("00" & Trim(Hex(DataS(2))), 2) & "." & Right("00" & Trim(Hex(DataS(3))), 2)
            MSHFlexGrid2.Row = ii
            MSHFlexGrid2.Col = 2
            MSHFlexGrid2.Text = vv
            
            '时间
            vv = Right("00" & Trim(Hex(DataS(4))), 2) & ":" & Right("00" & Trim(Hex(DataS(5))), 2)
            MSHFlexGrid2.Row = ii
            MSHFlexGrid2.Col = 3
            MSHFlexGrid2.Text = vv
            
            '未用
            vv = Right("00", 2)
            MSHFlexGrid2.Row = ii
            MSHFlexGrid2.Col = 4
            MSHFlexGrid2.Text = vv
            
            '抑制率
            vv = Get_Float(DataS(7), DataS(8), DataS(9), DataS(10))
            'vv = Val(vv)
            MSHFlexGrid2.Row = ii
            MSHFlexGrid2.Col = 5
            MSHFlexGrid2.Text = Format(Val(vv) * 100, "##.#")
            
            '吸光度
            vv = Get_Float(DataS(11), DataS(12), DataS(13), DataS(14))
            MSHFlexGrid2.Row = ii
            MSHFlexGrid2.Col = 6
            MSHFlexGrid2.Text = Format(Val(vv), "0.###")
            
            'SUM
            vv = Right("00" & Trim(Hex(DataS(15))), 2)
            MSHFlexGrid2.Row = ii
            MSHFlexGrid2.Col = 7
            MSHFlexGrid2.Text = vv
            
        Next i
    End If
    
    MSComm1.PortOpen = False
End Sub

Private Sub Command6_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    
    win_Flag = 0
    
    
    On Error GoTo ErrP
    strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Form1.App.Path & "\nycl.mdb;Persist Security Info=False;"
    Set cnn1 = New ADODB.Connection
    
    cnn1.Errors.Clear
    cnn1.Open strCnn
    
    Set Chang_Record = New ADODB.Recordset
    
    Chang_Record.LockType = adLockOptimistic
            
    Chang_Record.Open "select ID as 自动编号, Jc_Date as 检测日期, Jc_time as 检测时间,Yp_Id as 样品号, Yp_dress as 产地, Yp_cls as 类别, Trans as 透光度, Absorb as 吸光度, Contrl as 抑制率 from nycl where Comp_Val=0 Order by Jc_Date ", cnn1, , , adCmdText

    Set MSHFlexGrid1.DataSource = Chang_Record
    Set Text1.DataSource = Chang_Record
    Set Text2.DataSource = Chang_Record
    Set Text3.DataSource = Chang_Record
    Set Text4.DataSource = Chang_Record
    Set Text5.DataSource = Chang_Record
    Set Text6.DataSource = Chang_Record
    Set Text7.DataSource = Chang_Record
    Set Text8.DataSource = Chang_Record
    Chang_Record.MoveFirst
    
    For i = 0 To 7
        Text9(i).Text = ""
    Next i
    
    MSHFlexGrid2.Row = 0
    MSHFlexGrid2.Col = 0
    MSHFlexGrid2.Text = "序号"

    MSHFlexGrid2.Col = 1
    MSHFlexGrid2.Text = "未用"
    
    MSHFlexGrid2.Col = 2
    MSHFlexGrid2.Text = "年月日"
    
    MSHFlexGrid2.Col = 3
    MSHFlexGrid2.Text = "时间"
    
    MSHFlexGrid2.Col = 4
    MSHFlexGrid2.Text = "未用"
    
    MSHFlexGrid2.Col = 5
    MSHFlexGrid2.Text = "抑制率"
    
    MSHFlexGrid2.Col = 6
    MSHFlexGrid2.Text = "吸光度"
    
    MSHFlexGrid2.Col = 7
    MSHFlexGrid2.Text = "SUM"
    
    Option1.Value = True
    Option3.Value = True
    Frame1.Visible = True
    Frame3.Enabled = False
    Frame5.Visible = False
    Command1.Visible = False
    Command3.Visible = True
    
    Text10.Enabled = False
    Text11.Enabled = False
    Text12.Enabled = False
    
    Label10.Enabled = False
    Label11.Enabled = False
    Label12.Enabled = False
    Option5(0).Enabled = False
    Option5(1).Enabled = False
    
    Get_Csy_Sum
    
    
ErrP: '
    If Err.Number = -2147467259 Then
        MsgBox "数据库错误！请检查数据库！", , "警告"
        menu_Query_db.Enabled = False
        menu_Test_Setup.Enabled = False
        menu_Setup.Enabled = False
        Exit Sub
    End If
End Sub

Private Sub MSHFlexGrid1_Click()
    Chang_Record.MoveFirst
    Chang_Record.Move (MSHFlexGrid1.Row - 1)
    
End Sub

Private Sub Option1_Click()
    Frame1.Visible = True
    Frame5.Visible = False
    Command1.Visible = False
    Command3.Visible = True
End Sub

Private Sub Option2_Click()
    Frame1.Visible = False
    Frame5.Visible = True
    Command1.Visible = True
    Command3.Visible = False

    Chang_Record.MoveFirst
    
    MSHFlexGrid1.RowSel = 1
End Sub

Private Sub Option3_Click()
    Frame3.Enabled = False
    Text10.Enabled = False
    Text11.Enabled = False
    Text12.Enabled = False
    
    Label10.Enabled = False
    Label11.Enabled = False
    Label12.Enabled = False
    Option5(0).Enabled = False
    Option5(1).Enabled = False
End Sub

Private Sub Option4_Click()
    If Option4.Value = True Then
        Frame3.Enabled = True
        Text10.Enabled = True
        Text11.Enabled = True
        Text12.Enabled = True
        
        Label10.Enabled = True
        Label11.Enabled = True
        Label12.Enabled = True
        Option5(0).Enabled = True
        Option5(0).Value = True
        Option5(1).Enabled = True
    End If
End Sub

Private Sub Option5_Click(Index As Integer)
    If Index = 0 Then
        Text10.Enabled = True
        Text11.Enabled = False
        Text12.Enabled = False
        
        Label10.Enabled = True
        Label11.Enabled = False
        Label12.Enabled = True
        
    Else
        Text10.Enabled = False
        Text11.Enabled = True
        Text12.Enabled = True
        
        Label10.Enabled = False
        Label11.Enabled = True
        Label12.Enabled = False
    End If
End Sub