Fórum [ERRO] DBEDIT recebendo data atual #346846
01/10/2007
0
Tenho um DBEDIT ligado a uma TABELA no BANCO (interbase).
:?: Preciso que esse DBEDIT receba a DATA do PC quando o usuário entrar no DBEDIT, segue o codigo:
[b:ffb4682a8f]procedure TfrmCadCliente.edtDtCadastroEnter(Sender: TObject);
begin
edtDtCadastro.Text := DateToStr(date);
end;[/b:ffb4682a8f]
[color=red:ffb4682a8f][b:ffb4682a8f]Erro ao entrar no DBEDIT:[/b:ffb4682a8f][/color:ffb4682a8f]
[img:ffb4682a8f]http://img64.imageshack.us/img64/1750/errosa1.jpg[/img:ffb4682a8f]
Alguem pode me ajudar?
Grato!
Educdc
Curtir tópico
+ 0Posts
01/10/2007
Mayron Cachina
DBEdit1.Text := DateToStr(now);
mais essa é a data Atual da máquina mesmo...
Agora vamos aos problemas....
1 - se seu pc a data tiver configurada diferente da do banco por exemplo:
vai acusar um erro, ta me entendento? ai vc teria que trartar antes de colocar no DBEdit...
Gostei + 0
01/10/2007
Educdc
O erro que está acontecendo n é devido ao formato da data.
Se eu adicionar este codigo no onEnter de um outro DBEDIT qualquer o erro permanece. Ex.:
[b:2a3da6bfcc]procedure TfrmCadCliente.edtNomeFantasiaEnter(Sender: TObject);
begin
edtNomeFantasia.Text := ´TESTE´;
end;[/b:2a3da6bfcc]
Vlws!
Gostei + 0
01/10/2007
Imoreira
Uma solução para o seu caso é fazer essa verificação.
if cdsCliente.state in[dsinsert,dsEdit] then begin
edtDtCadastro.Text := DateToStr(date);
end;
Gostei + 0
01/10/2007
Educdc
Ok... Estou entendendo. Mas quando vai entrar nessa condição?
Como coloco o ClientDataSet em modo de INSERT?
Antes de mais nda, não estou usando DBNAVIGATOR. Estou criando os botões pois uso PROCEDURE para inserir, deletar, alterar.
Vlws!!
Gostei + 0
02/10/2007
Martins
Ok... Estou entendendo. Mas quando vai entrar nessa condição?
Como coloco o ClientDataSet em modo de INSERT?
Antes de mais nda, não estou usando DBNAVIGATOR. Estou criando os botões pois uso PROCEDURE para inserir, deletar, alterar.
Vlws!![/quote:30679ffce4]
Você coloca essa validação no OnEnter do DBEdit.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)