公司仓库管理系统.docx

《公司仓库管理系统.docx》由会员分享，可在线阅读，更多相关《公司仓库管理系统.docx（22页珍藏版）》请在三一办公上搜索。

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

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

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

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

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

6、已有的数据库，它是Visual Basic访问数据 库的最常用的工具之一。由于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进入界面由于系统的的界面比较单一，因此在设计过程中运用了许多网上下载的图片来 增添界面的可观性。在考虑到操作员的技术水平有限，因此在控件方面只运用了 COMMAND，这 样不仅能是界面清楚，更能是操作者很快学会，简单易懂。 “确定”可以进入界面，如按“系统信息”的话，将显示本系统的具体软硬件 情况。图 2.1.2图 2.1.32. 2入库界面序号|1理导wc |1入库时间发票编号|供应商名称.|oo-z-产品名称IH-

9、|C0980IWs-数星III单价I电话结帐暗况|300I* |确定 |修改|取消|册臃|人|退出|图 2.2.1控件类型控件名主要属性FormFrmrsglCaption= “入库情况”DataDatalDatabasename= Adb2.mdb”Recordsettype=1DynasetCaption= “入库情况”CommandDialogCommandlCaption=上一个”Command2Caption=下一个”Command3Caption=确定”Command4Caption=取消”Command5Caption=退出”Command6Caption=增加”Command?

10、Caption=修改”CommandsCaption=删除”LableLablelCaption=序号”Lable2Caption=型号”Lable3Caption=产品名称”Lable4Caption=数量”Lable5Caption=单价”Lable6Caption= “入库时间”Lable7Caption= “发票名称”Lable8Caption=供应商名称”Lable9Caption=电话”LablelOCaption=结帐情况”TextTextlCaption=序号” Datasource= datal”Text2Caption= 型号” Datasource= datal”Text

11、3Caption=产品名称” Datasource= datal”Text4Caption=数量” Datasource= datal”Text5Caption=“单价” Datasource= datal”Text6Caption=“入库时间” Datasource= datal”Text7Caption=“发票名称” Datasource= datal”Text8Caption供应商名称Datasource datal”Text9Caption=电话” Datasource= datal”TextlOCaption=结帐情况” Datasource= datal”表 2.2.1控件说明增加

12、新记录当单击“确定”按钮后，“确定”和“取消”两个按钮显示，同时使其他的按钮不 可见，这样做是为了防止用户的误操作。其主要程序如下：Private Sub Command5_Click()xg = True显示“确定”和“取消”两个按钮Command3.Visible = TrueCommand4.Visible = True取消其他按钮功能Command5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = False.Command8.Enabled = FalseCommand1.Enabled = False. Comma

13、nd2.Enabled = False.:.、Text1.SetFocus 光标在 TEXT1 处 ：end sub-，-,，修改记录、S、.W在调用EDIT方法之前，约束控件中的数据是只读的，用户无法对其进行修改。调 用了 EDIT方法后，用户可以在约束控件中修改记录的值。如果在对当前记录进行 修改之前修改，未使用EDIT方法，将发生运行时错误。其主要程序如下：Private Sub Command6_Click()xg = TrueCommand3.Enabled = TrueCommand4.Enabled = True取消其他按钮功能Command5.Enabled = FalseCo

14、mmand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand1.Enabled = FalseCommand2.Enabled = False对记录进行编辑Text1.SetFocusEnd Sub删除记录当用户单击“删除”命令按钮时，为了防止用户误删除数据，程序将调用Msgbox ()函数以弹出对话框，询问用户是否真的要删除该记录。如果用户单击对话框 上的“确定”按钮，程序调用记录集的Delete方法，将记录集的当前记录设置为 空，并从原始的表中删掉当前记录。但是删除的记录仍然是当前记录，只是将其

15、变为了无效的记录，任何对其的引用都会产生错误。其主要程序如下：Private Sub Command6_Click()xg = TrueCommand3.Enabled = True.Command4.Enabled = True取消其他按钮功能Command5.Enabled = False.:.、Command6.Enabled = False.，.Command7.Enabled = False-，-,Command8.Enabled = False.*-,Command1.Enabled = False-，- .-.、. ，Command2.Enabled = False，: / /，

