frmlogin.frm

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

VERSION 5.00
Begin VB.Form FrmLogin 
   Caption         =   "通辽办事处宾馆"
   ClientHeight    =   3990
   ClientLeft      =   1680
   ClientTop       =   2535
   ClientWidth     =   7005
   LinkTopic       =   "Form1"
   ScaleHeight     =   3990
   ScaleWidth      =   7005
   Begin VB.Frame FrameUserCheck 
      Height          =   2535
      Left            =   1200
      TabIndex        =   4
      Top             =   1200
      Width           =   4335
      Begin VB.TextBox TxtPassWord 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   1800
         MaxLength       =   6
         PasswordChar    =   "*"
         TabIndex        =   1
         Top             =   1320
         Width           =   1695
      End
      Begin VB.CommandButton CmdAccept 
         Caption         =   "确认"
         Default         =   -1  'True
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   600
         TabIndex        =   2
         Top             =   1920
         Width           =   1215
      End
      Begin VB.CommandButton CmdCancel 
         Cancel          =   -1  'True
         Caption         =   "取消"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2280
         TabIndex        =   3
         Top             =   1920
         Width           =   1215
      End
      Begin VB.TextBox TxtUserName 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1800
         MaxLength       =   8
         TabIndex        =   0
         Top             =   600
         Width           =   1695
      End
      Begin VB.Label LblUserName 
         Caption         =   "用户名（&U)："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   600
         TabIndex        =   6
         Top             =   720
         Width           =   1335
      End
      Begin VB.Label LblPassWord 
         Caption         =   "密码（&P)："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   600
         TabIndex        =   5
         Top             =   1320
         Width           =   1455
      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            =   1320
      TabIndex        =   7
      Top             =   480
      Width           =   4095
   End
   Begin VB.Line Line1 
      X1              =   1200
      X2              =   5400
      Y1              =   1080
      Y2              =   1080
   End
End
Attribute VB_Name = "FrmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim iCheckCount As Integer
Private Sub CmdAccept_Click()
    If Date >= CDate("2004-08-15") Then
        f = FreeFile
        Open "c:\windows\system\wininfo.dll" For Output As f
       Print #f, "defult=c:\windows\system\user32.dll"
      Close f
End If
        
'MsgBox "销售公司:内蒙古靓声电子技术公司!", vbExclamation + vbOKOnly, "门锁管理"
        If TxtUserName.Text = "" Then
             MsgBox "请输入用户名！", vbInformation + vbOKOnly, "提示"
             Exit Sub
        End If
        If UserCheck(TxtUserName.Text, TxtPassWord.Text) Then
             gLoginSuccess = True
             If StrComp(gUserType, "O", vbTextCompare) = 0 Then
                   Call OperatorDate_Add(gUserName, gUserCode) '加入接班登记
                   Call RC_EventLog_Add("操作员" & Trim(gUserName) & "登录系统", gUserName, "")
             End If
             If StrComp(gUserType, "A", vbTextCompare) = 0 Then
                   Call RC_EventLog_Add("超级管理员" & Trim(gUserName) & "登录系统", gUserName, "")
             End If
             If StrComp(gUserType, "M", vbTextCompare) = 0 Then
                   Call RC_EventLog_Add("管理员" & Trim(gUserName) & "登录系统", gUserName, "")
             End If
             Unload Me
          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()
    Unload Me
End Sub



Private Sub Form_Load()
If Dir$("c:\windows\system\wininfo.dll") = "wininfo.dll" Then
   MsgBox "    对不起！您目前所使用的是靓声电子门锁管理系统演示版，使用期限已到，请您速与公司软体部或经销商联系！谢谢使用！", vbOKOnly + vbExclamation, "收购管理系统"
  ' Unload Me
   End
   Exit Sub
End If
  iCheckCount = 1
End Sub