公司仓库管理系统

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

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

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

4、每一个表都必须符合下面几个特征:表中的每一个单元的内容只有一个值所有字段的名称都不相同记录的前后次序和字段的左右次序可以变化，不受限制数据库中的表的上下次序不受限制表中不应有内容完全相同的记录表中的每一个字段都必须有相同的数据类型使用Visual Basic 开发应用程序的两个主要思想:可视设计编程事件驱动编程Visual Basic应用程序不同于其他语言开发的单一性程序。使用Visual Basic时，必须首先确定应用程序如何与用户交互，如鼠标单击，用户必须编写代码控制这些事 件的响应方法。使用 Visual Basic 开发数据库应用程序的一般步骤如下所示：1) 建立数据库2) 建立用户界

5、面3) 编写代码4) 调试运行5) 编译应用程序6) 发布应用程序界面设计1) 控件的位置2) 界面元素的一致性3) 保持界面的简明4) 使用颜色和图象：增加视觉的感染力5）图象和图标：增加应用程序的视觉上的趣味（ 6） 选取字体Visual Basic 应用程序的结构：由于 Visual Basic 应用程序是基于对象的，所以应用程序的代码结构就是该程序在屏 幕上物理表示的模型。根据定义，对象包含数据和代码。在屏幕上看到的窗体代表属性， 这些属性定义了窗体的外观和内在特性。本设计主要是运用 Data 控件。Data 控件主要是打开、访问并操作已有的数据库，它是 Visual Basic 访问

6、数据库的 最常用的工具之一。由于 Data 控件使用 Microsoft 的 Jet 引擎来实现数据访问（与 Microsoft Access 所用的数据库引擎相同） ，使用户可以无缝地访问很多标准的数据库格 式，而且无需编写任何代码就可以创建数据应用程序， 因此这种 Visual Basic 内部的 Data 控件最合适小的（桌面）数据库，诸如 Access和ISAM数据库等。由于 Data 控件是 Visual Basic 的内部控件，因此可以直接在标准工具箱中找到该控 件。在程序运行过程中，只要用鼠标单击控件上的箭头按钮，系统将自动修改 Data 控件 指向的记录和显示在约束控件中的数据

7、，而不需要编写任何代码。可以将多个Data控件同时添加到一个工程甚至是同一个窗体中。另外，每个控件可 以连接到不同的数据库或同一个数据库的不同表上，还可以和代码一起查询满足的语句的 表的记录集。使用Data控件可以显示、编辑和更新来字各种已有的数据库信息。此外，还可以访 问和操作远程的开放式数据库连接。除了使用Data控件之外，还运用的 Visual Basic 6.0 的新增控件功能，Dblistbox 它不象标准的列表框或组合框那样需要使用 Additem方法添加列表项。另外，它们还可以 有选择地把某个选定的字段传递给另一个 Data控件，使得它对于“查找表”应用程序很理 想。与其他的约束

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

9、的系统情况如图所示:图 图 2. 2入库界面当激活入库按钮时将出现以下的界面（图 ）1】n入库时间丽A型号|YY&4 攪票編号灵）产品名称电动供应商名称r 电话1:单价|30D结帐'痔呪1-f 1确定矚1 |瞻|个|退出J图 入库窗体（图）及其各个控件的主要属性类型控件控件名主要属性FormFrmrsglCap tio n= “入库情况”DataDatalDatabase name=“ Adb2.mdb”Recordsettype=1 ' DynasetCap tio n= “入库情况”Comma ndDialogComma nd1Capti on-上一个Comma n

10、d2Caption- “下一个”Comma nd3Caption- “确定”Comma nd4Caption- “取消”Comma nd5Caption- “退出”Comma nd6Caption- “增加”Comma nd7Caption- “修改”Comma nd8Caption- “删除”LableLablelCapti on-序号Lable2Caption- “型号”Lable3Caption- “产品名称”Lable4Caption- “数量”Lable5Capti on= “单价”Lable6Cap tio n= “入库时间”Lable7Cap tio n= “发票名称”Lable

