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个报表,分别提供库存不足,库存过多和操作日志等信息。




