form1.frm

VB6.0图书管理 使用ACEESE数据库

      End
      Begin VB.Menu line4 
         Caption         =   "-"
      End
      Begin VB.Menu rebookout 
         Caption         =   "续        借(&R)"
         Shortcut        =   {F7}
      End
   End
   Begin VB.Menu sys 
      Caption         =   "系统设置(&S)"
      Begin VB.Menu admin 
         Caption         =   "管理选项(&A)"
      End
      Begin VB.Menu line5 
         Caption         =   "-"
      End
      Begin VB.Menu system 
         Caption         =   "系统选项(&S)"
      End
      Begin VB.Menu line6 
         Caption         =   "-"
      End
      Begin VB.Menu backup 
         Caption         =   "数据备份(&B)"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮    助(&H)"
      Begin VB.Menu helpfile 
         Caption         =   "帮助主题(&H)"
         Shortcut        =   {F1}
      End
      Begin VB.Menu line7 
         Caption         =   "-"
      End
      Begin VB.Menu about 
         Caption         =   "关        于(&A)"
      End
      Begin VB.Menu line8 
         Caption         =   "-"
      End
      Begin VB.Menu writeme 
         Caption         =   "和我联系(&W)"
      End
   End
   Begin VB.Menu traymenu 
      Caption         =   "tray"
      Visible         =   0   'False
      Begin VB.Menu display 
         Caption         =   "还原窗口(&X)"
      End
      Begin VB.Menu line11 
         Caption         =   "-"
      End
      Begin VB.Menu traybookout 
         Caption         =   "借        书(&L)"
      End
      Begin VB.Menu line12 
         Caption         =   "-"
      End
      Begin VB.Menu traybookin 
         Caption         =   "还        书(&T)"
      End
      Begin VB.Menu line13 
         Caption         =   "-"
      End
      Begin VB.Menu trayrebookout 
         Caption         =   "续        借(&R)"
      End
      Begin VB.Menu line15 
         Caption         =   "-"
      End
      Begin VB.Menu exit 
         Caption         =   "退        出(&E)"
      End
   End
   Begin VB.Menu rightmenu 
      Caption         =   "rightmenu"
      Visible         =   0   'False
      Begin VB.Menu norecord 
         Caption         =   "无记录视图"
         Visible         =   0   'False
      End
      Begin VB.Menu linex 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mbookout 
         Caption         =   "借      书"
      End
      Begin VB.Menu mbookin 
         Caption         =   "还      书"
      End
      Begin VB.Menu mrbookout 
         Caption         =   "续      借"
      End
      Begin VB.Menu liney 
         Caption         =   "-"
      End
      Begin VB.Menu ebook 
         Caption         =   "书籍记录"
      End
      Begin VB.Menu estudeny 
         Caption         =   "学生记录"
      End
      Begin VB.Menu ebookout 
         Caption         =   "借阅记录"
      End
   End
End
Attribute VB_Name = "Formmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


'*************************************************************
                    '主窗体
'**************************************************************
'所调用的API函数,自定义过程,类型,常数请参阅相应模块



Option Explicit



' *****************窗体事件********************
'窗体加载
Private Sub Form_Load()
loadmdb Adodc1            '连接数据库
'初始化窗体下方状态栏
StatusBar1.Panels(1).Text = "无记录源"
StatusBar1.Panels(2).Text = "共有记录 0 条"
'从config.ini文件读取窗体及控件的属性
Formmain.Caption = getinistr("system", "formcaption")
Formmain.Caption = Formmain.Caption & "图书管理系统"
Formmain.WindowState = getininum("system", "winstate")
DataGrid1.BackColor = getininum("system", "dgridcolor")
ListView1.BackColor = DataGrid1.BackColor
End Sub

'窗体大小调整
Private Sub Form_Resize()
If WindowState = 1 Then
    '最小化时添加到系统栏
    addicon Formmain, traymenu
    iconshow "寒星图书管理系统"
