毕业设计(论文)-基于VB的图书馆管理系统设计.doc_第1页
毕业设计(论文)-基于VB的图书馆管理系统设计.doc_第2页
毕业设计(论文)-基于VB的图书馆管理系统设计.doc_第3页
毕业设计(论文)-基于VB的图书馆管理系统设计.doc_第4页
毕业设计(论文)-基于VB的图书馆管理系统设计.doc_第5页
免费预览已结束,剩余52页可下载查看

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

毕业论文第1章 需求分析1.1 引言1.1.1背景随着科学技术的发展,特别是计算机在人们生活中的普及,使人们的各项工作变得越来越便利,工作效率大大的提高。也为管理现代化的发展带来了新的契机。学校的图书管理工作是学校管理工作中一个重要的组成部分,其内容复杂,工作繁多。如果使用计算机处理各项图书管理业务,不仅节约了大量人力,而且还大大提高了工作效率,经济效益十分明显。本系统就是基于这一现实条件而开发的。虽然就本系统还不能说让图书管理的管理现代化,但这与本系统开发的目的并不相悖,整个社会的信息化建设,并不是一朝一夕的事,也不是一个人所能解决的,所以本系统的开发只是起到尝试的作用。1.1.2.编写目的图书馆作为一种信息资源的集散地,图书和用户借阅资料繁多,包含很多的信息数据的管理,现今,有很多的图书馆都是初步开始使用,甚至尚未使用计算机进行信息管理。根据调查得知,他们以前对信息管理的主要方式是基于文本、表格等纸介质的手工处理,对于图书借阅情况(如借书天数、超过限定借书时间的天数)的统计和核实等往往采用对借书卡的人工检查进行,对借阅者的借阅权限、以及借阅天数等用人工计算、手抄进行。数据处理手工操作,工作量大,出错率高,出错后不易更改。图书馆采取手工方式对图书借阅情况进行人工管理,由于信息比较多,图书借阅信息的管理工作混乱而又复杂;一般借阅情况是记录在借书证上,图书的数目和内容记录在文件中,图书馆的工作人员和管理员也只是当时对它比较清楚,时间一长,如再要进行查询,就得在众多的资料中翻阅、查找了,造成查询费时、费力。如要对很长时间以前的图书进行更改就更加困难了。基于这此问题,我认为有必要建立一个图书管理系统,使图书管理工作规范化,系统化,程序化,避免图书管理的随意性,提高信息处理的速度和准确性,能够及时、准确、有效的查询和修改图书情况。1.1.3定义术语需求:用户解决问题或达到目标所需的条件或功能;系统或系统部件要满足合同、标准,规范或其它正式规定文档所需具有的条件或权能。需求分析:包括提炼,分析和仔细审查已收集到的需求,以确保所有的风险承担者都明其含义并找出其中的错误,遗憾或其它不足的地方。模块的独立性:是指软件系统中每个模块只涉及软件要求的具体的子功能,而和软件系统中其他的模块的接口是简单的。1.2项目开发环境1.2.1.硬件环境:586或以上的微机一台(包括cd-rom,软驱),打印机一台。1.2.2.软件环境:1.操作系统:windows 9x,nt,2000,xp2.开发工具:visual basic 6.0vb6.0是微软公司出品的一个快速可视化程序开发工具软件,具有强大的可视化计和面向对象程序设计的功能,近年来得到了广泛的应用,它主要有以下特点:(1) 简单易学(2) 简化了复杂的界面设计工作(3) 强大的多媒体功能(4) 网络功能支持了internet编程(5) 具有所见即所得的功能(6) 支持用户开发的activex控件1.2.3.数据库:access 2000access2000是microsoft公司推出的同时面向数据库最终用户和数据库开发人员的关系数据库管理系统,它实现了计算机“易于使用”的特点,即用户只需按照“向导”进行简单操作,就可以设计出一个数据库系统。作为一种数据库软件,access可以完成以下功能:可以为每一种类型的信息创建一个表,利用表存储相应的信息;可以定义各个表之间的关系;可以利用宏或visual basic将各数据库对象连接在一起,形成一个数据库应用系统,而且用户也不需要编写复杂的程序。充分利用access数据库是关系数据库的特性,仔细分析各类数据之间的关系,创建表并建立表间的关联,使每个表限制到一个主题,避免了重复信息和冗余数据。并且利用access与vb窗体建立联系,显示表或查询每一个记录的完整信息,一次只录入一组相关的数据。简单明了,提高了基础数据正确性。为使“计划规模”数据库更为实用,又作了进一步的编写工作,利用access的窗体具有的可与其它应用程序进行链接的功能,创建同步窗体或嵌套窗体,可非常直观地点击不同的按钮,就能进入相应的录入、查询模块,查看所需的信息。1.2.4 vb与access的结合微软的jet数据库引擎提供了与数据库打交道的途径,我是通过它以及vb来访问数据并对其各种操作。再使用data控件和adoc控件在数据库中的信息与将信息显示给用户看的vb程序之间架起一座桥梁。设置这两个控件的各个属性,告诉它要调用哪个数据库的哪个部分。通过设计跳转按钮来动态地改变数据库表中的记录。1.3项目概述1.3.1 目标通过对学校图书馆内部的各种机构的划分和管理,以及各种业务的处理过程的分析,设计出一个行之有效的能够在实际中帮助图书馆实施管理现代化、业务信息化,从而大大提高工作效率运行于已有的硬件平台上的图书馆管理系统。1.3.2. 产品描述根据用户的实际管理要求和图书馆职能的划分,我们将本系统划分为系统管理模块、读者管理模块、图书管理模块、借书/还书模块、数据报表模块和帮助模块等六个子系统。1.3.3. 产品功能用户管理模块实现用户管理、重新登录系统、退出系统;读者管理模块实现对查询读者、读者管理、激活卡号、卡号挂失、卡号注销五项功能;图书管理模块实现了多种方式查询图书、管理图书的功能;借书/还书模块实现了借书操作和还书操作、查看借书情况;数据报表模块实现了对图书信息、读者信息、借书信息、罚款信息以报表形式打印出来;帮助模块介绍了本系统的一些使用方法。普通用户只能使用登录系统、退出系统、查询读者、卡号挂失、卡号注销、查询图书、借书操作、还书操作、查看借书情况以及图书信息、读者信息、借书信息、罚款信息的报表打印;管理员每一项功能都可以使用。第2章 系统设计我们将本系统划分为系统管理模块、读者管理模块、图书管理模块、借书/还书模块、数据报表模块和帮助模块等六个子系统。2.1设计原则安全可靠是一个应用系统的灵魂,一个极小的差错,可能会造成整个系统的瘫痪,甚至可能造成企业的巨大损失。因此系统设计必需把安全性、可靠性、容错性放在首位。从发展的眼光看,一个综合的计算机管理系统要实现市场、决策、管理、设计、制造等各环节的信息共享,完成不同制造厂商的设备和计算机软硬件资源的数据交换。建立一个由开放式,标准化的系统,开放式标准化的异构式数据库组成的平台来满足当前的需求,同时又能适应今后新技术的引进、开发和推广。 系统设计尽量简单,灵活易于管理,有利于将来需要时进行功能改进和新技术引入。我们所处的时代是信息时代,通信和计算机技术的发展日新月异。因而,应用系统的建设不仅应适应新技术发展方向,保证其先进性,同时兼顾成熟的计算机技术、保证系统的可靠。系统的建设要考虑长远,不能今年投入使用,两三年内就不能满足要求,以至不得不做很大的设计修改;但也不能考虑太远,否则会导致初期投资规模过大,同时可能降低系统的可靠省和安全性能。2.2 模块划分原则本图书管理系统包含六大模块:系统管理:用户管理(普通、管理员)、重新登录、退出系统。读者管理:查询读者、读者管理、卡号激活、卡号挂失、注销卡号。图书管理:查询图书、图书管理。借书/还书:借书、还书、查看借书情况。数据报表:读者报表、读书报表、借书报表。帮助:主题、关于2.3系统结构框图图书管理系统系统管理读者管理图书管理借书还书系统帮助数据报表图2-1系统管理退出系统重新登录用户管理图2-2读者管理读者挂失激活卡号读者管理查询读者注销卡号图2-3图书管理图书管理查询图书图2-4借书/还书借书总表还书借书图2-5图2-5数据报表读者报表 图书报表借书报表图2-6帮助关于主题图2-7系统结构图第3章 系统功能说明3.1登录用户可以分普通用户和管理员,在通过用户输出入用户名和密码无误后,才可登录。如果以普通用户登录(即用户),只能查询读者、卡号挂失、查询图书、借书、还书,数据报表;如果以管理员身份登录,任何功能项都能使用。3.2用户管理 管理员可以增加用户、删除用户,通过点击“保存”按钮更新数据库。 3.3读者管理按照系统模块划分图可知其分为四个具体的功能模块,分别为查询读者、读者管理、激活卡号、读者挂失。查询读者:输入卡号即可查询,将在本窗体中显示该读者的相关信息。读者管理:添加:在“增加读者”窗体中输入读者基本信息,点击“确定”即可增加读者。删除:方法一:将记录指针定位到要删除的记录上,点击“删除”按钮即可删除信息。方法二:在工具条上,点击“注销卡号”,待输入卡号和密码无误后,将删除该卡号的记录,并更新数据库。激活卡号:该卡号已挂失,需要再使用时。挂失卡号:当读者卡丢失时,可以向图书馆工作人员申请挂失。在输入卡号和密码无误后,即可挂失,但在读者表中还保存该读者的相关信息。注销卡号:当读者卡无效时或不遵守图书馆的管理规定等,即可删除读者,并从数据库中真正删除该记录。3.4 图书管理图书查询:用户可以按照书号、书名、书籍类别、作者几种方式查询图书,查询结果直接在本窗体中显示出来。图书管理:增加:在增加书籍窗体中填入图书信息后,点击“确定”后即可增加图书。删除:删除书籍信息,将记录指针定位到要删除的记录上,即可删除该记录。3.5借书/还书按照系统模块划分图可知其分为三个具体的功能模块,分别为借书、还书、查询借书情况。借书借书主要功能:1.根据用户输入借书的卡号及其密码后,点击“确定”按钮。2.显示读者信息后,再输入书号,并显示该书的信息。3.在输入卡号密码无误情况下,以下几种情况不能借书:第一:读者如果已经借书数超过了规定的数目,不能再借。第二:读者的卡号如果挂失,不能借。第三:读者没交罚款。第四:书库没有读者需要的书。在读者借书时,可以通过点击借书窗体上的“查借”按钮,查看用户借书的情况:还书一般情况:输入书号,点“确定”按钮显示该书的信息后,再输入卡号即可还书,数据库中的信息更新: 特殊情况:在用户输入书号后,如果提示“你的书已经超期,请交罚款金后,还书!如果现在交罚款金请按确定,否则按取消”,则用户需填写罚款单,交纳罚款后,才能还书,并将罚款记录写入数据库。3.6 数据报表采用设计器dataenvironment1与数据表中的中的字段绑定,将读者表(student)、图书表(book)、借书情况表(lend)、罚款表(fakuan)的数据通过报表显示出来。第4章 系统运行操作概况4.1 硬件环境586或以上的微机一台(包括cd-rom,软驱),打印机一台4.2软件环境 windows 9x,nt,2000,xp 4.3操作流程:查询普通用户管理员登录通过验证系统登录mdi主窗口(系统主窗口)以普通用户身份登录读者通过读者验证通过验证借书卡借通过书号卡号还以管理员身份登录图书查询管理借书情况用户注销借书卡生成各数据报表挂失借书卡第5章 具体设计详细设计阶段的根本目标是确定应该怎样具体地实现所要求的系统,也就是说,经过这个阶段的设计工作,应该得出对目标系统的精确描述,从而在编码阶段可以把这个描绘直接翻译成用某种程序设计语言书写的程序。换句话说,详细设计的目标不仅仅是逻辑上正确地实现每个模块的功能,更重要的是设计出的处理过程应该尽可能简明易懂。而结构程序设计技术是实现上述目标的关键技术,是详细设计的逻辑基础。它采用的自顶向下逐步求精的设计方法和单入口单出口的控制结构,在后面的设计中,大家可以看到这一点。在详细设计中,有描述程序处理过程中的工具称为详细设计的工具,它们可以分为图形、表格和语言三类,不论是哪类工具,对它们的基本要求都是能提供对设计的无歧义的描述,也就是应该能指明控制流程、处理功能、数据组织以及其他方面的实现细节。5.1 基本数据流程1. 用户信息录入:添加、删除、更新2.读者信息录入:查询、添加、删除、更新3.图书信息录入:查询、添加、删除、更新4.借书信息录入:查询、添加、删除、更新5.罚款信息录入:添加、打印通过data和adoc1控件连接数据库中的表,对表中记录进行相关操作。借书情况录入罚款情况录入删除用户用户表录入增加图书读者综合信息图书综合信息用户综合信息增加用户借书综合信息罚款信息查询图书增加图书删除图书图书报表查询图书删除图书图书报表查询记录增加记录删除记录借书报表增加记录罚款清单图书管理系统读者情况录入况录入读者表录入图书表录入借书情况表录入图书情况录入用户情况录入罚款表录入5.2数据库设计 针对此图书馆管理系统,通过对图书馆管理工作过程的内容和数据流程分析,设计如下面所示的数据项和数据结构:读者信息,包括的数据项有:卡号,密码,姓名,班级,专业,性别,已借书数、挂失否。图书信息,包括的数据项有:书号、书名、书籍类别、作者、出版社、在库数目、总数、单价、购买日期借书信息,包括的数据项有:卡号、书号、借书日期、还书日期用户信息,包括的数据项有:classname(用户名)、password(用户密码、class(班级)罚款信息,包括的数据项有:卡号、书号、日期、罚金、罚款原因5.2.1基本数据模型读者情况表结构(student)序号字段名称数据类型宽度小数位数索引可否为空1卡号文本15无有(无重复)否2密码文本50无无否3姓名文本14无无否4班级文本12无无否5专业文本14无无是6性别文本4无无是7已借书数数字整型无无否8挂失否是/否2无无否图书情况表结构(book)序号字段名称类型宽度小数位数索引可否为空1书号文本10无有(无重复)否2书名文本30无无否3书籍类别文本12无无是4作者文本14无无是5出版社文本50无无是6总数数字整型自动无否7在库数目数字整型自动无否8单价货币货币2无是9购买日期日期/时间8无是借书情况表结构(lend)序号字段名称类型宽度索引可否为空1卡号文本15有(有重复)否2书号文本10有(无重复)否3借书日期日期型8无否4还书日期日期型8无否 .用户表结构(manager)序号字段名称类型宽度索引可否为空1username文本50无否2password文本50无否3class文本50无是.罚款表结构(fakuan)序号字段名称类型宽度索引可否为空1卡号文本15 无否2书号文本10无否3日期日期型8无否4罚金货币无否5罚款原因备注自动无是 5.3数据表之间的关系:第6章 系统维护 软件维护是软件生命周期的最后一个阶段,它处于系统投入生产性运行以后的时期中。所谓软件维护就是在软件已经交付使用之后,为了改正错误或满足新的需要而修改软件的过程。本系统自从做好以后,给不同的人试用过,在这试用期间还是看出来了系统确实存在不少的缺点和毛病,如重定向的问题或某些操作不当系统报错的问题。但是由于水平有限,肯定还存在其他的问题,也是在所难免的。希望大家原谅!结论经过指导老师的测试,本系统采用登录程序,很好的控制了系统的安全性,而且系统能够很好的记载读者的借书情况。读者在每次借书时只需输入自已的卡号和密码以及书号,就可找到自已所需要书,用户通过查看图书信息来查找读者所需要的书。管理员在维护数据库的数据时不需要对数据库进行操作,可以在界面上进行数据的添加、删除和修改。在本系统设计中,利用vb中数据添加、删除、更新等命令来对系统中的数据库进行相应的操作。利用其中的data控件adoc控件连接动态数据库中记录。而且还用到了相应的sql语句。通过此毕业设计,我深刻的体会到vb工具的强大功能,并将sql语言的理论用到了实践中去。系统可操作性还是很好的,比较方便灵活,唯一缺点是,数据库的安全性不高,不能备份数据库,数据报表的打印也不能按条进行打印输出。参考文献1 王福成、周铁柱、黄淼云等:,北京:清华大学出版社2002年6月2郭振波编著: , 北京: 人民邮电出版社 2003年3月3林永等编著: , 北京:人民邮电出版社2002年11月4刘炳文等编著: ,北京:清华大学出版社 2000年7月5 王华杰:vb.net编程实例详解(含盘), 北京:中国铁道出版社 2002年4月6 康博译:vb.net高级编程,北京:清华大学出版社 2002年3月7 张龙卿:instant vb.net实例解析vb.net应用编程, 北京:北京希望电子出版社 2002年1月8 林立军,程斌,翁迪恩:visual basic 6.0数据库开发指南,陕西:西安电子科技大学出版社,2000年2月致 谢经过两个多月的设计和开发,基于学校的图书管理系统基本开发完毕。完成了系统管理、读者管理、图书管理、借书还书、数据报表六大模块,结合目前有些学校图书馆的管理方法,完全能实现图书管理功能。在整个毕业设计过程中,从需求分析到设计思想的主体方案的形成,系统设计原理的确定到系统的实现,花费了很大的功夫。我们查阅了大量与之相关的书籍。同时,在刘洪辉老师认真的工作态度和精心的指导下,我从实践中走出来了,与此同时也得到了同学的大力支持。在此,对所有帮助我过的老师,同学表示忠心的感谢!附 录源代码程序 (一)登录窗体功能的实现:以用户或管理员身份登录。 使用data控件:指向用户表(manager)option explicitpublic jibie as stringprivate sub command1_click()dim ts as recordsetset ts = userdata.recordsetdim condition as stringdim condition1 as stringdim condition2 as stringts.movefirstcondition = username= & text1.text & and password= & text2.text & userdata.recordset.findfirst conditionif userdata.recordset.nomatch then msgbox 用户名或密码不正确,请重试! text1.setfocus exit sub else if option1.value = false then if option2.value = false then msgbox 你还没有选择用户类型呢,请选择! exit sub else text3.text = option2.captionjibie = text3.text userdata.recordset.movefirst condition1 = username= & text1.text & and password= & text2.text & and class= & text3.text & userdata.recordset.findfirst condition1 if not userdata.recordset.nomatch then load mdiform1 mdiform1.enabled = true mdiform1.toolbar1.buttons(1).enabled = false mdiform1.toolbar1.buttons(5).enabled = false mdiform1.用户管理.enabled = false mdiform1.管理读者.enabled = false mdiform1.激活卡号.enabled = false mdiform1.图书管理.enabled = false mdiform1.show unload login else msgbox 用户类型选择不正确!请重试! exit sub end if end if else text3.text = option1.caption jibie = text3.text userdata.recordset.movefirst condition2 = username= & text1.text & and password= & text2.text & and class= & text3.text & userdata.recordset.findfirst condition2 if not userdata.recordset.nomatch then load mdiform1 mdiform1.show mdiform1.enabled = true unload login else msgbox 用户类型选择不正确!请重试! exit sub end if end ifend ifend subprivate sub command2_click()unload logindim i as integerfor i = 1 to 11 step 1 mdiform1.toolbar1.buttons(i).enabled = truenextmdiform1.图书管理.enabled = truemdiform1.系统管理.enabled = truemdiform1.读者管理.enabled = truemdiform1.借书还书.enabled = truemdiform1.帮助.enabled = true图书管理:private sub command1_click()data1.recordset.addnewdata1.recordset.fields(username) = text1.textdata1.recordset.fields(password) = text2.textif option1.value = true thendata1.recordset.fields(class) = option1.captionend ifif option2.value = true then data1.recordset.fields(class) = option2.captionend ifdata1.recordset.updatemsgbox 保存成功data1.refreshunload addusermanager.refreshusermanager.showend subprivate sub command2_click()unload addusermanager.showend subprivate sub command3_click()text1.text = text2.text = end subprivate sub form_load()dim a as integerend sub图书管理系统:private sub command1_click()condition10 = 书号= & text1.text & book.recordset.movefirstbook.recordset.findfirst condition10if not book.recordset.nomatch then msgbox 该书号已经存在,请换一个书号! text1.setfocus exit subend ifbook.recordset.addnewbook.recordset.fields(书号) = text1.textbook.recordset.fields(书名) = text2.textbook.recordset.fields(书籍类别) = text3.textbook.recordset.fields(作者) = text7.textbook.recordset.fields(出版社) = text4.textbook.recordset.fields(总数) = text5.textbook.recordset.fields(在库数目) = text6.textbook.recordset.fields(购买日期) = text8.textbook.recordset.fields(单价) = text9.texta = msgbox(确定要增加吗?, vbokcancel)if a = 1 then book.recordset.update msgbox 增加成功! book.refresh updatebook.refresh updatebook.datagrid1.refresh unload addbookelse book.recordset.cancelupdateend ifend subprivate sub command2_click()text1.text = text2.text = text3.text = text4.text = text5.text = text6.text = text7.text = text8.text = text9.text = end subprivate sub command3_click()unload addbookend subprivate sub command1_click()condition = 卡号= & text1.text & data1.recordset.movefirst data1.recordset.findfirst condition if not data1.recordset.nomatch then msgbox 该卡号已经存在,请换卡号! exit sub text1.setfocus end if if option1.value = false and option2.value = false then msgbox 你还没有选择性别呢,请选择! exit sub end if data1.recordset.addnew data1.recordset.fields(卡号) = text1.text data1.recordset.fields(密码) = text4.text data1.recordset.fields(姓名) = text2.text data1.recordset.fields(班级) = text3.text data1.recordset.fields(专业) = text6.text data1.recordset.fields(挂失否) = 否 data1.recordset.fields(已借书数) = 0 if option1.value = true then data1.recordset.fields(性别) = option1.caption end if if option2.value = true then data1.recordset.fields(性别) = option2.caption end if data1.recordset.update msgbox 增加成功!end subprivate sub command2_click() text1.text = text4.text = text2.text = text3.text = text6.text = option1.value = false option2.value = false end subprivate sub command3_click()unload addstudentend subprivate sub image1_click()end subprivate sub command1_click()fakuan.recordset.addnew fakuan.recordset.fields(卡号) = text1.text fakuan.recordset.fields(书号) = text3.text fakuan.recordset.fields(罚金) = text5.text if option1.value = true then fakuan.recordset.fields(罚款原因) = option1.caption else fakuan.recordset.fields(罚款原因) = option2.caption end if fakuan.recordset.fields(日期) = date fakuan.recordset.update msgbox 罚款成功!end subprivate sub command2_click()unload fakuan1end subprivate sub command3_click()if option1.value = true then text5.text = val(text2.text) * 0.1end ifif option2.value = true then text5.text = val(text4.text) * 3 end ifcommand1.enabled = trueend subprivate sub command4_click()lend.recordset.movefirstcondition = 卡号= & text1.text & do lend.recordset.findfirst condition if not lend.recordset.nomatch then list1.additem & lend.recordset.fields(书号) & & book.recordset.fields(书名) end if lend.recordset.movenextloop until lend.recordset.eofend subprivate sub command5_click()lend.recordset.movefirstcondition4 = 卡号= & text1.text & and 书号= & text3.text & lend.recordset.findfirst condition4if not lend.recordset.nomatch then fakuan.recordset.deleteend ifstudent.recordset.movefirstcondition5 = 卡号= & text1.text & student.recordset.findfirst condition5if not student.recordset.nomatch then student.recordset.fields(已借书数) = student.recordset.fields(已借书数) - 1end ifbook.recordset.movefirstcondition6 = 卡号= & text3.text & book.recordset.findfirst condition6 if not book.recordset.nomatch then book.recordset.fields(在库数目) = book.recordset.fields(在库数目) + 1 end if msgbox 还书成功!end subprivate sub option1_click()text2.enabled = truelend.recordset.movefirstcondition2 = 卡号= & text1.text & and 书号= & text3.text & lend.recordset.findfirst condition2if not lend.recordset.nomatch then text2.text = date - lend.recordset.fields(期限日期)end ifcommand3.enabled = truecommand5.enabled = trueend subprivate sub option2_click()text4.enabled = truecondition3 = 书号= & text3.text & book.recordset.movefirstbook.recordset.findfirst condition3if not book.recordset.nomatch then text4.text = book.recordset.fields(单价)else msgbox 该书号不存在,请重试! exit sub text3.setfocusend ifcommand3.enabled = trueend subprivate sub command1_click()dim a as integerif text1.text = then msgbox 你还没有输入卡号呢,请输入!else studentdata1.recordset.movefirstflag2: if instr(studentdata1.recordset.fields(卡号), text1.text) and instr(studentdata1.recordset.fields(密码), text2.text) then if studentdata1.recordset.fields(挂失否) = 否 then a = msgbox(确定要挂失吗?, vbokcancel) if a = 1 then studentdata1.recordset.edit studentdata1.recordset.fields(挂失否) = 是 studentdata1.recordset.update msgbox 挂失成功! unload guashi end if else msgbox 该读者已经挂失! end if else studentdata1.recordset.movenext if not studentdata1.recordset.eof then goto flag2 else msgbox 该卡号不存在 end if end ifend if end subprivate sub command2_click()unload guashiend subprivate sub command1_click()dim b as integerif text1.text = then msgbox 你还没有输入卡号呢,请输入!else stu

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论