教学案例14-大学生毕业论文.doc

教学案例14 大学生毕业论文

———————————————————————————————— 作者：
———————————————————————————————— 日期：

0

个人收集整理 勿做商业用途
黄冈职业技术学院

毕业设计

设计题目 库存管理系统

学生姓名 XXX

学 号 XXXXXXXXXX

专业班级 计算机应用(三）班

指导教师 XXX

2006年 03 月 21 日

摘 要

随着现代工业的发展，计算机信息管理系统越来越受到企业重视。本文主要分析了库存管理系统的一些基本功能和组成情况,包括系统的需求分析、系统结构，功能模块划分以及数据库模式分析等,重点对应用程序的实际开发实现作了介绍。达到了数据的一致性和安全性，且应用程序功能完备，符合了库存管理系统作为典型的信息管理系统（MIS）的要求。同时简单介绍了Visual Basic编程环境和Access数据库管理系统的功能特点，库存管理系统是企业物流管理中不可或缺的一部分.

关键词：库存管理，数据库，信息管理，VB

Abstract

With the development of modern industry， the information management system of the computer is being paid attention to by enterprises。 This text has analyzed some basic functions of the administrative system of the stock and makes up the situation mainly， including the systematic demand is analyzed, systematic structure， the function module divides and the data base mode is analyzed etc。， have realized doing the introduction to the actual development of the application program especially. Having reached the consistency and security of the data， and the application program function is complete， have accorded with the administrative system of the stock as the request for the typical information management system （MIS). Introduced the function characteristics of Visual Basic programming environment and Access data base management system briefly at the same time， the administrative system of the stock is an indispensable part in enterprise’s material flow management。文档为个人收集整理，来源于网络本文为互联网收集，请勿用作商业用途

Keywords： stock management， database, information management, VB

目 录

第1章 绪论 1
1.1 管理信息系统的概述 1
1。2 数据库应用系统开发简介 1
1。2.1 数据库 2
1。2.2 数据库管理系统 2
1.3 库存管理系统 2
1。3.1 国内外同类管理软件的研究现状与发展趋势 3
1.3.2 库存管理系统研究背景与意义 3
第2章 数据库理论基础 4
2.1 数据库系统设计 4
2.2 SQL语言介绍 4
2.2。1 SQL基础 4
2.2。2 SQL语句 4
第3章 应用系统开发工具 6
3。1 Visual Basic简介及实现原理 6
3.2 数据库组件介绍 6
3。3 SQL语言在VB中的应用 6
3.4 Access 2000简述 7
第4章 库存管理系统设计分析 8
4.1 需求分析 8
4。2 模块划分 9
4.3 数据库设计 11
第5章 应用程序设计 15
5。1 程序结构 15
5。2 程序源代码 15
第6章 设计总结 24
致 谢 25
参考文献 26

第1章 绪论
库存管理系统 本研究受“‘计算机软件项目教学模式研究’课题组”资助
是一个企事业单位不可缺少的一部分,它的内容对于企业的决策者和管理者来说都是至关重要的，因此，库存管理系统应该能够为用户提供充足的信息和快捷的查询手段，但一直以来人们使用传统的人工方式管理库存，这种管理方式存在着许多缺点，诸如效率低，保密性差等,而且时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高，计算机科学不断发展,其强大的功能已经被人们深刻认识,它已经进入了人类社会的各个领域并发挥着越来越重要的作用.
作为计算机应用的一部分，使用计算机对产品库存信息进行管理，具有着人工管理无法比拟的优点,它检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等,可减少更多的人力物力，这些都能够极大地提高货品库存的管理效率，也是企业库存管理科学化、正规化，与世界接轨的重要条件.因此，开发一个库存管理系统是很有必要的，具有其特有的技术意义和管理意义。

