Checar edits antes de salvar no banco

25/01/2019

Eae galera, to fazendo isso pra verificar, porem nao acho que seja o melhor metodo para verificar, nao quero que o programa salve quando nao tiver nada no edit. Do jeito que ta ele ta salvando no banco junto com a mensagem.

procedure TfmClientes.SBGravarClick(Sender: TObject);
begin
    begin
    if (EDNome.Text = '') or (EDPessoa.Text = '') or (EDSocial.Text = '') or (EDDdd.Text = '') or (EDTelefone.Text = '') or (EDCpf.Text = '') or (EDRg.Text = '') or (EDEmissor.text = '') or (EDCep.Text = '') or (EDCidade.Text = '') or (EDLogradouro.Text = '') or (EDNumero.Text = '') or (EDBairro.Text = '')  then
        showmessage('Ainda h� campos que precisam ser preenchidos!')
        else
        FDQUERY1.sql.clear;
        FDQuery1.SQL.Add('Execute block as');
        FDQuery1.SQL.Add('Begin');
        FDQUERY1.sql.add('INSERT INTO CLIENTES (NOME,TIPO_PESSOA,RAZAO_SOCIAL,DDD,TELEFONE,E_MAIL,SITE,CPF,RG,ORGAO_EMISSOR,DATA_EXP,SEXO,ESTADO_CIVIL,DATA_NASC,NATURALIDADE) VALUES ('+QuotedStr(EDNome.text)+','+QuotedStr(EDPessoa.Text)+','+QuotedStr(EDSocial.text)+','+QuotedStr(EDDdd.text)+','+QuotedStr(EDTelefone.text)+','+QuotedStr(EDEmail.text)+','+QuotedStr(EDSite.text)+','+QuotedStr(EDCpf.text)+','+QuotedStr(EDRg.text)+','+QuotedStr(EDEmissor.text)+','+QuotedStr(FormatDateTime('mm/dd/yyyy',DTExp.Date))+','+QuotedStr(EDSexo.text)+','+QuotedStr(EDCivil.text)+','+QuotedStr(FormatDateTime('mm/dd/yyyy',DTNasc.Date))+','+QuotedStr(EDNaturalidade.text)+')'+';');
        FDQuery1.SQL.Add('INSERT INTO ENDERECO (CEP,CIDADE,LOGRADOURO,NUMERO,COMPLEMENTO,BAIRRO,TIPO_IMOVEL,ANOS,MESES) VALUES ('+QuotedStr(EDCep.Text)+','+QuotedStr(EDCidade.Text)+','+QuotedStr(EDLogradouro.Text)+','+QuotedStr(EDNumero.Text)+','+QuotedStr(EDComplemento.Text)+','+QuotedStr(EDBairro.Text)+','+QuotedStr(EDImovel.Text)+','+QuotedStr(EDAnos.text)+','+QuotedStr(EDMeses.Text)+')'+';');
        FDQuery1.SQL.Add('end');
        FDquery1.ExecSQL;
        fmModulos_Dados.FDConnection1.Commit;
    end;
end;

Lucas Ara�jo

Curtir t�pico + 0

Responder

Post mais votado

25/01/2019

Ol� Lucas, pelo visto voc� prefere fazer na unha! rsrs.

Geralmente preferimos passar os valores para os Fieds de um FDTable ou FDquery e dar um post, porque ele j� verifica os campos obrigat�rios e d� um erro se n�o forem preenchidos. Al�m disso tem um evento chamado BeforePost que voc� pode fazer testes por exemplo

if idade>85 then raise('Idade n�o � permitida'1);

para que apare�a essa mensagem na tela pro usu�rio e ele tenha que corrigir!

Mas j� que voc� est� fazendo manualmente, vou te dar uma dica que mais parece uma gambiarra, mas serve.

Os edits que s�o obrigat�rios de preencher, coloque em negrito e escreva o nome do campo no Hint do edti, a� no bot�o de salvar fa�a assim:

var
  I: Integer;
  edit: TEdit;
begin
  for I := 0 to Self.ComponentCount-1 do
  begin
    if self.Components[I] is TEdit then
    begin
      edit:= Self.Components[I] as TEdit;

      if edit.Font.Style = [fsBold] then
        if trim(edit.Text)='' then
        begin
          edit.SetFocus;
          raise Exception.Create('O Campo '+edit.Hint+' n�o pode ser vazio!');
        end;

    end;
  end;

end;

Este c�digo simplesmente procura todos os Edits da tela que s�o negrito (obrigat�rios) e verifica se est� preenchido. Se n�o estiver ele p�e o foco no edit e dispara um erro mostrando a mensagem personalizada....

depois deste c�digo voc� coloca o SQL pra salvar,

Espero ter ajudado. Um forte abra�o e fique com Deus.

H�lio Devmedia

Responder

Gostei + 1