form1.frm

VB图书管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Main 
   Caption         =   "图书信息管理系统 V1.0"
   ClientHeight    =   8535
   ClientLeft      =   60
   ClientTop       =   645
   ClientWidth     =   10830
   Icon            =   "form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   8535
   ScaleWidth      =   10830
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   1
      Top             =   8160
      Width           =   10830
      _ExtentX        =   19103
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   5
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   4498
            MinWidth        =   4498
            Text            =   "当前用户："
            TextSave        =   "当前用户："
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   4304
            MinWidth        =   4304
            Text            =   "图书信息管理系统 V1.0"
            TextSave        =   "图书信息管理系统 V1.0"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Object.Width           =   4304
            MinWidth        =   4304
            TextSave        =   "2007-6-27"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5292
            MinWidth        =   5292
            Text            =   "作者：技师软件06.2班 李士军"
            TextSave        =   "作者：技师软件06.2班 李士军"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   6068
            MinWidth        =   6068
            Text            =   "技术支持：E-Mail:[e-mail]"
            TextSave        =   "技术支持：E-Mail:[e-mail]"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   795
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10830
      _ExtentX        =   19103
      _ExtentY        =   1402
      ButtonWidth     =   1455
      ButtonHeight    =   1349
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   14
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "借书"
            Key             =   "Borrow"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "还书"
            Key             =   "Back"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "借阅查询"
            Key             =   "BorrowQuery"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "图书查询"
            Key             =   "BookQuery"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "读者查询"
            Key             =   "ReaderQuery"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "添加读者"
            Key             =   "ReaderManage"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "添加图书"
            Key             =   "BookManage"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "Exit"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            ImageIndex      =   9
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   10200
      Top             =   720
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   42
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   9
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "form1.frx":0CCE
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "form1.frx":1D22
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "form1.frx":3536
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "form1.frx":40CA
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "form1.frx":5186
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "form1.frx":5DDA
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "form1.frx":6A2E
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "form1.frx":74D2
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "form1.frx":858E
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Image WelcomeImage 
      Height          =   13335
      Left            =   120
      Picture         =   "form1.frx":9AB2
      Stretch         =   -1  'True
      Top             =   840
      Width           =   18975
   End
   Begin VB.Menu book_manage 
      Caption         =   "图书管理(&M)"
      Begin VB.Menu book_style_manage 
         Caption         =   "图书类别管理"
         Begin VB.Menu add_book_style 
            Caption         =   "添加图书类别(&A)"
         End
         Begin VB.Menu modify_book_style 
            Caption         =   "修改图书类别(&T)"
         End
         Begin VB.Menu del_book_style 
            Caption         =   "删除图书类别(&D)"
         End
      End
      Begin VB.Menu book_info_manage 
         Caption         =   "图书信息管理"
         Begin VB.Menu add_book_info 
            Caption         =   "添加图书信息(&A)"
         End
         Begin VB.Menu modify_book_info 
            Caption         =   "修改图书信息(&B)"
         End
         Begin VB.Menu del_book_info 
            Caption         =   "删除图书信息(&D)"
         End
         Begin VB.Menu find_book_info 
            Caption         =   "查询图书信息(&Q)"
         End
      End
   End
   Begin VB.Menu reader_manage 
      Caption         =   "读者管理(&R)"
      Begin VB.Menu reader_style_manage 
         Caption         =   "读者类别管理"
         Begin VB.Menu add_reader_style 
            Caption         =   "添加读者类别(&A)"
         End
         Begin VB.Menu modify_reader_style 
            Caption         =   "修改读者类别(&R)"
         End
         Begin VB.Menu del_reader_style 
            Caption         =   "删除读者类别(&D)"
         End
      End
      Begin VB.Menu reader_info_manage 
         Caption         =   "读者信息管理"
         Begin VB.Menu add_reader_info 
            Caption         =   "添加读者信息(&A)"
         End
         Begin VB.Menu modify_reader_info 
            Caption         =   "修改读者信息(&R)"
         End
         Begin VB.Menu del_reader_info 
            Caption         =   "删除读者信息(&R)"
         End
         Begin VB.Menu find_reader_info 
            Caption         =   "查询读者信息(&Q)"
         End
      End
   End
   Begin VB.Menu book_lend 
      Caption         =   "图书借阅管理(&B)"
      Begin VB.Menu lend_book_manage 
         Caption         =   "借书管理"
         Begin VB.Menu add_lend_book 
            Caption         =   "添加借书信息(&A)"
         End
         Begin VB.Menu find_lend_book 
            Caption         =   "查询借书信息(&Q)"
         End
      End
      Begin VB.Menu back_book_manage 
         Caption         =   "还书管理"
         Begin VB.Menu add_back_book 
            Caption         =   "添加还书信息"
         End
      End
   End
   Begin VB.Menu sys_manage 
      Caption         =   "系统管理(&S)"
      Begin VB.Menu add_admin 
         Caption         =   "添加管理员(&A)"
      End
      Begin VB.Menu change_pwd 
         Caption         =   "修改密码(&A)"
      End
      Begin VB.Menu exit_sys 
         Caption         =   "退出系统(&E)"
      End
   End
   Begin VB.Menu Help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu UserHelp 
         Caption         =   "使用帮助(&H)"
      End
      Begin VB.Menu AboutMe 
         Caption         =   "关于(&A)"
      End
   End
End
Attribute VB_Name = "Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub AboutMe_Click()
frmAbout.Show
End Sub

Private Sub add_admin_Click()
frmadduser.Show
End Sub

Private Sub add_back_book_Click()
frmbackbookinfo.Show
End Sub

Private Sub add_book_info_Click()
frmaddbookinfo.Show
End Sub

Private Sub add_book_style_Click()
frmaddbookstyle.Show
End Sub

Private Sub add_lend_book_Click()
frmfindbook.Show
End Sub

Private Sub add_reader_info_Click()
frmaddreaderinfo.Show
End Sub

Private Sub add_reader_style_Click()
frmaddreaderstyle.Show
End Sub

Private Sub change_pwd_Click()
frmchangepwd.Show
End Sub

Private Sub del_book_info_Click()
frmmodifybookinfo.Show
End Sub

Private Sub del_book_style_Click()
frmmodifybookstyle.Show
End Sub

Private Sub del_reader_info_Click()
frmreaderinfo.Show
End Sub

Private Sub del_reader_style_Click()
frmmodifyreaderstyle.Show
End Sub

Private Sub exit_sys_Click()
End
End Sub

Private Sub find_book_info_Click()
frmfindbook.Show
End Sub

Private Sub find_lend_book_Click()
frmfindborrowinfo.Show
End Sub

Private Sub find_reader_info_Click()
frmfindreader.Show
End Sub

Private Sub Image1_Click()

End Sub



Private Sub modify_book_info_Click()
frmmodifybookinfo.Show
End Sub

Private Sub modify_book_style_Click()
frmmodifybookstyle.Show
End Sub

Private Sub modify_reader_info_Click()
frmreaderinfo.Show
End Sub

Private Sub modify_reader_style_Click()
frmmodifyreaderstyle.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
    Case "Borrow"
       frmfindbook.Show
    Case "Back"
       frmbackbookinfo.Show
    Case "BorrowQuery"
       frmfindborrowinfo.Show
    Case "BookQuery"
       frmfindbook.Show
    Case "ReaderQuery"
       frmfindreader.Show
    Case "ReaderManage"
       frmaddreaderinfo.Show
    Case "BookManage"
       frmaddbookinfo.Show
    Case "Exit"
       End
End Select
End Sub