库存管理系统设计方案

目录摘要…………1Abstract……………………2 绪论………………31.1管理信息系统的概述………32数据库应用系统开发简介…………………33库存管理系统………………51.3.1国内外同类管理软件的研究现实状况与发展趋势………………… 51。3。2库存管理系统研究背景与意义……………………6第二章数据库理论基础……………………72.1数据库系统设计………………72。2SQL语言简介…………………72.2.1SQL基础……………72.2.2SQL语句……………8第三章应用系统开发工具………………93。1VisualBasic简介及实现原理…………………93。2数据库组件简介………………93.3SQL语言在VB中的应用……………………103。4Access简述………………11库存管理系统设计分析…………124。1需求分析………………………124。2模块划分………………………134。3数据库设计……………………15应用程序设计……………………185。1程序构造……………………185。2程序源代码…………………19第六章设计总结………38参照文献……………………39

摘要 伴随现代工业的发展，计算机信息管理系统越来越受到企业重视。本文重要分析了库存管理系统的某些基本功能和构成状况，包括系统的需求分析、系统构造,功能模块划分以及数据库模式分析等,重点对应用程序的实际开发实现作了简介。到达了数据的一致性和安全性，且应用程序功能完备，符合了库存管理系统作为经典的信息管理系统（MIS)的规定.同步简朴简介了VisualBasic编程环境和Access数据库管理系统的功能特点，库存管理系统是企业物流管理中不可或缺的一部分。关键词：库存管理，数据库，信息管理，VB

AbstractWiththedevelopmentofmodernindustry，theinformationmanagementsystemofthecomputerisbeingpaidattentiontobyenterprises。Thistexthasanalysedsomebasicfunctionsoftheadministrativesystemofthestockandmakesupthesituationmainly，includingthesystematicdemandisanalysed，systematicstructure,thefunctionmoduledividesandthedatabasemodeisanalysedetc。，haverealizeddoingtheintroductiontotheactualdevelopmentoftheapplicationprogramespecially。Havingreachedtheconsistencyandsecurityofthedata，andtheapplicationprogramfunctioniscomplete,haveaccordedwiththeadministrativesystemofthestockastherequestforthetypicalinformationmanagementsystem(MIS).IntroducedthefunctioncharacteristicsofVisualBasicprogrammingenvironmentandAccessdatabasemanagementsystembrieflyatthesametime，theadministrativesystemofthestockisanindispensablepartinenterprise’smaterialflowmanagement。Keywords：stockmanagement,database，informationmanagement，VB

绪论库存管理系统是一种企事业单位不可缺乏的一部分,它的内容对于企业的决策者和管理者来说都是至关重要的，因此,库存管理系统应当可认为顾客提供充足的信息和快捷的查询手段，但一直以来人们使用老式的人工方式管理库存，这种管理方式存在着许多缺陷，诸如效率低，保密性差等，并且时间一长,将产生大量的文献和数据，这对于查找、更新和维护都带来了不少的困难.伴随科学技术的不停提高，计算机科学不停发展，其强大的功能已经被人们深刻认识，它已经进入了人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对产品库存信息进行管理，具有着人工管理无法比拟的长处，它检索迅速、查找以便、可靠性高、存储量大、保密性好、寿命长、成本低等，可减少更多的人力物力,这些都可以极大地提高货品库存的管理效率，也是企业库存管理科学化、正规化，与世界接轨的重要条件。因此，开发一种库存管理系统是很有必要的，具有其特有的技术意义和管理意义。 1。1管理信息系统的概述管理信息系统（简称MIS)是在管理科学、系统科学、计算机科学等的基础上发展起来的综合性边缘科学.在二十一世纪信息高速发展的时代中，管理信息系统具有很重要的作用，它的预测和辅助决策的功能，即运用现代管理的决策和支持。管理信息系统是一种由人、机（计算机）构成的能进行管理信息的搜集、传递、存储、加工、维护和使用的系统。它能观测企业或组织的多种运动状况,运用过去的数据预测未来;从全局出发辅助决策；运用信息控制企业或组织行为，协助其实现长远的规划目的.简言之，管理信息系统是一种以计算机为工具,具有数据处理、预测、控制和辅助决策功能的信息系统.管理信息系统是一种人机系统，同步它又是一种一体化集成系统。管理信息系统是信息系统的一种子系统，它以计算机技术、通讯技术和软件技术为技术基础，同步将现代管理理论、现代管理措施及各级管理人员融为一体，最终为某个组织整体的管理与决策服务，是由人和计算机构成的能进行管理信息的搜集、传递、存储、加工、维护和使用的系统。管理信息系统的基本构造可以概括为四大部件,即信息源、信息处理器、信息顾客和信息管理者.因此，一种成功的管理信息系统应当具有可靠的硬件、实用的软件、强有力的现代化管理水平.详细讲,管理信息系统的三大支柱是：计算机网络、数据库和现代化的管理，这三打支柱称为管理信息系统的扩展部件。1。2数据库应用系统开发简介在数据库应用系统开发之前,对开发数据库的基本概念应当理解，对数据库的构造、开发数据库应用程序的环节、开发体系及措施都应当有相称清晰的理解和认识.数据库应用系统开发的目的是建立一种满足顾客长期需求的产品。开发的重要过程为：理解顾客的需求，然后，把它们转变为有效的数据库设计。把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用。数据库技术在计算机软件邻域研究中一直是非常重要的主题，产生于60年代，30数年来数据库技术得到了迅速发展,并已形成较为完整的理论体系和一大批实用系统。并且，近年来,伴随WorldWideWeb（WWW）的猛增及Internet技术的迅速发展,使得数据库技术之时成为最热门技术之一。1。2。1数据库数据库由DBMS（数据库管理系统)处理,DBMS则由开发人员和顾客通过应用程序直接或间接地使用。它重要包括四个要素：顾客数据、元数据、索引和应用元数据.一、顾客数据目前，大多数主流数据库管理系统把顾客数据表达为关系。目前把关系看作数据表.表的列包括域或属性，表的行包括对应业务环境中的实体的记录.并非所有的关系都同样符合规定，有些关系比其他关系更构造化某些。为了对比构造差的关系和构造好的关系之间的差异,以图书管理系统中的图书和图书借阅者关系为例来阐明,假若设计关系R1（借书证号,姓名,性别，身份编号，身份证,联络电话,图书编号，图书名称,图书类别,作者，出版社，出版日期，备注，价格，数量)；这个关系的问题出在它有有关两个不一样主题的数据,就是图书借阅者和图书。用这种方式构成的关系在进行修改时，会出现问题。由于一种图书借阅者也许借阅多本书，假如某个图书借阅者的某个字段（如联络电话）出现变更，它所借阅的图书记录（也许多种）也就必须变化，这是不好的。因此数据用两个关系表达更好。目前假如某图书借阅者变化了它的联络电话，只有关系（表）user的对应行需要变化。当然，要想产生一种，显示图书名称及其借阅者联络电话的报表，就需要将这两个表的行结合起来.成果表明，将关系分别存储，在生成报表的时候将它们结合起来，比把它们存储在一种合成的表中更好。user（借书证号，姓名，性别，身份编号，身份证，联络电话，）book（图书编号，图书名称，图书类别，作者，出版社，出版日期，备注，价格，数量)二、元数据数据库是自描述的，这就意味着它自身包括了它的构造的描述，这种构造的描述称作元数据。由于DBMS产品是用来存储和操纵表的，因此大多数产品把元数据以表的形式存储，有时称作系统表.这些系统表存储了数据库中表的状况，指出每一种表中有多少列，那一列是主关键字，每一列的数据类型的描述，它也存储索引、关键字、规则和数据库构造的其他部分。在表中存储元数据不仅对DBMS是有效的,对顾客也是以便的，由于他们可以使用与查询顾客数据同样的查询工具来查询元数据。三、索引第三种类型的数据改善了数据库的性能和可访问性,这种数据常常称作开销数据,尽管有时也采用其他类型的数据构造,如链表,但它重要还是索引。索引可以用来排序和迅速访问数据。下面以库存管理系统中的货品信息表为例来阐明。假定数据在磁盘上是按’货品编号’的递增次序排列的,顾客想打印一种按’货品名称’排序的货品数据报表。为此，所有的数据都需要从源表中提取出来并排序,除非表很小，否则这是一种很费时的过程。或者，可以在‘货品名称’字段上创立一种索引，该索引的条目按照‘货品名称’排序，这样，该索引的条目可以读出来，并用来按次序访问货品信息数据。索引用于迅速访问数据。例如，一种顾客只想访问货品信息表中‘类别’值为‘01'的那些货品。假如没有索引,则必须搜索整个源表；但有了索引之后，可以找到索引条目，并使用它来挑选所有合适的行。索引对排序和查找是有协助的，但要付出代价。货品信息表中的行每次变化时，索引也必须变化，这意味着索引并非随意的，应当在真正需要时保留。四、应用元数据存储在数据库中的第四种数据是应用元数据，它用来存储顾客窗体、报表、查询和其他形式的查询组件。并非所有的DBMS都支持应用组件,支持组件的DBMS也不一定把所有组件的构造作为应用元数据存储在数据库中。然而,大多数现代的DBMS产品存储这种数据作为数据库的一部分.一般来说，数据库开发人员和顾客都不直接访问应用元数据，相反,他们通过DBMS中的工具来处理这些数据。Access中就支持窗体、存储过程等应用元数据。1。2.2数据库管理系统数据库管理系统(DBMS)是指数据库系统中管理数据的软件系统。DBMS是数据库系统的关键构成部分。对数据库的一切操作，包括定义、更新及多种控制，都是通过DBMS进行的。DBMS总是基于某种数据模型,可以把DBMS当作是某种数据模型在计算机系统上的详细实现.根据数据模型的不一样，DBMS可以提成层次型、网状型、关系型、面向对象型等.关系模型。关系模型重要是用二维表格构造体现实体集，用外键表达实体间联络。关系模型是由若干个关系模式构成的集合。关系模式相称于前面提到的记录类型，它的实例称为关系，每个关系实际上是一张二维表格。关系模型和层次、网状模型的最大鉴别是用关键码而不是用指针导航数据，表格简朴顾客易懂，编程时并不波及存储构造,访问技术等细节。关系模型是数学化模型。SQL语言是关系数据库的原则化语言，已得到了广泛的应用.DBMS的特点和功能可以分为三个子系统：设计工具子系统、运行子系统和DBMS引擎.设计子系统有一种以便数据库及其应用创立的工具集。它经典地包括产生表、窗体、查询和报表的工具。DBMS产品还提供编程语言和对编程语言的接口。运行子系统处理用设计子系统开发的应用组件。它所包括的运行处理器用来处理窗体和数据库的数据交互,以及回答查询和打印报表等。DBMS引擎从其他两个组件接受祈求，并把它们翻译成对操作系统的命令，以便读写物理介质上的数据。DBMS引擎还波及事务管理、锁、备份和恢复。1。3库存管理系统当今时代是飞速发展的信息时代，在各行各业中离不开信息处理，这正是计算机被广泛应用于信息处理系统的环境.计算机最大的好处在于运用它可以进行信息管理，使用计算机进行信息控制，不仅提高了工作效率，并且大大的提高了其安全性。尤其对复杂的信息管理，计算机可以充足发挥它的优越性.计算机进行信息管理与信息管理系统的开发亲密有关,系统的开发是系统管理的前提.仓库作为一总货品资源的集散地，货品的种类繁多,包括诸多的信息数据的管理。据调查得知，此前仓库进行信息管理的方式重要是基于文本、表格等纸介质的手工处理,对于货品的出入库状况的记录和核算等往往采用对账本的人工检查，对管理者的管理权限等不受约束，任何人都可查看，这样轻易引起资料外泄.此外，数据信息处理工作量大，轻易出错,由于数据繁多，轻易丢失，且不易查找。总的来说,缺乏系统、规范的信息管理手段。并且，一般的存储状况是记录在账本上的，仓库的工作人员和管理员也只是当时记得比较清晰,时间一长,假如再要进行查询，就得在众多的资料中翻阅查找了,这样导致费时、费力，如要对很长时间此前的货品进行更改就愈加困难了。因此，很有必要建立一种库存管理系统，使货品管理工作规范化，系统化，程序化。提高信息处理的速度和精确性。1。3.1国内外同类管理软件的研究现实状况与发展趋势目前国内外对此类系统的开发与研究也是很有实用性的,基本上能满足各企业的自身特点，来进行库存方面的管理，同步，改类系统又都在不停地深入与发展，来合用更多的企业，一般都能运用于各个企业的库存管理，不过都没有针对大众的广泛应用，只能运用某个企业或单位，这一点尚有待于此后的深入开发与实践。此后此类软件将会向条码库存管理系统发展，现阶段，伴随物流及管理信息化、网络化的发展，应用条码技术进行库存管理、实现仓库作业自动化，将是一种必然的发展趋势，也是需要迫切处理的一种现实问题。伴随信息化技术的不停提高和应用的日渐普及，更多的商品拥有自己的条码，并且，使用条码化工作替代老式作业模式，减少了手工输入，这样不仅提高了作业效率，还能保证资料对的，并减少因人为失误所导致的损失.1、技术应用于库存管理是实现仓库管理自动化的有效途径库存品种多，数量大。因此，要实现收发作业的迅速、精确、高效，仓储管理自动化势在必行。而实现管理自动化的“瓶颈”则是产品信息的采集、输入。老式手工作业方式,在信息采集量加大的情形下,半因信息不能及时的反馈，给收发作业导致一定的困难。运用条码技术，在入库及其包装上加贴条码,配之以仓库信息管理系统进行作业，不仅可提高效率，减少作业强度,也将大大提高产品收发作业精确率（如键盘输入仅为百分之一），进而实现仓库管理的全面自动化。2、技术应用于库存管理对提高仓库作业效率有重要作用将条码技术和仓库管理信息系统结合起来，用于产品收、发、保管等全过程控制管理,不仅可变化信息采集的老式手工作业方式，减少作业强度，还可防止由此导致的多种差错,提高作业效率和科学管库水平.比较发现，信息输入时，条码输入速度是键盘输入的5倍。入库时，一般保管员根据产品上的条码所反应出的册序号、出厂期、生产厂家、单价、封存（保管）期等信息，进行实物点验，同步将条码信息录入到管理信息系统；出库时，保管员根据航材发付单内容，持条码扫描装置进行器材拣选，并完毕信息录入;清库盘点时，保管员可持扫描装备进行数质量等内容查对，并半采集的信息录入管理系统中进行自动盘点，生成清库对帐单等，完毕清库盘点作业.3、技术应用于库存管理是完善产品保障信息网络的重要手段储存产品信息是产品保障信息网络的重要构成部分，是做好产品供应保障工作的基础。产品保障信息网是实现物资储运全过程可视化的前提。目前，有些仓库内部局域网已经建成并投入使用，并与业务主管部门实现了信息沟通,库存保障信息网在平常航材保障工作中实现了信息沟通，库存保障信息网在平常产品保障工作中的作用日趋明显。条码技术在储存管理中的应用,可深入完善系统各仓库之间及各仓库与作业主管部门之间的信息共享和互换功能，最终到达对产品的全程跟踪管理，充足发挥条码技术在整个流通中的作用。同步,在软件系统的研发过程中，将会融入一种EPR的企业管理思想。大量的研究与实践已经充足表明,ERP作为一种现代企业管理的思想和措施,将其大力地推广应用就是有效的促使我国企业管理朝着愈加科学化、合理化和规范化方向发展的一种详细措施和途径。此外，库存管理的信息化和可视化,每个企业将会拥有两个仓库，一种是装满货品的仓库，尚有一种就是管理系统里的数据库，对上万种货品分别编码，使其成为计算机可识别的语言，形象地说，货架上的号码就是货品的地址，从而防止了货品的分拣和提取时的翻箱倒柜式的查找。1。3.2库存管理系统研究背景与意义伴随我国经济的飞速发展，多种类型规模的企业企业迅速崛起,许多从事生产和经营管理的企业均有自己生产和销售的产品，而这些产品都需要储存在仓库中，对于每个企业来说，伴随企业规模的不停扩大,产品数量的急剧增长，所生产产品的种类也会不停地更新与发展，有关产品的多种信息量也会成倍增长.面对庞大的产品信息量,怎样有效地管理库存产品，对这些企业来说是非常重要的，库存管理的重点是销售信息能否及时反馈，从而保证企业运行效益.而库存管理又波及入库、出库的产品、经办人员及客户等方方面面的原因，怎样管理这些信息数据，是一项复杂的系统工程,充足考验着仓库管理员的工作能力，工作量的繁重是可想而知的，因此这就需要由库存管理系统来提高库存管理工作的效率，这对信息的规范管理、科学记录和迅速查询，减少管理方面的工作量，同步对于调动广大员工的工作积极性，提高企业的生产效率，都具有十分重要的现实意义。

第二章 数据库理论基础2。1数据库系统设计一种成功的信息管理系统，是建立在许多条件之上的,而数据库是其中一种非常重要的条件和关键技术。信息管理系统所波及的数据库设计分五个环节：数据库需求分析、概念设计、逻辑设计、物理设计与加载测试.(1）

数据库需求分析的任务是将业务管理单证流化为数据流，划分主题之间的边界，绘制出DFD图，并完毕对应的数据字典。（2）

概念设计的任务是从DFD出发，绘制出本主题的实体－关系图,并列出各个实体与关系的纲要表。（3）

逻辑设计的任务是从E—R图与对应的纲要表出发，确定各个实体及关系的表名属性.（4）

物理设计的任务是确定所有属性的类型、宽度与取值范围，设计出基本表的主键，将所有的表名与字段名英文化（目前诸多软件能支持中文字段，如Access）,实现物理建库，完毕数据库物理设计字典。（5）

加载测试工作贯穿于程序测试工作的全过程，整个录入、修改、查询、处理工作均可视为对数据库的加载测试工作。数据库设计重要是进行数据库的逻辑设计，即将数据按一定的分类、分组系统和逻辑层次组织起来，是面向顾客的。数据库设计时需要综合企业各个部门的存档数据和数据需求，分析各个数据之间的关系,按照DBMS提供的功能和描述工具，设计出规模合适、对的反应数据关系、数据冗余少、存取效率高、能满足多种查询规定的数据模型.数据库设计的环节重要是：（1)

数据库构造定义:目前的数据库管理系统（DBMS）有的是支持联机事务处理CLTP（负责对事务数据进行采集、处理、存储）的操作型DBMS，有的可支持数据仓库、有联机分析处理CLAP（指为支持决策的制定对数据的一种加工操作)功能的大型DBMS，有的数据库是关系型的、有的可支持面向对象数据库。针对选择的DBMS，进行数据库构造定义。（2）