1.1 管理信息系统的概述
管理信息系统（简称MIS）是在管理科学、系统科学、计算机科学等的基础上发展起来的综合性边缘科学。在21世纪信息高速发展的时代中,管理信息系统具有很重要的作用，它的预测和辅助决策的功能，即利用现代管理的决策和支持。
管理信息系统是一个由人、机（计算机)组成的能进行管理信息的收集、传递、存储、加工、维护和使用的系统。它能观测企业或组织的各种运动情况，利用过去的数据预测未来；从全局出发辅助决策；利用信息控制企业或组织行为，帮助其实现长远的规划目标。简言之,管理信息系统是一个以计算机为工具，具有数据处理、预测、控制和辅助决策功能的信息系统。
管理信息系统是一个人机系统，同时它又是一个一体化集成系统。管理信息系统是信息系统的一个子系统，它以计算机技术、通讯技术和软件技术为技术基础，同时将现代管理理论、现代管理方法及各级管理人员融为一体，最终为某个组织整体的管理与决策服务，是由人和计算机组成的能进行管理信息的收集、传递、存储、加工、维护和使用的系统。
管理信息系统的基本结构可以概括为四大部件,即信息源、信息处理器、信息用户和信息管理者。因此，一个成功的管理信息系统应该具有可靠的硬件、实用的软件、强有力的现代化管理水平。具体讲,管理信息系统的三大支柱是:计算机网络、数据库和现代化的管理,这三打支柱称为管理信息系统的扩展部件。
1.2 数据库应用系统开发简介
在数据库应用系统开发之前，对开发数据库的基本概念应当了解，对数据库的结构、开发数据库应用程序的步骤、开发体系及方法都应当有相当清晰的了解和认识。
数据库应用系统开发的目标是建立一个满足用户长期需求的产品。开发的主要过程为:理解用户的需求，然后,把它们转变为有效的数据库设计.把设计转变为实际的数据库,并且这些数据库带有功能完备、高效能的应用。
数据库技术在计算机软件邻域研究中一直是非常重要的主题，产生于60年代,30多年来数据库技术得到了迅速发展，并已形成较为完整的理论体系和一大批实用系统。并且，近年来，随着World Wide Web(WWW)的猛增及Internet技术的迅速发展，使得数据库技术之时成为最热门技术之一。
1.2.1 数据库
数据库由DBMS（数据库管理系统)处理，DBMS则由开发人员和用户通过应用程序直接或间接地使用。它主要包括四个要素：用户数据、元数据、索引和应用元数据。
………
Access 2000中就支持窗体、存储过程等应用元数据。
1.2.2 数据库管理系统
数据库管理系统（DBMS）是指数据库系统中管理数据的软件系统.DBMS是数据库系统的核心组成部分.对数据库的一切操作，包括定义、更新及各种控制,都是通过DBMS进行的。DBMS总是基于某种数据模型，可以把DBMS看成是某种数据模型在计算机系统上的具体实现。根据数据模型的不同,DBMS可以分成层次型、网状型、关系型、面向对象型等。
关系模型.关系模型主要是用二维表格结构表达实体集，用外键表示实体间联系。关系模型是由若干个关系模式组成的集合.关系模式相当于前面提到的记录类型，它的实例称为关系，每个关系实际上是一张二维表格.
关系模型和层次、网状模型的最大判别是用关键码而不是用指针导航数据，表格简单用户易懂，编程时并不涉及存储结构，访问技术等细节。关系模型是数学化模型。SQL语言是关系数据库的标准化语言,已得到了广泛的应用。
DBMS的特点和功能可以分为三个子系统:设计工具子系统、运行子系统和DBMS引擎。
设计子系统有一个方便数据库及其应用创建的工具集。它典型地包含产生表、窗体、查询和报表的工具.DBMS产品还提供编程语言和对编程语言的接口。
运行子系统处理用设计子系统开发的应用组件。它所包含的运行处理器用来处理窗体和数据库的数据交互，以及回答查询和打印报表等。
DBMS引擎从其他两个组件接受请求,并把它们翻译成对操作系统的命令,以便读写物理介质上的数据.DBMS引擎还涉及事务管理、锁、备份和恢复。
1.3 库存管理系统
当今时代是飞速发展的信息时代，在各行各业中离不开信息处理,这正是计算机被广泛应用于信息处理系统的环境。计算机最大的好处在于利用它能够进行信息管理，使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对复杂的信息管理，计算机能够充分发挥它的优越性.计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。
………
1.3.1 国内外同类管理软件的研究现状与发展趋势
现在国内外对此类系统的开发与研究也是很有实用性的，基本上能满足各企业的自身特点,来进行库存方面的管理，同时,改类系统又都在不断地深入与发展，来适用更多的企业，一般都能运用于各个企业的库存管理，但是都没有针对大众的广泛应用，只能运用某个企业或单位，这一点还有待于今后的进一步开发与实践。
………
另外,库存管理的信息化和可视化,每个企业将会拥有两个仓库，一个是装满货物的仓库，还有一个就是管理系统里的数据库,对上万种货物分别编码,使其成为计算机可识别的语言,形象地说，货架上的号码就是货物的地址，从而避免了货物的分拣和提取时的翻箱倒柜式的查找。
1.3.2 库存管理系统研究背景与意义
随着我国经济的飞速发展,各种类型规模的公司企业迅速崛起,许多从事生产和经营管理的企业都有自己生产和销售的产品,而这些产品都需要储存在仓库中,对于每个企业来说，随着企业规模的不断扩大，产品数量的急剧增加,所生产产品的种类也会不断地更新与发展，有关产品的各种信息量也会成倍增长。面对庞大的产品信息量，如何有效地管理库存产品,对这些企业来说是非常重要的，库存管理的重点是销售信息能否及时反馈,从而确保企业运行效益.而库存管理又涉及入库、出库的产品、经办人员及客户等方方面面的因素，如何管理这些信息数据，是一项复杂的系统工程，充分考验着仓库管理员的工作能力，工作量的繁重是可想而知的,所以这就需要由库存管理系统来提高库存管理工作的效率，这对信息的规范管理、科学统计和快速查询，减少管理方面的工作量,同时对于调动广大员工的工作积极性，提高企业的生产效率,都具有十分重要的现实意义。
第2章 数据库理论基础
2.1 数据库系统设计
一个成功的信息管理系统，是建立在许多条件之上的，而数据库是其中一个非常重要的条件和关键技术。信息管理系统所涉及的数据库设计分五个步骤：数据库需求分析、概念设计、逻辑设计、物理设计与加载测试。
………
2.2 SQL Structured Query Language，结构查询语言
语言介绍
2.2.1 SQL基础
SQL是一个功能强大的数据库语言.SQL通常使用于数据库的通讯。ANSI(美国国家标准学会)声称，SQL是关系数据库管理系统的标准语言。SQL语句通常用于完成一些数据库的操作任务，比如在数据库中更新数据,或者从数据库中检索数据。使用SQL的常见关系数据库管理系统有：Oracle、 Sybase、 Microsoft SQL Server、 Access、 Ingres等等.虽然绝大多数的数据库系统使用SQL,但是它们同样有它们自立另外的专有扩展功能用于它们的系统.但是,标准的SQL命令,比如”Select”、 ”Insert”、 ”Update"、 ”Delete”、 "Create”和 "Drop”常常被用于完成绝大多数数据库的操作。
SQL语言的突出优点就是它的非过程化、统一，而且还是所有关系数据库的公共语言。SQL语言一次处理一个记录，对数据提供自动导航,它允许用户在高层的数据结构上工作，而部队单个记录进行操作，可操作记录集，所有SQL语句接受集合作为输入,返回集合作为输出。SQL的集合特性允许一条SQL语句的结果作为另一条SQL语句的输入。同时，它不要求用户指定对数据的存放方法，这种特性使用户更易集中精力于要得到的结果;所有SQL语句使用查询优化器，它是RDBMS的一部分，由它决定对指定数据存取的最快速度的手段,查询优化器知道存在什么索引，在哪儿使用索引合适，而用户则从不需要知道表是否有索引、有什么类型的索引。作为统一的语言，SQL可用于所有用户的DB活动模型，包括系统管理员、数据库管理员、 应用程序员、决策支持系统人员及许多其它类型的终端用户。
2.2.2 SQL语句
SQL语句概括起来可以分为数据操作语言，数据定义语言和数据控制语言几大组，它们用于对数据库数据的查询，修改和更新，是一种完备的数据处理语言.主要用到的数据操作语言主要是：
SELECT:用于数据检索;
INSERT:用于增加数据到数据库；
UPDATE：用于从数据库中修改现存的数据；
DELETE：用于从数据库中删除数据。
第3章 应用系统开发工具
3.1 Visual Basic简介及实现原理
Visual Basic（简称VB）是美国微软公司（Microsoft)于1990年推出的一套完整的Windows系统软件开发工具，可用于开发Windows环境下的各类应用程序，是一种可视化、面向对象、用事件驱动方式的结构化高级程序设计语言和工具，是目前使用最广泛的编程语言之一。至今以升级到了6。0版。
VB的重要特点之一是可视性。系统引进了窗体和控件的机制，用于设计应用程序界面。用户通过在屏幕上生成窗体，在窗体中绘制所需要的控件和按钮，设计菜单和对话框，VB会自动生成相应的代码。
VB的另一重要特点是事件驱动.当窗体或控件上发生一个事件时，VB立即把控制权交给程序员。程序员不必担心如何判断事件是否已发生,只需要编写一段代码告诉计算机在事件发生以后应该做什么工作就可以了.这样，设计一个Windows应用程序简化为用鼠标在屏幕上点击、拖拽并添加少量的代码就可以完成了，大大降低了对程序设计的要求，提高了应用程序的开发效率。
利用VB的可视性特点,可方便的设计了程序的窗体界面，并在各个窗体中的合适位置绘制所需的每种控件.如要修改窗体或控件的某项属性,只需在相应的窗体或控件的属性窗口修改相应的参数便可达到需要的设计效果.
利用VB的事件驱动性特点，只需在窗体或控件上的代码窗口中添加少量的代码，便可达到告诉当在相应的窗体或控件上发生某一事件时，它们在事件发生后应该做什么工作的目的。例如几个窗体上的添加、删除、返回按钮的作用，就是通过在各个相应按钮的代码窗口中输入相应的代码，来达到当在几个按钮上出现单击(Click）事件后，相应按钮实现添加、删除、返回的功能的。
3.2 数据库组件介绍
在使用Visual Basic开发数据库应用程序的时候,会经常使用数据库访问控件.这些控件包括：
………
3.3 SQL语言在VB中的应用
1。SQL提供的实用函数
为实现使用VB程序调用SQL语言访问Access数据库多个记录的目的,我们利用SQL提供的函数。
●Davg Function（求平均值）
●Dcount Function（计算满足条件的记录数）
●Dfirst Function（返回记录集的第一个记录的某个域值）
●Dlast Function（返回记录集的最后一个记录的某个域值）
●Dlookup Function(返回记录集中满足待定条件的记录的域值）
●Dsum Function（求和计算)
●Dmax Function（求最大值）
●Dmin Function（求最小值）
利用以上的SQL函数能够方便地进行数据库文件记录地查询和统计工作，以Dsum为例,语法如下：
………
通过这一个方法定义的记录集可以使用move和Find方法逐条记录的进行操作。

3.4 Access 2000简述
Access2000 是关系数据库开发工具，1992年，Microsoft Access作为第一个面向Windows操作平台的桌面数据库管理系统而诞生，它不但充分体现了面向对象的思想,提供可视化的编程手段,而且充分利用了Windows操作平台的优越性,采用与Windows完全一致的界面风格，使界面非常友好。在Access中，用户不需要编写复杂的程序就可以建立一个完整的数据库应用系统,是一个典型的开放式数据库系统，它可以和Windows下的其他应用程序共享数据库资源.
数据库能汇集各种信息以供查询、存储和检索.Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然.另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一.如上所述,Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。
第4章 库存管理系统设计分析
4.1 需求分析
本套应用程序名称为“库存管理系统"，主要用于仓库货品信息的管理，系统包括仓库管理、入库、出库、一些统计查询和报表等几部分组成。
库存管理系统需满足仓库管理员及工作人员的需求，他们具有登陆应用系统的权限，所以需要对工作人员的登陆本模块进行更多的考虑,设计不同用户的操作权限和登陆方法。
对于一个仓库来说，最大的功能就是存储货品,所以仓库管理就是对货品信息，仓库信息，短线货品及超储货品的管理，用户可以根据实际情况对各种货品信息进行分类管理，包括添加,删除更新数据库等。
当然，仓库中货品入库也是常有的事，入库管理操作就是对于货品入库情况的管理，用户可以方便地输入一些货品的信息。
有了货品的入库,自然也就有货品的出库，这部分提供的功能与入库操作流程差不多,有所区别的只是对一些出库货品的管理，也很方便数据的输入.
仓库货品的信息量大,数据安全性和保密性要求高。本系统实现对货品信息的管理和总体的统计等,仓库信息,供货单位和经办人员信息的查看及维护。仓库管理人员可以浏览、查询、添加、删除等货品的基本信息以及统计等，并可以对一些基本的信息生成报表形式，并打印输出的功能。
报表是一个数据库中最重要的功能之一，有了报表才能清楚地知道货品的出入库情况，在数据报表功能中包括出库报表，库存报表及经办人员报表等一些基本信息的打印，方便简洁。
本系统基本涵盖了库存管理的主要需求,具有完善细致的功能、友好的用户界面、强大的数据处理功能和完备的安全机制；随心所欲的查询和所见即所得的打印功能，并全面支持分析和决策的功能。
系统特色：
1、设置系统用户登陆功能，即时对系统数据进行安全设置与保护。
2、友好的用户界面，业务操作简单,进入系统即能使用。
3、成熟先进的技术和系统构架，采用先进的数据库访问方式,数据更安全，性能更稳定.
4、强大的数据处理能力和开放的数据接口,选用具有大型数据库安全机制的数据库系统，提供各种级别的数据保护和权限控制方式，确保数据的安全可靠。
5、系统每种操作都可以通过菜单来进行.操作快捷、方便。易懂易会.系统集输入、维护、查询、统计和各种处理为一体,信息导入导出方便共享。

库存管理系统
仓库管理
入库管理
出库管理
盘存管理
综合管理
附项分类
历史数据管理
打印、查询
系统
货品信息管理
货品库存管理
短线货品管理
超储货品管理
出库登记管理
货品出库年度统计
收货单位年度收货金额统计
盘存录入
货品出入库期间汇总表
仓库信息管理
供货单位管理
收货单位管理
经办人员管理
4.2 模块划分

图 Error! No text of specified style in document.1库存管理系统流程图
基本模块与功能,如图 Error! No text of specified style in document.1所示：
1。系统
包括用户管理，密码管理，关闭系统，以及数据的备份与恢复，可以根据需要对整个数据库进行备份，以确保数据的安全性。
帮助：本系统的帮助信息,包括应用程序的版本信息；
2.库存管理
货品信息管理：对仓库里的货品进行登记;
货品库存管理：管理仓库的库存情况；
短线货品管理：对仓库里短线的货品进行登记，以便及时采购补货；
超储货品管理：对仓库里超储的货品进行登记,控制库存量,减少进货;
3。入库管理
入库登记管理：能对货品的入库登记，删除，更改等；
入库期间统计：货品入库期间年度的统计；
供货单位期间供货金额统计：对货品供应的金额进行统计；
4。出库管理
对货品出库期间的年度统计，出库登记,及收获单位金额统计等；
5。盘存管理
对盘存货品信息的盘存录入；
6。综合管理
可根据同一货品的出入库情况，对库存情况的汇总；
7.附项管理
对供货单位情况，经办人员，收货单位情况，仓库信息进行登记管理，可进行添加,删除等操作；
8.历史数据管理
对历史库存，历史出库，历史出库情况进行管理；
9。打印与查询
可根据输入的条件，对货品的入库信息，库存信息等进行简单查询和组合查询。

库存管理系统数据流程图，如图 42所示：
登陆库存管理系统
验证用户信息
系统主窗体
仓库管理
入库管理
出库管理
盘存管理
综合管理
附项分类
历史数据管理
打印、查询
系统
货品入库单
经办人员报表
货品出库单
数据备份
备份输出
库存汇总

密码错误

汇总计算

图 Error! No text of specified style in document.2库存管理系统数据流程图
货品信息管理数据流程图，如图 4Error! Bookmark not defined.所示：

货品登记

基本信息录入

货品基本信息管理

出库货品信息管理
货品调配汇总

入库货品信息管理

货品其他信息管理

图 Error! No text of specified style in document.Error! Bookmark not defined.货品信息管理数据流程图
4.3 数据库设计
本库存管理系统是应用在单机系统上的，所以只需建立起一个数据库，在此数据库基础上建立起表格，现将部分数据结构表描述如下：
货品信息表：
表 1货品信息表
字段名
数据类型
字段长度
是否为空
货品编码
文本
5

货品名称
文本
10

类别
文本
8

型号
文本
4

单位
文本
2

仓库编码
文本
5

存放仓库
文本
12

入库计划单价
货币

出库计划单价
货币

原始库存
数字
长整型

默认货位
文本
5

警戒底线库存
数字
长整型

警戒高线库存
数字
长整型

入库登记表
表 Error! Bookmark not defined.入库登记表
字段名
数据类型
字段长度
是否为空
入库日期
日期/时间

入库单号
文本
10

货物编码
文本
5

数量
数字
长整型

进货价
货币

总额
货币

已付货款
货币

供货单位编码
文本
5

供货单位
文本
20

经办人编码
文本
5

经办人
文本
8

增值税率
数字
单精度型

备注
备注

出库登记表
表 Error! Bookmark not defined.货品出库表
字段名
数据类型
字段长度
是否为空
出库日期
日期/时间

出库单号
文本
10

货物编码
文本
5

货物名称
文本
10

数量
数字
长整型

单价
货币

出货价
货币

总额
货币

已收获款
货币

收货单位编码
文本
5

收货单位
文本
20

经办人编码
文本
5

经办人
文本
8

增值税率
数字
单精度型

备注
备注

仓库信息表
表 2仓库信息表
字段名
数据类型
字段长度
是否为空
仓库编号
文本
5

仓库名称
文本
12

存货种类
文本
2

存货价值
货币

供货单位信息表（收货单位表)
表 Error! Bookmark not defined.供货单位信息表
字段名
数据类型
字段长度
是否为空
单位编号
文本
5

单位名称
文本
50

单位地址
文本
50

电话
文本
15

联系人
文本
8

经办人员表
表 3经办人员表
字段名
数据类型
字段长度
是否为空
编号
文本
5

姓名
文本
8

家庭住址
文本
50

办公电话
文本
15

家庭电话
文本
15

用户表
表 Error! Bookmark not defined.用户表
字段名
数据类型
字段长度
是否为空
UserID
文本
10

userPWD
文本
6

另外，我们还建立了几张查询表，用以存放部分用于计算的统计信息,以便查询。
●入库登记统计表 入库登记_合计
●货品入库年度统计表 入库登记_n
●供货单位年度供货金额统计表 入库登记_w
●库存汇总表 库存
●出库登记统计表 出库登记_合计
●货品出库年度统计表 出库登记_h
●收货单位年度收货金额统计表 出库登记_d
入库登记_合计表与出库登记_合计分别是以入库登记表和出库登记表为基础的，所以此处不再描述;库存汇总表主要由出库表和入库表建立关系获得。
入库登记_n
表 4入库登记_n
字段名
数据类型
字段长度
是否为空
货物名称
文本
10

入库日期
日期/时间

年度数量
数字
长整型

入库登记_w
表 Error! Bookmark not defined.入库登记_w
字段名
数据类型
字段长度
是否为空
供货单位
文本
50

入库日期
日期/时间

年度供货总额
数字
长整型

库存汇总
表 5库存汇总表
字段名
数据类型
字段长度
是否为空
货物编码
文本
5

入库日期
日期/时间

货物名称
文本
10

数量（入库)
数字
长整型

进货价
货币

数量（出库)
数字
长整型

库存数量
数字
长整型

出库登记_h
表 6出库登记_h
字段名
数据类型
字段长度
是否为空
货物名称
文本
10

出库日期
日期/时间

年度数量
数字
长整型

出库登记_d
表 Error! Bookmark not defined.出库登记_d
字段名
数据类型
字段长度
是否为空
收货单位
文本
50

出库日期
日期/时间

年度金额总额
数字
长整型

第5章 应用程序设计
5.1 程序结构
本应用程序由33个窗体组成，主要的分别是：主窗体,欢迎界面，登陆窗体，入库窗体，出库窗体，库存汇总，打印及查询等窗体组成。
通过运行程序首先进入欢迎界面和登陆窗体，通过输入密码，验证身份后进入主窗体，在主窗体上有10个菜单项,分别对应各自的功能模块窗体，包括系统，库存管理，入库管理，出库管理，盘存管理，综合管理，附项管理，历史数据管理,打印和查询。需要哪个功能的时候就点哪个菜单，相对应的窗体会自动弹出。

5.2 程序源代码
程序实现的部分代码如下：
●公共模块
Public date1 As String
Public date2 As String

Public gUserName As String ’保存用户名

'添加执行SQL语句的函数
Public Function transactSQL(ByVal sql As String） As ADODB。Recordset
Dim con As ADODB。Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray(） As String
Set con = New ADODB.Connection ’创建连接
Set rs = New ADODB.Recordset '创建记录集
On Error GoTo TransactSQL_Error
strConnection = ”Provider=Microsoft.jet.oledb。4。0；Data Source=E：\库存管理\kucun.mdb”
strArray = Split(sql)
con。Open strConnection ’打开连接
If StrComp(UCase$（strArray(0))， ”select”, vbTextCompare) = 0 Then
rs.Open Trim＄(sql）, con， adOpenKeyset, adLockOptimistic
Set transactSQL = rs '返回记录集
iflag = 1
Else
con。Execute sql ’执行命令
iflag = 1
End If
TransactSQL_Exit：
Set rs = Nothing
Set con = Nothing
Exit Function
TransactSQL_Error：
MsgBox ”查询错误:” ＆ Err.Description
iflag = 2
Resume TransactSQL_Exit
End Function

●主窗体的程序代码，如图 5Error! Bookmark not defined.所示：

图 Error! No text of specified style in document.Error! Bookmark not defined.主窗体界面

Private Sub a1_Click(）
Form1。Show
End Sub

Private Sub a2_Click()
Dim fAdd As New frmAddUser
fAdd.Show
fAdd.ZOrder 0
End Sub

Private Sub a3_Click（）
Dim fChangePWD As New frmChangePWD
fChangePWD。Show
End Sub

Private Sub a4_Click（)
frmAbout。Show
End Sub

Private Sub a5_Click（） ’调入数据备份
Load main_sjbf
main_sjbf.Show
main.Enabled = False
End Sub

Private Sub a6_Click（） '调入数据恢复
Load main_sjhf
main_sjhf.Show
main。Hide
End Sub

Private Sub b1_Click(）
frm货品信息.Show
End Sub

Private Sub b12_Click()
sql = ”select ＊ from 货品信息 order by 货品编码”
frmProInfo。createList （sql）
frmProInfo.Show
End Sub

Private Sub b2_Click()
frm货品库存.Show
End Sub

Private Sub B3_Cli