📄 frmdel.frm

📁 行 41: 控件 DTPicker2 的类 MSComCtl2.DTPicker 不是一个已加载的控件类。行 53: 控件 DTPicker1 的类 MSComCtl2.DTPicker 不是一个
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
      TabIndex        =   31
      Top             =   1620
      Width           =   1695
   End
   Begin VB.Label lblEnrollNum 
      AutoSize        =   -1  'True
      Caption         =   "Enroll Number :"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Index           =   0
      Left            =   4200
      TabIndex        =   27
      Top             =   180
      Width           =   1440
   End
   Begin VB.Label lblEMachineNumber 
      AutoSize        =   -1  'True
      Caption         =   "EMachine Number :"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   4200
      TabIndex        =   26
      Top             =   855
      Width           =   1830
   End
End
Attribute VB_Name = "frmdel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdDeleteEnrollData_Click()
    Dim gMachineNumber As Long
    Dim mMachineNumber As Long
    Dim vEnrollNumber As Long
    Dim vEMachineNumber As Long
    Dim vFingerNumber As Long
    Dim vRet As Boolean
    Dim vErrorCode As Long
    Dim lpszIPAddress As String
    gMachineNumber = cmbMachineNumber.Text
    mMachineNumber = gMachineNumber
    If MsgBox("是否真的删除 " & Trim(txtEnrollNumber.Text) & " 登记卡？", vbYesNo + vbQuestion + vbDefaultButton2, "系统提示信息") = vbYes Then

        If optNetworkDevice = True Then
            lpszIPAddress = txtIPAddress(0).Text
            If Trim(lpszIPAddress) <> "" Then
                If SB100BPC1.ConnectTcpip(gMachineNumber, lpszIPAddress, CLng(txtPortNo.Text), CLng(txtPassword.Text)) = True Then
                    vEnrollNumber = Val(txtEnrollNumber.Text)
                    vEMachineNumber = cmbEMachineNumber.Text
                    vFingerNumber = 11
                    vRet = SB100BPC1.DeleteEnrollData(mMachineNumber, vEnrollNumber, vEMachineNumber, vFingerNumber)
                    If vRet Then
                        MsgBox "ip " & lpszIPAddress & " 删除成功！", vbOKOnly + vbExclamation, "系统提示"
                    Else
                         MsgBox "ip " & lpszIPAddress & " 删除失败！", vbOKOnly + vbExclamation, "系统提示"
                    End If
                    
                End If
            End If
            lpszIPAddress = txtIPAddress(1).Text
            If Trim(lpszIPAddress) <> "" Then
                If SB100BPC1.ConnectTcpip(gMachineNumber, lpszIPAddress, CLng(txtPortNo.Text), CLng(txtPassword.Text)) = True Then
                    vEnrollNumber = Val(txtEnrollNumber.Text)
                    vEMachineNumber = cmbEMachineNumber.Text
                    vFingerNumber = 11
                    vRet = SB100BPC1.DeleteEnrollData(mMachineNumber, vEnrollNumber, vEMachineNumber, vFingerNumber)
                    If vRet Then
                        MsgBox "ip " & lpszIPAddress & " 删除成功！", vbOKOnly + vbExclamation, "系统提示"
                    Else
                         MsgBox "ip " & lpszIPAddress & " 删除失败！", vbOKOnly + vbExclamation, "系统提示"
                    End If
                    
                End If
            End If
            lpszIPAddress = txtIPAddress(2).Text
            If Trim(lpszIPAddress) <> "" Then
                If SB100BPC1.ConnectTcpip(gMachineNumber, lpszIPAddress, CLng(txtPortNo.Text), CLng(txtPassword.Text)) = True Then
                    vEnrollNumber = Val(txtEnrollNumber.Text)
                    vEMachineNumber = cmbEMachineNumber.Text
                    vFingerNumber = 11
                    vRet = SB100BPC1.DeleteEnrollData(mMachineNumber, vEnrollNumber, vEMachineNumber, vFingerNumber)
                    If vRet Then
                        MsgBox "ip " & lpszIPAddress & " 删除成功！", vbOKOnly + vbExclamation, "系统提示"
                    Else
                         MsgBox "ip " & lpszIPAddress & " 删除失败！", vbOKOnly + vbExclamation, "系统提示"
                    End If
                    
                End If
            End If
            lpszIPAddress = txtIPAddress(3).Text
            If Trim(lpszIPAddress) <> "" Then
                If SB100BPC1.ConnectTcpip(gMachineNumber, lpszIPAddress, CLng(txtPortNo.Text), CLng(txtPassword.Text)) = True Then
                    vEnrollNumber = Val(txtEnrollNumber.Text)
                    vEMachineNumber = cmbEMachineNumber.Text
                    vFingerNumber = 11
                    vRet = SB100BPC1.DeleteEnrollData(mMachineNumber, vEnrollNumber, vEMachineNumber, vFingerNumber)
                    If vRet Then
                        MsgBox "ip " & lpszIPAddress & " 删除成功！", vbOKOnly + vbExclamation, "系统提示"
                    Else
                         MsgBox "ip " & lpszIPAddress & " 删除失败！", vbOKOnly + vbExclamation, "系统提示"
                    End If
                    
                End If
            End If
            lpszIPAddress = txtIPAddress(4).Text
            If Trim(lpszIPAddress) <> "" Then
                If SB100BPC1.ConnectTcpip(gMachineNumber, lpszIPAddress, CLng(txtPortNo.Text), CLng(txtPassword.Text)) = True Then
                    vEnrollNumber = Val(txtEnrollNumber.Text)
                    vEMachineNumber = cmbEMachineNumber.Text
                    vFingerNumber = 11
                    vRet = SB100BPC1.DeleteEnrollData(mMachineNumber, vEnrollNumber, vEMachineNumber, vFingerNumber)
                    If vRet Then
                        MsgBox "ip " & lpszIPAddress & " 删除成功！", vbOKOnly + vbExclamation, "系统提示"
                    Else
                         MsgBox "ip " & lpszIPAddress & " 删除失败！", vbOKOnly + vbExclamation, "系统提示"
                    End If
                    
                End If
            End If
            lpszIPAddress = txtIPAddress(5).Text
            If Trim(lpszIPAddress) <> "" Then
                If SB100BPC1.ConnectTcpip(gMachineNumber, lpszIPAddress, CLng(txtPortNo.Text), CLng(txtPassword.Text)) = True Then
                    vEnrollNumber = Val(txtEnrollNumber.Text)
                    vEMachineNumber = cmbEMachineNumber.Text
                    vFingerNumber = 11
                    vRet = SB100BPC1.DeleteEnrollData(mMachineNumber, vEnrollNumber, vEMachineNumber, vFingerNumber)
                    If vRet Then
                        MsgBox "ip " & lpszIPAddress & " 删除成功！", vbOKOnly + vbExclamation, "系统提示"
                    Else
                         MsgBox "ip " & lpszIPAddress & " 删除失败！", vbOKOnly + vbExclamation, "系统提示"
                    End If
                    
                End If
            End If
        End If
        If optSerialDevice = True Then
            If SB100BPC1.ConnectSerial(gMachineNumber, CLng(cmbComPort.Text), CLng(cmbBaudrate.Text)) = True Then
                vEnrollNumber = Val(txtEnrollNumber.Text)
                vEMachineNumber = cmbEMachineNumber.Text
                vFingerNumber = 11
                vRet = SB100BPC1.DeleteEnrollData(mMachineNumber, vEnrollNumber, vEMachineNumber, vFingerNumber)
                If vRet Then
                    MsgBox " 删除成功！", vbOKOnly + vbExclamation, "系统提示"
                Else
                     MsgBox " 删除失败！", vbOKOnly + vbExclamation, "系统提示"
                End If
                
            End If
        End If
        SB100BPC1.Disconnect
    End If
End Sub

Private Sub Command1_Click()
    Dim gMachineNumber As Long
    Dim mMachineNumber As Long
    Dim vEnrollNumber As Long
    Dim vEMachineNumber As Long
    Dim vFingerNumber As Long
    Dim vRet As Boolean
    Dim vErrorCode As Long
    Dim lpszIPAddress As String
    gMachineNumber = cmbMachineNumber.Text
    mMachineNumber = gMachineNumber
        If optNetworkDevice = True Then
            lpszIPAddress = txtIPAddress(0).Text
            If Trim(lpszIPAddress) <> "" Then
                If SB100BPC1.ConnectTcpip(gMachineNumber, lpszIPAddress, CLng(txtPortNo.Text), CLng(txtPassword.Text)) = True Then
                    vEnrollNumber = Val(txtEnrollNumber.Text)
                    vEMachineNumber = cmbEMachineNumber.Text
                    vFingerNumber = 11
                    vRet = SB100BPC1.SetDeviceTime(mMachineNumber)
                    If vRet Then
                        MsgBox "ip " & lpszIPAddress & " 时间设置成功！", vbOKOnly + vbExclamation, "系统提示"
                    Else
                         MsgBox "ip " & lpszIPAddress & " 时间设置失败！", vbOKOnly + vbExclamation, "系统提示"
                    End If
                    
                End If
            End If
            lpszIPAddress = txtIPAddress(1).Text
            If Trim(lpszIPAddress) <> "" Then
                If SB100BPC1.ConnectTcpip(gMachineNumber, lpszIPAddress, CLng(txtPortNo.Text), CLng(txtPassword.Text)) = True Then
                    vEnrollNumber = Val(txtEnrollNumber.Text)
                    vEMachineNumber = cmbEMachineNumber.Text
                    vFingerNumber = 11
                    vRet = SB100BPC1.SetDeviceTime(mMachineNumber)
                    If vRet Then
                        MsgBox "ip " & lpszIPAddress & " 时间设置成功！", vbOKOnly + vbExclamation, "系统提示"
                    Else
                         MsgBox "ip " & lpszIPAddress & " 时间设置失败！", vbOKOnly + vbExclamation, "系统提示"
                    End If
                    
                End If
            End If
            lpszIPAddress = txtIPAddress(2).Text
            If Trim(lpszIPAddress) <> "" Then
                If SB100BPC1.ConnectTcpip(gMachineNumber, lpszIPAddress, CLng(txtPortNo.Text), CLng(txtPassword.Text)) = True Then
                    vEnrollNumber = Val(txtEnrollNumber.Text)
                    vEMachineNumber = cmbEMachineNumber.Text
                    vFingerNumber = 11
                    vRet = SB100BPC1.SetDeviceTime(mMachineNumber)
                    If vRet Then
                        MsgBox "ip " & lpszIPAddress & " 时间设置成功！", vbOKOnly + vbExclamation, "系统提示"
                    Else
                         MsgBox "ip " & lpszIPAddress & " 时间设置失败！", vbOKOnly + vbExclamation, "系统提示"
                    End If
                    
                End If
            End If
            lpszIPAddress = txtIPAddress(3).Text
            If Trim(lpszIPAddress) <> "" Then
                If SB100BPC1.ConnectTcpip(gMachineNumber, lpszIPAddress, CLng(txtPortNo.Text), CLng(txtPassword.Text)) = True Then
                    vEnrollNumber = Val(txtEnrollNumber.Text)
                    vEMachineNumber = cmbEMachineNumber.Text
                    vFingerNumber = 11
                    vRet = SB100BPC1.SetDeviceTime(mMachineNumber)
                    If vRet Then
                        MsgBox "ip " & lpszIPAddress & " 时间设置成功！", vbOKOnly + vbExclamation, "系统提示"
                    Else
                         MsgBox "ip " & lpszIPAddress & " 时间设置失败！", vbOKOnly + vbExclamation, "系统提示"
                    End If
                    
                End If
            End If
            lpszIPAddress = txtIPAddress(4).Text
            If Trim(lpszIPAddress) <> "" Then
                If SB100BPC1.ConnectTcpip(gMachineNumber, lpszIPAddress, CLng(txtPortNo.Text), CLng(txtPassword.Text)) = True Then
                    vEnrollNumber = Val(txtEnrollNumber.Text)
                    vEMachineNumber = cmbEMachineNumber.Text
                    vFingerNumber = 11
                    vRet = SB100BPC1.SetDeviceTime(mMachineNumber)
                    If vRet Then
                        MsgBox "ip " & lpszIPAddress & " 时间设置成功！", vbOKOnly + vbExclamation, "系统提示"
                    Else
                         MsgBox "ip " & lpszIPAddress & " 时间设置失败！", vbOKOnly + vbExclamation, "系统提示"
                    End If
                    
                End If
            End If
            lpszIPAddress = txtIPAddress(5).Text
            If Trim(lpszIPAddress) <> "" Then
                If SB100BPC1.ConnectTcpip(gMachineNumber, lpszIPAddress, CLng(txtPortNo.Text), CLng(txtPassword.Text)) = True Then
                    vEnrollNumber = Val(txtEnrollNumber.Text)
                    vEMachineNumber = cmbEMachineNumber.Text
                    vFingerNumber = 11
                    vRet = SB100BPC1.SetDeviceTime(mMachineNumber)
                    If vRet Then
                        MsgBox "ip " & lpszIPAddress & " 时间设置成功！", vbOKOnly + vbExclamation, "系统提示"
                    Else
                         MsgBox "ip " & lpszIPAddress & " 时间设置失败！", vbOKOnly + vbExclamation, "系统提示"
                    End If
                    
                End If
            End If
        End If
        If optSerialDevice = True Then
            If SB100BPC1.ConnectSerial(gMachineNumber, CLng(cmbComPort.Text), CLng(cmbBaudrate.Text)) = True Then
                    vEnrollNumber = Val(txtEnrollNumber.Text)
                    vEMachineNumber = cmbEMachineNumber.Text
                    vFingerNumber = 11
                    vRet = SB100BPC1.SetDeviceTime(mMachineNumber)
                    If vRet Then
                        MsgBox "时间设置成功！", vbOKOnly + vbExclamation, "系统提示"
                    Else
                         MsgBox "时间设置失败！", vbOKOnly + vbExclamation, "系统提示"
                    End If
                
            End If
        End If
        SB100BPC1.Disconnect
End Sub
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -