VB图书管理系统数据库论文源代码|课程设计
图15 查询所借书目是否过期界面
接下来返回主页之后，你可以选择其它操作重复去执行，也可以直接单击“退出”来退出应用程序，这就是这个系统的基本功能。
4设计体会
通过一周的时间，我设计的图书管理系统终于大体上完成，不过在设计的过程中我发现了很多问题，在一个个问题被解决的同时我也学会了很多知识，比如在adodc与数据库连接的时候总会出现各种错误，在和同学讨论之后，对adodc控件有了更深刻的了解，现在再和数据库连接就觉得很容易了。在使用菜单编辑器和打印报表的时候也有很多问题，最后都得到了解决。
这次课程设计使我了解项目开发一般步骤，即项目的需求分析、功能分析、数据表
结构的设计、程序界面与代码设计、上机调试、系统测试的全过程。达到既能综合运用《可视化开发工具》课程中的各个知识点，又能让我完成一个项目开发的过程。图书管理系统是一个非常庞大的系统，它要求有很多功能，我所设计的只是其中的一小部分，还有很多不足的地方需要改进，功能也过于简单，在今后的学习中，我要再多学习关于vb的知识，希望有一天自己能够做出一个完整的图书管理系统。
沈 阳 大 学
课程设计说明书 NO。16
5参考文献
[1] 林卓然. VB语言程序设计[M]. 北京:电子工业出版社,2006.6: 34-55
[2] 武马群. Visual Basic程序设计[M] . 北京:北京工业大学出版社,2004.4: 67-90
[3] 于凤霞. Visual Basic程序设计实训教材[M] . 北京:科学出版社,2004.8 :88-104
[4] 刘瑞新. 计算机基础及应用[M] . 北京:机械工业出版社,2005.5: 112-130
[5] 严晖. 数据库技术与应用实践[M]. 北京:清华大学出版社,2007.1: 278-290
[6] 刘天惠. Visual Basic程序设计教程[M]. 北京:清华大学出版社,2006.11:136-185
6附录
Private Sub Command1_Click()
m = MsgBox("请输入", vbOKCancel)
If m = vbCancel Then
End
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("bno") = Val(Text1.Text)
Adodc1.Recordset.Fields("bname") = Text2.Text
Adodc1.Recordset.Fields("bw") = Text3.Text
Adodc1.Recordset.Fields("bchu") = Text4.Text
c = Text5.Text
Text5.Text = ""
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
沈 阳 大 学
课程设计说明书 NO。17
Private Sub Command1_Click()
x = Text1.Text
If x = "12345" Then
Form5.Show
Else
MsgBox ("对不起，口令错")
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text1.MaxLength = 5
Text1.PasswordChar = "*"
End Sub
Private Sub Command1_Click()
DataReport1.Show
End Sub
Private Sub Command2_Click()
DataReport2.Show
End Sub
Private Sub Command3_Click()
DataReport3.Show
End Sub
Private Sub Command5_Click()
Form1.Show
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.MovePrevious
上一页 [1] [2] [3] [4] [5] 下一页
VB图书管理系统数据库+论文+源代码 第4页下载如图片无法显示或论文不完整，请联系qq752018766
