VB图书管理系统 课程设计报告

合集下载

vb数据库图书管理系统报告

vb数据库图书管理系统报告

实习报告一.题目要求设计一个简单的图书管理系统。

(图书管理分为借书,还书,图书维护等部分)1)录入图书信息,创建图书管理文件2)实现基本的图书管理功能(图书的借阅,还书,图书信息的管理等)二.功能分析编写这个程序考虑到系统比较复杂,而且实现的功能比较多,所以最后决定用Visual Basic来编写这个程序,这样编写时只要建立各个不同功能的窗体,让它们实现不同的功能,最后用代码将各个窗体连接起来就行。

1.系统结构该程序的总体任务是实现图书管理的系统化和自动化,帮助图书管理人员更好更高效的完成图书管理工作,该系统完成的具体功能如下:书籍管理部分:这一部分包括书籍类别管理和书籍信息管理两部分,其中,书籍类别管理包括添加书籍类别,修改图书类别等;书籍信息管理包括书籍信息的添加,书籍信息的修改,书籍信息的删除,书籍信息的查询等读者管理部分:这一部分包括读者类别管理和读者信息管理两部分。

其中,读者类别管理包括添加读者类别,修改读者类别等;读者信息管理包括添加读者信息,修改读者信息,删除读者信息,查询读者信息等借阅管理部分:这一部分包括借书信息管理和还书信息管理两部分。

其中,借书信息管理包括借书信息的添加,借书信息的修改,借书信息的查询等;还书信息管理部分包括还书信息的添加,还书信息的修改,还书信息的查询等系统管理部分:这一部分包括修改系统用户密码,增加新用户以及推出系统等2.程序设计1.系统的算法设计2.系统的数据结构设计该程序采用的是Acess2000作为后台数据库。

系统所需的数据库按照如下思路设计:书籍类别,书籍信息,读者类别,读者信息图书借阅部分等应该各自作为一个表存在,此外,系统管理员的信息单独用一个表来记录。

这样,整个数据库设计后的结果如图所示图书管理系统书籍管理部分 读者管理部分 借阅管理部分 借书管理系统管理部分 借书信息修改 还书管理增加用户修改密码读者类别管理添加读者类别 读者信息管理书籍信息添加 书籍信息管理书籍类别管理书籍信息删除书籍信息查询 书籍信息修改 书籍类别添加 书籍类别修改修改读者类别添加读者信息 修改读者信息 删除读者信息 借书信息查询借书信息添加 还书信息修改 还书信息添加 还书信息查询查询读者信息3.主要的功能模块流程图1)借书流程图开始设置使combo1和2相等Shumu>=maxnum提示该读者借书数额已满将新的借书数据添加到借阅信息数据库将该书的"是否已借书"设为是将该读者已借图书数量加1显示“借书成功!”结束YN2.还书流程图开始选择需要还书的读者单击“查询”选择要还的图书提示“是否确定还书”将此书从借阅表中删除将这本书的“是否已借出”设为否将这本书的读者“已借书数量”减1提示“成功删除!”结束3)添加用户流程图开始定义所需变量判断输入的用户名是否为空提示“用户名不能为空!”判断用户名是否重复提示“已经有这个用户!”检查两次输入的密码是否一致判断是否选择用权限提示:“添加用户成功!”提示选择正确的用户权限结束提示“两次输入的密码不一致!”YNYNNYNY4)修改密码流程图开始输入新密码将焦点设置在text1 判断两次输入的密码是否一致将text1和text2清空将新密码输入数据库提示“密码修改成功!”结束NY三.程序预览运行本程序系统,首先出现登录界面,输入正确的密码和用户名之后进入主窗体,如图1所示,主窗体菜单栏包含的主要菜单有图书管理,读者管理,图书借阅管理,系统管理等。

VB课程设计--图书管理系统

VB课程设计--图书管理系统

第0 页共22 页目录第一章绪论 (2)第二章需求分析 (3)2.1任务概述 (3)2.1。

1 图书管理系统完成的主要目标 (3)2。

1。

2用户的特点 (3)2。

2需求规定 (3)2。

2。

1对功能的规定 (3)2.2.2读者管理功能 (4)2.2。

3系统管理功能 (4)第三章概要设计 (5)3。

1总体设计 (5)3。

1.1系统目标设计 (5)3.1.2系统功能分析 (5)3.2系统设计思想 (5)3.3 系统模块功能解析 (6)第四章详细设计 (7)4.1程序设计说明 (7)4.1。

1用户登录模块 (7)4.1。

2用户添加模块 (7)4.1。

3书籍查询模块 (8)4。

1.4图书借阅模块 (9)4.1。

5图书归还模块 (10)4。

1.6新书入库模块 (11)第五章编码与测试 (13)5。

1各功能模块的实现 (13)5。

2 测试 (19)5.2。

1借阅卡管理测试 (19)5.2.2书籍管理测试 (19)5。

2.3系统管理测试 (19)结束语 (20)致谢 (21)参考文献 (21)图书管理系统摘要:本文介绍了在VB6。

0环境下采用“自上而下地总体规划,自下而上地应用开发”的策略开发一个管理信息系统的过程.通过分析传统的人工管理图书馆的不足,创建了一套行之有效的计算机管理图书馆的方案。

文章详细介绍了图书管理信息系统的系统分析部分,包括可行性分析、组织机构分析、管理职能分析、业务流程分析、数据流程分析、数据字典、处理描述等等;系统设计部分主要介绍了系统功能设计和数据库设计;系统实现部分列出了几个主要的程序框图,并附带了一些主要的窗口和程序。

关键字:图书管理系统,VB6.0,sqlserver2000,信息系统Library Management SystemAbstract:This article introduces the detailed process of exploring a management information system under the environment of VB6。

VB图书管理系统 课程设计报告

VB图书管理系统 课程设计报告

VB语言程序设计课程设计报告系 (部)专业班级学生姓名学号/序号指导教师完成时间图书管理系统一、功能描述使用VB6.0中各种控件的常用属性和事件、数组的各种操作以及数据库的相关操作(数据库的建立、编辑、查找、删除等),建立了这个简易的图书管理系统,方便图书管理人员对图书的管理。

用户可以通过此系统的添加、删除,还回,借出等功能对书籍信息、书籍流通进行编辑同时也可以通过直接输入想要查询的书籍信息来获得书籍的流通及库存等相关信息。

二、概要设计1、系统功能模块框图设计首先程序运行,出现一个MDI主窗体,里面分别有登录,书籍信息管理系统,退出三个菜单选项,登录前,管理按钮不可用,当正确输入用户名以及密码以后,点管理按钮,图书管理窗体显示,用户可对图书信息进行管理。

2、数据库设计创建一个数据库为mydb.mdb,该数据库共包含3张表,分别为“书籍信息表”、“图书归还表”和“图书借出表”,表结构如下:书籍信息表:图书编号、图书名、作者、出版社、数量、出版日期、价格图1. 书籍信息表图书归还表:图书编号、图书名、作者、出版社、数量、图书是否损坏、借出日期、归还日期;图2. 图书归还表图书借出表:图书编号、图书名、作者、出版社、借出数量、借出时间、联系电话、借出期限、借出者姓名。

图3. 图书借出表三、详细设计1、MDI主界面用户登录模块中登录与取消两按钮,单击登录会进入系统进行下一步的操作,用户名文本框与数据库相连接,当在用户名文本框输入用户名后点击登录按钮后,会在数据库中进行查询看数据库中是否会有该用户名,且该用户名的密码是否与密码框中输入的相同,如果相同会进入系统,如果不存在该用户名或密码与用户名不相匹配,则会提示“密码错误”,用户名文本框会得到焦点,让重新输入。

(1)窗体截图(如图5.1)图1 MDI主界面图2 登录窗体1.功能实现用户登录Private Sub Command1_Click()Dim msg, style, title, responseIf Text2.Text = 123 ThenMDIForm1.bj.Enabled = TrueForm3.HideElsemsg = "密码错误,请重新输入。

vb图书管理系统课程设计

vb图书管理系统课程设计

vb图书管理系统课程设计VB课程设计报告题目:图书管理系统学院:信息工程学院专业:信息工程(信息安全方向)班级:1132101姓名:赖玉蕾学号: 30210102指导老师:魏树权目录摘要关键字一系统规划1.1系统功能描述1.2功能模块划分1.3 E-R图二系统界面的开发2.1登录界面2.2用户管理界面三系统的详细设计3.1登录界面代码3.2各功能代码四心得体会及认识致谢摘要随着人类社会的发展,人类对知识的需求也不断地增长。

在这种形势下,书籍就渐渐地成为人们获取并增长知识的主要途径,而图书馆就自然而然地在人们的生活中占据了一定的位置。

如何科学地管理图书馆不但关系到读者求知的方便程度,也关系到绘本馆的发展,因此,开发一套完善的图书管理系统就必不可少了,图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

经过分析,使用 Microsoft公司的Visual Basic6.0为开发工具,利用其提供的各种面向对象的可视化开发平台作为开发工具,采用面向对象技术,图形化的应用开发环境,特别是它有一个功能极其强大的集成环境提供给开发人员,使得开发人员可经过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。

开发过程中不断修正和改进,直到形成用户满意的可行系统。

本文介绍了在Visual Basic6.0环境下采用"自上而下地总体规划,自下而上地应用开发"的策略开发本系统的详细过程,提出实现图书信息管理、资源共享的基本目标,从而推动迈向数字化图书馆的步伐,并阐述系统结构设计和功能设计,从图书的入库登记、借阅登记到查询浏览,形成了一个整体自动化管理模式,从软件工程的角度进行了科学而严谨的阐述。

关键词:图书管理系统;借阅;浏览;编辑;Visual Basic 6.0一系统规划1.1主要功能录入、删除、修改及查询1.2模块结构划分此功能分为几个模块读者种类信息:读者基本信息书籍信息借书信息还书信息1.3建立如下E-R图。

基于VB的大学图书管理系统的设计

基于VB的大学图书管理系统的设计

基于VB的大学图书管理系统的设计摘要:为了实现图书馆的信息化管理,提出了以visual basic6.0为编程语言,将access 2003数据库作为后台数据库,设计一个现代化的图书管理系统。

结果表明:该系统便于图书的管理和统计,为对智能化管理信息提供了一个新的方法。

关键词:图书管理;数据库;access 2003;visual basic1.引言传统的图书管理对象是书,随着计算机科学的发展,大学的图书馆的藏书量越来越多,这样的管理方法已经与时代脱轨了。

21世纪是一个信息化的时代,这样的管理系统必然遭到淘汰,取代它的是以计算机为核心的信息系统。

信息系统的管理包括科学的管理和规范的系统设计,可以对信息进行采集、传送、编辑、修改等等,这样的系统还可以对数据进行存储、传递等操作。

--!> 开发图书馆信息管理系统的目的是可以将大量的书籍的相关信息存储在电脑中,便于图书的管理与维护,使图书的反复利用率得到改善。

2.系统设计图书馆最大的特点就是藏书过万,数量庞大的图书自然需要人为细心的管理,可是,根据传统的人为管理方法不得当,往往造成大量图书的丢失、损坏,所以,开发出一个可以高效的信息管理系统是一种趋势,这样的系统不但可以便于图书的管理,更是为借阅者提高更好的便利条件,而且,该系统拥有友好的交互界面,高效的运行速度和系统维护。

2.1 需求分析图书管理系统是为了借阅者而服务的,管理该系统的正是图书馆管理人员。

为了方便图书借阅者可以直接查询所需的书籍信息,本系统有一个登陆系统,需要图书借阅者(大学生)的个人信息,包括学号和密码,初始密码都是自己的学号,学生可以根据自身需要对其进行设置,在一定程度上,保证了学生个人的隐私。

学生-借阅者,只是拥有查询书籍的权利,可以知道所需书籍目前的位置,库存量,是否可以借阅等少量信息。

信息管理系统希望服务的对象-借阅者,而在后台操作一切的则是图书馆者。

因为图书馆书籍的数目过多,要求数据库一定可维护性,所以,图书管理者的任务艰巨,在为各类图书借阅服务的同时,还要维护图书馆的秩序。

VB图书管理系统(VB课程)开题报告

VB图书管理系统(VB课程)开题报告
随着Internet网络技术的高速发展,积极开发新一代图书馆信息管理系统,是我国图书馆信息管理系统不失时机地走向世界前列的重要契机.
本人认为,开发新一代图书馆信息管理系统,一是要坚持系统工程和软件工程的思想和有关标准、规范,二是要以网络为基本环境,采用最新的信息技术,三是要适应图书馆服务功能的巨大变化,能提供多层次和多种形式的、有针对性的、高质量和个性化的信息服务和知识服务,四是要满足网络读者的使用要求和不同的操作习惯。
[4.]高树芳 软件工程 大连理工大学出版社
[5]杨玉霞,汪永超,王亚森,刘勇.B/S结构企业培训管理信息化系统的研究[J]。计算机工程与设计.30(5),2009
[6]覃国蓉。《基于B/S架构的软件项目实践》[M].北京:电子工业出版社.2004
[7]新艺科技 DreamweaverCS3网页设计技术入门篇 [M].北京:清华大学出版社 2008。12 P:1—
六、指导教师审查意见
指导教师签名:日期:年月日
所在系意见:
负责人签名(签章):日期:年月日
安徽涉外经济职业学院
信息与计算机系毕业生
毕业设计开题报告及论文工作计划表
课题名称VB图书管理系统(VB课程)059
班级
姓名
指导教师
开题日期2010年11月18日
安徽涉外经济职业学院信息与计算机系
2010年11月18日
一、文献综述与选题背景
1.本课题的研究意义,国内外研究现状、水平和发展趋势
研究的意义:
四、工作计划
序号
阶段及内容
工作量估计
(时数)
起讫日
4
开题报告、查阅资料
系统分析、系统设计
程序编写、系统调试
论文撰写

基于VB的图书管理系统设计(毕业论文doc)

基于VB的图书管理系统设计(毕业论文doc)

摘要随着现代科学技术的进步,人类社会正逐渐走向信息化,图书馆拥有丰富的文献信息资源,是社会系统的重要组成部分,在信息社会中起着越来越重要的作用。

我国图书馆信息技术的应用起步于20世纪70年代末期,随着改革开放步伐的迅速发展,特别是90年代以后,我国图书馆信息网络建设取得了较大发展,图书馆信息化建设迈向了一个新台阶。

图书馆管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

对于前者要求建立起数据的一致性和完整性强,数据安全性好的库。

而对于后者则要求应用程序功能完备,易使用等特点。

本系统后台数据库使用access,前台开发工具使用Visual Basic6.0.采用目前比较流行的ADO数据访问技术,成功地将面向对象的程序设计思想应用到数据库应用程序设计中。

实现了,图书管理、读者管理、借阅管理、系统管理,四大功能。

【关键词】图书,面向对象,数据库,ADO数据访问技术.AbstractAlong with the technical advance in modern science,mankind society head for gradually the information turns, the library owns the abundant cultural heritage information resources, using the importance of the social system to constitute the part,in information society the function is more and more important,our country information technical and applied in library start in 20 centuries 70’s last phase, is liberal to develop quickly along with the step that reform, especially 90’s hereafter,our country library information network developments obtained the big development library information turns developments headed into a new step。

图书管理系统需求分析报告-VB编程毕业设计

图书管理系统需求分析报告-VB编程毕业设计

需求分析报告一、引言图书管理是高校内每一个系部或院部都必须切实面对的工作,但一直以来人们使用传统的人工方式管理图书资料。

这种方式存在着许多缺点,如效率低、保密性差且较为繁琐。

另外,随着图书资料数量的增加,其工作量也将大大增加,这必将增加图书资料管理者的工作量和劳动强度,这将给图书资料信息的查找、更新和维护都带来了很多困难。

经过详细的调查,目前我国各类高等学校中有相当一部分单位图书资料管理还停留在人工管理的基础上。

这样的管理机制已经不能适应时代的发展,其管理方法将浪费许多人力和物力。

随着科学技术的不断提高,这种传统的手工管理方法必然被以计算机为基础的信息管理方法所取代。

图书管理作为计算机应用的一个分支,有着手工管理无法比拟的优点,如检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。

这些优点能够极大地提高图书管理的效率。

因此,开发一套能够为用户提供充足的信息和快捷的查询手段的图书管理系统,将是非常必要的,也是十分及时的。

二、任务概述经过对我校详细调查,并多次与负责图书管理的老师进行研讨后,加深了对现行图书管理业务的深刻了解,与此同时,将整个图书管理的业务流程抽象描述如下:①新的图书购进后,分门别类地进行归并并汇总,加以编号。

②新书编号后,上到书架以备学生借阅。

③如某学生需要借阅图书,则在其本人的借阅登记表上进行登记,记录相关借阅信息与借阅日期。

④学生借阅图书后,应及时归还图书,并在本人的借阅登记表上注明还书日期和时间。

根据以上调查分析,可以给出其现行业务流程图如图1所示。

图1 现行图书管理业务流程图三、数据描述经过详细的调查,我们已经清楚了解了现行的业务流程,接下来给出系统的逻辑模型。

构造系统逻辑模型的工具是数据流图和数据字典。

根据现行图书管理的业务流程,首先把数据流图中的源点和终点都选定为学生,因此可以得到图书管理系统的基本系统模型,如图2所示。

图2 图书管理系统的基本系统模型根据基本系统模型,对其逐步细化,得到描述逻辑系统细化后的数据流图,如图3所示。

毕业设计(论文)-图书馆图书信息管理系统设计(VB设计)

毕业设计(论文)-图书馆图书信息管理系统设计(VB设计)

目录摘要一、概述 (2)二、本系统概况 (3)2.1 软件配置 (3)2.2 硬件配置 (3)三、系统设计 (4)3.1 系统功能要求 (4)3.2 系统性能要求 (5)四、数据库设计及配置 (7)4.1 图书信息表的关系图 (7)4.2 Library数据库各信息表介绍 (7)4.2.1 管理员信息表 (7)4.2.2 读者信息表 (8)4.2.3 图书借阅信息表 (8)4.2.4 图书清单信息表 (8)4.2.5 图书类别信息表 (10)4.2.6 图书编码信息表 (10)五、系统程序实现 (11)5.1 设计概况 (11)5.2 系统界面及各主要模块核心代码 (12)5.2.1 系统登录界面 (12)5.2.2 系统主界面 (14)5.2.3 管理员登记界面 (22)5.2.4 图书分类界面 (30)5.2.5 读者办理借书证界面 (34)5.2.6 图书借阅统计分析界面 (37)致谢参考资料图书馆图书信息管理系统摘要:本次毕业设计任务是开发图书馆管理系统。

采Visual Basic和MS SQLSERVE等软件为开发工具;通过对计算机硬件和软件解决方案的论证;对应用领域进行调查分析;参考各种资料和进行数据库编程实践。

在指导老师的帮助下,已经基本上成功地实现了设计任务书的要求。

使得我们设计的数据库系统能够实现图书借阅管理,图书馆书籍管理等功能。

图书管理系统是图书馆管理工作中不可缺少的部分,它的内容对于图书馆的管理者和使用者来说都至关重要,所以图书管理系统应该能够为管理者或读者提供充足的信息和快捷的数据处理手段。

但一直以来人们使用传统人工的方式进行图书管理和借阅管理,这种管理方式存在着许多缺点,如:效率低、易忘记、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。

随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

Visual Basic课程实训报告 图书管理系统

Visual Basic课程实训报告 图书管理系统

Visual Basic课程实训报告题目:图书管理系统班级:计算机应用技术09-1 姓名:苏玉苗学号:2009205149指导老师:曾希君实训时间:2011.1.4—1.6实训地点:机房成绩:2011年1月6日目录摘要 (1)关键字 (1)1 . 绪论 (1)2 . 系统需求分析 (2)3 . 系统运行环境 (2)4 . 数据库设计 (3)4.1 详细描述数据库的所涉及的表的内容 (3)4.2 说明表之间的关系 (5)5 . 窗体设计 (6)5.1 VB窗体设计 (6)5.2 VB报表设计 (11)6 . 使用建议 (13)7 . 总结 (13)图索引图4-1access关系图 (5)图5-1欢迎界面 (6)图5-2登陆界面 (6)图5-3图书管理系统 (7)图5-4图书登记 (7)图5-5学生管理 (8)图5-6借书管理 (8)图5-7还书管理 (9)图5-8图书查询 (9)图5-9图书类别 (10)图5-10管理员设置 (10)图5-11关于 (10)图5-12图书报表 (11)图5-13 学生报表 (12)图5-14借阅报表 (12)表索引表4-1管理员信息表 (3)表4-2图书登记表 (3)表4-3学生基本信息表 (4)表4-4图书类别表 (4)表4-5借阅信息表 (4)图书馆管理系统摘要:图书管理系统是采用Visual Basic6.0开发的一个数据库管理系统。

开发本系统的基本步骤:需求分析、系统概念设计、系统逻辑和物理设计、系统实现和维护。

在系统分析中先后用数据字典、数据流程、系统的功能结构图、ER 图分析了系统所需的各种数据。

在系统的设计过程中,我采用了模块独立设计法,比较详细的展现了各个模块的功能。

在库和表的设计当中, 我力求层次清晰,设计简单实用。

在系统具体实行阶段中,我精心细致的画出了各个窗体并给出了相应的事件和代码,以实现各个窗体的作用。

本系统虽然设计简单,但有一定的实用性。

用vb设计图书管理系统

用vb设计图书管理系统

用vb设计图书管理系统用vb设计图书管理系统VB课程设计报告目录摘要关键字一系统规划 1.1系统功能描述 1.2功能模块划分1.3 E-R图二系统界面的开发 2.1登录界面 2.2用户管理界面三系统的详细设计3.1登录界面代码 3.2各功能代码四心得体会及认识致谢摘要随着人类社会的发展,人类对知识的需求也不断地增长。

在这种形势下,书籍就渐渐地成为人们获取并增长知识的主要途径,而图书馆就自然而然地在人们的生活中占据了一定的位置。

如何科学地管理图书馆不但关系到读者求知的方便程度,也关系到绘本馆的发展,因此,开发一套完善的图书管理系统就必不可少了,图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

经过分析,使用Microsoft公司的Visual Basic6.0为开发工具,利用其提供的各种面向对象的可视化开发平台作为开发工具,采用面向对象技术,图形化的应用开发环境,尤其是它有一个功能极其强大的集成环境提供给开发人员,使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。

开发过程中不断修正和改进,直到形成用户满意的可行系统。

本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划,自下而上地应用开发“的策略开发本系统的详细过程,提出实现图书信息管理、资源共享的基本目标,从而推动迈向数字化图书馆的步伐,并阐述系统结构设计和功能设计,从图书的入库登记、借阅登记到查询浏览,形成了一个整体自动化管理模式,从软件工程的角度进行了科学而严谨的阐述。

关键词:图书管理系统;借阅;浏览;编辑;Visual Basic 6.0 一系统规划1.1主要功能录入、删除、修改及查询1.2模块结构划分此功能分为几个模块读者种类信息:读者基本信息书籍信息借书信息还书信息1.3建立如下E-R图图书管理系统基础信息维护用户信息用户登录退出更改密码读者管理读者信息图书管理图书信息期刊管理期刊信息查询读者查询用户借阅与借阅信息统计分析管理统计管理刷新添加删除修改添加刷新修改书号书名作者出版社状态二系统界面的开发2.1 用户登录用户登录界面1、输入账号与密码点击“登录” 直接登录进入管理界面。

vb图书管理系统课程设计

vb图书管理系统课程设计

vb图书管理系统课程设计VB课程设计报告题目:图书管理系统学院:信息工程学院专业:信息工程(信息安全方向)班级:1132101姓名:赖玉蕾学号: 201130210102指导老师:魏树权摘要随着人类社会的发展,人类对知识的需求也不断地增长。

在这种形势下,书籍就渐渐地成为人们获取并增长知识的主要途径,而图书馆就自然而然地在人们的生活中占据了一定的位置。

如何科学地管理图书馆不但关系到读者求知的方便程度,也关系到绘本馆的发展,因此,开发一套完善的图书管理系统就必不可少了,图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

经过分析,使用Microsoft公司的Visual Basic6.0为开发工具,利用其提供的各种面向对象的可视化开发平台作为开发工具,采用面向对象技术,图形化的应用开发环境,尤其是它有一个功能极其强大的集成环境提供给开发人员,使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。

开发过程中不断修正和改进,直到形成用户满意的可行系统。

本文介绍了在Visual Basic6.0环境下采用"自上而下地总体规划,自下而上地应用开发"的策略开发本系统的详细过程,提出实现图书信息管理、资源共享的基本目标,从而推动迈向数字化图书馆的步伐,并阐述系统结构设计和功能设计,从图书的入库登记、借阅登记到查询浏览,形成了一个整体自动化管理模式,从软件工程的角度进行了科学而严谨的阐述。

关键词:图书管理系统;借阅;浏览;编辑;Visual Basic 6.0 一系统规划1.1主要功能录入、删除、修改及查询1.2模块结构划分此功能分为几个模块读者种类信息:读者基本信息书籍信息借书信息还书信息1.3建立如下E-R图二系统界面的开发2.1 用户登录用户登录界面1、输入账号与密码点击“登录”直接登录进入管理界面。

VB图书管理系统设计论文报告

VB图书管理系统设计论文报告

VB综合实验报告系别:信息系专业:应用电子技术学生姓名:张立朋指导教师:徐香坤2011年 4 月 20 日一.实验题目:图书借阅系统二.实验目的:1.灵活运用运用各种控件和各种语法规则,程序结构。

2.学会利用数组解决实际问题。

熟练运用循环和选择语句对数组操作。

3. 理解过程和函数的概念,掌握子过程的创建和调用以及函数过程的创建和调用三.实验要求:独立设计用户界面,设置相应属性,编写相关代码。

四.实验内容:本模块是管理员登录系统时的一个版面,点击“确定”按钮即可进入下一个页面,主页面如图1.1所示:图 1.1代码如下:Private Sub cmdOK_Click()Unload Meform2.ShowEnd SubPrivate Sub Form_Load()Timer1.Enabled = TrueLabel1.Caption = "图书借阅系统"Label1.AutoSize = TrueLabel1.FontSize = 20Label1.FontBold = TrueEnd SubPrivate Sub Timer1_Timer()If Label1.Left < Width ThenLabel1.Left = Label1.Left + 20ElseLabel1.Left = 0End IfEnd Sub本模块主要是图书管理系统的登陆界面,用户输入正确的用户名,密码,验证码才能进入下一界面;如果三项中有输入错误的,则系统会显示相应的提示,并且禁止用户进入该系统。

主页面如图1.2所示:图1.2代码如下:Dim vCode As StringPrivate Sub Command1_Click()If text1.Text = And text2.Text = And Text3.Text = vCode ThenLoad frmMain: frmMain.ShowUnload form2ElseIf text1.Text = And text2.Text = And Text3.Text <> vCode ThenMsgBox "验证码错误"Else: MsgBox "账号或密码错误"End Iftext1.Text = ""text2.Text = ""Text3.Text = ""text1.SetFocusdrawvcEnd IfEnd SubPrivate Sub drawvc() '显示校验码Dim i, vc, px, py As LongDim r, g, b As ByteRandomize '初始化随机种子'生成随机校验码vc = CLng(8999 * Rnd + 1000)vCode = vc'显示校验码Picture1.ClsPicture1.Print vc'添加噪点(防止自动图像识别)For i = 0 To 2000 '画2000个噪点'画点随机位置px = CLng(Picture1.Width * Rnd)py = CLng(Picture1.Height * Rnd)'画点随机颜色r = CByte(255 * Rnd)g = CByte(255 * Rnd)b = CByte(255 * Rnd)Picture1.Line (px, py)-(px + 1, py + 1), RGB(r, g, b)NextEnd SubPrivate Sub Command2_Click()Unload form2End SubPrivate Sub cmdOK_Click()If text1.Text = And text2.Text = And Text3.Text = vCode Then Load form3: form3.ShowUnload form2ElseIf text1.Text = And text2.Text = And Text3.Text <> vCode Then MsgBox "验证码错误"Else: MsgBox "账号或密码错误"End Iftext1.Text = ""text2.Text = ""Text3.Text = ""text1.SetFocusdrawvcEnd IfEnd Sub本模块是图书借阅系统的总模块,包括图书管理,借阅证管理,图书借阅管理,系统管理和退出五大块,而且每个块中又包含相应的子模块。

计算机VB图书管理系统实验报告

计算机VB图书管理系统实验报告

一、设计目的和意义:在信息技术迅猛发展及基于Internet网络应用日益普及的今天,传统图书馆正在向自动化、网络化、电子化的数字化方向发展,这是目前网络信息资源开发和研究的热点。

图书管理系统的建设涉及到信息资源数字化、多媒体数据库、分布式网络、信息管理系统结构等多方面的问题,需要有效地集成和应用最新的信息技术。

如何在宏观上有效地把握和组织,并运用到图书管理系统的开发建设上,是图书管理系统研究的重点;随着人们知识水平层次的提高,图书馆成为日常生活中不可缺少的一部分。

而图书馆的存书量和业务量庞大,仅仅靠传统的记帐式管理是不可行的。

图书管理系统应运而生,逐渐成为信息化建设的重要组成部分。

图书管理系统为学校或社会型图书馆的管理员提供所有借阅者的详细信息,以及馆内库存的详细情况,对借书和还书两大功能进行合理操纵并登记。

图书管理系统是使用计算机实现图书大量信息处理的电子档案管理系统,在本系统中主要满足借书者、系统管理员和一般用户3方面的需求。

