VB课程设计.docx
《VB课程设计.docx》由会员分享，可在线阅读，更多相关《VB课程设计.docx（11页珍藏版）》请在冰豆网上搜索。
VB课程设计
il
VB课程设计
题目:
图书馆借还书系统
班级:
08级5班
姓名:
张瑜
指导教师:
张涛
摘要：
该课程设计是图书馆借还书系统，图书馆借还书系统要求实现用户登陆管理,用户基本信息管理,对图书进行查询,实现借书和还书功能。
经过分析,我们使用MICROSOFT公司的VISUALBASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
关键字：
管理窗体域VISULBASICACCESS数据库
Abstract：
Thelibraryborrowingbookssystemrequirementsuserslogon,theusermanagementtorealizebasicinformationmanagement,theinquiresborrowingandreturningthebook,realizethefunction.
Bylookinguplotsofdatum,weselectedVisualBasicpresentedbyMicrosoftbecauseofitsobjectivetoolsinWin32.VBofferedaseriesofActiveXoperatingadata-base.Itcangiveyouashort-cuttobuildupaprototypeofsystemapplication.Theprototypecouldbemodifiedanddevelopedtillusersaresatisfiedwithit.
Keywords:
managementformfieldVBAccessDatabase
设计算法分析
一、设计策略
本系统的结构是自顶向下扩展的、层次化的暗盒模块结构。
对高层模块，将采用以事务为中心的设计策略，把一个大的复杂的系统逐步分解成较小的相对简单的暗盒模块。
对低曾模块，采用以变换为中心的设计策略。
此外，为了提高模块的内聚性，降低模块间的耦合程度，数据库的设计原则是把它作为模块间的邮政信箱，从而实现数据共享又提高了模块的独立性，使系统具有很高的可修改性。
二、系统结构
图书馆管理系统
三、模块说明书
借还系统包括借书系统和还书系统。
在执行借书操作时，首先输入学生学号，根据提示信息选择所借书的信息，包括图书编号，图书名称，出版社，图书价格和现有册数；在执行还书操作时，首先输入学生学号，填写索还书的信息。
累计现状系统包括学生累计和书库现状。
学生累计里包括学生学号，学生姓名，以及已借书的册数等信息。
书库现状里包括图书名称，出版社，图书价格和现有册数等信息。
退出操作在执行完所有操作之后进行，退出程序。
四、窗体介绍
1、主窗体
进入主页面，点击借还系统，会显示借书、还书，如图1-1；
图1-1
（1）、借书系统
点击借书，如图1-2，输入正确的学号，点击确定，则会显示出学号和学生姓名，已借了几本书和还可以借几本，选择要借的图书，击确认借书，上限是五本；
图1-2
如若输入的学号不正确，提示没有相关的学生记录，如图1-3
图1-3
（2）、还书系统
输入正确的学号，点确定，显示学生信息和借书的清单，点击书名对应的还书控件，按确定，刷新学生的借书情况，
2、累计现状
（1）、学生累计
（2）、书库现状
程序代码：
PrivateSubhs_Click（）'显示还书窗体
flag=1
FormMain.Hide
Form1.Show
EndSub
PrivateSubjs_Click（）'显示借书窗体
flag=0
FormMain.Hide
Form1.Show
EndSub
PrivateSubskxz_Click（）'查看学生信息
flag=1
FormMain.Hide
Form2.Show
EndSub
PrivateSubtc_Click（）'退出
ask=MsgBox（"退出否?
",vbYesNo）
Ifask=6Then
End
EndIf
EndSub
PrivateSubxslj_Click（）'查看图书信息
flag=0
FormMain.Hide
Form2.Show
EndSub
PrivateSubForm_Activate（）'加载的时候选相应的标签页
DimiAsInteger
Ifflag=0Then
Form1.Caption="借书"
SSTab1.Tab=0
SSTab1.TabEnabled（0）=True
SSTab1.TabEnabled
（1）=False
Else
Form1.Caption="还书"
SSTab1.Tab=1
SSTab1.TabEnabled（0）=False
SSTab1.TabEnabled
（1）=True
EndIf
Text1.Text=""
Label3.Caption=""
Label4.Caption=""
Label3.Refresh
Label4.Refresh
Command3.Enabled=False
Fori=0To4
Text2（i）.Text=""
Nexti
Fori=0To4
Command2（i）.Enabled=False
Nexti
DataGrid1.Columns（0）.Caption="图书编号"
DataGrid1.Columns
（1）.Caption="图书名称"
DataGrid1.Columns
（2）.Caption="出版社"
DataGrid1.Columns（3）.Caption="图书价格"
DataGrid1.Columns（4）.Caption="现有册数"
EndSub
PrivateSubCommand1_Click（）
Form2.Hide
FormMain.Show
EndSub
PrivateSubForm_Activate（）
Ifflag=0Then
Form1.Caption="学生累计"
SSTab1.Tab=0
SSTab1.TabEnabled（0）=True
SSTab1.TabEnabled
（1）=False
EndIf
Ifflag=1Then
Form1.Caption="书库现状"
SSTab1.Tab=1
SSTab1.TabEnabled（0）=False
SSTab1.TabEnabled
（1）=True
EndIf
DataGrid1.Columns（0）.Caption="学号"
DataGrid1.Columns
（1）.Caption="学生姓名"
DataGrid1.Columns
（2）.Caption="已借册数"
DataGrid2.Columns（0）.Caption="图书编号"
DataGrid2.Columns
（1）.Caption="图书名称"
DataGrid2.Columns
（2）.Caption="出版社"
DataGrid2.Columns（3）.Caption="图书价格"
DataGrid2.Columns（4）.Caption="现有册数"
EndSub
五、数据库设计
5.１ 数据库总体结构
本系统采用关系型数据库SQLServer,数据库由、若干个二维表构成。
本系统的表分为两类。
一类是目录，即索引。
另一类是实际数据。
5.２ 数据库结构
图书清单
列名
数据类型
长度
允许空
书名
Varchar
50
出版社
varchar
50
图书编号
smallint
50
图书价格
smallint
50
现有册数
smallint
50
学生清单
列名
数据类型
长度
允许空
学号
smallint
50
姓名
varChar
4
已借书的册数
smallint
50
Store列表
列名
数据类型
长度
允许空
学号
smallint
50
已借书号
smallint
50
结 论
经过测试，此系统是可行的，此系统各模块都能实现各自的功能，但仍有一些其它的功能需要添加和完善，这是我第一次用ＶＢ来设计一个小程序，历时一周终于完成，其间有不少感触。
通过这次课程设计，我认识到自己对一些知识的细节还不是很清楚，还有待于进一步提高；通过这次课程设计，我明白了做任何事情都要脚踏实地，认真钻研，严格谨慎。
向在这次课程设计中给与指导和帮助的牛翠霞老师表示衷心的感谢！
参考文献
《VisualBasic实用教程第二版》郑阿奇 曹戈编著，电子工业出版社
《VisualBasic贯通教程》史斌星等编著，清华大学出版社
《VisualBasic６.０程序设计教程》高职高专贯通制教材编写组编著，电子工业出版社
升级会员 