DateTimePicker

Question

como eu fa�o pra usar um DateTimePicker para trocar data de um campo da tabela??

Um amigo me falou para fazer assim:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
Table1.FieldByName(�ANIVER�).asDate := DateTimePicker1.Date;
end;

mas n�o ta dando certo

obrigado! :wink:

Marcio.theis · Answer

Fiz da seguinte forma e deu certo:[code:1:381554acdf]tbl.Edit;tbl.FieldByName(�DTNASC�).Value:=DateTimePicker1.Date;tbl.Post;[/code:1:381554acdf]Onde que o meu campo DTNASC � do tipo Date...

_dibexs_ · Answer

N�o deu certo acho n�o...ele compila mas n�o leva os dados pra tabelas...  :cry:...

Marcio.theis · Answer

Tem certeza de que antes voc� esta dando um .Edit e depois um .Post ??? Pois � estranho de n�o carregar....Ou coloca aki o que realmente voc� esta executando........

_dibexs_ · Answer

Dessa maneira q tu colocou compila e executa sem erros, por�m a data selecionada n�o vai para a tabela. Uma outra maneira que me falaram � colocar assim:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
ShortDateFormat := �yyyy-mm-dd�;
Table1.FieldByName(�ANIVER�).asDateTime := DateTimePicker1.Date;
end;

Por�m tb est� dando erro. Compila s� que na hora de rodar o programa qdo vou selecionar a data aparece este erro:

http://img16.echo.cx/img16/4224/telaerro1ai.jpg

Marcio.theis · Answer

Esta informando que a sua tabela n�o esta em modo de inser��o nem edi��o, por isto gera o erro....

coloque

Table1.Edit;
Table1.FieldByName(�ANIVER�).Value:=DateTimePicker1.Date;
Table1.Post;

Pois voc� deve antes colocar em modo de edi��o, para depois atribuir o valor desejado....

_dibexs_ · Answer

Tem raz�o, ele grava na tabela sim... o que n�o ta acontecendo � qua quando eu acesso o registro ele n�o mostra ali o valor que ta na tabela......

_dibexs_ · Answer

tentei assim [code:1:1810bf14a3]procedure TForm1.DateTimePicker1Enter(Sender: TObject); begin DateTimePicker1.Date := Table1.FieldByName(�ANIVER�).asDateTime ; end; [/code:1:1810bf14a3]mas n�o deu,,, mals  as perguntas bobas, mas to iniciando aghora em programa��o..valeu pela ajuda de voces..Obrigado......

Marcio.theis · Answer

Voc� pode fazer isto no evento �AfterScroll� da sua tabela... ficando assim:

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
DateTimePicker1.Date := Table1.FieldByName(�ANIVER�).asDateTime ;
end;

Vagner.oliveira · Answer

Tenho um componente [b:768e401a01]DateTimePicker[/b:768e401a01] e no evento [b:768e401a01]On Change[/b:768e401a01] ele faz a seguinte instru��o:

