?? form1.frm
字號(hào):
VERSION 5.00
Begin VB.Form Form1
Caption = "圖書(shū)管理系統(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 = "圖書(shū)管理系統(tǒng)"
BeginProperty Font
Name = "隸書(shū)"
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 = "圖書(shū)管理"
Begin VB.Menu book_style_manage
Caption = "圖書(shū)類(lèi)別管理"
Begin VB.Menu add_book_style
Caption = "添加圖書(shū)類(lèi)別"
End
Begin VB.Menu modify_book_style
Caption = "修改圖書(shū)類(lèi)別"
End
Begin VB.Menu del_book_style
Caption = "刪除圖書(shū)類(lèi)別"
End
End
Begin VB.Menu book_info_manage
Caption = "圖書(shū)信息管理"
Begin VB.Menu add_book_info
Caption = "添加圖書(shū)信息"
End
Begin VB.Menu modify_book_info
Caption = "修改圖書(shū)信息"
End
Begin VB.Menu del_book_info
Caption = "刪除圖書(shū)信息"
End
Begin VB.Menu find_book_info
Caption = "查詢(xún)圖書(shū)信息"
End
End
End
Begin VB.Menu reader_manage
Caption = "讀者管理"
Begin VB.Menu reader_style_manage
Caption = "讀者類(lèi)別管理"
Begin VB.Menu add_reader_style
Caption = "添加讀者類(lèi)別"
End
Begin VB.Menu modify_reader_style
Caption = "修改讀者類(lèi)別"
End
Begin VB.Menu del_reader_style
Caption = "刪除讀者類(lèi)別"
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 = "查詢(xún)讀者信息"
End
End
End
Begin VB.Menu book_lend
Caption = "圖書(shū)借閱管理"
Begin VB.Menu lend_book_manage
Caption = "借書(shū)管理"
Begin VB.Menu add_lend_book
Caption = "添加借書(shū)信息"
End
Begin VB.Menu find_lend_book
Caption = "查詢(xún)借書(shū)信息"
End
End
Begin VB.Menu back_book_manage
Caption = "還書(shū)管理"
Begin VB.Menu add_back_book
Caption = "添加還書(shū)信息"
End
End
End
Begin VB.Menu 備份與恢復(fù)
Caption = "備份與恢復(fù)"
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
Private Sub 備份與恢復(fù)_Click()
Form2.Show
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -