rsgdatetimepicker.pas

p2pdbanywhere 可以通过之udp方式远程连接数据库的组件,这个组件非常好,是Delphi7,9,2006能够使用,包含源码.

unit RsgDateTimePicker;

interface

uses
    SysUtils, Classes, Controls, StdCtrls,Db,dbctrls,Graphics,comctrls;

type
  TRsgDateTimePicker = class(TDateTimePicker)
  private
    FDbEdit:TDBEDit;
    FDatasource:TDataSource;
    FDataField:string;
    { Private declarations }
    procedure setdatasource(value:TDataSource);
    procedure setdatafield(value:string);
  protected
    procedure datasourcechange(sender:Tobject; Field: TField);
    procedure pickerchange(sender:Tobject);
    { Protected declarations }
  public
    destructor Destroy; override;
    constructor Create(AOwner: TComponent); override;
    { Public declarations }
  published
    property DataSource:TDataSource read FDataSource write setdatasource;
    property DataField:string read FDataField write setdatafield;
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('DbAnyWhere', [TRsgDateTimePicker]);
end;
destructor TrsgDateTimePicker.Destroy;
begin
  inherited Destroy;
  freeandnil(FdbEdit);
end;
constructor TrsgDateTimePicker.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FDbEdit:=TDbedit.Create(nil);
  self.Color:=clSkyBlue;
end;
procedure TrsgDateTimePicker.setdatasource(value:TDataSource);
begin
  FDataSource:=value;
  FDbedit.DataSource:=value;
  if Fdbedit.DataSource<>nil then
  begin
    fdbedit.DataSource.OnDataChange:=datasourcechange;
    self.OnChange:=pickerchange;
  end else
  begin
    fdbedit.DataSource.OnDataChange:=nil;
    self.OnChange:=nil;
  end;
end;
procedure TrsgDateTimePicker.setdatafield(value:string);
begin
  FDataField:=value;
  Fdbedit.DataField:=value;
end;
procedure TrsgDateTimePicker.datasourcechange(sender:Tobject; Field: TField);
begin
  self.DateTime:=fdbedit.Field.AsDateTime;
end;
procedure TrsgDateTimePicker.pickerchange(sender:Tobject);
begin
  fdbedit.Field.AsDateTime:=self.DateTime;
end;
end.