门禁考勤机VB源代码，vb考勤管理源代码

 

 

 

详细代码如下（如有疑问可13826029618进行了解询问，或者直接到--www.icmcu.com详细页面下载源码压缩包）

 

 

 

Private Sub Command1_Click()
    If Command1.Caption = "打开端口" Then
        MJ011.DevComPort = Right(Combo1.Text, Len(Combo1.Text) - 3) '端口号
        MJ011.DevComPortOpen = 1
        If MJ011.DevComPortOpen = 1 Then
       
            Command1.Caption = "关闭端口"
        End If
    Else
        MJ011.DevComPortOpen = 0
        Command1.Caption = "打开端口"
       
    End If
End Sub

Private Sub Command13_Click()
    Form2.Show 1
End Sub

Private Sub Command14_Click()
    Form3.Show 1
End Sub

Private Sub Command15_Click()
    Form4.Show 1
End Sub

Private Sub Command2_Click()
    If (Combo2.Text = "RS-485") Then
    '485方式
        MJ011.DevLinkMode = 0
        If MJ011.DevComPortOpen = 1 Then
            MJ011.DevNumber = CLng(Text23.Text)
            MJ011.DevStateRead
           
        Else
            MsgBox "端口未打开！"
            Exit Sub
        End If
    ElseIf (Combo2.Text = "以太网TCPIP") Then
    '以太网方式
        MJ011.DevLinkMode = 1
        MJ011.DevIpAddrStr = Text38.Text

        MJ011.DevStateRead
       

   
    End If
   
    If MJ011.OperatingResults = 0 Then
        If MJ011.DevStateRecNew > 0 Then '有新记录
            Check1.Value = 1
        Else