仓库管理系统的VISAUL FOXPRO实现 （下）_计算机论文.docVIP

仓库管理系统的VISAUL FOXPRO实现 （下）_计算机论文 仓库管理系统的VISAUL FOXPRO实现 （下）_计算机论文 4．4 设备还库模块的设计 在设备还库模块中将实现设备还库数据的添加和修改库存等功能，按照前面介绍的步骤设计设备还库表。 设备还库表所可能用到的控件的属性如表所示： （1）Form1控件的主要属性： select 现有库存表 *先在该表单的数据环境中添加现有库存表 getid=thisform.设备号1.text1.value set order to 设备号 seek getid *在现有库存表中查找设备号等于getid的纪录 if found() getnum=thisform.归还数量1.text1.value update 现有库存表 set 现有库存=(现有库存-getnum) where (设备号=getid) insert into 操作日志表(操作员,操作内容,操作时间) values (thisform.归还人1.text1.value,设备还库,date()) *如果库存表中有该项设备，则更新库存表,同时更新操作日志 else messagebox(出错,1,错误的设备号) *如果没有该设备号则报告出错信息 endif 保存后运行表单，可得到如图所示的设备还库表。 4．5 设备需求模块的设计 在设备需求模块中将实现设备需求数据的添加和保存日志等功能。首先通过Visual Foxpro的表单向导生成所需的设备需求表单，选择部门需求表的所有可用字段，然后为保持程序风格的一致，继续采用表单的阴影式和图片按钮的风格。在“步骤3-排序次序”时。选择设备号的升序排列。最后单击“完成”按钮，把表单保存在“c:仓库管理”目录下，名为“设备需求.scx”。 通过表单向导生成的表单如图所示，我们可以调节控件的位置，修改表单中控件的属性，最后结果所下图所示： 在表单设计器中，双击“保存日志”命令按钮。添加click事件代码如下： insert into 操作日志表 (操作员,操作内容,操作时间) values (username,设备需求,date()) 双击回主界面命令按钮，添加click事件代码如下： thisform.release do form 仓库管理 保存对表单所作的修改。 4．6 设备采购模块的设计 在设备采购模块中将实现设备采购数据的添加和保存日志等功能。 （1）由数据表生成表单 通过Visual Foxpro的表单向导，生成设备采购计划表单。在选择数据库和表时，选择仓库管理数据库和设备采购计划表。在选择字段时，选择所有可用字段，选择阴影式和图片按钮作为设备采购计划表的样式。选择计划采购时间的升序排列作为设备采购计划表的索引。 （2）为窗体修改和添加命令按钮 添加2个命令按钮“保存日志”和“回主界面”。设置表单中控件的属性。下面的表列出了需要修改的控件的名称以及属性值。 （1）Form1控件的主要属性： （3）为按钮添加click事件代码： 在表单设计器中，双击保存日志命令按钮。添加click事件代码如下： insert into 操作日志表 (操作员,操作内容,操作时间) values (username,设备需求,date()) *把设备需求写入操作日志表中 双击回主界面按钮，添加click事件代码如下： thisform.release *释放本表单 do form 仓库管理 *运行仓库管理界面 保存对表单所作的修改，表单运行效果如图所示： 4．7 显示报表模块的设计 在该模块中，一共要显示3个报表，分别提供库存不足，库存过多和操作日志等信息。 1． 设计显示报表表单 在项目管理器的文档视图下选择“新建”，然后选择新建表单，如图所示。 在如图所示的空白表单中添加一个页框控件，并按照下表设置页框的属性，同时在数据环境里添加现有库存表和操作日志表。操作日志表 设置表格控件的属性，如表所示： grid1控件的主要属性表： 2． 代码设计 定义Pageframe1.Page1.grid1的init事件 运行“显示报表”表单，界面所图所示： local Custs1 select 设备号,最大库存,现有库存 from 现有库存表 where (现有库存gt最大库存) into cursor Custs1 thisform.页框.库存过多.库存过多表.recordsource=Custs1 定义Pageframe1.Page2.grid1的init事件 local Custs2 select 设备号,最小库存,现有库存 from 现有库存表 where (现有库存最小库存) i