📄 hrmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form HRMain
Caption = "人事信息管理系统"
ClientHeight = 5745
ClientLeft = 60
ClientTop = 630
ClientWidth = 11880
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5745
ScaleWidth = 11880
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar Status
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 2
Top = 5220
Width = 11880
_ExtentX = 20955
_ExtentY = 873
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 4736
Text = "用户名:"
TextSave = "用户名:"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 6068
MinWidth = 6068
Text = "登录日期:"
TextSave = "登录日期:"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 9596
MinWidth = 9596
Text = "设计人:"
TextSave = "设计人:"
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 30
Left = 0
TabIndex = 1
Top = 5715
Width = 11880
_ExtentX = 20955
_ExtentY = 53
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 480
Top = 1080
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 18
ImageHeight = 18
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HRMain.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HRMain.frx":0442
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HRMain.frx":0980
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HRMain.frx":0E46
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HRMain.frx":12C0
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HRMain.frx":17C2
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HRMain.frx":1CC4
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HRMain.frx":21C6
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HRMain.frx":25D8
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HRMain.frx":2A6E
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 1140
Left = 0
TabIndex = 0
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 2011
ButtonWidth = 2408
ButtonHeight = 1005
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "添加用户"
Key = "Adduser"
ImageIndex = 2
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 11
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu7 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu8 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu9 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu10 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu11 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改密码"
Key = "EditPass"
ImageIndex = 3
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 1
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "基本信息"
Key = "InfoInput"
ImageIndex = 1
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "基本信息查询"
Key = "InfoFind"
ImageIndex = 6
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "上下班考勤信息"
Key = "CheckInput"
ImageIndex = 1
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "考勤信息查询"
Key = "CheckInfoFind"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "调动信息录入"
Key = "AlterInput"
ImageIndex = 8
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 4
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "调动信息查询"
Key = "AlterFind"
ImageIndex = 9
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
Key = "ExitSys"
ImageIndex = 5
EndProperty
EndProperty
End
Begin VB.Menu System
Caption = "系统管理(&S)"
Begin VB.Menu Add_User
Caption = "添加用户"
Shortcut = ^A
End
Begin VB.Menu Change_Pwd
Caption = "修改密码"
Shortcut = ^E
End
Begin VB.Menu System_Exit
Caption = "退出系统"
Shortcut = ^X
End
End
Begin VB.Menu Stuff_Info
Caption = "职工基本信息管理(&I)"
Begin VB.Menu Add_Stuff
Caption = "职工基本信息录入"
Shortcut = ^I
End
Begin VB.Menu Change_Stuff
Caption = "职工基本信息修改"
Shortcut = ^G
End
Begin VB.Menu Check_Stuff
Caption = "职工基本信息查询"
Shortcut = ^F
End
Begin VB.Menu Del_Stuff
Caption = "职工基本信息删除"
Shortcut = ^D
End
End
Begin VB.Menu Stuff_CheckIn
Caption = "职工考勤信息管理(&C)"
Begin VB.Menu AddAttendance
Caption = "添加上下班信息"
Shortcut = ^L
End
Begin VB.Menu AddOtherKQ
Caption = "添加其他考勤信息"
Shortcut = ^R
End
Begin VB.Menu ChangeAttendance
Caption = "修改上下班信息"
End
Begin VB.Menu ChangeOtherKQ
Caption = "修改其他考勤信息"
End
Begin VB.Menu Check_CheckIn
Caption = "查询考勤信息"
End
Begin VB.Menu DellnOut
Caption = "删除上下班信息"
End
Begin VB.Menu DelOtherKQ
Caption = "删除其他考勤信息"
End
End
Begin VB.Menu Stuff_Alteration
Caption = "职工调动信息管理(&A)"
Begin VB.Menu Add_Alter
Caption = "职工调动信息录入"
Shortcut = ^U
End
Begin VB.Menu Change_Alter
Caption = "职工调动信息修改"
End
Begin VB.Menu Check_Alter
Caption = "职工调动信息查询"
Shortcut = ^K
End
Begin VB.Menu Del_Alter
Caption = "职工调动信息删除"
Shortcut = ^M
End
End
Begin VB.Menu System_Help
Caption = "帮助"
End
Begin VB.Menu About
Caption = "关于"
End
End
Attribute VB_Name = "HRMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub AddUser_Click()
End Sub
Private Sub EditPwd_Click()
End Sub
Private Sub ExitSys_Click()
End Sub
Private Sub InfoInput_Click()
End Sub
Private Sub Add_Alter_Click()
iAFlag = 0
Frm_AddAlter.Show 1
End Sub
Private Sub Add_Stuff_Click()
iFlag = 0 '''代表增加记录
Frm_InfoInput.Show 1
End Sub
Private Sub Add_User_Click()
Frm_AddUser.Show 1
End Sub
Private Sub AddAttendance_Click()
iATFlag = 0
Frm_AddAttendance.Show 1
End Sub
Private Sub AddOtherKQ_Click()
Frm_AddOtherKQ.Show 1
End Sub
Private Sub Change_Alter_Click()
Frm_AlterChange.Show 1
End Sub
Private Sub Change_Pwd_Click()
Frm_EditPassword.Show 1
End Sub
Private Sub Change_Stuff_Click()
Frm_InfoChange.Show 1
End Sub
Private Sub ChangeAttendance_Click()
Frm_AttendanceChange.Show 1
End Sub
Private Sub ChangeOtherKQ_Click()
Frm_OtherKQChange.Show 1
End Sub
Private Sub Check_Alter_Click()
Frm_AlterFind.Show 1
End Sub
Private Sub Check_CheckIn_Click()
Frm_KQInfoFind.Show 1
End Sub
Private Sub Check_Stuff_Click()
Frm_SelectSql.Show 1
End Sub
Private Sub Del_Alter_Click()
Frm_AlterChange.Show 1
End Sub
Private Sub Del_Stuff_Click()
iFlag = 2
Frm_InfoChange.Show 1
End Sub
Private Sub DellnOut_Click()
Frm_AttendanceChange.Show 1
End Sub
Private Sub DelOtherKQ_Click()
Frm_OtherKQChange.Show 1
End Sub
Private Sub System_Exit_Click()
If MsgBox("确定是否退出?", vbYesNo + vbQuestion, "系统提示") = vbNo Then
Exit Sub
Else
End
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
Case "ExitSys"
Call System_Exit_Click
Case "AddUser"
Call Add_User_Click
Case "EditPass"
Call Change_Pwd_Click
Case "InfoInput"
Call Add_Stuff_Click
Case "Adduser"
Call Add_User_Click
Case "InfoFind"
Call Check_Stuff_Click
Case "AlterInput"
Call Add_Alter_Click
Case "AlterFind"
Call Check_Alter_Click
Case "CheckInput"
Call AddAttendance_Click
Case "CheckInfoFind"
Call Check_CheckIn_Click
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -