基于VB毕业设计论文范文免费预览.doc

《基于VB毕业设计论文范文免费预览.doc》由会员分享，可在线阅读，更多相关《基于VB毕业设计论文范文免费预览.doc（38页珍藏版）》请在三一文库上搜索。

1、各专业毕业论文范文尽在道客巴巴下载基于VB的学生信息管理的设计与实现课程设计任务书目 录课程设计任务书I第1章 绪论11.1系统设计背景11.2 系统的功能简介1第2章 系统开发方案22.1 开发环境介绍22.2.1 系统开发环境22.2.2 系统开发工具介绍2第3章 系统结构分析43.1 系统结构分析43.2 系统需求分析43.2.1 系统概述43.2.2系统运行环境43.2.3 系统功能模块43.3 系统可行性分析5第4章 数据库的实现74.1数据库需求分析74.2 数据表的物理结构7第5章 系统的实现及其程序95.1 登录模块95.2 管理人员模块95.2.1管理人员主界面95.3普通用

2、户模块195.3.1一般用户主界面195.3.2修改密码195.3.3学生信息查询22第6章 系统测试24结 论27参考文献28各专业毕业论文范文尽在道客巴巴下载第1章 绪论1.1系统设计背景随着学校规模的不断扩大，学生数量急剧增加，有关学生的各种信息也成倍增加。面对庞大的信息量，就需要有学生信息管理系统来提高学生管理工作的效率。通过这样 的系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和 管理者来说都至关重要,所以学生信息管理系统应该能够为用户提供充足的信息和快捷 的查询手段 。在国内外发展

3、概况及存在问题一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点, 如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。作为计算机应用的一部分,使用计算机对学生信息进行管理,具有着手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生信息管理的效率,也是企业的科学化、正规化管理与世界接轨的重要条件。因此，开发这样一套管理软件是很有必要的事情。 1.2 系统的功能简介本系统主要分成三个部分：学生信息管理，成绩管理及用户管理。1、学生信息管理 为每位在校学生

4、就其中学号、性别、姓名、出生日期、出生地、备案，以同一年入学的学生为单位，资料来源为入学档案。其中，学号为唯一标志。在该系统中多为浏览和查询之用打印作用很少用，而且以中考成绩作为分 班的依据，可以对学生信息进行添加，删除，修改。2、成绩管理每个学期组织期末考试，并对每个学生的各门成绩进行登记、汇总、排名。涉及的主要数据是每个班每个学期一张成绩单，内容是学生的学号、姓名及成绩，在该 管理中主要完成成绩的浏览、查询、分数的计算、打印的功能，而且成绩作为学生学习状况的主要依据和教师教学质量考核的主要依据之一。3、用户管理该模块的主要功能是实现对用户的各种权限管理工作，包括登记新用户、老用户找回信息、

5、修改用户密码、修改用户注册信息、删除用户帐号等功能，从而方便于对用户的管理。第2章 系统开发方案2.1 开发环境介绍2.2.1 系统开发环境系统开发环境：Microsoft Visual Basic 6.0 数据库Access 2.2.2 系统开发工具介绍1.Microsoft Visual Basic 6.0：（1）VB的发展过程：公司在1991年推出的用于开发Windows VB是Microsoft公司在应用程序的开发工具，是基于DOS平台下 Basic编程语言的可视化的程序设计语言。它继承了 Basic所具有的程序设计语言简单易用的特点，同时在其编程系统中采用了面向对象、事件驱动的编程机

6、制，开创了可视化编程的一代先河。自1991年推出后，Microsoft公司又相继推出了VB2.0、VB3.0、VB4.0和VB5.0等版本。近年来，微软公司又推出了可视化开发工具套件Visual Studio 6.0。（2）VB主要功能特点如下：1 具有面向对象的可视化设计工具。在VB中，应用面向对象的程序设计方法（OOP），把程序和数据封装起来视为一个对象，每个对象都是可视的。程序员在设计时只需用现有工具根据界面设计的要求，直接在屏幕上“画”出窗口、菜单、按钮、滚动条等不同类型的对象，并为每个对象设置属性。2 事件驱动的编程机制事件驱动是非常适合图形用户界面的编程方式。掌握着程序运行的流向，

