?? 主窗體.frm
字號(hào):
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm 主窗體
BackColor = &H8000000C&
Caption = "歡迎使用"
ClientHeight = 8310
ClientLeft = 165
ClientTop = 735
ClientWidth = 11805
LinkTopic = "MDIForm1"
LockControls = -1 'True
Picture = "主窗體.frx":0000
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList ImageList1
Left = 5640
Top = 3840
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗體.frx":228F6
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗體.frx":22D48
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗體.frx":2319A
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗體.frx":235EC
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗體.frx":23A3E
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 0
Top = 0
Width = 11805
_ExtentX = 20823
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 5
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "tushu"
Object.ToolTipText = "店內(nèi)圖書(shū)"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "chaxun"
Object.ToolTipText = "查詢"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "baobiao"
Object.ToolTipText = "報(bào)表"
ImageIndex = 4
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "help"
Object.ToolTipText = "幫助"
ImageIndex = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "tuichu"
Object.ToolTipText = "退出"
ImageIndex = 5
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 7935
Width = 11805
_ExtentX = 20823
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 8
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
AutoSize = 1
Bevel = 0
TextSave = "NUM"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Bevel = 0
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Bevel = 0
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Bevel = 0
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Bevel = 0
EndProperty
BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Bevel = 0
EndProperty
BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Bevel = 0
EndProperty
BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 2
AutoSize = 1
Bevel = 0
TextSave = "14:42"
EndProperty
EndProperty
End
Begin VB.Menu mnu_exit
Caption = "退出系統(tǒng)"
Begin VB.Menu mnu_exit1
Caption = "退出"
End
End
Begin VB.Menu num_main
Caption = "本店信息"
Begin VB.Menu num_book
Caption = "店內(nèi)藏書(shū)"
End
Begin VB.Menu num_found
Caption = "分類查詢"
End
End
Begin VB.Menu mnu_gli
Caption = "管理人員入口"
Begin VB.Menu num_member
Caption = "修改會(huì)員資料"
End
Begin VB.Menu mnu_sjgl
Caption = "數(shù)據(jù)管理"
End
End
Begin VB.Menu bb
Caption = "報(bào)表"
End
Begin VB.Menu help
Caption = "幫助"
End
Begin VB.Menu num_about
Caption = "關(guān)于"
End
End
Attribute VB_Name = "主窗體"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub num_buybook_Click()
End Sub
Private Sub num_dook_Click()
End Sub
Private Sub bb_Click()
報(bào)表.Show
End Sub
Private Sub help_Click()
MsgBox "幫助文檔在本程序的目錄里"
End Sub
Private Sub mnu_exit1_Click()
退出驗(yàn)證.Show
Unload Me
End Sub
Private Sub mnu_sjgl_Click()
管理員驗(yàn)證.Show
End Sub
Private Sub num_about_Click()
關(guān)于.Show
End Sub
Private Sub num_book_Click()
選購(gòu).Show
End Sub
Private Sub num_found_Click()
查詢.Show
End Sub
Private Sub num_man_Click()
選購(gòu).Show
End Sub
Private Sub num_member_Click()
會(huì)員驗(yàn)證.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
num_book_Click
ElseIf Button.Index = 2 Then
num_found_Click
ElseIf Button.Index = 3 Then
bb_Click
ElseIf Button.Index = 4 Then
help_Click
ElseIf Button.Index = 5 Then
mnu_exit1_Click
End If
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -