📄 rsglmdiform.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm rsglMDIForm
BackColor = &H8000000C&
Caption = "XXX公司人事管理系统"
ClientHeight = 6750
ClientLeft = 165
ClientTop = 855
ClientWidth = 8085
LinkTopic = "MDIForm1"
Picture = "rsglMDIForm.frx":0000
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 960
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "rsglMDIForm.frx":31B06
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "rsglMDIForm.frx":32958
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "rsglMDIForm.frx":3E9AA
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "rsglMDIForm.frx":4A9FC
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 630
Left = 0
TabIndex = 1
Top = 0
Width = 15240
_ExtentX = 26882
_ExtentY = 1111
ButtonWidth = 1561
ButtonHeight = 953
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 3
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "员工信息"
Object.ToolTipText = "员工添加"
ImageIndex = 1
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 3
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "员工添加"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "员工信息修改"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询/统计"
Object.ToolTipText = "查询/统计"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "人事变更"
Object.ToolTipText = "人事变更"
ImageIndex = 3
EndProperty
EndProperty
MouseIcon = "rsglMDIForm.frx":4E70E
End
Begin VB.Timer Timer1
Interval = 60000
Left = 4920
Top = 0
End
Begin MSComctlLib.StatusBar rsglStatusBar
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 10335
Width = 15240
_ExtentX = 26882
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 8758
Text = "系统状态："
TextSave = "系统状态："
Object.ToolTipText = "当前系统状态"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 8758
Picture = "rsglMDIForm.frx":4EB60
Text = "操作员："
TextSave = "操作员："
Object.ToolTipText = "当前系统操作员"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 8758
Picture = "rsglMDIForm.frx":4EDCC
Text = "时间："
TextSave = "时间："
Object.ToolTipText = "当前时间"
EndProperty
EndProperty
End
Begin VB.Menu Menu_ygdl
Caption = "员工登录(&N)"
Begin VB.Menu 添加员工
Caption = "添加员工"
Index = 1
End
Begin VB.Menu 员工信息更新
Caption = "员工信息更新"
Index = 2
End
End
Begin VB.Menu Menu_rsbg
Caption = "人事变更(&C)"
End
Begin VB.Menu Menu_cxtj
Caption = "查询/统计(&Q)"
End
Begin VB.Menu Menu_xtwh
Caption = "系统维护"
Begin VB.Menu Menu_dmbwh
Caption = "代码表维护(&T)"
End
Begin VB.Menu Menu_fg
Caption = "-"
End
Begin VB.Menu Menu_ghczy
Caption = "更换操作员"
Shortcut = ^O
End
Begin VB.Menu Menu_sd
Caption = "锁定"
Shortcut = ^L
End
End
Begin VB.Menu Menu_bz
Caption = "帮助"
Begin VB.Menu Menu_sy
Caption = "索引内容"
Shortcut = +{F1}
End
Begin VB.Menu Menu_gy
Caption = "关于..."
End
End
Begin VB.Menu Menu_tc
Caption = "退出系统(&X)"
End
End
Attribute VB_Name = "rsglMDIForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim fPersonChange As New rrcpersonchange
Private Sub MDIForm_Load()
'开启定时器，以便设置状态栏时间
Timer1.Enabled = True
End Sub
Private Sub Menu_cxtj_Click()
'打开查询统计窗体
cxtj.Show 1, rsglMDIForm
End Sub
Private Sub Menu_dmbwh_Click()
' 打开代码表维护窗体
dmbwh.Show 1, rsglMDIForm
End Sub
Private Sub Menu_ghczy_Click()
'打开登录窗体,以便更换操作员
rsglLogin.Show 1, rsglMDIForm
End Sub
Private Sub Menu_gy_Click()
' 打开关于窗体
rsglAbout.Show 1, rsglMDIForm
End Sub
Private Sub Menu_ygdl_Click()
'打开员工登录窗体
End Sub
Private Sub Menu_rsbg_Click()
' 打开人事变更窗体
rrcpersonchange.Show 1, rsglMDIForm
End Sub
Private Sub Menu_sd_Click()
'打开解锁窗体
rsglLock.Show 1, rsglMDIForm
End Sub
Private Sub Menu_tc_Click()
'卸载主窗体
Unload Me
End Sub
Private Sub Timer1_Timer()
'刷新状态栏时间显示
rsglMDIForm.rsglStatusBar.Panels(3).text = "时间:" & Date & " " & Format(Time, "hh:mm") '系统时间
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
If MsgBox("提示：是否真的退出系统?", vbYesNo, " 提示") = vbYes Then
Cancel = False
End '结束程序
Else
Cancel = True
End If
End Sub
Private Sub mangerperson_Click()
fPersonChange.Show vbModal
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index 'case 按钮索引值
Case 1: Call Menu_ygdl_Click '图标1，响应员工登录动作
Case 2: cxtj.Show 'Call Menu_cxtj_Click '图标2，响应查询/统计动作
Case 3: Call mangerperson_Click
End Select
End Sub
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Index
Case 1: gintMode = 1
rrcload.Show vbModal
Case 2: gintMode = 2
rrcload.Show vbModal
End Select
End Sub
Private Sub 添加员工_Click(Index As Integer)
gintMode = 1
rrcload.Show vbModal
End Sub
Private Sub 员工信息更新_Click(Index As Integer)
gintMode = 2
rrcload.Show vbModal
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -