📄 main.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmMain
Caption = "人力资源管理系统"
ClientHeight = 8115
ClientLeft = 165
ClientTop = 735
ClientWidth = 10710
LinkTopic = "Form1"
ScaleHeight = 8115
ScaleWidth = 10710
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar sbStatusBar
Align = 2 'Align Bottom
Height = 390
Left = 0
TabIndex = 0
Top = 7725
Width = 10710
_ExtentX = 18891
_ExtentY = 688
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 13256
Text = "人力资源管理系统"
TextSave = "人力资源管理系统"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 2
TextSave = "2005-12-16"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 2
TextSave = "19:12"
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog dlgCommonDialog
Left = 10200
Top = 120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.Toolbar Toolba1
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 1
Top = 0
Width = 10710
_ExtentX = 18891
_ExtentY = 1005
ButtonWidth = 1455
ButtonHeight = 953
Appearance = 1
Style = 1
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 13
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "人事档案"
Key = "HumanFile"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "自动处理"
Key = "AutoHandle"
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 3
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "WorkTime"
Text = "自动计算工龄"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "ExpireContract"
Text = "到期合同处理"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "ExpireEmploy"
Text = "到期聘用处理"
EndProperty
EndProperty
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "工资档案"
Key = "WageFile"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "计算公式"
Key = "Calculate"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "默认项目"
Key = "Default"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "工资流程"
Key = "WageProcess"
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 10
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "NewMonth"
Text = "建立新的工资月份"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "Line1"
Text = "-"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "PieceWage"
Text = "计件工资管理"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "TimeWage"
Text = "计时工资管理"
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "LiftWage"
Text = "提成工资管理"
EndProperty
BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "Reward"
Text = "员工奖励管理"
EndProperty
BeginProperty ButtonMenu7 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "Punish"
Text = "员工惩罚管理"
EndProperty
BeginProperty ButtonMenu8 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "Duty"
Text = "考勤信息管理"
EndProperty
BeginProperty ButtonMenu9 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "Line2"
Text = "-"
EndProperty
BeginProperty ButtonMenu10 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "WageMonthly"
Text = "月末工资管理"
EndProperty
EndProperty
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "离开挂起"
Key = "Wait"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "更改口令"
Key = "UpdatePassword"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "使用帮助"
Key = "Help"
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
Key = "Close"
EndProperty
EndProperty
BorderStyle = 1
Begin VB.CheckBox Check1
Caption = "导航栏"
Height = 255
Left = 9240
TabIndex = 2
Top = 240
Width = 975
End
End
Begin VB.Image Image1
Height = 9225
Left = 0
Picture = "Main.frx":0000
Top = 720
Width = 15345
End
Begin VB.Menu SystemManageMenu
Caption = "系统管理"
Enabled = 0 'False
Begin VB.Menu CompanyInfo
Caption = "单位信息"
End
Begin VB.Menu AdministrationSet
Caption = "管理员设置"
End
Begin VB.Menu Wait
Caption = "离开挂起"
End
Begin VB.Menu UpdatePassword
Caption = "更改口令"
End
Begin VB.Menu SystemBeginning
Caption = "初始化系统"
End
Begin VB.Menu SystemParameter
Caption = "系统参数"
End
Begin VB.Menu SystemRemind
Caption = "系统提醒"
End
Begin VB.Menu DataBaseSet
Caption = "后台数据库设置"
End
Begin VB.Menu PictureSet
Caption = "背景图设置"
End
Begin VB.Menu Line1
Caption = "-"
End
Begin VB.Menu Close
Caption = "退出系统"
End
End
Begin VB.Menu HumanSetMenu
Caption = "人事设置"
Enabled = 0 'False
Begin VB.Menu DepartmentType
Caption = "部门类型设置"
End
Begin VB.Menu WorkType
Caption = "工种设置设置"
End
Begin VB.Menu PositionType
Caption = "职务类型设置"
End
Begin VB.Menu PostType
Caption = "职称类型设置"
End
Begin VB.Menu Line2
Caption = "-"
End
Begin VB.Menu EducationLevel
Caption = "文化程度设置"
End
Begin VB.Menu Political
Caption = "政治面貌设置"
End
Begin VB.Menu RaceType
Caption = "民族类型设置"
End
Begin VB.Menu Line3
Caption = "-"
End
Begin VB.Menu TrainningType
Caption = "培训类型设置"
End
Begin VB.Menu InvestigateType
Caption = "考核类型设置"
End
Begin VB.Menu ContractType
Caption = "合同类型设置"
End
Begin VB.Menu EmploymentType
Caption = "聘用类型设置"
End
End
Begin VB.Menu SalarySetMenu
Caption = "工资设置"
Begin VB.Menu PieceWage
Caption = "计件工资设置"
Enabled = 0 'False
End
Begin VB.Menu TimeWage
Caption = "计时工资设置"
Enabled = 0 'False
End
Begin VB.Menu LiftWage
Caption = "提成工资设置"
Enabled = 0 'False
End
Begin VB.Menu DutyInfo
Caption = "考勤信息设置"
Enabled = 0 'False
End
Begin VB.Menu RewardType
Caption = "奖励类型设置"
Enabled = 0 'False
End
Begin VB.Menu PunishmentInfo
Caption = "惩罚信息设置"
Enabled = 0 'False
End
Begin VB.Menu BankType
Caption = "银行类型设置"
Enabled = 0 'False
End
Begin VB.Menu IncomeTax
Caption = "个人所得税设置"
End
Begin VB.Menu Line4
Caption = "-"
End
Begin VB.Menu SalaryComputeFormula
Caption = "工资计算公式设置"
Enabled = 0 'False
End
Begin VB.Menu DefaultWage
Caption = "默认工资项目设置"
End
End
Begin VB.Menu HumanManageMenu
Caption = "人事管理"
Begin VB.Menu HumanInfoFile
Caption = "人事信息档案"
End
Begin VB.Menu Line5
Caption = "-"
End
Begin VB.Menu NewLogin
Caption = "新员工登记"
End
Begin VB.Menu HumanTransfer
Caption = "员工调动"
End
Begin VB.Menu HumanLeavePost
Caption = "员工离职"
End
Begin VB.Menu HumanResumePost
Caption = "员工复职"
End
Begin VB.Menu Line6
Caption = "-"
End
Begin VB.Menu WorkExperience
Caption = "工作经历"
Enabled = 0 'False
End
Begin VB.Menu SocialRelationship
Caption = "社会关系"
Enabled = 0 'False
End
Begin VB.Menu LaborSkill
Caption = "劳动技能"
Enabled = 0 'False
End
Begin VB.Menu LicenceInfo
Caption = "证照资料"
Enabled = 0 'False
End
Begin VB.Menu Line7
Caption = "-"
End
Begin VB.Menu TrainningManage
Caption = "培训管理"
Enabled = 0 'False
End
Begin VB.Menu InvestigationManage
Caption = "考核管理"
Enabled = 0 'False
End
Begin VB.Menu ContractManage
Caption = "合同管理"
Enabled = 0 'False
End
Begin VB.Menu EmploymentManag
Caption = "聘用管理"
Enabled = 0 'False
End
Begin VB.Menu InsuranceManage
Caption = "保险管理"
Enabled = 0 'False
End
Begin VB.Menu Line8
Caption = "-"
End
Begin VB.Menu AutoComputeWorkTime
Caption = "自动计算工龄"
End
Begin VB.Menu ContractExpire
Caption = "合同到期处理"
Enabled = 0 'False
End
Begin VB.Menu EmploymentExpire
Caption = "聘用到期处理"
Enabled = 0 'False
End
End
Begin VB.Menu SalaryManageMenu
Caption = "工资管理"
Begin VB.Menu WageInfoFile
Caption = "工资信息档案"
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -