人力资源管理系统说明

1“人力资源管理系统”项目开发实训说明一项目开发实训进度说明2学时课要完成的任务：完成主界面的设计；数据库类DataBase的定义和使用；登陆界面的设计1）主界面设计如图2）数据库类Database的定义和使用说明：因为各个窗体均需要对数据库进行访问，可以把对数据库的一些操作通过一个类来实现，这样可以使对数据库的访问更加简单。类的定义请参考相应截图和代码2‘类的定义ImportsSystem.DataImportsSystem.Data.OleDbImportsSystem.ComponentModelPublicClassDataBaseImplementsIDisposable'实现接口IDisposable，主要用来“显示释放资源”PrivateOledbConnAsOleDbConnection'数据库连接对象PrivatetransAsOleDbTransaction'事务处理对象DimOledbCommAsOleDbCommandPublicSharedsConnAsString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=hrmbook.mdb;PersistSecurityInfo=FalsePrivatedisposedValueAsBoolean=False'检测冗余的调用ProtectedOverridableSubDispose(ByValdisposingAsBoolean)IfNotMe.disposedValueThenIfdisposingThen'TODO:显式调用时释放非托管资源IfOledbConnIsNothing=FalseThenOledbConn.Dispose()OledbConn=NothingEndIfEndIf'TODO:释放共享的非托管资源EndIfMe.disposedValue=TrueEndSub#RegionIDisposableSupport'VisualBasic添加此代码是为了正确实现可处置模式。PublicSubDispose()ImplementsIDisposable.Dispose'不要更改此代码。请将清理代码放入上面的Dispose(ByValdisposingAsBoolean)中。Dispose(True)GC.SuppressFinalize(Me)EndSub#EndRegionPublicSubOpen()IfOledbConnIsNothing=TrueThen'建立数据库连接对象OledbConn=NewOleDbConnection(sConn)'me.sConn'打开数据库连接OledbConn.Open()EndIfEndSubPublicSubClose()'如果数据库连接对象不为空则关闭数据库连接本部分代码自动添加的3IfOledbConnIsNothing=FalseThenOledbConn.Close()EndIfEndSubPublicFunctionRunSelectSQL(ByValsSQLStringAsSystem.String)AsDataView'本过程的功能：对数据库的操作【按条件选择合适的记录】Me.Open()DimOledbDSAsDataSet=NewDataSetDimOledbDAAsOleDbDataAdapter=NewOleDbDataAdapter(sSQLString,Me.OledbConn)OledbDA.Fill(OledbDS)ReturnOledbDS.Tables(0).DefaultViewEndFunctionPublicSubRunDelOrInsSQL(ByValsSQLStringAsSystem.String)'本过程的功能：对数据库的操作【执行删除或插入操作】Me.Open()DimOledbCommAsOleDbCommand=NewOleDbCommand(sSQLString,Me.OledbConn)OledbComm.ExecuteNonQuery()EndSubPublicSubRunMulDelOrInsSQL(ByValarrAsArrayList)'本过程的功能：对数据库的操作【批量的执行删除或插入操作，用到了事物处理的作用】Me.Open()trans=OledbConn.BeginTransactionDimiAsIntegerTryFori=0Toarr.Count-1OledbComm=NewOleDbCommand(arr(i),Me.OledbConn)OledbComm.Transaction=transOledbComm.ExecuteNonQuery()Nextitrans.Commit()CatchexAsExceptiontrans.Rollback()ThrowNewExceptionEndTryEndSubPublicFunctiongetResult(ByValstrSqlAsString)AsOleDbDataReader'本过程的功能：对数据库的操作【按条件读出合适的记录】Me.Open()OledbComm=NewOleDbCommand(strSql,Me.OledbConn)DimdrAsOleDbDataReader=OledbComm.ExecuteReader()ReturndrEndFunctionEndClass4DataBase类截图DataBase类截图事务是作为包执行的一组数据库命令。利用事务，您的应用程序将能够在事务进程中的任何部分出现任何错误时中止（回滚）所有已在事务中执行的更改。例如，假设某个应用程序具有两个表，其中一个表示库存清单，而另一个表示订单。当向一个表添加订单时，需要在另一个表中减少相应的库存。如果对订单表的更新成功但对库存清单表的更新失败，则将损坏数据的完整性。为了确保两个表都成功进行更新，可以将两个数据命令都打包到一个事务中。如果一个表成功更新而另一个表未成功更新，则可以回滚整个事务，解决导致失败的问题，然后重试该事务。53)登陆界面设计及相应代码6附主界面代码以及代码截图:（要把启动对象设置为SubMain）PublicClassfrmMainPublicSharedSubMain()DimfrmlAsNewfrmLoginfrml.ShowDialog()'先显示登陆界面窗体，用户编号，密码等信息正确才允许显示主界面Iffrml.bResultThenDimfmAsNewfrmMainfm.ShowDialog()EndIfEndSubPrivateFunctionGetInstanceState(ByValnameAsString)AsBoolean'本过程功能是判断某子窗体是否已存在DimiAsInteger=Me.MdiChildren.LengthFori=0ToMe.MdiChildren.Length-1IfMe.MdiChildren(i).Name=nameThenMe.MdiChildren(i).Focus()ReturnTrueEndIfNextReturnFalseEndFunction'“机构编制管理(&X)”菜单下的三子菜单'1）“机构设置及编码”---对应菜单的Name属性值：机构设置及编码ToolStripMenuItem'2）“机构详细信息”---对应菜单的Name属性值：机构详细信息ToolStripMenuItem'3）“退出”---对应菜单的Name属性值：退出ToolStripMenuItemPrivateSub机构设置及编码ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles机构设置及编码ToolStripMenuItem.ClickIfGetInstanceState(frmDepManage)ThenExitSubEndIffrmDepManage.MdiParent=Me'frmDepManage是“机构设置及编码”模块窗体的Name属性值frmDepManage.Show()EndSubPrivateSub机构详细信息ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles机构详细信息ToolStripMenuItem.ClickIfGetInstanceState(frmDepInfo)ThenExitSubEndIfDimchildFrmAsNewfrmDepInfo'frmDepInfo是“机构详细信息”模块窗体的Name属性值7childFrm.MdiParent=MechildFrm.Show()EndSubPrivateSub退出ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles退出ToolStripMenuItem.ClickApplication.Exit()EndSub'“人员信息管理(&Y)”菜单下的二子菜单'1）“职员信息维护”---对应菜单的Name属性值：职员信息维护ToolStripMenuItem'2）“职员信息查询”---对应菜单的Name属性值：职员信息查询ToolStripMenuItemPrivateSub职员信息维护ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles职员信息维护ToolStripMenuItem.ClickIfGetInstanceState(frmPeopleManage)ThenExitSubEndIfDimchildFrmAsNewfrmPeopleManage'frmPeopleManage是“职员信息维护”模块窗体的Name属性值childFrm.MdiParent=MechildFrm.Show()EndSubPrivateSub职员信息查询ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles职员信息查询ToolStripMenuItem.ClickIfGetInstanceState(frmPeopleQuery)ThenExitSubEndIfDimchildFrmAsNewfrmPeopleQuery'frmPeopleQuery是“职员信息查询”模块窗体的Name属性值childFrm.MdiParent=MechildFrm.Show()EndSub'薪资福利管理(&Z)菜单下的四子菜单'1）“当月工资管理”---对应菜单的Name属性值：当月工资管理ToolStripMenuItem'2）“工资发放历史”---对应菜单的Name属性值：工资发放历史ToolStripMenuItem'3）“职员奖励管理”---对应菜单的Name属性值：职员奖励管理ToolStripMenuItem'3）“职员惩罚管理”---对应菜单的Name属性值：职员惩罚管理ToolStripMenuItemPrivateSub当月工资管理ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles当月工资管理ToolStripMenuItem.ClickIfGetInstanceState(frmSalaryManage)ThenExitSubEndIfDimchildFrmAsNewfrmSalaryManage'frmSalaryMa