|
4．1功能选择界面的设计： 这一模块的主要功能是作为系统主界面为进入本系统不同功能界面选择提供一个接口，使用一个窗口来实现这一功能。 paper51.com 首先建立一个表单，设取“caption”属性为“仓库管理”。在该表单上添加6个“按钮”控件，它们的“caption”属性分别为“设备入库”，“设备出库”，“设备还库”，“部门需求”，“设备采购”，“显示报表”。然后在表单上添加“图象控件”，并设其“stretch”属性为“2-strech（扩展）”，“pictrue”属性为图片所在的位置，本例中为“c:\仓库管理\001.jpg”。 copyright paper51.com
在“comm.and1”(“caption”属性为“设备入库”)控件的“click”事件中添加如下代码： 内容来自www.paper51.com do form 设备入库表 内容来自论文无忧网 www.paper51.com thisform.release http://www.paper51.com 在“comm.and2”(“caption”属性为“设备出库”)控件的“click”事件中添加如下代码： copyright paper51.com do form 设备出库表 paper51.com thisform.release 内容来自论文无忧网 www.paper51.com 在“comm.and3”(“caption”属性为“设备还库”)控件的“click”事件中添加如下代码： 内容来自www.paper51.com do form 设备还库表 paper51.com thisform.release 内容来自论文无忧网 www.paper51.com 在“comm.and4”(“caption”属性为“部门需求”)控件的“click”事件中添加如下代码： http://www.paper51.com
do form 部门需求表 内容来自论文无忧网 www.paper51.com thisform.release paper51.com 在“comm.and5”(“caption”属性为“设备采购”)控件的“click”事件中添加如下代码： 内容来自www.paper51.com do form 设备采购表 copyright paper51.com
thisform.release copyright paper51.com
在“comm.and6”(“caption”属性为“显示报表”)控件的“click”事件中添加如下代码： paper51.com
do form 显示报表 http://www.paper51.com thisform.release paper51.com
在“form1”的属性里选择“autocenter”设置为“.T.-真”，同时将“backcolor” http://www.paper51.com 设置为“255,255,255”，“windowstate”设置为“0-普通”。 paper51.com 添加“form1”的“init”事件的代码如下： 内容来自www.paper51.com set directory to c:\仓库管理\ http://www.paper51.com *将程序的默认的路径指向资源所在的文件夹 paper51.com 该表单设计结果如图所示： paper51.com
内容来自www.paper51.com 4．2 设备入库模块的设计 paper51.com 在设备入库模块中将实现设备数据的添加和入库等功能。本模块设计采用先用向导生成表单，然后修改的方法实现。 paper51.com 首先在项目管理器的文档视图下单击“新建”按钮， copyright paper51.com
copyright paper51.com paper51.com 在接下来的向导中，“数据库和表”选择“仓库管理”以及“设备入库表”，这是前面定义好的数据库和表。 copyright paper51.com 由于设备入库需要显示所有的字段，因此我们将可用字段全部移至选定字段，如图所示，单击“下一步”按钮， 内容来自www.paper51.com
copyright paper51.com 在表单样式中，选择“阴影式”以及“图片按钮”，如图所示。左上角的窗口提供了表单样式的预览功能，图片按钮和文本按钮的区别在于显示的时候是以图片来表达功能还是文字来表达，实现功能的函数没有区别。选择“上一步”按钮可以跳回上一个界面对表单中显示的字段进行修改。 http://www.paper51.com
paper51.com 单击“下一步”按钮后，向导进行到“步骤3-排序次序”，如图所示，选择“设备号”为索引，并选择升序排列。最后预览表单，核对每项的设置，完成表单向导，如图所示。 paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com
值得注意的是，在结束表单向导前，可选择“保存表单以备将来使用”，“保存并运行表单”，或者“保存表单并用表单设计器修改表单”。由于Visual FoxPro6.0向导生成的表单只具有普遍性，对于当前设计的仓库管理系统还需要一定的改变，因此以我们选择“保存表单并用表设计器修改表单”。 内容来自www.paper51.com
单击“完成”按钮系统提示保存表单，将表单保存为“设备入库表.scx”，存于c:\仓库管理目录下。然后打开表单修改器生成的表单，如图所示。 http://www.paper51.com 在修改BUTTONSET时，可以通过属性窗口的下拉列表选定单个按钮，调整其位置和其它属性。如图所示。 内容来自论文无忧网 www.paper51.com
paper51.com 根据功能需求，把“cmdprint”、“”cmdexit、“cmdDelete”和“cmdedit”的Visible属性都设为“.F.-假”。添加2个命令按钮，Caption属性分别设为“修改库存”和“回主界面”。 http://www.paper51.com
在“回主界面”命令按钮的click事件中添加代码如下： http://www.paper51.com
thisform.release http://www.paper51.com do form 仓库管理 内容来自www.paper51.com 在修改库存命令按钮的click事件中添加代码如下： 内容来自论文无忧网 www.paper51.com select 现有库存表 内容来自论文无忧网 www.paper51.com getid=thisform.设备号1.text1.value 内容来自论文无忧网 www.paper51.com
set order to 设备号 paper51.com seek getid copyright paper51.com if found() 内容来自论文无忧网 www.paper51.com
getnum=thisform.入库数量1.text1.value 内容来自论文无忧网 www.paper51.com update 现有库存表 set 现有库存=(现有库存+getnum) where (设备号=getid) 内容来自www.paper51.com
内容来自www.paper51.com
else http://www.paper51.com insert into 现有库存表 (设备号,现有库存,最大库存,最小库存); 内容来自论文无忧网 www.paper51.com
value(thisform.设备号1.text1.value,thisform.入库数量1.text1.value,1000,10) copyright paper51.com
http://www.paper51.com
endif http://www.paper51.com insert into 操作日志表(操作员,操作内容,操作时间); 内容来自论文无忧网 www.paper51.com values (thisform.采购员1.text1.value,'设备入库',date()) copyright paper51.com 保存后运行表单，界面如图所示： 内容来自论文无忧网 www.paper51.com
paper51.com |