公司仓库管理系统221

1、欢迎共阅第一章公司介绍与系统的需求分析1.1公司简介佳雪公司是一个专销电动机的公司，主要业务是进行电动机的进货与分销，作 为一个销售的中介公司，其要求有入库与出库的主要数据库，可以简单的记录数据， 并且可以进行多方面的查询，使得公司有较详细的数据统计与分析。其主要业务如以下图所示：图 1.1.11厂商仓库顾客2查询功能1）按型号查询有两个结果：A生成入库量、出库量、节余量I"IB生成两个数据来源表，包括出库来源与入库来源；2）按单位查询结果：生成型号、产品名称、时间（入/出库）、单价飞一 I再生成出入库的两个基本情况表，包括供应商和顾客的基本情况，如型号、出/入库时间，单价，发票编号

2、、结帐情况；3.本系统主要运用VisualBasic的内嵌数据库Access来记录数据；4产品信息：序号（自动生成）、型号（文本）、入库时间（日期）、出库时间（日期）、数量 （数字）、发票编号（文本）、单价（货币）、厂商名称（文本）、供应商名称（文本）、 厂商与供应商的电话（数字）、结帐情况（是/否）是为0,否为-11. 2分析与描述一根据1.1章节的具体要求，总结出以下的数据流程:图1.2.1数据流程二根据以上情况，按要求设计了几个相关的数据库I表：出库、入库查询：查询结余、出库查询、入库查询、型号出库查询、型号入库查询>-_II主要的出库表属性如以下表所示：字段名属性字段大小:序号自

3、动生成长整型-型号文本50产品名称文本50出库数量数字长整型单价货币自动小数出库时间日期年-月-日发票编号文本50顾客电话文本50结帐情况是/否2表 1.2.1由于入库表与出库想类似，所以在此不做详细介绍。为了方便查询，因此在出库与入库的基础上增加了几个查询表，具体字段如下：1. 查询结余：型号、产品名称、出库数量、入库数量2. 出库查询：顾客名称、型号、出库时间、单价、出库数量OFSUM、发票编号、 结帐情况3入库查询：供应商名称、型号、入库时间、单价、入库数量OFSUM、发票编号、结帐情况4出库型号查询：型号、产品名称、顾客名称、单价、发票编号、结帐情况5入库型号查询：型号、产品名称、供应

4、商名称、单价、发票编号、结帐情况1.3数据库的主要特点数据库中的每一个表都必须符合下面几个特征：*表中的每一个单元的内容只有一个值*所有字段的名称都不相同-尹.# ： | s-*记录的前后次序和字段的左右次序可以变化，不受限制*数据库中的表的上下次序不受限制1 i _ 1*表中不应有内容完全相同的记录.I 、I Ii*表中的每一个字段都必须有相同的数据类型 使用VisualBasic开发应用程序的两个主要思想：*可视设计 、 I*事件驱动编程VisualBasic应用程序不同于其他语言开发的单一性程序。使用VisualBasic编程时，必须首先确定应用程序如何与用户交互，如鼠标单击，用户必须编

5、写代码控制 这些事件的响应方法。使用VisualBasic开发数据库应用程序的一般步骤如下所示：（1）建立数据库（2）建立用户界面（3）编写代码（4）调试运行（5）编译应用程序（6）发布应用程序界面设计（1）控件的位置（2）界面元素的一致性（3）保持界面的简明（4）使用颜色和图象：增加视觉的感染力i jj 1（5）图象和图标：增加应用程序的视觉上的趣味f 尹".冲 >,*I I-（6）选取字体VisualBasic应用程序的结构：由于VisualBasic应用程序是基于对象的，所以应用程序的代码结构就是该程序在屏 幕上物理表示的模型。根据定义，对象包含数据和代码。在屏幕上看到的

6、窗体代表 属性，这些属性定义了窗体的外观和内在特性。本设计主要是运用Data控件。X"| J I 1Data控件主要是打开、访问并操作已有的数据库，它是VisualBasic访问数据库的 最常用的工具之一。由于 Data控件使用Microsoft的Jet引擎来实现数据访问（与* IMicrosoftAccess所用的数据库引擎相同），使用户可以无缝地访问很多标准的数据库 格式，而且无需编写任何代码就可以创建数据应用程序，因此这种VisualBasic内部的Data控件最合适小的（桌面）数据库，诸如Access和ISAM数据库等。由于Data控件是VisualBasic的内部控件，因此

7、可以直接在标准工具箱中找到该 控件。在程序运行过程中，只要用鼠标单击控件上的箭头按钮，系统将自动修改Data控件指向的记录和显示在约束控件中的数据，而不需要编写任何代码。可以将多个Data控件同时添加到一个工程甚至是同一个窗体中。另外，每个控件可以连接到不同的数据库或同一个数据库的不同表上，还可以和代码一起查询满足 的语句的表的记录集。使用Data控件可以显示、编辑和更新来字各种已有的数据库信息。此外，还可以访问和操作远程的开放式数据库连接。除了使用Data控件之外，还运用的 VisualBasic6.0的新增控件功能，Dblistbox 它不象标准的列表框或组合框那样需要使用Additem方

8、法添加列表项。另外，它们还可以有选择地把某个选定的字段传递给另一个Data控件，使得它对于“查找表” '、厂、11)应用程序很理想。- _ °"-'' | r与其他的约束控件不同，这些控件可以同时显示多个记录。约束数据列表控件 类似于普通的列表框控件，可以显示记录集中的数据，网格中的每一行代表记录集中的一个记录。1 «) 1第二章管理系统的设计与分析2.1进入界面由于系统的的界面比较单一，因此在设计过程中运用了许多网上下载的图片来增FI y 一乂I 添界面的可观性。在考虑到操作员的技术水平有限，因此在控件方面只运用了COMMAND，这样I

9、I不仅能是界面清楚，更能是操作者很快学会，简单易懂。“确定”可以进入界面，如按“系统信息”的话，将显示本系统的具体软硬件情况。图 2.1.1“确定”图 2.1.2图 2.1.32. 2入库界面序号厂入库时间|oo 电T型号|YY&4 |0098。产品名飾僕应面£称|ws數量|n电话1单价1结帐悟况匚删d1杯1确走11修改|題消|删除1入1退出|图221控件类型控件名主要属性FormFrmrsglCaptio n= “入库情况”DataDatalDatabase name二“ Adb2.mdb” Recordsettype=1 ' Dynaset Captio n= “

10、入库情况”Comma ndDialogComma nd1Caption二“上一个”Comma nd2Caption二“下一个”Comma nd3Caption二“确定”Comma nd4Captio n= “取消”Comma nd5Caption二“退出”Comma nd6Captio n= “增加”Comma nd7Captio n= “修改”Comma nd8Captio n= “删除”LableLable1Caption二“序号”Lable2Captio n= “型号”Lable3Captio n= “产品名称”Lable4Caption二“数量”Lable5Caption二“单价”La

11、ble6Captio n= “入库时间”Lable7Captio n= “发票名称”Lable8Captio n= “供应商名称”Lable9Caption二“电话”Lable10Captio n= “结帐情况”TextText1Caption二“序号” Datasource二“ data1 ”Text2Caption二“型号” Datasource二“ data1 ”Text3Caption二“产品名称” Datasource二“data1 ”Text4Caption二“数量” Datasource二“ data1 ”Text5Caption二“单价” Datasource二“ data1

12、”Text6Caption二“入库时间” Datasource二“data1 ”Text7Caption二“发票名称” Datasource二“data1 ”Text8Caption“供应商名称” Datasource“data1 ”Text9Caption二“电话” Datasource二“ data1 ”Text10Caption二“结帐情况” Datasource二“data1 ”表221控件说明j 二:> I ,增加新记录Z /(-仝'当单击“确定”按钮后，“确定”和“取消”两个按钮显示，同时使其他的按钮不可 见，这样做是为了防止用户的误操作。其主要程序如下：Privat

13、eSubComma nd5_Click()xg=True'显示“确定”和“取消”两个按钮Comma nd3.Visible=TrueComma nd4.Visible=True'取消其他按钮功能Comma nd5.E nabled=FalseComma nd6.E nabled=FalseComma nd7.E nabled=FalseComma nd8.E nabled=FalseComma nd1.E nabled=FalseI IComma nd2.E nabled=FalseText1.SetFocus光标在 TEXT1 处endsub修改记录在调用EDIT方法之前，约

14、束控件中的数据是只读的，用户无法对其进行修改。调用 了 EDIT方法后，用户可以在约束控件中修改记录的值。如果在对当前记录进行修改之前修改，未使用EDIT方法，将发生运行时错误。其主要程序如下：PrivateSubComma nd6_Click()欢迎共阅xg=TrueComma nd3.E nabled=TrueComma nd4.E nabled=True'取消其他按钮功能Comma nd5.E nabled=FalseComma nd6.E nabled=FalseComma nd7.E nabled=FalseComma nd8.E nabled=FalseComma nd1.

15、E nabled=FalseComma nd2.E nabled=False'对记录进行编辑Text1.SetFocusEndSub删除记录""J* I I 当用户单击“删除”命令按钮时，为了防止用户误删除数据，程序将调用Msgbox()函数以弹出对话框，询问用户是否真的要删除该记录。如果用户单击对话框上的“确 定”按钮，程序调用记录集的Delete方法，将记录集的当前记录设置为空，并从原始的表中删掉当前记录。但是删除的记录仍然是当前记录，只是将其变为了无效的1 i _«记录，任何对其的引用都会产生错误。.II Ii其主要程序如下：PrivateSubCo

16、mma nd6_Click()xg=TrueComma nd3.E nabled=TrueXj i_I 1Comma nd4.E nabled=True'取消其他按钮功能Comma nd5.E nabled=FalseComma nd6.E nabled=FalseComma nd7.E nabled=FalseComma nd8.E nabled=FalseComma nd1.E nabled=FalseComma nd2.E nabled=False'对记录进行编辑Text1.SetFocusEndSubPrivateSubComma nd7_Click()ss=MsgBo

17、x("真的要删除吗？ ”,vbYesNo+vblnformation,"删除记录")'如果要删除If(ss=vbYes)The nComma nd2.E nabled=FalseEn dIf欢迎共阅En dlfEndSub移动数据当用户单击“上一个”和“下一个”按钮是，系统将自动转换数据，但注意，当移至第一个记录时，“下一个”按钮将失效；移至最后一个记录是，“上一个”按钮也将失效。其中在设计程序时，为了防止“ NOCurrentRecorc”这样的错误，在移动记录指针时 测试记录集的BOF和EOF属性。如果单击“上一个”和“下一个”命令按钮将导致 记录指针

18、指向空指针，则分别调用Movefirst和Movelast方法，这是防止“NOCurrentRecorc”错误出现的最简单和最有效的方法。与此同时，如果记录集的 BOF属性为True,则置“上一个”命令按钮为非激活状态，是用户无法再单击该按钮。 同样，当记录集的BOF属性为True时，置“下一个”命令按钮为非激活状态。 其主要程序如下：PrivateSubComma nd1_Click()xg=False'如果是第一个记录，BOF属性为TRUEComma nd1.E nabled=FalseElseComma nd2.E nabled=TrueyXJ i_zI 1Comma nd1.E

19、 nabled=TrueEn dIfEndSubPrivateSubComma nd2_Click()xg=False'如果当前记录是记录集中最后一个记录，EOF属性为TRUEComma nd2.E nabled=FalseElseComma nd2.E nabled=TrueComma nd1.E nabled=TrueEn dIfEndSub用Updata方法确认增加和修改当用户修改和增加完一个记录的数据后，需要将数据保存到数据库中。可以通过调用记录集的Updata方法把数据保存到数据库中。单击“确定”按钮时，记录将被记欢迎共阅如数据库。其主要程序如下：PrivateSubComm

20、a nd3_Click()On ErrorGoToerror1xg=TrueComma nd3.E nabled=FalseComma nd4.E nabled=FalseComma nd2.E nabled=TrueComma nd1.E nabled=TrueComma nd4.E nabled=TrueComma nd5.E nabled=TrueComma nd6.E nabled=TrueComma nd7.E nabled=TrueComma nd8.E nabled=TrueExitSuberror1:MsgBoxErr.Description,vbOKOnly,"错误

21、提示"EndSub用CancelUpdata方法放弃增加和修改如果用户修改了约束控件里的数据后，在没有单击“确定”命令按钮之前，想放弃1 _ «刚才的增加或修改，贝何以单击“取消”命令。.I 、I Ii由于其程序与Updata方法相似，因此不做重复解释。定义Data_Validata事件过程对于一个新记录或编辑的记录，如果不能维护引用完整性或不能反映该旧路的实体 原型，那么它就是无效的，并且破坏了数据库的完整性。为了在“入库情况”表中 建立一个有效的记录，就必须要有主关键字段“型号”的值。因此，对已经存在和 新增加的旧路都要先测试其“型号”字段之后才可以执行更新操作。其主要

22、程序如下：'当约束控件中内容改变时IfText2.DataCha ngedThe nSave=TrueComma nd1.E nabled=TrueComma nd2.E nabled=TrueEn dIfElseIfText2.Text=""A ndxg=TrueThe n欢迎共阅ss=MsgBox（"必须要有型号'！ ",vbOKOnly+vblnformation,"提示”）Action=FalseComma nd3.Visible=TrueComma nd4.Visible=TrueComma nd1.Visible=T

23、rueComma nd2.Visible=TrueComma nd7.Visible=TrueComma nd8.Visible=TrueComma nd5.Visible=TrueComma nd6.Visible=TrueEn dIfEn dIflfAction=data_act ionunl oadOrAct ion=data_act ion closeThe nSave=TrueEn dIfEndSub2.3出库界面当单击“出库”图 2.3.1序号F出库时间1型号单价|yy636-l|100产品名称顾客名称|卫电动|上海电动机数呈电动电话1境票编号结帐厝况|T2.4查询界面当用户单击“

24、查询”按钮时，系统将出现密码登陆框，因为查询的是内部资料,因此，需身份验证，如图2.4.1图241随后将进入查询功能，如图2.4.2图 2.4.2用户可根据不同需要进行“按型号”和“按单位”的查询。1 _ «单击“按型号” “上一个”和“下一个”进行查询，也可按出库与入库分别查询IXI Ii记录。型号 1|tY&33-3产品名称中电动总入库量上一个|总出库量p下一乍直询出库|查询入库|退出|图 2.4.3欢迎共阅当用户单击“查询出库”按钮是，系统进入界面，如图2443YT6TS-2YY633-3YY645-5TY645-8|yY903-9|d洁选择型号退出具儒悟况产品名称&#

25、39;单价发票編号顾客名称结除悟况图 2.4.4控件类型控件名主要属性FormfrmdblistCaption二“查询出库”DataDatalDatabaseName二“ db2.mdb”RecordsetType=1RecordSource二 出库型号FrameFramelCaptio n= “具体情况”LableLableiCqptio n= “产品名称”Lable2Cqption二“单价”Lable3Cqptio n=发票编号Lable4Cqptio n= “顾客名称”Lable5Cqptio n= “结帐情况”TextTextl 1Datafield= “具体情况” Datasourc

26、e二 “ Data1”Text21Datafield= “具体情况” Datasource二 “ Data1”Text3Datafield= “具体情况” Datasource二 “ Data1”Text4Datafield= “具体情况” Datasource二 “ Data1”Text5Datafield= “具体情况” Datasource二 “ Data1”DBlistDblistiListfield= “型号” Rowsource二 “ Data1”表 2.4.1单击Dblist框中的型号，Frame中将自动显示记录，以供用户查询当用户单击“查询入库”I, "I|%!X? /X'f r'图245再回到查询界面，单击“按单位”按钮，此时系统将进入按单位查询的截面，如图246'礎1退出1图 2.4.6分别按“顾客”和“供应商” A杭州电动枳F Ltr LLS r LTr LLS r 鸟宁波电动机 亍减电动机 上海电动机 上海电动机 曲江电耳札 浙江电动机r r r r r诰选择顾客名称退岀由于以下两个窗口的属性以及其设计方法类似与图4.3,因此也不做详细介绍图247 图2482.5退出程序“退出”“再见”，此程序也将结束。第三章系统运行与调试 I测试本身的目的是尽可能地暴露程序中的错误，因此在编译完成