7、每个事件都能驱动一段程序的运行。程序员只需编写响应用户动作的代码，而各个动运行作之间不一定有联系。这样的应用程序代码一般较短，所以程序既易于编写又易于维护。3提供了易学易用的应用程序集成开发环境 提供了易学易用的应用程序VB集成开发环境中，用户可设计界面、编写代码、集成开发环境中试程序，直至把应用程序编译成可执行文件在Windows中运行试程序，使用户在友好的开发环境中工作。4结构化的程序设计语言VB具有丰富的数据类型和结构化程序结构，而且简单易学。此外，作为一种程序设计语言，VB还有许多独到之处： 强大的数值和字符串处理功能。 丰富的图形指令，可方便地绘制各种图形。 提供静态和动态数组，有利

8、于简化内存管理。 过程可递归调用，使程序更为简练。 支持随机文件访问和顺序文件访问。 提供了一个可供应用程序调用的包含多种类型的图标库。 具有完善的运行出错处理。5支持多种数据库系统的访问，利用数据控件可访问的数据库系统有：可访问Microsoft Access、Btrieve、dBASE、Microsoft FoxPro和Paradox 、Microsoft Excel，Lotusl-2-3等多种电子表格。6支持动态数据交换（DDE）、动态链接库（DLL）的链接与嵌入（动态链接库（DLL）的链接与嵌入（OLE）技术 ） 动态数据交换（ 动态数据交换（DDE）的编程技术，使VB开发应用程序能

9、）的编程技术， 开发应用程序能与其他Windows应用程序之间建立数据通信。通过VB的动态链接库（DLL）技术，在VB程序中可方便地调用用C语言或汇编语言编写的函数 也可调用Windows应用 语言或汇编语言编写的函数，也可调用应用程序接口函数，以实现SDK所能实现的功能。VB的所能实现的功能核心是其对对象的链接与嵌入的支持， 有对象的一种方法。利用OLE技术，VB将其他应用软件视为技术，将其他应用软件视为有对象的一种方法。利用技术一个对象嵌入到VB应用程序中，进行各种操作，也可将各种应用程序中基于Windows的应用程序嵌入到应用程序，实现声音、图、动画等多媒体功能。7完备的Help联机帮助

10、功能与Windows环境下的软件一样，在VB中，利用帮助菜单和 环境下的软件一样 中 F1功能键，用户可随时方便地得到所需的帮助信息。VB帮助功能键，用户可随时方便地得到所需的帮助信息。帮窗口中显示了有关的示例代码，通过复制、窗口中显示了有关的示例代码，通过复制、粘贴操作可获取大量的示例代码，为用户的学习和使用提供了极大方便。2.数据库Access： Access能够存取 Access/Jet、Microsoft SQL Server、Oracle(甲骨文软件公司)，或者任何 ODBC 兼容数据库内的资料。熟练的软件设计师和资料分析师利用它来开发应用软件，而一些不熟练的程序员和非程序员的进阶用

11、户则能使用它来开发简单的应用软件。虽然它支援部分面向对象（OOP）技术，但是未能成为一种完整的面向对象开发工具。 特点：（1）存储方式简单，易于维护管理 Access管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb或.accdb）的数据库文件中，便于用户的操作和管理 （2）面向对象 Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为和外国，用户还可以按需要给对象扩展方法和属性。通过对象的方法、

12、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。（3）界面友好、易操作Access是一个可视化工具，是风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。（4）集成环境、处理多种数据信息Access基于Windows操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查

13、询、报表打印等可以方便有序地进行。（5）Access支持ODBC（开发数据库互连，Open Data Base Connectivity），利用Access强大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel表格、Word文档，还可以建立动态的数据库报表和窗体等。Access还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象生成HTML文件，轻松构建Internet/Intranet的应用。（6）支持广泛，易于扩展，弹性较大能够将通过链接表的方式来打开EXCEL文件、格式化文本文件等，这样就可以利用数据库的高效率对其中

