公司仓库管理系统(doc 22)

1、公司仓库管理系统公司介绍与系统的需求分析1.1公司简介佳雪公司是是一个专专销电动动机的公公司，主主要业务务是进行行电动机机的进货货与分销销，作为为一个销销售的中中介公司司，其要要求有入入库与出出库的主主要数据据库，可可以简单单的记录录数据，并并且可以以进行多多方面的的查询，使使得公司司有较详详细的数数据统计计与分析析。其主要业务务如以下下图所示示：1. 厂商 仓库 顾顾客图1.1.1 22.查询询功能按型号查询询有两个结果果：A生生成 入入库量、出出库量、节节余量 B生生成 两两个数据据来源表表，包括括出库来来源与入入库来源源；按单位查询询 结结果：生生成 型型号、产产品名称称、时间间（入/出

2、库）、单单价 再再生成出出入库的的两个基基本情况况表，包包括供应应商和顾顾客的基基本情况况，如型型号、出出/入库库时间，单单价，发发票编号号、结帐帐情况； 33.本系系统主要要运用VVisuual Bassic的的内嵌数数据库AAcceess来来记录数数据；4.产品信信息： 序号号（自动动生成）、型型号（文文本）、入入库时间间（日期期）、出出库时间间（日期期）、数数量（数数字）、发发票编号号（文本本）、单单价（货货币）、厂厂商名称称（文本本）、供供应商名名称（文文本）、厂厂商与供供应商的的电话（数数字）、结结帐情况况（是/否）是为00，否为为-12分析与描描述输入数据一.根据11.1章章节的具

3、具体要求求，总结结出以下下的数据据流程：输入数据顾客出库入库供应商型号删除修改单位增加删除修改增加出库查询 入库 图11.2.1 数数据流程程顾客出库入库供应商型号删除修改单位增加删除修改增加出库查询 入库二.根据以以上情况况，按要要求设计计了几个个相关的的数据库库 表：出库、入入库 查询询：查询询结余、出出库查询询、入库库查询、型型号出库库查询、型型号入库库查询主要的出库库表属性性如以下下表所示示：字段名属性字段大小序号自动生成长整型型号文本50产品名称文本50出库数量数字长整型单价货币自动小数出库时间日期年-月-日日发票编号文本50顾客电话文本50结帐情况是/否2 表11.2.1由于入库表

4、表与出库库想类似似，所以以在此不不做详细细介绍。为了方便查查询，因因此在出出库与入入库的基基础上增增加了几几个查询询表，具具体字段段如下：查询结余：型号、产产品名称称、出库库数量、入入库数量量出库查询：顾客名名称、型型号、出出库时间间、单价价、出库库数量OOF SSUM、发发票编号号、结帐帐情况入库查询：供应商商名称、型型号、入入库时间间、单价价、入库库数量OOF SSUM、发发票编号号、结帐帐情况出库型号查查询：型型号、产产品名称称、顾客客名称、单单价、发发票编号号、结帐帐情况入库型号查查询：型型号、产产品名称称、供应应商名称称、单价价、发票票编号、结结帐情况况1.3数据据库的主主要特点点数

5、据库中的的每一个个表都必必须符合合下面几几个特征征：*表中的每每一个单单元的内内容只有有一个值值*所有字段段的名称称都不相相同*记录的前前后次序序和字段段的左右右次序可可以变化化，不受受限制*数据库中中的表的的上下次次序不受受限制*表中不应应有内容容完全相相同的记记录*表中的每每一个字字段都必必须有相相同的数数据类型型使用Vissuall Baasicc开发应应用程序序的两个个主要思思想：*可视设计计*事件驱动动编程Visuaal BBasiic应用用程序不不同于其其他语言言开发的的单一性性程序。使使用Viisuaal BBasiic编程程时，必必须首先先确定应应用程序序如何与与用户交交互，如

6、如鼠标单单击，用用户必须须编写代代码控制制这些事事件的响响应方法法。使用Vissuall Baasicc开发数数据库应应用程序序的一般般步骤如如下所示示：建立数据库库建立用户界界面编写代码调试运行编译应用程程序发布应用程程序界面设计控件的位置置界面元素的的一致性性保持界面的的简明使用颜色和和图象：增加视视觉的感感染力图象和图标标：增加加应用程程序的视视觉上的的趣味选取字体Visuaal BBasiic应用用程序的的结构： 由由于Viisuaal BBasiic应用用程序是是基于对对象的，所所以应用用程序的的代码结结构就是是该程序序在屏幕幕上物理理表示的的模型。根根据定义义，对象象包含数数据和代

7、代码。在在屏幕上上看到的的窗体代代表属性性，这些些属性定定义了窗窗体的外外观和内内在特性性。本设计主要要是运用用Datta控件件。 Dataa控件主主要是打打开、访访问并操操作已有有的数据据库，它它是Viisuaal BBasiic 访访问数据据库的最最常用的的工具之之一。由由于Daata控控件使用用Miccrossoftt的Jett引擎来来实现数数据访问问（与MMicrrosooft Acccesss 所用用的数据据库引擎擎相同），使使用户可可以无缝缝地访问问很多标标准的数数据库格格式，而而且无需需编写任任何代码码就可以以创建数数据应用用程序，因因此这种种Vissuall Baasicc 内

8、部部的Daata控控件最合合适小的的（桌面面）数据据库，诸诸如Acccesss和IISAMM数据库库等。 由于Daata控控件是VVisuual Bassic 的内部部控件，因因此可以以直接在在标准工工具箱中中找到该该控件。 在程序运运行过程程中，只只要用鼠鼠标单击击控件上上的箭头头按钮，系系统将自自动修改改Datta控件件指向的的记录和和显示在在约束控控件中的的数据，而而不需要要编写任任何代码码。 可以将多多个Daata控控件同时时添加到到一个工工程甚至至是同一一个窗体体中。另另外，每每个控件件可以连连接到不不同的数数据库或或同一个个数据库库的不同同表上，还还可以和和代码一一起查询询满足的的

9、语句的的表的记记录集。 使用Daata控控件可以以显示、编编辑和更更新来字字各种已已有的数数据库信信息。此此外，还还可以访访问和操操作远程程的开放放式数据据库连接接。除了使用DDataa控件之之外，还还运用的的Vissuall Baasicc 6.0的新新增控件件功能，Dblistbox它不象标准的列表框或组合框那样需要使用AddItem方法添加列表项。另外，它们还可以有选择地把某个选定的字段传递给另一个Data控件，使得它对于“查找表”应用程序很理想。与其他的约约束控件件不同，这这些控件件可以同同时显示示多个记记录。约约束数据据列表控控件类似似于普通通的列表表框控件件，可以以显示记记录集中中

10、的数据据，网格格中的每每一行代代表记录录集中的的一个记记录。第二章 管管理系统统的设计计与分析析2.1进入入界面由于系统的的的界面面比较单单一，因因此在设设计过程程中运用用了许多多网上下下载的图图片来增增添界面面的可观观性。在考虑到操操作员的的技术水水平有限限，因此此在控件件方面只只运用了了COMMMANND，这这样不仅仅能是界界面清楚楚，更能能是操作作者很快快学会，简简单易懂懂。图2.1.1是进进入本系系统的状状态图，单单击“确定”可以进进入界面面，如按按“系统信信息”的话，将将显示本本系统的的具体软软硬件情情况。 图图2.11.1当图2.11.1中中的“确定”按钮被被激活时时，将进进入图2

11、2.1.3的屏屏幕，界界面的图图片是图图片引入入的，接接着将进进入正式式的编辑辑或查询询状态。具体的系统统情况如如图2.1.22所示：图2.1.2图2.1.32入库界面面当激活入库库按钮时时将出现现以下的的界面（图图2.22.1） 图2.2.11入库窗体（图图2.22.1）及及其各个个控件的的主要属属性 控件类型控件名主要属性FormFrmrssg1Captiion=“入库情情况”DataData11Databbaseenamme=“Addb2.mdbb”Recorrdseettyype=1DDynaasettCaptiion=“入库情情况”CommaandDDiallogCommaand11

12、Captiion=“上一个个”Commaand22Captiion=“下一个个”Commaand33Captiion=“确定”Commaand44Captiion=“取消”Commaand55Captiion=“退出”Commaand66Captiion=“增加”Commaand77Captiion=“修改”Commaand88Captiion=“删除”LableeLablee1Captiion=“序号”Lablee2Captiion=“型号”Lablee3Captiion=“产品名名称”Lablee4Captiion=“数量”Lablee5Captiion=“单价”Lablee6Captii

