ugmtdatetimepicker.~pas

数据库查询。已经做成控件

unit ugmtDateTimePicker;

interface

uses
  Windows, Classes, ComCtrls, DB, DBCtrls, SysUtils, CommCtrl, Graphics;

type
  TgmtDateTimePicker = class(TDateTimePicker)
  private
    FDataLink: TFieldDataLink;
    function GetDataField: string;
    function GetDataSource: TDataSource;
    function GetField: TField;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(const Value: TDataSource);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property Field: TField read GetField;
  published
    property DataField: string read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('LKP', [TgmtDateTimePicker]);
end;

{ TgmtDateTimePicker }

constructor TgmtDateTimePicker.Create(AOwner: TComponent);
begin
//  inherited Create(AOwner);
//  FDataLink := TFieldDataLink.Create;
//  FDataLink.Control := Self;
end;

destructor TgmtDateTimePicker.Destroy;
begin
  FreeAndNil(FDataLink);
  inherited Destroy;
end;

function TgmtDateTimePicker.GetDataField: string;
begin
  Result := FDataLink.FieldName;
end;

function TgmtDateTimePicker.GetDataSource: TDataSource;
begin
  Result := FDataLink.DataSource;
end;

function TgmtDateTimePicker.GetField: TField;
begin
  Result := FDataLink.Field;
end;

procedure TgmtDateTimePicker.SetDataField(const Value: string);
begin
  FDataLink.FieldName := Value;
end;

procedure TgmtDateTimePicker.SetDataSource(const Value: TDataSource);
begin
  FDataLink.DataSource := Value;
end;

end.