VB图书管理系统数据库+论文+源代码 第2页
图5 系统主界面
当我们选择借书中的添加读者信息时，会看到图6的界面，当我们单击“添加”按钮的时候就会弹出一个输入对话框，单击“确定”的时候，所有text控件将会为空，根据数据库中相应的数据类型向文本框中加入数据，那么这条读者信息将会出现在相应的数据库的表中。
当单击“添加读者信息”时，就会执行下面的程序。
Private Sub tianjiaduzhe_Click()
Form8.Show
End Sub
课程设计说明书 NO.6
图6 添加读者信息的界面
（2）在form8中添加了4个text控件和4个label控件以及一个adodc控件,将adodc的visible属性设置为false。首先将adodc控件与数据库相连，然后将文本框与表的属性相连，标签控件的caption属性分别设置为“读者号”、“读者姓名”、 “性别”、“书号”。还要添加3个命令按钮，它们的caption分别设置为“添加”、“借书/续借”、“返回首页”。当单击“添加”按钮的时候，就会在form8中执行以下程序语句：
Private Sub Command1_Click()
m = MsgBox("请输入", vbOKCancel)
If m = vbCancel Then
End
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("sno") = Val(Text1.Text)
Adodc1.Recordset.Fields("sname") = Text2.Text
Adodc1.Recordset.Fields("ssex") = Text3.Text
Adodc1.Recordset.Fields("bno") = Val(Text4.Text)
End Sub
沈 阳 大 学
课程设计说明书 NO.7
之后我们选择单击“借书/续借”之后，在form8中执行以下程序：
Private Sub Command3_Click()
Form2.Show
End Sub
（3）在form2中同样添加adodc和text控件，将它们和数据库相连，将adodc的visible设置为false,当单击“上一条“和“下一条”时，分别执行以下程序:
Private Sub Command3_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
MsgBox ("已经是第一条记录了！")
End If
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox ("已经是最后一条记录了！")
End If
End Sub
当单击“借出“按钮的时候，会触发以下过程：
Private Sub Command1_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
沈 阳 大 学
课程设计说明书 NO.8
End If
End Sub
单击查找后，在对话框里输入书号如图7所示。
会触发以下过程：
Private Sub Command5_Click()
msg = InputBox("请输入准确书号", "查找记录")
Adodc1.Recordset.Find "hno =" & msg & ""
If Adodc1.Recordset.EOF Then
MsgBox ("没有符合条件的记录！")
Else
MsgBox "符合条件的记录为" & Adodc1.Recordset.Fields(1)
End If
End Sub
单击返回时：
Private Sub Command2_Click()
Form1.Show
End Sub
图7 查找书目
当输入的书号为2时，运行后的界面如图8所示。可以查出书名、作者和出版社的信息。
沈 阳 大 学
课程设计说明书
图8 查找到相应的书目信息
你可以根据单击“上一条”“下一条”来选择你要借的图书的基本信息，当你确定你要借的书的时候就单击“借出”，之后这个图书信息将会被删除。之后单击“返回”就回到了第一个开始界面。
当单击“还书“中的“删除读者信息”时，会显示图9的界面。同时就会触发下面的事件：
Private Sub shanchuduozhe_Click()
Form7.Show
End Sub
上一页 [1] [2] [3] [4] [5] 下一页
VB图书管理系统数据库+论文+源代码 第2页下载如图片无法显示或论文不完整，请联系qq752018766