Else
    '正常显示时控件调整
    Picture1.Move 0, Picture1.Top, ScaleWidth, Picture1.Height
    If ScaleHeight - Toolbar1.Height - Picture1.Height - 20 > 0 Then
        DataGrid1.Move 0, Toolbar1.Height + Picture1.Height, ScaleWidth, ScaleHeight - Toolbar1.Height - Picture1.Height - StatusBar1.Height - 20
    Else
        Exit Sub
    End If
    If ListView1.Visible = True Then
        If ScaleHeight - Toolbar1.Height - Picture1.Height - 20 > 0 Then
            ListView1.Move 0, Toolbar1.Height + Picture1.Height, ScaleWidth, ScaleHeight - Toolbar1.Height - Picture1.Height - StatusBar1.Height - 20
        Else
            Exit Sub
        End If
    End If
End If
End Sub

'窗体卸载
Private Sub Form_Unload(Cancel As Integer)
'卸载所有可见窗体,加载关闭窗体,
Unload formadd
Unload Formabout
Unload Formdel
Unload Formoption
Unload Formsys
Unload Formupdate
Unload Formsys
Formend.Show
End Sub
'*********************菜单事件***********************
'关于
Private Sub about_Click()
Formabout.Show
End Sub
'添加书籍记录
Private Sub addbook_Click()
formadd.Show
formadd.SSTab1.Tab = 0
End Sub
'添加学生记录
Private Sub addstudent_Click()
formadd.Show
formadd.SSTab1.Tab = 1
End Sub
'管理选项
Private Sub admin_Click()
Formsys.Show
Formsys.SSTab1.Tab = 0
End Sub
'备份和恢复
Private Sub backup_Click()
Formsys.Show
Formsys.SSTab1.Tab = 2
End Sub
'借出书籍
Private Sub bookin_Click()
Formoption.Show
Formoption.SSTab1.Tab = 1
End Sub
'归还书籍
Private Sub bookout_Click()
Formoption.Show
Formoption.SSTab1.Tab = 0
End Sub
'删除书籍记录
Private Sub delbook_Click()
Formdel.Show
Formdel.SSTab1.Tab = 0
End Sub
'删除学生记录
Private Sub delstudent_Click()
Formdel.Show
Formdel.SSTab1.Tab = 1
End Sub
'最小化时还原窗体
Private Sub display_Click()
Formmain.WindowState = 0
Formmain.Show
delicon
End Sub
'最小化时退出
Private Sub exit_Click()
Formend.Show
delicon
Unload Formmain
End Sub
'书籍浏览
Private Sub explorbook_Click()
If ListView1.Visible = True Then ListView1.Visible = False
explorrecord Adodc1, DataGrid1, "书籍总表"
StatusBar1.Panels(1).Text = "书籍总表"
StatusBar1.Panels(2).Text = "共有记录 " & Str(Adodc1.Recordset.RecordCount) & "条"
End Sub
'借阅记录浏览
Private Sub explorerout_Click()
If ListView1.Visible = True Then ListView1.Visible = False
explorrecord Adodc1, DataGrid1, "借阅总表"
StatusBar1.Panels(1).Text = "借阅总表"
StatusBar1.Panels(2).Text = "共有记录 " & Str(Adodc1.Recordset.RecordCount) & "条"

End Sub
'学生记录浏览
Private Sub explorstudent_Click()
If ListView1.Visible = True Then ListView1.Visible = False
explorrecord Adodc1, DataGrid1, "学生总表"
StatusBar1.Panels(1).Text = "学生总表"
StatusBar1.Panels(2).Text = "共有记录 " & Str(Adodc1.Recordset.RecordCount) & "条"

End Sub

'帮助主题
Private Sub helpfile_Click()
Shell "hh.exe " & App.Path & "\readme.txt", vbNormalFocus
End Sub








'最小化时归还书籍
Private Sub traybookin_Click()
bookin_Click
End Sub
'最小化时借阅书籍
Private Sub traybookout_Click()
bookout_Click
End Sub
'最小化时续借书籍
Private Sub trayrebookout_Click()
rebookout_Click
End Sub
'更新书籍记录
Private Sub updatebook_Click()
Formupdate.Show
Formupdate.SSTab1.Tab = 0
End Sub
'更新学生记录
Private Sub updatestudent_Click()
Formupdate.Show
Formupdate.SSTab1.Tab = 1
End Sub
'电子邮件
Private Sub writeme_Click()
ShellExecute Me.HWnd, "open", "mailto:[e-mail]", "", App.Path, SW_SHOW
End Sub

'续借操作
Private Sub rebookout_Click()
Formoption.Show
Formoption.SSTab1.Tab = 2
End Sub
'系统设置
Private Sub system_Click()
Formsys.Show
Formsys.SSTab1.Tab = 1
End Sub


'****************其他控件事件过程************************

'*********搜索********
'根据内容下拉列表设置条件下拉列表的选项
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "学生信息"
With Combo2
    .Clear
    .AddItem "学号"
    .AddItem "姓名"
    .AddItem "单位"
    .Text = "学号"
    .Enabled = True
End With
Case "书籍信息"
With Combo2
    .Clear
    .AddItem "书号"
    .AddItem "书名"
    .AddItem "作者"
    .AddItem "类别"
    .AddItem "简介"
    .AddItem "出版社"
    .AddItem "是否借出"
    .Text = "书号"
    .Enabled = True
End With
Case "借阅信息"
With Combo2
    .Clear
    .AddItem "学号"
    .AddItem "书号"
    .Text = "学号"
    .Enabled = True
End With
End Select

End Sub

'执行搜索
Private Sub Image1_Click()
On Error GoTo wrong
If Text1.Text = "" Or Text1.Text = "输入关键字" Then '判断关键字是否为空
MsgBox "请输入关键字！"
Else                     '判断列表文本是否合法
    If Combo1.Text = "" Then
    MsgBox "请选择内容和条件!"
    Else
    '查询
    selectrecord Adodc1, DataGrid1, Left(Combo1.Text, 2) & "总表", Combo2.Text, Text1.Text
    If ListView1.Visible = True Then ListView1.Visible = False
    '窗体状态栏
    StatusBar1.Panels(1).Text = "搜索：" & Combo2.Text & "与“" & Text1.Text & "”接近的" & Combo1.Text
    StatusBar1.Panels(2).Text = "共有记录 " & Str(Adodc1.Recordset.RecordCount) & "条"
    End If
End If
Exit Sub
wrong:   '错误处理
    MsgBox "搜索失败，请选择列表框中所列选项!"
End Sub

'按钮显示状态
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.BorderStyle = 1
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.BorderStyle = 0
End Sub

'关键字文本框
Private Sub Text1_Click()
If Text1.Text = "输入关键字" Then
Text1.Text = ""
End If
End Sub
'工具条事件
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
bookout_Click
Case 2
bookin_Click
Case 3
rebookout_Click
Case 4
formadd.Show
Case 5
Formupdate.Show
Case 6
Formdel.Show
Case 7
Formsys.Show
End Select
End Sub
'弹出菜单
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
norecord.Visible = False
linex.Visible = False
Formmain.PopupMenu rightmenu
End If
End Sub
Private Sub datagrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
norecord.Visible = True
linex.Visible = True
Formmain.PopupMenu rightmenu
Else
Text1.SetFocus
End If
End Sub
Private Sub mbookin_Click()
bookin_Click
End Sub
Private Sub mbookout_Click()
bookout_Click
End Sub

Private Sub mrbookout_Click()
rebookout_Click
End Sub
Private Sub ebook_Click()
explorbook_Click
End Sub

Private Sub ebookout_Click()
explorerout_Click
End Sub

Private Sub estudeny_Click()
explorstudent_Click
End Sub
Private Sub norecord_click()
ListView1.Visible = True
StatusBar1.Panels(1).Text = "无记录源"
StatusBar1.Panels(2).Text = "共有记录 0 条"
End Sub