?? frmmain.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain
AutoShowChildren= 0 'False
BackColor = &H8000000C&
Caption = "圖書管理系統"
ClientHeight = 8055
ClientLeft = 165
ClientTop = 855
ClientWidth = 10575
Icon = "frmMain.frx":0000
LinkTopic = "MDIForm1"
LockControls = -1 'True
Picture = "frmMain.frx":0442
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList ImageList1
Left = 240
Top = 5760
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 45
ImageHeight = 45
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4723C
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":48A78
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4A2B4
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4BAF0
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4D32C
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4D780
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4EA04
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 1050
Left = 0
TabIndex = 1
Top = 0
Width = 10575
_ExtentX = 18653
_ExtentY = 1852
ButtonWidth = 2090
ButtonHeight = 1693
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 13
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "圖書管理(&B)"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "學生管理(&M)"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "借書管理(&I)"
ImageIndex = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "還書管理(&N)"
ImageIndex = 4
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "用戶退出"
ImageIndex = 5
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "關閉所有"
ImageIndex = 7
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系統"
ImageIndex = 6
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar status
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 0
Top = 7560
Width = 10575
_ExtentX = 18653
_ExtentY = 873
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4410
MinWidth = 4410
Text = "畢業設計人：陶望路"
TextSave = "畢業設計人：陶望路"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2008-5-8"
Object.ToolTipText = "System Date"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
TextSave = "12:40"
Object.ToolTipText = "System Time"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 2
Bevel = 0
Object.Width = 11112
MinWidth = 11112
Text = "湖南工學院 計0501班 "
TextSave = "湖南工學院 計0501班 "
EndProperty
EndProperty
MousePointer = 99
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MouseIcon = "frmMain.frx":4ED20
End
Begin VB.Menu mnuNewEntry
Caption = "添加/編輯(&N)"
Begin VB.Menu mnuAddBookInfo
Caption = "圖書信息(&B)"
End
Begin VB.Menu mnuAddPublicationInfo
Caption = "出版社信息(&P)"
End
Begin VB.Menu mnuCategory
Caption = "圖書類別信息(&C)"
End
Begin VB.Menu mnuSepBookInfo
Caption = "-"
End
Begin VB.Menu mnuClassInfo
Caption = "班級信息(&A)"
End
Begin VB.Menu mnuSepClass
Caption = "-"
End
Begin VB.Menu mnuAddMemberInfo
Caption = "學生信息(&M)"
End
End
Begin VB.Menu mnuTransaction
Caption = "處理(&T)"
Begin VB.Menu mnuTransIssue
Caption = "借書(&I)"
End
Begin VB.Menu mnuTransReturn
Caption = "還書(&R)"
End
End
Begin VB.Menu mnuSearch
Caption = "查找(&S)"
Begin VB.Menu mnuSearchBookInfo
Caption = "查找圖書信息(&B)"
End
Begin VB.Menu mnuSearchMemberInfo
Caption = "查找學生信息(&M)"
End
Begin VB.Menu mnuSearchIssue
Caption = "查找借書信息(&I)"
End
End
Begin VB.Menu mnuReports
Caption = "詳細報告(&R)"
Begin VB.Menu mnuRPTIssueDet
Caption = "借書明細(&I)"
End
Begin VB.Menu muRPTStockDet
Caption = "藏書明細(&B)"
End
Begin VB.Menu mnuRPTMemberDet
Caption = "學生明細(&M)"
End
End
Begin VB.Menu mnuSetting
Caption = "設置(&G)"
Begin VB.Menu mnuSettingUser
Caption = "用戶信息(&U)"
End
Begin VB.Menu mnuSettingBackup
Caption = "數據庫備份(&B)"
End
End
Begin VB.Menu mnuLogoff
Caption = "用戶退出(&L)"
End
Begin VB.Menu mnuAboutMe
Caption = "關于(&A)"
End
Begin VB.Menu mnuExit
Caption = "退出系統(&X)"
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Declarations
'=====================================================
'Code for Opening WebLink
'API Declaration for opening my WebLink on Clicking StatusBar
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -