Jump to content
Fórum Script Brasil
  • 0

Executar função segundária


António44
 Share

Question

procedure TPrateleiras.FlatSpeedButton6Click(Sender: TObject);
begin
if FlatSpeedButton2.Enabled= false then
begin
if (Dbedit3.Modified = true)  then
principal.Timer1.Enabled:=true;
principal.Timer1.Interval:=100;
Close;
end else
begin
if FlatSpeedButton2.Enabled= true then
if MessageDlg('Tem registo aberto,sair na mesma ? ',mtconfirmation,mboKcancel,0)=ID_OK then
begin
if (Dbedit3.Modified = true)  then
principal.Timer1.Enabled:=true;
principal.Timer1.Interval:=100;
Close;
end;
end;
end;

Utilizo para executar uma 2ª funcão de calculo...se  criar novo registo ou editar o registo e haver alteração no dbedit3  tudo perfeito mas quando apago um registo da tabela  não considera modificação ???? como posso contornar isto já usei assim  if (Data.table7.Modified = true)  then e tb não funciona.

Abraços

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

voce esta testando o DBEdit quando deveria testar o DataSet

if DataSet1.State in [dsEdit, dsInsert] then
   DataSet1.Post;

 

ou veja esse link

http://docwiki.embarcadero.com/Libraries/Berlin/en/Data.DB.TDataSet.Modified

ou ainda, pode testar isso

procedure TForm1.Button1Click(Sender: TObject);
begin
   if Query1COD.DataSet.Modified = true then
      showmessage('Campo foi Modificado!!!');

   if ClientDataSet1.UpdateStatus = usInserted then
      showmessage('Registro foi Inserido!!!');

   if ClientDataSet1.UpdateStatus = usModified then
      showmessage('Registro foi Modificado!!!');

   if ClientDataSet1.UpdateStatus = usDeleted then
      showmessage('Registro foi Deletado!!!');

   if ClientDataSet1.UpdateStatus = usUnmodified  then
      showmessage('Registro Não foi Modificado!!!');

end;

abraço

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      149.6k
    • Total Posts
      646.2k
×
×
  • Create New...