poxa, será que ninguém sabe me informar isso???

Delphi

04/04/2003

Olá amigos, está é a terceira vez que escrevo e ainda não obtive sucesso com a resposta. Gostaria de saber passo a passo como mantenho em um formulário a data e que ele so mude quando eu informar nova data e não quando eu gravo os dados.
ex.:
tenho um form assim:
codcliente
data
nome
endereço
gostaria que a data que eu informar ficasse fixa no formulario e que só alterasse quando eu digitasse nova data, pois incluo varios clientes na mesma data e fica chato digitar a mesma data toda hora. Desde já agradeço. bjim


Anonymous

Anonymous

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

04/04/2003

Bem, se o seu desejo é manter a data do dia utilize o evento OnNewRecord da Table e o seguinte código:

Table1Data.Value:=Date();


GOSTEI 0
Anonymous

Anonymous

04/04/2003

Coloque no evento BeforePost do TTAble ou do Dataset que vc esta usando:

Variavel_Global := dbEdit.Text;

Coloque no evento AfterEdit e AfterInsert do TTAble ou do Dataset que vc esta usando:

dbEdit.Text := Variavel_Global;


GOSTEI 0
Carnette

Carnette

04/04/2003

[quote:3c94393352=´Ana Carolina3´]Olá amigos, está é a terceira vez que escrevo e ainda não obtive sucesso com a resposta. Gostaria de saber passo a passo como mantenho em um formulário a data e que ele so mude quando eu informar nova data e não quando eu gravo os dados.
ex.:
tenho um form assim:
codcliente
data
nome
endereço
gostaria que a data que eu informar ficasse fixa no formulario e que só alterasse quando eu digitasse nova data, pois incluo varios clientes na mesma data e fica chato digitar a mesma data toda hora. Desde já agradeço. bjim[/quote:3c94393352]

Poxa...Vamos lá então....

1o. - Declare uma variavel tipo data lá no private declaration tipo assim:

private
{ Private declarations }
variaveldata : TDateTime;

2o - No envento ONSHOW do form voce coloca :

variaveldata := Date;

3o. - No evento AFTERINSERT do componente TABLE voce coloca o seguinte:

TABLECAMPODATA.Value := variaveldata;

4o - No evento BEFOREPOST do componente TABLE voce coloca o seguinte:

variaveldata := TABLECAMPODATA.Value;

Boa viagem


GOSTEI 0
POSTAR