VB 图书管理系统 毕业设计论文

XXXXXXXXX学院毕业设计（论文）

图书编码，图书名称，作者，出版社等，一目了然，无权限。

主要程序代码:

Private Sub xpcmdbutton5_Click() open_connection (\tablename = \

Set DataGrid1.DataSource = rst End Sub 6. 图书录入

新书录入窗口中显示的是员工必要信息。可供用户增加、修改、删除、显示上一记录、下一记录等功能。向数据库中添加新的记录、删除不需要的记录、修改错误的记录、对数据库中的信息进行查询。当用户想修改某条记录时，只要双击“修改记录”按钮控件中修改要修改的记录，就会自动弹出详细信息窗体，该窗体已经显示了你要得信息，你就可以对其该条记录进行修改了。 本系统的一大特点可以直接在TEXT文本框进行数据修改，修改后，按ENTER键即可完成修改，并保存在数据库“book”表中。

图5.5图书录入窗口图

5. 职工查询

这一功能应用在“xpcmdbutton7”控件上，DataGrid1控件显示职工信息，如职工的工号，姓名，地址等，读者没有查询权限。代码如下： Private Sub xpcmdbutton7_Click()

21

《小蚂蚁儿童绘本管》管理系统的设计与开发

open_connection (\tablename = \

Set DataGrid1。DataSource = rst End Sub 6.职工录入

该窗体可供管理员增加、修改、删除、显示上一记录、下一记录员工信息等功能。也同样向数据库中添加新的记录、删除不需要的记录、修改错误的记录、对数据库中的信息进行查询。当管理员想修改某条记录时，只要双击“修改记录”按钮控件中修改要修改的记录，就会自动弹出详细信息窗体，该窗体已经显示了你要得信息，你就可以对其该条记录进行修改了。 也可以直接在TEXT文本框进行数据修改，修改后，按ENTER键即可完成修改，并保存在数据库“worker”表中。 7. 读者录入

该窗体同职工录入一样，可供管理员增加、修改、删除、显示上一记录、下一记录员工信息等功能。也同样向数据库中添加新的记录、删除不需要的记录、修改错误的记录、对数据库中的信息进行查询。 8. 读者信息

这一功能应用在“xpcmdbutton15”控件上，DataGrid1控件显示职工信息，如读者的姓名，编号，地址，电话号码等，任何人可以查阅直接添加信息。数据出于“\表中。代码如下： Private Sub xpcmdbutton15_Click() open_connection \tablename = \

Set DataGrid1。DataSource = rst End Sub

5.3会员管理模块具体实现

先对实例进行流程分析，所谓系统流程就是用户在使用系统是的工作过程。对于多类型用户的管理系统来说，每一类用户的工作流程都是不相同的。多用户系统的工作流程都从用户登陆模块开始的，对多用户的身份进行认证。身份认证可以分为以下两个过程：

（1）确认用户是否是有效的系统用户。 （2）确定用户的类型。

22

XXXXXXXXX学院毕业设计（论文）

第 1决定用户能否进入系统。第2个过程根据用户的类型决定用户的操作权限，从而决定用户的工作界面。

5.4用户权限设置

本系统的权限分为4个等级： ? 数据浏览者

拥有功能：图书查询、借阅查询、读者信息浏览、使用帮助、关于软件、退出系统。 ? 2级管理员

增加功能：借书、还书、职工查询。

? 3级管理员

增加功能：图书录入。 ? 系统管理员

增加功能：职工录入，读者录入，账号设置。

5.5 权限的具体实现

5.5.1 模块准备

首先，在VB所建工程中添加Database模块，定义出一个全局变量privilege，如下：

Public privilege As Integer

在用户登录时根据privilege的值决定权限，从而判断用户登陆成功后的功能模块。

其次，在模块中建立一个check_privage函数供其他窗体需要权限验证时调用此函数。设置函数check_privage参数为rightlevel。具体代码如下： Public Sub check_privage(rightlevel As Integer) Dim right As Integer right = rightlevel Select Case right

Case 1: Form1.xpcmdbutton1.Enabled = False Form1.xpcmdbutton2.Enabled = False Form1.xpcmdbutton3.Enabled = False

23

《小蚂蚁儿童绘本管》管理系统的设计与开发

Form1.xpcmdbutton4.Enabled = False Form1.xpcmdbutton5.Enabled = True Form1.xpcmdbutton6.Enabled = True Form1.xpcmdbutton7.Enabled = False Form1.xpcmdbutton8.Enabled = False Form1.xpcmdbutton10.Enabled = False Form1.Show Unload frmLogin

Case 2:

Form1.xpcmdbutton1.Enabled = True

Form1.xpcmdbutton2.Enabled = True Form1.xpcmdbutton3.Enabled = False Form1.xpcmdbutton4.Enabled = False Form1.xpcmdbutton5.Enabled = True Form1.xpcmdbutton6.Enabled = True Form1.xpcmdbutton7.Enabled = True Form1.xpcmdbutton8.Enabled = False Form1.xpcmdbutton10.Enabled = False Form1.Show Unload frmLogin Case 3:

Form1.xpcmdbutton1.Enabled = True

Form1.xpcmdbutton2.Enabled = True Form1.xpcmdbutton3.Enabled = True Form1.xpcmdbutton4.Enabled = False Form1.xpcmdbutton5.Enabled = True Form1.xpcmdbutton6.Enabled = True Form1.xpcmdbutton7.Enabled = True Form1.xpcmdbutton8.Enabled = False Form1.xpcmdbutton10.Enabled = False Form1.Show Unload frmLogin

Case 4:

24