mainfrm.frm

如果相当好的话 我再提个问题告诉你 你去随便回答下

      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   4440
      Options         =   0
      ReadOnly        =   -1  'True
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "STUDENT"
      Top             =   4560
      Visible         =   0   'False
      Width           =   1980
   End
   Begin VB.Menu DBManage 
      Caption         =   "数据库管理"
      Begin VB.Menu Student 
         Caption         =   "学生档案"
         Shortcut        =   ^X
      End
      Begin VB.Menu Book 
         Caption         =   "图书档案"
         Shortcut        =   ^T
      End
      Begin VB.Menu StudBR 
         Caption         =   "借还书档案"
         Shortcut        =   ^J
      End
      Begin VB.Menu Divl 
         Caption         =   "-"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu BrRt 
      Caption         =   "借还书"
      Begin VB.Menu Borrow 
         Caption         =   "借书"
         Shortcut        =   ^B
      End
      Begin VB.Menu Return 
         Caption         =   "还书"
         Shortcut        =   ^R
      End
   End
   Begin VB.Menu Customer 
      Caption         =   "用户"
      Begin VB.Menu AddPW 
         Caption         =   "添加用户"
         Shortcut        =   ^A
      End
      Begin VB.Menu ModifyPW 
         Caption         =   "修改密码"
         Shortcut        =   ^M
      End
   End
   Begin VB.Menu Help 
      Caption         =   "帮助"
      Begin VB.Menu AboutMain 
         Caption         =   "关于主题"
         Shortcut        =   ^H
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub AboutMain_Click()      '关于窗口
frmAbout.Show 1
End Sub


Private Sub AddPW_Click()
Form6.Show (1)
End Sub

Private Sub Book_Click()     '进入图书档案管理
flag4 = True
flag3 = False
flag5 = False
'调用PASSWORD窗体
form2.Show 1
End Sub

Private Sub Borrow_Click()       '借书
Form7.Command2.Visible = False

Form7.Caption = "借书"
flag1 = True        '表示点击密码窗体的确定按钮后调用借还书窗体
Form7.Show 1
End Sub

Private Sub Combo1_Click()       '数据表改变时的相应操作

If Combo1.text = "学生基本档案表" Then
   Combo2.Visible = True
   Combo3.Visible = False
   Combo4.Visible = False
   'Combo2.text = "姓名"

   Data4.RecordSource = "STUDENT"
   Data4.Refresh
End If
If Combo1.text = "学生借还书档案" Then
   Combo2.Visible = False
   Combo3.Visible = True
   Combo4.Visible = False
   Combo3.text = "学号"
  
   Data4.RecordSource = "STUDBR"
   Data4.Refresh
End If
If Combo1.text = "图书档案表" Then
   Combo2.Visible = False
   Combo3.Visible = False
   Combo4.Visible = True
   Combo4.text = "书名"
   
   Data4.RecordSource = "BOOK"
   Data4.Refresh
End If

End Sub

Private Sub Command2_Click()         '检索
Dim str1, str2 As String
If Combo1.text = "学生基本档案表" Then
   str1 = "STUDENT"
   str2 = Combo2.text
End If
If Combo1.text = "学生借还书档案" Then
   str1 = "STUDBR"
   str2 = Combo3.text
End If
If Combo1.text = "图书档案表" Then
   str1 = "BOOK"
   str2 = Combo4.text
End If

If Text1.text <> "" Then
   Data4.RecordSource = "select * from " + str1 + " where " + str2 + " Like '*" + Text1.text + "*' "
   Data4.Refresh
Else
   MsgBox "请输入检索词!", 48, "提示"
End If
If Data4.Recordset.RecordCount = 0 Then
   MsgBox "记录为空，没有要查找的记录！", 48, "提醒"
End If
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3) = "检索数据表，模糊查询"           '状态条显示内容
End Sub

Private Sub Command3_Click()   '用于刷新DBGrid控件的内容,完全显示数据表内容
Dim Str As String
If Combo1.text = "学生基本档案表" Then
   Str = "STUDENT"
End If
If Combo1.text = "学生借还书档案" Then
   Str = "STUDBR"
End If
If Combo1.text = "图书档案表" Then
   Str = "BOOK"
End If

Data4.RecordSource = Str
Data4.Refresh
Text1.text = ""
End Sub

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3) = "显示所有数据"        '状态条显示内容
End Sub

