公司仓库管理系统

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

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

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

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

5、写代码操纵这些事件的响应方法。使用 Visual Basic 开发数据库应用程序的一般步骤如下所示：（1）建立数据库（ 2）建立用户界面（3）编写代码4）调试运行（5）编译应用程序（6）公布应用程序界面设计（ 1）控件的位置（2）界面元素的一致性（3）保持界面的简明（ 4）使用颜色和图象：增加视觉的感染力（5）图象和图标：增加应用程序的视觉上的趣味（ 6）选取字体Visual Basic 应用程序的结构：由于 Visual Basic 应用程序是基于对象的， 因此应用程序的代码结构确 实是该程序在屏幕上物理表示的模型。依照定义，对象包含数据和代码。在 屏幕上看到的窗体代表属性，这些属性定义了窗

6、体的外观和内在特性。 本设计要紧是运用 Data 控件。Data 控件要紧是打开、 访问并操作已有的数据库， 它是 Visual Basic 访 问数据库的最常用的工具之一。 由于 Data 控件使用 Microsoft 的 Jet 引擎来 实现数据访问（与 Microsoft Access 所用的数据库引擎相同） ，使用户能够 无缝地访问专门多标准的数据库格式，而且无需编写任何代码就能够创建数 据应用程序，因此这种 Visual Basic 内部的 Data 控件最合适小的（桌面） 数据库，诸如 Access和ISAM数据库等。由于 Data 控件是 Visual Basic 的内部控件，因

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

8、框或组合框那样需要使用 AddItem 方法添加列 表项。另外，它们还能够有选择地把某个选定的字段传递给另一个 Data 控件， 使得它关于“查找表”应用程序专门理想。与其他的约束控件不同，这些控件能够同时显示多个记录。约束数据列 表控件类似于一般的列表框控件，能够显示记录集中的数据，网格中的每一 行代表记录集中的一个记录。第二章治理系统的设计与分析2.1进入界面由于系统的的界面比较单一，因此在设计过程中运用了许多网上下载的图 片来增添界面的可观性。在考虑到操作员的技术水平有限，因此在控件方面只运用了COMMANDra此不仅能是界面清晰，更能是操作者专门快学会，简单易明白。图是进入本系统的状态

9、图，单击“确定”能够进入界面，如按“系 统信息”的话，将显示本系统的具体软硬件情况。欢迎迸入本公司系统图 当图中的“确定”按钮被激活时，将进入图的屏幕，界面的图片是图片引入的，接着将进入正式的编辑或查询状态。具体的系统情况如图所示：图 图 2. 2入库界面当激活入库按钮时将出现以下的界面（图 221 ）入库时间型号jc(J9&0产品名称供应商若称|Ws电话单析1结帐情况二乂 I确定|冋I取消I瞻Ix 退出|图 入库窗体（图）及其各个控件的要紧属性类型控件控件名要紧属性FormFrmrsglCaptio n= “入库情况”DataDatalDatabase name二 “ Adb2.md

10、b” Recordsettype=1 ' Dynaset Captio n= “入库情况”Comma ndDialogComma nd1Caption二“上一个”Comma nd2Caption二“下一个”Comma nd3Caption二“确定”Comma nd4Captio n= “取消”Comma nd5Caption二“退出”Comma nd6Captio n= “增加”Comma nd7Captio n= “修改”Comma nd8Captio n= “删除”LableLablelCaption二“序号”Lable2Captio n= “型号”Lable3Captio n=

11、“产品名称”Lable4Caption二“数量”Lable5Caption二“单价”Lable6Captio n= “入库时刻”Lable7Captio n= “发票名称”Lable8Captio n= “供应商名称”Lable9Caption二“电话”LablelOCaptio n= “结帐情况”TextTextlCaption二“序号” Datasource二 “data1 ”Text2Caption二“型号” Datasource二 “data1 ”Text3Caption二“产品 名称” Datasource二“ data1 ”Text4Caption二 “数量” Datasource

12、二 “data1 ”Text5Caption二 “单价” Datasource二 “data1 ”Text6Caption二“入库时 刻 ” Datasource二“ data1 ”Text7Caption二“发票 名称” Datasource二“ data1 ”Text8Caption二 “供应商名称” Datasource二 “ data1 ”Text9Caption二“电话” Datasource= “data1 ”TextIOCaption二 “结 帐 情 况 ” Datasource= “ data1 ”表221控件讲明?增加新记录当单击“确定”按钮后，“确定”和“取消”两个按钮显示

13、，同时使其他的按钮不可见，如此做是为了防止用户的误操作 其要紧程序如下：Private Sub Command5_Click()xg = True' 显示“确定”和“取消”两个按钮Command3.Visible =TrueCommand4.Visible =True取消其他按钮功能Command5.Enabled= FalseCommand6.Enabled= FalseCommand7.Enabled= FalseCommand8.Enabled= FalseCommand1.Enabled= FalseCommand2.Enabled= False' 添加一个新记录Tex

14、tl.SetFocus '光标在 TEXT1 处end sub? 修改记录 在调用 EDIT 方法之前，约束控件中的数据是只读的， 用户无法对其进行修改。调用了 EDIT 方法后，用户能够在约束控件中修改记录的值。 假如在对当前记 录进行修改之前修改，未使用 EDIT 方法，将发生运行时错误。 其要紧程序如下：Private Sub Command6_Click()xg = TrueCommand3.Enabled =TrueCommand4.Enabled =True取消其他按钮功能Command5.Enabled =FalseCommand6.Enabled =FalseComma

15、nd7.Enabled =FalseCommand8.Enabled =FalseCommand1.Enabled =FalseCommand2.Enabled =False' 对记录进行编辑Text1.SetFocusEnd Sub? 删除记录 当用户单击“删除”命令按钮时，为了防止用户误删除数据，程序将调用Msgbox ()函数以弹出对话框，询问用户是否确实要删除该记录。假如用户 单击对话框上的“确定”按钮，程序调用记录集的 Delete 方法，将记录集的 当前记录设置为空，并从原始的表中删掉当前记录。然而删除的记录仍然是 当前记录，只是将其变为了无效的记录，任何对其的引用都会产生

16、错误。其要紧程序如下：Private Sub Command6_Click()xg = TrueCommand3.Enabled = TrueCommand4.Enabled = True' 取消其他按钮功能Command5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand1.Enabled = FalseCommand2.Enabled = False对记录进行编辑Text1.SetFocusEnd SubPrivate Sub Command7

17、_Click()ss = MsgBox(" 确实要删除吗？ ", vbYesNo + vbInformation, "删除记录 ")' 假如要删除If (ss = vbYes) ThenCommand2.Enabled = FalseEnd IfEnd IfEnd Sub? 移动数据 当用户单击“上一个”和“下一个”按钮是，系统将自动转换数据，但注意，上一当移至第一个记录时， “下一个”按钮将失效；移至最后一个记录是， 个”按钮也将失效。其中在设计程序时，为了防止“ NOCurrent Record ”如此的错误，在移动记 录指针时测试记录集的 BOF和EOF属性。假如单击“上一个”和“下一个” 命令按钮将导致记录指针指向空指针，则分不调用 Movef