frmlogin.frm

数据库实现员工的管理

VERSION 5.00
Begin VB.Form frmLogin 
   BackColor       =   &H0080C0FF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "操作登陆"
   ClientHeight    =   2355
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6495
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   134
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H008080FF&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2355
   ScaleWidth      =   6495
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Left            =   5400
      Top             =   240
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出(&E)"
      Height          =   390
      Left            =   5040
      TabIndex        =   5
      Top             =   1785
      Width           =   1425
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确认(&O)"
      Height          =   390
      Left            =   3480
      TabIndex        =   4
      Top             =   1800
      Width           =   1425
   End
   Begin VB.TextBox txtPwd 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      IMEMode         =   3  'DISABLE
      Left            =   1560
      MaxLength       =   16
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   1200
      Width           =   2220
   End
   Begin VB.TextBox txtName 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1560
      MaxLength       =   16
      TabIndex        =   2
      Text            =   " "
      Top             =   600
      Width           =   2220
   End
   Begin VB.Image imgEye 
      Height          =   495
      Left            =   240
      Picture         =   "frmLogin.frx":0000
      Stretch         =   -1  'True
      Top             =   120
      Width           =   495
   End
   Begin VB.Label lblPwd 
      BackColor       =   &H0080C0FF&
      Caption         =   "操作员口令"
      Height          =   375
      Left            =   480
      TabIndex        =   1
      Top             =   1320
      Width           =   1095
   End
   Begin VB.Label lblName 
      BackColor       =   &H0080C0FF&
      Caption         =   "操作员名称"
      Height          =   375
      Left            =   480
      TabIndex        =   0
      Top             =   720
      Width           =   1095
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim deltax, deltay As Integer


Private Sub cmdExit_Click()
   Unload frmLogin
   End
End Sub

Private Sub cmdOK_Click()
    Dim fault As Integer
    MsgBox "操作员名称为： " & txtName & vbCrLf & "操作员口令 ：" & txtPwd _
    , vbinforation + vbOKOnly, "登录信息"
    Me.Visible = False
    If login(Trim(txtName.Text), Trim(txtPwd.Text)) = True Then
        Unload Me
        frmMain.Show
    Else
        fault = MsgBox("输入的操作员名称或口令非法，请注意输入的大小写，重新输入吗？", vbYesNo, "非法的操作员口令")
        If fault = vbYes Then
            Unload Me
            frmLogin.Show
        Else
            Unload Me
            End
        End If
    End If
End Sub

Private Sub Form_Load()
    txtName.Text = "Administrator"
    cmdOK.Enabled = False
    
    Timer1.Interval = 100
    deltax = 100
    deltay = 100
 End Sub

Private Sub Timer1_Timer()
    imgEye.Move imgEye.Left + (Rnd * (deltax - 1) + 1), imgEye.Top + (Rnd * (deltay - 1) + 1)
    If imgEye.Left < ScaleLeft Then deltax = 100
    If imgEye.Left + imgEye.Width > ScaleLeft + ScaleWidth Then
        deltax = -100
    End If
    If imgEye.Top < ScaleTop Then deltay = 100
    If imgEye.Top + imgEye.Height > ScaleTop + ScaleHeight Then
        deltay = -100
    End If
End Sub


Private Sub Txtname_Change()
    cmdOK.Enabled = True
End Sub

Private Sub Txtname_Click()
    cmdOK.Enabled = True
    txtName.Text = ""
End Sub

Private Sub txtPwd_Click()
    cmdOK.Enabled = True
End Sub