11、8Cap ti on= “供应商名称”Lable9Capti on= “电话”LablelOCap tio n= “结帐情况”TextTextlCapti on=序号 Datasource= datalText2Caption= “型号” Datasource= “datal ”Text3Caption= “产品名称” Datasource= “datal ”Text4Caption= “数量” Datasource= “datal ”Text5Caption= “单价” Datasource= “datal ”Text6Capti on= “入库时间” Datasource= “ data1

12、 ”Text7Cap tio n= “发票名称” Datasource= “ data1 ”Text8Cap tio n= “供应商名称” Datasource= “ data1 ”Text9Caption= “电话” Datasource= “data1 ”Text10Capti on= “结帐情况” Datasource= “ data1 ”表 控件说明增加新记录当单击“确定”按钮后，“确定”和“取消”两个按钮显示，同时使其他的按钮不可见，这样做是为了防止用户的误操作。其主要程序如下：Private Sub Comma nd5_Click() xg = True显示“确定”和“取消”两个按

13、钮Command3.Visible =TrueCommand4.Visible =True取消其他按钮功能Command5.Enabled= FalseCommand6.Enabled= FalseCommand7.Enabled= FalseCommand8.Enabled= FalseCommand1.Enabled= FalseCommand2.Enabled= False' 添加一个新记录Textl.SetFocus '光标在 TEXT1 处end sub修改记录在调用EDIT方法之前，约束控件中的数据是只读的，用户无法对其进行修改。调用了 EDIT方法后，用户可以在约

14、束控件中修改记录的值。如果在对当前记录进行修改之前修改，未使用EDIT方法，将发生运行时错误。其主要程序如下：Private Sub Comma 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 ndl.E nabled = FalseComma nd2.E na

15、bled = False'对记录进行编辑Datal. Recordset.EditTextl.SetFocusEnd Sub删除记录当用户单击“删除”命令按钮时，为了防止用户误删除数据，程序将调用Msgbox()函数以弹出对话框，询问用户是否真的要删除该记录。如果用户单击对话框上的“确定”按钮， 程序调用记录集的Delete方法，将记录集的当前记录设置为空，并从原始的表中删掉当前 记录。但是删除的记录仍然是当前记录，只是将其变为了无效的记录，任何对其的引用都 会产生错误其主要程序如下：Private Sub Command6_Click() xg = TrueCommand3.Enab

16、ledTrueCommand4.EnabledTrue取消其他按钮功能Command5.EnabledFalseCommand6.EnabledFalseCommand7.EnabledFalseCommand8.EnabledFalseCommand1.EnabledFalseCommand2.Enabled = False对记录进行编辑Text1.SetFocusEnd SubPrivate Sub Command7_Click()删除记录 ")ss = MsgBox(" 真的要删除吗？ ", vbYesNo + vbInformation, "如果

17、要删除If (ss = vbYes) ThenComma nd2.E nabled = FalseEnd IfEnd IfEnd Sub移动数据当用户单击“上一个”和“下一个”按钮是，系统将自动转换数据，但注意，当移至第一 个记录时，“下一个”按钮将失效；移至最后一个记录是，“上一个”按钮也将失效。其中在设计程序时，为了防止“ NOCurrent Record”这样的错误，在移动记录指针时测试 记录集的BOF和EOFB性。如果单击“上一个”和“下一个”命令按钮将导致记录指针指 向空指针，则分别调用 Movefirst和Movelast方法，这是防止“ NO Current Record ”错

18、误出现的最简单和最有效的方法。与此同时，如果记录集的BOF属性为True,则置“上一个”命令按钮为非激活状态，是用户无法再单击该按钮。同样，当记录集的BOF属性为True 时，置“下一个”命令按钮为非激活状态。其主要程序如下：Private Sub Comma nd1_Click()xg = False如果是第一个记录，BOF属性为TRUECommand1.Enabled = FalseElseCommand2.Enabled = TrueCommand1.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()xg = False如果当前

19、记录是记录集中最后一个记录,EOF属性为 TRUEDatal .R ecordset.MoveLastComma nd2.E nabled = FalseElseComma nd2.E nabled = TrueComma nd1.E nabled = TrueEnd IfEnd Sub用Updata方法确认增加和修改当用户修改和增加完一个记录的数据后，需要将数据保存到数据库中。可以通过调用记录 集的 Updata 方法把数据保存到数据库中。单击“确定”按钮时，记录将被记如数据库 其主要程序如下：Private Sub Command3_Click()On Error GoTo error1x

