dbGrid 2

[michaenh]

Hi experts.

Well I have a dbGrid which I get some data from my SQL database.
The problem is one of the field retrieves DateTime.

I only want dbGrid to show the date value in that field, not the whole value.

What should I do? I Could make heavy SQL sentence..or is it better ways?

ex. how I get data to dbgrid (exports knows it)
Datamodul.MyADOQuery.SQL.Text := 'bla..bla'
Datamodul.MyADOQuery.Active := True;
Datamodul.MyDataSource.DataSet := Datamodul.MyADOQuery;
DBGrid1.DataSource := Datamodul.MyDataSource;

cheers,
mha

 

[michaenh]

Maybe I should use TStringGrid instead to fill data to each cell(rows and columns), but then I have to code more. Benefits I will have more controll over the grid. Any ideas?

cheers,
mha

 

[towerbase]

You should still use TDBGrid.

Use the GetText event handler for the field in question. In the handler you could use FormatDateTime to get the date format that you want. For example, if the field is called WatchTime your event handler might look like this:

procedure TForm1.WatchTimeGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  text := FormatDateTime ( 'dd/mm/yyyy', Sender.AsDateTime );
end;

Hope this helps.

Andrew

 

[michaenh]

Thanks for the help.

Got it!... smile! thanks

cheers,
mha

 

[richardchaven]

Two small caveates with Andrew's code:

1. Always prepare for a null value.
2. Use the user's (or application's) date format.

procedure TForm1.WatchTimeGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
   if not Sender.IsNull then
       Text := DateToStr(Sender.AsDateTime);
end;

Cheers

 

[michaenh]

Good idea..

Thanks, richardcahaven!

cheers,
mha