delphi中为何会出现如此错误

各位大佬:
小弟在做一个库存的小程序遇到问题,请帮忙,程序思路是:商品分二种1:类商品2:组合商品(将单类商品合成一份销售).二者在区分在前者的'类别'(字段名dalei)商品性质,后者的'类别'为'组合',组合商品有自己的商品名并设立专门数据库(zh),它有组合商品名(zsp_name),组合商品中的单个商品名(dsp_name)以及单个商品的类别(dsp_dalei).当销售一个商品先验证是否为'组合',如是在zh库中选出单个商品的信息,根据其与单个商品的比例(dsp_dw)(一个组合商品可能会几种相同的单个商品组成),将销售量*dsp_dw,到库存库(price)中减去相应的商品(单类商品)在原库存量;如销售商品不是'组合',就直接在库存中操作.
但是运行程序后总是出现报误信息'无法将null值插入列'id'表'chaoshi.dbo.price'该列不允许空值,insert失败?'这是何?
程序中并无插入,(所有的query.requestlive:=true).
procedure TForm7.Button1Click(Sender: TObject);

var
b11i1,b11i2:integer;
b11_sl,b11_zhdw,b11_sl1,bjsl:currency;
b11_dalei,b11_spmc,b11_zhspmc,b11_zhdalei:string;
begin
query3.Close;
query3.SQL.Clear;
query3.sql.add('select * from xiaoshou');
query3.Open;
//Query6.FetchAll;
query3.First;
for b11i1:=0 to query3.RecordCount-1 do
  begin
  b11_sl:=query3.fieldbyname('sl').asfloat;
  b11_dalei:=query3.fieldbyname('dalei').AsString;
  b11_spmc:=trim(query3.fieldbyname('spmc').AsString);