基于VB的仓库数据库管理系统开发-毕业设计.doc

《基于VB的仓库数据库管理系统开发-毕业设计.doc》由会员分享，可在线阅读，更多相关《基于VB的仓库数据库管理系统开发-毕业设计.doc（37页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、成都理工大学毕业论文基于VB的仓库数据库管理系统开发摘要仓库作为一种信息资源的集散地，用户和货物资料繁多，包含很多的信息数据的管理。高效率、科学化地 管理仓库成为提高生产经营效率的有效途径。采用计算机管理信息系统能有效地防止仓库管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效地查 询和修改仓库信息情况，并给企业管理带来了明显的经济效益和社会效益，成为当今仓库管理科学化和现代化的重要标志。数据库是六十年代末期开始开展起来的一门新技术，是管理信息资源的先进工具。仓库数据库管理系统便是这样一种信息管理系统。它能对仓库所涉及的数据进行提取和综合。仓库数据库管理系统不仅反映数据本身，而且反

2、映数据之间的联系，也是事物之间的联系的反映。该系统以SQLSever作为后台数据库，Visual basic 6.0为前台开发工具,做到对仓库数据的查询，更新和平安保密。关键词：数据库，仓库管理系统，Visual basicThe development of garage data base management system based on VB Garage,as a kind of message resources distributing centre,it has a number of custorm an goods infermations.Those infermati

3、ons contains many date managements.Garage-manage high-efficiently and sciencely is a useful way to improve production efficiency.Garage-management is random.Computer information manage system can avoid this random effectually , speed up the information processing and scan and renew the garage inform

4、ation accuratlly and on time.It also brings obviously economic benefits an social benefits for the enterprise who use computer information manage system. Computer information manage system has been the important major of garage managements scientific and modernized. Data base is a kind of new techno

5、logy which was beginning developing in the end of 1970s.Its a kind of advanced instrument of information management.So garage date base management system is such a kind of new technology.It has the function of drawing and multiping the data which was touched upon by garage. garage date base manageme

6、nt system no only reflectioning the data itself,but olso reflectioning the reletionsheep of data.And it can reflection the reletionsheep of object too.This system use SQLSever as its background data base and the Visual basic 6.0 is used as the frountground develop tool.It will have the function of i

7、nqurying,renewing and protecting the garage data.Key words:Data base;Garage management system; Visual basic目 录第1章 绪论11.1 数据库系统开展概况11.2 数据库系统简介11.2.1 数据、数据库11.2.2 数据库管理系统21.2.3 数据库系统2第2章. 仓库设备数据库方案设计42.1 数据模型确实定42.2运行环境和开发工具42.3 根本组成5第3章 仓库设备数据库开发设计63.1 设计方法和步骤63.2 需求分析63.3 功能模块设计73.4 创立数据库83.4.1创立设备

8、数据库83.4.2创立用户信息数据库93.5创立应用工程文件103.6用户管理模块设计103.6.1用户登录103.6.2修改密码133.6.3添加用户143.6.4删除用户173.7信息管理模块设计183.7.1创立仓库管理系统主窗体mainform.frm183.7.2创立查询信息窗体formchaxun.frm193.7.3创立添加信息窗体formtianjia.frm203.7.4创立修改信息窗体formxiugai.frm243.7.5创立删除信息窗体formshanchu.frm253.7.6创立报表窗体303.8 创立应用文件包30第4章.仓库设备数据库管理系统使用说明314.1

9、 系统314.2 信息查询314.3 信息管理31结论32致 谢33参考文献3434第1章 绪论1.1 数据库系统开展概况数据库是六十年代末期开始开展起来的一门新技术，是管理信息资源的先进工具。这门技术已广泛应用于各个方面，如科技情报检索、图书管理、库存管理、企业管理与经营决策、财会统计、银行存取、管理、人事材料管理、旅游管理、海关进出口情报收集与管理、地图数据库、种子数据库等多个方面。信息指的是各种形式的数据、资料、消息、信号中所包含的意义，而载荷信息的物理符号如数字、字母、文字、图形、声音称为数据。所谓信息处理或数据处理，就是对信息数据进行加工处理，它包括对于数据进行操作的一系列活动，如数

