VB图书管理系统数据库+论文+源代码 第3页
图9 删除读者信息界面
（4）此界面的具体设置如下：在form7中添加了4个text控件和4个label控件以及一个adodc控件,将adodc的visible设置为false，首先将adodc控件与数据库相连然后将文本框与表的属性相连，标签控件的caption属性分别设置为“读者号”、“读者姓名”、“性别”、“书号”。
然后在各事件中编写相应的程序代码。
Private Sub Command3_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
End Sub
单击“上一条“”下一条“的时候会触发下面的事件：
课程设计说明书 NO.11
Private Sub Command1_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
MsgBox ("已经是第一条记录了！")
End If
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("已经是最后一条记录了！")
End If
End Sub
当单击“返回首页“时，会施行：
Private Sub Command4_Click()
Form1.Show
End Sub
可以根据“上一条”和“下一条”选择读者信息，选择后单击“删除”那么这条记录将会从读者信息表中删除，这后再单击“还书”，就会来到图10这个界面。
当单击“还书“的时候会执行以下程序代码：
Private Sub Command5_Click()
Form3.Show
End Sub
课程设计说明书 NO.12
图10 还书的运行界面
（5）针对此界面的设计是在form3中添加所需要的控件，编写相应的程序代码，然后和数据库中的表相连。
当你单击“归还”的时候就会弹出输出对话框，单击“确定”后，就会看到所有的文本框将为空，根据数据库中的数据向文本框中添加数据，那么这一条数据就会在添加到图书信息中。再单击“返回”后又返回到第一个页面。单击报表后，就会出现输入密码窗体（如图11），只有管理员才可以看到报表。
图11 输入密码的窗体
课程设计说明书 NO。13
输入密码，单击“确定”后，就会有一个选择窗体（如图12），你可以选择看到任何一个表的报表。此窗体的设计是在form5中设计的。
图12 打印报表窗体
如单击“图书信息”时，打印的报表如图13所示。
图13 图书信息打印报表
课程设计说明书
打印读者信息报表如图14所示。
图14 读者信息打印报表
打印报表之后你还可返回主页，选择“检查错误“就会看到图14的这个窗体，你可以根据下面这个窗体看到借书时间、还书时间、是否续借以及所借的书号，还可以看到读者所借书的天数，如果天数超过31天，单击“判断”按钮，就会弹出一个对话框提示“已经过了最后期限！”，这样管理员就可以根据有关规定采取相应的处罚措施。
在单击“返回主页”后，执行的程序代码如下：
Private Sub Command5_Click()
Form1.Show
End Sub
上一页 [1] [2] [3] [4] [5] 下一页
VB图书管理系统数据库+论文+源代码 第3页下载如图片无法显示或论文不完整，请联系qq752018766