对读者来说主要是查询个人信息、查询图书信息、读者借阅的图书、借阅图书和归还图书等;图书管理员是系统的主要参与者,负责借书处理和还书处理;系统管理员主要负责系统的维护工作,涉及到读者信息管理,图书信息管理,系统状态维护;另外这对正在处于蓬勃发展的华北科技学院来说,具有很大的意义,“腹有诗书气自华”——学院的未来是靠学院的整体实力和培养的学生来衡量的,图书馆的建设的程度代表着我们所能接触知识面的宽广程度,而一个好的的图书馆需要配备相应的图书管理系统,这也就是我们开发设计本系统的目的和意义!由于图书馆已经成为师生日常生活中不可缺少的一部分,随着2002年我院晋升为本科院校,近年来我院大量扩招,师生队伍日益庞大,从而图书馆的存书量和业务量日益庞大,仅仅靠传统的记帐式管理是不可行的。

图书管理系统应运而生,逐渐成为信息化建设的重要组成部分。

图书管理系统为学校或社会型图书馆的管理员提供所有借阅者的详细信息,以及馆内库存的详细情况,对借书和还书两大功能进行合理操纵并登记。

图书馆管理系统课程设计报告

图书馆管理系统课程设计报告

图书馆管理系统设计报告2008.09.05一、实习题目:图书馆管理系统二、实习工具:前台开发工具选择 Visual Basic 6.0;后台数据库选择 Access;中间层采用 ADO 数据访问技术,将对数据库的操作以类的形式封装。

三、实习目的:通过建立一个图书馆管理系统来管理图书。

掌握 Visual Basic 的语言特点和编程技巧,熟悉控件的属性、事件和方法。

掌握用 ADO 控件访问数据库的技术,实现在数据库中的添加、查询和删除等操作。

四、实习内容:1)需求分析:在进行一个项目的设计之前,先要进行必要的需求分析。

图书馆信息系统要求完成如下基本功能:➢可以实现图书的类别管理和图书的信息管理。

对图书的各种信息的查询,包括逐个浏览,以及对图书信息的增加、删除和修改操作。

另外,可以根据输入的信息来检索某个图书的信息。

➢可以实现读者的类别管理和读者的信息管理。

对读者的各种信息的查询,包括逐个浏览,以及对读者信息的增加、删除和修改操作。

另外,可以根据输入的信息来检索某个读者的信息。

➢可以实现图书借阅管理。

包括借书信息、还书信息以及相关信息的查询。

➢可以实现对系统管理。

2)结构设计:根据上面的需求分析,开发设计不同的窗体系统,每一个窗体实现不同的功能,可以设计下面的几个模块。

➢图书管理模块:用来实现图书类别和信息管理。

➢读者管理模块:用来实现读者类别和信息管理。

➢图书借阅管理模块:用来实现借书和还书管理。

➢系统管理模块:用来实现用户的增加和修改等操作。

系统功能模块图如下:3)数据库设计:这里的数据库采用,用 ADO 作为连接数据对象。

设计数据库系统时应该首先充分了解用户各个方面的需求, 包括现有的以及将来 可能增加的需求。

数据库设计一般包括如下几个步骤: ➢ 数据库需要分析。

➢ 数据库概念结构设计。

➢ 数据库逻辑结构设计。

数据库需求分析更 改 密 码删除读 者 类 别添加管 理 员添加 读 者 类 别查询 读 者 类 别修改 读 者 类 别添加 读 者 信 息查询 还 书 信 息添加 还 书 信 息查询 借 书 信 息删除 借 书 信 息添加 借 书 信 息查询 图 书 信 息修 改 图 书 信 息添 加 图 书 信 息修 改 图 书 类 别删 除 图 书 类 别添 加 图 书 类 别图书管理图书 借阅 管理读者管理系统管理读者 信 息 管 理读者 类 别 管 理图 书 信 息 管 理图 书 类 别 管 理图书馆管理系统借书 管 理还书 管 理用户的需求具体体现在各种信息的提供、保存、更新和查询,这就要求数据库结构能充分满足各种信息的输出和输入,收集基本数据、数据结构以及数据处理的流程,组成一份详尽的数据字典,为后而后具体设计打下基础。

vb课程设计图书管理系统

vb课程设计图书管理系统

vb课程设计图书管理系统一、教学目标本节课的学习目标包括以下三个方面:1.知识目标:学生需要掌握VB编程语言的基本语法和编程思想,了解图书管理系统的功能和结构,能够运用VB语言实现图书管理系统的简单操作。

2.技能目标:学生能够熟练使用VB集成开发环境进行程序设计,掌握图书管理系统的界面设计、数据库连接和数据操作等技术。

3.情感态度价值观目标:培养学生对计算机编程的兴趣和热情,增强学生的创新意识和团队协作能力,使学生在实际项目中能够运用所学知识解决实际问题。

二、教学内容本节课的教学内容主要包括以下几个部分:1.VB编程语言基础:介绍VB的基本语法、数据类型、运算符、控制结构等,让学生掌握VB编程的基本方法。

2.图书管理系统功能分析:讲解图书管理系统的功能模块,包括图书信息的增删改查、用户管理、借还书操作等。

3.界面设计:教授如何使用VB的窗体和控件设计图书管理系统的界面,包括菜单栏、工具栏、数据展示区等。

4.数据库连接与操作:讲解如何使用VB连接数据库,进行图书信息的添加、删除、修改和查询等操作。

5.程序调试与优化:介绍程序调试的方法和技巧,如何优化程序性能,提高代码的可读性和可维护性。

三、教学方法本节课采用以下几种教学方法:1.讲授法:教师讲解VB编程语言基础和图书管理系统的基本概念。

2.案例分析法:分析实际项目案例,让学生了解图书管理系统的功能和结构。

3.实验法:学生动手实践,设计并实现一个简单的图书管理系统。

4.讨论法:分组讨论,让学生分享自己的设计思路和解决问题的方式,培养团队协作能力。

四、教学资源本节课所需的教学资源包括:1.教材:《VB编程入门教程》2.参考书:《VB编程高级教程》3.多媒体资料:教学PPT、视频教程4.实验设备:计算机、网络设备、数据库软件5.网络资源:在线编程平台、相关论坛和博客五、教学评估本节课的评估方式包括以下几个方面:1.平时表现:评估学生在课堂上的参与度、提问回答、团队协作等情况,占比20%。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

VB语言程序设计课程设计报告系 (部)专业班级学生姓名学号/序号指导教师完成时间图书管理系统一、功能描述使用VB6.0中各种控件的常用属性和事件、数组的各种操作以及数据库的相关操作(数据库的建立、编辑、查找、删除等),建立了这个简易的图书管理系统,方便图书管理人员对图书的管理。

用户可以通过此系统的添加、删除,还回,借出等功能对书籍信息、书籍流通进行编辑同时也可以通过直接输入想要查询的书籍信息来获得书籍的流通及库存等相关信息。

二、概要设计1、系统功能模块框图设计首先程序运行,出现一个MDI主窗体,里面分别有登录,书籍信息管理系统,退出三个菜单选项,登录前,管理按钮不可用,当正确输入用户名以及密码以后,点管理按钮,图书管理窗体显示,用户可对图书信息进行管理。

2、数据库设计创建一个数据库为mydb.mdb,该数据库共包含3张表,分别为“书籍信息表”、“图书归还表”和“图书借出表”,表结构如下:书籍信息表:图书编号、图书名、作者、出版社、数量、出版日期、价格图1. 书籍信息表图书归还表:图书编号、图书名、作者、出版社、数量、图书是否损坏、借出日期、归还日期;图2. 图书归还表图书借出表:图书编号、图书名、作者、出版社、借出数量、借出时间、联系电话、借出期限、借出者姓名。

图3. 图书借出表三、详细设计1、MDI主界面用户登录模块中登录与取消两按钮,单击登录会进入系统进行下一步的操作,用户名文本框与数据库相连接,当在用户名文本框输入用户名后点击登录按钮后,会在数据库中进行查询看数据库中是否会有该用户名,且该用户名的密码是否与密码框中输入的相同,如果相同会进入系统,如果不存在该用户名或密码与用户名不相匹配,则会提示“密码错误”,用户名文本框会得到焦点,让重新输入。

(1)窗体截图(如图5.1)图1 MDI主界面图2 登录窗体1.功能实现用户登录Private Sub Command1_Click()Dim msg, style, title, responseIf Text2.Text = 123 ThenMDIForm1.bj.Enabled = TrueForm3.HideElsemsg = "密码错误,请重新输入。

"style = 4 + 16 + 356title = "提示"response = MsgBox(msg, style, title)If response = 6 ThenForm3.ShowElseEnd IfEnd IfEnd Sub2、图书管理窗体图3 图书管理窗体2.功能实现对图书信息添加Private Sub Command1_Click()Select Case Command1.CaptionCase "添加"Select Case SSTab1.TabCase 0Data1.Recordset.AddNewCase 1Data2.Recordset.AddNewCase 2Data3.Recordset.AddNew End SelectSSTab1.TabEnabled(0) = FalseSSTab1.TabEnabled(1) = FalseSSTab1.TabEnabled(2) = FalseCommand1.Caption = "确定"Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCase "确定"Select Case SSTab1.TabCase 0Data1.UpdateRecordCase 1Data2.UpdateRecordCase 2Data3.UpdateRecordEnd SelectSSTab1.TabEnabled(0) = TrueSSTab1.TabEnabled(1) = TrueSSTab1.TabEnabled(2) = TrueCommand1.Caption = "添加"Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueEnd SelectEnd Sub四、调试中存在的问题及解决方法1、程序运行顺序出现的错误程序运行时没有按照预想的窗体顺序运行,导致程序无法顺利进行下去。

解决方法:在工程属性窗口中,将启动对象改为指定窗体即可。

2、无法正确查询指定书籍信息的错误点击查询按钮,出现错误提示,程序中的索引不是指定表格中的索引。

解决方法:将表格中的索引信息删除后重新设定,使其与程序中的一致。

3、无法成功添加书籍信息添加程序运行到保存信息时,跳过了中间部分,直接运行“添加数据到数据库时出错,注意检查图书编号是否重复,及其他各项数据是否正确。

”语句,导致无法成功添加书籍信息。

五、心得体会在本次VB课程设计中,我进一步熟悉VB6.0开发环境,了解了用VB6.0实现一个完整应用程序的设计过程,有关代码编写、调试和整合程序的方法和技巧。

进一步掌握了VB6.0中各种控件的常用属性和事件、数组的各种操作以及数据库的相关操作(数据库的建立、编辑、查找、删除等)。

在我所设计图书管理系统的过程中,并不是一帆风顺的,我遇到了这样或那样的问题,首先在链接数据库的时候,我按照书上的步骤将属性改好,但当我第二天再次访问数据库的时候,提示文件找不到,由于第一次我链接数据库的地址在桌面,没有将数据库放在我的工程文件夹里,所以导致了文件找不到。

然后,当我在设置DATA控件的属性时,又不小心在窗体加载中用代码写入了DATA的属性,导致数据链接不上,后面也出现了几次由于我的疏忽,导致程序出错。

这让我意识到,在软件开发的过程中,一点小小的错误,都不能完成,可谓是“失之毫厘谬以千里”。

因此,我们需要很细心才能完成这个过程。

虽然,我所制作的简易图书管理系统可以进行对书籍信息的添加,删除,修改等功能,但是也存在很多不足。

在登录设计中,我没有建立用户数据库,用代码只编写了一个用户。

在查询的时候,由于我用DATA控件链接数据库,虽然添加了两个索引,但还是只能用图书编号一个索引进行查询,我没能找到解决的方法。

还有在图书归还以及借出的环节,考虑的不太完善。

最后,我很感谢在程序设计的过程中,老师细心地讲解与建议,给了我很大的帮助,在此次课程设计中,我受益匪浅。

