frmcardconfig.frm

考勤机管理软件,用于统计某段时间某个部门或者某个员工在某段内迟到与早退次数.

            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin VB.Label Label4 
            Caption         =   "将卡号注册到考勤机里，需要将卡放在考勤机上。"
            Height          =   375
            Left            =   180
            TabIndex        =   12
            Top             =   315
            Width           =   4335
         End
      End
      Begin XCOMBOXLib.XCombox cmbCardID 
         Height          =   300
         Left            =   765
         TabIndex        =   6
         Top             =   270
         Width           =   1995
         _Version        =   65536
         _ExtentX        =   3519
         _ExtentY        =   300
         _StockProps     =   68
      End
      Begin STEXTBOXLib.STextBox txtEnrollPassword 
         Height          =   285
         Left            =   4005
         TabIndex        =   7
         Top             =   285
         Width           =   1140
         _Version        =   65536
         _ExtentX        =   2011
         _ExtentY        =   503
         _StockProps     =   68
         PasswordChar    =   "*"
      End
      Begin VB.Frame Frame1 
         Height          =   1320
         Left            =   135
         TabIndex        =   1
         Top             =   675
         Width           =   5280
         Begin VB.CheckBox Check1 
            Caption         =   "Check1"
            Height          =   195
            Left            =   2610
            TabIndex        =   2
            Top             =   990
            Width           =   195
         End
         Begin Sinour_ES.sButton cmdWriteCardStandard 
            Height          =   375
            Left            =   3870
            TabIndex        =   3
            Top             =   810
            Width           =   1230
            _ExtentX        =   2170
            _ExtentY        =   661
            BTYPE           =   2
            TX              =   "写卡    "
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   1
            FOCUSR          =   -1  'True
            BCOL            =   14215660
            BCOLO           =   14215660
            FCOL            =   0
            FCOLO           =   0
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "frmCardConfig.frx":0070
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin VB.Label Label3 
            Caption         =   "将选择的卡号写入卡内。如果想写完卡并注册该卡，需要将<写卡并注册>勾上。"
            Height          =   600
            Left            =   1260
            TabIndex        =   5
            Top             =   315
            Width           =   3750
         End
         Begin VB.Image Image1 
            Height          =   480
            Left            =   405
            Picture         =   "frmCardConfig.frx":008C
            Top             =   360
            Width           =   480
         End
         Begin VB.Label Label7 
            AutoSize        =   -1  'True
            Caption         =   "写卡并注册"
            Height          =   195
            Left            =   2880
            TabIndex        =   4
            Top             =   990
            Width           =   900
         End
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "卡号:"
         Height          =   195
         Left            =   270
         TabIndex        =   9
         Top             =   330
         Width           =   405
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "考勤机密码:"
         Height          =   195
         Left            =   2925
         TabIndex        =   8
         Top             =   330
         Width           =   945
      End
   End
End
Attribute VB_Name = "frmCardConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub BtnInitCard_Click()
    If Trim(txtEnrollPassword.Text) <> KQJPWD Then
        Message "考勤机密码不正确!"
        Exit Sub
    End If
    
    frmBatchWriteCard.ZOrder
End Sub

Private Sub cmbCardID_BtnsClick(ByVal nIndex As Integer)
    rstEmployee.Requery
    bufEmployee.DataSource = rstEmployee
    cmbCardID.DataSource = bufEmployee
End Sub

Private Sub cmdLogin_Click()
    If Len(Trim(txtEnrollPassword.Text)) <> 6 Then
        Message "考勤机密码不完整!"
        Exit Sub
    End If
    
    MDI.KQJ.LoginCard txtEnrollPassword.Text
End Sub

Private Sub cmdUnLogin_Click()
    If Len(Trim(txtEnrollPassword.Text)) <> 6 Then
        Message "考勤机密码不完整!"
        Exit Sub
    End If
    MDI.KQJ.UnLoginCard txtEnrollPassword.Text
End Sub

Private Sub cmdUnLoginManual_Click()
    If Trim(cmbCardID.Text) = "" Then
        Message "请输入卡号!"
        Exit Sub
    End If
    If Len(Trim(txtEnrollPassword.Text)) <> 6 Then
        Message "考勤机密码不完整!"
        Exit Sub
    End If
    
    MDI.KQJ.UnLoginCardManual txtEnrollPassword.Text, cmbCardID.Text, dHex
End Sub

Private Sub cmdWriteCardStandard_Click()
    If Trim(cmbCardID.Text) = "" Then
        Message "请输入卡号!"
        Exit Sub
    End If
    
    If Check1 Then
        If Trim(txtEnrollPassword.Text) <> KQJPWD Then
            Message "您已选择<写卡并注册>,考勤机密码不正确!"
            Exit Sub
        End If
    End If
        
    
    Dim sData As String
    sData = cmbCardID.Text
    MDI.KQJ.WriteCardStandard sData, dHex
    
    If Check1 Then MDI.KQJ.LoginCard txtEnrollPassword.Text
        
    
   ' If sCmd = "CmdWriteCardStandard" Then MsgState

End Sub

Private Sub Form_Load()
    Me.Icon = MDI.Icon
    cmbCardID.ShowHeadScale = "0,20,20,20"
    cmbCardID.ShowHeadValue = "EmployeeID,编号,名称,卡号"
    cmbCardID.ShowIndex = 3
    cmbCardID.Type = tStatic
    cmbCardID.SetBtns "刷新"
    cmbCardID.ButtonHeight = 20
'    cmbCardID.DropWidth = cmbCardID.Width \ 15
    cmbCardID.DataSource = bufEmployee
    
    MDI.KQJ.SetKQJMode 2
    
End Sub

Private Sub sButton1_Click()

End Sub