VB课程设计报告 29.docx
- 文档编号:25870241
- 上传时间:2023-06-16
- 格式:DOCX
- 页数:13
- 大小:613.65KB
VB课程设计报告 29.docx
《VB课程设计报告 29.docx》由会员分享,可在线阅读,更多相关《VB课程设计报告 29.docx(13页珍藏版)》请在冰豆网上搜索。
VB课程设计报告29
沈阳航空航天大学
课程设计
学号
班级
姓名
指导教师
2012年3月15日
沈阳航空航天大学
课程设计任务书
学院:
机电工程学院专业:
机械设计制造及其自动化班级:
04060101
学号:
2010040601028题目:
图书借阅系统
一、课程设计时间
2011年3月5日~9日(第1周),共计1周,20学时。
二、课程设计内容
模拟图书馆的借阅图书业务时间一下功能:
每次每人只允许借1本;累计最多5本,否则不能借阅。
能够随时显示学生累计情况。
能够随时显示书库库存情况。
学生名单和图书馆清单有指导老师提供(参见:
file19_图书借阅系统。
mdb)。
三、课程设计要求
程序质量:
●贯彻事件驱动的程序设计思想。
●用户界面友好,功能明确,操作方便;可以加以其它功能或修饰。
●用户界面中的菜单至少应包括“借书”、“显示学生累计”、“显示书库现状”、“退出”4项
●代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
课程结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板
四.指导教师和学生签字
指导老师:
____________学生签名:
____________
五、成绩
六、教师评语
目录
一、需求分析5
二、设计分析5
三、关键技术6
四、总结11
五、完整的源程序11
六、参考文献13
一、需求分析
经过对程序设计题目的分析可知,老师已经提供了一个数据库,不需要自己新建一个数据库。
整个程序的设计实现大致分为四个模块,他们的功能分别是:
借书(Library),显示学生累计(Students),显示书库现状(Book),退出(Quit)。
1、借书主要实现在书库库存剩余时,学生每人每次只能借阅1本;累计最多5本,否则不能借阅。
2、显示学生累计实现的功能是显示当前学生的借书的累计量;
3、显示书库现状显示当前书库的剩余册数;
4、退出终止程序的执行。
在程序当中,显示学生累计和显示学生库存比较简单,只需要运用ADO数据库的访问即可。
借书需要用到DataGrid控件和ADODB。
借书时需要数据库的编号和库存册数。
用到DataGrid的Columns属性锁定在第一列的编号和第五列的库存册数。
ADODB是存取数据库的中间函式组件。
二、设计分析
(1)基本原理:
建立程序设计与数据库的连接,用SQL语句在数据库中查找和更改数据。
(2)总体设计:
(3)详细设计:
(4)数据库:
老师已给的的数据库
1)file19_图书借阅系统.mdb
三、关键技术
(1)建立与数据库的连接
运用adodc和DataGrid。
(2)按条件查询成绩是SQL语句在数据库查询符合要求的数据,和ADODB的运用。
PrivateSubCommand1_Click()
DimconnAsNewADODB.Connection
Dimrs1AsNewADODB.Recordset'册数
Dimrs2AsNewADODB.Recordset'库存册数
Dimsql1,sql2AsString
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\file19_图书借阅系统.mdb"'链接表
sql1="select*from学生名单wherexh='"&Trim(Text1.Text)&"'"'从学生名单中选择信息
sql2="select*from图书清单wherebianhao="&book_num'从图书清单中选择信息
s1.Opensql1,conn,1,3
rs2.Opensql2,conn,1,3
IfNotrs1.EOFThen'如果不超出给定限度
Ifrs1("ceshu")=5Then
MsgBox"该生借书数量已达到5本,不能继续借书!
",48,"提示!
"
Text1.SetFocus
Else
rs1("ceshu")=rs1("ceshu")+1'学生借的书的数目增加一个
rs1.Update
rs1.Close
rs2("kucunceshu")=rs2("kucunceshu")-1'库存册数减少一个
rs2.Update
rs2.Close
MsgBox"借书成功!
",48,"提示!
"
Text1.Text=""
Form4.Adodc1.Refresh
Me.Hide
EndIf
Else
MsgBox"无此学号信息!
",48,"提示!
"
Text1.Text=""
Text1.SetFocus'光标定在文本框中
EndIf
conn.Close'关闭链接
EndSub
(3)主界面截图
四、总结
这次课设我的题目是图书馆借阅系统,通过这次课设让我了解了VB与数据库之间的联系,可以应用ADO技术使VB与数据库进行联系,还可以应用SQL语言查询和更改数据库中的信息,并能更新其中的信息。
总的来说,我就ADODB的的游标设置和读写权限的设置有点迷惘,我在同学的帮助下和到微软的MSDN上查阅了相关的内容,最后写好了相关的程序。
遇到困难不要退缩,要认真的对待,只要认真的对待就会克服困难的。
我感觉到VB是一门严密的课程,既开放,又不允许一点的错误。
必须用自己严密的思维,认真的态度才能写出一个完美的程序。
我们得现实生活中也是如此,通往理想的路有很多,但是每一条路都要认真的走,才会到达自己想要去的地方。
五、完整的源程序
Form1的代码:
PrivateSubBook_Click()
Form4.Show
EndSub
PrivateSubForm_Resize()
Form1.Width=500*16
Form1.Height=497*16+240
EndSub
PrivateSubLibrary_Click()
Form4.Show
EndSub
PrivateSubQuit_Click()
i=MsgBox("你确定退出吗",1+vbQuestion,"警告")
Ifi<>6Then
End
EndIf
EndSub
PrivateSubStudents_Click()
Form3.Show
EndSub
Form2的代码:
PrivateSubCommand1_Click()
DimconnAsNewADODB.Connection
Dimrs1AsNewADODB.Recordset'册数
Dimrs2AsNewADODB.Recordset'库存册数
Dimsql1,sql2AsString
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\file19_图书借阅系统.mdb"'链接表
sql1="select*from学生名单wherexh='"&Trim(Text1.Text)&"'"'从学生名单中选择信息
sql2="select*from图书清单wherebianhao="&book_num'从图书清单中选择信息
rs1.Opensql1,conn,1,3
rs2.Opensql2,conn,1,3
IfNotrs1.EOFThen'如果不超出给定限度
Ifrs1("ceshu")=5Then
MsgBox"该生借书数量已达到5本,不能继续借书!
",48,"提示!
"
Text1.SetFocus
Else
rs1("ceshu")=rs1("ceshu")+1'学生借的书的数目增加一个
rs1.Update
rs1.Close
rs2("kucunceshu")=rs2("kucunceshu")-1'库存册数减少一个
rs2.Update
rs2.Close
MsgBox"借书成功!
",48,"提示!
"
Text1.Text=""
Form4.Adodc1.Refresh
Me.Hide
EndIf
Else
Form3的代码:
PrivateSubCommand1_Click()
Form3.Visible=False
EndSub
Form4的代码:
DimpanduanAsInteger
PrivateSubCommand1_Click()
Ifbook_num=0Then'如果没选中书
MsgBox"请选择要借阅的图书!
",vbOKOnly+vbExclamation
ExitSub'
EndIf
Ifpanduan=0Then'如果没有库存
MsgBox"此书已没有库存!
",vbOKOnly+vbExclamation
ExitSub
EndIf
Form2.Show
EndSub
PrivateSubCommand2_Click()
Form4.Visible=False
EndSub
PrivateSubDataGrid1_Click()
book_num=DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)'图书清单
panduan=DataGrid1.Columns(4).CellValue(DataGrid1.Bookmark)'库存册数
EndSub
模块代码:
Publicbook_numAsInteger
六、参考文献
1.龚沛曾Visualbasic程序设计教程北京:
高等教育出版社2010
2.龚沛曾Visualbasic程序设计教程实验指导与测试北京:
高等教育出版社2010
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB课程设计报告 29 VB 课程设计 报告