仓库管理系统的VISAUL FOXPRO实现 （下）.docVIP

仓库管理系统的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 设备需求模块的设计 在设备需求模块中将实现设备需求数据的添加和保存日志等功能。首先通过V