Sou novato em programação e gostaria que vcs me ajudassem.... pois eu
coloquei algumas linhas de comando no botão Excluir...
procedure TfrmSAECadUsuario.btnExcluirClick(Sender: TObject);
begin
inherited;
try
BancoData.tblSAEUsuario.Open;
frmSAEManuUsuario := TfrmSAEManuUsuario.Create(Self);
frmSAEManuUsuario.barraInfo.Caption := 'Confirmar inclusão de
dados ?';
Operacao := oprExcluir;
dbgrdConsulta.DataSource.DataSet.Delete;
frmSAEManuUsuario.ShowModal;
except
on E:Exception do begin
MessageDlg('Ocorreu um erro ao tentar excluir
o registro selecionado !!!' + #13#10 +
'Erro => ' + E.Message,mtError,
[mbOk],0);
TpFibDataSet
(dbgrdConsulta.DataSource.DataSet).Transaction.RollbackRetaining;
end;
end;
E no meu botão de Confirmação Coloquei Esses código
if Operacao = oprExcluir then begin
frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet.Delete;
end
else if Operacao in [oprIncluir,oprAlterar] then begin
BancoData.tblSAEUsuario.Post;
BancoData.dtbsConexao.CommitRetaining;
Close;
end;
if frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet.State <>
dsBrowse then begin
TpFibDataSet(
frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet ).Cancel;
TpFibDataSet(
frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet ).Transaction.Rollba
ckRetaining;
end
else begin
orCommit( TpFibDataSet(
frmSAECadUsuario.dbgrdConsulta.DataSource.DataSet ) );
end;
Mais está dando um erro que eu naum estou conseguindo encontrar.... O
seguinte erro
TBLUSUARIO: DATASER NOT IN EDIT OR INSERT MODE
Alguém poderia me ajudar.....
Desde já pesso desculpas por eu ser um pouco leigo e estar fazendo
algo errado....
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
