?? form1.frm
字號(hào):
VERSION 5.00
Begin VB.Form form1
Caption = "圖書管理系統(tǒng)"
ClientHeight = 8535
ClientLeft = 60
ClientTop = 645
ClientWidth = 10830
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8535
ScaleWidth = 10830
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.Label Label1
Caption = "圖書管理系統(tǒng)"
BeginProperty Font
Name = "隸書"
Size = 72
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1575
Left = 600
TabIndex = 0
Top = 2520
Width = 9615
End
Begin VB.Menu book_manage
Caption = "圖書管理"
Begin VB.Menu book_style_manage
Caption = "圖書類別管理"
Begin VB.Menu add_book_style
Caption = "添加圖書類別"
End
Begin VB.Menu modify_book_style
Caption = "修改圖書類別"
End
Begin VB.Menu del_book_style
Caption = "刪除圖書類別"
End
End
Begin VB.Menu book_info_manage
Caption = "圖書信息管理"
Begin VB.Menu add_book_info
Caption = "添加圖書信息"
End
Begin VB.Menu modify_book_info
Caption = "修改圖書信息"
End
Begin VB.Menu del_book_info
Caption = "刪除圖書信息"
End
Begin VB.Menu find_book_info
Caption = "查詢圖書信息"
End
End
End
Begin VB.Menu reader_manage
Caption = "讀者管理"
Begin VB.Menu reader_style_manage
Caption = "讀者類別管理"
Begin VB.Menu add_reader_style
Caption = "添加讀者類別"
End
Begin VB.Menu modify_reader_style
Caption = "修改讀者類別"
End
Begin VB.Menu del_reader_style
Caption = "刪除讀者類別"
End
End
Begin VB.Menu reader_info_manage
Caption = "讀者信息管理"
Begin VB.Menu add_reader_info
Caption = "添加讀者信息"
End
Begin VB.Menu modify_reader_info
Caption = "修改讀者信息"
End
Begin VB.Menu del_reader_info
Caption = "刪除讀者信息"
End
Begin VB.Menu find_reader_info
Caption = "查詢讀者信息"
End
End
End
Begin VB.Menu book_lend
Caption = "圖書借閱管理"
Begin VB.Menu lend_book_manage
Caption = "借書管理"
Begin VB.Menu add_lend_book
Caption = "添加借書信息"
End
Begin VB.Menu find_lend_book
Caption = "查詢借書信息"
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 = "系統(tǒng)管理"
Begin VB.Menu add_admin
Caption = "添加管理員"
End
Begin VB.Menu change_pwd
Caption = "修改密碼"
End
Begin VB.Menu exit_sys
Caption = "退出系統(tǒng)"
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 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 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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -