在Oftenbuttons1控件的_SaveButtonClick方法程序下添加如下代码：
DIME  txt(13),get(9)
***存入信息
SELE 商品信息表
thisrecno=recno()
FOR m=1 TO 6
txtname="text"+alltrim(str(m))     
txt(m)=alltrim(thisform.&txtname..value)      &&将字符型数据存入数组
ENDFOR
FOR m=7 TO 11
txtname="text"+alltrim(str(m))
txt(m)=thisform.&txtname..value       &&将数值及日期型数据存入数组
ENDFOR
txt(12)=alltrim(thisform.text12.value)
txt(13)=thisform.rainfunction1.numbertoname("供应商信息表","全称",;
alltrim(thisform.combo1.displayvalue),0)
handle1=fopen("系统设置.Rtt",2)
IF handle1<0 
handle2=fcreate("系统设置.Rtt")
IF handle2>=0
fclose(handle2)
ELSE
messagebox("无法创建！请手工删除程序目录下[系统设置.Rtt]文件,;
然后再试一次！",16, "系统提示")
ENDIF
get(8)="9999"
get(9)="1"
ELSE
FOR m=1 TO 9
get(m)=fgets(handle1)
ENDFOR
ENDIF
fclose(handle1)
IF this.butstyle=1
INSERT INTO 商品信息表 VALUES(txt(1),txt(2),lower(txt(3)),Txt(4),;
txt(6),txt(5),txt(7),txt(8),txt(9),txt(10),txt(11),txt(13),txt(12))
INSERT INTO 库存信息表 (商品编号,库存上限,库存下限)  ;
VALUES(txt(1),val(alltrim(get(8))),val(alltrim(get(9))))
ELSE
UPDATE 商品信息表 SET 名称=txt(2),简称=lower(txt(3)),规格=txt(4),;
计量单位=txt(5),产地=txt(6),出厂日期=txt(7),;
保质期=txt(8),进价=txt(9),批发价=txt(10),零售价=txt(11),备注=txt(12),;
供应商编号=txt(13) WHERE 编号=txt(1)
ENDIF
FOR m=1 TO 6       &&清空文本框
textname="text"+alltrim(str(m))
thisform.&textname..value=""
ENDFOR
thisform.text7.value={}
thisform.text8.value={}
thisform.text9.value=0
thisform.text10.value=0
thisform.text11.value=0
thisform.text12.value='
thisform.combo1.displayvalue='
FOR m=2 TO 12       &&使文本框失效
textname="text"+alltrim(str(m))
thisform.&textname..enabled=.f.
ENDFOR
thisform.combo1.enabled=.f.
SELE 商品信息表
thisform.resee
thisform.command1.enabled=.t.
thisform.grid1.readonly=.t.
thisform.grid1.enabled=.t.
thisform.locatebuttons1.enabled=.t.
在Oftenbuttons1控件的_DeleteButtonClick方法程序下添加如下代码：
DELETE FROM 库存信息表 WHERE 商品编号=alltrim(thisform.text1.value)
SELE 库存信息表
USE 
USE  data库存信息表 EXCL       &&以独占方式打开库存信息表
PACK
USE
USE  data库存信息表
thisform.grid1.init
thisform.command2.click
thisform.resee
在Oftenbuttons1控件的_UndoButtonClick方法程序下添加如下代码：
SELE 商品信息表
FOR m=2 TO 12     &&使文本框失效
textname="text"+alltrim(str(m))
thisform.&textname..enabled=.f.
ENDFOR
thisform.combo1.enabled=.f.
GOTO 1
thisform.resee
thisform.command1.enabled=.t.
thisform.grid1.readonly=.t.
thisform.grid1.enabled=.t.
thisform.locatebuttons1.enabled=.t.