1 / 15
文档名称:

VB课程设计--图书馆借还书系统.doc

格式:doc   大小:226KB   页数:15页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

VB课程设计--图书馆借还书系统.doc

上传人:zl201163zl 2017/12/24 文件大小:226 KB

下载得到文件列表

VB课程设计--图书馆借还书系统.doc

文档介绍

文档介绍:il
VB课程设计
题目: 图书馆借还书系统
班级: 08级5班
姓名: 张瑜
指导教师:张涛
摘要:
该课程设计是图书馆借还书系统,图书馆借还书系统要求实现用户登陆管理,用户基本信息管理,对图书进行查询,实现借书和还书功能。
经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
关键字:管理窗体域 VISULBASIC ACCESS数据库
Abstract:The library borrowing books system requirements users log on,the user management to realize basic information management, the inquires borrowing and returning the book, realize the function.
By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a data-base. It can give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it.
Keywords: management form field VB Access Database
设计算法分析
一、设计策略
本系统的结构是自顶向下扩展的、层次化的暗盒模块结构。对高层模块,将采用以事务为中心的设计策略,把一个大的复杂的系统逐步分解成较小的相对简单的暗盒模块。对低曾模块,采用以变换为中心的设计策略。
此外,为了提高模块的内聚性,降低模块间的耦合程度,数据库的设计原则是把它作为模块间的邮政信箱,从而实现数据共享又提高了模块的独立性,使系统具有很高的可修改性。
二、系统结构
图书馆管理系统
借还系统
借书
还书
累计现状
学生累计
书库现状
退出
三、模块说明书
借还系统包括借书系统和还书系统。在执行借书操作时,首先输入学生学号,根据提示信息选择所借书的信息,包括图书编号,图书名称,出版社,图书价格和现有册数;在执行还书操作时,首先输入学生学号,填写索还书的信息。
累计现状系统包括学生累计和书库现状。学生累计里包括学生学号,学生姓名,以及已借书的册数等信息。书库现状里包括图书名称,出版社,图书价格和现有册数等信息。
退出操作在执行完所有操作之后进行,退出程序。
四、窗体介绍
1、主窗体
进入主页面,点击借还系统,会显示借书、还书,如图1-1;
图1-1
(1)、借书系统
点击借书,如图1-2,输入正确的学号,点击确定,则会显示出学号和学生姓名,已借了几本书和还可以借几本,选择要借的图书,击确认借书,上限是五本;
图1-2
如若输入的学号不正确,提示没有相关的学生记录,如图1-3
图1-3
(2)、还书系统
输入正确的学号,点确定,显示学生信息和借书的清单,点击书名对应的还书控件,按确定,刷新学生的借书情况,
2、累计现状
(1)、学生累计
(2)、书库现状
程序代码:
Private Sub hs_Click() '显示还书窗体
flag = 1


End Sub
Private Sub js_Click() '显示借书窗体
flag = 0


End Sub
Private Sub skxz_Click() '查看学生信息
flag = 1


End Sub
Private Sub tc_Click() '退出
ask = MsgBox("退出否?", vbYesNo)
If ask = 6 Then
End
End If
End Sub
Private Sub xslj_Click() '查看图书信息