VERSION 5.00
Begin VB.MDIForm 系统主窗体
BackColor = &H8000000C&
Caption = "林林图书管理系统"
ClientHeight = 5250
ClientLeft = 60
ClientTop = 450
ClientWidth = 8025
LinkTopic = "MDIForm1"
StartUpPosition = 2 '屏幕中心
Begin VB.Menu A1
Caption = "图书管理"
Begin VB.Menu A11
Caption = "图书类别管理"
End
Begin VB.Menu A12
Caption = "图书信息管理"
End
Begin VB.Menu sep
Caption = "-"
End
Begin VB.Menu A13
Caption = "查询图书信息"
End
End
Begin VB.Menu B1
Caption = "读者管理"
Begin VB.Menu B11
Caption = "读者类别管理"
End
Begin VB.Menu B12
Caption = "读者信息管理"
End
Begin VB.Menu sep2
Caption = "-"
End
Begin VB.Menu B13
Caption = "查询读者信息"
End
End
Begin VB.Menu C1
Caption = "图书借阅管理"
Begin VB.Menu C11
Caption = "借书管理"
Begin VB.Menu C12
Caption = "添加借书信息"
End
Begin VB.Menu C13
Caption = "查询借书信息"
End
End
Begin VB.Menu C14
Caption = "还书管理"
Begin VB.Menu C15
Caption = "添加还书信息"
End
End
End
Begin VB.Menu D1
Caption = "系统管理"
Begin VB.Menu D11
Caption = "数据库备份"
End
Begin VB.Menu D12
Caption = "数据库恢复"
End
Begin VB.Menu exit
Caption = "退出系统"
End
End
End
Attribute VB_Name = "系统主窗体"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub A11_Click()
图书类别管理.Show
End Sub
Private Sub A12_Click()
图书信息管理.Show
End Sub
Private Sub A13_Click()
查询图书信息.Show
End Sub
Private Sub B11_Click()
读者类别管理.Show
End Sub
Private Sub B12_Click()
读者信息管理.Show
End Sub
Private Sub B13_Click()
查询读者信息.Show
End Sub
Private Sub C12_Click()
添加借书信息.Show
End Sub
Private Sub C13_Click()
查询借书信息.Show
End Sub
Private Sub C15_Click()
添加还书信息.Show
End Sub
Private Sub exit_Click()
End
End Sub