13、on=“入库时时间”Lablee7Captiion=“发票名名称”Lablee8Captiion=“供应商商名称”Lablee9Captiion=“电话”Lablee10Captiion=“结帐情情况”TextText11Captiion=“序号”Dataasouurcee=“datta1”Text22Captiion=“型号”Dataasouurcee=“datta1”Text33Captiion=“产品名名称”Dataasouurcee=“datta1”Text44Captiion=“数量”Dataasouurcee=“datta1”Text55Captiion=“单价”Dataasouu

14、rcee=“datta1”Text66Captiion=“入库时时间”Dataasouurcee=“datta1”Text77Captiion=“发票名名称”Dataasouurcee=“datta1”Text88Captiion=“供应商商名称”Dataasouurcee=“datta1”Text99Captiion=“电话”Dataasouurcee=“datta1”Text110Captiion=“结帐情情况”Dataasouurcee=“datta1”表2.2.1控件说明增加新记录录当单击“确确定”按钮后后，“确定”和“取消”两个按按钮显示示，同时时使其他他的按钮钮不可见见，这样样做是

15、为为了防止止用户的的误操作作。其主要程序序如下：Privaate Subb Coommaand55_Cllickk()xg = Truue显示“确确定”和“取消”两个按按钮Commaand33.Viisibble = TTrueeCommaand44.Viisibble = TTruee取消其他他按钮功功能Commaand55.Ennablled = FFalsseCommaand66.Ennablled = FFalsseCommaand77.Ennablled = FFalsseCommaand88.Ennablled = FFalsseCommaand11.Ennablled = FFa

16、lsseCommaand22.Ennablled = FFalsseData11.Reecorrdseet.AAddNNew 添加加一个新新记录Text11.SeetFoocuss 光光标在TTEXTT1处 end subb修改记录在调用EDDIT方方法之前前，约束束控件中中的数据据是只读读的，用用户无法法对其进进行修改改。调用用了EDDIT方方法后，用用户可以以在约束束控件中中修改记记录的值值。如果果在对当当前记录录进行修修改之前前修改，未未使用EEDITT方法，将将发生运运行时错错误。其主要程序序如下：Privaate Subb Coommaand66_Cllickk()xg = Truu

17、eCommaand33.Ennablled = TTrueeCommaand44.Ennablled = TTruee取消其他他按钮功功能Commaand55.Ennablled = FFalsseCommaand66.Ennablled = FFalsseCommaand77.Ennablled = FFalsseCommaand88.Ennablled = FFalsseCommaand11.Ennablled = FFalsseCommaand22.Ennablled = FFalsse对记录进进行编辑辑Data11.Reecorrdseet.EEdittText11.SeetFoocu

18、ssEnd SSub删除记录当用户单击击“删除”命令按按钮时，为为了防止止用户误误删除数数据，程程序将调调用Mssgboox（）函函数以弹弹出对话话框，询询问用户户是否真真的要删删除该记记录。如如果用户户单击对对话框上上的“确定”按钮，程程序调用用记录集集的Deelette方法法，将记记录集的的当前记记录设置置为空，并并从原始始的表中中删掉当当前记录录。但是是删除的的记录仍仍然是当当前记录录，只是是将其变变为了无无效的记记录，任任何对其其的引用用都会产产生错误误。其主要程序序如下：Privaate Subb Coommaand66_Cllickk()xg = TruueCommaand33.E

19、nnablled = TTrueeCommaand44.Ennablled = TTruee取消其他他按钮功功能Commaand55.Ennablled = FFalsseCommaand66.Ennablled = FFalsseCommaand77.Ennablled = FFalsseCommaand88.Ennablled = FFalsseCommaand11.Ennablled = FFalsseCommaand22.Ennablled = FFalsse对记录进进行编辑辑Data11.Reecorrdseet.EEdittText11.SeetFoocussEnd SSubPri

