menus.frm

大学毕业的课题,可能比较简单一点,入门的人可以

VERSION 5.00
Begin VB.Form winmenus 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "图书管理系统"
   ClientHeight    =   5145
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6825
   Icon            =   "menus.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5145
   ScaleWidth      =   6825
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Caption         =   "登录信息"
      Height          =   2055
      Left            =   120
      TabIndex        =   0
      Top             =   1320
      Width           =   5520
      Begin VB.CommandButton Command1 
         BackColor       =   &H80000008&
         Caption         =   "退   出"
         Height          =   375
         Left            =   3480
         TabIndex        =   8
         ToolTipText     =   "退出系统"
         Top             =   480
         Width           =   1095
      End
      Begin VB.CommandButton Command2 
         Caption         =   "登   录"
         Height          =   375
         Left            =   3480
         TabIndex        =   7
         ToolTipText     =   "确认密码正确后进入系统"
         Top             =   1080
         Width           =   1095
      End
      Begin VB.TextBox Text1 
         Height          =   360
         IMEMode         =   3  'DISABLE
         Left            =   1200
         MaxLength       =   15
         PasswordChar    =   "*"
         TabIndex        =   6
         Top             =   1320
         Width           =   1920
      End
      Begin VB.TextBox Text2 
         Height          =   360
         Left            =   1200
         TabIndex        =   5
         Top             =   840
         Width           =   1920
      End
      Begin VB.TextBox zgdm 
         Height          =   360
         Left            =   1200
         MaxLength       =   3
         TabIndex        =   4
         Top             =   360
         Width           =   1920
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "代  码："
         Height          =   180
         Left            =   360
         TabIndex        =   3
         Top             =   450
         Width           =   720
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "密  码："
         Height          =   180
         Left            =   360
         TabIndex        =   2
         Top             =   1410
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "用户名："
         Height          =   180
         Left            =   360
         TabIndex        =   1
         Top             =   930
         Width           =   720
      End
   End
   Begin VB.Image Image1 
      Height          =   1215
      Left            =   0
      Picture         =   "menus.frx":0442
      Stretch         =   -1  'True
      Top             =   0
      Width           =   5640
   End
End
Attribute VB_Name = "winmenus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
End
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
End
End Sub

Private Sub Command2_Click()

Set jcktab = data1.OpenRecordset("select * from mmk where cjydm='" + zgdm.Text + "'")
If jcktab.EOF Then
   s = "代码不对,请重新输入!"
   Command2.Enabled = False
   m = MsgBox(s, vbOKOnly + vbCritical, "图书管理系统")
   zgdm.SelStart = 0
   zgdm.SelLength = 4
   zgdm.SetFocus
   Exit Sub
Else
   If jcktab("cjymm") <> Text1.Text Then
      s = "密码不对,请重新输入!"
      m = MsgBox(s, vbOKOnly + vbCritical, "图书管理系统")
      Text1.Text = ""
      Text1.SetFocus
      Text1.SelStart = 0
      Text1.SelLength = 4
   Else
      If Mid$(jcktab("cjyqx"), 1, 1) <> "1" Then
         s = "越权使用,禁止，请重新输入!(无登录权限)"
         m = MsgBox(s, vbOKOnly + vbCritical, "图书管理系统")
         zgdm.Text = ""
         Text2.Text = ""
         Text1.Text = ""
         zgdm.SetFocus
         Exit Sub
      End If
      qxqx = jcktab("cjyqx")
      Command1.Visible = False
      Command2.Visible = False
      Text1.Visible = False
      Text2.Visible = False
      Label1.Visible = False
      Label2.Visible = False
      Label3.Visible = False
      Text1.Visible = False
      data1.Execute "update qxk set cjydm='" + zgdm.Text + "',cjyxm='" + Text2.Text + "',cjyqx='" + qxqx + "'"
      mainboot.Show
      Unload Me
   End If
End If
End Sub

Private Sub zgdm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text1.Text = "": Text1.SetFocus
End Sub
Private Sub zgdm_LostFocus()
Set jcktab = data1.OpenRecordset("select * FROM mmk WHERE CJYDM='" + zgdm.Text + "'")
If Not jcktab.EOF Then Text2.Text = jcktab("cjyxm")
Command2.Enabled = True
Text1.SetFocus
End Sub

Private Sub Form_Load()
On Error Resume Next
Me.Height = 3870
Me.Width = 5835
Set data1 = OpenDatabase(App.Path + "\jck.mdb", True)
data1.NewPassword "", "beautiFul"
Set data1 = OpenDatabase(App.Path + "\jck.mdb", 0, 0, ";pwd=beautiFul")
Set data2 = OpenDatabase(App.Path + "\datak.mdb")
Set myname = data1.OpenRecordset("table1")
Me.Caption = myname("mainame") + "图书管理系统"
Me.Left = Screen.Width / 2 - Me.Width / 2
Me.Top = Screen.Height / 2 - Me.Height / 2
Command2.Enabled = False
End Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command2_Click
End Sub