Salvar somente quando os dois DBEdit estiverem preenchidos
19/09/2004
0
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
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
Curtir tópico
+ 0
Responder
Posts
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
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
Clique aqui para fazer login e interagir na Comunidade :)