Manter a data digitada
Olá preciso de uma pequena ajuda. Tenho um form e nele contem um dbedit1 que eu digito a data. Gostaria de manter essa data digitada em meu form até que eu resolva mudar. Exemplo:
Preciso digitar 10 nomes usando a mesma data, só que eu não queria ficar informando a data para os 10 nomes.
Estou usando adotable e bd access.
Se possível passo a passo, já recebi várias dicas com *.ini mas não consegui nem começar. Obrigado
Preciso digitar 10 nomes usando a mesma data, só que eu não queria ficar informando a data para os 10 nomes.
Estou usando adotable e bd access.
Se possível passo a passo, já recebi várias dicas com *.ini mas não consegui nem começar. Obrigado
Cláudiogyn
Curtidas 0
Respostas
By Alemão
30/08/2003
Crie uma variavel onde a data ficara armazenada...
em vez de vc utilizar um dbEdit, utilize um edit normal.....
faço o conteúdo desse edit ir para a variavel tipo assim
var
VariavelData:Date;
Data.Date:=StrToDate(Edit.Text);
quando vc for gravar os registros, coloque o Edit apontando pra Variavel... assim
DBEdit.Date := VariavelData;
Post (para gravar)
Next (para ir pro próximo)
em vez de vc utilizar um dbEdit, utilize um edit normal.....
faço o conteúdo desse edit ir para a variavel tipo assim
var
VariavelData:Date;
Data.Date:=StrToDate(Edit.Text);
quando vc for gravar os registros, coloque o Edit apontando pra Variavel... assim
DBEdit.Date := VariavelData;
Post (para gravar)
Next (para ir pro próximo)
GOSTEI 0
Crpavao
30/08/2003
Se eu entendi vc que inserir vários registros com data e manter a última data no DbEdit
No botão de Salvar (vc deve ter este botão não?) coloque os segyuintes comandos
Var
KData : Tdate:
Begin
KData := TTableData.Value; (TTABLEDATA é o seu campo na sua tabela)
TTABLE.POST; (Salvando dado)
TTABLE.INSERT; (inserindo novo dado)
TTABLEData.Value := KData; (recuperando data)
End;
No evento onClose coloque
TTABLE.CANCEL;
Resolvido seu caso, se eu entendi a sua dúvida.
Pavão.
´SE USUÁRIO FOSSE ARQUIVO SUA EXTENSÃO SERIA .FDP´
No botão de Salvar (vc deve ter este botão não?) coloque os segyuintes comandos
Var
KData : Tdate:
Begin
KData := TTableData.Value; (TTABLEDATA é o seu campo na sua tabela)
TTABLE.POST; (Salvando dado)
TTABLE.INSERT; (inserindo novo dado)
TTABLEData.Value := KData; (recuperando data)
End;
No evento onClose coloque
TTABLE.CANCEL;
Resolvido seu caso, se eu entendi a sua dúvida.
Pavão.
´SE USUÁRIO FOSSE ARQUIVO SUA EXTENSÃO SERIA .FDP´
GOSTEI 0