我把我的系统穿上去了，效果不佳，只能这样问了。哎。以下是我设计的表单，和代码，表单中所用的字段的类型是如下：
序号    列名    数据类型    长度    允许空    字段说明
1    Id    整型    4        商品编号
2    Name    字符型    20        商品名称
3    Lxid    整型    2        类型编号
4    Inda    字符型    8        进货日期
5    Bzq    数值型    4        保质期
6    Sl    数值型    4        数量
序号    列名    数据类型    长度    允许空    字段说明
1    Id    整型    4        商品编号
2    Zcb    数值型    10        总成本
3    Yjlr    数值型    10        预计利润
4    Sjlr    数值型    10        实际利润
5    Xsdj    数值型    10        销售单价
6    Jhdj    数值型    10        进货单价

还有个表单

进货表单“确定”代码如下：public val t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11
t1=int(val(thisform.edit1.value))
t2=thisform.edit2.value
t3=int(val(thisform.edit3.value))
t4=thisform.edit4.value
t5=val(thisform.edit5.value)
t6=val(thisform.edit6.value)
t7=val(thisform.edit7.value)
t8=val(thisform.edit8.value)
t9=t7*t6
t10=t7*(t8-t7)
t11=int(val(""))
select  kc
if t1=t11
messagebox("请输入编码！")
else
if t1=id
messagebox("该编号已存在，请更换编号！")
else
insert into kc values (t1,t2,t3,t4,t5,t6)
insert into cb values (t1,t9,t10,0,t7,t8)
messagebox("数据添加成功！")
endif
endif
thisform.edit1.value=""
thisform.edit2.value=""
thisform.edit3.value=""
thisform.edit4.value=""
thisform.edit5.value=""
thisform.edit6.value=""
thisform.edit7.value=""
thisform.edit8.value=""

出货表单“确定”代码如下：click事件下
public val i,j,k
i=
j=val(thisform.edit2.value)
t12=t12+j
select kc
if i==kc.id
 if kc.sl<>0
    replace sl with sl-1 while i=kc.id
    select cb
    replace sjlr with t12 while i=cb.id
    messagebox("数据删除成功！")
  else
    messagebox("货物已售完，请及时进货！")
    endif
else
 messagebox("输入编码错误！")



endif
thisform.edit2.value=""
thisform.edit1.value=""
form的load事件下：
public val t12

t12=cb.sjlr

各位帮忙看看呀，谢谢了

我在前面也问了相似的问题，有附件，帖子名称是“各位老师，请看看我这个系统那里错了？”
在那里可以下载我的全部程序。