公司仓库管理系统(doc22)

精心整理企业库房管理系统第一章企业介绍与系统的需求解析1.1企业简介佳雪企业是一个专销电动机的企业，主要业务是进行电动机的进货与分销，作为一个销售的中介企业，其要求有入库与出库的主要数据库，能够简单的记录数据，而且能够进行多方面的查问，使得企业有较详尽的数据统计与解析。其主要业务如以以下列图所示：1.厂商库房顾客图2.查问功能1）按型号查问有两个结果：A生成入库量、出库量、节余量生成两个数据根源表，包括出库根源与入库根源；2）按单位查问结果：生成型号、产品名称、时间（入/出库）、单价重生成进出库的两个基本情况表，包括供给商和顾客的基本情况，如型号、出/入库时间，单价，发票编号、结帐情况；3.本系统主要运用VisualBasic的内嵌数据库Access来记录数据；4.产品信息：序号（自动生成）、型号（文本）、入库时间（日期）、出库时间（日期）、数量（数字）、发票编号（文本）、单价（钱币）、厂商名称（文本）、供给商名称（文本）、厂商与供给商的电话（数字）、结帐情况（是/否）[是为0，否为-1]精心整理2解析与描绘.依据1.1章节的详尽要求，总结出以下的数据流程：输入数据入库出库查问增修加改

删除

增修加改

删除

单位

型号供应

顾客

入库

出库商图数据流程.依据以上情况，按要求设计了几个有关的数据库表：出库、入库查问：查问结余、出库查问、入库查问、型号出库查问、型号入库查问主要的出库表属性如以下表所示：字段名属性字段大小序号自动生成长整型型号文本50产品名称文本50出库数量数字长整型单价钱币自动小数出库时间日期年-月-日发票编号文本50顾客电话文本50结帐情况是/否2表由于入库表与出库想近似，因此在此不做详尽介绍。为了方便查问，因此在出库与入库的基础上增添了几个查问表，详尽字段以下：精心整理1.查问结余：型号、产品名称、出库数量、入库数量2.出库查问：顾客名称、型号、出库时间、单价、出库数量OFSUM、发票编号、结帐情况3.入库查问：供给商名称、型号、入库时间、单价、入库数量OFSUM、发票编号、结帐情况4.出库型号查问：型号、产品名称、顾客名称、单价、发票编号、结帐情况5.入库型号查问：型号、产品名称、供给商名称、单价、发票编号、结帐情况1.3数据库的主要特点数据库中的每一个表都必然符合下面几个特点：表中的每一个单元的内容只有一个值所有字段的名称都不同样记录的前后序次和字段的左右序次能够变化，不受限制数据库中的表的上下序次不受限制表中不应有内容圆满同样的记录表中的每一个字段都必然有同样的数据种类使用VisualBasic开发应用程序的两个主要思想：可视设计事件驱动编程VisualBasic应用程序不同样于其他语言开发的单调性程序。使用VisualBasic编程时，必然第一确定应用程序怎样与用户交互，如鼠标单击，用户必然编写代码控制这些事件的响应方法。使用VisualBasic开发数据库应用程序的一般步骤以下所示：（1）成立数据库精心整理2）成立用户界面3）编写代码4）调试运行5）编译应用程序6）宣布应用程序界面设计1）控件的地点2）界面元素的一致性3）保持界面的简洁4）使用颜色和图象：增添视觉的感染力5）图象和图标：增添应用程序的视觉上的兴趣6）采用字体VisualBasic应用程序的构造：由于VisualBasic应用程序是鉴于对象的，因此应用程序的代码构造就是该程序在屏幕上物理表示的模型。依据定义，对象包括数据和代码。在屏幕上看到的窗体代表属性，这些属性定义了窗体的外观和内在特点。本设计主假如运用Data控件。Data控件主假如翻开、接见并操作已有的数据库，它是VisualBasic接见数据库的最常用的工具之一。由于Data控件使用Microsoft的Jet引擎来实现数据接见（与MicrosoftAccess所用的数据库引擎同样），使用户能够无缝地接见很多标准的数据库格式，而且无需编写任何代码就能够创立数据应用程序，因此这种

VisualBasic

内部的Data控件最合适小的（桌面）数据库，诸如

Access和

ISAM

