图书借阅系统 (2)

《图书借阅系统 (2)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、沈阳航空航天大学设计用纸沈阳航空航天大学课程设计学号2009040302080班级94030203姓名纪朝宪指导教师王晓岩2011年3月15日第16页，共16页沈阳航空航天大学设计用纸沈阳航空航天大学课程设计任务书学院：航空宇航工程专业：飞行器制造工程班级：94030203学号：2009040302080题目：图书借阅系统一、课程设计时间2011年3月7~11日（第1周），共计1周，20学时。二、课程设计内容模拟图书馆的借阅图书业务实现以下功能：①每次每人只允许借1本；累计最多5本，否则不能借阅。②能够随时显示学生累计情况。③能够随时显示书库库存情况。学生名单和图书清单由指导教师提供（参

2、见：file19_图书借阅系统.mdb）。三、课程设计要求程序质量：²贯彻事件驱动的程序设计思想。²用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。²用户界面中的菜单至少应包括“借书”、“显示学生累计”、“显示书库现状”、“退出”4项。²代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：²课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：________学生签名：________五、成绩六、教师评语第16页，共16页沈阳航空航天大学设计用纸目录需求分析4设计分析4技术要点5主要界面截图10总结12完整

3、的源程序13参考文献15第16页，共16页沈阳航空航天大学设计用纸需求分析模拟图书馆的借阅图书业务实现以下功能。要求：（1）每次每人只允许借1本；累计最多5本，否则不能借阅。（2）能够随时显示学生累计情况。（3）能够随时显示书库库存情况。设计分析（1）基本原理：建立程序设计与数据库的连接，用SQL语句在数据库中查找，更改数据。（2）总体设计：SQL语言处理数据库ADO技术连接图1总体设计（3）详细设计：第16页，共16页沈阳航空航天大学设计用纸开始连接数据库查询数据更改数据显示学生信息、图书信息学生借书、书库现状技术要点（1）建立与数据库的连接如下：通过设置Adodc1和Adodc2的属

4、性，来建立与数据库的连接，其设置界面如图第16页，共16页沈阳航空航天大学设计用纸图3Adodc1的属性页第16页，共16页沈阳航空航天大学设计用纸图4数据连接属性页通过在属性窗口来设置Datagrid1和Datagrid2的datasource、datafeild的属性来建立与Adodc控件的连接。（2）查询图书库存、学生借书情况是SQL语句在数据库中查找学生及图书信息。Select<字段名表>From<表名>Where<条件>程序段如下：Dima$,b$b=Text4.TextAdodc1.CommandType=adCmdUnknownAdodc1.RecordSource="s

5、elect*from学生名单wherexm='"&b&"'"第16页，共16页沈阳航空航天大学设计用纸'查询指定学生的全部信息Adodc1.RefreshIfAdodc1.Recordset.EOFThenMsgBox"没有此学生,请您重新输入",,"提示"ElseMsgBox"确定成功"EndIfa=List1.TextAdodc2.CommandType=adCmdUnknownAdodc2.RecordSource="select*from图书清单whereshuming='"&a&"'"'查询指定书名的信息Adodc2.Refresh（3）借出图书是更改数据库中图书信息及学生累计

6、节借书册数Recordset.Find搜索条件[,[位移],[搜索方向],[起始位置]]程序段如下：PrivateSubCommand1_Click()IfAdodc1.Recordset.Fields("ceshu")<5AndAdodc2.Recordset.Fields("kucunceshu")>0Then'判断学生图书册数是否大于5，库存册数是否大于0Adodc1.Recordset.Fields("ceshu")=Adodc1.Recordset.Fields("ceshu")+1'对学生借书册数进行减一，并修改表中内容Adodc2.Recordset.Fields("kuc

7、unceshu")=Adodc2.Recordset.Fields("kucunceshu")-1'对库存册数进行减一，并修改表中内容MsgBox"借阅成功",,"提示"IfAdodc1.Recordset.Fields("ceshu")>5OrAdodc2.Recordset.Fields("kucunceshu")=0ThenMsgBox"您不能借阅",,"提示"EndIf第16页，共16页沈阳航空航天大学设计用纸EndIfEn