仓库管理系统的VISAUL FOXPRO实现 （中）

1、仓库挨面系统的VISAUL FOXPRO真现 中34数据库规划的真如古需供阐收、没有雅面规划方案的根柢上获得数据库的逻辑规划方案以后，我们便可以正在VisualFxPr6.0数据库系统中真现该逻辑规划。翻开如下列图的“仓库挨面工程后，正在工程挨面器中展开数据文本夹，用鼠标选中数据库，单击左侧的“新建按钮，正在弹出的对话框中将该数据库文件存储为:仓库挨面仓库挨面.db。正在弹出的如下列图的数据库方案器中单击鼠标左键，挑选“新建表，为数据库增减数据表表的内容睹上节。上里以表装备代码表为例去介绍表的创立过程。挑选“新建表，正在弹出的对话框中将表存储为:仓库挨面装备代码.dbf。正在弹出的如下列图的表

2、方案器中挖写表的内容。字段设置完成后，单击“肯定按钮后为表输进数据，如没有念如古输进，可以先“挨消，当前再输进。详细要收以下：1如下列图，选中要输进数据的表，单击“阅读按钮。2此时弹出许多据的表，正在VisualFxPr6.0的主窗心中挑选“表，挑选“逃减新纪录后，便可以正在表中输进数据了。如下列图。没有过那种要收只能一次输进一条纪录，假设要输进第两条纪录时，需再次挑选逃减新纪录。假设有一个已有的数据表，便可以操做“操做逃减纪录将那个无数据的表逃减到当前表中，没有过真止该操做要供那两个表的规划完好一样。第四章系统主要成效模块的创立按照前里的阐收，我们将挨面系统的逻辑模块统一到6个理想成效模块中

3、，如下列图。切换里板用于切换没有同的操做，每项详细操做竣过后，皆会返回到切换里板。上里对各模块的做用举止分析：1装备进库模块：增减装备到库存中。2装备出库模块：将装备从库存与出并纪录。3装备借库模块：将合并到库存的装备保存到数据库。4装备需供模块：纪录各部门的装备需供。5装备采购模块：纪录要采购的装备。6切换里板：用于切换到没有同的操做，如装备进库、装备出库等。7表示报表：表示库存过量、库存没有够等疑息。上里便按照成效模块图去方案该仓库挨面系统。起尾正在VisualFxPr6.0中创立一个工程挨面器，以便挨面本系统中局部的数据，命名为“仓库挨面。一下操做均正在该工程挨面器及第止。以下局部表单的

4、“desktp属性局部设为“.T.-真。41成效挑选界里的方案：那一模块的主要成效是做为系统主界里为进进本系统没有同成效界里挑选供给一个接心，操做一个窗心去真现那一成效。起初创立一个表单，设劝aptin属性为“仓库挨面。正在该表单上增减6个“按钮控件，它们的“aptin属性分别为“装备进库，“装备出库，“装备借库，“部门需供，“装备采购，“表示报表。然后正在表单上增减“图像控件，并设其“streth属性为“2-streh扩大，“pitrue属性为图片所在的地位，本例中为“:仓库挨面01.jpg。正在“.and1(“aptin属性为“装备进库)控件的“lik事变中增减以下代码：dfr装备进库表t

5、hisfr.release正在“.and2(“aptin属性为“装备出库)控件的“lik事变中增减以下代码：dfr装备出库表thisfr.release正在“.and3(“aptin属性为“装备借库)控件的“lik事变中增减以下代码：dfr装备借库表thisfr.release正在“.and4(“aptin属性为“部门需供)控件的“lik事变中增减以下代码：dfr部门需供表thisfr.release正在“.and5(“aptin属性为“装备采购)控件的“lik事变中增减以下代码：dfr装备采购表thisfr.release正在“.and6(“aptin属性为“表示报表)控件的“lik事变中增

6、减以下代码：dfr表示报表thisfr.release正在“fr1的属性里挑选“autenter设置为“.T.-真，同时将“baklr设置为“255,255,255，“indstate设置为“0-伟大。增减“fr1的“init事变的代码以下：setdiretryt:仓库挨面*将程序的默许的途径指背资本所在的文件夹该表单方案结果如下列图：42装备进库模块的方案正在装备进库模块中将真现装备数据的增减战进库等成效。本模块方案采与先用指导天死表单，然后建正的要收真现。起尾正在工程挨面器的文档视图下单击“新建按钮，正在接下去的指导中，“数据库战表挑选“仓库挨面和“装备进库表，那是前里定义好的数据库战表。

7、因为装备进库需要表示局部的字段，果而我们将可用字段局部移至选定字段，如下列图，单击“下一步按钮，正在表单款式中，挑选“阴影式和“图片按钮，如下列图。左上角的窗心供给了表单款式的预览成效，图片按钮战文本按钮的区分正在于表示的工夫是以图片去表达成效照旧翰朱去表达，真现成效的函数出有区分。挑选“上一步按钮可以跳回上一个界里对表单中表示的字段举止建正。单击“下一步按钮后，指导举止到“程序3-排序次第，如下列图，挑选“装备号为索引，并挑选降序罗列。终了预览表单，核对每项的设置，完成表单指导，如下列图。值得注意的是，正在完毕表单指导前，可挑选“保存表单以备将去操做，“保存并运转表单，年夜要“保存表单并用表

8、单方案器建正表单。因为VisualFxPr6.0指导天死的表单只具有广泛性，对于当前方案的仓库挨面系统借需要一定的改动，果而以我们挑选“保存表单并用表方案器建正表单。单击“完成按钮系统提醒保存表单，将表单保存为“装备进库表.sx，存于:仓库挨面目录下。然后翻开表单建正器天死的表单，如下列图。正在建正BUTTNSET时，可以经由过程属性窗心的下推列表选订单个按钮，调整其地位战此中属性。如下列图。按照成效需供，把“dprint、“dexit、“dDelete战“dedit的Visible属性皆设为“.F.-假。增减2个命令按钮，aptin属性分别设为“建正库存战“回主界里。正在“回主界里命令按钮的

9、lik事变中增减代码以下：thisfr.releasedfr仓库挨面正在建正库存命令按钮的lik事变中增减代码以下：selet现有库存表getid=thisfr.装备装备号seekgetidiffund()getnu=thisfr.进库数量装备号=getid)elseinsertint现有库存表(装备号,现有库存,最年夜库存,最小库存);value(thisfr.装备数量endifinsertint操做日志表(操做员,操做内容,操做装备进库,date()保存后运转表单，界里如下列图：43装备出库模块的方案：正在装备出库模块中将真现装备出库数据的增减战建正库存等成效。该模块的成效战装备进库的成效类似。详细操做可以参考装备进库模块的方案，方案最终的界里如下列图。正在表单的左上角减上了表示当前工夫的成效，增减标签label2的aptin属性设为“当前工夫；增减label3的aptin属性设为空；为当前表单的label3init事变增减以下代码：this.aptin=dt(date()该模块详细真现过程没有再一一详细分析。上里列出了表单中所用到控件的属性值。(1)Fr1控件的主要属性：上里时装备出库表单中“建正库存命令按钮的lik事变的代码：selet现有库存表*先正在该表单的数据状况中增减现有库存表getid=thisfr.装备装备