20、g = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseCommand2.Enabled = TrueCommand1.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueComma nd6.E nabled = TrueComma nd7.E nabled = TrueComma nd8.E nabled = TrueExit Suberrorl: MsgBox Err.Description, vbOKOnly,"错误提示"End Sub用Canc

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

22、henSave = True> 1 ThenCommand1.Enabled = TrueCommand2.Enabled = TrueEnd IfElseIf Text2.Text = "" And xg = True Then提示 ")ss = MsgBox(" 必须要有型号'！ ", vbOKOnly + vbInformation, "Action = FalseCommand3.Visible = TrueCommand4.Visible = TrueCommand1.Visible = TrueCommand

23、2.Visible = TrueCommand7.Visible = TrueCommand8.Visible = TrueCommand5.Visible = TrueCommand6.Visible = TrueEnd IfEnd IfIf Action = data_actionunload Or Action = data_actionclose ThenSave = TrueEnd IfEnd Sub2.3出库界面当单击“出库”按钮的时候，系统将进入出库信息输入界面，如（图 ）所示，其基 本情况与入库相类似，依次不做具体介绍。径电型29987序号产品名称数量删除|上一平|下一个|垸票

24、编昌确定取消|退出|图 2.4查询界面当用户单击“查询”按钮时，系统将出现密码登陆框，因为查询的是内部资料，因此,需身份验证，如图图241随后将进入查询功能，如图二二碗畫二二二 W图 用户可根据不同需要进行“按型号”和“按单位”的查询单击“按型号”，系统将进入以型号为关键字段的查询，如图243。其中根据SQL语句的查询，选出出库型号与入库型号相同的记录，统计出入库与出库的总数量，然后可按“上一个”和“下一个”进行查询，也可按出库与入库分别查询记录。型号1|丹盟A3产品名稀中审动上一牛|总入库量总出库量下一个I奁询出库| 思出丨查谊入库|图243当用户单击“查询出库”按钮是，系统进入界面，如图2

25、44图 图窗体及其上面控件的属性设置控件类型控件名主要属性FormfrmdblistCap tio n= “查询出库”DataDatalDatabaseName=“db2.mdb”RecordsetType=1RecordSource= “出库型号”FrameFramelCap tio n= “具体情况”LableLablelCqptio n= “产品名称”Lable2Cqpti on= “单价”Lable3Cqptio n=发票编号Lable4Cqptio n= “顾客名称”Lable5Cqptio n= “结帐情况”TextTextlDatafield=“具体情况”Datasource=

26、“ Data1 ”Text2Datafield=“具体情况”Datasource= “ Datal ”Text3Datafield=“具体情况”Datasource= “ Datal ”Text4Datafield=“具体情况”Datasource= “ Datal ”Text5Datafield=“具体情况”Datasource= “ Datal ”DBlistDblistlListfield=“型号”Rowsource= “ Datal”表241单击Dblist框中的型号，Frame中将自动显示记录，以供用户查询当用户单击“查询入库”按钮时，将出现图 245的界面图245再回到查询界面，单

27、击“按单位”按钮，此时系统将进入按单位查询的截面,如图2.4.6247和图246分别按“顾客”和“供应商”按钮，系统将分别进入不同的查询界面，如图图248由于以下两个窗口的属性以及其设计方法类似与图4.3，因此也不做详细介绍杭州电为和宁仲車利抑上海电动制 上海电动訓 浙江电动n 浙江电动口厂 L厂 厂L厂L厂 厂请选择顾客名称退出图 音岛电动机厂 贡门电韵机厂厦门电动机型号|Y'J£A5 8入库吋恒1(012-12八犀数呈|0O-2-lZ題票瞩号财晅结帐情况Fr amel退岀图 2.5退出程序再回到登陆主窗口，（图），单击“退出”按钮，系统将退出程序，显示以下窗口（图），单击图中的“再见”，此程序也将结束再见工程1平台版木1.0.0版权所有桂雪書司图 第三章系统运行与调试测试本身的目的是尽可能地暴露程序中的错误，因