DBGrid и DateTimePicker

[Marx88]

Использую компонент DBGrid для отображения содержимого таблицы БД. В ней есть поле типа Date. Когда происходит редактирование строки таблицы, нужно чтобы при нажатии на поле (типа Date) выскакивал календарь, т.е. каждое поле колонки реализует функции компонента DateTimePicker. Как это можно реализовать? Может кто уже встречался с такой проблемой?


Заранее благодарен

[rockedit]

Не сталкивался с такой проблемой, но етсь предложения, для столбца типа дата создай событие OnChange и в нем можешь попробовтаь описать работу с DateTimePicker

[Droid]

Сообщение от Marx88

Использую компонент DBGrid для отображения содержимого таблицы БД. В ней есть поле типа Date. Когда происходит редактирование строки таблицы, нужно чтобы при нажатии на поле (типа Date) выскакивал календарь, т.е. каждое поле колонки реализует функции компонента DateTimePicker. Как это можно реализовать? Может кто уже встречался с такой проблемой?


Заранее благодарен

тут есть такой вариант, причем я знаю только единственный способ его )
Способ такой: берешь компонент и ставишь его поверх значения даты, вот в принцепе и все, главное теперь не ошибится в коде, я делал такое очень геморойно...

[mihali4]

Вот, попробуйте:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (gdFocused in State) then
  begin
    if (Column.Field.FieldName = 'MyDate') then
    with DateTimePicker do 
    begin
      Left := Rect.Left + DBGrid1.Left + 1;
      Top := Rect.Top + DBGrid1.Top + 1;
      Width := Rect.Right - Rect.Left + 2;
      Width := Rect.Right - Rect.Left + 2;
      Height := Rect.Bottom - Rect.Top + 2;
      Visible := True;
    end;
  end;
end;

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  if DBGrid1.SelectedField.FieldName = 'MyDate' then 
    DateTimePicker.Visible := False;
end;

procedure TForm1.DBGrid1KeyPress
(Sender: TObject; var Key: Char);
begin
  if (key = Chr(9)) then Exit; // код табуляции
  if (DBGrid1.SelectedField.FieldName = 'MyDate') then
  begin
    DateTimePicker.SetFocus;
    SendMessage(DateTimePicker.Handle, WM_Char, word(Key), 0);
  end;
end;

procedure TForm1.DateTimePickerChange(Sender: TObject);
begin
  if DBGrid1.DataSource.State in [dsEdit, dsInsert] then
    ADOTable1MyDate.Value := DateTimePicker.DateTime;
end;

procedure TForm1.DateTimePickerDropDown(Sender: TObject);
begin
  DBGrid1.DataSource.Edit;
end;

[Marx88]

Спасибо огромное,это очень помогло!!! Но я использую не объект ADOTable1, а просто Table1 (компонент TTable). Поэтому преобразовал код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, Menus, ComCtrls,
  StdCtrls;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    DateTimePicker1: TDateTimePicker;
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1ColExit(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker1DropDown(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (gdFocused in State) then
  begin
    if (Column.Field.FieldName = 'Последний платеж') then
    with DateTimePicker1 do
    begin
      Left := Rect.Left + DBGrid1.Left + 1;
      Top := Rect.Top + DBGrid1.Top + 1;
      Width := Rect.Right - Rect.Left + 2;
      Width := Rect.Right - Rect.Left + 2;
      Height := Rect.Bottom - Rect.Top + 2;
      Visible := True;
    end;
  end;
end;

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  if DBGrid1.SelectedField.FieldName = 'Последний платеж' then
    DateTimePicker1.Visible := False;
end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key = Chr(9)) then Exit; // код табуляции
  if (DBGrid1.SelectedField.FieldName = 'Последний платеж') then
  begin
    DateTimePicker1.SetFocus;
    SendMessage(DateTimePicker1.Handle, WM_Char, word(Key), 0);
  end;
end;



procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  if DBGrid1.DataSource.State in [dsEdit, dsInsert] then
    DBGrid1.SelectedField.Value:=DateTimePicker1.DateTime;
end;

procedure TForm1.DateTimePicker1DropDown(Sender: TObject);
begin
    DBGrid1.DataSource.Edit;
end;

end.

Но почему-то выскакивает сообщение об ошибке, когда пытаешься изменить дату в первой строке. Сообщение об ошибке:
Record locked by another user.
Table: C:\DB222\PART.DB
User: <какое-то непонятное имя, видимо из-за кодировки>

Из-за чего не пойму. Может что-то неправильно изменил?

P.S. Извиняюсь за глупые вопросы, это мое первое приложение с БД

[mihali4]

Судя по всему - БД Парадокс ?
Это блокировка файлом С:\PDOXUSRS.NET
Нужно закрыть DataBaseDesktop и другие программы, которые могут обращаться к таблице.
Возможно, придется перезапустить Дельфи.

[Marx88]

Да все правильно БД - Парадокс.
Спасибо, так и сделал - все работает!