📄 mdimain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{CAE5D8A3-35CD-461C-A280-B343F9487618}#1.0#0"; "VsMenu61.ocx"
Object = "{3CD0D5C7-0803-4552-8FE7-8AA237D544C4}#1.0#0"; "FKMenu.ocx"
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Begin VB.MDIForm MDIMain
BackColor = &H8000000C&
Caption = "图书借阅管理系统"
ClientHeight = 7665
ClientLeft = 60
ClientTop = 630
ClientWidth = 12315
Icon = "MDIMain.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.Timer Timer1
Interval = 1000
Left = 0
Top = 1320
End
Begin ComCtl3.CoolBar CoolBar
Align = 1 'Align Top
Height = 705
Left = 0
Negotiate = -1 'True
TabIndex = 1
Top = 0
Width = 12315
_ExtentX = 21722
_ExtentY = 1244
BandCount = 1
FixedOrder = -1 'True
_CBWidth = 12315
_CBHeight = 705
_Version = "6.0.8169"
Child1 = "tbrMain"
MinWidth1 = 19935
MinHeight1 = 645
Width1 = 1995
NewRow1 = 0 'False
Begin VBVsNetMenu.VsToolBar tbrMain
Height = 645
Left = 30
Top = 30
Width = 19935
_ExtentX = 35163
_ExtentY = 1138
DrawStyle = 3
CaptionAlignment= 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
OverColorXP = 14208204
CheckedColorXP = 13741485
ActionAsMenuEdgeColor= -2147483632
ShowGradient = 0 'False
ToolbarBackStar = 12632256
ToolbarBackEnd = 12632256
ButtonCount = 13
ButtonCaption1 = "图书浏览"
ButtonKey1 = "Browse Books"
ButtonPicture1 = "MDIMain.frx":22A2
ButtonToolTipText1= "图书浏览"
ButtonAlwaysShowCaption1= -1 'True
ButtonEnabled2 = 0 'False
ButtonCaption2 = "新书添加"
ButtonKey2 = "Add Books"
ButtonPicture2 = "MDIMain.frx":2EF4
ButtonToolTipText2= "新书添加"
ButtonAlwaysShowCaption2= -1 'True
ButtonCaption3 = "图书借阅"
ButtonKey3 = "Borrow Books"
ButtonPicture3 = "MDIMain.frx":3B46
ButtonToolTipText3= "图书借阅"
ButtonAlwaysShowCaption3= -1 'True
ButtonCaption4 = "图书归还"
ButtonKey4 = "Return Books"
ButtonPicture4 = "MDIMain.frx":4798
ButtonToolTipText4= "图书归还"
ButtonAlwaysShowCaption4= -1 'True
ButtonStyle5 = 3
ButtonCaption6 = "读者信息"
ButtonKey6 = "Reader"
ButtonPicture6 = "MDIMain.frx":53EA
ButtonToolTipText6= "读者信息"
ButtonAlwaysShowCaption6= -1 'True
ButtonCaption7 = "借阅信息"
ButtonKey7 = "Borrower"
ButtonPicture7 = "MDIMain.frx":603C
ButtonToolTipText7= "借阅信息"
ButtonAlwaysShowCaption7= -1 'True
ButtonStyle8 = 3
ButtonEnabled9 = 0 'False
ButtonCaption9 = "用户管理"
ButtonKey9 = "System User"
ButtonPicture9 = "MDIMain.frx":6C8E
ButtonToolTipText9= "用户管理"
ButtonAlwaysShowCaption9= -1 'True
ButtonCaption10 = "重新登陆"
ButtonKey10 = "Reload"
ButtonPicture10 = "MDIMain.frx":78E0
ButtonToolTipText10= "重新登陆"
ButtonAlwaysShowCaption10= -1 'True
ButtonStyle11 = 3
ButtonAlwaysShowCaption11= -1 'True
ButtonCaption12 = "关闭系统"
ButtonKey12 = "ShutDown"
ButtonPicture12 = "MDIMain.frx":8532
ButtonToolTipText12= "关闭系统"
ButtonAlwaysShowCaption12= -1 'True
ButtonCaption13 = "关于"
ButtonKey13 = "About"
ButtonPicture13 = "MDIMain.frx":9184
ButtonToolTipText13= "关于"
ButtonAlwaysShowCaption13= -1 'True
End
End
Begin HookMenu.FKMenu mnuMain
Left = 0
Top = 720
_ExtentX = 900
_ExtentY = 900
SelectDisabled = 0 'False
BitmapSize = 28
BmpCount = 10
Bmp:1 = "MDIMain.frx":9DD6
Mask:1 = 14606302
Key:1 = "#mnuBrowse"
Bmp:2 = "MDIMain.frx":AA28
Mask:2 = 14606302
Key:2 = "#mnuAddBook"
Bmp:3 = "MDIMain.frx":B67A
Mask:3 = 14606302
Key:3 = "#mnuBorrowBook"
Bmp:4 = "MDIMain.frx":C2CC
Mask:4 = 14606302
Key:4 = "#mnuReturnBook"
Bmp:5 = "MDIMain.frx":CF1E
Mask:5 = 14606302
Key:5 = "#mnuReader"
Bmp:6 = "MDIMain.frx":DB70
Mask:6 = 14606302
Key:6 = "#mnuBorrower"
Bmp:7 = "MDIMain.frx":E7C2
Mask:7 = 14606302
Key:7 = "#mnuUserManager"
Bmp:8 = "MDIMain.frx":F414
Mask:8 = 15198183
Key:8 = "#mnuReload"
Bmp:9 = "MDIMain.frx":10066
Mask:9 = 14606302
Key:9 = "#mnuShutdomn"
Bmp:10 = "MDIMain.frx":10CB8
Mask:10 = 14606302
Key:10 = "#mnuAbout"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.StatusBar sbrMain
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 7290
Width = 12315
_ExtentX = 21722
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 16087
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
TextSave = "2006-1-11"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
TextSave = "上午09:00"
EndProperty
EndProperty
End
Begin VB.Menu mnuManager
Caption = "图书管理(&M)"
Begin VB.Menu mnuBrowse
Caption = "图书浏览"
Shortcut = ^E
End
Begin VB.Menu mnuSep1
Caption = "-"
End
Begin VB.Menu mnuAddBook
Caption = "新书添加"
Enabled = 0 'False
Shortcut = ^A
End
Begin VB.Menu mnuBorrowBook
Caption = "图书借阅"
Shortcut = ^B
End
Begin VB.Menu mnuReturnBook
Caption = "图书归还"
Shortcut = ^R
End
Begin VB.Menu mnuSep2
Caption = "-"
End
Begin VB.Menu mnuReader
Caption = "读者信息"
Enabled = 0 'False
Shortcut = ^D
End
Begin VB.Menu mnuBorrower
Caption = "借阅信息"
Shortcut = ^I
End
End
Begin VB.Menu mnuSystemSetup
Caption = "系统管理(&S)"
Begin VB.Menu mnuUserManager
Caption = "用户管理"
Enabled = 0 'False
Shortcut = ^U
End
Begin VB.Menu mnuSep3
Caption = "-"
End
Begin VB.Menu mnuReload
Caption = "重新登陆"
Shortcut = ^L
End
Begin VB.Menu mnuSep4
Caption = "-"
End
Begin VB.Menu mnuShutdomn
Caption = "关闭系统"
Shortcut = ^S
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu mnuAbout
Caption = "关于"
Shortcut = ^H
End
End
End
Attribute VB_Name = "MDIMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub MDIForm_Load()
sbrMain.Panels(1).Text = "当前登陆用户:" & User & " " & "权限:" & UserPermission
UserPower (UserPermission)
frmReader.AddReader = False
End Sub
Private Sub mnuAbout_Click()
frmAbout.Show vbModal
End Sub
Private Sub mnuAddBook_Click()
frmAddBook.Show
End Sub
Private Sub mnuBorrowBook_Click()
frmBorrowBook.Show
End Sub
Private Sub mnuBorrower_Click()
frmBorrower.Show
End Sub
Private Sub mnuBrowse_Click()
frmBrowse.Show
End Sub
Private Sub mnuManager_Click()
'MsgBox "Hello"
End Sub
Private Sub mnuReader_Click()
frmReader.Show
End Sub
Private Sub mnuReload_Click()
frmLogin.Show vbModal
sbrMain.Panels(1).Text = "当前登陆用户:" & User & " " & "权限:" & UserPermission
UserPower (UserPermission)
End Sub
Private Sub mnuReturnBook_Click()
frmReturnBook.Show
End Sub
Private Sub mnuShutdomn_Click()
End
End Sub
Private Sub mnuUserManager_Click()
frmUser.Show
End Sub
Private Sub tbrMain_ButtonClick(ByVal ButtonIndex As Integer, ByVal ButtonKey As String)
Select Case ButtonKey
Case "Browse Books"
frmBrowse.Show
Case "Add Books"
frmAddBook.Show
Case "Borrow Books"
frmBorrowBook.Show
Case "Return Books"
frmReturnBook.Show
Case "Reader"
frmReader.Show
Case "Borrower"
frmBorrower.Show
Case "System User"
frmUser.Show
Case "Reload"
frmLogin.Show vbModal
sbrMain.Panels(1).Text = "当前登陆用户:" & User & " " & "权限:" & UserPermission
UserPower (UserPermission)
Case "ShutDown"
End
Case "About"
frmAbout.Show vbModal
End Select
End Sub
Private Sub UserPower(ByVal strUserPower As String)
Select Case strUserPower
Case "User"
tbrMain.ButtonEnabled(2) = False
tbrMain.ButtonEnabled(6) = False
tbrMain.ButtonEnabled(9) = False
mnuAddBook.Enabled = False
mnuUserManager.Enabled = False
mnuReader.Enabled = False
Case "Administrator"
tbrMain.ButtonEnabled(2) = True
tbrMain.ButtonEnabled(6) = True
tbrMain.ButtonEnabled(9) = True
mnuAddBook.Enabled = True
mnuUserManager.Enabled = True
mnuReader.Enabled = True
Case Else
tbrMain.ButtonEnabled(2) = False
tbrMain.ButtonEnabled(6) = False
tbrMain.ButtonEnabled(9) = False
mnuAddBook.Enabled = False
mnuUserManager.Enabled = False
mnuReader.Enabled = False
End Select
End Sub
Private Sub Timer1_Timer()
Dim Title As String
Static L As Integer
Title = "图书借阅管理系统"
If L > Len(Title) Then L = 0
MDIMain.Caption = Mid(Title, 1, L)
L = L + 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -