frma.frm

第一次用VB编写的图书管理系统,仅供大家参考,呵呵,不足之处多多包含

VERSION 5.00
Begin VB.Form Frmglyuan 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "管理员登陆"
   ClientHeight    =   1500
   ClientLeft      =   2760
   ClientTop       =   2580
   ClientWidth     =   4020
   Icon            =   "FrmA.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1500
   ScaleWidth      =   4020
   ShowInTaskbar   =   0   'False
   Begin VB.ComboBox cmbName 
      Height          =   300
      Left            =   1320
      TabIndex        =   5
      Text            =   "Combo1"
      Top             =   240
      Width           =   2175
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确认(&O)"
      Height          =   275
      Index           =   0
      Left            =   1680
      TabIndex        =   1
      Top             =   1125
      Width           =   855
   End
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "返回(&R)"
      Height          =   275
      Index           =   1
      Left            =   2880
      TabIndex        =   2
      Top             =   1125
      Width           =   855
   End
   Begin VB.TextBox txtPwd 
      ForeColor       =   &H000000FF&
      Height          =   270
      IMEMode         =   3  'DISABLE
      Left            =   1320
      MaxLength       =   16
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   720
      Width           =   2175
   End
   Begin VB.Label lblName 
      AutoSize        =   -1  'True
      Caption         =   "操作员名称"
      ForeColor       =   &H8000000D&
      Height          =   180
      Left            =   360
      TabIndex        =   4
      Top             =   285
      Width           =   900
   End
   Begin VB.Label lblPwd 
      AutoSize        =   -1  'True
      Caption         =   "操作员口令"
      ForeColor       =   &H8000000D&
      Height          =   180
      Left            =   360
      TabIndex        =   3
      Top             =   765
      Width           =   900
   End
End
Attribute VB_Name = "Frmglyuan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub cmdOK_Click(Index As Integer)
If Index = 1 Then Unload Me: Unload FrmAdmini: Load FrmMain: FrmMain.Show: Exit Sub
QueryInfo ("select * from Administrator where name='" & Choose(cmbName.Text) & "'")
If DBRct.EOF Then MsgBox "用户名不存在！", vbInformation, "出错": Exit Sub
DBRct.MoveFirst
If DBRct.Fields("pwd") = Choose(txtpwd) Then
    'FrmAL.Hide
    MsgBox "欢迎登陆系统！" & Chr(13) & "操作员:" & cmbName.Text & Chr(10) & "今天是:" & Format(Date, "yyyy年mm月d日"), vbInformation + vbOKOnly, "基本信息"
    Unload Me: Load FrmAdmini: FrmAdmini.Show
Else
    MsgBox "输入的操作员名或口令非法！" & vbCrLf & "请注意大小写,重新输入吗？", vbInformation, "登陆失败"
    txtpwd = ""
    txtpwd.SetFocus
End If
End Sub


Private Sub cmdOk_KeyPress(Index As Integer, KeyAscii As Integer)
If Chr(KeyAscii) = "o" Or Chr(KeyAscii) = "O" Then cmdOK_Click (0)
If Chr(KeyAscii) = "r" Or Chr(KeyAscii) = "R" Then cmdOK_Click (1)
End Sub

Private Sub Form_Load()
Unload FrmMain
If QueryInfo("select * from Administrator") = False Then End
 DBRct.MoveFirst
 Do Until DBRct.EOF
 cmbName.AddItem DBRct.Fields("name").Value
 DBRct.MoveNext
 Loop
 cmbName.ListIndex = 0
 cmdOK(0).Enabled = False
End Sub

Private Sub cmbName_change()
If txtpwd.Text <> "" And cmbName.Text <> "" Then
 cmdOK(0).Enabled = True
Else: cmdOK(0).Enabled = False
End If
End Sub

Private Sub txtpwd_Change()
If txtpwd.Text <> "" And cmbName.Text <> "" Then
 cmdOK(0).Enabled = True
Else: cmdOK(0).Enabled = False
End If
End Sub

Private Sub txtpwd_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then cmdOK_Click (0)
End Sub