frmsupperuser.frm

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

VERSION 5.00
Begin VB.Form frmSupperUser 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "超级用户密码"
   ClientHeight    =   2685
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5520
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2685
   ScaleWidth      =   5520
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   4200
      TabIndex        =   8
      Top             =   2160
      Width           =   1215
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确定(&O)"
      Enabled         =   0   'False
      Height          =   375
      Left            =   2880
      TabIndex        =   7
      Top             =   2160
      Width           =   1155
   End
   Begin VB.Frame Frame1 
      Caption         =   "有效门"
      Height          =   975
      Left            =   120
      TabIndex        =   2
      Top             =   960
      Width           =   5295
      Begin VB.CheckBox ckD4 
         Caption         =   "四号门"
         Height          =   255
         Left            =   3960
         TabIndex        =   6
         Top             =   480
         Value           =   1  'Checked
         Width           =   1095
      End
      Begin VB.CheckBox ckD3 
         Caption         =   "三号门"
         Height          =   255
         Left            =   2640
         TabIndex        =   5
         Top             =   480
         Value           =   1  'Checked
         Width           =   975
      End
      Begin VB.CheckBox ckD2 
         Caption         =   "二号门"
         Height          =   255
         Left            =   1440
         TabIndex        =   4
         Top             =   480
         Value           =   1  'Checked
         Width           =   855
      End
      Begin VB.CheckBox ckD1 
         Caption         =   "一号门"
         Height          =   255
         Left            =   240
         TabIndex        =   3
         Top             =   480
         Value           =   1  'Checked
         Width           =   855
      End
   End
   Begin VB.TextBox txtPwd 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      IMEMode         =   3  'DISABLE
      Left            =   240
      MaxLength       =   6
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   480
      Width           =   5175
   End
   Begin VB.Label Label1 
      Caption         =   $"frmSupperUser.frx":0000
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   2655
   End
End
Attribute VB_Name = "frmSupperUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public PassDoor As String
Public blAdd As Boolean

Private Sub cmdCancel_Click()
    Unload frmSupperUser
End Sub

Private Sub cmdOk_Click()
    Dim ltmX As ListItem
    
    PassDoor = ""
    If ckD1.Value = 1 Then
        PassDoor = PassDoor + "1"
    End If
    If ckD2.Value = 1 Then
        PassDoor = PassDoor + "2"
    End If
    If ckD3.Value = 1 Then
        PassDoor = PassDoor + "3"
    End If
    If ckD4.Value = 1 Then
        PassDoor = PassDoor + "4"
    End If
    If blAdd = False Then
        frmMain.lvDoorPeriods.SelectedItem.SubItems(1) = txtPwd.Text
        frmMain.lvDoorPeriods.SelectedItem.SubItems(2) = PassDoor
    Else
        Set ltmX = frmMain.lvDoorPeriods.ListItems.Add
        ltmX.Text = CStr(frmMain.lvDoorPeriods.ListItems.Count)
        ltmX.SubItems(1) = txtPwd.Text
        ltmX.SubItems(2) = PassDoor
    End If
    Unload frmSupperUser
        
End Sub

Private Sub Form_Load()
    If InStr(1, PassDoor, "1") = 0 Then
        ckD1.Value = 0
    End If
    If InStr(1, PassDoor, "2") = 0 Then
        ckD2.Value = 0
    End If
    If InStr(1, PassDoor, "3") = 0 Then
        ckD3.Value = 0
    End If
    If InStr(1, PassDoor, "4") = 0 Then
        ckD4.Value = 0
    End If
End Sub

Private Sub txtPwd_Change()
    If Len(txtPwd.Text) = 6 Then
        cmdOk.Enabled = True
    Else
        cmdOk.Enabled = False
    End If
End Sub