图书借阅系统 (2).doc

沈阳航空航天大学设计用纸沈 阳 航 空 航 天 大 学 课程设计 学 号2009040302080班 级 94030203姓 名 纪朝宪指导教师 王晓岩 2011年 3 月 15 日第16页，共16页沈阳航空航天大学课程设计任务书学院：航空宇航工程 专业：飞行器制造工程 班级：94030203学号：2009040302080题目：图书借阅系统一、课程设计时间2011年3月711日（第1周），共计1周，20学时。二、课程设计内容模拟图书馆的借阅图书业务实现以下功能：每次每人只允许借1本；累计最多5本，否则不能借阅。能够随时显示学生累计情况。能够随时显示书库库存情况。学生名单和图书清单由指导教师提供（参见：file19_图书借阅系统.mdb）。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 用户界面中的菜单至少应包括“借书”、“显示学生累计”、“显示书库现状”、“退出”4项。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录需求分析4设计分析4技术要点5主要界面截图10总结12完整的源程序13参考文献15需求分析模拟图书馆的借阅图书业务实现以下功能。要求：（1）每次每人只允许借1本；累计最多5本，否则不能借阅。（2）能够随时显示学生累计情况。（3）能够随时显示书库库存情况。设计分析（1）基本原理：建立程序设计与数据库的连接，用SQL语句在数据库中查找，更改数据。（2）总体设计：SQL语言处理数据库ADO技术连接图1 总体设计（3）详细设计：开始连接数据库查询数据更改数据显示学生信息、图书信息学生借书、书库现状技术要点（1）建立与数据库的连接如下：通过设置Adodc1和Adodc2的属性，来建立与数据库的连接，其设置界面如图图3 Adodc1的属性页图4 数据连接属性页通过在属性窗口来设置Datagrid1和Datagrid2的datasource、datafeild的属性来建立与Adodc控件的连接。（2）查询图书库存、学生借书情况是SQL语句在数据库中查找学生及图书信息。SelectFromWhere程序段如下： Dim a$, b$ b = Text4.Text Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select *from 学生名单 where xm= & b & 查询指定学生的全部信息 Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox 没有此学生,请您重新输入, , 提示 Else MsgBox 确定成功 End If a = List1.Text Adodc2.CommandType = adCmdUnknown Adodc2.RecordSource = select *from 图书清单 where shuming= & a & 查询指定书名的信息 Adodc2.Refresh（3）借出图书是更改数据库中图书信息及学生累计节借书册数Recordset.Find 搜索条件,位移,搜索方向,起始位置程序段如下：Private Sub Command1_Click()If Adodc1.Recordset.Fields(ceshu) 0 Then 判断学生图书册数是否大于5，库存册数是否大于0 Adodc1.Recordset.Fields(ceshu) = Adodc1.Recordset.Fields(ceshu) + 1 对学生借书册数进行减一，并修改表中内容 Adodc2.Recordset.Fields(kucunceshu) = Adodc2.Recordset.Fields(kucunceshu) - 1 对库存册数进行减一，并修改表中内容 MsgBox 借阅成功, , 提示 If Adodc1.Recordset.Fields(ceshu) 5 Or Adodc2.Recordset.Fields(kucunceshu) = 0 Then MsgBox 您不能借阅, , 提示 End IfEnd IfEnd sub（4）向列表框中添加书名列表框对象.AddItem项目字符串,索引值程序段如下：Private Sub Form_Load() Text4.Visible = False Label5.Visible = False Command2.Visible = FalseList1.Visible = FalseDo While Not Adodc2.Recordset.EOF List1.AddItem Adodc2.Recordset.Fields(shuming) Adodc2.Recordset.MoveNextLoopEnd sub主要界面截图图5 加载图书名图6 图书查询图7借书及书库现状图8显示学生借书状况总结这次课设我的题目是书店图书借阅系统，通过这次课设让我了解了VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行联系，还可以应用SQL语言查询和更改数据库中的信息。学到了课堂上很多难以学到的东西，并且通过自己发现问题、自己解决问题使我藏我了很很多多知识。在课设过程中，我遇到了重重困难，例如：VB与数据库的连接技术，通过老师的指点和自己查阅资料，我克服了困难，顺利的完成了任务。同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。把VB等其它计算机语言与自己的专业相结合，将会成为社会的所趋，也必将成为我今后的努力方向。完整的源程序Option ExplicitOption Base 1Dim i%Private Sub Command1_Click() If Adodc1.Recordset.Fields(ceshu) 0 Then Adodc1.Recordset.Fields(ceshu) = Adodc1.Recordset.Fields(ceshu) + 1 Adodc2.Recordset.Fields(kucunceshu) = Adodc2.Recordset.Fields(kucunceshu) - 1 MsgBox 借阅成功, , 提示 If Adodc1.Recordset.Fields(ceshu) 5 Or Adodc2.Recordset.Fields(kucunceshu) = 0 Then MsgBox 您不能借阅, , 提示 End IfEnd If i = i + 1 If i = 1 Then MsgBox 注意，每次借阅只可以借一本: Command1.Enabled = False End SubPrivate Sub Command2_Click() Dim a$, b$ b = Text4.Text Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select *from 学生名单 where xm= & b & Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox 没有此学生,请您重新输入, , 提示 Else MsgBox 确定成功 End If a = List1.Text Adodc2.CommandType = adCmdUnknown Adodc2.RecordSource = select *from 图书清单 where shuming= & a & Adodc2.Refresh Frame1.Visible = True Command1.Visible = True List1.Visible = True Command1.Enabled = TrueEnd SubPrivate Sub cond_Click() DataGrid2.Visible = True DataGrid1.Visible = False Frame1.Visible = False Command1.Visible = FalseEnd SubPrivate Sub exit_Click()EndEnd SubPrivate Sub Form_Load() Text4.Visible = False Label5.Visible = False Command2.Visible = FalseList1.Visible = FalseDo While Not Adodc2.Recordset.EOF List1.AddItem Adodc2.Recordset.Fields(shuming) Adodc2.Recordset.MoveNextLoopEnd SubPrivate Sub jieshu_Click() Dim a$ a = List1.Text Adodc2.CommandType = adCmdUnknown Adodc2.RecordSource = select *from 图书清单 where shuming= & a & Adodc2.Refresh Text4.Visible = True Label5.Visible = TrueFrame1.Visible = TrueCommand1.Visible = True List1.Visible = True Command2.Visible = True End SubPrivate Sub List1_Click() Dim a$ a = List1.Text Adodc2.CommandType = adCmdUnknown Adodc2.RecordSource = select *from 图书清单 where shuming= & a & Adodc2.Refresh Fr