10、据的收集、存储、传播、检索、分类、加工或计算，打印各种报表或输出各种所需要的图形。数据处理并不是有了电子计算机以后才出现的。自1890年创造第一台卡片制表机并用其编制人口普查表以来，就已经开始了数据处理的历史。通常把这种用机械设备来进行数据处理的系统称为机械数据处理系统。自七十年代初以来，在数据处理领域中广泛采用数据库技术，使数据处理进人了一个新的阶段，这就是以数据库系统为核心机构的数据处理阶段。这一阶段实现了计算机的全面信息管理。其特点是把一个组织企业和部门有关的各种数据集中存储与管理，建立起综合化的数据库，并提供了管理数据库的软件，使各个部门方便地使用数据库的数据；同时采用计算机网络技术，

11、进行分布式处理，通过计算机网络把不同部门、不同地区、不同国家的计算机或终端联系在一起，共享丰富的信息资源，使信息的交换、传递和处理变得更为方便，从而更有效地利用信息资源。由于数据库技术在信息数据处理中显示了巨大的威力，所以许多计算机科学家把这个阶段称为“数据库时代。1.2 数据库系统简介1.2.1 数据、数据库1.数据(data)数据是数据库中存储的根本对象。数据按通常的理解表现为数字形式，这是对数据的一种传统和狭义的理解。广义的理解，数字只是数据的一种表现形式，在计算机中可表示数据的种类很多，文字、图形、图像、声音都可以数字化，所以这些都是数据。为了了解世界、交流信息，人们在计算机中需要并且

12、也能够描述、存储和处理这些表现形式多样和内容复杂的数据。2.数据库(database，缩写为DB)数据库，可以直观地理解为存放数据的仓库，只不过这个仓库是在计算机的大容量存储器上，如硬盘就是一类最常见计算机大容量存储设备。数据必须按一定的格式存放，因为它不仅需要存放，而且还要便于查找。所以可以认为数据是被长期存放在计算机内、有组织的、可以表现为多种形式的可共享的数据集合。数据库技术使数据能按一定格式组织、描述和存储，且具有较小的冗余度、较高的数据独立性和易扩展性，并可为多个用户所共享。1.2.2 数据库管理系统利用计算机有效地组织和存储数据、获取和管理数据就是数据库管理系统(data base

13、 management system，缩写为DBMS)，它属于一类计算机系统软件。数据库管理系统是位于用户与操作系统之上的一层数据管理软件，它的主要功能包括以下几个方面：1数据定义功能DBMS提供数据定义语言(data definition language，缩写为DDL)，用户通过它可以方便地对数据库中的相关内容进行定义，如对数据库、根本表、视图和索引进行定义。2.数据操纵功能DBMS向用户提供数据操纵语言(data manipulation language, 缩写为DML),实现对数据库的根本操作，如对数据库中数据的查询、插入、删除和修改。3.数据库的运行管理这是DBMS的核心局部，它包

14、括并发控制，即处理多个用户同时使用某些数据时可能产生的问题、平安性检查、完整性约束条件的检查和执行、数据库的内部维护(如索引、数据字典的自动维护)等。所有数据库的操作都要在这些控制程序的统一管理下进行，以保证数据的平安性、完整性以及多个用户对数据库的并发使用。4.数据库的建立和维护功能包括：数据库初始数据的输入、转换功能，数据库的转储、恢复功能，数据库的重新组织功能和性能监视、分析功能等，这些功能通常是由一些实用程序完成的，它是数据库管理系统的一个重要组成局部。5.数据字典数据字典(data dictionary，缩写为DD)是存放数据库各级模式结构的描述，也是访问数据库的接口。在大型系统中，

15、DD也可单独成为一个系统。6.数据通信功能包括与OS的联机处理、分时处理和远程作业传输的相应接口等，这一功能对分布式数据库系统尤为重要。1.2.3 数据库系统数据库系统(data base system，缩写为DBS)通常是指带有数据库的计算机应用系统，因此，数据库系统不仅包括数据库本身，即实际存储在计算机中的数据，还包括相应的硬件、软件。 1.硬件由于一般数据库系统数据量很大，加之DBMS丰富的强有力的功能使得自身的体积就很大，因此整个数据库系统对硬件资源提出了较高的要求，这些要求是：(1)有足够大的内存以存放操作系统、DBMS的核心模块，数据缓冲区和应用程序。(2)有足够大的直接存取设备存

16、放数据(如磁盘)，有足够的磁带或其它存储设备来进行数据备份。(3)要求计算机有较高的数据传输能力2.软件数据库系统的软件主要包括：(1)DBMS是数据库系统的核心软件，它实现数据库的建立、使用和维护。(2)支持DBMS运行的操作系统。通常，DBMS运行时都是基于某一操作系统并通过操作系统来实现对数据的存取。(3)一般来讲，数据库管理系统的数据处理能力较弱，所以需要提供与数据库接口的高级语言及其编译系统，以便于开发应用程序。这种高级语言称为“数据库的主语言。(4)以DBMS为核心的应用开发工具。应用开发工具是系统为应用开发人员和最终用户提供的高效率，多功能的应用生成器、第四代语言等各种软件工具，

17、如报表生成系统、表格软件，图形系统等。它们为数据库系统的开发和应用提供了有力的支持。(5)为特定应用开发的数据库应用软件。数据库软件为数据的定义、存储、查询和修改提供支持，而数据库应用软件是对数据库中的数据进行处理和加工的软件，它面向特定应用，如基于数据库的各种管理软件、管理信息系统(MIS)、决策支持系统DSS和办公自动化(OA)等都属于数据库应用软件。3.数据数据是数据库根本组成内容，是对客观世界所存在事物的一种表征，也是数据库用户操作的对象。数据是数据库系统，也是企业或组织的真正的财富。数据应按照需求进行采集并有结构地存入数据库。由于数据类型多样性，数据的采集方式和存储方式也会不同。数据

18、作为一种资源是数据库系统最稳定的成分，即硬件可能更新，甚至软件也可以更换，但只要企业或组织的性质不改变，数据将是可以长期使用的财富。第2章. 仓库设备数据库方案设计2.1 数据模型确实定数据模型(Data Model)以实际事物的数据特征的抽象来刻画事物，描述的是事物数据的表征及其特性。在数据库中是用数据模型对现实世界进行抽象的，现有的数据库系统均是基于某种数据模型的。仓库设备数据库是仓库设备所涉及的数据的提取和综合，它不仅反映数据本身，而且反映数据之间的联系，也是事物之间的联系的反映。如何在数据库系统的形式化结构中抽象表示和处理仓库中设备的数据是非常重要的问题。数据库领域中过去和现在最常见的

19、数据模型有三种，它们是：层次模型(Hierachical Model)，网状模型(Network Model)和关系模型(Relational Model)。其中层次模型和网状模型统称为非关系模型，在关系模型出现以前，它们是常用的数据模型。关系模型是目前数据库领域所讨论的模型中最重要的模型。仓库设备数据库数据模型采用关系模型，既用二维表结构来表示实体及实体间的联系。如表2-1表2-1 仓库设备信息表列名数据类型说明Numbernumeric设备编号TypeNumbernumeric类型编号Namevarchar设备名称Typevarchar设备类型Sizenumeric设备大小Pricenum

20、eric设备单价Factoryvarchar生产厂家2.2运行环境和开发工具1.运行环境随着数据库应用的日益广泛，数据库产品市场呈现非常繁荣的景象。目前的关系数据库产品根本可分为桌面数据库和大型数据库应用系统两大类。本系统采用桌面数据库方式，利用学校现有软硬件资源，运行于PC机的windows98/2000/xp下，具有对硬件要求低、容易操作、开发本钱低等特点。2.开发工具本系统使用Visual Basic 6.0和SQLSever作为开发工具。Visual Basic是一个通用程序开发工具，但具有强大的数据库访问能力，可以通过Microsoft数据库访问对象ADO访问数据库对象，而且由于其本

21、身的优点如可视化编程、面向对象、事件驱动、结构化程序设计、集成的开发环境，常常被用于数据库应用程序的开发。Visual Basic提供了管理数据库对象和创立报表的工具，并且使用简单方便。随着Microsoft不断地推出Visual Basic的新版本，Visual Basic对数据库的访问和编程也变得越来越容易，而且支持多种数据库系统的访问，是一个很好的数据库应用程序开发工具。SQLSever是Microsoft公司另一个成功的数据库产品。SQLSever本身是一个可视化的数据库管理系统，提供了很多非常实用的向导，初学者也很容易学会如何用SQLSever建立数据库的各种对象，如创立表、查询和报

22、表等。SQLSever使用内嵌Visual Basic语言作为开发工具，完全面向对象编程，可以可视化地创立数据库应用程序。SQLSever数据库是目前应用十分广泛的桌面型关系数据库，它主要应用于各种中小型的管理信息系统中，虽然它无法支持较大数据量，不支持数据库的高级特性并发访问、事务处理等，但是它快速、小巧、灵活，经常被小型信息管理系统作为后台数据库。2.3 根本组成仓库设备数据库应用程序的主要作用是存放数据、从数据库中检索和统计数据，以得到各种各样的信息。本系统完整的数据库应用程序按照功能可分为四个局部的内容：数据库单表；应用程序窗体；查询和更新；报表和图表(仪器领用单)。数据库是数据库应用

23、程序的根底，主要用来存放原始数据。一般来说。用户不直接对原始数据进行操作。如果需要检索和更新数据，先用查询将数据检索出来放在缓冲区或临时表中，用户对缓冲区和临时表中的数据进行操作，在所有的操作完成后，再将数据的更改更新到数据库中。窗体用来完成用户和数据库之间、与程序之间交互。报表和图表的数据来自查询和统计，是定制的。它们之间的相互作用如图2-1所示。数据库报表和图表应用程序窗体查询和统计 图2-1数据库应用程序的根本组成第3章 仓库设备数据库开发设计3.1 设计方法和步骤数据库设计是开发数据库及其应用系统的技术，也是本系统开发和建设的重要组成局部。具体说，数据库设计是要在一个给定的应用环境中，

24、通过合理的逻辑设计和有效的物理设计，构造较优的数据库模式，建立数据库及其应用系统，满足用户的各种信息需求。这里从数据库应用系统和开发的全过程来考虑，根据本系统的实际情况，将数据库及其应用系统的设计分为以下几个阶段：需求分析，功能模块设计，创立数据库，创立应用工程文件，创立应用窗体文件，创立应用文件包。3.2 需求分析在设计一个数据库之前，首先要对数据库的设计目的和应用背景进行分析。在进行设计目的分析时，应搞清楚该数据库要解决一个什么样的问题、需要存储哪些数据、能够提供哪些信息、完成哪些自动化功能等。应用背景指数据库应用于一个什么样场合。在对本系统应用环境和需求进行收集和分析后所形成的抽象的系统

25、概貌图如图3-1。数据存储处理数据输出数据来源数据流图3-1 系统概貌图本系统是为仓库开发的设备管理系统，根据任务书的要求，应设计一个可行的数据库结构和数据库管理系统。该数据库管理系统应具有：数据查询功能(多种关键词查询 )；数据更新功能(修改, 增加, 删除等)；数据平安性设计。概括层的数据流图如图3-2采购部门仓库管理系统领用人1领用人2领用人n3-2 数据流图采购部门：负责采购仪器设备，将仪器设备的相关信息提供应实验室。仓库管理系统：负责仪器的统一管理。通过该系统可以直接对数据库进行操作，进行业务处理，以记录每套仪器设备的相关信息；负责仪器设备的配入与发放，并记录仪器的发放与归还。领用人

26、(1、2、3n)：领用人领用设备时要作相应记录，以便管理部门可以查询每套仪器的情况。3.3 功能模块设计在软件设计中，程序设计分为两个阶段完成，首先进行结构设计，以确定程序由那些模块组成，然后进行过程设计，过程设计是确定每个模块的处理过程。本系统共有两个数据库，一个是仪器性能指标数据库，另一个是用户标识和鉴定数据库。设计中规定了数据库的结构表、记录、字段、关键字、制订了数据所应满足的条件、规定了用户的使用密码和用户名,帮助用户方便地对数据库中数据进行操作。以下是本系统的功能模块图3-3。仓库设备数据库管理系统用户信息数据库仪器信息数据库工程文件报表信息界面查询信息界面修改信息界面添加信息界面删

27、除信息界面修改用户界面添加用户界面删除用户界面用户登录界面功能管理主界面图3-3 系统功能模块图在数据库管理系统的应用程序中有十个应用窗体文件，分别是：1、用户登陆应用窗体文件，完成用户登录进入管理系统的功能；2、修改用户应用窗体文件，完成对已有记载的用户进行密码重新设定的功能。3、添加用户应用窗体文件，完成添加用户信息功能，记录用户名和用户密码；4、删除用户应用窗体文件，完成删除用户信息功能；5、信息管理和用户管理的主窗体，完成用户对系统功能的全局控制；6、查询信息应用窗体文件，完成通过仪器编号和名称对仪器进行查询的功能；7、修改信息应用窗体文件，完成修改仪器设备信息的功能；8、添加信息应用

28、窗体文件，完成信息的添加功能；9、删除信息应用窗体文件，完成删除仪器设备信息的功能；10、报表信息应用窗体文件，完成报表提交功能。3.4 创立数据库在使用Visual Basic开发数据库应用程序时，其后台数据库可以选用多种格式，本系统使用Microsoft Access的数据库格式，因为SQLSever数据库和Visual Basic数据库都是Microsoft Jet数据库，其数据库对象的层次结构和编程方法是完全相同的，用SQLSever创立的数据库可以原封不动地用到Visual Basic应用程序中。SQLSever数据库表的建立方法是：准备好设计资料，先在纸上设计好数据库的结构，即由哪

29、几个表组成，每个表包含哪几个字段，各个字段的属性如何，哪个字段是关键字，共有多少个记录。下面介绍本系统中两个数据库的创立方法。3.4.1创立设备数据库本系统的仪器数据库是用Microsoft SQLSever创立的。下面例如的表中主关键字是“Number。 创立步骤如下：创立一个新的空数据库，确定数据库的名称及数据库的保存类型；向空数据库添加表，将数据进行分类和量化，并设置表单的主键；使数据便于计算机处理。列出每一个表所包含的数据字段名称，确定每个字段的数据类型和字段大小；在表单中输入和修改数据；保存数据库。如图3-4所示：图3-4 创立关键字为“Number的表其ER图为：设备类型编号设备编

30、号设备编号设备类型设备大小设备单价生产厂家图3-5 仓库设备E-R图3.4.2创立用户信息数据库平安性问题是所有计算机系统都有的问题，只是在数据库系统中大量数据集中存放，而且是多用户共享，使平安性问题更为突出。数据库平安与恢复是数据库保护的组成局部，数据库保护一般包括四个方面的内容，其中平安性主要是对用户的存取数据库中数据权限的控制，以保证数据库的平安和保密。本系统根据任务书的要求，主要是对数据库的平安性进行了设计。在计算机系统中，一般说来平安措施是分级设置的，本系统平安性设计中采用的是用户标识和鉴定。用户标识和鉴定是系统提供的最外层的平安保护措施，其方法是由系统提供一定的方式让用户标识自己的

31、名字或身份，每次用户要进入系统时，系统对用户身份进行核实，通过鉴定后才提供系统使用权。本系统采用的方法具体是：用一个用户名来标明用户身份，系统鉴别此用户是否是合法的用户，假设是，那么可进入下一步的核实；假设不是，那么不能使用系统。为了进一步核实用户，系统要求用户输入密码，为保密起见，用户在终端上输入的口令不显示在屏幕上，系统核定密码以鉴别用户身份。其ER图为：用户密码用户帐号用户密码图3-6 用户信息E-R图3.5创立应用工程文件本系统的应用工程文件是用Visual Basic6.0创立的，选定“标准的可执行文件单击“翻开进入工程的窗体文件设计。 3.6用户管理模块设计用户管理模块主要实现：1

32、用户登录。2修改密码。3添加用户。4删除用户3.6.1用户登录系统启动后，将首先出现如下图的用户登录窗体，用户首先输入用户名，然后输入密码。如果用户3次输入密码不正确，将退出程序。如图3-7：图3-7 用户登录窗口用户登录窗体中放置了二个文本框(TextBox)，用来输入用户名和用户密码：二个按钮(CommandButton)用来确定或者取消登录：三个标签(Label)用来标示窗体的信息。为窗体定义全局变量ok，用来判断登录是否成功，定义micount，用来记载输入密码的次数，并且在载入窗体时初始化这二个全局变量，代码如下：Option ExplicitPublic OK As Boolean

33、记录确定次数Dim miCount As IntegerPrivate Sub Form_Load() OK = False miCount = 0End Sub当用户输入用户名和密码后，单击cmdok按钮将对用户信息进行判断。用户单击该按钮，将触发该按钮cmdok的click事件，代码如下：Dim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As String ToDo: create test for correct password check for correct password UserName = If Tri

34、m(txtUserName.Text = ) Then MsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus Else txtSQL = select * from user_Info where user_ID = & txtUserName.Text & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox 没有这个用户，请重新输入用户名!, vbOKOnly + vbExclamation, 警告 txtUser