数据表定义：数据表定义指定义数据库中数据表的构造,数据表的逻辑构造包括:属性名称、类型、表达形式、缺省值、校验规则、与否关键字、可否为空等。关系型数据库要尽量按关系规范化规定进行数据库设计，但为使效率高，规范化程度应根据应用环境和条件来决定。数据表设计不仅要满足数据存储的规定,还要增长某些如反应有关信息、操作责任、中间数据的字段或临时数据表。（3）

存储设备和存储空间组织：确定数据的寄存地点、存储途径、存储设备等，备份方案,对多版本怎样保证一致性和数据的完整性。（4）

数据使用权限设置：针对顾客的不一样使用规定,确定数据的顾客使用权限，保证数据安全。(5）

数据字典设计：用数据字典描述数据库的设计,便于维护和修改。2.2SQL语言简介2。2.1SQL基础SQL(StructuredQueryLanguage，构造查询语言）是一种功能强大的数据库语言.SQL一般使用于数据库的通讯。ANSI(美国国标学会）声称，SQL是关系数据库管理系统的原则语言。SQL语句一般用于完毕某些数据库的操作任务，例如在数据库中更新数据，或者从数据库中检索数据.使用SQL的常见关系数据库管理系统有：Oracle、Sybase、MicrosoftSQLServer、Access、Ingres等等。虽然绝大多数的数据库系统使用SQL，不过它们同样有它们自立此外的专有扩展功能用于它们的系统。不过，原则的SQL命令，例如”Select"、"Insert”、”Update"、"Delete”、”Create"和"Drop”常常被用于完毕绝大多数数据库的操作.SQL语言的突出长处就是它的非过程化、统一，并且还是所有关系数据库的公共语言。SQL语言一次处理一种记录，对数据提供自动导航,它容许顾客在高层的数据构造上工作，而部队单个记录进行操作，可操作记录集，所有SQL语句接受集合作为输入，返回集合作为输出.SQL的集合特性容许一条SQL语句的成果作为另一条SQL语句的输入.同步，它不规定顾客指定对数据的寄存措施，这种特性使顾客更易集中精力于要得到的成果；所有SQL语句使用查询优化器，它是RDBMS的一部分，由它决定对指定数据存取的最迅速度的手段,查询优化器懂得存在什么索引，在哪儿使用索引合适,而顾客则从不需要懂得表与否有索引、有什么类型的索引.作为统一的语言，SQL可用于所有顾客的DB活动模型,包括系统管理员、数据库管理员、应用程序员、决策支持系统人员及许多其他类型的终端顾客。2。2。2SQL语句SQL语句概括起来可以分为数据操作语言，数据定义语言和数据控制语言几大组，它们用于对数据库数据的查询，修改和更新，是一种完备的数据处理语言。重要用到的数据操作语言重要是：SELECT:用于数据检索;INSERT：用于增长数据到数据库；UPDATE：用于从数据库中修改现存的数据;DELETE:用于从数据库中删除数据。

第三章 应用系统开发工具3.1VisualBasic简介及实现原理VisualBasic(简称VB）是美国微软企业（Microsoft）于1990年推出的一套完整的Windows系统软件开发工具,可用于开发Windows环境下的各类应用程序，是一种可视化、面向对象、用事件驱动方式的构造化高级程序设计语言和工具，是目前使用最广泛的编程语言之一。至今以升级到了6.0版。VB的重要特点之一是可视性。系统引进了窗体和控件的机制，用于设计应用程序界面。顾客通过在屏幕上生成窗体,在窗体中绘制所需要的控件和按钮,设计菜单和对话框,VB会自动生成对应的代码。VB的另一重要特点是事件驱动.当窗体或控件上发生一种事件时，VB立即把控制权交给程序员。程序员不必紧张怎样判断事件与否已发生,只需要编写一段代码告诉计算机在事件发生后来应当做什么工作就可以了。这样，设计一种Windows应用程序简化为用鼠标在屏幕上点击、拖拽并添加少许的代码就可以完毕了，大大减少了对程序设计的规定,提高了应用程序的开发效率。运用VB的可视性特点，可以便的设计了程序的窗体界面，并在各个窗体中的合适位置绘制所需的每种控件。如要修改窗体或控件的某项属性,只需在对应的窗体或控件的属性窗口修改对应的参数便可到达需要的设计效果。运用VB的事件驱动性特点，只需在窗体或控件上的代码窗口中添加少许的代码，便可到达告诉当在对应的窗体或控件上发生某一事件时，它们在事件发生后应当做什么工作的目的.例如几种窗体上的添加、删除、返回按钮的作用，就是通过在各个对应按钮的代码窗口中输入对应的代码,来到达当在几种按钮上出现单击(Click)事件后，对应按钮实现添加、删除、返回的功能的。3.2数据库组件简介在使用VisualBasic开发数据库应用程序的时候，会常常使用数据库访问控件。这些控件包括:● Data控件；● ADOData控件;● DataList控件/DataCombo控件；● DataGrid控件；● MSChart控件。下面将分别对这些控件的重要功能及使用措施进行简介.3.2。1 Data控件Data控件是VisualBasic中最基本的数据库操作控件。它使用Recordset对象提供对存储在数据库中数据的访问.Data控件容许从一种记录移动到另一种记录，并显示和操纵来自被连接控件的记录的数据。许多其他的数据库操作控件都需要Data控件或类似的数据源控件（例如ADOData控件）.Data控件可以执行大部分数据库访问操作，不过它并不能显示数据库中数据的内容。Data控件一般需要与其他控件结合使用。这些与Data控件结合使用的控件,可以称之为“数据察觉控件”。由于程序员无需编写任何代码,就可以在这些控件中显示目前记录的数据。当Data控件中目前记录发生变化时，数据察觉控件的内容也会随之发生变化。当与Data控件相连接时，DataList、DataCombo、DataGrid和MSHFlexGrid控件都能管理记录集合。所有这些控件都容许一次显示或操作几种记录。内部的Picture、Label、TextBox、CheckBox、Image、OLE、ListBox和ComboBox控件也是数据察觉的，能和由Data控件管理的Recordset对象的某个字段相连接。3.2.2 ADOData控件ADOData控件与内部Data控件以及RemoteData控件（RDC）相似。顾客可以使用ADOData控件迅速地创立一种到数据库的连接。3.2.3 DataList控件/DataCombo控件DataList控件是一种数据绑定列表框，它可以自动地由一种附加数据源中的一种字段充填，并且可选择地更新另一种数据源中一种有关表的一种字段。DataCombo控件的功能与DataList控件完全相似，只不过DataCombo控件是一种组合框。3。2。4 DataGrid控件在许多状况下，需要使用表格形式来显示数据库中的数据。这时就要借助于DaatGrid控件。顾客可以设置DataGrid控件的DataSource属性为一种ADOData控件，从而将ADOData中的数据自动地填充到DataGrid表格中。这个DataGrid控件实际上是一种固定的列集合，每一列的行数都是不确定的。3.2。5 MSChart控件MSChart控件的功能是以图形方式显示数据的图表。这会使枯燥的数据变得愈加生动直观，增长了程序的实用价值。MSChart控件支持一下特性：1、真三维表达；2、支持所有重要的图表类型；3、数据网络组员支持随机数据，数据数组。3。3SQL语言在VB中的应用1。SQL提供的实用函数为实现使用VB程序调用SQL语言访问Access数据库多种记录的目的,我们运用SQL提供的函数。●DavgFunction（求平均值）●DcountFunction（计算满足条件的记录数）●DfirstFunction（返回记录集的第一种记录的某个域值)●DlastFunction（返回记录集的最终一种记录的某个域值）●DlookupFunction(返回记录集中满足待定条件的记录的域值）●DsumFunction（求和计算）●DmaxFunction（求最大值）●DminFunction(求最小值）运用以上的SQL函数可以以便地进行数据库文献记录地查询和记录工作，以Dsum为例，语法如下：Dsum（expr,clomain［,criteria］）例：计算目的港为英国地所有订单地运费总和。假定“Orders"是数据库文献中地一张表格,则x=Dsum(“[Feight］”,”Order”.”［shipcountry]=’UK'")2。运用SQL访问多种记录地措施在进信息查询和记录地过程中，我们往往需要从记录集中根据待定的条件提取其中的一部分记录信息。这种变化基于数据库关系视图的记录集，这里我们简介提取记录信息的有效措施。（1）建立一种新的查询setmydb=OpenDatabase（“c：\DIR1\manage.mdb”）(打开数据库文献c:\DIR1\manage。mdb）setmyquery=mydb.creatQueryDef（“monthquery”)（创立查询名为monthquery的查询)Myquery。SQL="select＊fromOPNRPTwheremid$（year,7，2）=’"&yeartext.text&”'…"(运用查询的SQL属性，建立查询根据,即查询的条件。这里用到了SetectStatement）后来假如需要这样的查询，只需要引用查询名”monthquery”即可。需要阐明的两点是：①使用前先定义DimmydbASDatabase及myqueryASquerydef。②查询"monthquery"没有使用Data控件，也就不直接显示信息。(2）怎样设置Data控件的Recordsource属性设置Datasource属性的命令为：Data.Recordsource=”SetectVss_code，voyage，Sum(weight）ASWeight20frommonthquerywherectn_size=’20'groupbyVss_code，Voyage”在这个命令中字段名Vss_code为船名代码,Voyage为航次,ctn_size为集装箱号,weight为集装箱重量。计算机通过增长了条件的monthquery查询构成了新的记录集。AS为关键字表达，并定义了别名。通过这一种措施定义的记录集可以使用move和Find措施逐条记录的进行操作.3.4Access简述Access是关系数据库开发工具,1992年，MicrosoftAccess作为第一种面向Windows操作平台的桌面数据库管理系统而诞生，它不仅充足体现了面向对象的思想，提供可视化的编程手段,并且充足运用了Windows操作平台的优越性，采用与Windows完全一致的界面风格，使界面非常友好。在Access中，顾客不需要编写复杂的程序就可以建立一种完整的数据库应用系统，是一种经典的开放式数据库系统，它可以和Windows下的其他应用程序共享数据库资源.数据库能汇集多种信息以供查询、存储和检索。Access的长处在于它能使用数据表达图或自定义窗体搜集信息。数据表达图提供了一种类似于Excel的电子表格，可以使数据库一目了然.此外,Access容许创立自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文献把数据库文献置于网络文献服务器,与其他网络顾客共享数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一.如上所述，Access作为关系数据库开发具有了许多长处，可以在一种数据包中同步拥有桌面数据库的便利和关系数据库的强大功能。

库存管理系统设计分析4。1需求分析本套应用程序名称为“库存管理系统”，重要用于仓库货品信息的管理，系统包括仓库管理、入库、出库、某些记录查询和报表等几部分构成。库存管理系统需满足仓库管理员及工作人员的需求，他们具有登陆应用系统的权限，因此需要对工作人员的登陆本模块进行更多的考虑，设计不一样顾客的操作权限和登陆措施.对于一种仓库来说,最大的功能就是存储货品，因此仓库管理就是对货品信息，仓库信息，短线货品及超储货品的管理，顾客可以根据实际状况对多种货品信息进行分类管理，包括添加，删除更新数据库等。当然，仓库中货品入库也是常有的事,入库管理操作就是对于货品入库状况的管理，顾客可以以便地输入某些货品的信息。有了货品的入库,自然也就有货品的出库，这部分提供的功能与入库操作流程差不多，有所区别的只是对某些出库货品的管理，也很以便数据的输入。仓库货品的信息量大,数据安全性和保密性规定高。本系统实现对货品信息的管理和总体的记录等，仓库信息,供货单位和经办人员信息的查看及维护。仓库管理人员可以浏览、查询、添加、删除等货品的基本信息以及记录等，并可以对某些基本的信息生成报表形式，并打印输出的功能.报表是一种数据库中最重要的功能之一，有了报表才能清晰地懂得货品的出入库状况，在数据报表功能中包括出库报表，库存报表及经办人员报表等某些基本信息的打印，以便简洁。本系统基本涵盖了库存管理的重要需求，具有完善细致的功能、友好的顾客界面、强大的数据处理功能和完备的安全机制；随心所欲的查询和所见即所得的打印功能，并全面支持分析和决策的功能。●系统特色：1。设置系统顾客登陆功能，即时对系统数据进行安全设置与保护。2.友好的顾客界面,业务操作简朴，进入系统即能使用.3.成熟先进的技术和系统构架，采用先进的数据库访问方式，数据更安全，性能更稳定。4.强大的数据处理能力和开放的数据接口，选用品有大型数据库安全机制的数据库系统，提供多种级别的数据保护和权限控制方式，保证数据的安全可靠。5.系统每种操作都可以通过菜单来进行。操作快捷、以便。易懂易会。系统集输入、维护、查询、记录和多种处理为一体，信息导入导出以便共享.库存管理系统仓库管理库存管理系统仓库管理入库管理出库管理盘存管理综合管理附项分类历史数据管理打印、查询系统货品信息管理货品库存管理短线货品管理超储货品管理出库登记管理货品出库年度记录收货单位年度收货金额记录盘存录入货品出入库期间汇总表仓库信息管理供货单位管理收货单位管理经办人员管理 基本模块与功能:1.系统包括顾客管理，密码管理,关闭系统，以及数据的备份与恢复，可以根据需要对整个数据库进行备份，以保证数据的安全性。协助：本系统的协助信息，包括应用程序的版本信息；2.库存管理货品信息管理：对仓库里的货品进行登记；货品库存管理:管理仓库的库存状况；短线货品管理:对仓库里短线的货品进行登记,以便及时采购补货;超储货品管理：对仓库里超储的货品进行登记,控制库存量，减少进货;3.入库管理入库登记管理：能对货品的入库登记，删除，更改等；入库期间记录:货品入库期间年度的记录；供货单位期间供货金额记录：对货品供应的金额进行记录;4.出库管理对货品出库期间的年度记录，出库登记，及收获单位金额记录等；5.盘存管理对盘存货品信息的盘存录入;6.综合管理可根据同一货品的出入库状况,对库存状况的汇总；7.附项管理对供货单位状况，经办人员，收货单位状况,仓库信息进行登记管理,可进行添加，删除等操作；8。历史数据管理对历史库存，历史出库，历史出库状况进行管理；9。打印与查询可根据输入的条件，对货品的入库信息,库存信息等进行简朴查询和组合查询.据流程图：登陆库存管理系统登陆库存管理系统验证顾客信息系统主窗体仓库管理入库管理出库管理盘存管理综合管理附项分类历史数据管理打印、查询系统货品入库单经办人员报表货品出库单数据备份备份输出库存汇总图4－1库存管理系统数据流程图密码错误汇总计算货品信息管理数据流程图：货品登记货品登记基本信息录入货品基本信息管理货品调配汇总出库货品信息管理入库货品信息管理货品其他信息管理图4－2货品信息管理数据流程图4。3数据库设计本库存管理系统是应用在单机系统上的,因此只需建立起一种数据库，在此数据库基础上建立起表格，现将部分数据构造表描述如下：货品信息表字段名数据类型字段长度与否为空货品编码文本5货品名称文本10类别文本8型号文本4单位文本2仓库编码文本5寄存仓库文本12入库计划单价货币出库计划单价货币原始库存数字长整型默认货位文本5警戒底线库存数字长整型警戒高线库存数字长整型表1 货品信息表表1 货品信息表入库登记表字段名数据类型字段长度与否为空入库日期日期/时间入库单号文本10货品编码文本5数量数字长整型进货价货币总额货币已付货款货币供货单位编码文本5供货单位文本20经办人编码文本5经办人文本8增值税率数字单精度型备注备注表2 入库登记表表2 入库登记表出库登记表字段名数据类型字段长度与否为空出库日期日期/时间出库单号文本10货品编码文本5货品名称文本10数量数字长整型单价货币出货价货币总额货币已收获款货币收货单位编码文本5收货单位文本20经办人编码文本5经办人文本8增值税率数字单精度型备注备注表3 货品出库表表3 货品出库表仓库信息表字段名数据类型字段长度与否为空仓库编号文本5仓库名称文本12存货种类文本2存货价值货币表4 仓库信息表表4 仓库信息表供货单位信息表(收货单位表）字段名数据类型字段长度与否为空单位编号文本5单位名称文本50单位地址文本50电话文本15联络人文本8表5 供货单位信息表表5 供货单位信息表经办人员表字段名数据类型字段长度与否为空编号文本5姓名文本8家庭住址文本50办公电话文本15家庭电话文本15表6 经办人员表表6 经办人员表顾客表字段名数据类型字段长度与否为空UserID文本10userPWD文本6表7 顾客表表7 顾客表此外,我们还建立了几张查询表,用以寄存部分用于计算的记录信息，以便查询。●入库登记登记表 入库登记_合计●货品入库年度登记表 入库登记_n●供货单位年度供货金额登记表 入库登记_w●库存汇总表 库存 ●出库登记登记表 出库登记_合计●货品出库年度登记表 出库登记_h●收货单位年度收货金额登记表 出库登记_d入库登记_合计表与出库登记_合计分别是以入库登记表和出库登记表为基础的，因此此处不再描述；库存汇总表重要由出库表和入库表建立关系获得。入库登记_n字段名数据类型字段长度与否为空货品名称文本10入库日期日期/时间年度数量数字长整型表8入库登记_n表8入库登记_n入库登记_w字段名数据类型字段长度与否为空供货单位文本50入库日期日期/时间年度供货总额数字长整型表9入库登记_w表9入库登记_w库存汇总字段名数据类型字段长度与否为空货品编码文本5入库日期日期/时间货品名称文本10数量(入库)数字长整型进货价货币数量（出库）数字长整型库存数量数字长整型表10库存汇总表表10库存汇总表出库登记_h字段名数据类型字段长度与否为空货品名称文本10出库日期日期/时间年度数量数字长整型表11出库登记_h表11出库登记_h出库登记_d字段名数据类型字段长度与否为空收货单位文本50出库日期日期/时间年度金额总额数字长整型表12出库登记_d表12出库登记_d第五章 应用程序设计5.1程序构造本应用程序由33个窗体构成，重要的分别是:主窗体，欢迎界面，登陆窗体,入库窗体，出库窗体，库存汇总，打印及查询等窗体构成。通过运行程序首先进入欢迎界面和登陆窗体，通过输入密码，验证身份后进入主窗体,在主窗体上有10个菜单项，分别对应各自的功能模块窗体,包括系统，库存管理，入库管理，出库管理，盘存管理,综合管理,附项管理，历史数据管理,打印和查询。需要哪个功能的时候就点哪个菜单，相对应的窗体会自动弹出。5.2程序源代码程序实现的部分代码如下：●公共模块Publicdate1AsStringPublicdate2AsStringPublicgUserNameAsString'保留顾客名'添加执行SQL语句的函数PublicFunctiontransactSQL(ByValsqlAsString）AsADODB.RecordsetDimconAsADODB。ConnectionDimrsAsADODB。RecordsetDimstrConnectionAsStringDimstrArray(）AsStringSetcon=NewADODB。Connection'创立连接Setrs=NewADODB。Recordset'创立记录集OnErrorGoToTransactSQL_ErrorstrConnection="Provider=Microsoft。jet.oledb。4。0;DataSource=E:\库存管理\kucun.mdb"strArray=Split(sql）con.OpenstrConnection’打开连接IfStrComp(UCase＄(strArray(0）)，"select",vbTextCompare)=0Thenrs。OpenTrim＄（sql）,con，adOpenKeyset，adLockOptimisticSettransactSQL=rs’返回记录集iflag=1Elsecon.Executesql'执行命令iflag=1EndIfTransactSQL_Exit:Setrs=NothingSetcon=NothingExitFunctionTransactSQL_Error：MsgBox"查询错误："&Err.Descriptioniflag=2ResumeTransactSQL_ExitEndFunction●主窗体的程序代码图5－1主窗体界面图5－1主窗体界面PrivateSuba1_Click（)Form1.ShowEndSubPrivateSuba2_Click（)DimfAddAsNewfrmAddUserfAdd。ShowfAdd.ZOrder0EndSubPrivateSuba3_Click（)DimfChangePWDAsNewfrmChangePWDfChangePWD.ShowEndSubPrivateSuba4_Click(）frmAbout。ShowEndSubPrivateSuba5_Click()'调入数据备份Loadmain_sjbfmain_sjbf。Showmain。Enabled=FalseEndSubPrivateSuba6_Click(）'调入数据恢复Loadmain_sjhfmain_sjhf.Showmain.HideEndSubPrivateSubb1_Click()frm货品信息.ShowEndSubPrivateSubb12_Click(）sql="select＊from货品信息orderby货品编码”frmProInfo.createList(sql)frmProInfo。ShowEndSubPrivateSubb2_Click(）frm货品库存。ShowEndSubPrivateSubB3_Click（)frm超储货品。ShowEndSubPrivateSubb4_Click()frm短线货品。ShowEndSubPrivateSubc1_Click（）frm入库登记.ShowEndSubPrivateSubc2_Click（)frm货品入库年度记录.ShowEndSubPrivateSubc3_Click()frm供货单位供货分类金额记录。ShowEndSubPrivateSubc4_Click(）frm供货单位年度供货金额记录。ShowEndSubPrivateSubCommand1_Click(）date1=Text1.Text&”/"＆Text3.Text＆"/"＆Text2。Textdate2=Text6。Text&"/"&Text4.Text＆"/”&Text5。TextText7。Text=date1EndSubPrivateSubd1_Click(）frm出库登记.ShowEndSubPrivateSubd2_Click（）frm货品出库年度记录。ShowEndSubPrivateSubd3_Click（）frm收货单位期间收货记录。ShowEndSubPrivateSubd4_Click(）frm收货单位年度收货金额记录。ShowEndSubPrivateSube1_Click()frm盘存录入.ShowEndSubPrivateSube2_Click(）frm盘存表.ShowEndSubPrivateSubf1_Click（）frm货品出入汇总表.ShowEndSubPrivateSubg1_Click(）frm经办人员.ShowEndSubPrivateSubg2_Click(）frm供货单位。ShowEndSubPrivateSubg3_Click（)frm仓库信息。ShowEndSubPrivateSubg5_Click(）Form6。ShowEndSubPrivateSubh1_Click(）frm历史库存.ShowEndSubPrivateSubh2_Click()frm历史入库。ShowEndSubPrivateSubh3_Click()frm历史出库.ShowEndSubPrivateSubi1_Click（)DataReport1.ShowEndSubPrivateSubi2_Click()DataReport2.ShowEndSubPrivateSubi3_Click（）DataReport3.ShowEndSubPrivateSubj1_Click（）Form2。ShowEndSubPrivateSubj2_Click()Form3。ShowEndSubPrivateSubj3_Click()Form4.ShowEndSubPrivateSubj4_Click（）Form5.ShowEndSubPrivateSubToolbar1_ButtonClick（ByValButtonAsComctlLib。Button)SelectCaseButton。KeyCaseIs=”rk”’调入入库登记c1_ClickCaseIs="ck"’调入出库登记d1_ClickCaseIs=”kchz”'调入库存汇总f1_ClickCaseIs="zhcx"’调入组合查询j4_ClickCaseIs="sjbf”’调入数据备份a5_ClickEndSelectEndSubPrivateSubx_Click（）EndEndSub●登陆模块的实现PrivateSubcmdLogin_Click(）denlu_name=txtUserName.Textdenlu_pass=txtPassword。TextDimmycnAsNewADODB.ConnectionDimmyrsAsNewADODB.RecordsetSetmyrs=NewADODB。Recordsetmycn.Open"Provider=Microsoft.Jet。OLEDB。4.0;DataSource=kucun。mdb;"myrs.Open”SELECT*FROM[顾客］whereuserID='"+denlu_name+"'；”，mycn，adOpenKeyset,adLockOptimisticIfmyrs。BOF=TrueAndmyrs。EOF=TrueThenMsgBox”查无此人"，,"登陆信息"ElseIfmyrs(”userPWD”）=denlu_passThen’’''’'’''’'’'’’'’''’''’'’''’'’''’'’’’’'’’’MsgBox”身份对的"，,"登陆信息"main。ShowUnloadMe''’'''’'’’'''’'’'’’’’’’’’''’'''’’'’’’'’’'’’’'’'''’’ElseMsgBox”密码不对的"，，"登陆信息"EndIfEndIfEndSub●添加顾客模块的实现OptionExplicitPrivateSubCommand1_Click(）DimsqlAsStringDimrsAsADODB.RecordsetIfTrim（UserName。Text)=””Then'判断顾客名称与否为空MsgBox”请输入顾客名称!"，vbOKOnly+vbExclamation,"警告"ExitSubUserName.SetFocusElsesql="select＊from顾客whereUserID='”＆UserName＆”’"Setrs=transactSQL(sql）Ifrs.EOF=FalseThen’判断与否已经存在顾客MsgBox"这个顾客已经存在!请重新输入顾客名称！",vbOKOnly+vbExclamation,"警告”UserName。SetFocusUserName。Text="”PassWord.Text=""ConfirmPWD。Text=”"ExitSubElseIfTrim(PassWord.Text)<>Trim(ConfirmPWD。Text）Then’判断两次密码与否相似MsgBox"两次输入的密码不一致，请重新输入密码!",vbOKOnly+vbExclamation，”警告”PassWord。Text=""ConfirmPWD。Text="”PassWord.SetFocusExitSubElseIfTrim（PassWord。Text)=”"Then'判断密码与否为空MsgBox"密码不能为空！”，vbOKOnly+vbExclamation，"警告”PassWord.Text=""ConfirmPWD=”"PassWord.SetFocusElse'添加顾客sql=”insertinto顾客(UserID,UserPWD)values('"&UserNamesql=sql&"','"&PassWord＆”’）”transactSQL（sql）MsgBox"添加成功!"，vbOKOnly+vbExclamation,”添加成果”'重新设置初始化为空UserName。Text=""PassWord.Text="”ConfirmPWD.Text=”"UserName.SetFocusEndIfEndIfEndIfEndSubPrivateSubCommand2_Click（）UnloadMeEndSubPrivateSubForm_Load()UserName.Text="”PassWord。Text=””ConfirmPWD。Text="”EndSub●修改顾客密码的实现OptionExplicitPublicgUserNameAsStringPrivateSubCommand1_Click（)DimsqlAsStringDimrsAsADODB。RecordsetIfTrim（OldPWD。Text)=””Then'判断与否输入旧密码MsgBox"请输入旧密码!",vbOKOnly+vbExclamation，"警告”OldPWD.SetFocusExitSubElseIfTrim(NewPWD.Text）=""Then’判断与否输入新密码MsgBox”请输入新密码！”，vbOKOnly+vbExclamation,"警告”NewPWD.SetFocusExitSubElseIfTrim(NewPWD.Text)〈>Trim(ConfirmPWD。Text)Then’判断两次密码与否相似MsgBox"两次密码不一样!”，vbOKOnly+vbExclamation，"警告"NewPWD.Text=””ConfirmPWD。Text=”"NewPWD。SetFocusElse'修改密码sql=”update顾客setUserPWD=’"&NewPWD&”'whereUserID=’”sql=sql&gUserName&"’"transactSQL（sql)MsgBox”密码已经修改!”,vbOKOnly+vbExclamation，”修改成果”UnloadMeEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()OldPWD.Text="”NewPWD.Text=”"ConfirmPWD.Text=""EndSub●数据备份模块的实现PrivateSubForm_Activate(）'赋值给text1Text1.Text="A"EndSubPrivateSubCommand1_Click（)’确认数据备份Me。MousePointer=11YesNo=MsgBox（"准备好了吗?”，vbNo+vbQuestion)IfYesNo=vbNoThenExitSubEndIfOnErrorGoToerrpromptMe。MousePointer=11MkDir(Text1.Text＆”:\数据备份"）FileCopyApp.Path&”\kucun.mdb”,Text1。Text&":\数据备份\kucun”&Date＆”.mdb"Me。MousePointer=0MsgBox”数据已备份完毕。"errprompt：Me.MousePointer=0SelectCaseErr。NumberCase57MsgBox”磁盘已满！”，vbCriticalCase70MsgBox"磁盘写保护！"，vbCriticalEndSelectEndSubPrivateSubCommand2_Click（)Loadmainmain.Showmain。Enabled=TrueUnloadMeEndSubPrivateSubForm_Unload（CancelAsInteger）main。Enabled=TrueEndSub●数据恢复模块的实现PrivateSubForm_Unload(CancelAsInteger)main.Enabled=TrueEndSubPrivateSubDir1_Change(）File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1。DriveEndSubPrivateSubFile1_Click（）Text1。Text=Dir1.Path＆"\”＆File1.FileNameEndSubPrivateSubCommand1_Click（）'恢复指定途径下的数据库IfText1。Text=""ThenMsgBox”请选择要恢复的数据!”ElseMe。MousePointer=11FileCopyDir1。Path&”\”&File1.FileName,App。Path&”\kucun.mdb”Me.MousePointer=0MsgBox"数据已恢复完毕!"EndIfEndSubPrivateSubCommand2_Click()main.ShowUnloadMeEndSub对于货品信息的浏览,重要采用了MSFlexGrid控件,它是一种Active控件，该控件提供了表格式界面，处理数据相称灵活，具有只读数据绑定、对表格数据进行显示和操作、数据分组排序、Data控件赋值、文本自动换行等功能.但它无法对数据进行动态输入,只能提供浏览功能。图5－2货品信息界面图5－2货品信息界面详细代码如下：OptionExplicitPrivateSubCommand1_Click（)rsGrid.RefreshEndSubPrivateSubForm_Load（)DimsqlAsStringsql="select＊from货品信息orderby货品编码"createList（sql)EndSubPublicSubcreateList（sqlAsString）DimrsAsNewADODB。RecordsetDimiAsIntegerDimrsGirdAsMSFlexGrid'设置表头rsGrid.TextMatrix(0,0)="货品编码"rsGrid.TextMatrix（0,1)="货品名称”rsGrid.TextMatrix(0，2）="类别"rsGrid。TextMatrix（0，3)="型号”rsGrid.TextMatrix（0,4）=”单位”rsGrid.TextMatrix（0,5）=”仓库编码”rsGrid.TextMatrix（0，6)=”寄存仓库”rsGrid。TextMatrix（0，7)="入库计划单价"rsGrid.TextMatrix（0,8)=”出库计划单价"rsGrid.TextMatrix（0，9）="原始库存”rsGrid.TextMatrix（0,10)=”默认货位”rsGrid.TextMatrix（0,11）=”警戒底线库存”rsGrid.TextMatrix(0，12)=”警戒高线库存"Fori=0To12’设置所有表格对齐方式rsGrid。ColAlignment（i）=4NextiFori=0To11’设置每列宽度rsGrid.ColWidth（i)=1400NextirsGrid。ColWidth(12）=Setrs=transactSQL(sql）Ifrs。EOF=FalseThen'显示信息内容rsGrid。Rows=1WhileNotrs.EOFrsGrid。Rows=rsGrid。Rows+1rsGrid.TextMatrix（rsGrid.Rows-1,0）=rs