TClientDataSet
O sistema que eu estou fazendo possui um formulário modelo com os botões
incluir, excluir, etc, e um datasource. Na operação com um dos formulários
descendente foi colocado no form datamodule os componentes:TIBTransaction,
TIBDatabase, TIBDataset,TDatasetProvider,TClientDataSet.
Ao fazer a compilação é apresentado o erro abaixo descrito.
procedure TFrmModelo.btnGravarClick(Sender: TObject);
var errors:Integer;
begin
if VerificaCampos then
begin
dtsrc.DataSet.Post;
errors:=(dtsrc.DataSet as TClienteDataset).ApplyUpdates(0);
if errors>0 then dtsrc.DataSet.Edit;
end;
else abort;
end;
[Error] UModelo.pas(87): Undeclared identifier: ´TClienteDataset´
[Error] UModelo.pas(87): Operator not applicable to this operand type
[Error] UModelo.pas(89): ´;´ not allowed before ´ELSE´
[Error] UModelo.pas(103): Identifier redeclared: ´Action´
[Error] UModelo.pas(103): ´;´ expected but ´)´ found
[Fatal Error] CadObriCand.dpr(22): Could not compile used unit ´UModelo.pas´
Antecipadamente agradeço
Luna
incluir, excluir, etc, e um datasource. Na operação com um dos formulários
descendente foi colocado no form datamodule os componentes:TIBTransaction,
TIBDatabase, TIBDataset,TDatasetProvider,TClientDataSet.
Ao fazer a compilação é apresentado o erro abaixo descrito.
procedure TFrmModelo.btnGravarClick(Sender: TObject);
var errors:Integer;
begin
if VerificaCampos then
begin
dtsrc.DataSet.Post;
errors:=(dtsrc.DataSet as TClienteDataset).ApplyUpdates(0);
if errors>0 then dtsrc.DataSet.Edit;
end;
else abort;
end;
[Error] UModelo.pas(87): Undeclared identifier: ´TClienteDataset´
[Error] UModelo.pas(87): Operator not applicable to this operand type
[Error] UModelo.pas(89): ´;´ not allowed before ´ELSE´
[Error] UModelo.pas(103): Identifier redeclared: ´Action´
[Error] UModelo.pas(103): ´;´ expected but ´)´ found
[Fatal Error] CadObriCand.dpr(22): Could not compile used unit ´UModelo.pas´
Antecipadamente agradeço
Luna
Lunaf
Curtidas 0