📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm FrmMain
BackColor = &H00FFFFFF&
Caption = "宛枫书社图书管理系统 V1.0 Beta 测试版"
ClientHeight = 6885
ClientLeft = 960
ClientTop = 1530
ClientWidth = 9375
Icon = "FrmMain.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar FrmMainSBar
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 6510
Width = 9375
_ExtentX = 16536
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 5715
Key = "frmMainSbar1"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 1
Alignment = 1
Enabled = 0 'False
TextSave = "CAPS"
Key = "sbar2"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
Alignment = 1
TextSave = "NUM"
Key = "sbar3"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
TextSave = "01-12-12"
Key = "sbar4"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
TextSave = "19:18"
Key = "sbar5"
EndProperty
EndProperty
End
Begin VB.Menu frmMain_sys
Caption = "系统(&S)"
Begin VB.Menu MfrmMainS_notepad
Caption = "记事本"
End
Begin VB.Menu FrmMnuS_jsq
Caption = "计算器"
End
Begin VB.Menu FrmMnu_lin
Caption = "-"
End
Begin VB.Menu FrmMainS_return
Caption = "返回工作环境 "
Shortcut = ^H
End
Begin VB.Menu frmMainS_logOff
Caption = "注销(&Q)"
Shortcut = ^Q
End
Begin VB.Menu FMS_line
Caption = "-"
End
Begin VB.Menu FrmMainS_exit
Caption = "退出(&X)"
End
End
Begin VB.Menu frmMain_help
Caption = "系统帮助(&H)"
Begin VB.Menu frmMainH_about
Caption = "关于宛枫书社图书管理系统... "
End
Begin VB.Menu FrmMainH_hlp
Caption = "帮助"
Shortcut = {F1}
End
Begin VB.Menu FMH_line
Caption = "-"
End
Begin VB.Menu FMH_webHlp
Caption = "联机帮助"
End
End
Begin VB.Menu popMnu
Caption = "POPUPMNU"
Visible = 0 'False
Begin VB.Menu POP_jsb
Caption = "记事本"
End
Begin VB.Menu POP_jsq
Caption = "计算器"
End
Begin VB.Menu POP_line
Caption = "-"
End
Begin VB.Menu pop_retuHome
Caption = "返回我的工作环境 "
Shortcut = {F12}
End
Begin VB.Menu pop_zhuXiao
Caption = "注销"
Shortcut = ^Z
End
Begin VB.Menu pop_lin2
Caption = "-"
End
Begin VB.Menu pop_about
Caption = "关于宛枫书社图书管理系统..."
Shortcut = {F2}
End
Begin VB.Menu pop_hlp
Caption = "帮助(&H)"
End
Begin VB.Menu pop_iline
Caption = "-"
End
Begin VB.Menu pop_webHlp
Caption = "联机帮助"
Shortcut = {F3}
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 FMH_webHlp_Click()
Dim pid As Long
pid = Shell("Explorer.exe http://hmj.student.hvttc.edu.cn", vbNormalFocus)
If pid = 0 Then
MsgBox "无法打开浏览器！", vbOKOnly + vbExclamation, "打开程序出错"
End If
End Sub
Private Sub frmMainH_about_Click()
Load frmAbout
frmAbout.Show vbModal
End Sub
Private Sub FrmMainH_hlp_Click()
Load FrmHelp
FrmHelp.Show vbModal
End Sub
Private Sub FrmMainS_exit_Click()
Call Sys_exit
End Sub
Private Sub frmMainS_logOff_Click()
Call LogOff
End Sub
Private Sub FrmMainS_return_Click()
If UserShenFen = "经理" Then
Load FrmAdminMain
FrmAdminMain.Show
ElseIf UserShenFen = "仓库管理员" Then
Load FrmCangGuanMain
FrmCangGuanMain.Show
ElseIf UserShenFen = "售书员" Then
Load FrmBookSellerMain
FrmBookSellerMain.Show
ElseIf UserShenFen = "会员" Then
Load FrmMemberMain
FrmMemberMain.Show
Else
Load FrmGuestMain
FrmGuestMain.Show
End If
End Sub
Private Sub FrmMnuS_jsq_Click()
Dim pid As Long
pid = Shell("Calc.exe", vbNormalFocus)
If pid = 0 Then
MsgBox "无法打开计算器！", vbOKOnly + vbExclamation, "打开程序出错"
End If
End Sub
Private Sub MDIForm_Load()
'设置用户环境
If UserShenFen = "经理" Then
Load FrmAdminMain
FrmAdminMain.Show
ElseIf UserShenFen = "仓库管理员" Then
Load FrmCangGuanMain
FrmCangGuanMain.Show
ElseIf UserShenFen = "售书员" Then
Load FrmBookSellerMain
FrmBookSellerMain.Show
ElseIf UserShenFen = "会员" Then
Load FrmMemberMain
FrmMemberMain.Show
Else
Load FrmGuestMain
FrmGuestMain.Show
End If
End Sub
Private Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu popMnu
End If
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Load FrmLogIn
FrmLogIn.Show
If UserShenFen = "经理" Then
Unload FrmAdminMain
ElseIf UserShenFen = "仓库管理员" Then
Unload FrmCangGuanMain
ElseIf UserShenFen = "售书员" Then
Unload FrmBookSellerMain
ElseIf UserShenFen = "会员" Then
Unload FrmMemberMain
Else
Unload FrmGuestMain
End If
Unload FrmMain
UserShenFen = ""
logOK = False
End Sub
Private Sub MfrmMainS_notepad_Click()
Dim pid As Long
pid = Shell("Notepad.exe", vbNormalFocus)
If pid = 0 Then
MsgBox "无法打开记事本！", vbOKOnly + vbExclamation, "打开程序出错"
End If
End Sub
Private Sub pop_about_Click()
Load frmAbout
frmAbout.Show vbModal
End Sub
Private Sub pop_hlp_Click()
Load FrmHelp
FrmHelp.Show vbModal
End Sub
Private Sub POP_jsb_Click()
Call MfrmMainS_notepad_Click
End Sub
Private Sub POP_jsq_Click()
Call FrmMnuS_jsq_Click
End Sub
Private Sub pop_retuHome_Click()
Call FrmMainS_return_Click
End Sub
Private Sub pop_webHlp_Click()
Call FMH_webHlp_Click
End Sub
Private Sub pop_zhuXiao_Click()
Call LogOff
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -