tiaoma:=edit15.Text; showmessage(tiaoma); if tiaoma<>'0' then begin ClientModule1.ClientDataSet1.Close; ClientModule1.ClientDataSet1.CommandText:='select ptypeid from B_GTypeBarDetail where barcode='''+edit15.Text+''' '; ClientModule1.ClientDataSet1.Open; if ClientModule1.ClientDataSet1.RecordCount>0 then begin spid:= ClientModule1.ClientDataSet1.FieldByName('ptypeid').AsString; end else begin spid:='0'; showmessage('未找到具有该条码的商品!'); exit; end; end;