人力资源管理系统说明.doc

《人力资源管理系统说明.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、“人力资源管理系统”项目开发实训说明一项目开发实训进度说明2学时课要完成的任务：l完成主界面的设计；l数据库类DataBase的定义和使用；l登陆界面的设计1）主界面设计如图2）数据库类Database的定义和使用说明：因为各个窗体均需要对数据库进行访问，可以把对数据库的一些操作通过一个类来实现，这样可以使对数据库的访问更加简单。类的定义请参考相应截图和代码34‘类的定义ImportsSystem.DataImportsSystem.Data.OleDbImportsSystem.ComponentModelPublicClassDataBaseImple

2、mentsIDisposable'实现接口IDisposable，主要用来“显示释放资源”PrivateOledbConnAsOleDbConnection'数据库连接对象PrivatetransAsOleDbTransaction'事务处理对象DimOledbCommAsOleDbCommandPublicSharedsConnAsString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=hrmbook.mdb;PersistSecurityInfo=False"PrivatedisposedValueAsB

3、oolean=False'检测冗余的调用ProtectedOverridableSubDispose(ByValdisposingAsBoolean)IfNotMe.disposedValueThenIfdisposingThen'TODO:显式调用时释放非托管资源IfOledbConnIsNothing=FalseThenOledbConn.Dispose()OledbConn=NothingEndIfEndIf'TODO:释放共享的非托管资源EndIfMe.disposedValue=True本部分代码自动添加的EndSub#Region"IDispo

4、sableSupport"'VisualBasic添加此代码是为了正确实现可处置模式。PublicSubDispose()ImplementsIDisposable.Dispose'不要更改此代码。请将清理代码放入上面的Dispose(ByValdisposingAsBoolean)中。Dispose(True)GC.SuppressFinalize(Me)EndSub#EndRegionPublicSubOpen()IfOledbConnIsNothing=TrueThen'建立数据库连接对象OledbConn=NewOleDbConnection(sC

5、onn)'me.sConn'打开数据库连接OledbConn.Open()EndIfEndSubPublicSubClose()'如果数据库连接对象不为空则关闭数据库连接34IfOledbConnIsNothing=FalseThenOledbConn.Close()EndIfEndSubPublicFunctionRunSelectSQL(ByValsSQLStringAsSystem.String)AsDataView'本过程的功能：对数据库的操作【按条件选择合适的记录】Me.Open()DimOledbDSAsDataSet=NewDataSetDi

6、mOledbDAAsOleDbDataAdapter=NewOleDbDataAdapter(sSQLString,Me.OledbConn)OledbDA.Fill(OledbDS)ReturnOledbDS.Tables(0).DefaultViewEndFunctionPublicSubRunDelOrInsSQL(ByValsSQLStringAsSystem.String)'本过程的功能：对数据库的操作【执行删除或插入操作】Me.Open()DimOledbCommAsOleDbCommand=NewOleDbCommand(sSQLString

7、,Me.OledbConn)OledbComm.ExecuteNonQuery()EndSubPublicSubRunMulDelOrInsSQL(ByValarrAsArrayList)'本过程的功能：对数据库的操作【批量的执行删除或插入操作，用到了事物处理的作用】Me.Open()trans=OledbConn.BeginTransactionDimiAsIntegerTryFori=0Toarr.Count-1OledbComm=NewOleDbCommand(arr(i),Me.OledbConn)OledbComm.Transaction=tra

8、nsOledbComm.ExecuteNonQuery()Next