[Resolvido] Problemas com Salvar NotNull

[rafaeloliveira83 0]

Estou tentando fazer tratamento de erros para que os campos NotNull não fiquem vazios.

Fiz da seguinte maneira no Botão Salvar

 

 

procedure TForm1.btnSalvarClick(Sender: TObject);
begin
 if (DBMemo1.Text = '') then
begin
if MessageBox(Handle, 'Solicitação em Branco', 'Erro',
MB_OK or MB_ICONERROR) = IDOK then
DM.ClientDataSet.Cancel;
end

else
if MessageBox(Handle, 'Deseja Salvar o Registro?', 'Salvar',
MB_YESNO or MB_ICONQUESTION) = IDYES then
// Se o Usuário Clicou em SIM – Salva os Dados
DM.ClientDataSet.Post;
DM.ClientDataSet.ApplyUpdates(0);

end;

O Problema que ao clicar no OK do Message Box os campos limpam, já que o único modo que eu consegui ver para evitar erro de campo vazio.

Existe alguma forma de se fazer isso, mas somente um campo da tabela ser cancelado ao inves do ClientDataSet ( Tabela Inteira )?

[Daniel Sanches 0]

tente algo assim:

 

procedure TForm1.btnSalvarClick(Sender: TObject);
begin
   if trim(DBMemo1.Text) = '' then
   begin
	  MessageDlg('Solicitação em Branco', mtError,[mbOK],0);
	  DBMemo1.SetFocus;
   end
   else
   begin
	  if MessageDlg('Deseja Salvar o Registro?',mtConfirmation, [mbYes,mbNo],0) = 6 then //sim
	  begin
		 DM.ClientDataSet.Post;
		 DM.ClientDataSet.ApplyUpdates(0);
	  end;
   end;
end;

 

qualquer coisa é só postar novamente !!

 

 

abraços !!!

[rafaeloliveira83 0]

Eu consegui fazer era apenas erros de ifs. mas testei o seu também e funciona perfeito.

O único problema é que messageDlg fica em inglês os botões, mas agradeço pela força!