《人力资源管理系统说明》由会员分享，可在线阅读，更多相关《人力资源管理系统说明（9页珍藏版）》请在金锄头文库上搜索。
1、 本文由c h e n y i 3320贡献d o c 1。项目开发实 “人力资源管理系统” 人力资源管理系统” 训说明一 项目开发实训进度说明2 学时课要完成的任务： 学时课要完成的任务：完成主界面的设计； 完成主界面的设计； 的定义和使用； 数据库类 Da t a Ba s e 的定义和使用； 登陆界面的设计 1）主界面设计如图 ）2）数据库类 Da t a b a s e 的定义和使用 ）数据库类说明：因为各个窗体均需要对数据库进行访问， 说明：因为各个窗体均需要对 数据库进行访问，可以把对数据库的一些操作通过一 个类来实现，这样可以使对数据 库的访问更加简单。 个类来实现，这样可以使对
2、数据库的访问更加简单。 类的定义 请参考相应截图和代码1类的定义 Im p o r t s Sy s t e m .Da t a Im p o r t s Sy s t e m .Da t a .Ol e Db Im p o r t s Sy s t e m .Co m p o n e n t Mo d e l Pu b l i c Cl a s s Da t a Ba s e Im p l e m e n t s IDi s p o s a b l e 实现接口ID i s p o s a b l e ，主要用来“显示释放资源” Pr i v a t e Ol e d b Co n n As
3、 Ol e Db Co n n e c t i o n 数据库连接对象 Pr i v a t e t r a n s As Ol e Db Tr a n s a c t i o n 事务处理对象 Di m Ol e d b Co m m As Ol e Db Co m m a n d Pu b l i c Sh a r e d s Co n n As St r i n g = “Pr o v i d e r =Mi c r o s o f t .Je t .OLEDB.4.0;Da t a So u r c e =h r m b o o k .m d b ;Pe r s i s t Se c
4、u r i t y In f o =Fa l s e “ Pr i v a t e d i s p o s e d Va l u e As Bo o l e a n = Fa l s e 检测冗余的调用 Pr o t e c t e d Ov e r r i d a b l e Su b Di s p o s e (By Va l d i s p o s i n g As Bo o l e a n ) If No t Me .d i s p o s e d Va l u e Th e n If d i s p o s i n g Th e n TODO: 显式调用时释放非托管资源 If Ol
5、e d b Co n n Is No t h i n g = Fa l s e Th e n Ol e d b Co n n .Di s p o s e () Ol e d b Co n n = No t h i n g En d If En d If TODO: 释放共享 的非托管资源 En d If Me .d i s p o s e d Va l u e = Tr u e En d Su b #Re g i o n “ IDi s p o s a b l e Su p p o r t “ Vi s u a l Ba s i c 添加此代码是为了正确实现可处置模式。 Pu b l i c
6、Su b D i s p o s e () Im p l e m e n t s IDi s p o s a b l e .Di s p o s e 不要更改此代码。请将清理代码放入 上面的 Di s p o s e (By Va l d i s p o s i n g As Bo o l e a n ) 中。 Di s p o s e (Tr u e ) GC.Su p p r e s s F i n a l i z e (Me ) En d Su b #En d Re g i o n Pu b l i c Su b Op e n () If Ol e d b Co n n Is No t
7、h i n g = Tr u e Th e n 建立数据库连接对象 Ol e d b Co n n = Ne w Ol e Db Co n n e c t i o n (s Co n n ) m e .s Co n n 打开数据库连接 Ol e d b Co n n .Op e n () En d If En d Su b Pu b l i c Su b Cl o s e () 如果数据库连接对象不为空则关闭数据库连接本 部 分代 码 自动添加的2If Ol e d b Co n n Is No t h i n g = Fa l s e Th e n Ol e d b Co n n .Cl o
8、 s e () En d If En d Su bPu b l i c Fu n c t i o n Ru n Se l e c t SQL(By Va l s SQLSt r i n g As Sy s t e m .St r i n g ) As Da t a Vi e w 本过程的功能：对数据库的操作【按条件选择合适的记录】 Me .Op e n () Di m Ol e d b DS As Da t a Se t = Ne w Da t a Se t Di m Ol e d b DA As Ol e Db Da t a Ad a p t e r = Ne w Ol e Db D a t
9、 a Ad a p t e r (s SQLSt r i n g , Me .Ol e d b Co n n ) Ol e d b DA.Fi l l (Ol e d b DS) Re t u r n Ol e d b DS. Ta b l e s (0).De f a u l t Vi e w En d Fu n c t i o n Pu b l i c Su b Ru n De l Or In s SQL(By Va l s SQLSt r i n g As Sy s t e m .St r i n g ) 本过程的功能：对数据库的操作【执行删除或插入操作】 Me .Op e n () D
10、i m Ol e d b Co m m As Ol e Db Co m m a n d = Ne w Ol e Db Co m m a n d (s SQLSt r i n g , Me . Ol e d b Co n n ) Ol e d b Co m m .Ex e c u t e No n Qu e r y () En d Su b Pu b l i c Su b Ru n Mu l De l Or In s SQ L(By Va l a r r As Ar r a y Li s t ) 本过程的功能：对数据库的操作【批量的执行删除或插 入操作，用到了事物处理的作用】 Me .Op e
11、n () t r a n s = Ol e d b Co n n .Be g i n Tr a n s a c t i o n Di m i As In t e g e r Tr y Fo r i = 0 To a r r .Co u n t - 1 Ol e d b Co m m = Ne w Ol e Db Co m m a n d (a r r (i ), Me .Ol e d b Co n n ) Ol e d b Co m m .Tr a n s a c t i o n = t r a n s Ol e d b Co m m .Ex e c u t e No n Qu e r y (
12、) Ne x t i t r a n s .Co m m i t () Ca t c h e x As Ex c e p t i o n t r a n s .Ro l l b a c k () Th r o w Ne w Ex c e p t i o n En d Tr y En d Su b Pu b l i c Fu n c t i o n g e t Re s u l t (By Va l s t r Sq l A s St r i n g ) As Ol e Db Da t a Re a d e r 本过程的功能：对数据库的操作【按条件读出合适 的记录】 Me .Op e n ()
13、Ol e d b Co m m = Ne w Ol e Db Co m m a n d (s t r Sq l , Me .Ol e d b Co n n ) Di m d r As Ol e Db Da t a Re a d e r = Ol e d b Co m m .Ex e c u t e Re a d e r () Re t u r n d r En d Fu n c t i o n E n d Cl a s sp a g e 13Da t a Ba s e 类截图Da t a Ba s e 类截图事务是作为包执行的一组数据库命 令。利用事务，您的应用程序将能够 在事务 进程中的任何
14、部分出现任何 错误时中止（回滚）所有已在事务中 执行的更改。例如 ，假设某个应用程 序具有两个表， 其中一个表示库存清 单，而另一个表示订单。当 向一个表 添加订单时， 需要在另一个表中减少 相应的库存。 如果对订单表的更新 成 功但对库存清单表的更新失败， 则将 损坏数据的完整性。 为了确保两个表 都成 功进行更新， 可以将两个数据命 令都打包到一个事务中。 如果一个表 成功更新而 另一个表未成功更新， 则 可以回滚整个事务， 解决导致失败的 问题，然后重试该 事务。43)登陆界面设计及相应代码 登陆界面设计及相应代码5附主界面代码以及代码截图:（ 附主界面代码以及代码截图 （ 要 把启动对
15、象 设置为 Su b Ma i n ） ）Pu b l i c Cl a s s f r m Ma i n Pu b l i c Sh a r e d Su b Ma i n () Di m f r m l As Ne w f r m Lo g i n f r m l .Sh o w Di a l o g () 先显示登陆界面窗体，用户编号，密码等信息正确才允许显示 主界面 If f r m l .b Re s u l t Th e n Di m f m As Ne w f r m Ma i n f m .Sh o w Di a l o g () En d If E n d Su b Pr i v a t e Fu n c t i o n Ge t In s t a n c e St a t e (By Va l n a m e As St r i n g ) As Bo o l e a n 本过程功能是判断某子窗体是否已存在 Di m i As In t e g e r = Me .Md i Ch i l d r e n .Le n g t h Fo r i = 0 To Me .Md i Ch i l d r e n .Le n g t
