VB人事管理系统讲课教案Word格式文档下载.docx

VB人事管理系统讲课教案Word格式文档下载.docx

《VB人事管理系统讲课教案Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VB人事管理系统讲课教案Word格式文档下载.docx（23页珍藏版）》请在冰豆网上搜索。

管理信息系统。

一、课程设计的目的与要求

掌握VB的数据库编程技巧，及利用Access创建数据库的方法，利用VB的数据库控件与数据源建立连接，完成一个较为简单的数据库管理系统的设计。

每种书的登记内容至少包括书号、书名、著者、现存量和总库存量等五项，对书目的相关信息均采用数据库存储。

系统应实现的操作及其功能定义如下：

1）采编入库：

新购入一种书，经分类和确定书号之后登记到图书账目中去。

如果这种书在帐中已有,则只将总库存量增加。

2）清除库存：

某种书已无保留价值，将它从图书账目中注销。

3）借阅：

如果一种书的现存量大于零,则借出一本，登记借阅者的图书证号和归还期限。

4）归还：

注销对借阅者的登记，改变该书的现存量。

5）显示：

显示书库信息。

二、题目分析

图书管理系统需要的功能分析如下：

管理系统具有多个管理员，管理员可以使用不同的用户名和密码进入管理系统，并可以修改自己的密码；

（一）进入系统后可以重新登录该系统；

（二）在系统中可以对数据库进行简单的操作；

（三）最基本的功能还应具有可以编辑图书——录入、删除图书资料。

图书分类信息的添加、修改、删除和查询。

此功能为图书的分类管理提供依据。

（四）图书基本信息的添加、修改、删除和查询。

（五）借阅证件分类信息的添加、修改、删除和查询。

不同类型的借阅证件可以借阅的最大数量、最大天数和续借天数不同。

（六）图书借阅证件的添加、修改、删除、挂失和查询。

（七）图书借阅管理，包括图书借阅、图书归还、图书续借、图书挂失和图书催还等。

三、设计思路

系统运作流程，该系统涉及到用户以及管理员，在两者之间进行一系列的操作。

管理员对图书进行录入、删除等操作，和用户之间的交流则是进行借阅图书操作。

运作流程图如图1所示:

图1运作流程图

图2所示，具体的操作流程：

图2具体的操作流程

四、调试过程

4.1、设计工程框架

4.1.1、设计登录窗体

登录窗体名称为FrmLogin，它的界面布局如图3所示：

图3界面布局

主窗体启动时，首先打开登陆对话框。

主窗体代码如下：

PrivatesubForm_load（）

Frmlogin.show1

Endsub

如选的是退出系统菜单项时，触发mn_exit_click事件，代码如下：

Privatesubmn_exit_click（）

Dbapi_disconnect

End

Endsub

通过身份认证时，则进入系统主界面如图4所示：

图4进入系统主界面

4.1.2、图书基本信息管理模块设计

图书基本信息管理模块可以实现以下功能：

A、添加图书基本信息。

B、修改图书基本信息。

C、删除图书基本信息。

D、查看图书基本信息。

4.2、设计图书信息编辑窗体

图书信息编辑窗体的名称为FrmBookEdit，窗体的布局如图5所示：

图5窗体的布局

代码如下：

PrivatesubCmd_OK_Click（）

WithMyBookinfo

BookNo=MakeStr（txtBookNo）‘图书编号

BookName=MakeStr（txtBookName）‘图书名称

Publisher=MakeStr（txtpulisher）‘出版社

Author=MakeStr（txtAuthor）‘作者

Location=MakeStr（txtLocation）‘存放位置

Price=Val（txtPrice）‘价格

Total=Val（txtTotal）‘数量

Typeld=nBookTypeld‘图书分类

Descripition=MakeStr（txtDescripition）

IfModify=FalseThen

Insert

Cmd_Ok.Enabled=False

Else

Call.UpDate（OnNo）

EndIf

EndWith

UnloadMe

EndSub

4.3、图书信息管理窗体

如图6所示：

图书系统管理界面

图6图书系统管理界面

PrivateSubTreeView1_Click（）

Focuskey=TreeView1_SelectdItem.Key