16、对记录进行编辑Text1.SetFocus，:,End SubPrivate Sub Command7_Click()ss = MsgBox(真的要删除吗？ , vbYesNo + vbInformation,删除记录”)如果要删除If (ss = vbYes) ThenCommand2.Enabled = FalseEnd IfEnd IfEnd Sub .移动数据当用户单击“上一个”和“下一个”按钮是，系统将自动转换数据，但注意，当 移至第一个记录时，“下一个”按钮将失效；移至最后一个记录是，“上一个”按 钮也将失效。其中在设计程序时，为了防止“NO Current Record”这样的错

17、误，在移动记录指针 时测试记录集的BOF和EOF属性。如果单击“上一个”和“下一个”命令按钮 将导致记录指针指向空指针，则分别调用Movefirst和Movelast方法，这是防止“NOCurrent Record”错误出现的最简单和最有效的方法。与此同时，如果记录集的BOF 属性为True,则置“上一个”命令按钮为非激活状态，是用户无法再单击该按钮。 同样，当记录集的BOF属性为True时，置“下一个”命令按钮为非激活状态。 其主要程序如下：Private Sub Command1_Click()xg = False如果是第一个记录，BOF属性为TRUECommand1.Enabled =

18、FalseElseCommand2.Enabled = TrueCommand1.Enabled = True. End IfEnd Sub.-:广:，, 了Private Sub Command2_Click()xg = False-,如果当前记录是记录集中最后一个记录，EOF属性为TRUECommand2.Enabled = False，: / /，Else：.、，-Command2.Enabled = True ,、,Command1.Enabled = TrueEnd IfEnd Sub. /用Updata方法确认增加和修改当用户修改和增加完一个记录的数据后，需要将数据保存到数据库中。

19、可以通过 调用记录集的Updata方法把数据保存到数据库中。单击“确定”按钮时，记录将 被记如数据库。其主要程序如下：Private Sub Command3_Click()On Error GoTo error1xg = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseCommand2.Enabled = TrueCommand1.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = Tr

20、ueCommand8.Enabled = TrueExit Suberrorl: MsgBox Err.Description, vbOKOnly,错误提示”End Sub用CancelUpdata方法放弃增加和修改如果用户修改了约束控件里的数据后，在没有单击“确定”命令按钮之前，想放 弃刚才的增加或修改，则可以单击“取消”命令。由于其程序与Updata方法相似，因此不做重复解释。定义Data_Validata事件过程对于一个新记录或编辑的记录，如果不能维护引用完整性或不能反映该旧路的实 体原型，那么它就是无效的，并且破坏了数据库的完整性。为了在“入库情况” 表中建立一个有效的记录，就必须要有

21、主关键字段“型号”的值。因此，对已经 存在和新增加的旧路都要先测试其“型号”字段之后才可以执行更新操作。其主要程序如下：/当约束控件中内容改变时If Text2.DataChanged ThenSave = TrueCommand1.Enabled = TrueCommand2.Enabled = TrueEnd IfElseIf Text2.Text = And xg = True Thenss = MsgBox（必须要有型号 ！ ”, vbOKOnly + vbInformation,”提示”）Action = FalseCommand3.Visible = TrueCommand4.Vi

22、sible = TrueCommandl.Visible = TrueCommand2.Visible = TrueCommand7.Visible = TrueCommand8.Visible = TrueCommand5.Visible = TrueCommand6.Visible = TrueEnd IfEnd IfIf Action = data actionunload Or Action = data actionclose ThenSave = TrueEnd IfEnd Sub2.3出库界面当单击“出库”图 2.3.12.4查询界面当用户单击“查询”按钮时，系统将出现密码登陆框

23、，因为查询的是内部资料，职登录因此，需身份验证，如图2.4.12d随后将进入查询功能，如图2.4.2图 2.4.1图 2.4.2用户可根据不同需要进行“按型号”和“按单位”的查询。单击“按型号” “上一个”和“下一个”进行查询，也可按出库与入库分别查询记录。控件类型控件名主要属性FormfrmdblistCaption=查询出库”DataDatalDatabaseName= a:db2.mdb”RecordsetType=1RecordSource=出库型号”FrameFramelCaption= “具体情况”LableLablelCqption= “产品名称”Lable2Cqption=单价

