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

{人力资源管理}人力资源管理系统说明

“人力资源管理系统”项目开发实训说明

一项目开发实训进度说明

2学时课要完成的任务：

完成主界面的设计；

数据库类DataBase的定义和使用；

登陆界面的设计

1）主界面设计如图

2）数据库类Database的定义和使用

说明：因为各个窗体均需要对数据库进行访问，可以把对数据库的一些操作通过一个类来实

现，这样可以使对数据库的访问更加简单。类的定义请参考相应截图和代码

‘类的定义--

Imports

Imports.OleDbImports

PublicClassDataBase

ImplementsIDisposable实现接口IDisposable，主要用来“显示释放资源”PrivateOledbConnAsOleDbConnection数据库连接对象

PrivatetransAsOleDbTransaction事务处理对象DimOledbCommAsOleDbCommand

PublicSharedsConnAsString=Provider=.OLEDB.4.0;DataSource=;PersistSecurityInfo=FalsePrivatedisposedValueAsBoolean=False检测冗余的调用

ProtectedOverridableSubDispose(ByValdisposingAsBoolean)IfNotThen

IfdisposingThen

TODO:显式调用时释放非托管资源IfOledbConnIsNothing=FalseThen()

OledbConn=Nothing

EndIf

EndIf

TODO:释放共享的非托管资源EndIf

=True

EndSub

#RegionIDisposableSupport

VisualBasic添加此代码是为了正确实现可处置模式。PublicSubDispose()Implements

不要更改此代码。请将清理代码放入上面的Dispose(ByValdisposingAsBoolean)中。Dispose(True)

(Me)

EndSub

#EndRegion

PublicSubOpen()

IfOledbConnIsNothing=TrueThen建立数据库连接对象

OledbConn=NewOleDbConnection(sConn)打开数据库连接

()

EndIfEndSub

PublicSubClose()

如果数据库连接对象不为空则关闭数据库连接

IfOledbConnIsNothing=FalseThen

()

EndIfEndSub

PublicFunctionRunSelectSQL(ByValsSQLStringAs)AsDataView

本过程的功能：对数据库的操作【按条件选择合适的记录】()

DimOledbDSAsDataSet=NewDataSet

DimOledbDAAsOleDbDataAdapter=NewOleDbDataAdapter(sSQLString,)(OledbDS)

Return(0).DefaultViewEndFunction

PublicSubRunDelOrInsSQL(ByValsSQLStringAs)

本过程的功能：对数据库的操作【执行删除或插入操作】()

DimOledbCommAsOleDbCommand=NewOleDbCommand(sSQLString,)()

EndSub

PublicSubRunMulDelOrInsSQL(ByValarrAsArrayList)

本过程的功能：对数据库的操作【批量的执行删除或插入操作，用到了事物处理的作用】()

trans=

DimiAsIntegerTry

Fori=0To-1

OledbComm=NewOleDbCommand(arr(i),)

=trans()

Nexti()

CatchexAsException()

ThrowNewExceptionEndTry

EndSub

PublicFunctiongetResult(ByValstrSqlAsString)AsOleDbDataReader

本过程的功能：对数据库的操作【按条件读出合适的记录】()

OledbComm=NewOleDbCommand(strSql,)

DimdrAsOleDbDataReader=()Returndr

EndFunction

EndClass

3)登陆界面设计及相应代码

附主界面代码以及代