14、的数据进行查询、处理。还可以通过以Access作为前台客户端，以SQL Server作为后台数据库的方式（如ADP）开发大型数据库应用系统。总之，Access是一个既可以只用来存放数据的数据库，也可以作为一个客户端开发工具来进行数据库应用系统开发；即可以开发方便易用的小型软件，也可以用来开发大型的应用系统。第3章 系统结构分析3.1 系统结构分析要开发一个学生信息管理系统，首先要对其进行需求分析和总体设计，分析系统的使用对象和用户需要，设计系统的体系结构和数据库结构，决定使用的开发工具和后台数据库，规划项目开展进度。规划好主要的模块需求，这对学生的基本信息了解有很大的帮助。3.2 系统需求分析

15、通过此系统可以了解学生姓名、学号、班级、年龄及各科成绩等。可用于学校及各个部门，来进行对学生及员工等信息的统计，以此来提高对学生或员工了解的程度3.2.1 系统概述学生信息管理系统主要用于学校及教育部门对学生各方面的统计与了解，记录学生的基本信息，主要功能包括：(1) 学生姓名管理。完成姓名的添加、删除、修改及查询。(2) 学生学号管理。完成学号的添加、删除、修改及查询。(3) 学生班级管理。可以看出学生所在的班级。(4) 学生性别管理。可以对学生性别进行修改及查询。(5) 添加学生信息管理。添加一些学生的信息或加入一些新生。(6) 查询学生成绩。输入学生姓名和考号即可知道学生的成绩和基本信息

16、。3.2.2系统运行环境1.硬件环境 处理器：Intel Pentium 166 MX 或更高。 内存：32MB以上。 硬件空间：1GB以上。 显卡：SVGA显卡适配器。 2.软件环境 操作系统：Windows 98/ME/2000XP。3.2.3 系统功能模块系统功能模块如图3-1所示。学生信息管理系统返回主界面修改密码信息统计安全退出直接返回确认修改密码放弃修改密码查看学生成绩删改学生信息取 消修改直接退出系统图3-1 系统功能模块3.3 系统可行性分析学生管理信息系统可以通过使用计算机技术等手段, 学生管理信息系统可以通过使用计算机技术等手段,将教师 从重复、繁琐的手工处理工作中解脱出来

17、,避免了重复劳动, 从重复、繁琐的手工处理工作中解脱出来,避免了重复劳动,规范 教学管理行为,提高了管理效率和水平, 教学管理行为,提高了管理效率和水平,降低了人工处理产生的错 误，使教育基础管理管理迈出了一个新的台阶，从而逐步向教育 现代化的目标前进。因此,网络和计算机技术迅速发展的今天, 现代化的目标前进。因此,网络和计算机技术迅速发展的今天,学 校推进信息系统有着天时地利的有利条件, 校推进信息系统有着天时地利的有利条件,学生管理信息系统的 实施也势在必行。 一、计算机的普及和现代化的办公是学生管理信息系统实施 的基础 21 世纪是计算机普及的时代，也是计算机发展最迅猛的年代，计算机的价

18、格不断的下降的年代，计算机的价格不断的下降,使得计算机得到广泛的应用，简 不断的下降 又使得计算机成为工作和学习中必不 单易行的操作系统与软件， 可少的一部分, 可少的一部分,而学校只需购买几台服务器，就足够支持信息系 统的建设，因而信息系统的使用也成了现实，具有可行性。 二、现代软件技术的发展和变革使信息系统成本降低，管理 现代软件技术的发展和变革使信息系统成本降低，系统实施可行同样支持计算机技术的语言也在 计算机技术在不断的发展，不断变革，计算机语言从最早的机器语言到汇编语言，再到C语言，PASCAL,VC,POWDERBUIDER,DEPHI 语言，PASCAL,VC,POWDERBUI

19、DER,DEPHI 等，再到现在流行的 C+，JAVA，.NET 等开发语言，经历了从机器语言到面向过程语言再到现在面向对象的过程。同时，软件产品也历经从CS化产品到BS化产品的过渡，使用更加方便，操作更加简单， 使用界面更加友好，扩展性更强，维护简单。廉价的管理信息系统的成本，使得学校不用过多的考虑其对教育经费和科研经费的影响，这使管理系统的实施具有可行性。 三、互联网络的流行与普及使信息系统更易被传播和使用随着互联网的广泛普及，各高校都建立了自己的校园网，为管理信息系统的普及和应用铺平了道路。只要有电脑，有网络，而不需要在每个客户端装相应的软件，降低了使用系统的难度， 就能够轻松的访问信息

20、系统，加快了管理信息系统广泛的应用。学生可以在宿舍登录系统查询成绩、课程、请假等；老师也可以在家设置课程、管理信息、给学生答疑解惑，让工作和生活一样轻松。 四、教师素质和技能的提高使信息系统的使用不再是难题现代化的教学要求教师不仅具备传统授课方式，还要求掌握计算机教学技术来实现多媒体教学。因而，教师素质的提高和计算机技能的计算机技术的广泛应用给教育事业带来了一场革命， 同时学校可以提高给学生管理信息系统的推广和应用创造条件。 此外，他们了解教学方面的工作，熟悉教学管理流程，省去大量的培训和宣传的费用。能够给管理信息系统的建设提供设计方案和意见。 计算机的普及、软件使用的方便性、成本的降低，综上

21、所述， 互联网的流行还有教师综合素质和计算机技能的提高都给高效 管理信息系统建设、推广提供了动力和智力支持，管理信息系统 的实现成为现实，具有可行性。 第4章 数据库的实现4.1数据库需求分析数据库需求分析在设计数据库结构时，以及可能地满足用户所提出的各项要求，同时又避免同时又要 避免冗余数据产生。由于在学生信息管理系统中，需要采集大量的信息，包括学生信息， 班级信息，课程信息，成绩信息，专业信息等，如果不能够合理有效地组织数据表的结构，以及合理设置每张表所包含的字段，那么后期进行的数据的整理以及汇总时，就会增加编程人员的开发难度，并造成成绩效益的大幅度下降。根据学生基本信息以及其他相关信息的

22、特点，归纳出以下规律：1、学生信息管理 为每位在校学生就其中学号、性别、姓名、班级、家庭地址、年龄。其中，学号为唯一标志。在该系统中多为浏览和查询之用，打印作用很少用，可以对学生信息进行添加，删除，修改。2、成绩管理 每个学期组织期末考试，并对每个学生的各门成绩进行登记、汇总、排名。涉及 的主要数据是每个班每个学期一张成绩单，内容是学生的学号、姓名及成绩，在该管理中主要完成成绩的浏览、查询、分数的计算、打印的功能，而且成绩作为学生学习状况的主要依据和教师教学质量考核的主要依据之一。3、用户管理 该模块的主要功能是实现对用户的各种权限管理工作，包括登记新用户、老用户找 回信息、修改用户密码、修改

23、用户注册信息、删除用户帐号等功能，从而方便于对用户的管理。4.2 数据表的物理结构管理员登录名称和密码与数据库的链接，从数据表中可以看出管理员名称和他的登录密码，可以顺利登录，有利于信息管理。表4-1 adminlogin表编号字段名称数据类型主键1admin文本NO2password文本NO表4-2 basic表编号字段名称数据类型主键1学号文本YES2姓名文本NO3班级数字NO4年龄数字NO5家庭住址文本NO6性别文本NO7照片OLE对象NO8专业文本NO表4-3 guestlogin 表编号字段名称数据类型主键1guest文本NO2password文本NO表4-4 mark表编号字段名称

24、数据类型主键1高数数字NO2外语数字NO 3C语言数字NO4数据结构数字NO5VisualBasic数字NO6总分数字NO7学号文本YES8姓名文本NO9专业文本NO第5章 系统的实现及其程序5.1 登录模块本系统考虑到系统的安全性，主要设置了用户登录界面，其中包括用户登录验证和密码校验，保证了信息的“可控”透明性。而且，为了方便管理人员对员工各种信息进行更改，设置了用户权限，增强了信息的安全性。登陆界面主要用于身份验证，输入用户名和密码后，选择用户权限。如果用户名和密码或权限错误，点击提交时，会在Label1的位置显示信息错误，需要重新输信息。当信息输入正确时，若用户为管理人员，会跳转到管理

25、人员界面；当用户为一般用户时，会跳转到一般用户界面。登录界面如下图5-1所示图5-1 登录界面5.2 管理人员模块当用户为管理人员时，登录到了管理人员主界面。5.2.1管理人员主界面登录后的界面如图5-2所示图5-2 登录后界面其中的返回主界面、修改密码、信息统计、输出信息、安全退出的程序如下Private Sub changepassword_Click()password.ShowEnd SubPrivate Sub Command1_Click(Index As Integer)On Error Resume NextDim ask As IntegerSelect Case Index

26、Case 0Adodc1.Recordset.MoveFirstAdodc2.Recordset.MoveFirstCase 1Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirstAdodc2.Recordset.MovePreviousIf Adodc2.Recordset.BOF Then Adodc2.Recordset.MoveFirstCase 2Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.R

27、ecordset.MoveLastAdodc2.Recordset.MoveNextIf Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLastCase 3Adodc1.Recordset.MoveLastAdodc2.Recordset.MoveLastCase 5ask = MsgBox(delete?, vbYesNo)If ask = 6 ThenIf Adodc1.Recordset.RecordCount = 0 Or Adodc2.Recordset.RecordCount = 0 ThenMsgBox (there is no r

28、ecord to be deleted)ElseAdodc2.Recordset.AbsolutePosition = Adodc1.Recordset.AbsolutePositionAdodc1.Recordset.DeleteAdodc2.Recordset.DeleteAdodc1.Recordset.MoveNextAdodc2.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastIf Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLastEnd

29、 IfEnd IfCase 4addinformation.ShowCase 6Adodc1.Recordset.UpdateCase 7Adodc1.Recordset.CancelUpdateEnd SelectEnd SubPrivate Sub Command2_Click()Dim mpath$, mlink$mpath = App.Path 获取程序所在的路径If Right(mpath, 1) Then mpath = mpath + 判断是否为子目录 以下两行代码可合成一句，mlink存放ConnectionString属性的设置值mlink = Provider=Micros

30、oft.Jet.OLEDB.4.0; 指定提供者mlink = mlink + Data Source= + mpath + database1.mdb 在数据库文件名前插入路径Adodc1.ConnectionString = mlink 设置连接属性Adodc1.CommandType = adCmdUnknown 指定记录集命令类型（可在设计时指定）Adodc2.ConnectionString = mlink 设置连接属性Adodc2.CommandType = adCmdUnknownsc = Text6.Textlc = Text7.TextIf sc And lc Then Ad

31、odc1.RecordSource = Select * from basic where 姓名= & sc & and 学号= & lc & Adodc2.RecordSource = Select * from mark where 姓名= & sc & and 学号= & lc & Adodc2.Refresh Set DataGrid1.DataSource = Adodc1 Set DataGrid2.DataSource = Adodc2ElseIf sc Then Adodc1.RecordSource = Select * from basic where 姓名= & sc &

32、 Adodc2.RecordSource = Select * from mark where 姓名= & sc & Adodc1.Refresh Adodc2.Refresh Set DataGrid1.DataSource = Adodc1 Set DataGrid2.DataSource = Adodc2 ElseIf lc Then Adodc1.RecordSource = Select * from basic where 学号= & lc & Adodc2.RecordSource = Select * from mark where 学号= & lc & Adodc1.Refr

33、esh Adodc2.Refresh Set DataGrid1.DataSource = Adodc1 Set DataGrid2.DataSource = Adodc2Else MsgBox 你应该输入查询条件, vbOKOnly, 查询错误End IfEnd SubPrivate Sub Command3_Click()On Error Resume Next Dim strb() As Byte CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As #1 以二进制读方式打开源文件 Image1.Picture

34、= LoadPicture(CommonDialog1.FileName) fl = LOF(1) 获得文件长度 ReDim strb(fl) 从文件中读取内容并 Get #1, , strb 读到内存块中 adminform.Adodc1.Recordset.Fields(照片).AppendChunk strb adminform.Adodc1.Recordset.Update Close #1End SubPrivate Sub DataGrid1_Click()Adodc2.Recordset.AbsolutePosition = Adodc1.Recordset.AbsolutePo