20、vaate Subb Coommaand77_Cllickk()ss = MsggBoxx(真真的要删删除吗？, vbYYesNNo + vbbInfformmatiion, 删删除记录录)如果要删删除If (sss = vbbYess) TThennData11.Reecorrdseet.DDeleeteData11.Reecorrdseet.MMoveeNexxtIf Daata11.Reecorrdseet.EEOF TheenData11.Reecorrdseet.MMoveeLasstCommaand22.Ennablled = FFalsseEnd IIfEnd IIfEnd SS

21、ub移动数据当用户单击击“上一个个”和“下一个个”按钮是是，系统统将自动动转换数数据，但但注意，当当移至第第一个记记录时，“下一个”按钮将失效；移至最后一个记录是，“上一个”按钮也将失效。其中在设计计程序时时，为了了防止“NO Currrennt RRecoord”这样的的错误，在在移动记记录指针针时测试试记录集集的BOOF 和和EOFF属性。如如果单击击“上一个个”和“下一个个”命令按按钮将导导致记录录指针指指向空指指针，则则分别调调用Mooveffirsst和Movvelaast方方法，这这是防止止“NO Currrennt RRecoord”错误出出现的最最简单和和最有效效的方法法。与此

22、此同时，如如果记录录集的BBOF属属性为TTruee,则置置“上一个个”命令按按钮为非非激活状状态，是是用户无无法再单单击该按按钮。同同样，当当记录集集的BOOF属性性为Trrue时时，置“下一个个”命令按按钮为非非激活状状态。其主要程序序如下：Privaate Subb Coommaand11_Cllickk()xg = FallseData11.Reecorrdseet.MMoveePreevioous如果是第第一个记记录，BBOF属属性为TTRUEEIf Daata11.Reecorrdseet.BBOF TheenData11.Reecorrdseet.MMoveeFirrstComm

23、aand11.Ennablled = FFalsseElseCommaand22.Ennablled = TTrueeCommaand11.Ennablled = TTrueeEnd IIfEnd SSubPrivaate Subb Coommaand22_Cllickk()xg = FallseData11.Reecorrdseet.MMoveePreevioous如果当前前记录是是记录集集中最后后一个记记录，EEOF属属性为TTRUEEIf Daata11.Reecorrdseet.BBOF TheenData11.Reecorrdseet.MMoveeLasstCommaand22.En

24、nablled = FFalsseElseCommaand22.Ennablled = TTrueeCommaand11.Ennablled = TTrueeEnd IIfEnd SSub用Updaata方方法确认认增加和和修改当用户修改改和增加加完一个个记录的的数据后后，需要要将数据据保存到到数据库库中。可可以通过过调用记记录集的的Upddataa方法把把数据保保存到数数据库中中。单击击“确定”按钮时时，记录录将被记记如数据据库。其主要程序序如下：Privaate Subb Coommaand33_Cllickk()On Errrorr GooTo errror11xg = TruueDat

25、a11.Reecorrdseet.UUpdaateCommaand33.Ennablled = FFalsseCommaand44.Ennablled = FFalsseCommaand22.Ennablled = TTrueeCommaand11.Ennablled = TTrueeCommaand44.Ennablled = TTrueeCommaand55.Ennablled = TTrueeCommaand66.Ennablled = TTrueeCommaand77.Ennablled = TTrueeCommaand88.Ennablled = TTrueeExit Subberr

26、orr1: MsggBoxx Errr.DDesccripptioon, vbOOKOnnly, 错错误提示示End SSub用CanccelUUpdaata方方法放弃弃增加和和修改如果用户修修改了约约束控件件里的数数据后，在在没有单单击“确定”命令按按钮之前前，想放放弃刚才才的增加加或修改改，则可可以单击击“取消”命令。 由于于其程序序与Uppdatta方法法相似，因因此不做做重复解解释。定义Datta_VValiidatta事件件过程对于一个新新记录或或编辑的的记录，如如果不能能维护引引用完整整性或不不能反映映该旧路路的实体体原型，那那么它就就是无效效的，并并且破坏坏了数据据库的完完整性。

27、为为了在“入库情情况”表中建建立一个个有效的的记录，就就必须要要有主关关键字段段“型号”的值。因因此，对对已经存存在和新新增加的的旧路都都要先测测试其“型号”字段之之后才可可以执行行更新操操作。其主要程序序如下：当约束控控件中内内容改变变时If Teext22.DaataCChanngedd ThhenSave = TTrueeIf Daata11.Reecorrdseet.RRecoordCCounnt 1 TheenCommaand11.Ennablled = TTrueeCommaand22.Ennablled = TTrueeEnd IIfElseIf Teext22.Teext =

28、AAnd xg = TTruee Thhen ss = MssgBoox(必须要要有型号！, vbbOKOOnlyy + vbIInfoormaatioon, 提示示) Actiion = FFalsse Commmandd3.VVisiiblee = Truue Commmannd4.Vissiblle = Trrue Commmandd1.VVisiiblee = Truue Commmandd2.VVisiiblee = Truue Commmandd7.VVisiiblee = Truue Commmandd8.VVisiiblee = Truue Commmandd5.VVisiib

29、lee = Truue Commmandd6.VVisiiblee = Truue End If End If If AActiion = ddataa_acctioonunnloaad OOr AActiion = ddataa_acctiooncllosee Thhen Savee = Truue End IfEnd SSub2.3出库库界面当单击“出出库”按钮的的时候，系系统将进进入出库库信息输输入界面面，如（图图2.33.1）所所示，其其基本情情况与入入库相类类似，依依次不做做具体介介绍。图2.3.12.4查询询界面当用户单击击“查询”按钮时时，系统统将出现现密码登登陆框，因因为查询询

30、的是内内部资料料，因此此，需身身份验证证，如图图2.44.1图2.4.1随后将进入入查询功功能，如如图2.4.22图2.4.2用户可根据据不同需需要进行行“按型号号”和“按单位位”的查询询。单击“按型型号”，系统统将进入入以型号号为关键键字段的的查询，如如图2.4.33。其中中根据SSQL语语句的查查询，选选出出库库型号与与入库型型号相同同的记录录，统计计出入库库与出库库的总数数量，然然后可按按“上一个个”和“下一个个”进行查查询，也也可按出出库与入入库分别别查询记记录。图2.4.3当用户单击击“查询出出库”按钮是是，系统统进入界界面，如如图2.4.44图2.4.4图2.4.4窗体体及其上上面

31、控件件的属性性设置控件类型控件名主要属性FormfrmdbblisstCaptiion=“查询出出库”DataData11DatabbaseeNamme=“a:db22.mddb”RecorrdseetTyype=1RecorrdSoourcce=“出库型型号”FrameeFramee1Captiion=“具体情情况”LableeLablee1Cqptiion=“产品名名称”Lablee2Cqptiion=“单价”Lablee3Cqptiion=“发票编编号”Lablee4Cqptiion=“顾客名名称”Lablee5Cqptiion=“结帐情情况”TextText11Dataffielld=

32、“具体情情况”Datassourrce=“Datta1”Text22Dataffielld=“具体情情况”Datassourrce=“Datta1”Text33Dataffielld=“具体情情况”Datassourrce=“Datta1”Text44Dataffielld=“具体情情况”Datassourrce=“Datta1”Text55Dataffielld=“具体情情况”Datassourrce=“Datta1”DBlisstDblisst1Listffielld=“型号”Rowsoourcce=“Dataa1”表2.4.1单击Dbllistt框中的的型号，FFramme中将将自动显显

33、示记录录，以供供用户查查询。当用户单击击“查询入入库”按钮时时，将出出现图22.4.5的界界面。图2.4.5再回到查询询界面，单单击“按单位位”按钮，此此时系统统将进入入按单位位查询的的截面，如如图2.4.66图2.4.6分别按“顾顾客”和“供应商商”按钮，系系统将分分别进入入不同的的查询界界面，如如图2.4.77和图22.4.8由于以下两两个窗口口的属性性以及其其设计方方法类似似与图44.3，因因此也不不做详细细介绍。图2.4.7图2.4.82.5退出出程序再回到登陆陆主窗口口，（图图2.11.3），单单击“退出”按钮，系系统将退退出程序序，显示示以下窗窗口（图图2.55.1），单单击图中中的“再见”，此程程序也将将结束。图2.5.1第三章 系系统运行行与调试试测试本身的的目的是是尽可能能地暴露露程序中中的错误误，因此此在编译译完成后后，