CurBookTypeName=TreeView1.SelectdItem.TextCurBookTypeId=Val（Right（TreeView1.SelectdItem.Key,Len（TreeView1.SelectdItem.Key）-1））

IfFocusKey=”a0”Then

nTypeId=-1

ExitSub

Endif

bHaveSon=CurBookType.HaveSon（CurBookType.TypeId）

IfbHaveSon=FalseThen

TreeView1.SelectedItem.ExpandedImage=4

TreeView1.SelectedItem.Image=4

TreeView1.SelectedItem.SelectImage=5

nType=CurBookType.TypeId

CurBookType.GetInfo（CurBookType.TypeId）

GridRefresh

4.4、图书借阅管理模块设计

图书借阅管理模块可以实现以下功能：

a.借阅证件类型管理。

b.借阅证件管理

c.图书借阅管理

4.4.1、设计借阅证件类型编辑窗体

借阅证件类型编辑窗体的名称为FrmCardTypeEdit,如图7所示：

图7阅证件类型编辑窗体

代码：

PrivateSubCmd_Ok_Click（）

WithMyCardType

TypeName=MakeStr（txtTypeName）

MaxCount=Val（txtMaxCount）

MaxDays=Val（txtMaxDays）

AddDays=Val（txtAddDays）

IfModify=FalseThen

End

Call.Upate（tId）

Endwith

UnloadMe

4.4.2、设计借阅证件类型管理窗体

借阅证件类型管理窗体的名称为FrmCardType,窗体布局如图8所示：

图8借阅证件类型管理窗体

PrivateSubGridRefresh（）

Adodc1.ConnectionString=conn

‘设置数据源

Adodc1.RecordSource=”SELECTIDAS编号，TypeNameAS类型名称，MaxCountAS最大借阅数量，”+”MaxDaysAS最多借阅天数，AddDaysAs续借天数FROMCardTypeORDERBYId”

Adodc1.Refresh‘设置列宽度

Endsub

4.4.3、设计借阅证件编辑窗体

借阅证件类型编辑窗体的名称为FrmCardsEdit,如图9所示：

图9借阅证件类型编辑窗体

4.4.4、设计借阅证件管理窗体

设计借阅证件管理窗体的名称为FrmCardS,如图10所示：

图10设计借阅证件管理窗体

PrivateSubGridRefresh（）

Adodc1.ConnectionString=com

IfComboCardStatus.ListIndex=0Then

SchCnd=””

Else

SchCnd=”ANDc.Status=”+Trim（ComboCardStatus.Text）+””

Endif

Adodc1.RecordSource=”SELECTc.CardNoAS借书证号，c.NameAS姓名，t.TypeNameAS类型，”+”c.StatusAS状态，t.MaxCountAS可借数量，t.MaxDaysAS借阅天数，c.WorkPlaceAS工作单位，”+”c.IdCardAS有效证件号码，c.CreateDateAS发证日期”

+”FROMCardsc,CardTypetWHEREc.TypeId=t.Id”+SchCnd

+”ORDERBYCardNo”

Adodc1.Refresh

‘设置列宽度

IfComboCardStatus.ListIndex=1Then

Cmd_Add.Enabled=Ture

4.4.5、设计图书借阅记录查看窗体

用于查看指定借阅证件记录，窗体名为FrmRecord，窗体布局如图11所示：

图11查看指定借阅证件记录

4.4.6、设计图书借阅信息编辑窗体

设计图书借阅信息编辑窗体的名称为FrmBorrowEdit,此窗体的工作过程比较复杂，它的布局如图12所示：

图12图书借阅信息编辑窗体

4.4.7、设计图书归还信息管理窗体

设计图书归还信息管理窗体的名称为FrmReturnEdit,窗体布局如图13所示:

图13设计图书归还信息管理窗体

4.4.8、设计图书借阅管理窗体

设计图书借阅管理窗体的名称为FrmBorrow,窗体布局如图14所示:

图14设计图书借阅管理窗体

如图15所示：

图15设计图书借阅管理窗体

4.4.9、设计用户信息编辑窗体

用户信息编辑窗体可以用来添加和修改用户信息，窗体名称为FrmUserEdit,窗体布局如图16所示：

图16用户信息编辑窗体

PrivatesubCmd_