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

XXXXXXXXX学院毕业设计（论文）

Form1.xpcmdbutton1.Enabled = True

Form1.xpcmdbutton2.Enabled = True Form1.xpcmdbutton3.Enabled = True Form1.xpcmdbutton4.Enabled = True Form1.xpcmdbutton5.Enabled = True Form1.xpcmdbutton6.Enabled = True Form1.xpcmdbutton7.Enabled = True Form1.xpcmdbutton8.Enabled = True Form1.xpcmdbutton10.Enabled = True Form1.Show Unload frmLogin End Select End Sub 5.5.2 登录调用

在用户登录时，程序从user_table表中验证用户名和密码后读取“权限”的值赋给变量privilege，然后把privilege当做参数调用check_privage 函数从而达到权限功能的分配，重要代码如下：

If LCase(Trim(rst![登录名])) = LCase(Trim(Text1.Text)) Then If Trim(rst![密码]) = Trim(Text2.Text) Then privilege = rst![权限] Call check_privage(privilege)

…………..

5.6 会员管理具体实现

5.6.1 读者管理

该窗体可供管理员增加、修改、删除、显示上一记录、下一记录读者信息等功能。也同样向数据库中添加新的记录、删除不需要的记录、修改错误的记录、对数据库中的信息进行查询。该窗体已经显示了你要得信息，你就可以对其该条记录进行修改了。 也可以直接在TEXT文本框进行数据修改，修改后，按ENTER键即可完成修改，并保存在数据库中。

25

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

图5.6读者录入窗口图

主要方法是打开数据库并对窗体控件赋值，添加的时候先检验reader表里面是否已存在此读者编号。打开数据库并对窗体控件赋值的主要代码如下： Private Sub Form_Load() Dim sql1 As String

Set rst = New ADODB.Recordset sql1 = \Call connect_db

rst.Open sql1， con， adOpenDynamic， adLockOptimistic Set Text1.DataSource = rst Set Text2.DataSource = rst Set Text3.DataSource = rst Set Text4.DataSource = rst Set Text5.DataSource = rst Set Text6.DataSource = rst Set Text7.DataSource = rst

26

XXXXXXXXX学院毕业设计（论文）

Set Text8.DataSource = rst Text1.DataField = \读者编号\Text2.DataField = \读者姓名\Text3.DataField = \性别\Text4.DataField = \电话号码\Text5.DataField = \家庭地址\Text6.DataField = \读者类别\Text7.DataField = \工作单位\Text8.DataField = \登记日期\End Sub

修改完成后rst.Update保存更改。 5.6.2 员工管理

该窗体同读者管理窗体一样可供管理员增加、删除、显示上一记录、下一记录员工信息等功能。也同样向数据库中添加新的记录、删除不需要的记录、修改错误的记录、对数据库中的信息进行查询和修改。修改后确定即可完成修改，并保存在数据库 “worker”表中。

图5.7职工录入窗口图

27

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

上下记录的实现代码如下：

Private Sub Command*_Click() 上一记录 If rst.BOF Then frmMsg.Show

frmMsg.info.Visible = True

frmMsg.Text1.Text = \已经到达记录顶端!\Exit Sub Else

rst.MovePrevious End If End Sub

Private Sub Command*_Click() 下一记录 If rst.EOF Then frmMsg.Show frmMsg.info.Visible = True

frmMsg.Text1.Text = \已经到达记录底端! \Exit Sub Else rst.MoveNext End If End Sub

5.6.3 账号管理

帐户管理，即可以添加权限帐户，又可以对权限帐户进行修改或者删除，这里用户权限级别分4种，关键字：1 ，2 ，3 ，4。

1. 浏览者 权限：1 2. 2级管理员 权限：2 3. 3级管理员 权限：3 4. 系统管理员 权限：4

打开系统时，会有一个默认的浏览者账号密码，默认用户名：reader 密码默认。直接点确认就可以作为一个浏览者进入，查询图书馆内部的书籍。

28