数据库等。由于Data控件是VisualBasic的内部控件，因此能够直接在标准工具箱中找到该精心整理控件。在程序运行过程中，只需用鼠标单击控件上的箭头按钮，系统将自动改正Data控件指向的记录和显示在拘束控件中的数据，而不需要编写任何代码。能够将多个Data控件同时增添到一个工程甚至是同一个窗体中。其他，每个控件能够连结到不同样的数据库或同一个数据库的不同样表上，还能够够和代码一同查问知足的语句的表的记录集。使用Data控件能够显示、编写和更新来字各样已有的数据库信息。其他，还能够够接见和操作远程的开放式数据库连结。除了使用Data控件之外，还运用的VisualBasic6.0的新增控件功能，Dblistbox它不象标准的列表框或组合框那样需要使用AddItem方法增添列表项。其他，它们还能够够有选择地把某个选定的字段传达给另一个Data控件，使得它关于“查找表”应用程序很理想。与其他的拘束控件不同样，这些控件能够同时显示多个记录。拘束数据列表控件近似于一般的列表框控件，能够显示记录集中的数据，网格中的每一行代表记录集中的一个记录。第二章管理系统的设计与解析2.1进入界面由于系统的的界面比较单调，因此在设计过程中运用了很多网上下载的图片来增添界面的可观性。在考虑到操作员的技术水平有限，因此在控件方面只运用了COMMAND，这样不只能是界面清楚，更能是操作者很快学会，简单易懂。“确定”能够进入界面，如按“系统信息”的话，将显示本系统的详首饰硬件情况。精心整理图“确定”图图2入库界面精心整理图控件控件名种类FormFrmrsg1DataData1CommandDialogCommand1Command2Command3Command4Command5Command6Command7Command8LableLable1Lable2Lable3Lable4Lable5Lable6Lable7Lable8Lable9Lable10

主要属性Caption=“入库情况”Databasename=“A\db2.mdb”Recordsettype=1’DynasetCaption=“入库情况”Caption=“上一个”Caption=“下一个”Caption=“确定”Caption=“取消”Caption=“退出”Caption=“增添”Caption=“改正”Caption=“删除”Caption=“序号”Caption=“型号”Caption=“产品名称”Caption=“数量”Caption=“单价”Caption=“入库时间”Caption=“发票名称”Caption=“供给商名称”Caption=“电话”Caption=“结帐情况”精心整理TextText1Caption=“序号”Datasource=“data1”Text2Caption=“型号”Datasource=“data1”Text3Caption=“产品名称”Datasource=“data1”Text4Caption=“数量”Datasource=“data1”Text5Caption=“单价”Datasource=“data1”Text6Caption=“入库时间”Datasource=“data1”Text7Caption=“发票名称”Datasource=“data1”Text8Caption=“供给商名称”Datasource=“data1”Text9Caption=“电话”Datasource=“data1”Text10Caption=“结帐情况”Datasource=“data1”表控件说明增添新记录当单击“确定”按钮后，“确定”和“取消”两个按钮显示，同时使其他的按钮不能见，这样做是为了防范用户的误操作。其主要程序以下：PrivateSubCommand5_Click()xg=True'显示“确定”和“取消”两个按钮Command3.Visible=TrueCommand4.Visible=True'取消其他按钮功能Command5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCommand1.Enabled=FalseCommand2.Enabled=False'增添一个新记录Text1.SetFocus'光标在TEXT1处endsub改正记录在调用EDIT方法以前，拘束控件中的数据是只读的，用户无法对其进行改正。调用了EDIT方法后，用户能够在拘束控件中改正记录的值。假如在对目前记录进行改正以前改正，未使用EDIT方法，将发生运行时错误。精心整理其主要程序以下：PrivateSubCommand6_Click()xg=TrueCommand3.Enabled=TrueCommand4.Enabled=True'取消其他按钮功能Command5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCommand1.Enabled=FalseCommand2.Enabled=False'对记录进行编写Text1.SetFocusEndSub删除记录当用户单击“删除”命令按钮时，为了防范用户误删除数据，程序将调用Msgbox（）函数以弹出对话框，咨询用户能否真的要删除该记录。假如用户单击对话框上的“确定”按钮，程序调用记录集的Delete方法，将记录集的目前记录设置为空，并从原始的表中删掉目前记录。但是删除的记录仍旧是目前记录，但是将其变成了无效的记录，任何对其的引用都会产生错误。其主要程序以下：PrivateSubCommand6_Click()xg=TrueCommand3.Enabled=TrueCommand4.Enabled=True'取消其他按钮功能Command5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCommand1.Enabled=FalseCommand2.Enabled=False'对记录进行编写Text1.SetFocusEndSubPrivateSubCommand7_Click()ss=MsgBox("真的要删除吗？",vbYesNo+vbInformation,"删除记录")'假如要删除精心整理If(ss=vbYes)ThenIfThenCommand2.Enabled=FalseEndIfEndIfEndSub挪动数据当用户单击“上一个”和“下一个”按钮是，系统将自动变换数据，但注意，当移至第一个记录时，“下一个”按钮将无效；移至最后一个记录是，“上一个”按钮也将无效。其中在设计程序时，为了防范“NOCurrentRecord”这样的错误，在挪动记录指针时测试记录集的BOF和EOF属性。假如单击“上一个”和“下一个”命令按钮将致使记录指针指向空指针，则分别调用Movefirst和Movelast方法，这是防范“NOCurrentRecord”错误出现的最简单和最有效的方法。与此同时，假如记录集的BOF属性为True,则置“上一个”命令按钮为非激活状态，是用户无法再单击该按钮。同样，当记录集的BOF属性为True时，置“下一个”命令按钮为非激活状态。其主要程序以下：PrivateSubCommand1_Click()xg=False'假如是第一个记录，BOF属性为TRUEIfThenCommand1.Enabled=FalseElseCommand2.Enabled=TrueCommand1.Enabled=TrueEndIfEndSubPrivateSubCommand2_Click()xg=False'假如目前记录是记录集中最后一个记录，EOF属性为TRUEIfThenCommand2.Enabled=FalseElseCommand2.Enabled=TrueCommand1.Enabled=TrueEndIf精心整理EndSub用Updata方法确认增添和改正当用户改正和增添完一个记录的数据后，需要将数据保留到数据库中。能够经过调用记录集的Updata方法把数据保留到数据库中。单击“确定”按钮时，记录将被记如数据库。其主要程序以下：PrivateSubCommand3_Click()OnErrorGoToerror1xg=TrueCommand3.Enabled=FalseCommand4.Enabled=FalseCommand2.Enabled=TrueCommand1.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueCommand8.Enabled=TrueExitSuberror1:MsgBoxErr.Description,vbOKOnly,"错误提示"EndSub用CancelUpdata方法放弃增添和改正假如用户改正了拘束控件里的数据后，在没有单击“确定”命令按钮以前，想放弃刚才的增添或改正，则能够单击“取消”命令。由于其程序与Updata方法相像，因此不做重复解说。定义Data_Validata事件过程关于一个新记录或编写的记录，假如不能够保护引用圆满性或不能够反应该旧路的实体原型，那么它就是无效的，而且损坏了数据库的圆满性。为了在“入库情况”表中成立一个有效的记录，就必然要有主要点字段“型号”的值。因此，对已经存在和新增添的旧路都要先测试其“型号”字段此后才能够履行更新操作。其主要程序以下：'当拘束控件中内容改变时精心整理IfText2.DataChangedThenSave=TrueIf>1ThenCommand1.Enabled=TrueCommand2.Enabled=TrueEndIfElseIfText2.Text=""Andxg=TrueThenss=MsgBox("必然要有‘型号’！",vbOKOnly+vbInformation,"提示")Action=FalseCommand3.Visible=TrueCommand4.Visible=TrueCommand1.Visible=TrueCommand2.Visible=TrueCommand7.Visible=TrueCommand8.Visible=TrueCommand5.Visible=TrueCommand6.Visible=TrueEndIfEndIfIfAction=data_actionunloadOrAction=data_actioncloseThenSave=TrueEndIfEndSub2.3出库界面当单击“出库”图精心整理2.4查问界面当用户单击“查问”按钮时，系统将出现密码登岸框，由于查问的是内部资料，因此，需身份考证，如图图随后将进入查问功能，如图图用户可依据不同样需要进行“按型号”和“按单位”的查问。单击“按型号”“上一个”和“下一个”进行查问，也可按出库与入库分别查问记录。图精心整理当用户单击“查问出库”按钮是，系统进入界面，如图图控件种类控件名主要属性FormfrmdblistCaption=“查问出库”DataData1DatabaseName=“db2.mdb”RecordsetType=1FrameFrame1RecordSource=“出库型号”Caption=“详尽情况”LableLable1Cqption=“产品名称”Lable2Cqption=“单价”Lable3Cqption=“发票编号”Lable4Cqption=“顾客名称”Lable5Cqption=“结帐情况”TextText1Datafield=“详尽情况”Text2Datasource=“Data1”Datafield=“详尽情况”Text3Datasource=“Data1”Datafield=“详尽情况”Datasource=“Data1”Text4Datafield=“详尽情况”Text5Datasource=“Data1”Datafield=“详尽情况”DBlistDblist1Datasource=“Data1”Listfield=“型号”Rowsource=“Data1”表单击Dblist框中的型号，Frame中将自动显示记录，以供用户查问。精心整理当用户单击“查问入库”图再回到查问界面，单击“按单位”按钮，此时系统将进入按单位查问的截面，如图图分别按“顾客”和“供给商”由于以下两个窗口的属性以及其设计方法近似与图4.3，因此也不做详尽介绍。精心整理图图2.5退出程序“退出”“再见”，此程序也将结束。图第三章系统运行与调试测试自己的目的是尽可能地裸露程序中的错误，因此在编译达成后，我也试一试用现实数据来进行正确的调试。在从中曾出现过以下几个详尽问题：1.MSDN不存在2.524数据变换错误3.当单击“上一个”和“下一个”按钮时会出现数据不存在而退出程序