24、”Lable3Cqption= “发票编号”Lable4Cqption= “顾客名称”Lable5Cqption= 结帐情况”TextText1Datafield=具体情况”Datasource= Data1”Text2Datafield=具体情况”Datasource= Data1”Text3Datafield=具体情况”Datasource= Data1”Text4Datafield=具体情况”Datasource= Data1”Text5Datafield=具体情况”Datasource= Data1”DBlistDblist1Listfield= “型号”Rowsource= Data

25、1”表 2.4.1单击Dblist框中的型号，Frame中将自动显示记录，以供用户查询。当用户单击“查询入库”图 2.4.5再回到查询界面，单击“按单位”按钮，此时系统将进入按单位查询的截面，图 2.4.6分别按“顾客”和“供应商”由于以下两个窗口的属性以及其设计方法类似与图4.3,因此也不做详细介绍。砌M 1宁波电动机厂宁波电动机厂上海电动彳机LF上海电动彳ir浙江电动彳IT浙江电动彳ir请选择顾客名称退出图 2.4.7Fr ：arriel请选择供应商名称谒出型亍|YYS45-B一入库时间|00-12-12单价400入库数量|00-12-12发票编号|M9T65结帐厝况F图 2.4.82.5

26、退出程序 “退出”“再见”，此程序也将结束。投枳再见工程1版祝所有佳雪公司政迎下旅登陆I平台版本L0.0图 2.5.1 J第三章系统运行与调试/测试本身的目的是尽可能地暴露程序中的错误，因此在编译完成后，我也尝试用现实数据来进行正确的调试。在从中曾出现过以下几个具体问题：1.MSDN不存在2.524数据转换错误3. 当单击“上一个”和“下一个”按钮时会出现数据不存在而退出程序4. DBLIST控件不能正确引入数据,当出现以上问题是，经过严密与反复的调试同样用了一些方法来解决1. 改变数据原来的设计方法，改用文本型的数据为多2. 仔细表明正确的日期输入法3. 当进行数据更新时，没有确定或取消，系

27、统将提示以下对话框，如图3.1图3.14.当主要关键字段“型号”没有输入时，系统也将提示以下对话框，如图3.2图3.25.当用户要删除记录时，为了保证不误操作，系统也将提出一个对话框，如图3.3图3.36.为了便有运行，还将程序打包，进行安装，在打包过程中，也出现以下对话框，如图3.4图3.4第四章思想小结在短短的两个月内，通过参考各种VB编程书籍、网上查找信息以及老师的耐 心知道下，完成了这次毕业设计一一浙江佳雪仓库管理系统。起初，我看了许多书籍，对该公司的要求也只是初步了解，因此在分析软件 需求中碰到了一些麻烦，但通过赵敏媛老师的正确引导下，把系统分析了比较透 彻了。在编译过程中，最让我印

28、象深刻的是用DATA控件访问数据，由于DATA 控件的局限性，因此在查询时，碰到了一些不能查询数据的麻烦，但VB6.0中有 新增的DBLIST功能，可以直接通过此控件来访问数据库，当我找到此方法时， 那么所完成的查询就更为完善了。这次毕业实际不尽使我了解了 VB在数据库方面编程的概要，更让我知道了计 算机的变成秘诀在于严密的思考与仔细的推敲，只有这样，才会有一个完善的软 件生成。当然这次的管理系统也一定存在着许多不足之处，但可以适合与如佳雪 公司这样的小型销售型公司，但为将来的升级提供了更多的方便的途径。完成这次设计，心理非常高兴，也有一点成就感，因为这是我独立完成的第 一个软件，我相信它将在今后的工作生活中为我带来不小的影响。最后，我还要感谢多方面的支持以及帮助过我的人，尤其是我的指导老师， 她仔细认真的态度，对我的帮助是非常大的，使得我更完善地完成了次管理系统。