frmhandover.frm

智能门锁的程序,用于控制门锁发卡程序,是科布尔的

VERSION 5.00
Begin VB.Form FrmHandOver 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "交接班窗口"
   ClientHeight    =   8625
   ClientLeft      =   -780
   ClientTop       =   -270
   ClientWidth     =   11340
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8625
   ScaleWidth      =   11340
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame1 
      Caption         =   "上班操作员输入"
      Height          =   3135
      Left            =   3000
      TabIndex        =   0
      Top             =   2880
      Width           =   5895
      Begin VB.CommandButton CmdAccept 
         Caption         =   "进入系统"
         Default         =   -1  'True
         Height          =   495
         Left            =   3960
         TabIndex        =   6
         Top             =   960
         Width           =   1335
      End
      Begin VB.CommandButton CmdCancel 
         Cancel          =   -1  'True
         Caption         =   "退出系统"
         Height          =   495
         Left            =   3960
         TabIndex        =   5
         Top             =   1800
         Width           =   1335
      End
      Begin VB.TextBox TxtPassWord 
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   1800
         MaxLength       =   6
         PasswordChar    =   "*"
         TabIndex        =   2
         Top             =   1920
         Width           =   1695
      End
      Begin VB.TextBox TxtUserName 
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   1800
         MaxLength       =   8
         TabIndex        =   1
         Top             =   1080
         Width           =   1695
      End
      Begin VB.Label LblUserName 
         Caption         =   "用户名（&U)："
         Height          =   255
         Left            =   480
         TabIndex        =   4
         Top             =   1200
         Width           =   1335
      End
      Begin VB.Label LblPassWord 
         Caption         =   "密码（&P)："
         Height          =   375
         Left            =   720
         TabIndex        =   3
         Top             =   2040
         Width           =   1095
      End
   End
   Begin VB.Label LblHeader 
      Alignment       =   2  'Center
      Caption         =   "操作员交接班"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3720
      TabIndex        =   7
      Top             =   960
      Width           =   4095
   End
   Begin VB.Line Line1 
      X1              =   3600
      X2              =   7800
      Y1              =   1560
      Y2              =   1560
   End
End
Attribute VB_Name = "FrmHandOver"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim iCheckCount As Integer
Dim CancelValue As Integer
Private Sub CmdAccept_Click()
        Dim OldUserName, OldUserCode As String
        If TxtUserName.Text = "" Then
             MsgBox "请输入用户名！", vbInformation + vbOKOnly, "提示"
             Exit Sub
        End If
        OldUserName = gUserName
        OldUserCode = gUserCode
        If UserCheck(TxtUserName.Text, TxtPassWord.Text) Then
             gLoginSuccess = True
             If StrComp(gUserType, "O", vbTextCompare) = 0 Then
                   Call OperatorDate_Edit((OldUserName), (OldUserCode))  '加入接班登记
                   Call OperatorDate_Add(gUserName, gUserCode)  '加入接班登记
                   CancelValue = 0
                   Unload Me
               Else
                  MsgBox "SORRY，非操作员权限！", vbInformation + vbOKOnly, "提示"
             End If
          Else
             If iCheckCount > 3 Then
                   gLoginSuccess = False
                   Unload Me
                 Else
                   iCheckCount = iCheckCount + 1
                   MsgBox "用户名或密码错误！", vbInformation + vbOKOnly, "提示"
                   TxtPassWord.Text = ""
              End If
     End If
End Sub
Private Sub CmdCancel_Click()
   II = MsgBox("您确实要退出系统吗?", vbYesNo, "提示")
   If II = vbYes Then
        Call OperatorDate_Edit(gUserName, gUserCode)  '加入接班登记
'        Call OperatorDate_Add(gUserName, gUserCode)  '加入接班登记
   
      End
   End If
End Sub
Private Sub Form_Load()
  iCheckCount = 1
  Caption = Caption & "  当班操作员：" & Trim(gUserName)
  CancelValue = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Cancel = CancelValue
End Sub