?? frmmain.frm
字號:
VERSION 5.00
Begin VB.MDIForm FrmMain
BackColor = &H8000000C&
Caption = "圖書館管理信息系統"
ClientHeight = 5655
ClientLeft = 165
ClientTop = 750
ClientWidth = 8235
LinkMode = 1 'Source
LinkTopic = "MDIForm1"
StartUpPosition = 2 'CenterScreen
Begin VB.Menu menuSysMan
Caption = "系統管理"
Begin VB.Menu menuAdminMan
Caption = "管理員信息"
End
Begin VB.Menu menuChangePwd
Caption = "個人密碼修改"
End
Begin VB.Menu SPACE1
Caption = "-"
End
Begin VB.Menu menuExit
Caption = "退出"
End
End
Begin VB.Menu menuBorrowMan
Caption = "借書卡業務"
Begin VB.Menu menuBorrower
Caption = "借書卡信息"
End
Begin VB.Menu SPACE2
Caption = "-"
End
Begin VB.Menu menuAddBorrower
Caption = "辦理借書卡"
End
Begin VB.Menu menuDelBorrower
Caption = "注銷借書卡"
End
End
Begin VB.Menu menuBandRMan
Caption = "借/還書業務"
Begin VB.Menu menuBookBorrow
Caption = "借書登記"
Index = 4
End
Begin VB.Menu menuBookReturn
Caption = "還書登記"
Index = 5
End
End
Begin VB.Menu menuStoreMan
Caption = "庫存管理"
Begin VB.Menu menuBookStore
Caption = "庫存信息"
Index = 6
End
Begin VB.Menu menuBookSearch
Caption = "書刊查詢"
Index = 7
End
End
Begin VB.Menu menuHelpMan
Caption = "幫助"
Begin VB.Menu menuAbout
Caption = "About"
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub menuAbout_Click()
frmAbout.Show 1
End Sub
Private Sub menuAddBorrower_Click()
FrmOperBorrower.Show 1
End Sub
Private Sub menuAdminMan_Click()
FrmAdminMan.Show 0
End Sub
Private Sub menuBookBorrow_Click(Index As Integer)
FrmBookBorrow.Show 0
End Sub
Private Sub menuBookReturn_Click(Index As Integer)
FrmBookReturn.Show 0
End Sub
Private Sub menuBookSearch_Click(Index As Integer)
FrmBookSearch.Show 0
End Sub
Private Sub menuBookStore_Click(Index As Integer)
FrmBookStore.Show 0
End Sub
Private Sub menuBorrower_Click()
FrmBorrowerMan.Show 0
End Sub
Private Sub menuChangePwd_Click()
End Sub
Private Sub menuDelBorrower_Click()
FrmDelBorrower.Show 0
End Sub
Private Sub menuExit_Click()
End
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -