frm_main.frm

基于vb的图书管理系统的设计

VERSION 5.00
Begin VB.Form frm_main 
   Caption         =   "图书管理信息系统"
   ClientHeight    =   8310
   ClientLeft      =   60
   ClientTop       =   240
   ClientWidth     =   10485
   LinkTopic       =   "Form1"
   Picture         =   "frm_main.frx":0000
   ScaleHeight     =   8310
   ScaleWidth      =   10485
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu system_ts 
      Caption         =   "系统(&S)"
      Begin VB.Menu serscar_manage 
         Caption         =   "密码管理"
      End
      Begin VB.Menu manage_tushu 
         Caption         =   "管理员管理"
      End
      Begin VB.Menu line1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuj 
         Caption         =   "退出系统"
         Index           =   3
         Shortcut        =   ^A
      End
   End
   Begin VB.Menu data_manage 
      Caption         =   "数据管理(&I)"
      Begin VB.Menu mnua 
         Caption         =   "借还图书"
         Index           =   3
      End
      Begin VB.Menu mnui 
         Caption         =   "借阅盘点"
         Index           =   2
      End
      Begin VB.Menu line2 
         Caption         =   "-"
      End
      Begin VB.Menu data_bak 
         Caption         =   "数据备份"
      End
      Begin VB.Menu line3 
         Caption         =   "-"
      End
      Begin VB.Menu clear_data 
         Caption         =   "数据清理"
      End
   End
   Begin VB.Menu fsdfsd 
      Caption         =   "图书管理(&T)"
      Begin VB.Menu manage 
         Caption         =   "图书库存管理"
      End
      Begin VB.Menu line4 
         Caption         =   "-"
      End
      Begin VB.Menu add_book 
         Caption         =   "图书类型"
      End
   End
   Begin VB.Menu fdsf 
      Caption         =   "读者管理(&D)"
      Begin VB.Menu add 
         Caption         =   "读者数据类型"
      End
      Begin VB.Menu line5 
         Caption         =   "-"
      End
      Begin VB.Menu reader_manage 
         Caption         =   "读者数据管理"
      End
   End
   Begin VB.Menu seek 
      Caption         =   "查询(&U)"
      Begin VB.Menu seek_reader 
         Caption         =   "读者数据查询"
      End
      Begin VB.Menu line6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuc 
         Caption         =   "图书信息查询"
         Index           =   2
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助(&H)"
   End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub add_book_Click()
frm_BookType.Show
'frm_Storebook.Show

End Sub

Private Sub add_Click()
frm_ReaderType.Show

End Sub

Private Sub clear_data_Click()
frm_Clear.Show

End Sub

Private Sub data_bak_Click()
frm_BackUp.Show

End Sub

Private Sub help_Click()
frm_About.Show

End Sub

Private Sub manage_Click()
frm_Storebook.Show

End Sub

Private Sub manage_tushu_Click()
frm_Advance.Show

End Sub

Private Sub mnua_Click(Index As Integer)
frm_Borrow.Show
End Sub

Private Sub mnuc_Click(Index As Integer)
frm_BookFind.Show
End Sub

Private Sub mnui_Click(Index As Integer)
frm_PD.Show
End Sub

Private Sub mnuj_Click(Index As Integer)
frm_exit.Show
End Sub

Private Sub reader_manage_Click()
frm_Reader.Show

End Sub

Private Sub seek_reader_Click()
frm_ReaderFind.Show


End Sub

Private Sub serscar_manage_Click()
frm_PWD.Show

End Sub