【搞定】[问题]错误提示类未注册**

zhjkill

procedure TMainForm.DataSetBroker2AfterPost(DataSet: TDataSet);
var
  lQuery:TQuery;
begin
    lQuery := TQuery.Create(nil);
    begin
         lQuery.ConnectionString :='Biz:\HGOPERATION\HGOPERATIONDB.DATABASE\XHP.Table';
         lQuery.CommandText := 'SELECT count(1) From XHP Where '+' YJHX = ''0'' '+' and BH = :a';
         lQuery.Params.ParamByName('a').AsString := DataSetBroker2.DataSet.FieldByName('BH').AsString;
         lQuery.Open;

         if  lQuery.Fields[0].AsInteger > 0 then
         begin
              DataSetBroker1.DataSet.Edit;
              DataSetBroker1.DataSet.FieldByName('YJHX').AsString:='02';
              DataSetBroker1.DataSet.ApplyUpdates;
         end
         else
         begin
              DataSetBroker1.DataSet.Edit;
              DataSetBroker1.DataSet.FieldByName('YJHX').AsString:='01';
              DataSetBroker1.DataSet.ApplyUpdates;
         end;
    end;
    lQuery.Free;
end;
这个错误怎么修改

zhjkill

procedure TMainForm.DataSetBroker2AfterPost(DataSet: TDataSet);
var
  lQuery:TQuery;
begin
    lQuery := TQuery.Create(nil);
    begin
         lQuery.ConnectionString :='Biz:\HGOPERATION\HGOPERATIONDB.DATABASE\XHP.Table';
         lQuery.CommandText := 'SELECT count(1) From XHP Where '+' YJHX = ''0'' '+' and BH = :a';
         lQuery.Params.ParamByName('a').AsString := DataSetBroker2.DataSet.FieldByName('BH').AsString;
         lQuery.Open;

         if  lQuery.Fields[0].AsInteger > 0 then
         begin
              DataSetBroker1.DataSet.Edit;
              DataSetBroker1.DataSet.FieldByName('YJHX').AsString:='02';
              DataSetBroker1.DataSet.ApplyUpdates;
         end
         else
         begin
              DataSetBroker1.DataSet.Edit;
              DataSetBroker1.DataSet.FieldByName('YJHX').AsString:='01';
              DataSetBroker1.DataSet.ApplyUpdates;
         end;
    end;
    lQuery.Free;
end;
这个错误怎么修改

zhjkill

编译没问题的,运行出现错误

lQuery.Params.ParamByName('a').AsString := DataSetBroker2.DataSet.FieldByName('BH').AsString;到这句话就出错

shangxy

lQuery.ConnectionString :='DATABASEURL=Biz:\HGOPERATION\HGOPERATIONDB.DATABASE';

zhjkill

你这种和我的有什么区别?

atiger

看红色字体，这是基本语法，请参考Delphi的帮助说明

zhjkill

那结吧