Private Sub DBGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3) = "显示数据表中的内容"
End Sub

Private Sub DelPW_Click()

End Sub

Private Sub Exit_Click()      '退出程序
Unload Me
End Sub

Private Sub Form_Load()        '装载窗体

Data4.DatabaseName = App.Path + "\mis.mdb"  '连接数据库
Data4.RecordSource = "STUDENT"
Data4.Refresh

StatusBar1.Panels(3).text = "图书管理系统"       '状态条显示内容

'判断用户，如果是Administrator，则可执行所有操作，否则只能执行查询操作
If frmLogin.txtUserName <> "Administrator" Then
   DBManage.Enabled = False
   BrRt.Enabled = False
   AddPW.Enabled = False
   Toolbar1.Buttons(1).Enabled = False
   Toolbar1.Buttons(2).Enabled = False
   Toolbar1.Buttons(3).Enabled = False
   Toolbar1.Buttons(10).Enabled = False
   Toolbar1.Buttons(11).Enabled = False
Else
   ModifyPW.Enabled = False
End If
   
'设置标志变量初始值
flag1 = False
flag3 = False
flag4 = False
flag5 = False

'对Combo1控件(数据表)进行初始化
Combo1.AddItem "学生基本档案表"        '
Combo1.AddItem "学生借还书档案"
Combo1.AddItem "图书档案表"
Combo1.text = "学生基本档案表"

'对Combo2控件(STUDENT表字段)进行初始化
Combo2.AddItem "学号"     '
Combo2.AddItem "姓名"
Combo2.AddItem "班级"
Combo2.AddItem "专业"
Combo2.text = "姓名"
Combo2.Visible = True

'对Combo3控件(STUDBR表字段)进行初始化
Combo3.AddItem "书号"
Combo3.AddItem "学号"
Combo3.AddItem "书名"
Combo3.text = "学号"
Combo3.Visible = False

'对Combo4控件(BOOK表字段)进行初始化
Combo4.AddItem "书号"
Combo4.AddItem "书名"
Combo4.AddItem "著者"
Combo4.text = "书名"
Combo4.Visible = False

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3).text = "图书管理系统"       '状态条显示内容
End Sub

Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3).text = "图书管理系统"          '状态条显示内容
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3).text = "请选择要连接的数据表"      '状态条显示内容
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3).text = "请选择查询字段"           '状态条显示内容
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3).text = "图书管理系统"
End Sub

Private Sub ModifyPW_Click()
Form5.Show 1
End Sub

Private Sub Return_Click()        '还书

Form7.Text2.Enabled = False       '编辑借还书界面
Form7.Command1.Visible = False
Form7.Command2.Visible = True
Form7.Caption = "还书"
flag1 = True        '表示点击密码窗体的确定按钮后调用借还书窗体
Form7.Show 1
End Sub

Private Sub StudBR_Click()         '进入借还书档案管理

flag5 = True
flag3 = False
flag4 = False
'调用PASSWORD窗体
form2.Show 1
End Sub

Private Sub Student_Click()      '进入学生档案管理

flag3 = True
flag4 = False
flag5 = False
'调用PASSWORD窗体
form2.Show (1)
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3).text = "输入检索词"        '状态条显示内容
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)  '工具条按钮编程
Select Case Button.Index
       Case 1               '学生档案管理
            Call Student_Click
       Case 2                     '图书档案管理
            Call Book_Click
       Case 3                  '借还书档案管理
            Call StudBR_Click
       Case 5           '移到第一个记录
            Data4.Recordset.MoveFirst
       Case 6             '移到上一个记录
            Data4.Recordset.MovePrevious
            If Data4.Recordset.BOF Then
               Data4.Recordset.MoveFirst
            End If
       Case 7             '移到下一个记录
            Data4.Recordset.MoveNext
            If Data4.Recordset.EOF Then
               Data4.Recordset.MoveLast
            End If
       Case 8               '移到最后记录
            Data4.Recordset.MoveLast
       Case 10         '借书
            Call Borrow_Click
       Case 11      '还书
            Call Return_Click
       Case 13           '检索
            Call Command2_Click
       Case 14                '刷新数据表内容
            Call Command3_Click
       Case 16
            Call AboutMain_Click
End Select
End Sub

Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3).text = "图书管理系统"     '状态条显示内容
End Sub