frm_login.frm

美容院管理系统

VERSION 5.00
Begin VB.Form frm_login 
   BackColor       =   &H0080C0FF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "登录"
   ClientHeight    =   3255
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3150
   ControlBox      =   0   'False
   Icon            =   "frm_login.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3255
   ScaleWidth      =   3150
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0E0FF&
      Cancel          =   -1  'True
      Height          =   420
      Index           =   1
      Left            =   1950
      MaskColor       =   &H00FFFFFF&
      Picture         =   "frm_login.frx":000C
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   2715
      UseMaskColor    =   -1  'True
      Width           =   1065
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0E0FF&
      Default         =   -1  'True
      Height          =   420
      Index           =   0
      Left            =   810
      MaskColor       =   &H00FFFFFF&
      Picture         =   "frm_login.frx":0FC6
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   2715
      UseMaskColor    =   -1  'True
      Width           =   1065
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H00C0E0FF&
      Height          =   285
      IMEMode         =   3  'DISABLE
      Left            =   135
      MaxLength       =   10
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   2265
      Width           =   2880
   End
   Begin VB.ListBox List1 
      BackColor       =   &H00C0E0FF&
      Height          =   1230
      ItemData        =   "frm_login.frx":2724
      Left            =   135
      List            =   "frm_login.frx":2726
      TabIndex        =   0
      Top             =   360
      Width           =   2880
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请输入密码："
      Height          =   180
      Index           =   1
      Left            =   135
      TabIndex        =   3
      Top             =   2010
      Width           =   1080
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请选择操作员："
      Height          =   180
      Index           =   0
      Left            =   135
      TabIndex        =   2
      Top             =   135
      Width           =   1260
   End
End
Attribute VB_Name = "frm_login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
Dim db As Database
Dim rec As Recordset

Private Sub Command1_Click(Index As Integer)
'On Error GoTo kkkerr
If Index = 0 Then
   
    seekstr = "用户='" + List1.Text + "' and 密码='" + Text1.Text + "'"
    rec.FindFirst seekstr
    If rec.NoMatch Then
       MsgBox "您输入的密码与操作员不相符合", vbOKOnly + vbCritical, "错误"
       Text1.SetFocus
       Text1.SelStart = 0
       Text1.SelLength = Len(Text1.Text)
    Else
       Pczy = List1.Text
       frm_main.StatusBar1.Panels(2).Text = Pczy
       frm_main.zx.Caption = "注销 " + Pczy + "(&L)"
      
       Unload Me
       frm_main.Show
    End If
Else
    End
End If
Exit Sub
kkkerr:
    MsgBox Err.Description, vbOKOnly + vbCritical, "错误"
End Sub

Private Sub Form_Activate()
If List1.ListCount <> 0 Then
   List1.ListIndex = 0
   Command1(0).Enabled = True
   
Else
   Command1(0).Enabled = False
End If
Text1.SetFocus

End Sub

Private Sub Form_Load()
Set db = OpenDatabase(AppPath + "datas\mry.mdb", True, False, ";PWD=miracle")
Set rec = db.OpenRecordset("权限表", dbOpenDynaset)
Do While Not rec.EOF
    List1.AddItem rec.Fields("用户")
    rec.MoveNext
Loop

End Sub

Private Sub Form_Unload(Cancel As Integer)
'db.Close
'Set db = Nothing
End Sub

Private Sub List1_Click()
Text1.SetFocus
End Sub

Private Sub Text1_GotFocus()
'Text1.IMEMode = 2
'Text1.SelStart = 0
'Text1.SelLength = Len(Text1.Text)
End Sub