址等，读者没有查询权限。 代码如下：
Private Sub xpcmdbutton7_Click() open_connection (\tablename = \
Set DataGrid1.DataSource = rst End Sub 窗体图：
6.职工录入
该窗体可供管理员增加、修改、删除、显示上一记录、下一记录员工信息等功能。也同样向数据库中添加新的记录、删除不需要的记录、修改错误的记录、对数据库中的信息进行查询。当管理员想修改某条记录时，只要双击“修改记录”安扭控件中修改要修改的记录，就会自动弹出详细信息窗体，该窗体已经显示了你要得信息，你就可以对其该条记录进行修改了。 也可以直接在TEXT文本框进行数据修改，修改后，按ENTER键即可完成修改，并保存在数据库”worker”表中。代码见光盘code目录下: worker.txt
26
7. 读者信息
这一功能应用在“xpcmdbutton15”控件上，DataGrid1控件显示职工信息，如读者的姓名，编号，地址，电话号码等，任何人可以查阅直接添加信息。数据出于“\表中。 代码如下：
Private Sub xpcmdbutton15_Click() open_connection \tablename = \
Set DataGrid1.DataSource = rst End Sub 窗体图：
8. 使用帮助
该窗体显示帮助信息 窗体图：
27
9． 帐号管理
帐户管理，即可以添加权限帐户，又可以对权限帐户进行修改或者删除，这里用户权限级别分4种，关键字：1 .2 .3 .4 1代表数据浏览者； 2：借书管理员； 3：还书管理员； 4：系统管理员;，
修改后，数据将保存在“user_table’表中代码见光盘code目录下:user.txt
10.友情提示
窗体中Text1显示所有错误信息. 窗体图：
28
说明；Text1 属性 borderstyle为0-None backclor属性跟窗体颜色一样 &H00C0FFFF& 见Text1 11.关于软件
显示软件学校、编制人、指导老师等信息. 窗体图：
说明：运行‘系统信息“将会打开电脑的详细信息 如图：
29
所以上面图片不
12．其他功能设计 无标题窗体移动
1． 新件一个控件定义为“xp_canvas” 2． 添加一个图片项
3． 然后在控件代码视图添加代码
代码如下见光盘code目录下xp_canvas.txt 4.应用到所需的窗体中 最大化，最小化按钮 5.我的建议是加载控件 上一条 下一条按钮 显示功能代码
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
30