图书借阅系统 2Word格式.docx
- 文档编号:5778957
- 上传时间:2023-05-05
- 格式:DOCX
- 页数:13
- 大小:143.37KB
图书借阅系统 2Word格式.docx
《图书借阅系统 2Word格式.docx》由会员分享,可在线阅读,更多相关《图书借阅系统 2Word格式.docx(13页珍藏版)》请在冰点文库上搜索。
二、课程设计内容
模拟图书馆的借阅图书业务实现以下功能:
①每次每人只允许借1本;
累计最多5本,否则不能借阅。
②能够随时显示学生累计情况。
③能够随时显示书库库存情况。
学生名单和图书清单由指导教师提供(参见:
file19_图书借阅系统.mdb)。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便;
可以加以其它功能或修饰。
✧用户界面中的菜单至少应包括“借书”、“显示学生累计”、“显示书库现状”、“退出”4项。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课程结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
________学生签名:
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
技术要点5
主要界面截图10
总结12
完整的源程序13
参考文献15
需求分析
模拟图书馆的借阅图书业务实现以下功能。
要求:
(1)每次每人只允许借1本;
(2)能够随时显示学生累计情况。
(3)能够随时显示书库库存情况。
设计分析
(1)基本原理:
建立程序设计与数据库的连接,用SQL语句在数据库中查找,更改数据。
(2)总体设计:
图1总体设计
(3)详细设计:
技术要点
(1)建立与数据库的连接如下:
通过设置Adodc1和Adodc2的属性,来建立与数据库的连接,其设置界面如图
图3Adodc1的属性页
图4数据连接属性页
通过在属性窗口来设置Datagrid1和Datagrid2的datasource\、datafeild的属性来建立与Adodc控件的连接。
(2)查询图书库存、学生借书情况是SQL语句在数据库中查找学生及图书信息。
Select<
字段名表>
From<
表名>
Where<
条件>
程序段如下:
Dima$,b$
b=Text4.Text
Adodc1.CommandType=adCmdUnknown
Adodc1.RecordSource="
select*from学生名单wherexm='
"
&
b&
"
'
'
查询指定学生的全部信息
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"
没有此学生,请您重新输入"
,"
提示"
Else
确定成功"
EndIf
a=List1.Text
Adodc2.CommandType=adCmdUnknown
Adodc2.RecordSource="
select*from图书清单whereshuming='
a&
查询指定书名的信息
Adodc2.Refresh
(3)借出图书是更改数据库中图书信息及学生累计节借书册数
Recordset.Find搜索条件[,[位移],[搜索方向],[起始位置]]
PrivateSubCommand1_Click()
IfAdodc1.Recordset.Fields("
ceshu"
)<
5AndAdodc2.Recordset.Fields("
kucunceshu"
)>
0Then'
判断学生图书册数是否大于5,库存册数是否大于0
Adodc1.Recordset.Fields("
)=Adodc1.Recordset.Fields("
)+1'
对学生借书册数进行减一,并修改表中内容
Adodc2.Recordset.Fields("
)=Adodc2.Recordset.Fields("
)-1'
对库存册数进行减一,并修改表中内容
借阅成功"
IfAdodc1.Recordset.Fields("
5OrAdodc2.Recordset.Fields("
)=0Then
您不能借阅"
EndIf
Endsub
(4)向列表框中添加书名
列表框对象.AddItem项目字符串[,索引值]
PrivateSubForm_Load()
Text4.Visible=False
Label5.Visible=False
Command2.Visible=False
List1.Visible=False
DoWhileNotAdodc2.Recordset.EOF
List1.AddItemAdodc2.Recordset.Fields("
shuming"
)
Adodc2.Recordset.MoveNext
Loop
主要界面截图
图5加载图书名
图6图书查询
图7借书及书库现状
图8显示学生借书状况
总结
这次课设我的题目是书店图书借阅系统,通过这次课设让我了解了VB与数据库之间的联系,可以应用ADO技术使VB与数据库进行联系,还可以应用SQL语言查询和更改数据库中的信息。
学到了课堂上很多难以学到的东西,并且通过自己发现问题、自己解决问题使我藏我了很很多多知识。
在课设过程中,我遇到了重重困难,例如:
VB与数据库的连接技术,通过老师的指点和自己查阅资料,我克服了困难,顺利的完成了任务。
同时我也了解了VB的出现是一场技术革命,它在生活中各个方面都能发挥巨大的作用,所以,学好VB是社会发展的需要。
把VB等其它计算机语言与自己的专业相结合,将会成为社会的所趋,也必将成为我今后的努力方向。
完整的源程序
OptionExplicit
OptionBase1
Dimi%
0Then
)+1
)-1
i=i+1
Ifi=1ThenMsgBox"
注意,每次借阅只可以借一本"
:
Command1.Enabled=False
EndSub
PrivateSubCommand2_Click()
Dima$,b$
b=Text4.Text
Frame1.Visible=True
Command1.Visible=True
List1.Visible=True
Command1.Enabled=True
EndSub
PrivateSubcond_Click()
DataGrid2.Visible=True
DataGrid1.Visible=False
Frame1.Visible=False
Command1.Visible=False
PrivateSubexit_Click()
End
PrivateSubjieshu_Click()
Dima$
Text4.Visible=True
Label5.Visible=True
Frame1.Visible=True
Command1.Visible=True
Command2.Visible=True
PrivateSubList1_Click()
PrivateSubsum_Click()
DataGrid1.Visible=True
DataGrid2.Visible=False
参考文献
[1]龚沛曾等.《VisualBasic程序设计教程》.北京:
高等教育出版社,2007
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 图书借阅系统 图书 借阅 系统