Campo DBedit Formato Date Socorrooooooo
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
Curtidas 0
Respostas
Diogoalles
13/08/2003
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
GOSTEI 0