VB课程设计报告 23Word格式.docx
《VB课程设计报告 23Word格式.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告 23Word格式.docx（12页珍藏版）》请在冰豆网上搜索。
③能够随时显示书库库存情况。
学生名单和图书清单由指导教师提供（参见：
file19_图书借阅系统.mdb）。
三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；
可以加以其它功能或修饰。
✧用户界面中的菜单至少应包括“借书”、“显示学生累计”、“显示书库现状”、“退出”4项。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
✧课程结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师：
________学生签名：
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
关键技术6
总结13
完整的源程序14
参考文献16
需求分析
✧模拟图书馆借还系统，主要指“借书”、“显示学生累计”、“显示书库现状”、“退出”4项。
由于图书的数目因为学生的借还而发生变化，所有需要进行记录。
要求：
①在Access中创建books表，以“图书清单”和“学生名单”2方面信息。
此表的结构应如下定义：
图书编号，图书名称，出版社，图书单价，图书库存数，学生学号，学生姓名，学生借书册数。
②能够随时显示书库库存情况和学生累计情况。
③能够随时进行借书每次每人只允许借1本；
设计分析
（1）基本原理：
建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。
（2）总体设计：
（3）详细设计：
关键技术
1.建立与数据库的连接代码如下
OptionExplicit
OptionBase1
DimcnnAsADODB.Connection‘声明变量作为连接对象
DimtempsetAsADODB.Recordset‘声明变量作为记录对象
DimaAsSingle,bAsString,cAsString,dAsSingle,eAsSingle,fAsSingle,gAsSingle,mAsSingle,nAsString‘声明变量属性
PrivateSubForm_Load（）
Setcnn=NewADODB.Connection
cnn.ConnectionString="
Provider=Microsoft.Jet.OLEDB.4.0;
"
&
_
"
DataSource=file19_图书借还系统.mdb"
‘连接数据源
cnn.ConnectionTimeout=30
cnn.Open
EndSub
2.创建“图书借还系统”首界面
PrivateSubbrorrow_Click（）
Form2.Show'
显示借书界面
PrivateSubexit_Click（）
IfMsgBox（"
确实想要退出吗？
vbYesNo+vbQuestion,"
提示!
）=vbYesThen
End
EndIf
PrivateSubshowbook_Click（）
Form6.Show'
显示书库现况界面
PrivateSubshowstudents_Click（）
Form7.Show'
显示学生累计
3.显示图书信息
DimpanduanAsInteger'
判断是否还有存书
PrivateSubCommand1_Click（）
Ifbook_num=0Then'
如果没选中书
MsgBox"
请选择要借阅的图书!
vbOKOnly+vbExclamation
ExitSub'
提示界面
EndIf
Ifpanduan=0Then'
如果没有库存
此书已没有库存!
ExitSub
Form3.Show'
输入借书学号
PrivateSubDataGrid1_Click（）
book_num=DataGrid1.Columns（0）.CellValue（DataGrid1.Bookmark）'
图书清单
panduan=DataGrid1.Columns（4）.CellValue（DataGrid1.Bookmark）'
库存册数
book_num=0'
点中窗体时没选中图书
显示图书信息：
4.选择要借阅的图书并输入学号借阅
PrivateSubCommand1_Click（）'
借书确认按钮
DimconnAsNewADODB.Connection
Dimrs1AsNewADODB.Recordset'
册数
Dimrs2AsNewADODB.Recordset'
Dimrs3AsNewADODB.Recordset
Dimsql1,sql2,sql3AsString
conn.Open"
provider=Microsoft.Jet.OLEDB.4.0;
datasource="
App.Path&
\file02_图书借还系统.mdb"
'
链接表
sql1="
select*from学生名单wherexh='
Trim（Text1.Text）&
从学生名单中选择信息
sql2="
select*from图书清单wherebianhao="
book_num'
从图书清单中选择信息
sql3="
select*from借书情况"
从借书情况中选择信息
rs1.Opensql1,conn,1,3
rs2.Opensql2,conn,1,3
rs3.Opensql3,conn,1,3
IfNotrs1.EOFThen'
如果不超出给定限度
Ifrs1（"
ceshu"
）=5Then'
学生借书达到5本
该生借书数量已达到5本,不能继续借书!
48,"
Text1.SetFocus'
光标定在文本框1中
Else
rs1（"
）=rs1（"
）+1'
学生借的书的数目增加一个
rs1.Update'
保存数据学生借的书
rs1.Close'
关闭
rs2（"
kucunceshu"
）=rs2（"
）-1'
库存册数减少一个
rs2.Update'
保存图书清单的最新数据
rs2.Close'
rs3.AddNew'
借书情况表中增加一行
rs3（"
xh"
）=Trim（Text1.Text）'
学号等于文本框中输入的学号
bianhao"
）=book_num'
编号为选中的号
rs3.Update'
保存借书情况表中的数据
rs3.Close'
借书成功!
Text1.Text="
清除文本框中的数据
Form2.Adodc1.Refresh'
刷新
Me.Hide
EndIf'
隐藏该窗体
Else
无此学号信息!
光标定在文本框中
conn.Close'
关闭链接
选中所要借阅图书并输入正确学号后方能借阅：
如没选择图书，进行提示：
如果学号输入错误：
5.显示学生累计情况
PrivateSubTimer1_Timer（）
Ifa<
>
Adodc1.Recordset.RecordCountThen
sql="
select*form学生名单'
Adodc1.RecordSource=sql
Adodc1.Refresh
a=Adodc1.Recordset.RecordCount
学生累计情况：
总结
这次VB课设我的题目是图书借还系统，通过这次课设让我了解了VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行联系，还可以应用SQL语言查询和更改数据库中的信息，并能向其中添加新的信息。
在本次课设过程中，我遇到了重重困难，例如：
VB与数据库的连接技术，通过老师的指点和自己查阅资料，我克服了困难，顺利的完成了任务。
同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。
完整的源程序
参考文献
[1]刘瑞新．《VisualBasic程序设计教程》．北京：
机械工业出版社，2003
升级会员 