procedure Tf_visualizarordem.CBDiaChange(Sender: TObject);
begin
// Filtra os dias
F_Principal.QAgenda.Close;
F_Principal.QAgenda.sql.Clear;
F_Principal.QAgenda.SQL.Add(�Select * From CadClientes�);
F_Principal.QAgenda.SQL.Add(�Where hora=�+ ����+ CBHora.Text +���� + � and dia=�+ ����+ Formatdatetime(�dd/mm/yyyy�, CBDia.Date) + ����);
F_Principal.QAgenda.Prepare;
F_Principal.QAgenda.Open;

        begin
        if not (F_Principal.QAgenda.FieldByName(�Dia�).IsNull) then
                begin
                Application.MessageBox(�Hor�rio ocupado,� +#13 +�Altere a hora ou o dia, ou N�O SER� salva esta descri��o�, �Agendamentos�, MB_ICONEXCLAMATION);
                Exit;
                end else
F_principal.TClientes.FieldByName(�Dia�).AsString:=FormatDateTime(�dd/mm/yyyy�,CBDia.Date);
        end;
end;

S� que aparece 2 vezes a mensagem �Hor�rio ocupado....�
Gostaria de saber o que est� errado :?:

[b:768e401a01]OBS: coloquei aqui, pois est� dando erro para postar uma mensagem[/b:768e401a01]

Vagner.oliveira · Answer

[quote:b2b603beb3=�vagner.deoliveira�]Tenho um componente [b:b2b603beb3]DateTimePicker[/b:b2b603beb3] e no evento [b:b2b603beb3]On Change[/b:b2b603beb3] ele faz a seguinte instru��o:[code:1:b2b603beb3]procedure Tf_visualizarordem.CBDiaChange(Sender: TObject);begin// Filtra os diasF_Principal.QAgenda.Close;F_Principal.QAgenda.sql.Clear;F_Principal.QAgenda.SQL.Add(�Select * From CadClientes�);F_Principal.QAgenda.SQL.Add(�Where hora=�+ ����+ CBHora.Text +���� + � and dia=�+ ����+ Formatdatetime(�dd/mm/yyyy�, CBDia.Date) + ����);F_Principal.QAgenda.Prepare;F_Principal.QAgenda.Open;        begin        if not (F_Principal.QAgenda.FieldByName(�Dia�).IsNull) then                begin                Application.MessageBox(�Hor�rio ocupado,� +#13 +�Altere a hora ou o dia, ou N�O SER� salva esta descri��o�, �Agendamentos�, MB_ICONEXCLAMATION);                Exit;                end elseF_principal.TClientes.FieldByName(�Dia�).AsString:=FormatDateTime(�dd/mm/yyyy�,CBDia.Date);        end;end;[/code:1:b2b603beb3]S� que aparece 2 vezes a mensagem �Hor�rio ocupado....� Gostaria de saber o que est� errado  :?:[b:b2b603beb3]OBS: coloquei aqui, pois est� dando erro para postar uma mensagem[/b:b2b603beb3][/quote:b2b603beb3]sobe...

Martins · Answer

[quote:5003570464=�vagner.deoliveira�][quote:5003570464=�vagner.deoliveira�]Tenho um componente [b:5003570464]DateTimePicker[/b:5003570464] e no evento [b:5003570464]On Change[/b:5003570464] ele faz a seguinte instru��o:[code:1:5003570464]procedure Tf_visualizarordem.CBDiaChange(Sender: TObject);begin// Filtra os diasF_Principal.QAgenda.Close;F_Principal.QAgenda.sql.Clear;F_Principal.QAgenda.SQL.Add(�Select * From CadClientes�);F_Principal.QAgenda.SQL.Add(�Where hora=�+ ����+ CBHora.Text +���� + � and dia=�+ ����+ Formatdatetime(�dd/mm/yyyy�, CBDia.Date) + ����);F_Principal.QAgenda.Prepare;F_Principal.QAgenda.Open;        begin        if not (F_Principal.QAgenda.FieldByName(�Dia�).IsNull) then                begin                Application.MessageBox(�Hor�rio ocupado,� +#13 +�Altere a hora ou o dia, ou N�O SER� salva esta descri��o�, �Agendamentos�, MB_ICONEXCLAMATION);                Exit;                end elseF_principal.TClientes.FieldByName(�Dia�).AsString:=FormatDateTime(�dd/mm/yyyy�,CBDia.Date);        end;end;[/code:1:5003570464]S� que aparece 2 vezes a mensagem �Hor�rio ocupado....� Gostaria de saber o que est� errado  :?:[b:5003570464]OBS: coloquei aqui, pois est� dando erro para postar uma mensagem[/b:5003570464][/quote:5003570464]sobe[/quote:5003570464]E se vc colocasse no OnEnter n�o funcionaria da forma como vc quer?...

Vagner.oliveira · Answer

n�o, ja tentei e n�o acusa o erro. mas fiz de outra forma, coloquei no evento onclose do form e est� funcionando bem. (n�o do jeito que eu queria hehe)se alguem souber  :oops:...

F�rum DateTimePicker #283289