35、Name.SetFocus Else If Trim(mrc.Fields(1) = Trim(txtPassword.Text) Then OK = True mrc.Close Me.Hide UserName = Trim(txtUserName.Text) Else MsgBox 输入密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 txtPassword.SetFocus txtPassword.Text = End If End If End If miCount = miCount + 1 If miCount = 3 Then Me.Hide

36、 End IfExit Sub用户如果没有输入用户名和用户密码，将出现消息框提示，如果输入的用户名在用户表中没有找到，将提示重新输入用户名，文本框txtusername将重新获得输入焦点。如果用户输入的密码不正确，文本框txtpassword将重新获得输入焦点。用户登录成功，全局变量ok将被赋值为true。一旦三次输入密码均不正确，全局变量ok将被赋值为false。公用模块中的main过程将根据ok的值来决定是退出，还是进入系统。如果用户取消登录，单击cmdcancel按钮，将触发按钮的click事件，代码如下：OK = False Me.Hide3.6.2修改密码用户可以修改自己的密码，选择

37、菜单“系统 修改密码出现如下图的窗体：图3-8 修改密码窗口在这个窗体中放置了三个文本框，用来输入旧密码，新密码和确认密码，二个按钮按钮用来确定是否修改密码，三个标签用来标示文本框的内容。二次输入密码后，单击cmdok按钮，将触发click事件判断是否修改密码。代码如下：Private Sub cmdOK_Click() Dim txtSQL, MsgText As String Dim mrc As ADODB.Recordset If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 密码输入不正确！, vbOKOnly + vbExc

38、lamation, 警告 Text1(1).SetFocus Text1(1).Text = Else txtSQL = select * from user_Info where user_ID = & UserName & Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.Fields(1) = Text1(1).Text mrc.Update mrc.Close MsgBox 密码修改成功！, vbOKOnly + vbExclamation, 修改密码 Me.Hide End If End Sub3.6.3添加用户进入系统后，选择菜单“系统 添加用户，

39、就可以添加用户，出现添加用户的窗体：图3-9 添加用户窗口在这个窗体中放置了三个文本框，用来输入用户名，密码和确认密码，二个按钮用来确定是否修改密码，三个标签用来标示文本框的内容。二次输入密码后，单击cmdok按钮，将触发click事件判断是否修改密码，代码如下：Private Sub cmdOK_Click() Dim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As String If Trim(Text1(0).Text) = Then MsgBox 请输入用户名称！, vbOKOnly + vbExclamation,

40、 警告 Exit Sub Text1(0).SetFocus Else txtSQL = select * from user_Info Set mrc = ExecuteSQL(txtSQL, MsgText) While (mrc.EOF = False) If Trim(mrc.Fields(0) = Trim(Text1(0) Then MsgBox 用户已经存在，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 Text1(0).SetFocus Text1(0).Text = Text1(1).Text = Text1(2).Text = Exit S

41、ub Else mrc.MoveNext End If Wend End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 两次输入密码不一样，请确认！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Text1(2).Text = Exit Sub Else If Text1(1).Text = Then MsgBox 密码不能为空！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).

42、Text = Text1(2).Text = Else mrc.AddNew mrc.Fields(0) = Trim(Text1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text) mrc.Update mrc.Close Me.Hide MsgBox 添加用户成功！, vbOKOnly + vbExclamation, 添加用户 End IfEnd If一旦输入完毕，系统将首先查询数据库中与新建用户名相同的记录，如果有相同记录将提示用户重新输入用户名。当确定数据库中没有相同的用户名，并且二次输入密码一致时，将把该条记录添加到数据库中。单击cmdcanc

43、le按钮将取消添加用户的操作。代码如下：Private Sub cmdCancel_Click( ) Unload MeEnd Sub3.6.4删除用户进入系统后，选择菜单“系统 删除用户，就可以删除用户，出现删除用户的窗体：图3-10 删除用户窗口在这个窗体中放置了二个文本框，用来输入用户名和密码，二个按钮用来确定是否修改密码，三个标签用来标示文本框的内容。输入信息后，单击cmdok按钮，将触发click事件判断是否删除用户。代码如下：Dim denglu As New ADODB.ConnectionDim rstdenglu As New ADODB.RecordsetPrivate Sub Command1_Click() If Text1.Text = Then MsgBox 请输入用户名, vbOKOnly, 警告 Text1.SetFocus End If If Text2.Text = Then MsgBox 请输入密码, vbOKOnly, 警告 Text2.SetFocus End If rstdenglu.MoveFirst