毕业设计（论文）-VB6.0物资管理信息系统设计.doc

1徐州工业职业技术学院毕业论文（设计）题题目：目：物资管理信息系统物资管理信息系统年级专业：年级专业：网络安全网络安全051051学生姓名：学生姓名：学学号：号：0200511461指导教师指导教师：职职称：称：助教助教导师单位：导师单位：徐州工业职业技术学院徐州工业职业技术学院2【摘要】本系统为物资管理系统。采用的开发工具是MicroSoftVisualBasic6.0，其后台数据库为SQL2000。系统能够进行修改密码、添加用户、退出系统以及对物资信息进行管理，如：物资基本信息和物资出入库信息。其中在物资基本信息中分添加物资添加模块、删除物资模块以及修改物资模块；在出入库信息中也分入库信息模块、出库信息模块以及查询物资余额信息。在查询中可自主设定条件从而达到对物资信息数据的多角度查询功能。用户以管理员份登录，对本系统的可登录人员进行管理，保证了系统的安全性。支持运行的环境：MicrosoftWindow982000XP。【关键词】：数据库，VisualBasic，物资基本管理、物资出入库信息、查询【Summary】Thissystemisanadministrativesystemofgoodsandmaterials.ThedevelopinginstrumentadoptedisMicroSoftVisualBasic6.0itsbackstageofdatabasesareSQL2000.Thesystemcanrevisethepasswordadduserswithdrawfromthesystemandmanagegoodsandmaterialsinationforinstance:Goodsandmaterialsbasicinationandgoodsandmaterialsstockmovementinandoutofthewarhouseination.AmongthemdivideinthebasicinationofgoodsandmaterialsintoandaddthebasicinationofgoodsandmaterialsdeletebasicinationandrevisebasicinationEdmoduledivideinationgoodsandmaterialsintothedeliveryofcargofromstorageofgoodsandmaterialsandputinationinstorageandinquireaboutthegoodsandmaterialsvacanciestobefilledmoduleingoodsandmaterialsstockmovementinandoutofthewarhouseinationtoo.Canestablishtheconditionininquiringtoreachandinquireaboutthefunctiontomanyanglesoftheinationdataofgoodsandmaterialsindependently.Userlog-ininthecapacityofadministratorcanlogintotoaoriginallysystematiconepersonnelgoonmanagesecurityofthesecuritysystem.Supporttheenvironmentoperated:MicrosoftWindow982000XP.【Keyword】Database、VisualBasic、Thematerialismanaged、thestandard、materialination、Inquiry3目目录录第一章前言.41.1课题来源.41.2课题目的.41.3课题指导思想.4第二章系统分析.52.1开发背景.52.2管理信息系统概述.52.3物资信息系统开发的意义.62.4系统分析.62.5数据流图和数据词典.72.5.1数据流图（DFD）.72.5.2数据词典.8第三章系统设计.93.1系统简介.93.2系统功能.93.3系统运行硬件要求.103.4系统的维护.103.5系统的优点.10第四章数据库分析.114.1数据库需求分析.114.2SQL数据库的建立.124.2.1创建数据库的SQL语句.12第五章各功能模块的创建.145.1用户登录窗体.145.2主界面.155.3物资基本信息管理.155.3.1添加物资基本信息.155.3.2修改物资基本信息.165.3.3查询物资基本信息.165.3.4物资基本列表.165.4物资入库系统管理.175.4.1添加物资入库信息.175.4.2修改物资入库信息.175.4.3查询物资入库信息.185.4.4入库物资信息.185.5物资出库系统管理.185.5.1添加物资出库信息.185.5.2修改物资出库信息.195.5.3查询物资入库信息.195.6物资余额信息管理.205.6.1物资余额信息.205.6.2物资余额列表.205.7模块代码.20第六章毕业设计小结.46参考文献:.474第一章第一章前前言言1.1课题来源在市场经济的激烈竞争中，企业必须把业务经营同市场需求联系起来，为此，企业纷纷建立起了自己的数据库系统，由计算机管理代替手工操作。物资管理是一般工业、商业企业生产管理环节中重要的一环，需要对物资基本信息管理、物资调配信息等尽心完整的监控。物资入库首先需要登记物资的基本信息，包括物资的种类、名称、型号、单位、单价等；然后登记物资入库信息，包括物资基本信息、入库地点、入库人、经办人、数量等；出库物资需要登记出库信息，包括物资基本信息、出库地点、出库人、经办人、数量等；根据物资的入库、出库过程的综合，得到各种物资的余额信息，后续设计一个管理信息系统，主要是我们通过在实际中了解了一些企业的管理形式，并结合当今世界管理信息系统的蓬勃发展，了解现阶段对管理信息系弘强调的是综合管理功能，多维服务模式，人机协调的、智能化的、集成化的计算机辅助管理功能等。因此设计这样一个管理1.2课题目的信息系统，来解决一些小型企业在物理管理上的缺点，能够实现物资信息的系统化、规范化和自动化。仓库管理的物资主要是企业生产所需要的各种设备。进货时经检查合同确认为有效托收以后，进行验收入库，填写入库单，进行入库登记。企业各个部门根据所需要的物资设备总额和部门生产活动需要提出物资需求申请。计划员根据整个企业的需求开出物资设备出库单，仓库管理中根据出库单核对发放设备。设备使用完毕需要及时归还入库，填写入库单。根据需要按照月、季、年进行统计分析，产生相应报表。仓库管理的特点是信息自理量比较大。所管理的物资设备种类繁多，而且由于入库单、出库单、需求单等单据发生量特别大，关联信息多，查询和统计的方工各不相同。因此在管理上实现起来有一定的困难。在管理的过程中经常会出现信息的重复传递；单据、报表种类繁多，各个部门管理规格不统一等问题。在本系统的设计过程中，为了克服这些困难，满足计算机管理的需要，我们采取了下面的一些原则。1.3课题指导思想随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现管理企业势在必行。本系统采用面向对象的程序设计思想进行编制，整个系统数据存在表格文件中，由数据库文件进行管理。在设计数据库时使表格文件发生关联，组成关5系型数据库，以便于对数据进行处理。这样就可以在数据的操作上分别针对属于不同表的数据，不必为了某条记录的一个字段来对全部记录进行修改，加快了数据的处理速度，增加了数据的可管理性。第二章系统分析2.1开发背景仓库管理的物资主要是企业生产所需要的各种设备。进货时经检查合同确认为有效托收以后，进行验收入库，填写入库单，进行入库登记。企业各个部门根据所需要的物资设备总额和部门生产活动需要提出物资需求申请。计划员根据整个企业的需求开出物资设备出库单，仓库管理中根据出库单核对发放设备。设备使用完毕需要及时归还入库，填写入库单。根据需要按照月、季、年进行统计分析，产生相应报表。仓库管理的特点是信息自理量比较大。所管理的物资设备种类繁多，而且由于入库单、出库单、需求单等单据发生量特别大，关联信息多，查询和统计的方工各不相同。因此在管理上实现起来有一定的困难。在管理的过程中经常会出现信息的重复传递；单据、报表种类繁多，各个部门管理规格不统一等问题。在本系统的设计过程中，为了克服这些困难，满足计算机管理的需要，我们采取了下面的一些原则。l统一各种原始单据的格式，统一帐目和报表的格式。l删除不必要的管理冗余，实现管理规范化、科学化。l程序代码标准化，软件统一化，确保软件的可维护性和实用性。l界面尽量简单化，做到实用、方便，尽量满足企业中不同层次员工的需要。l建立操作日志愿，系统自动记录所进行的各种操作。2.2管理信息系统概述管理信息系统（MIS）的概念是1961年美国人J。D。GALLAGHER首先提出来的，是一门新兴的、集管理、信息科学、系统科学及计算机科学为一体的综合性学科，研究的是中信息管理活动的全过程，以便有效的管理信息，提供各类管理决策信息，辅助企业进行化管理。管理信息系统是企业的信息系统，它具备数据处理、计划、控制、预测和辅助决策功能，具体作用如下：（1）用统一标准处理和提供信息，排除使用前后矛盾的不完整的数据。（2）完整、及时提供在管理及决策中需要的数据。（3）利用指定的数据关系式分析数据，客观预测未来。6（4）向各级管理机构提供不同详细程度的报告，缩短分析和解释时间。（5）用最低的费用最短的时间提供尽可能精确、可靠的信息，以便使决策者选择最佳的实施方案，以提高企业的经济效益。2.3物资信息系统开发的意义信息已成为继劳动力、土地、资本之后的又一大资源。谁控制的信息越多，谁利用信息资源的效率越高，谁就会在各方面的竞争中占有一席之地，谁就会有更多的优势。物资供应部门是企业与生产单位之间的桥梁、纽带，是企业正常生产的物资保障部门。正因为供应部门是关键的中转环节，建立一套物资管理信息系统对于如何有效的把本单位生产所需的生产资料及时、保质保量的供应上去，有着重要的意义。从微观上讲，建立一套物资管理信息系统能够加快物资的周转速度，提高生产效率，从而加强了管理的信息化手段，提高了本单位的经济效益。从宏观上讲，顺应了社会的信息化、社会化潮流，缩短了整个社会化大生产的周期2.4系统分析所谓系统分析，就是指在整个系统开发工程中，解决“做什么”的问题，把要解决哪些问题，满足用户哪些具体的信息需求调查分析清楚，从逻辑上或说从信息处理的功能需求上提出系统的方案，即逻辑模型，为下一阶段进行物理方案设计，解决怎么办提供依据。它是信息开发系统中的一个重要阶段，是建立系统模型的第一步。其核心是目标分析与需求分析，最后提出系统的逻辑方案。通过对需求调查得知，以前的物资管理办法，工作繁琐，工作量大，效率低。因而，建立一套物资管理信息系统势在必行。各单位的需求虽然不尽相同，但大体上可分为如下几个方面：（1）用户的信息要求：随时查询库存物资状况，进行库存物资汇总，对记录能随时删除、插入及恢复。(2)用户的处理要求：能随时增加、删除，修改每一个库存物资记录，并能打印单据。（3）对数据的安全性、完整性的要求：要保证每个记录必须完整，不能被他人非法窃去。本系统的逻辑模型主要是以系统的数据流程图和数据字典为主要描述工具，以信息系统中应有的数据流程和数据结构来描述系统。72.5数据流图和数据词典2.5.1数据流图（DFD）物资管理系统主结构图物资管理系统基本物资信息物资入库管理物资出库管理添加物资基本信息修改物资基本信息查询物资基本信息添加物资入库信息修改物资入库信息查询物资入库信息添加物资出库信息修改物资出库信息查询物资入库信息删除物资基本信息删除物资入库信息删物资入库信息除物资余额信息管理物资余额查询物资管理系统流程图：系统用户验证错对加用户添加物资基本信息管理物资余额查询管理物资出入库系统管理退出系统删除信息8物资物资登记资物资基本信息物资调配物资余额信息物资入库信息物资出库信息2.5.2数据词典由于数据流程图只是对数据处理及彼此之间的联系进行说明，未对数据的详细及加工过程进行说明，而这正是数据字典所要表达的。它能将数据流程图中全部数据流及其组成部分的数据元素、数据存储、数据加工等描述清楚，便于后序工作系统设计的进行。这里仅列出数据流的例子以做代表。数据流的DD表如下：系统名：物资管理编号：条目名：物资库存清册别名：来源：物资管理数据流结构：库存清册=序号+物资项简要说明：清册打出后报供应处有关科室修改记录编写日期审核日期表1数据字典例数据表名称：添加物资表数据项名内容举例类型取值范围备注物资名称木质地板数字型4位整数物资编号002字符型最多4数字规格型号34#字符型最多5个字符类别材料字符型最多9个汉字数据项可多次出现9第三章系统设计3.1系统简介本系统所使用的开发语言是VisualBasic6.0(简称VB6.0)。VB6.0在和数据库应用程序的开发中，提供了包括数据窗体控件和数据窗体对象等功能强大的工具，协助编程人员轻松的连接数据库文件，并访问其中数据，该语言不仅具有一般数据库语言的特点，而且有可视化的特点，是一种非常优秀的计算机软件开发语言。在屏幕的颜色搭配上突出了整体和协调原则，尽量减少多色调的无序使用，力求模块颜色搭配一致，又有一些变化，但风格统一。在窗体的格式上，基本上采用了统一的标准，命令按钮采用了统一的布局。本系统具有很强的针对性和实用性，主要是面向企业的具体的案例。此外，还具有如下的特点：1.友好的操作接口菜单方式与直观方式，操作简单，接口美好，功能完备，完全采用人机对话方式。交互性强。2.操作的简易性简单易操作，多用鼠标操作，自动填充数据信息，减少原始输入错误，将键盘录入量减至最少。诸多的信息提示，容错处理，使输入变得轻松灵活，只需轻轻点击，工作都由系统来做，简便直观的操作完成复杂的功能。3.完善的查询功能系统提供了关于物资管理的方方面面的查询。例如：你可以按物资名称、规格型号、等一些情况查询，也可以查询入库出库时间等等。利用计算机对企业物资信息及档案进行管理具有手工管理所无法实现的优点。例如:它检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些都能够极大地提高工作效率特别是英特网应用发展迅速的今天利用网络进行信息的查询、修改和发布已成为企业现代化管理的象征之一也是企业科学化和正规化管理的重要条件。因此开发一套比较成熟的物资管理软件很有必要。在经过分析比较的基础上我选择使用Microsoft公司的VisualBasic6.0开发工具利用其提供的各种可视化开发工具建立系统应用原型然后对初始原型系统进行需求迭代不断修正、改进和补充直到形成符合物资管理要求的信息管理系统。3.2系统功能系统开发的总体任务是实现物资信息的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。本系统完成的主要功能有：有关物资基本信息的输入，包括物资编号、物资名称、规格型号、种类和计量单位等。10物资基本信息的查询。物资基本信息的修改。入库物资信息的输入。入库物资信息的查询。入库物资信息的修改。出库物资信息的输入。出库物资信息的查询。出库物资信息的修改。物资余额信息的查询。物资余额信息的浏览。3.3系统运行硬件要求486以上的微机，16M以上的内存，50M以上的硬盘软件的配置要求：WIN95中文版以上的操作系统3.4系统的维护系统的维护主要分为纠错性维护、适应性维护、完善性维护和预防性维护。纠错性维护：由于本系统测试不可能揭露系统中存在的所有错误，所以当一定时期后会暴露出系统内隐藏的错误，这时候要及时纠正。适应性维护：这里指为了使本系统更好的适应环境的变化而进行的维护工作。一方面由于机技术的飞速，原来的系统不能适应新的软硬件，另一方面，应用的对象也在不断的发生变化，将导致系统不能适应新的应用环境，因此，有必要对系统进行调整，以保证系统时时都能满足用户的要求。完善性维护：要根据用户不断提出的新要求来不断扩充原有的系统的功能。预防性维护：把维护工作由被动变主动，来延长本系统的使用寿命。据统计，完善性维护占所有维护工作总数的50%左右。可见，系统维护工作中，一半以上的工作是对系统的完善，一定要多加注意。3.5系统的优点1安全性强2维护成本低，系统可靠性强3扩充性好且开发效率高4使用方便5标准化程度较高11第四章数据库分析在数据库应用系统的开发过程中，数据库的结构设计是其中重要的一个环节。数据库设计的好好坏将直接对应用系统的效率以及实现的效果产生影响。好的数据库结构设计会减少数据库的存储量，数据的完整性和一致性比较高，系统具有较快的响应速度，能简化基于此数据库的应用程序的实现等。4.1数据库需求分析数据库需求分析是数据库结构设计应该尽量设计的第一个阶段，是非常重要的一个阶段。这个阶段主是要确定基本数据、数据结构处理的流程，组成一份详尽的数据字典，为以后进一步设计打下基础，在仔细调查宾馆管理系统的基础上，得到本系统所处理的数据流程。基本信息设置出入库系统设置余额信息设置物资管理查找物资输出物资通过对物资管理的内容和数据流程分析，针对本程序，设计的数据项和数据结构如下：用户表:包括的数据库项有用户名、用户密码。物资添加表:包括的数据库项有物资编号，物资名称，规格型号，类别，计量单位。物资修改表:包括的数据库项有物资编号，物资名称，规格型号，类别，计12量单位。物资入库表:包括的数据库项有物资编号，物资名称，规格型号，类别，计量单位。入库信息（数量，单价，金额，入库时间，经办人，保管人，仓库）物资出库表:包括的数据库项有物资编号，物资名称，规格型号，类别，计量单位。出库信息（数量，单价，金额，入库时间，经办人，保管人，仓库）余额查询表:包括的数据库项有物资编号，物资名称，规格型号，类别，计量单位。物资信息（数量，单价，金额，入库时间，经办人，保管人，仓库）4.2SQL数据库的建立4.2.1创建数据库的SQL语句usemastergoifexists(selectfromdbo.sysdatabaseswherename=Material)dropdatabaseMaterialGOcreatedatabaseMaterialgouseMaterialgoifexists(selectfromdbo.sysobjectswhereid=object_id(Ndbo.material)andOBJECTPROPERTY(idNIsUserTable)=1)droptabledbo.materialGOifexists(selectfromdbo.sysobjectswhereid=object_id(Ndbo.msave)andOBJECTPROPERTY(idNIsUserTable)=1)droptabledbo.msaveGOifexists(selectfromdbo.sysobjectswhereid=object_id(Ndbo.msurplus)andOBJECTPROPERTY(idNIsUserTable)=1)droptabledbo.msurplusGOifexists(selectfromdbo.sysobjectswhereid=object_id(Ndbo.muse)andOBJECTPROPERTY(idNIsUserTable)=1)droptabledbo.museGO13创建物资基本表CREATETABLEdbo.material(wzidchar(8)COLLATEChinese_PRC_CI_ASNOTNULLwznamechar(20)COLLATEChinese_PRC_CI_ASNOTNULLwzspecchar(20)COLLATEChinese_PRC_CI_ASNOTNULLwzkindchar(10)COLLATEChinese_PRC_CI_ASNULLwzunitchar(10)COLLATEChinese_PRC_CI_ASNULL)ONPRIMARYGO创建物资入库表CREATETABLEdbo.msave(rknochar(14)COLLATEChinese_PRC_CI_ASNOTNULLrkidchar(8)COLLATEChinese_PRC_CI_ASNOTNULLrknamechar(20)COLLATEChinese_PRC_CI_ASNULLrkspecchar(20)COLLATEChinese_PRC_CI_ASNULLrkkindchar(10)COLLATEChinese_PRC_CI_ASNULLrkunitchar(10)COLLATEChinese_PRC_CI_ASNULLrkaccountnumeric(50)NOTNULLrkpricenumeric(82)NOTNULLrkvaluenumeric(102)NOTNULLrkdatedatetimeNOTNULLrkdeal_personchar(10)COLLATEChinese_PRC_CI_ASNOTNULLrksave_personchar(10)COLLATEChinese_PRC_CI_ASNOTNULLrkbasechar(10)COLLATEChinese_PRC_CI_ASNULLrkmemotextCOLLATEChinese_PRC_CI_ASNULL)ONPRIMARYTEXTIMAGE_ONPRIMARYGO创建物资余额表CREATETABLEdbo.msurplus(yeidchar(8)COLLATEChinese_PRC_CI_ASNOTNULLyenamechar(20)COLLATEChinese_PRC_CI_ASNOTNULLyespecchar(20)COLLATEChinese_PRC_CI_ASNULLyekindchar(10)COLLATEChinese_PRC_CI_ASNULLyeunitchar(2)COLLATEChinese_PRC_CI_ASNULLyeaccountnumeric(50)NOTNULLyuenumeric(102)NOTNULLyebasechar(10)COLLATEChinese_PRC_CI_ASNOTNULLyememotextCOLLATEChinese_PRC_CI_ASNULL)ONPRIMARYTEXTIMAGE_ONPRIMARYGO创建物资出库表CREATETABLEdbo.muse(14lynochar(14)COLLATEChinese_PRC_CI_ASNOTNULLlyidchar(8)COLLATEChinese_PRC_CI_ASNOTNULLlynamechar(20)COLLATEChinese_PRC_CI_ASNULLlyspecchar(20)COLLATEChinese_PRC_CI_ASNULLlykindchar(10)COLLATEChinese_PRC_CI_ASNULLlyunitchar(2)COLLATEChinese_PRC_CI_ASNULLlyaccountnumeric(50)NOTNULLlypricenumeric(82)NULLlyvaluenumeric(102)NULLlydatedatetimeNOTNULLlyuse_personchar(10)COLLATEChinese_PRC_CI_ASNOTNULLlydeal_personchar(10)COLLATEChinese_PRC_CI_ASNOTNULLlybasechar(10)COLLATEChinese_PRC_CI_ASNULLlymemotextCOLLATEChinese_PRC_CI_ASNULL)ONPRIMARYTEXTIMAGE_ONPRIMARYGO第五章各功能模块的创建5.1用户登录窗体系统启动后，将首先出现如图所示的用户登录窗体，用户首先输入用户名，然后输入密码。155.2主界面登录成功后将出现如图所示的主界面：165.3物资基本信息管理5.3.1添加物资基本信息5.3.2修改物资基本信息5.3.3查询物资基本信息175.3.4物资基本列表5.4物资入库系统管理5.4.1添加物资入库信息185.4.2修改物资入库信息5.4.3查询物资入库信息5.4.4入库物资信息195.5物资出库系统管理5.5.1添加物资出库信息5.5.2修改物资出库信息205.5.3查询物资入库信息5.6物资余额信息管理5.6.1物资余额信息5.6.2物资余额列表5.7模块代码主模块代码主模块代码：PublicfMainAsfrmMainPublicflagMeditAsBoolean21PublicflagIeditAsBooleanPublicflagLeditAsBooleanPublicflagOeditAsBooleanPublicgintMmodeAsIntegerPublicgintImodeAsIntegerPublicgintLmodeAsIntegerPublicgintOmodeAsIntegerSubMain()DimfLoginAsNewfrmLoginfLogin.ShowvbModalIfNotfLogin.OKThenLoginFailedsoexitappEndEndIfUnloadfLoginSetfMain=NewfrmMainfMain.ShowEndSubPublicFunctionConnectString()_AsStringreturnsaDBConnectStringConnectString=FileDSN=material.dsnUID=saPWD=EndFunctionPublicFunctioncuteSQL(ByValSQL_AsStringMsgStringAsString)_AsADODB.RecordsetcutesSQLandreturnsRecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsStringOnErrorGoTocuteSQL_ErrorsTokens=Split(SQL)Setcnn=NewADODB.Connectioncnn.OpenConnectStringIfInStr(INSERTDELETEUPDATE_UCase$(sTokens(0)Thencnn.cuteSQLMsgString=sTokens(0)_querysuccessfulElseSetrst=NewADODB.Recordsetrst.OpenTrim$(SQL)cnn_adOpenKeyset_adLockOptimisticrst.MoveLastgetRecordCount22SetcuteSQL=rstMsgString=查询到rst.RecordCount_条记录EndIfcuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctioncuteSQL_Error:MsgString=查询错误:_Err.DescriptionResumecuteSQL_ExitEndFunctionPublicSubEnterToTab(KeyascAsInteger)IfKeyasc=13ThenSendKeysTABEndIfEndSub登入界面代码：登入界面代码：PrivateDeclareFunctionGetUserNameLibadvapi32.dllAliasGetUserNameA(ByVallpbufferAsStringnSizeAsLong)AsLongPublicOKAsBooleanPrivateSub_Load()DimsBufferAsStringDimlSizeAsLongsBuffer=Space$(255)lSize=Len(sBuffer)CallGetUserName(sBufferlSize)IflSize0ThentxtUserName.Text=Left$(sBufferlSize)ElsetxtUserName.Text=vbNullStringEndIfEndSubPrivateSubCancel_Click()OK=FalseMe.HideEndSubPrivateSubok_Click()DimtxtSQLAsStringDimmrcAsNewADODB.RecordsetDimMsgTextAsStringToDo:createtestforcorrectpasswordcheckforcorrectpasswordDimconnAsNewADODB.Connection23conn.ConnectionString=Provider=SQLOLEDB.1IntegratedSecurity=SSPIPersistSecurityInfo=FalseInitialCatalog=materialconn.OpenUserName=IfTrim(txtUserName.Text=)ThenMsgBox没有这个用户，请重新输入用户名！vbOKOnly+vbExclamation警告txtUserName.SetFocusElsetxtSQL=selectfromuser_Infowhereuser_ID=txtUserName.TextSetmrc=cuteSQL(txtSQLMsgText)mrc.OpentxtSQLconnadOpenKeysetadLockOptimisticIfmrc.EOF=TrueThenMsgBox没有这个用户，请重新输入用户名!vbOKOnly+vbExclamation警告txtUserName.SetFocusElseIfTrim(mrc.Fields(1)=Trim(txtPassword.Text)ThenOK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)ElseMsgBox输入密码不正确，请重新输入！vbOKOnly+vbExclamation警告txtPassword.SetFocustxtPassword.Text=EndIfEndIfEndIfmiCount=miCount+1IfmiCount=3ThenMe.HideEndIfEndSubPrivateSubLabel1_Click()EndSub主界面代码：PrivateSubMDI_Load()Me.Left=GetSetting(App.TitleSettingsMainLeft1000)Me.Top=GetSetting(App.TitleSettingsMainTop1000)Me.Width=GetSetting(App.TitleSettingsMainWidth6500)Me.Height=GetSetting(App.TitleSettingsMainHeight6500)Ifuser_des=1ThenElseIfuser_des=2ThenmenuModifymaterial.Enabled=False24menuDeletematerial.Enabled=FalsemenuModifymaterialin.Enabled=FalsemenuDeletematerialin.Enabled=FalsemenuModifymaterialout.Enabled=FalsemenuDeletematerialout.Enabled=FalseEndIfEndSubPrivateSubMDI_Unload(CancelAsInteger)IfMe.WindowStatevbMinimizedThenSaveSettingApp.TitleSettingsMainLeftMe.LeftSaveSettingApp.TitleSettingsMainTopMe.TopSaveSettingApp.TitleSettingsMainWidthMe.WidthSaveSettingApp.TitleSettingsMainHeightMe.HeightEndIfUnloadMeEndSubPrivateSubmenuAddmaterial_Click()gintMmode=1frmMater1.ShowfrmMater1.ZOrder0EndSubPrivateSubmenuAddmaterialin_Click()gintImode=1frmMaterIn1.ShowfrmMaterIn1.ZOrder0EndSubPrivateSubmenuAddmaterialout_Click()gintOmode=1frmMaterOut1.ShowfrmMaterOut1.ZOrder0EndSubPrivateSubmenuAddsurplus_Click()gintLmode=1frmMaterList1.ShowfrmMaterList1.ZOrder0EndSubPrivateSubmenuAdduser_Click()frmmenuAdduser.ShowEndSubPrivateSubmenuDeletematerial_Click()DimtxtSQLAsStringDimintCountAsIntegerDimmrcAsADODB.RecordsetDimMsgTextAsString25IfflagMeditThenIffrmMater.msgList.Rows1ThenIfMsgBox(真的要删除这条文件记录么？vbOKCancel+vbExclamation警告)=vbOKThenintCount=frmMater.msgList.RowtxtSQL=deletefrommaterialwherewzid=Trim(frmMater.msgList.TextMatrix(intCount1)Setmrc=cuteSQL(txtSQLMsgText)UnloadfrmMaterfrmMater.txtSQL=selectfrommaterialfrmMater.ShowEndIfEndIfEndIfEndSubPrivateSubmenuDeletematerialin_Click()DimtxtSQLAsStringDimintCountAsIntegerDimmrcAsADODB.RecordsetDimMsgTextAsStringIfflagIeditThenIffrmMaterIn.msgList.Rows1ThenIfMsgBox(真的要删除这条文件记录么？vbOKCancel+vbExclamation警告)=vbOKThenintCount=frmMaterIn.msgList.RowtxtSQL=updatemsurplussetyeaccount=yeaccount-Trim(frmMaterIn.msgList.TextMatrix(intCount7)yue=yue-Trim(frmMaterIn.msgList.TextMatrix(intCount9)whereyeid=Trim(frmMaterIn.msgList.TextMatrix(intCount2)Setmrc=cuteSQL(txtSQLMsgText)txtSQL=deletefrommsavewhererkno=Trim(frmMaterIn.msgList.TextMatrix(intCount1)Setmrc=cuteSQL(txtSQLMsgText)UnloadfrmMaterInfrmMaterIn.txtSQL=selectfrommsavefrmMaterIn.ShowEndIfEndIfEndIfEndSubPrivateSubmenuDeletematerialout_Click()DimtxtSQLAsStringDimintCountAsIntegerDimmrcAsADODB.RecordsetDimMsgTextAsString26IfflagOeditThenIffrmMaterOut.msgList.Rows1ThenIfMsgBox(真的要删除这条文件记录么？vbOKCancel+vbExclamation警告)=vbOKThenintCount=frmMaterOut.msgList.RowtxtSQL=updatemsurpluss