根据功能需求，把“cmdprint”、“”cmdexit、“cmdDelete”和“cmdedit”的Visible属性都设为“.F.-假”。添加2个命令按钮，Caption属性分别设为“修改库存”和“回主界面”。
在“回主界面”命令按钮的click事件中添加代码如下：
thisform.release
do form 仓库管理
在修改库存命令按钮的click事件中添加代码如下：
select 现有库存表
getid=thisform.设备号1.text1.value
set order to 设备号
seek getid
if found()
getnum=thisform.入库数量1.text1.value
update 现有库存表 set 现有库存=(现有库存+getnum) where (设备号=getid)
else
insert into 现有库存表 (设备号,现有库存,最大库存,最小库存);
value (thisform.设备号1.text1.value,thisform.入库数量1.text1.value,1000,10)
endif
insert into 操作日志表(操作员,操作 内容 ,操作时间);
values (thisform.采购员1.text1.value,'设备入库',date())
保存后运行表单，界面如图所示： 
4．3设备出库模块的设计：
在设备出库模块中将实现设备出库数据的添加和修改库存等功能。该模块的功能和设备入库的功能相似。具体操作可以 参考 设备入库模块的设计，设计最终的界面如图所示。 
在表单的左上角加上了显示当前时间的功能，添加标签label2的caption属性设为“当前时间”；添加label3的caption属性设为空；为当前表单的label3init事件添加如下代码：
this.caption=dtoc(date())
该模块具体实现过程不再一一详细说明。下面列出了表单中所用到控件的属性值。
(1) Form1控件的主要属性： 
下面时设备出库表单中“修改库存”命令按钮的click事件的代码：
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