4人力资源管理系统人力资源管理学资料

t11.Tables("个人所得税表").DefaultViDispose()'初始化TreeView控件的各个节点In（8t11.Tables("个人所得税表").DefaultViDispose()'初始化TreeView控件的各个节点In（8）为窗体frmPeopleManage的Load事件添加Columns.CountDimiAsIntegerFori随着市场竞争的日趋激烈，人才已成为实现企业自身战略目标的一个非常关键的因素。企业中人心向背和员工对工作的投入程度在很大程度上决定了该企业的兴衰与成败。如何能主管和人力资源经理的一个日益尖锐的问题，可以说企业管理从根本上来讲就是对人的管理。现在“公平、公正、合理”的企业管理原则已为不少企业所采纳。但是要实现“公平、学的保障体系。本章将向读者全面剖析人力资源管理的内容，由此得出人力资源管理系统需求分析和数据建人力资源管理工作的主要任务有：进行人力资源规划和分析贯彻平等就业机会原则聘任员工从事人力资源开发确定报酬和福利处理员工与劳资关系和评价系统，它们是从事协调人力资源工作所不可或缺的部分。政府在遵从平等就业机会法规方面的要求，无疑将对所有其他人力资源管理工作产生重的赞助性行为的要求，就必须为雇佣各种各样的雇员留有充分的余地。另外在招聘选拔和培训人员时，所有经理人员都必须遵守平等就业机会法规的要求。补企业的岗位空缺。员工培训与人力资源开发工作包括想新雇员介绍企业的各种情况、对现有员工进行职业技能培训、鼓励和帮助员工在多方面提高和发展等内容。在职务不断演化和改变的环境下，w+1,0)Try'判断DataSet11的数据是否有变化'此企业一般制定了员工职业发展计划，这种计划的目的，是为那些在，每一功能对应一个子窗体。4.1程序运行结果本实例的运行结果GOCREATETABLE[dbo].[工资发放历史表]([业发展计划，这种计划的目的，是为那些在企业内寻求自我发展的员工设计出发展的路径，w+1,0)Try'判断DataSet11的数据是否有变化'此企业一般制定了员工职业发展计划，这种计划的目的，是为那些在，每一功能对应一个子窗体。4.1程序运行结果本实例的运行结果GOCREATETABLE[dbo].[工资发放历史表]([如果员工和企业双方都想联手共创繁荣，那么管理着和员工就必须卓有成效地处理双方使员工如同管理者那样准确地了解企业对员工的期望。企业还必须制定、传达和不断更新人力资源政策和规则。在有工会的企业中，企业还应重视和处理好资方和工会的关系。1.2人力资源管理系统的作用系统。传统的人力资源管理中，管理人员的绝大部分精力将耗费在繁琐的日常行政事务处理上，而作为企业管理层的参谋角色应该做的咨询和策略制定的工作相对缺乏。通过人力资源管理系统管理人员将决大部分精力放在管理层提供咨询、建议上，而在行政事务上的工作可2提供更好的服务以直接从系统中获得自己所需要的各种信息，并根据相关信息做出决策和相应的行动方案。费用等途径达到降低企业运作成本的目的。人力资源管理系统的最终目的是达到革新企业的管理理念而不仅仅是改进管理方式、优决策提供信息和解决方案。2功能分析与系统流程图的属性，其他功能读者完全可以参照这些功能的开发方法实现。“frmSalaryHis”,并为其添加如图18“frmSalaryHis”,并为其添加如图18所示的控件。ivatedvMasterAsDataViewPrivate流程图由于篇幅有限，本实例详细介绍如图1所示的功能开发过程，除,罚款,住房公积金,医疗保险,养老保险,失业保险,生育保险3数据库设计人力资源管理系历史工资历史工资奖励记录惩罚记录从历史导入当月工资管理修改明细并计算导入到历史历史工资一个基本的人力资源管理系统数据库中包括多X数据表，分别存放相应子功能的数据编号字段和组织机构编码表或职员基本信息表相对应。因此这2X表和其他数据表间的关系是1：N的关系。本程序共需8X表，用途分别如表1所示。表1系统数据表及其用途数据表名称数据表名称用户清单职员基本信息表组织机构编码表月工资统计表个人所得税表工资发放历史表数据表用途保存系统使用者的信息用于保存企业组织机构的详细信息，包括机构间的层次编码等用于保存企业员工的基本信息用于保存、计算当月的员工工资用于保存个人所得税的税率数据用于保存所有月份工资发放的历史,[临时补][decimal](26,2)NULLDEFAU性别][char](2)NOTNULL,[,[临时补][decimal](26,2)NULLDEFAU性别][char](2)NOTNULL,[密码][char]限，但没有更改的权限，因此可以单独制作一个查询的功能。职员信DimdtAsDataTabledt=DataSet11.T职员奖励表职员惩罚表用于保存员工的奖励情况用于保存员工的惩罚情况以下为数据表之间的关系图3.1创建数据库们将列出几个重点的数据表的建库脚本。3.2创建“组织机构编码表”CREATETABLE编号])REFERENCES[dbo].[职员基本信息表](ryManage”，并为其添加如图14所示的控件。28/37rgs)HandlesdgdSalaryInfo.CurreLoad'定义一个DataGrid编号])REFERENCES[dbo].[职员基本信息表](ryManage”，并为其添加如图14所示的控件。28/37rgs)HandlesdgdSalaryInfo.CurreLoad'定义一个DataGrid表样式TryDimtsAs)ON[PRIMARY]GO3.3创建“职员基本信息表”CREATETABLE)ON[PRIMARY]GO3.4创建其他数据表CREATETABLE)ON[PRIMARY]GOCREATETABLEL,[奖励类型][varchar](20)NULL,[奖励金e月工资统计表set奖金=0where奖金isnullupd。表2主窗体属性设置（3）窗体的主菜单属性设置如表5所示。表de=tmpNode.ParentEndWhileIfsTmL,[奖励类型][varchar](20)NULL,[奖励金e月工资统计表set奖金=0where奖金isnullupd。表2主窗体属性设置（3）窗体的主菜单属性设置如表5所示。表de=tmpNode.ParentEndWhileIfsTm)ON[PRIMARY]GOCREATETABLE[编号][int]NOTNULLPRIMARYKEY,)ON[PRIMARY]GOCREATETABLEonfirm",MessageBoxButtons.YesNmstrSQLAsString="selectXX,性别,出定义一个DataGrid表样式DimtsAsNewDataGhow("删除数据出错")EndTryCatchexAsExonfirm",MessageBoxButtons.YesNmstrSQLAsString="selectXX,性别,出定义一个DataGrid表样式DimtsAsNewDataGhow("删除数据出错")EndTryCatchexAsEx)ON[PRIMARY]GOCREATETABLE[序号][int]IDENTITY(1,1)NOTNULLPRIMARYKEY,)ON[PRIMARY]GOCREATETABLE[序号][int]IDENTITY(1,1)NOTNULLPRIMARYKEY,)ON[PRIMARY]GO3.5创建外部关键字ALTERTABLE[dbo].[月工资统计表]ADDaColumnTextColumn.MappingName=xt+"','"result+=tmpNode.Text+"adDimdtAsDataTabledt=DataSet11),[工伤保险][decimal](26,2)NULLDEFCONSTRAINT[FK_月工资统计表_职员基本信息表]FOREIGNaColumnTextColumn.MappingName=xt+"','"result+=tmpNode.Text+"adDimdtAsDataTabledt=DataSet11),[工伤保险][decimal](26,2)NULLDEF()GOALTERTABLE[dbo].[工资发放历史表]ADDCONSTRAINT[FK_工资发放历史表_职员基本信息表]FOREIGNKEY()GOALTERTABLE[dbo].[职员奖励表]ADDCONSTRAINT[FK_职员奖励表_职员基本信息表]FOREIGNKEY()GOALTERTABLE[dbo].[职员惩罚表]ADDCONSTRAINT[FK_职员惩罚表_职员基本信息表]FOREIGNKEY()GO3.6创建存储过程这些存储过程都在“当月工资管理”模块中使用，可以通过以下的脚本代码创建。GOGOGO"组织机构编码表").DefaultView.RowFilt序时，当月工资管理表为空，各个工资项均为0，手工艺输入这些项arentIndexAsString)TryDimtmpNo.Object,ByValeAsSystem.EventAr"组织机构编码表").DefaultView.RowFilt序时，当月工资管理表为空，各个工资项均为0，手工艺输入这些项arentIndexAsString)TryDimtmpNo.Object,ByValeAsSystem.EventArGO-----------------------GO---------------------------------------计算奖金--计算惩罚--将空数据置0set应扣金额合计=房租+水电费+请假扣除+罚款+考勤扣除+住房公积金+医疗fromstrSQL+="wherea.组织机构编码表sets.Add(aColumnTextColumn)Nextts起来，才有可能为“公平、公正、合理”原则的实现，以及企业在运fromstrSQL+="wherea.组织机构编码表sets.Add(aColumnTextColumn)Nextts起来，才有可能为“公平、公正、合理”原则的实现，以及企业在运成本、降低员工流动率、减少通讯费用等途径达到降低企业运作成本+养老保险+失业保险set应发金额合计=基本工资+浮动工资+合同补+粮副补+房补+临时补+职务工资+工龄工资+考核工资+奖金--计算个人所得税WHILE(FETCH_STATUS=0)BEGIN--扣除不计税部分WHILE(FETCH_STATUS=0)BEGINENDEND--计算实发工资GO---------------------------------------从历史倒入Parent.Tag,TreeNodeData).ItemLryManage”，并为其添加如图14所示的控件。28/37owNumberThen'记住当前行的行号iCurrentL=0where养老保险isnullupdate月工资统计表sParent.Tag,TreeNodeData).ItemLryManage”，并为其添加如图14所示的控件。28/37owNumberThen'记住当前行的行号iCurrentL=0where养老保险isnullupdate月工资统计表s--将空数据置0月工资统计表)--自动计算工资GOwhere职员编号=职员编号where职员编号=职员编号GO4代码与界面设计本系统采用多文档窗体程序，每一功能对应一个子窗体。4.1程序运行结果how("修改的数据出错")EndTryEndSub到此就完(10)NULL)ON[PRIMARY]GOCREATETAhow("修改的数据出错")EndTryEndSub到此就完(10)NULL)ON[PRIMARY]GOCREATETAL,[职员编号][varchar](30)NotNULLPRYKEY,[职员编号][varchar](30)NOTNUL4.2创建工程选取要存放的位置，然后单击【确定】按钮完成新项目的创建。6.3创建系统主窗体=Me.cbbDepCode.Text+"'"DimdvAs2）部分控件的属性设置如表4所示。表=Me.cbbDepCode.Text+"'"DimdvAs2）部分控件的属性设置如表4所示。表4机构设置及编码窗体控件dSub（10）为工具栏ToolBar的ButtonClicGOCREATETABLE[dbo].[工资发放历史表]([表2主窗体属性设置对象（控件）名对象（控件）名属性Name取值（说明）人力资源管理系统人力资源管理系统表3窗体主菜单属性设置菜单栏菜单栏MenuItemDep菜单项MenuItemDepManage属性取值（说明）机构编制管理机构设置及编码机构详细信息职员信息管理职员信息维护职员信息查询薪资福利管理当月工资计算个人所得税率工资发放历史职员奖励管理职员惩罚管理主窗体的某菜单项，如【计算当月工资】只是出现一个计算当月工资窗体。tem.EventArgs)HandlesMyBase.LoPrivateSubdgdPeopleInfoCurrent,[住房公积金][decimal](26,2)NULLDEFtem.EventArgs)HandlesMyBase.LoPrivateSubdgdPeopleInfoCurrent,[住房公积金][decimal](26,2)NULLDEF3窗体主菜单属性设置（4）添加判断子窗体实例状态的函数GetDimchildFrmAsfrmDepManage=NewfrmDepManageEndSub4.4创建数据访问模块因为各个窗体均需要对数据库进行访问，可以把对数据库的一些操作通过一个类来实EndSubEndSublSalaryClick(ByValsenderAsSystQL(strSQL)dvMaster.AllowDeleteryManage”，并为其添加如图lSalaryClick(ByValsenderAsSystQL(strSQL)dvMaster.AllowDeleteryManage”，并为其添加如图14所示的控件。28/37d()EndSub（9）为数据表格dgdPeopleInfoEndSubEndSub4.5实现机构设置及编码功能构设置及编码功能主要用于实现设置机构的层级关系。（1）新建一个窗体，将其Name属性设置为“frmDepManage”并为其添加如图7所示的表4机构设置及编码窗体控件属性设置控件类型控件类型Form对象名frmDepManagetxbName属性DockDockDock取值（说明）机构设置及编码励表").DefaultView.RowFilter=""MsposingAsBoolean)Ifdisposing<>表导入工资月份int,励表").DefaultView.RowFilter=""MsposingAsBoolean)Ifdisposing<>表导入工资月份int,统计工资月份intasbegintradbo].[职员基本信息表]([职员编号])GOALTERT修改增加为第一级增加为本级别增加为子级别保存修改（3）为frmDepManage类添加如下两个私有变量。（4）选择【文件】｜【添加新项】命令添加一个名为“TreNodeData.vb”的类文件，并EndSubDimtmpNodeAsTreeNodetmpNode=NewTreeNodeables("职员基本信息表").Rows.CountThelumnNameEndIfaColumnTextColumnrentCell.RowNumber=DataSet11.T”,为其添加主菜单控件以及StatusBar控件，布局如图6ables("职员基本信息表").Rows.CountThelumnNameEndIfaColumnTextColumnrentCell.RowNumber=DataSet11.T”,为其添加主菜单控件以及StatusBar控件，布局如图6EndSub（6）为窗体frmDepManage的Load事件添加事件响应代码。EndSubsTmpEndSubObject,ByValeAsToolBarButtonCl("数据修改成功!")无修改的数据!")修改的数据出错")ELength>0strCondition+="andThentozybh,gzhjWHILE(FETCHSTATUS=0Object,ByValeAsToolBarButtonCl("数据修改成功!")无修改的数据!")修改的数据出错")ELength>0strCondition+="andThentozybh,gzhjWHILE(FETCHSTATUS=0DimtmpNodeAsTreeNodeEndSubEndSubslWHILE(FETCHSTATUS=0)BEGINselEATETABLE[dbo].[组织机构编码表]([内部编号nderAsSystem.Object,ByValeAsSybtnDel.Click到此就完成了机构设置及编码的功能。4slWHILE(FETCHSTATUS=0)BEGINselEATETABLE[dbo].[组织机构编码表]([内部编号nderAsSystem.Object,ByValeAsSybtnDel.Click到此就完成了机构设置及编码的功能。4EndSubidTextBoxColumnDimnumColsAsIntts.MappingName=DataSet11.TableInfo.CurrentCell=NewDataGridCenAsSqlConnectionPublicSharedsCidTextBoxColumnDimnumColsAsIntts.MappingName=DataSet11.TableInfo.CurrentCell=NewDataGridCenAsSqlConnectionPublicSharedsCEndSubEndSubEndSub到此就完成了机构设置及编码的功能。46实现机构详细信息功能数据源ts.MappingName=DataSet11.TaCurrentCell.RowNumberTheniCurr9/37保险数据源ts.MappingName=DataSet11.TaCurrentCell.RowNumberTheniCurr9/37保险+养老保险+失业保险update月工资统计表se励表").DefaultView.RowFilter=""M（2）部分控件的属性设置如表5所示。表5机构详细信息窗体控件属性设置控件类型控件类型From对象名属性Dock取值（说明）机构详细信息请参考图请参考图不断完善基本工资和薪酬制度。除了工薪以外，越来越多的企业好指11.Tables("职员奖励表").Columns(i).HasChangesMe.SqlDataAdapter1.U不断完善基本工资和薪酬制度。除了工薪以外，越来越多的企业好指11.Tables("职员奖励表").Columns(i).HasChangesMe.SqlDataAdapter1.U计,"strSQL+="工资合计,个人所得税,实发金额,发放EndSubEndSub到此完成了机构详细信息功能模块，机构详细信息功能最后的效果如图9所示。6.7实现职员信息维护功能职员信息维护窗体用于输入和修改职员的资料。',"'AbsIndexabsIndex+=1'给treeneData.vb”的类文件，并将“',"'AbsIndexabsIndex+=1'给treeneData.vb”的类文件，并将“TreNodeData.vSystem.Object,ByValeAsSystem.Eimal](26,2)NULLDEFAULT(0),[生育保（2）部分控件的属性设置如表6所示。表6职员信息维护窗体控件属性设置控件类型控件类型From对象名cbbDepCode属性取值（说明）职员信息维护（3）分别为前三个boBox控件设置Items属性，为对应性别的控件输入“男”和“女”员基本悉尼表并选择职员基本信息表的所有字段。)NULLDEFAULT(0),[工资合计][decimalL,[职员编号)NULLDEFAULT(0),[工资合计][decimalL,[职员编号][varchar](30)NotNULLPR成本、降低员工流动率、减少通讯费用等途径达到降低企业运作成本xt+"','"result+=tmpNode.Text+"EndSubEndSubEndSubOrInsSQL(strSQL)CatchexAsExceprent.Nodes.Add(tmpNode)tmpNodeub（7OrInsSQL(strSQL)CatchexAsExceprent.Nodes.Add(tmpNode)tmpNodeub（7）为按钮btnModify的click事件添加事件响职务要求细则，这两项都是在招聘中所需使用的材料。在人员选拔过EndSub=0where工资合计isnullupdate月工资统计表s=dvMaster.AllowNew=dvMaster.AlyValsenderAsSystem.Object,ByVa4）选择【文件】｜【添加新项】命令添加一个名为“=0where工资合计isnullupdate月工资统计表s=dvMaster.AllowNew=dvMaster.AlyValsenderAsSystem.Object,ByVa4）选择【文件】｜【添加新项】命令添加一个名为“TreNodEndSub增加、修改和删除。4.8现职员信息查询功能资料，但不够修改职员的信息。预设的查询条件有XX简码、XX、性别、民族、籍贯5个（1）新建一个窗体，将其Name属性改为“frmPeopleQuery”，并为其添加如图12所示（2）部分控件的属性设置如表7所示。表7职员信息查询窗体控件属性设置控件类型控件类型From对象名txbNameCodetxbName属性取值（说明）职员信息查询必须对员工进行培训和再培训。此外，为迎接未来的挑战，还1/3temDepManage的Click必须对员工进行培训和再培训。此外，为迎接未来的挑战，还1/3temDepManage的Click事件响应函数。PrivaderAsObject,ByValeAsSystem.Eveext.Trim().Length=0OrtxbDepCod查询EndSubables("职员基本信息表").Rows.CountThe=0where工资合计ables("职员基本信息表").Rows.CountThe=0where工资合计isnullupdate月工资统计表sxt+"','"result+=tmpNode.Text+"dlesToolBar1.ButtonClickDimrowEndSubEndSub到此就完成了职员信息查询的功能模块，运行结果如图13所示。在查询条件框中输入查询条件，单击【查询】按钮可以查询出需要的信息。4.9实现当月工资管理功能.ColumnNameaColumnTextColumn.HdEql的Click事件添加事件响应代码。.ColumnNameaColumnTextColumn.HdEql的Click事件添加事件响应代码。PrivateSulumnTextColumn.NullText=""Ifi=建】|【项目】命令，弹出【新建项目】对话框没，在【项目类型】（2）部分控件的属性设置如表8所示。表8当月工资管理窗体控件属性设置控件类型控件类型From对象名属性取值（说明）当月工资管理导入工资历史计算当月工资工资发放工资统计表并且选择月工资统计表的字段：基本工资、浮动工资、合同补、粮副补、房补、临时补、职务工资、工龄工资、考核工资、奖金、房租、水电费、请假扣除、考勤扣除、罚款、住房公积金、医疗保险、养老保险、失业保险、生育保险、工伤保险、职员编号。trCondition+=txbName.Text.Trim员信息查询功能4.9实现当月工资管理功能当月工资管理用于制作表表删除当前被选中记录trCondition+=txbName.Text.Trim员信息查询功能4.9实现当月工资管理功能当月工资管理用于制作表表删除当前被选中记录()DataSet11.Tables(ridStyle()EndSub（8）为按钮btnGetSaEndSubEndSubEndSubEndSubryInfo.DataSource=dvMasterdb.D26,2)NULLDEFAULT(0),[失业保险][dect11.Tables("ryInfo.DataSource=dvMasterdb.D26,2)NULLDEFAULT(0),[失业保险][dect11.Tables("个人所得税表").DefaultViAsIntegerrow=Me.dgdSalaryInfo.EndSubEndSubEndSub到此就完成了当月工资管理的功能，运行结果如图15所示。当第一次运行程序时，当月工资管理表为空，各个工资项均为0，手工艺输入这些项目，单击[计算当月工资]按入，从而减轻输入工作的强调；单击[工资发放]按钮，可以发放选定职员的工资，打印出工资条并且将工作发放的纪录放入历史。][int]IDENTITY(1,1)NOTNULL,[类别资][decimal](26,2)NULL,[奖金][int]IDENTITY(1,1)NOTNULL,[类别资][decimal](26,2)NULL,[奖金][dec如图19所示的控件。图19职员奖励管理（2）部分控件的属性设位编号=b.单位编号"DimstrConditionAsSt4.10实现个人所得税率设置功能个人所得税率窗体用于设置个人所得税率的信息。（2）部分控件的属性设置如表11所示。表9个人所得税率窗体控件属性设置控件类型控件类型From对象名属性Dock取值（说明）个人所得税率个人所得税表并选择月工资统计表的所有字段。在【生成数据集】对话框中单击【确定】按钮。企业的管理理念而不仅仅是改进管理方式、优化人力资源管理。先进dNode.Tag,TreeNodeData).KindCoParentIsNothingThenCType(tmpNoal](26,2)NOTNULLDEFAULT(0),[工资企业的管理理念而不仅仅是改进管理方式、优化人力资源管理。先进dNode.Tag,TreeNodeData).KindCoParentIsNothingThenCType(tmpNoal](26,2)NOTNULLDEFAULT(0),[工资EndSubryManage”，并为其添加如图1