frmcard.frm

依时利 EastRiver IC卡考勤机写卡程 VB

VERSION 5.00
Begin VB.Form frmCard 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "新名单"
   ClientHeight    =   2355
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   4695
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2355
   ScaleWidth      =   4695
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   2400
      TabIndex        =   7
      Top             =   1800
      Width           =   1300
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确定"
      Height          =   375
      Left            =   960
      TabIndex        =   6
      Top             =   1800
      Width           =   1300
   End
   Begin VB.TextBox txtNo 
      Height          =   345
      Left            =   960
      MaxLength       =   16
      TabIndex        =   0
      Top             =   240
      Width           =   2895
   End
   Begin VB.TextBox txtId 
      Height          =   360
      Left            =   930
      MaxLength       =   11
      TabIndex        =   2
      Top             =   1200
      Width           =   2895
   End
   Begin VB.TextBox txtName 
      Height          =   345
      Left            =   945
      MaxLength       =   8
      TabIndex        =   1
      Top             =   690
      Width           =   2895
   End
   Begin VB.Label Label1 
      Caption         =   "卡号"
      Height          =   225
      Left            =   375
      TabIndex        =   5
      Top             =   315
      Width           =   465
   End
   Begin VB.Label Label3 
      Caption         =   "工号"
      Height          =   225
      Left            =   345
      TabIndex        =   4
      Top             =   1200
      Width           =   495
   End
   Begin VB.Label Label2 
      Caption         =   "姓名"
      Height          =   240
      Left            =   360
      TabIndex        =   3
      Top             =   765
      Width           =   450
   End
End
Attribute VB_Name = "frmCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public blNew As Boolean
Public cardno As String
Public hPort As Long
Public clockid, clockname As String


Private Sub cmdCancel_Click()
    Unload frmCard
End Sub

Private Sub cmdOk_Click()
    Dim bl As Boolean
    Dim ltmX As ListItem
    
    If txtNo.Text = "" Then
        Exit Sub
    End If
    If blNew Then
        Select Case frmMain.cbListKind.ListIndex
            Case 0
                If EastRiver.DeleteDoorPassCard(hPort, cardno) Then
                    bl = EastRiver.SetDoorPassCard(hPort, "00:00", "24:00", txtNo.Text, txtId.Text)
                End If
            Case 1
                If EastRiver.DeleteAllowedCard(hPort, cardno) Then
                    bl = EastRiver.SetAllowedCard(hPort, txtNo.Text, txtId.Text, txtName.Text)
                End If
            Case 2
                If EastRiver.DeleteBlackCard(hPort, cardno) Then
                    bl = EastRiver.SetBlackCard(hPort, txtNo.Text)
                End If
        End Select
        If bl Then
            frmMain.msg.Caption = "在设备'" & clockid & "-" & clockname & "'修改卡号为'" & txtNo.Text & "'" & frmMain.cbListKind.Text
            frmMain.lvList.SelectedItem.SubItems(2) = txtName.Text
            frmMain.lvList.SelectedItem.Text = txtNo.Text
            frmMain.lvList.SelectedItem.SubItems(1) = txtId.Text
        Else
            frmMain.msg.Caption = "失败"
        End If
    Else
        Select Case frmMain.cbListKind.ListIndex
            Case 0
                    bl = EastRiver.SetDoorPassCard(hPort, "00:00", "24:00", txtNo.Text, txtId.Text)
            Case 1
                    bl = EastRiver.SetAllowedCard(hPort, txtNo.Text, txtId.Text, txtName.Text)
            Case 2
                    bl = EastRiver.SetBlackCard(hPort, txtNo.Text)
        End Select
        If bl Then
            frmMain.msg.Caption = "在设备'" & clockid & "-" & clockname & "'写入卡号为'" & txtNo.Text & "'" & frmMain.cbListKind.Text
            Set ltmX = frmMain.lvList.ListItems.Add
            ltmX.Text = txtNo.Text
            ltmX.SubItems(1) = txtId.Text
            ltmX.SubItems(2) = txtName.Text
        Else
            frmMain.msg.Caption = "失败"
        End If
    End If
    Unload frmCard
End Sub