Fórum Campo DBedit Formato Date Socorrooooooo #174850
13/08/2003
0
Galera eu tenho esse campo DBEdit1.text onde é digitado a data. Esse campo é de uma tabela em paradox de campo tipo D ´Date´.
Eu queria informar ao usuário que na hora de ele comfirmar o cadastro caso ele nao digitou nada na data a mensagem iria informar para ele voltar e digitar a data. Mas do jeito que fiz ele aceita normalsem data.
Essa e a form que esta a restricao. A algo de Errado?
if dbedit1.Text = ´´ then
begin
BEEP;
SHOWMESSAGE(´Favor preencher a data´);
dbedit1.setfocus;
Eu queria informar ao usuário que na hora de ele comfirmar o cadastro caso ele nao digitou nada na data a mensagem iria informar para ele voltar e digitar a data. Mas do jeito que fiz ele aceita normalsem data.
Essa e a form que esta a restricao. A algo de Errado?
if dbedit1.Text = ´´ then
begin
BEEP;
SHOWMESSAGE(´Favor preencher a data´);
dbedit1.setfocus;
Marcelototini
Curtir tópico
+ 0
Responder
Posts
13/08/2003
Diogoalles
Você poderia fazer assim
if not(strtodate(DBEdit.Text) > 0)then
begin
BEEP;
SHOWMESSAGE(´Favor preencher a data´);
dbedit1.setfocus;
end;
ou melhor ainda é comparar com o campo da tabela ligado ao DBEdit:
if not(Table1.FieldByName(´Data´).AsDate > 0)then
begin
BEEP;
SHOWMESSAGE(´Favor preencher a data´);
dbedit1.setfocus;
end;
abraço
Diogo
if not(strtodate(DBEdit.Text) > 0)then
begin
BEEP;
SHOWMESSAGE(´Favor preencher a data´);
dbedit1.setfocus;
end;
ou melhor ainda é comparar com o campo da tabela ligado ao DBEdit:
if not(Table1.FieldByName(´Data´).AsDate > 0)then
begin
BEEP;
SHOWMESSAGE(´Favor preencher a data´);
dbedit1.setfocus;
end;
abraço
Diogo
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)