35、sitionEnd SubPrivate Sub exit_Click()当有新学生时，管理人员需要添加新学生的信息，点击添加按钮，进入到了添加员工信息界面，添加学生信息界面如图5-3所示。图5-3 添加学生信息界面当管理人员添加完学生信息，点击添加按钮，学生的信息就可以添加进去了。学生信息添加后的界面如图5-4所示。图5-4 添加成功界面学生信息添加程序代码如下：Private Sub Command1_Click() adminform.Adodc1.RecordSource = select * from basic where 学号= & Text8 & adminform.Adodc

36、1.Refresh adminform.Adodc2.RecordSource = select * from mark where 学号= & Text8 & adminform.Adodc2.Refresh If adminform.Adodc1.Recordset.RecordCount 0 Then MsgBox (the user has already exist) Else adminform.Adodc1.Recordset.AddNew adminform.Adodc1.Recordset.Fields(学号) = Text8 adminform.Adodc1.Records

37、et.Fields(姓名) = Text7 adminform.Adodc1.Recordset.Fields(性别) = Combo1.Text adminform.Adodc1.Recordset.Fields(班级) = Text10 adminform.Adodc1.Recordset.Fields(年龄) = Text11 adminform.Adodc1.Recordset.Fields(专业) = Text12 adminform.Adodc1.Recordset.Fields(家庭住址) = Text9 adminform.Adodc1.Recordset.Update adm

38、inform.Adodc1.Refresh adminform.Adodc1.Refresh End If If adminform.Adodc2.Recordset.RecordCount 0 Then MsgBox (the user has already exist) Else adminform.Adodc2.Recordset.AddNew adminform.Adodc2.Recordset.Fields(高数) = Val(Text1) adminform.Adodc2.Recordset.Fields(外语) = Val(Text2) adminform.Adodc2.Rec

39、ordset.Fields(C语言) = Val(Text3) adminform.Adodc2.Recordset.Fields(数据结构) = Val(Text4) adminform.Adodc2.Recordset.Fields(VisualBasic) = Val(Text5) adminform.Adodc2.Recordset.Fields(总分) = Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) adminform.Adodc2.Recordset.Fields(学号) = Text8 adminf

40、orm.Adodc2.Recordset.Fields(姓名) = Text7 adminform.Adodc2.Recordset.Fields(专业) = Text12 adminform.Adodc2.Recordset.Update adminform.Adodc2.Refresh MsgBox (succeed) Unload Me adminform.Show End IfEnd SubPrivate Sub Command2_Click()adminform.Adodc1.Recordset.CancelUpdateUnload Meadminform.ShowEnd SubPr

41、ivate Sub Command3_Click()On Error Resume Next Dim strb() As Byte CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As #1 以二进制读方式打开源文件 Image1.Picture = LoadPicture(CommonDialog1.FileName) fl = LOF(1) 获得文件长度 ReDim strb(fl) 从文件中读取内容并 Get #1, , strb 读到内存块中 adminform.Adodc1.Recordset.Fields(

42、照片).AppendChunk strb Close #1End SubPrivate Sub Text1_LostFocus()If Text1 = Then MsgBox (请输入数据)End SubPrivate Sub Text2_LostFocus()If Text2 = Then MsgBox (请输入数据)End SubPrivate Sub Text3_LostFocus()If Text3 = Then MsgBox (请输入数据)End SubPrivate Sub Text4_LostFocus()If Text4 = Then MsgBox (请输入数据)End Sub

43、Private Sub Text5_LostFocus()If Text5 = Then MsgBox (请输入数据)End SubPrivate Sub Text7_LostFocus()If Text7 = Then MsgBox (请输入数据)End SubPrivate Sub Text8_LostFocus()If Text8 = Then MsgBox (请输入数据)End SubPrivate Sub Text9_LostFocus()If Text9 = Then MsgBox (请输入数据)End SubPrivate Sub Text10_LostFocus()If Text10 = Then MsgBox (请输入数据)End SubPrivate Sub Text11_LostFocus()If Text11 = Then MsgBox (请输入数据)End SubPrivate Sub Text12_LostFocus()If Text12 = Then MsgBox (请输入数据)End Sub管理员修改密码界面如图5-5所示图5-5 修改密码修改密码的程序如下：Private Sub Command1_Click()If Text1.Text = ThenMsgBo