Fórum editar ou inserir #287041

//Lança a locação na tabela totaldia...
  DM_BANCO.TOTALDIA.Close;
  DM_BANCO.TOTALDIA.CommandText:=´Select * FROM TOTALDIA Where DATACAIXA like ´+ chr(39)+FormatDateTime(´dd/mm/yyyy´,Now)+chr(39);
  DM_BANCO.TOTALDIA.Open;
  if DM_BANCO.TOTALDIA.RecordCount <= 0 then
  begin
  DM_BANCO.TOTALDIA.Insert;
  DM_BANCO.TOTALDIADATACAIXA.AsString := FormatDateTime(´dd/mm/yyyy´,now);
  DM_BANCO.TOTALDIALOCACOES.AsFloat := DM_BANCO.TOTALDIALOCACOES.AsFloat + 1;
  end else
  begin
  DM_BANCO.TOTALDIA.Edit;
  DM_BANCO.TOTALDIADATACAIXA.AsString := FormatDateTime(´dd/mm/yyyy´,now);
  DM_BANCO.TOTALDIALOCACOES.AsFloat := DM_BANCO.TOTALDIALOCACOES.AsFloat + 1;
  end;

datamodulo.ADOTable1.Open;
datamodulo.ADOTable1.Locate(´empregado_codCarta´,Edit1.text,[])
if datamodulo.ADOTable1.RecordCount<=0 then
begin
showmessage(´inserir´); 
Datamodulo.ADOTable1.append 
end 
else 
showmessage(´editar passou´) ; 
grava:=´EDITAR´;
end;