?? mdiform1.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm MDIForm1
BackColor = &H00808080&
Caption = "主菜單"
ClientHeight = 7110
ClientLeft = 4155
ClientTop = 2490
ClientWidth = 9615
LinkTopic = "MDIForm1"
Picture = "MDIForm1.frx":0000
Begin MSComctlLib.ImageList ImageList1
Left = 5280
Top = 1440
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 55
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":116C7
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":12C19
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":14013
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":15365
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":16837
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":17CB9
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 795
Left = 0
TabIndex = 0
Top = 0
Width = 9615
_ExtentX = 16960
_ExtentY = 1402
ButtonWidth = 1640
ButtonHeight = 1349
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "SC"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "添加用戶"
Key = "SB"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "密碼修改"
Key = "SA"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "書籍類別"
Key = "plm"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "書籍信息"
Key = "JAF"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "幫助"
Key = "AB"
ImageIndex = 6
EndProperty
EndProperty
End
Begin VB.Menu S
Caption = "系統(tǒng)"
Begin VB.Menu SA
Caption = "修改密碼"
End
Begin VB.Menu SB
Caption = "添加用戶"
End
Begin VB.Menu SC
Caption = "退出"
End
End
Begin VB.Menu R
Caption = "讀者管理"
Begin VB.Menu RB
Caption = "修改讀者信息"
End
Begin VB.Menu RD
Caption = "查詢讀者信息"
End
End
Begin VB.Menu J
Caption = "書籍管理"
Begin VB.Menu JA
Caption = "書籍類別管理"
Begin VB.Menu plm
Caption = "書籍類別列表"
End
Begin VB.Menu JAB
Caption = "修改書籍類別"
End
End
Begin VB.Menu JAD
Caption = "書籍信息管理"
Begin VB.Menu JAF
Caption = "修改書籍信息"
End
Begin VB.Menu JAH
Caption = "查詢書籍信息"
End
End
End
Begin VB.Menu Y
Caption = "借閱信息管理"
Begin VB.Menu YA
Caption = "借書信息管理"
Begin VB.Menu YAB
Caption = "修改借書信息"
End
Begin VB.Menu YAD
Caption = "查詢借書信息"
End
End
Begin VB.Menu YAE
Caption = "還書信息管理"
Begin VB.Menu YAG
Caption = "修改還書信息"
End
Begin VB.Menu YAH
Caption = "查詢還書信息"
End
End
End
Begin VB.Menu dy
Caption = "打印"
Begin VB.Menu dy1
Caption = "書籍信息表"
End
Begin VB.Menu dy2
Caption = "借閱信息表"
End
End
Begin VB.Menu B
Caption = "幫助"
Begin VB.Menu AB
Caption = "About"
End
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub AB_Click()
幫助.Show
End Sub
Private Sub dy1_Click()
DataReport2.Show
End Sub
Private Sub dy2_Click()
DataReport1.Show
End Sub
Private Sub JAB_Click()
書籍類別.Show
End Sub
Private Sub JAF_Click()
書籍信息.Show
End Sub
Private Sub RA_Click()
讀者信息添加.Show
End Sub
Private Sub JAH_Click()
書籍信息查詢.Show
End Sub
Private Sub MDIForm_Load()
MDIForm1.Height = Screen.Height
MDIForm1.Width = Screen.Width
MDIForm1.Top = 0
MDIForm1.Left = 0
End Sub
Private Sub plm_Click()
書籍類別列表.Show
End Sub
Private Sub RB_Click()
讀者信息添加.Show
End Sub
Private Sub RD_Click()
讀者信息查詢.Show
End Sub
Private Sub SA_Click()
修改密碼.Show
End Sub
Private Sub SB_Click()
添加用戶.Show
End Sub
Private Sub SC_Click()
Unload Me
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "SB"
SB_Click
Case "SA"
SA_Click
Case "plm"
plm_Click
Case "JAF"
JAF_Click
Case "AB"
AB_Click
Case "SC"
SC_Click
End Select
End Sub
Private Sub YAB_Click()
借書信息添加.Show
End Sub
Private Sub YAD_Click()
借書信息查詢.Show
End Sub
Private Sub YAG_Click()
還書信息.Show
End Sub
Private Sub YAH_Click()
還書信息查詢.Show
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -