图书借阅系统.docx
- 文档编号:6446449
- 上传时间:2023-01-06
- 格式:DOCX
- 页数:10
- 大小:202.40KB
图书借阅系统.docx
《图书借阅系统.docx》由会员分享,可在线阅读,更多相关《图书借阅系统.docx(10页珍藏版)》请在冰豆网上搜索。
图书借阅系统
沈阳航空航天大学
课程设计
学号_94030203_
班级_2009040302100_
姓名_张鹤鹏_____
指导教师__王晓岩_____
2011年3月14日
沈阳航空航天大学
课程设计任务书
学院:
航空宇航工程专业:
飞行器制造工程班级:
94030203
学号:
2009040302100题目:
图书借阅系统
一、课程设计时间
2010~11第2学期第1周,共计1周,20学时。
二、课程设计内容
模拟图书馆的借阅图书业务,主要指借书和还书。
要求:
①每次每人只允许借1本;累计最多5本,否则不能借阅。
②一次可以还书多本。
③能够随时显示学生累计情况。
④能够随时显示书库库存情况。
学生名单和图书清单由指导教师提供(参见:
file19_图书借还系统.mdb)。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便;可以加以其它功能或修饰。
✧用户界面中的菜单至少应包括“借书”、“还书”、“显示学生累计”、“显示书库现状”、“退出”5项。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课程结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
________学生签名:
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
技术要点6
主要界面截图9
总结11
完整的源程序13
参考文献17
需求分析
模拟图书借阅系统,主要指“借书”和“显示库存情况”以及“显示图书累计情况”三个任务,由于每位同学选的图书不同,所以系统能够确保每位同学选到想选的书。
要求:
①ADO控件连接Access,结构应如下定义:
借书,显示库存情况,显示图书累计情况,退出。
②能够随时显示学生累计情况。
③能够随时显示书库库存情况。
④没人一次只能选一本书,最多选五本。
设计分析
(1)基本原理:
建立程序设计与数据库的连接,用SQL语句在数据库中查找,添加和更改数据。
(1)总体设计:
(2)详细设计:
技术要点
1借书情况
PrivateSubCommand1_Click()'借书
IfAdodc1.Recordset.Fields("ceshu")<5AndAdodc2.Recordset.Fields("kucunceshu")>0Then'判断学生图书册数是否大于5,库存册数是否大于0
Adodc1.Recordset.Fields("ceshu")=Adodc1.Recordset.Fields("ceshu")+1'对学生借书册数进行减一,并修改表中内容
Adodc2.Recordset.Fields("kucunceshu")=Adodc2.Recordset.Fields("kucunceshu")-1'对库存册数进行减一,并修改表中内容
MsgBox"借阅成功",,"提示"
IfAdodc1.Recordset.Fields("ceshu")>5OrAdodc2.Recordset.Fields("kucunceshu")=0Then
MsgBox"您不能借阅",,"提示"
EndIf
EndIf
i=i+1
Ifi=1ThenMsgBox"注意,每次借阅只可以借一本":
Command1.Enabled=False'每次每人只可以借书一本
EndSub
2查询图书情况
PrivateSubCommand2_Click()
Dima$,b$
b=Text4.Text
Adodc1.CommandType=adCmdUnknown
Adodc1.RecordSource="select*from学生名单wherexm='"&b&"'"'查询指定学生的全部信息
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"没有此学生,请您重新输入",,"提示"
Else
MsgBox"确定成功"
EndIf
a=List1.Text
Adodc2.CommandType=adCmdUnknown
Adodc2.RecordSource="select*from图书清单whereshuming='"&a&"'"'查询指定书名的信息
Adodc2.Refresh
Frame1.Visible=True
Command1.Visible=True
List1.Visible=True
Command1.Enabled=True
EndSub
主要界面截图
图一为程序主界面
图二为学生借书累计
图三为书库现状
图四为借书完毕提示
总结
这次课设我的题目选择教师系统,通过这次课设让我了解了VB与数据库之间的联系,可以应用ADO技术使VB与数据库进行联系。
还可以应用SQL语言查询和更改数据库中的信息,并能向其中添加新的信息。
在课设过程中,我感觉受益匪浅,及时发现了自己VB技术方面的不足,到图书馆借阅书籍和与同学探讨,认真的弥补了缺陷,在老师和同学的多次帮助下,克服了很多自己想不出的毛病,最终完成了任务。
同时我也了深刻明白了VB的重要性和它在当今信息化社会中那不可缺少的地位。
对于VB我也产生了浓厚的兴趣打算以后进行深入的学习,只有学好它才能派上用场。
窗体的设计和程序的编辑使我感觉很有成就感,尽管我设计的不是很好。
完整的源程序
PrivateSubCommand1_Click()'借书
IfAdodc1.Recordset.Fields("ceshu")<5AndAdodc2.Recordset.Fields("kucunceshu")>0Then'判断学生图书册数是否大于5,库存册数是否大于0
Adodc1.Recordset.Fields("ceshu")=Adodc1.Recordset.Fields("ceshu")+1'对学生借书册数进行减一,并修改表中内容
Adodc2.Recordset.Fields("kucunceshu")=Adodc2.Recordset.Fields("kucunceshu")-1'对库存册数进行减一,并修改表中内容
MsgBox"借阅成功",,"提示"
IfAdodc1.Recordset.Fields("ceshu")>5OrAdodc2.Recordset.Fields("kucunceshu")=0Then
MsgBox"您不能借阅",,"提示"
EndIf
EndIf
i=i+1
Ifi=1ThenMsgBox"注意,每次借阅只可以借一本":
Command1.Enabled=False'每次每人只可以借书一本
EndSub
PrivateSubCommand2_Click()
Dima$,b$
b=Text4.Text
Adodc1.CommandType=adCmdUnknown
Adodc1.RecordSource="select*from学生名单wherexm='"&b&"'"'查询指定学生的全部信息
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"没有此学生,请您重新输入",,"提示"
Else
MsgBox"确定成功"
EndIf
a=List1.Text
Adodc2.CommandType=adCmdUnknown
Adodc2.RecordSource="select*from图书清单whereshuming='"&a&"'"'查询指定书名的信息
Adodc2.Refresh
Frame1.Visible=True
Command1.Visible=True
List1.Visible=True
Command1.Enabled=True
EndSub
PrivateSubcond_Click()'通过对datagrid的的显隐性进行控制来显示书库现状
DataGrid2.Visible=True
DataGrid1.Visible=False
Frame1.Visible=False
Command1.Visible=False
EndSub
PrivateSubexit_Click()
End
EndSub
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
EndSub
PrivateSubjieshu_Click()'借书
Dima$
a=List1.Text
Adodc2.CommandType=adCmdUnknown
Adodc2.RecordSource="select*from图书清单whereshuming='"&a&"'"'查询指定书名的信息
Adodc2.Refresh
Text4.Visible=True
Label5.Visible=True
Frame1.Visible=True
Command1.Visible=True
List1.Visible=True
Command2.Visible=True
EndSub
PrivateSubList1_Click()'从列表框中选择书名
Dima$
a=List1.Text
Adodc2.CommandType=adCmdUnknown
Adodc2.RecordSource="select*from图书清单whereshuming='"&a&"'"
Adodc2.Refresh
Frame1.Visible=True
Command1.Visible=True
EndSub
PrivateSubsum_Click()'通过对datagrid的的显隐性进行控制来显示书库现状
DataGrid1.Visible=True
DataGrid2.Visible=False
Frame1.Visible=False
Command1.Visible=False
EndSub
参考文献
[1.《VisuaiBasic程序设计教程》龚沛曾等著高等教育出版社,2003
2.《VisuaiBasic程序设计基础》段银田著高等教育出版社,2003
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 图书 借阅 系统