Salvar somente quando os dois DBEdit estiverem preenchidos

19/09/2004

Bom Dia.
Estou usando PARADOX, DATAMODULE E TABELA, tenho a seguinte duvida.

No OnClick do Botão SALVAR, queria que só salvase se os dois Dbedit estivessem preenchidos caso somente um estiver preenchido dar um Showmessage dizendo (´Favor Preencher os dois campos´) em baixo vai um pedaço do comando que ja esta incluido no botão salvar:

procedure TForm1.Button2Click(Sender: TObject);
Begin
if dbedit2.text=´´ then
begin
showmessage (´Clique no Botão Novo e Preencha os Campos´);
exit;
end
else
Begin
if dbedit3.text=´´ then
begin
showmessage (´Clique no Botão Novo e Preencha os Campos´);
exit;
end
else
begin
dm.Tab1.post;
dbedit3.clear;
dbedit2.setfocus;
dbedit2.clear;
dm.Tab1.append;
end;
end;
end;

Quem poder me responde agradeço muito. E-mail: sopinha@intercol.com.br



[b:3fcb2521cf]Título editado: ´SALVAR SOMENTE QUANDO OS DOIS DBEDIT ESTIVEREM PREENCHIDOS´[/b:3fcb2521cf]
sopinha,
Não escreva o título do tópico utlizando caixa alta; é desagradável e equivale a gritar. Por favor, releia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.
Sandra/Moderação



Fatal error: Maximum execution time of 30 seconds exceeded in D:\web\forum.devmedia.com.br\httpdocs\down_postsforum.php on line 70

Spalenza

Respostas

19/09/2004

Arc

Não acho uma boa ideia deixar a tabela sempre em modo se inserção (append) principalmente em tabela paradox.

O que tem por traz deste botão NOVO ????

procedure TForm1.Button2Click(Sender: TObject);
begin
if (dbedit2.text = emptystr) or (dbedit3.text = emptystr) then
begin
showmessage (´Todos os campos devem ser preenchidos!!!!´);
end
else
begin
dm.Tab1.post;
dbedit3.clear;
dbedit2.setfocus;
dbedit2.clear;
dm.Tab1.append;
end;
end


Responder Citar