[结贴][问题]lQuery**

zhjkill

procedure TMainForm.DataSetBroker2BeforeInsert(DataSet: TDataSet);
var
  lQuery:TQuery;
  i:integer;
  j:integer;
begin
     lQuery := TQuery.Create(nil);
    {DataSetBroker2.DataSet.DisableControls;
     DataSetBroker2.DataSet.First;
     try
        for i := 0 to DataSetBroker2.DataSet.RecordCount-1 do
        begin
             DataSetBroker2.DataSet.Edit;
             DataSetBroker2.DataSet.FieldByName('XH').AsInteger:=1;
             lQuery.ConnectionString :='DATABASEURL=Biz:\HGOPERATION\HGOPERATIONDB.DATABASE';
             lQuery.CommandText := 'SELECT JC From XHPMXB Where '+' XHDL = :a '+' and XHGG = :b';
             lQuery.Params.ParamByName('a').AsString := DataSetBroker2.DataSet.FieldByName('HCDL').AsString;
             lQuery.Params.ParamByName('b').AsString := DataSetBroker2.DataSet.FieldByName('XHGG').AsString;
             lQuery.Open;

             lQuery.Edit;
             lQuery.FieldByName('JC').AsInteger:=lQuery.FieldByName('JC').AsInteger-DataSetBroker2.DataSet.FieldByName('SJLYSL').AsInteger;
             lQuery.Post;
             j:=lQuery.FieldByName('JC').AsInteger;
             jsdialogs.showmsg('j','j');
             DataSetBroker2.DataSet.Next;
        end;
     finally
            DataSetBroker2.DataSet.EnableControls;
            DataSetBroker2.DataSet.First;

     end;                           
     lQuery.Free;
end;
这lQuery不能修改数据库里的字段，要怎么改

yancm

更新到数据库用query.ApplyUpdates;

zhjkill

加了query.ApplyUpdates;后会报错

Akon

楼主,将上方的select 语句改成,让他查询出来没有重复的记录,只有一条

zhjkill

XHPMXB表中数据是只有一条，用来记录余额的

zhjkill

错了不是 表中数据只有一条
是查询出来是仓库中某种规格的物品的余额

zhjkill

如 消耗大类 消耗规格     余额
   墨盒     Canon BC-20     6
   墨盒     Canon BC-21     3
      墨盒     Canon BC-02     2

zhjkill

程序修改成
procedure TMainForm.FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  lQuery:TQuery;
  i:integer;
  j:integer;
begin

     lQuery := TQuery.Create(nil);
     DataSetBroker2.DataSet.DisableControls;
     DataSetBroker2.DataSet.First;
        for i := 0 to DataSetBroker2.DataSet.RecordCount-1 do
        begin

             lQuery.ConnectionString :='DATABASEURL=Biz:\HGOPERATION\HGOPERATIONDB.DATABASE';
             lQuery.CommandText := 'SELECT JC From XHPMXB Where '+' XHDL = :a '+' and XHGG = :b';
             lQuery.Params.ParamByName('a').AsString := DataSetBroker2.DataSet.FieldByName('HCDL').AsString;
             lQuery.Params.ParamByName('b').AsString := DataSetBroker2.DataSet.FieldByName('XHGG').AsString;
             lQuery.Open;
             if (lQuery.FieldByName('JC').AsInteger-DataSetBroker2.DataSet.FieldByName('SJLYSL').AsInteger+
             DataSetBroker2.DataSet.FieldByName('RKSL').AsInteger)<0 then
             begin
                  jsdialogs.showmsg('库存不足，请先入库！','');
                  exit;
             end
             else
             begin
                  lQuery.Edit;
                  lQuery.FieldByName('JC').AsInteger:=lQuery.FieldByName('JC').AsInteger+DataSetBroker2.DataSet.FieldByName('RKSL').AsInteger-DataSetBroker2.DataSet.FieldByName('SJLYSL').AsInteger;
                  lQuery.Post;
                  lQuery.ApplyUpdates;
             end;
             DataSetBroker2.DataSet.Next;
             lQuery.Close;

        end;

            DataSetBroker2.DataSet.EnableControls;
            DataSetBroker2.DataSet.First;


     lQuery.Free;
end;

zhjkill

执行到lQuery.ApplyUpdates;这条就报错

Akon

你执行一下'SELECT JC From XHPMXB Where '+' XHDL = :a '+' and XHGG = :b' 查出的记录有几条?