货物管理系统毕业论文

《货物管理系统毕业论文》由会员分享，可在线阅读，更多相关《货物管理系统毕业论文（55页珍藏版）》请在装配图网上搜索。

1、. . . . 前 言货物管理是一般工业，商业企业生产管理环节中重要的一面，需要对货物基本信息管理，货物调配等信息进行完整的监控。货物入库首先需要登记货物的基本信息，包括货物的种类，名称，型号，单位、单价等，然后登记货物入库信息，包括货物基本信息，入库地点，入库人，经办人，数量等，出库货物需要登记出库信息，包括货物基本信息，出库地点，出库人，经办人，数量等，根据货物的入库，出库过程的综合，得到各种货物的余额信息，方便进行后续工作。因此货物管理系统需要记录货物流通的全过程。第一章 引 言随着经济的发展，市场的国际一体化，市场的多变性、竞争的残酷性、企业运作的艰难性，使企业主们越来越体会到办好一个

2、企业的艰辛。对于一个大的企业，可能遇到的问题是设备旧、负担过重、体制僵化、管理混乱，其产品在市场上的竞争力每况愈下。ERP的出现，就是针对解决这一类问题而来的。ERP是什么？值得单位花那么多的钱、时间、精力来实施。其实ERP就是一套思想，一套以企业系统成本最低、利润最高为目标的，适应新经济运作特征的流程化的管理思想，它能使企业耳聪目明，虑事周密、运作流畅，决策科学。它的实体就是一套满足以上诸多条件的软件。因此，开发出一个功能完善的库存管理系统，对于提高仓库部门效率、降低企业的成本、增强企业竞争力，都有非常重要的意义。本文正是从这点出发，使用Power Builder 8.0作为前端开发语言，以

3、SQL Server 2000作为后台数据库，开发了一个简单的库存管理子系统。在论文中，介绍了库存管理系统的特点、重要性，并结合企业的实际工作对这一项目的设计和技术实现、编程方法做了详细的讲解。1.1 课题背景随着经济全球化竞争的加剧，信息流和物流的高度融合，对企业资源的要求也越来越高，无论是传统的MRP(Material Requirement Planning)、MRPII(Manufacturing Resource Planning)、还是目前流行的ERP(Enterprise Resource Planning)和TEP(Total Enterprise Planning),库存管理

4、都是非常重要的基础部分。因为对于企业的决策层来讲，如果库存居高不下，仓库管理无序令他们头痛的话，那么由此引起的企业资源浪费过大、产品制造成本过高、企业运作不顺畅从而导致的企业竞争力和可持续发展能力降低，则是他们更为担忧的事情。因此合理的对仓库进行管理一直是企业关注的热点。库存管理也是管理阶层和理论研究者经常谈到的一个话题，其重要性是不言而喻的。随着库存管理理论的进一步发展和信息技术的进步，如何在信息技术充分发展的今天更好的进行库存管理是我们的重要任务之一1.2 库存管理研究的目的和意义随着我国改革开放的不断深入以与我国加入WTO时间还不是很长，各类企事业都面临着前所未有的机遇和挑战。这就要求企

5、业在日趋激烈的市场竞争中，与时、准确、全面的了解市场信息并根据企业的具体实际，迅速的做出回应。如根据仓储情况调整供应、进货等等。同时，在当前市场经济的推动下，传统的计划经济模式已经被“一切围着市场转，一切来源于市场，一切服务于市场”的模式所取代。信息交流的速度使采购、销售成本有了较大的下降空间，这就给属于这个环节的库存管理带来了巨大的挑战。1.2.1企业信息化建设的需要信息技术的发展既给企业带来了机遇，也带来了巨大的压力。在知识经济的时代，各个企业无论大小、强弱，发展的机遇越来越倾向于均等。企业面对海量的信息，如何为本企业所利用，如何构建自身的信息网络资源，把企业的资源管理围延伸到企业之外的整

6、个供应链，已经成了亟待考虑的问题。近年来，全球信息技术加速发展，世界各国信息化形势突飞猛进，人类正在进入知识经济时代。全社会广泛研究和讨论知识经济，大大丰富和扩展了信息化的涵，为信息产业和信息化的进一步发展奠定了理论和实践基础。当前，信息化带来的技术创新、商务模式转变和新的资本市场，极大的推动了社会生产力的发展审时度势，党的十五届五中全会不失时机地提出了“以信息化带动工业化，发挥后发优势，实现社会深产力跨越式发展”的宏伟目标，那么，什么才是企业的信息化建设呢?确切的讲，企业的信息化建设是指采用先进成熟的管理思想和方法，依靠现代电子信息技术，对企业生产经营中的管理流程进行全方位分析与改进，重新整

7、合资源，提高整合资源，提高效率和效益，增强企业竞争力的过程。他不是一般意义上的新技术运用和革新，而是更高层次上的全新的管理革命。面对中国加入WTO的时间还不是很长，企业将不得不面对世界围的竞争，企业如何抓住大好的市场机遇？企业如何应对严峻的生存与发展的挑战？这些都是每一个有胆识的企业家要思考、关注、解决的重要的课题，企业信息化建设将是解决这些问题的有效途径。因此，不管从世界围的竞争来看，还是从企业自身的发展来看，信息化建设必然使企业管理上不可避免的一次革命和飞跃。推进信息化，有利于加快我国社会主义市场经济体制的发展和完善，有利于加快我国产业结构的调整和优化升级，有利于加快提高国民经济的运行质量

8、。为此，我国显然不能走发达国家“先工业化，后信息化”的老路，而应该充分发挥后发优势，走工业化与信息化相结合的发展道路，在较高的起点上实现国民经济的“跨越式”发展，进行企业的信息化建设。1.2.2库存管理的意义成本竞争是现代竞争的有效手段，对于经营者来说，增加销售或降低成本都可以扩大盈利，而增加盈利的最好的方法之一，就是良好的库存管理，也就是现代商人所说的存取之道。由于库存资产在各企业的资产总额中所占的比例极为乐观，因此，管理适当与否对企业经营的利益改善有很大的影响。一方面，库存过多，易于陷入资金周转不灵的局面；一方面，若库存过少，不能满足实际需要，势必要增加采购次数或生产批次，加大了采购或生产

9、成本，违反经济原则，尽量降低库存水平是企业管理的重要目标，降低库存已经成为“第三利润源泉”。由此可见，不断提高库存管理水平，进行适时而恰当的库存管理，已经成为左右企业兴衰存亡的关键之一。自从有了生产，就有了库存物品的存在。库存对市场的发展、企业的正常运作与发展起了非常重要的意义。1.3 库存管理在国外的发展现状1.3.1存贮论的形成与发展状况20世纪40年代初期，西方经济学家通过对库存物料随时间推移而被使用和消耗的规律研究，提出了订货点的方法和理论，并将其应用到企业的库存计划管理中。20世纪60年代中期，美国IBM公司的管理专家约瑟夫奥利佛博士首先提出了独立需求和相关需求的概念，将企业的物料分

10、成独立需求和相关需求物料两种类型，由此形成了基本MRP。这种理论和方法与传统的库存理论和方法有着明显的不同。其最主要的特点是：在传统的基础上引入了时间分段和反映产品结构的物料清单（Bill Of Materials）,较好的解决了库存管理和生产控制中的难题，即按时按量的到所需要的物料。以加强物料的计划与控制，最大限度地降低库存量、减少资金占用和满足企业生产为目标，基于按需采购方式的企业生产与库存管理方法。接下来是制造资源计划（ MRPII， Manufacturing Resources Planning ）是一种20世纪70年代末期的，以企业资源优化配置，确保企业连续、均衡的进行生产，实现信

11、息流、物流与资金流的有机集成和提高企业整体水平为目标，以计划与控制为主线，面向企业产、供、销、财的现代企业管理思想和方法。1.3.2库存管理的发展现状最后，就是企业资源计划（ ERP，Enterprise Resources Planning ）是一种20世纪90年代初期的，以市场和客户需求为导向，以实行企业外资源优化配置，消除生产经营过程中一切无效的劳动和资源，实现信息流、物流、资金流、价值流和业务流的有机集成和提高客户满意度为目标，以计划与控制为主线，以网络和信息技术为平台，集客户、市场、销售、采购、计划、生产、财务、质量、服务、信息集成和业务流程重组（ BPR，Business Proc

12、ess Reengineering ）等功能为一体，面向供应链管理（ SCM，Supply Chain Management ）的现代企业管理思想和方法。传统上对库存管理的通常理解是指对物料的进、出、存的业务管理，但是这种理解在现代的库存管理中已经不全面了。APICS词汇中对库存的定义是：“以支持生产、维护、操作和客户为目的而存贮的各种物料，包括原材料和在制品、维修件和生产消耗、成品和备件等”。因此，库存管理应该包括物料的存贮、收发、使用与计划与控制等相关的各个方面。第二章 系统设计2.1 系统目标设计本软件作为物资供应处信息管理系统的一个组成部分，负责仓库的日常进出和结算处理，为库管员提供一

13、个功能全面，使用方便和准确快速的仓库管理系统，以代替传统的手工作业，同时利用先进的信息技术为用户提供一些更为方便实用的功能，从而提高企业管理的效率为目的。2.2 开发设计思想仓库信息管理的特点是信息处理量比较大。所管理的数据进出频率高，因此在管理上实现起来有一定的困难。在手工管理的时代或者数据库管理系统设计不科学的话就会造成管理数据混乱，数据库相关数据的没有很好的关联，造成数据的不一致性时有发生。在本系统的设计过程中，为了克服以上困难，满足计算机管理的需要，我们采取了下面的一些原则。本系统开发设计思想： 尽量采用单位现有的软硬件环境，与先进的管理系统开发方案，从而达到充分利用单位现有资源，提高

14、系统开发水平和应用效果的目的。 系统应符合单位仓库信息管理的规定，满足对单位对货仓库料日常管理的需要，并达到操作过程中的直观、方便、实用、安全等要求。 系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于未参与开发的技术维护人员补充、维护。2.3 系统开发和运行环境：开发工具：中文版Visual Basic6.0。ACCESS。运行环境： Windows9X或者Windows2000，Windowxpvb6.0。2.4 系统功能分析系统开发的总体任务是实现仓库信息的系统化，规化，自动化。系统功能分析是在系统开发的总体任务的基础上完成的，仓库管理系统需要完成主要的功能有： 有关仓库

15、基本信息的输入，包括仓库编号，仓库名称，规格型号，种类和计量单位等。 仓库基本信息的查询报表。 仓库基本信息的修改。 入库仓库信息的输入。 入库仓库信息的修改。 入库仓库信息的查询报表。 出库仓库信息的输入。 出库仓库信息的查询报表。 出库仓库信息的修改。 仓库余额信息的查询报表。 仓库余额信息的浏览。2.5 系统模块设计对上述各项功能进行集中，分块，按照结构化程序设计的要求，得到如图所示的系统功能模块图： 仓库管理信息系统 物 物 物 物 系 资 资 资 资 统 余 出 入 基 管 额 库 库 本 理 信 信 信 信 息 息 息 息 查 管 管 管 询 理 理 理 物物 出 出 出 入 入

16、入 物 物 物 密 用 资 资 库 库 库 库 库 库 资 资 资 码 户余 余 物 物 物 物 物 物 基 基 基 管 管额 额 资 资 资 资 资 资 本 本 本 理 理信 信 信 信 信 信 信 信 信 信 信息 息 息 息 息 息 息 息 息 息 息管 查 修 查 添 查 修 添 查 修 添理 询 改 询 加 询 改 加 询 改 加2-1 系统功能模块图整个系统分为5个模块：仓库基本信息管理模块，仓库入库信息管理模块，仓库出库信息管理模块，仓库余额信息的管理模块，系统模块。每个模块下有对应的子模块。第三章 数据库设计设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以与将来

17、可能增加的需求，数据库设计一般包括如下的几个步骤： 数据库需求分析 数据库概念结构设计 数据库逻辑结构设计3.1 数据库需求分析用户的具体要求体现在各种信息的提供，保存，更新，查询等方面。这就要求数据库结构能充分满足各种信息的输入和输出，收集基本数据，数据结构，数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。仔细分析调查有关仓库管理信息需求的基础上，将得到所图所示的本系统处理的数据流程： 仓库登记 基本信息录入 仓库基本信息管理 入库仓库信息管理 仓库调配 出库仓库信息管理 仓库余额信息管理3-1 系统处理的数据流程图针对一般仓库信息管理系统的需求，通过对仓库调配工作过程的容

18、和数据流程分析，设计如下的所示的数据项和数据结构： 仓库基本信息，包括的数据项有：仓库编号、仓库名称、规格型号、类别、计量单位等。 入库仓库信息，包括的数据项有：仓库编号、仓库名称、规格型号、类别、计量单位、数量、单价、金额、入库时间、经办人、保管人、仓库、备注等。 出库仓库信息，包括的数据项有：仓库编号、仓库名称、规格型号、类别、计量单位、数量、单价、金额、领用时间、领用人、经办人、仓库、备注等。 仓库余额信息，包括的数据项有：仓库编号、仓库名称、规格型号、类别、计量单位、数量、单价、金额、仓库等。3.2 数据库概念结构设计得到上面的数据项和数据结构后，就可以设计出能够满足用户需求的各种实体

19、以与它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。本系统设计规划的实体有：仓库基本信息实体，仓库入库信息实体，仓库出库信息实体，仓库余额信息实体。各个实体具体的描述E-R图如下：1：仓库基本信息实体E-R图： 仓库基本信息实体 仓库编号 记录单位 仓库名称 仓库规格3-2仓库基本信息实体E-R图2：仓库入库信息实体E-R图： 仓库入库信息实体 仓库编号 保管员 入库时间 经办人3-3仓库入库信息实体E-R图3：仓库出库信息实体E-R图： 仓库出库信息实体 仓库编号 领用人 出库时间 经办人3-4仓库出库信息实体E-R图4：仓库基本信息

20、实体E-R图： 仓库余额信息实体 仓库编号 仓库 数量 金额3-5 仓库基本信息实体E-R图5：实体之间的关系的E-R图： 仓库 仓库登记 仓库基本信息 仓库入库信息 仓库调配 仓库出库信息 仓库余额信息3-6实体之间的关系的E-R图3.3 数据库逻辑结构设计现在将上面的数据库概念结构转化为ACCESS数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。在上面的实体以与实体之间关系的基础上，形成数据库中的表格以与各个表格之间的关系。仓库信息管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。1：仓库基本信息表material表31仓库基本信息表mater

21、ia列名数据类型可否为空说明wzidvarcharNOT NULL仓库编号wznamevarcharNOT NULL仓库名称wzpecvarcharNOT NULL规格型号wzkindvarcharNULL类别wzunitvarcharNULL计量单位2：仓库入库信息表msave 表32仓库入库信息表msave列名数据类型可否为空说明RknovarcharNOT NULL入库编号rkidvarcharNOT NULL入库仓库编号rknamevarcharNOT NULL入库仓库名称rkspecvarcharNULL规格型rkkindvarcharNULL类别RkunitvarcharNOT N

22、ULL单位rkaccountvarcharNOT NULL数量rkpricevarcharNOT NULL单价rkvaluevarcharNULL金额rkdatevarcharNULL入库时间Rkdeal_personvarcharNOT NULL经办人Rksave_peasonvarcharNOT NULL保管员rkbasevarcharNULL仓库rkmemovarcharNULL备注3：仓库出库信息表muse 表33仓库出库信息表muse列名数据类型可否为空说明lynovarcharNOT NULL入库编号lyidvarcharNOT NULL入库仓库编号lynamevarcharNOT

23、 NULL仓库名称lyspecvarcharNULL规格型号lykindvarcharNULL类别lyunitvarcharNOT NULL单位lyaccountvarcharNOT NULL数量lypricevarcharNOT NULL单价lyvaluevarcharNULL金额lydatevarcharNULL入库时间lyuser_personvarcharNOT NULL经办人lydeal_peasonvarcharNOT NULL保管员lybasevarcharNULL仓库lymemovarcharNULL备注4：仓库余额信息表msurplus表34仓库余额信息表msurplus列名

24、数据类型可否为空说明yeidvarcharNOT NULL仓库编号yenamevarcharNOT NULL仓库名称yepecvarcharNOT NULL规格型号yekindvarcharNULL类别yeunitvarcharNOT NULL单位yeaccountvarcharNOT NULL数量yevaluevarcharNULL金额yebasevarcharNULL仓库yememovarcharNULL备注3.4 数据库结构的实现在需求分析、概念结构设计的基础上得到数据库的逻辑结构设计之后，我们就可以在Visual Basic6.0中实现该逻辑结构。实现方法和步骤如下：以英文版本为例：通

25、过菜单栏：Add-InsVisual Data Manager点击出现VisData界面，点击菜单FileNewMicrosoft AccessVision 7.0 MDB弹出保存数据库文件的存放位置和数据库的文件名的对话框，命名为wzgl.mdb保存到当前系统存放的文件下。这时出现Database Windows设计界面，鼠标右键选择新建表。所设计的表的字段就是逻辑结构表中的列名。第四章 仓库管理信息系统主窗体的创建有关数据库结构的所有后台工作已经完成。现在将通过仓库管理信息系统中各个功能模块的实现，讲解如何使用Visual Basic 来编写数据库系统的客户端程序。4.1 创建工程项目Ma

26、teral MIS打开Visual Basic后，单击File|NEW project菜单在工程模块中选择StandardEXE,VisualBasic将自动产生一个Form窗体，属性都是缺省设置。这里我们删除这个窗体，单击FileSaveProject菜单，将这个工程项目命名为Material MIS。4.2 创建仓库管理信息系统的主窗体这个项目我们使用多文档界面，单击工具栏中的ADD MDI Form按钮，产生一个窗体。在这个窗体上添加所需的控件，窗体和控件的属性设置见表。表41窗体和控件的属性设置表控件属性属性取值Frmmain(form)namefrmmaincaption仓库管理信息

27、系统startuppositioncentersreenwindowstatemaximizedSbstatusbar(stausbar)nameSbstausbarPanels(1)styleSbrtextPanels(2)styleSbrdatePanels(3)styleSbrtime创建好的窗体如图所示。4-1物资管理信息系统窗体图在主窗体中加入状态栏控件，可以实时反映系统中的各个状态的变化。状态栏控件需要在通常的属性窗口中设置一般属性，还需要在其特有的弹出式菜单中进行设置。选中状态栏控件，单击鼠标右键，选中Property菜单，然后设置属性。面板1用来显示各种文本信息，面板2用来显示

28、当前日期，面板3用来显示当前时间。4.3 创建主窗体的菜单在主窗体中，单击鼠标右键，选择弹出式菜单中的MenuEditor，创建如图所示的菜单结构：4-2主窗体的菜单图4.4 创建公用模块在VisualBasic中可以用公用模块来存放整个工程项目公用的函数，过程和全局变量等。这样可以提高代码的效率。在项目资源管理器中为项目添加一个Module，保存为Modulel bas。下面就可以开始添加需要的代码了。由于系统中各个功能模块都将频繁使用数据库中的各个数据，因此需要一个公共的数据操作函数，用以执行各种SQL语句。添加函数ExeuteSQL，代码如下：Public Function Execut

29、eSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.Recordsetexecutes SQL and returns Recordset Dimn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Setn = New ADODB.Connection n.Open ConnectString If InStr(INSERT,DEL

30、ETE,UPDATE, _ UCase$(sTokens(0) Then n.Execute SQL MsgString = sTokens(0) & _ query successful Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL),n, _ adOpenKeyset, _ adLockOptimistic rst.MoveLast get RecordCount Set ExecuteSQL = rst MsgString = 查询到 & rst.RecordCount & _ 条记录 End IfExecuteSQL_Exi

31、t: Set rst = Nothing Setn = Nothing Exit FunctionExecuteSQL_Error: MsgString = 查询错误: & _ Err.Description Resume ExecuteSQL_ExitEnd Function在ExecuteSQL函数中使用了 Connect String函数，这个用来连接数据库，代码如下：Public Function ConnectString() _ As Stringreturns a DB ConnectString ConnectString = FileDSN=material.dsn;UID=

32、sa;PWD=End Function在录入有关信息时，需要回车来进入下一个文本框，这样对软件使用者非常方便。在所有的功能模块都需要这个函数，所有将它放在公用模块中，代码如下：Public Sub EnterToTab(Keyasc As Integer) If Keyasc = 13 Then SendKeys TAB End IfEnd SubKeyasc用来保存当前按键，SendKeys函数用来指定的按键。一旦按下回车键，将返回Tab键，下一个控件自动获得输入焦点。添加全局变量，用来记录各个窗体的读写状态，代码如下：Public fMainForm As frmMainPublic fl

33、agMedit As BooleanPublic flagIedit As BooleanPublic flagLedit As BooleanPublic flagOedit As BooleanPublic gintMmode As IntegerPublic gintImode As IntegerPublic gintLmode As IntegerPublic gintOmode As IntegergintMmode变量用来记录是添加状态还是修改状态，赋值1为添加，赋值2为修改。FlajMedit变量用来标示是否进入修改的窗体。由于仓库管理信息系统启动后，需要对用户进行判断。如果登

34、录者是授权用户，将进入系统，否则将停止程序的执行。这个判断需要在系统运行的最初进行，因此将代码放在公用模块中。4.5 仓库基本信息模块的创建仓库基本信息管理模块主要实现如下功能： 添加仓库基本信息。 修改仓库基本信息。 删除仓库基本信息。 查询仓库基本信息。1：添加仓库基本信息窗体的创建选择“仓库基本信息管理添加仓库基本信息”菜单，将出现如图所示的窗体。4-3仓库物资信息窗体图在窗体上放置多个文本框，用来输入仓库基本信息；两个按钮用来确定是否添加仓库信息；多个标签用来提示文本框中需要输入的容。这些控件的属性见下表：表42窗体控件属性表控件属性属性取值Frmmater1(Form)Namefrm

35、sinfoCaption仓库信息MDIChildTrueTxtitem(0) Txtitem(4)NameTxtitem(0) Txtitem(4)Label1Caption学号Label2CaptionLabel3Caption性别Label4Caption出生日期Label5Caption班号在载入窗体时，程序首先判断所处状态，代码如下：Private Sub Form_Load() Dim intCount As Integer Dim MsgText As String If gintMmode = 1 Then Me.Caption = Me.Caption & 添加 ElseIf

36、gintMmode = 2 Then Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then With mrc For intCount = 0 To 4 txtItem(intCount) = .Fields(intCount) Next intCount End With txtItem(0).Enabled = False End If Me.Caption = Me.Caption & 修改 End If mblChange = FalseEnd Sub载入窗体时，将首先通过变量gintMmode判断是添加还是修改。如

37、果是添加状态，文本框将清除容，窗体有提示信息；如果是修改状态，将显示当前的记录。用户输入容完毕后，单击cmdSave按钮将触发Click事件，代码详情见附录源代码清单：程序首先对是否输入容进行判断，然后进行格式判断。在仓库管理中，所有仓库都有唯一的编号，并且不同型号的仓库对应不同的编号。程序将判断是否有重复ID和重复容地的记录，然后添加数据到数据库。最后根据状态来显示相应的信息：如果是添加状态，将提示添加成功，然后重新显示并清空所有的文本框，以便继续添加记录；如果处于修改状态，将提示修改成功，然后更新所有记录的列表。当文本框获得焦点时将触发下面的事件：自动选中输入的容，便于修改。Private

38、 Sub txtItem_GotFocus(Index As Integer) txtItem(Index).SelStart = 0 txtItem(Index).SelLength = Len(txtItem(Index)End Sub单击按钮cmdedit取消添加仓库信息，代码如下：Private Sub cmdExit_Click() If mblChange And cmdSave.Enabled Then If MsgBox(保存当前记录的变化吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then 保存 Call cmdSave_Click

39、End If End If Unload MeEnd Sub2：修改仓库基本信息窗体的创建选择“仓库基本信息管理修改仓库基本信息”菜单，将出现如图所示的窗体，窗体中放置一个表格控件。4-4仓库基本信息修改图载入窗体时，触发窗体的Load事件，显示当前数据库中所有的记录，代码如下：调用showTitle函数，显示表头，代码如下调用showData函数，显示记录列表，代码如下：Private Sub Form_Load() ShowTitle ShowData flagMedit = TrueEnd Sub调用showtitle函数，显示表头，代码如下：显示Grid表头Private Sub Sh

40、owTitle() Dim i As Integer With msgList .Cols = 6 .TextMatrix(0, 1) = 仓库编号 .TextMatrix(0, 2) = 仓库名称 .TextMatrix(0, 3) = 规格型号 .TextMatrix(0, 4) = 类别 .TextMatrix(0, 5) = 计量单位 固定表头 .FixedRows = 1 设置各列的对齐方式 For i = 0 To 5 .ColAlignment(i) = 0 Next i 表头项居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .R

41、owSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 设置单元大小 .ColWidth(0) = 300 .ColWidth(1) = 1000 .ColWidth(2) = 2000 .ColWidth(3) = 2000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .Row = 1 End WithEnd Sub调用showdata函数，显示记录列表，代码如下：显示Grid的容Private Sub ShowData() Dim i As Integer Set mrc = ExecuteSQL(txtSQL,

42、 MsgText) With msgList .Rows = 1 Do While Not mrc.EOF .Rows = .Rows + 1 For i = 1 To mrc.Fields.Count Select Case mrc.Fields(i - 1).Type Case adDBDate .TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & , yyyy-mm-dd) Case Else .TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & End Select Next i mrc.

43、MoveNextLoop End With mrc.CloseEnd Sub选择记录，然后单击鼠标右键，将触发MouseUp事件，并出现弹出式菜单。这个事件发生在松开鼠标的时候，代码如下：Private Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 右键弹出 If Button = 2 And Shift = 0 Then PopupMenu fMainForm.menuMaterial End IfEnd Sub当窗口变化时，需要调整标签和表格的位置，使标签始终处于窗体的最

44、上方，而表格始终处于标签的下方。窗体的大小变化时将触发Resize事件，代码如下：Private Sub Form_Resize() If Me.WindowState vbMinimized And fMainForm.WindowState vbMinimized Then 边界处理 If Me.ScaleHeight 10 * lblTitle.Height Then Exit Sub End If If Me.ScaleWidth 1 Then If MsgBox(真的要删除这条文件记录么？, vbOKCancel + vbExclamation, 警告) = vbOK Then in

45、tCount = frmMater.msgList.Row txtSQL = delete from material where wzid= & Trim(frmMater.msgList.TextMatrix(intCount, 1) & Set mrc = ExecuteSQL(txtSQL, MsgText) Unload frmMater frmMater.txtSQL = select * from material frmMater.Show End If End If End IfEnd Sub4：查询司机信息窗体的创建选择“仓库基本信息管理查询仓库基本信息”菜单，将出现如图所

46、示的窗体。在这里可以按照各种方式以与它们的组合进行查询。4-5 仓库基本信息查询图查询仓库基本信息窗体包括的控件与其属性设置见表。表43仓库基本信息窗体控件与其属性设置表控件属性属性取值Frmmater(Form)NamefrmsinfoCaption仓库登记查询MDIChildTrueTxtitem(0) Txtitem(1)NameTxtitem(0) Txtitem(1)Check1caption仓库名称Cmdokcaption仓库名称NameCmdokCmdexitcaption取消NameCmdexit首先选择查询方式，然后输入查询容。单击“确定”按钮，触发Click事件进行查询，代

47、码如如下：Private Sub cmdOK_Click() Dim txtSQL As String Dim sQSql As String If chkItem(0).Value = vbChecked Then sQSql = wzname = & Trim(txtItem(0) & ) & End If If chkItem(1).Value = vbChecked Then If Trim(sQSql & ) = Then sQSql = wzspec = & Trim(txtItem(1) & ) & Else sQSql = sQSql & and wzspec = & Trim

48、(txtItem(1) & ) & End If End If Me.Hide If Trim(sQSql) = Then MsgBox 请设置查询方式！, vbOKOnly + vbExclamation, 警告 Exit Sub Else If flagMedit Then Unload frmMater End If frmMater.txtSQL = select * from material where & sQSql frmMater.Show End If End Sub程序首先判断查询方式，如果没有设置查询方式将显示提示信息；然后对查询容进行组合，组成SQL语句，进行查询。查

49、询到数据集以后，需要正常显示在表格控件中。运用循环将每一条记录的每一个字段显示出来。单击“取消”按钮将退出程序。4.6 入库信息管理模块的创建入库信息管理模块主要实现如下功能： 添加入库信息。 修改入库信息。 删除入库信息。 查询入库信息。1：添加仓库入库信息窗体的创建选择“仓库入库信息管理添加仓库入库信息”菜单，将出现如图所示的窗体。4-6仓库入库信息管理图窗体中各个控件属性这里就不一一介绍。将各种文本框放在窗体的框架中，组成“仓库信息”，“入库信息”两部分。载入窗体时，仓库信息中将自动添加已有仓库信息，代码加在窗体的Load事件中，源代码见附录：入库信息的记录号由程序随机产生，这样每条记录都有唯一的编号，产生随机编号的代码如下：Private Function GetRkno() As String GetRkno = Format(Now, yymmddhhmmss) Randomize GetR