《毕业设计论文VB6.0物资仓库管理系统的设计与实现.doc》由会员分享，可在线阅读，更多相关《毕业设计论文VB6.0物资仓库管理系统的设计与实现.doc（25页珍藏版）》请在三一办公上搜索。
1、物资仓库管理系统的设计与实现摘要 随着现代工业的发展，利用计算机辅助人们完成日常信息管理越来越受到重视。本系统采用生命周期法作为开发方法，并选用 Visual Basic 6.0作为开发工具。在开发过程中，通过对用户的需求分析以及系统的可行性分析，明确了系统应该实现的基本功能。在充分调查用户需求分析的基础上，构建了相应的数据库，并且利用先进的面向对象的程序设计方法，逐步实现了物资管理，出库管理，入库管理，盘存管理，综合管理、物资查询等的系统基本功能。关键字 物资仓库管理 信息管理 Visual Basic 6.0 ACCESS 20032目 录引 言1第一章 绪论 21.1系统的研究背景21.
2、2 系统的设计目的21.3 系统的设计意义2第二章 概要设计42.1 需求分析42.2 可行性分析52.3 系统功能分析62.4 系统配置72.5 设计依据7第三章 数据库的设计93.1数据库概念设计93.2数据库详细设计10第四章 系统的详细设计134.1系统界面的总体规划134.2系统登录界面的设计134.3 主界面的设计144.4 入库登记信息模块的设计164.5 查询模块设计164.6 系统管理模块设计17第五章 系统测试20结束语21参考文献22附录23引言物资仓库管理系统是一个单位不可缺少的一部分,它的内容对于决策者和管理者来说都是至关重要的，因此，物资仓库管理系统应该能够为用户提
3、供充足的信息和快捷的查询手段，但一直以来人们使用传统的人工方式管理物资，这种管理方式存在着许多缺点，诸如效率低，保密性差等，而且时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机科学不断发展，其强大的功能已经被人们深刻认识，它已经进入了人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对产品物资信息进行管理，具有着人工管理无法比拟的优点，它检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等，可减少更多的人力物力，这些都能够极大地提高货品物资的管理效率，也是企业物资管理科学化、正规化，与世界接轨的
4、重要条件。因此，开发一个物资管理系统是很有必要的，具有其特有的技术意义和管理意义。第一章 绪论1.1 系统的研究背景管理信息系统即MIS（Management Information System），在强调管理，强调信息的现代社会中它变得越来越普及。MIS是一门新的学科，它跨越了若干个领域，比如管理科学、系统科学，运筹学、统计学以及计算机科学。在这些学科的基础上，形成信息收集和加工的方法，从而形成一个纵横交织的系统。其主要任务是最大限度的利用现代计算机及网络通讯技术加强企业的信息管理，通过对企业拥有的人力、物力、财力、设备、技术等资源的调查了解，建立正确的数据，加工处理并编制成各种信息资料及时
5、提供给管理人员，以便进行正确的决策，不断提高企业的管理水平和经济效益。随着我国经济的飞速发展，各种类型规模的公司企业迅速崛起，许多从事生产和经营管理的企业都有自己生产和销售的产品，而这些产品都需要储存在物资中，对于每个企业来说，随着企业规模的不断扩大，产品数量的急剧增加，所生产产品的种类也会不断地更新与发展，有关产品的各种信息量也会成倍增长。面对庞大的产品信息量，如何有效地管理物资产品，对这些企业来说是非常重要的，物资管理的重点是销售信息能否及时反馈，从而确保企业运行效益。1.2 系统的设计目的物资仓库管理系统是一个典型的小型管理信息系统(MIS)，它的开发过程会涉及到一般MIS的开发步骤和方
6、法。通过对本系统的研究和开发，使我了解和掌握一般软件的开发过程和软件设计中非常具有通用性的内容和技术，例如：对数据环境的设计、软件项目的模块化设计等等。同时在系统的开发设计过程中，使我能够综合利用所学的各门课程知识，做到理论与实际的开发相结合，锻炼自身的实践能力。并且通过对本系统的开发设计，掌握资料的搜集，提高自身独立完成任务的能力。1.3 系统的设计意义物资管理涉及入库、出库的产品、经办人员及客户等方方面面的因素，如何管理这些信息数据，是一项复杂的系统工程，充分考验着物资管理员的工作能力，工作量的繁重是可想而知的，所以这就需要由物资管理系统来提高物资管理工作的效率，这对信息的规范管理、科学统
7、计和快速查询，减少管理方面的工作量，同时对于调动广大员工的工作积极性，提高企业的生产效率，都具有十分重要的现实意义。本系统的使用可以使货品管理工作规范化，系统化，程序化。提高信息处理的速度和准确性。它区别于传统的纸质媒介，又优于可构造查询条件的电子化管理。它能够为一些企业提供一个功能齐全、使用方便的数据库管理系统，以替代传统的手工管理，从而提供一个高效快捷的工作环境。第二章 概要设计2.1 需求分析需求分析就是描述系统的需求，通过定义系统中的关键类域来建立模型。分析的根本目的是在开发者和提出要求者之间建立一种理解和沟通的机制，并确定出系统应该具备的功能。经过调查分析，物资仓库管理系统主要是完成
8、对仓库中物资信息、入库信息、出库信息进行管理的任务，实现物资仓库的系统管理。物资仓库管理系统设计的主要人员是仓库管理员。仓库管理员负责对仓库中现有物资的管理，入库登记及出库登记的工作。现有物资信息管理工作的过程为：管理员查询现有物资信息，检查库存是否有货，若有此类货物，则统计现有物资信息，并打印库存清单；否则填写订货请求。其流程图如图2-1所示。入库登记工作的过程为：接受到货通知后，检验物品是否合格，若合格则填写入库单，并修改现有物资信息，否则填写并发送退货单。其业务流程图如图2-2所示。查询现有物资信息打印物资信息统计物资信息填写订货请求开始结束是否有货NY接收到货通知修改现有物资信息填写入
9、库单填写发送退货单开始结束是否合格NY图2-1物资信息管理工作流程图 图2-2入库登记工作流程图出库登记工作的过程为：接收到物资申请后，判断是否有货，若有则填写出库单并修改现有物资信息，若没有则登记缺货并退回申请。其流程图如图2-3所示。接收物资申请修改现有物资信息填写出库单登记缺货退回申请开始结束是否有货NY图2-3出库登记工作流程图2.2 可行性分析系统的可行性分析主要包括经济可行性分析，技术可行性分析，操作可行性分析。 1.经济可行性分析 该系统采用Visual Basic 6.0进行开发，它是一款功能非常强大的可视化编程语言,数据的处理都在一个开发环境之中，而不需要再依靠其他工具，使程
10、序开发环境能够简单一致，提高整体项目的开发效率。因此该系统的开发不需要大量的开发人员，从而减少了开发的时间和费用。对于这样的一款方便企事业单位物资仓库管理的软件，由于开发的成本不高，并不需要花费很多的费用就可以让用户得到满意的需求，软件的市场份额也会占很大比例的。因此，从经济可行性上来讲，是可行的。 2.技术可行性分析 由于开发此物资仓库管理系统需要的环境有Windows98/Windows 2000/Windows 2003/Windows XP平台，需要开发人员熟练使用Visual basic 6.0语言进行编程，熟练使用Access 2003语言进行相关数据库的操作,具有一定的数据库开发
11、功底及编程能力。使用编程语言Visual basic 6.0和Access 2003数据库相结合，再加上Windows98/Windows 2000/Windows 2003/Windows XP稳定的运行环境的支持和本人过硬的技术，从功能和性能上完全都满足系统的要求,因此从技术方面讲开发此物资仓库管理系统是可行的3.操作可行性分析 本系统采用了可视化界面，用户只需输入登录密码即可进入主界面,然后再根据用户自己的要求对系统进行相应的操作就可以了。因此该系统在操作可行性上来讲也是可行的。2.3 系统功能分析根据上述的需求分析，本软件应当具备如下主要功能：1.系统管理包括用户管理，密码管理，关闭系
12、统，以及数据的备份与恢复，可以根据需要对整个数据库进行备份，以确保数据的安全性。2.物资管理货品信息管理是对物资里的货品进行登记；货品物资管理是管理物资的物资情况；短线货品管理是对物资里短线的货品进行登记，以便及时采购补货；超储货品管是对物资里超储的货品进行登记，控制物资量，减少进货；3.入库管理入库登记管理就是对货品的入库登记，删除，更改等；入库期间统计是对货品入库期间年度的统计；供货单位期间供货金额统计是对货品供应的金额进行统计；4.出库管理是对货品出库期间的年度统计，出库登记，及收获单位金额统计等；5.盘存管理是对盘存货品信息的盘存录入；6.综合管理是可根据同一货品的出入库情况，对物资情
13、况的汇总；7.附项管理是对供货单位情况，经办人员，收货单位情况，物资信息进行登记管理，可进行添加，删除等操作；8.历史数据管理是对历史物资，历史出库，历史出库情况进行管理；9.打印与查询是可根据输入的条件，对货品的入库信息，物资信息等进行简单查询和组合查询。所以，系统的功能结构图如图2-4所示。物资管理系统系统管理打印、查询历史数据管理附项分类综合管理盘存管理出库管理入库管理物资管理货品出入库期间汇总表经办人员管理收货单位管理供货单位管理物资信息管理货品出库年度统计盘存录入出库登记管理超储货品管理短线货品管理货品物资管理货品信息管理图2-4系统功能模块结构图2.4 系统配置物资仓库管理系统是一
14、个典型的小型管理信息系统(MIS)。开发此系统需要如下硬件和软件环境。1硬件环境运行要求奔腾以上的；要求常规内存，扩展内存，最好有以上内存容量；外部存储器（硬盘）空间至少要求以上，安装本系统后剩余空至少以上，要配制一个Microsoft兼容鼠标。2软件环境需要Windows98以上的操作系统平台，应为中文版本。2.5 设计依据Visual Access 2003是可运行在Windows 98, Windows 2000, Windows NT 等平台的32位数据库开发系统，并能充分发挥32位微处理器的强大功能，直观易用的创建数据库的工具。同时，Visual Access 2003是一种典型的关
15、系型数据库管理系统。关系模型是建立在关系代数基础上的，因而具有坚实的理论基础。与层次模型和网状模型相比，它具有数据结构单一、理论严密、使用方便、易学易用的特点。Visual Access 2003作为一种典型的关系型数据库管理系统，具有界面友好、工具丰富、速度较快等优点，并在数据库操作与管理、可视化开发环境、面向对象程序设计等方面具有较强的功能。而Visual Basic是一种可视化的、面向对象和调用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的各种应用程序。它简单易学、效率高，且功能强大，可以与其他的专业开发工具相媲美，而且程序开发人员不必具有C/C+编程基础。物资仓库管
16、理系统开发的技术难度不是很大，但是主要会涉及到存储物资信息、货品信息以及出入库信息等二维表。软件中所有数据都需要记录在数据库中，而数据库的建立正是ACCESS 2003的优势所在，从数据库的建立到Visual Basic 6.0的编程，都在一个开发平台中，减小了开发难度，又可以满足用户的全部需要。因此，对于本系统的开发，选用了Visual Basic 6.0、ACCESS 2003作为开发工具。第三章 数据库的设计数据库作为学校、企业、部门所有数据的集合，它不仅要反映数据本身的内容，而且要反映数据与数据之间的联系。数据库设计是建立数据库及其应用系统的核心技术，是管理信息系统开发和建设中的核心问
17、题。如果使用一个可靠的数据库设计过程，就能迅速、高效地创建一个结构合理的数据库，为访问所需信息提供方便。同时为系统的详细设计打好坚实的基础，节省日后整理数据库所需的时间，并更快的得到精确结果。对于数据库的设计一般包括数据库的概念设计和数据库的详细设计两方面。3.1数据库概念设计数据库概念设计是为了把系统中所包含的数据信息及其之间的关系明确的表达出来，在进行数据库设计之前应该建立本系统中的数据概念模型。因为本系统主要是对货品信息和出库信息以及入库信息等进行处理，所以提取出以下的概念模型E-R图如图3-1、图3-2、图3-3所示。货品信息货品编码货品名称类别警戒高线单位型号物资编码tidianma
18、hao警戒底线图3-1 货品信息 E-R图入库登记信息货物编码入库日期数量增值税率进货价总额供货单位经办人 图3-2入库登记信息 E-R图出库登记信息出库日期出库单号数量增值税率货物编码单价收货单位经办人 图3-3出库登记信息 E-R图将数据库概念设计阶段所得的ER图转换为关系模式，转换后得到的关系模式如下：货品信息（货品编码、货品名称、类别、型号、单位、物资编码、存放物资、入库计划单价、出库计划单价、原始物资、警戒底线物资、警戒高线物资）入库等级信息（入库日期、入库单号、货物编码、数量、进货价、总额、已付货款、供货单位、经办人编码、经办人、增值税率）出库登记信息（出库日期、出库单号、数量、货
19、物编码、单价、出货价、总额、已收货款、收货单位、经办人编码、经办人、增值税率）3.2数据库详细设计根据上述的概念模型设计，基于ACCESS 2003设计出关系型数据库，其包含以下二维表。表3-1 货品信息表字段名数据类型字段长度是否为空货品编码文本5货品名称文本10类别文本8型号文本4单位文本2物资编码文本5存放物资文本12入库计划单价货币6出库计划单价货币6原始物资数字 6默认货位文本5警戒底线物资数字6警戒高线物资数字6表3货品出库表表3-2物资信息表字段名数据类型字段长度是否为空物资编号文本5物资名称文本12存货种类文本2存货价值货币6表3-3用户表字段名数据类型字段长度是否为空用户名文
20、本10密码文本6表3-4入库登记表字段名数据类型字段长度是否为空入库日期日期/时间6入库单号文本10货物编码文本5数量数字6进货价货币6总额货币6已付货款货币6供货单位文本20经办人编码文本5经办人文本8备注备注10表3-5出库登记表字段名数据类型字段长度是否为空出库日期日期/时间6出库单号文本10货物编码文本5货物名称文本10数量数字6单价货币6出货价货币6总额货币6已收获款货币6收货单位编码文本5收货单位文本20经办人文本8备注备注10第四章 系统的详细设计4.1系统界面的总体规划根据系统的功能分析及实际开发需要，本系统共设计了以下两个界面：系统登录界面、主界面。其中系统登录界面包含欢迎界
21、面和用户登录界面，主界面提供了提供了调用系统的途径，包括物资库存管理、物资入库管理、物资出库管理、物资盘存管理、综合管理、物资查询等几个功能模块。图4-1是系统总体界面的规划图。物资仓库管理系统系统登录界面系统主窗体物资管理入库管理出库管理盘存管理综合管理附项分类历史数据管理打印、查询系统管理密码错误图4-1 系统总体规划图本系统主要涉及六大主要模块，下面我将对登陆界面、主界面、入库出库管理、查询及系统管理等依次阐述。4.2 系统登录界面的设计当运行本物资仓库管理系统时，首先出现欢迎界面，然后出现如图4-2所示的登陆界面。登陆界面的功能是用于输入管理员用户名和密码，防止非法用户进入系统。图4-
22、2物资仓库管理系统登录界面用户登录窗体中放置了两个label控件，用来显示“用户名”“密码”的提示信息；两个text控件，用来输入用户名和密码；两个command控件用来登录和退出，当用户名和密码都输入正确时，点击登录会弹出“身份正确”并进入系统，如果输入的管理员名在用户表中没有找到将提示“查无此人”，如果输入的密码与用户表中管理员名不符，将提示“密码错误”并回到登录界面重新输入。其登录按钮代码如下：Private Sub cmdLogin_Click()denlu_name = txtUserName.Text denlu_pass = txtPassword.TextDim mycn As
23、 New ADODB.Connection Dim myrs As New ADODB.RecordsetSet myrs = New ADODB.Recordsetmycn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kucun.mdb;myrs.Open SELECT * FROM 用户 where userID= + denlu_name + ;, mycn, adOpenKeyset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox 查无此人, ,
24、 登陆信息Else If myrs(userPWD) = denlu_pass ThenMsgBox 身份正确, , 登陆信息 main.ShowUnload Me Else MsgBox 密码不正确, , 登陆信息 End If End If End Sub4.3 主界面的设计成功登录系统后，将出现如图4-3所示的窗体（物资仓库管理系统主界面），系统主界面由库存管理、入库管理、出库管理、盘存管理等菜单组成及一个常用快捷图标的工具栏组成，主要是提供进一步进行操作的途径。图4-3物资仓库管理系统主界面其中菜单栏的设计采用了常用的下拉式菜单格式，在VB程序下，选择“工具”“菜单编辑器”命令，打开“
25、菜单编辑器”对话框，在此窗口中设定菜单的结构，以及设置菜单项的属性。单击其中的菜单项可以进入相关的功能模块。系统的菜单结构表4-1所示。表4-1系统菜单结构表系统管理物资库存管理物资入库管理物资出库管理物资盘存管理综合管理附项分类历史数据管理打印物资查询添加用户货品信息管理入库登记管理出库登记管理盘存数据录入库存汇总表经办人员管理历史库存管理货品入库单库存修改密码货品库存管理入库年度统计出库年度统计盘存表供货单位管理历史入库管理货品销售单销售帮助超储货品管理进货单位管理历史销售管理经办人员经办人员短线货品管理仓库信息管理组合查询为了方便使用者的操作，针对常用的入库、出库及库存汇总功能在菜单栏下
26、面设计了快捷图标工具栏，其界面如图4-4所示。图4-4快捷图标工具栏4.4 入库登记信息模块设计单击物资仓库管理系统主界面菜单栏中的物资入库管理会进入物资入库信息模块。此模块中包含有入库登记管理、货品入库年度统计、供货单位年度供货金额统计三个窗体。入库管理菜单下点击入库登记管理选项，弹出入库登记的窗口，本模块的主要功能是仓库管理员对货品的入库信息进行添加、更新删除等操作。其界面如图4-5所示。图4-5 入库登记信息窗体在入库登记界面中应用了15个label控件用来显示提示信息，还有13个text控件用来输入入库登记信息，一个下拉列表供管理员选择供货单位，以及5个command控件用来对入库信息
27、的登记进行添加、更新、删除等。当管理员在text文本框输入完成入库登记信息后，单击添加按钮，就会将输入的信息保存到数据库文件中；单击删除按钮，系统就会将text空间中的内容删除；单击关闭按钮就会将本窗体关闭，并退回到系统主窗体。其添加按钮、删除按钮代码见附录文件4-1。4.5 查询模块设计单击物资仓库管理系统主界面菜单栏中的物资查询会进入查询信息模块。此模块中包含有库存查询、销售查询、经办人员查询和组合查询四个窗体。物资查询菜单下点击组合查询选项，弹出组合查询的窗口。此模块的主要功能是仓库管理员可以通过不通的方式对仓库中的货品进行查询。其界面如图4-6所示。图4-6组合查询窗口 在组合查询窗体
28、中放置了放置了DataGrid控件以显示查询的货品信息、还有text控件、label控件和Command控件。其主要功能是查询仓库中的货品信息。货品查询方式包括“按类别代码查询”、“按型号查询“、“组合查询”等。当按查询键后查询信息会出现在DataGrid控件里。如果无显示则表示没有查找到相关信息。在本窗口中，管理员可以根据查询条件单独的对货品进行查询，也可以根据多种条件组合对货品查询，方便快捷。组合查询代码见附录文件4-2。4.6 系统管理模块设计单击物资仓库管理系统主界面菜单栏中的系统管理会进入系统管理模块。此模块中包含有添加用户、修改密码、帮助三个窗体。1. 添加用户系统管理菜单下点击添
29、加用户选项，弹出用户注册窗口. 该窗体是管理员注册的地方。只有管理员能应用此功能。其运行界面如图4-7所示。图 4-7 添加用户窗体运行界面本窗体中放置了三个label控件用来显示提示信息，三个text控件用来输入“新用户名称”、“用户密码”和“确认密码”，还有两个command控件用来“确定”和“取消”。当管理员输入完添加信息后，单击“确定”按钮，系统就会提示“添加成功”，并将新的用户信息添加到用户数据库表中；单击“取消”按钮，就会关闭此窗体并退回到主窗体中。其确定按钮代码见附录文件4-3。2.修改密码系统管理菜单下点击修改密码选项，弹出系统修改密码窗口。本窗口的功能是供系统管理员进行密码的
30、更改。其运行界面如图4-8所示。图 4-8 修改密码窗体本窗体中放置了三个label控件用来显示提示信息，三个text控件用来输入“输入旧密码”、“输入新密码”和“确认新密码”，还有两个command控件用来“确定”和“取消”。当管理员输入完修改信息后，单击“确定”按钮，系统就会提示“密码已经修改”，并将新的用户信息添加到用户数据库表中；单击“取消”按钮，就会关闭此窗体并退回到主窗体中。其确定按钮代码见附录文件4-4。出库管理、盘存管理、综合管理、附项分类及历史数据管理窗体与入库管理大体相同就不再做介绍。第五章 系统测试系统测试是将已经确认的软件、计算机硬件、外设、网络等其他元素结合在一起，进
31、行信息系统的各种组装测试和确认测试，其目的是通过与系统的需求相比较，发现所开发的系统与用户需求不符或矛盾的地方，从而提出更加完善的方案.。它的的任务是尽可能彻底地检查出程序中的错误，提高软件系统的可靠性，其目的是检验系统做得怎样？。这阶段又可分为三个步骤：模块测试，测试每个模块的程序是否有错误；组装测试，测试模块之间的接口是否正确；确认测试，测试整个软件系统是否满足用户功能和性能的要求。该阶段结束应交付测试报告，说明测试数据的选择，测试用例以及测试结果是否符合预期结果。测试发现问题之后要经过调试找出错误原因和位置，然后进行改正。是基于系统整体需求说明书的黑盒类测试，应覆盖系统所有联合的部件。系
32、统测试是针对整个产品系统进行的测试，目的是验证系统是否满足了需求规格的定义，找出与需求规格不相符合或与之矛盾的地方。鉴于本系统的一些特性，本人设计了以下几各方面进行测试：1、集成测试集成测试将测试每一个部件之间的工作是否正常。在这个阶段，我们假设所有的单元已通过开发人员个人在单元测试阶段测试全部通过，没有任何错误。2、功能测试系统功能测试如下：测试是否可以正常添加用户和修改密码，系统正常退出；测试是否可以正常对物资信息进行管理，如物资信息、货品信息的添加、删除以及修改；测试是否可以正常对物资变动进行管理，如物资入库、出库、盘点等的操作；3、 文档测试 测试文档是否包括全部内容测试软件功能描述与
33、其他功能有没有冲突查看软件功能描述是否是原来系统分析和需求查看文档内容在特定的情况和进度下,以现有人力,物力和资源能否实现4、极限测试这一部分将测试所有极端的情况，如速度非常快的情况下和速度非常慢的情况下，以及所有其它的极端情况。 附录1. 文件4-1入库登记模块添加按钮代码如下：Private Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit SubAddErr: MsgBox Err.DescriptionEnd Sub入库登记模块删除按钮代码如下：Private Sub cmdDelete
34、_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit SubDeleteErr: MsgBox Err.DescriptionEnd Sub2文件4-2组合查询窗口中组合查询按钮代码如下：Private Sub Command6_Click()ss2 = Text2.Textss3 = Text3.Textss4 = Text4.Textss5 = Text5.TextAdodc1.RecordSource = SEL
35、ECT * FROM 货品信息 where + ss2 + = + ss4 + and + ss3 + = + ss5 + Adodc1.RefreshEnd Sub3.文件4-3添加用户窗体中确定按钮代码如下：Private Sub Command1_Click() Dim sql As String Dim rs As ADODB.Recordset If Trim(UserName.Text) = Then 判断用户名称是否为空 MsgBox 请输入用户名称!, vbOKOnly + vbExclamation, 警告 Exit Sub UserName.SetFocus Else sq
36、l = select * from 用户 where UserID= & UserName & Set rs = transactSQL(sql) If rs.EOF = False Then 判断是否已经存在用户 MsgBox 这个用户已经存在！请重新输入用户名称！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus UserName.Text = PassWord.Text = confirmPWD.Text = Exit Sub Else If Trim(PassWord.Text) Trim(confirmPWD.Text) Then 判断两
37、次密码是否相同MsgBox 两次输入的密码不一致，请重新输入密码！, vbOKOnly + vbExclamation, 警告 PassWord.Text = confirmPWD.Text = PassWord.SetFocus Exit Sub ElseIf Trim(PassWord.Text) = Then 判断密码是否为空 MsgBox 密码不能为空！, vbOKOnly + vbExclamation, 警告 PassWord.Text = confirmPWD = PassWord.SetFocus Else 添加用户 sql = insert into 用户 (UserID,U
38、serPWD) values( & UserName sql = sql & , & PassWord & ) transactSQL (sql) MsgBox 添加成功！, vbOKOnly + vbExclamation, 添加结果 UserName.Text = PassWord.Text = confirmPWD.Text = UserName.SetFocus End If End If End IfEnd Sub4.文件4-4修改密码窗体的确定按钮代码如下：Private Sub Command1_Click()Dim sql As String Dim rs As ADODB.R
39、ecordset If Trim(OldPWD.Text) = Then 判断是否输入旧密码 MsgBox 请输入旧密码！, vbOKOnly + vbExclamation, 警告 OldPWD.SetFocus Exit Sub Else If Trim(NewPWD.Text) = Then 判断是否输入新密码 MsgBox 请输入新密码！, vbOKOnly + vbExclamation, 警告 NewPWD.SetFocus Exit Sub ElseIf Trim(NewPWD.Text) Trim(ConfirmPWD.Text) Then 判断两次密码是否相同 MsgBox 两次密码不同！, vbOKOnly + vbExclamation, 警告 NewPWD.Text = ConfirmPWD.Text = NewPWD.SetFocus Else 修改密码 sql = update 用户 set UserPWD = & NewPWD & where UserID= sql = sql & gUserName & transactSQL (sql) MsgBox 密码已经修改！, vbOKOnly + vbExclamation, 修改结果 Unload Me End If End IfEnd Sub23