六、参考文献【1】罗朝盛. Visual Basic 6.0程序设计教程(第3版)[M].人民邮电出版社,2009.02 【2】邵洁. Visual Basic 6.0程序设计教程(第4版) [M]. 东南大学出版社,2008.02 【3】邵洁. Visual Basic 6.0实验与测试(第4版) [M]. 东南大学出版社,2008.02七、附录MDI主界面Private Sub dl_Click()Form3.ShowEnd SubPrivate Sub gl_Click()Form2.ShowEnd SubPrivate Sub MDIForm_Load()gl.Enabled = False '在登录之前,管理按钮不可用End SubPrivate Sub tc_Click()EndEnd Sub登录窗体Private Sub Command1_Click()Dim msg, style, title, responseIf Text2.Text = 123 Then '密码为123时,管理可用MDIForm1.gl.Enabled = TrueForm3.HideElsemsg = "密码错误,请重新输入。

" '密码输入错误时,提示重新输入style = 4 + 16 + 356title = "提示"response = MsgBox(msg, style, title)If response = 6 ThenForm3.Showgl.Enabled = FalseElseEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Timer1_Timer() '时间控件,控制字体的移动If Label3.Left + Label3.Width >= 0 ThenLabel3.Left = Label3.Left - 10ElseLabel3.Left = Form3.WidthEnd IfEnd Sub管理窗体Private Sub Command1_Click()'根据当前按钮的标题进行不同的操作Select Case Command1.CaptionCase "添加"'向当前选项卡所对应表中添加记录Select Case SSTab1.TabCase 0Data1.Recordset.AddNewCase 1Data2.Recordset.AddNewCase 2Data3.Recordset.AddNewEnd Select'在添加操作完成前禁止进行其他操作SSTab1.TabEnabled(0) = FalseSSTab1.TabEnabled(1) = FalseSSTab1.TabEnabled(2) = FalseCommand1.Caption = "确定"Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = False Case "确定"Select Case SSTab1.TabCase 0Data1.UpdateRecordCase 1Data2.UpdateRecordCase 2Data3.UpdateRecordEnd Select'在添加操作完成后允许进行其他操作SSTab1.TabEnabled(0) = TrueSSTab1.TabEnabled(1) = TrueSSTab1.TabEnabled(2) = TrueCommand1.Caption = "添加"Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueEnd SelectEnd SubPrivate Sub Command10_Click()If Text16.Text = Text1.Text ThenText7.Text = Int(Text7.Text) - Int(Text20.Text) End IfEnd SubPrivate Sub Command2_Click() '修改按钮的单机过程'根据当前按钮的标题进行不同的操作Select Case Command2.CaptionCase "修改"Select Case SSTab1.TabCase 0Data1.Recordset.EditCase 1Data2.Recordset.EditCase 2Data3.Recordset.EditEnd Select'在修改操作完成前禁止进行其他操作SSTab1.TabEnabled(0) = FalseSSTab1.TabEnabled(1) = FalseSSTab1.TabEnabled(2) = FalseCommand2.Caption = "确定"Command1.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = False Case "确定"Select Case SSTab1.TabCase 0Data1.UpdateRecordCase 1Data2.UpdateRecordCase 2Data3.UpdateRecordEnd Select'在修改操作完成后允许进行其他操作SSTab1.TabEnabled(0) = TrueSSTab1.TabEnabled(1) = TrueSSTab1.TabEnabled(2) = TrueCommand2.Caption = "修改"Command1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueEnd SelectEnd SubPrivate Sub Command3_Click() '“删除”按钮的单击事件过程Dim i As Integeri = MsgBox("确定要删除此记录?", vbYesNo + vbExclamation + vbDefaultButton1, "编辑")If i + vbYes ThenSelect Case SSTab1.Tab '删除后数据更新Case 0Data1.Recordset.DeleteData1.RefreshCase 1Data2.Recordset.DeleteData2.RefreshCase 2Data3.Recordset.DeleteData3.RefreshEnd SelectEnd IfEnd SubPrivate Sub Command4_Click() '“首记录”按钮的单击事件过程Select Case SSTab1.TabCase 0Data1.Recordset.MoveFirstCase 1Data2.Recordset.MoveFirstCase 2Data3.Recordset.MoveFirstEnd SelectCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = TrueCommand7.Enabled = TrueEnd SubPrivate Sub Command5_Click() '“上一条”按钮的单击事件过程Select Case SSTab1.TabCase 0Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveFirstCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = TrueCommand7.Enabled = TrueEnd IfCase 1Data2.Recordset.MoveNextIf Data2.Recordset.EOF ThenData2.Recordset.MoveFirstCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = TrueCommand7.Enabled = TrueEnd IfCase 2Data3.Recordset.MoveNextIf Data3.Recordset.EOF ThenData3.Recordset.MoveFirstCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = TrueCommand7.Enabled = TrueEnd IfEnd SelectEnd SubPrivate Sub Command6_Click() '“下一条”按钮的单击事件过程Select Case SSTab1.TabCase 0Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = FalseCommand7.Enabled = FalseEnd IfCase 1Data2.Recordset.MoveNextIf Data2.Recordset.EOF ThenData2.Recordset.MoveLastCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = FalseCommand7.Enabled = FalseEnd IfCase 2Data3.Recordset.MoveNextIf Data3.Recordset.EOF ThenData3.Recordset.MoveLastCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = FalseCommand7.Enabled = FalseEnd IfEnd SelectEnd SubPrivate Sub Command7_Click() '“尾记录”按钮的单击事件过程Select Case SSTab1.TabCase 0Data1.Recordset.MoveLastCase 1Data2.Recordset.MoveLastCase 2Data3.Recordset.MoveLastVBA编程制作ERP生产管理系统过程End SelectCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = FalseCommand7.Enabled = FalseEnd SubPrivate Sub Command8_Click() '“查询”按钮的单击事件过程Dim n As Stringn = InputBox("请输入待查图编号:", "查找")Data1.Recordset.Index = "idx_图书"Data1.Recordset.Seek "=", nEnd SubPrivate Sub Command9_Click() '“还回”按钮的单击事件过程If Text8.Text = Text1.Text ThenText7.Text = Int(Text7.Text) + Int(Text12.Text)End IfEnd SubPrivate Sub Form_Load() '窗体加载过程,书籍信息表首先显示SSTab1.Tab = 0End Sub页脚内容。

相关文档
最新文档