图书借阅系统.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
升级会员 