Usando o DBDateTimePicker: DateTimePicker - Parte 2

Olá galera, nesta Quick Tips, irei mostrar, basicamente, como podemos modificar nossos componentes do Delphi, veja este poderoso recurso que podemos fazer com um simples DateTimePicker, fazendo com que o mesmo possa exibir valores de nosso banco de dados, assim como o DBEdit.

Vamos inicialmente criar uma unit, e salvar a mesma como DBDateTimePicker.pas .

Na mesma vamos agora declarar a Classe TDateTimePicker

unit DBDateTimePicker;

interface

    uses

        SysUtils, Classes, Controls, ComCtrls, DBCtrls, DB, Messages;

    type

    TDateTimePicker = class(ComCtrls.TDateTimePicker)

    private

    { Private declarations }

        FDataLink: TFieldDataLink;

        function GetDataField: string;

        function GetDataSource: TDataSource;

        procedure SetDataField(const Value: string);

        procedure SetDataSource(const Value: TDataSource);

        procedure DataChange(Sender: TObject);

    protected

    { Protected declarations }

        procedure UpdateData(Sender: TObject);

        procedure Change; override;

        procedure CMExit(var Msg: TMessage); message CM_EXIT;

    public

    { Public declarations }

        constructor Create(AOwner: TComponent); override;

        destructor Destroy; override;

    published

    { Published declarations }

    property DataField: string read GetDataField write SetDataField;

    property DataSource: TDataSource read GetDataSource write SetDataSource;

end;

implementation

uses

Variants;

{ TDBDateTimePicker }

procedure TDateTimePicker.Change;

begin

    if not FDataLink.Editing then

        FDataLink.Edit;

    FDataLink.Modified;

    inherited;

end;

procedure TDateTimePicker.CMExit(var Msg: TMessage);

begin

    try

        FDataLink.UpdateRecord;

    except

        on Exception do

            SetFocus;

    end;

end;

constructor TDateTimePicker.Create(AOwner: TComponent);

begin

    inherited;

    FDataLink:=TFieldDataLink.Create;

    FDataLink.OnDataChange := DataChange;

    FDataLink.OnUpdateData := UpdateData;

    Self.Date := Now;

end;

procedure TDateTimePicker.DataChange(Sender: TObject);

begin

    if Assigned(FDataLink.DataSource) and Assigned(FDataLink.Field) then

    begin

        if FDataLink.Field.AsDateTime <> StrToDate( '30/12/1899' ) then

            Self.Date:=FDataLink.Field.AsDateTime

        else

            Self.Date := Now;

    end;

end;

destructor TDateTimePicker.Destroy;

begin

    FDataLink.Free;

    inherited;

end;

function TDateTimePicker.GetDataField: string;

begin

    Result:=FDataLink.FieldName;

end;

function TDateTimePicker.GetDataSource: TDataSource;

begin

    Result:=FDataLink.DataSource;

end;

procedure TDateTimePicker.SetDataField(const Value: string);

begin

    FDataLink.FieldName := Value;

end;

procedure TDateTimePicker.SetDataSource(const Value: TDataSource);

begin

    FDataLink.DataSource := Value;

end;

procedure TDateTimePicker.UpdateData(Sender: TObject);

begin

    FDataLink.Field.AsDateTime := Self.Date;

end;

end.

Fico por aqui até a próxima parte.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br

Olá galera, nesta Quick Tips, iremos continuar vendo o nosso componente DBDateTimePicker, que serve para podermos trabalhar de forma igual a um DBEdit, só que usando o DateTimePicker.

Como usar então agora nosso DBDateTimePicker?

            Simplesmente adicionar a Uses DBDateTimePicker.pas, no Formulário onde deseja ter este controle, neste caso, não irá funcionar automaticamente, pois precisamos configurar as propriedades do mesmo fisicamente, mesmo assim precisamos dar uma “pernada” no compilador do Delphi, como ?.

            Vejamos como é simples, ao incluir um TDateTimePicker, e compilar o projeto, você verá que o mesmo se encarrega de dar uses em ComCtrl, unit esta que contém a classe TDateTimePicker. Até ai nenhum mistério. O uses é dado pelo Delphi. Vejamos agora ao adicionar a uses o nosso DBDateTimePicker.

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, DBDateTimePicker, ComCtrl;

            Da maneira que esta, o Delphi não fará diferença ao executar, teste para ver, e entender melhor o exemplo.

Agora da maneira correta.

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ComCtrl, DBDateTimePicker;

            Vamos agora fazer o tão espero exemplo de comportamento, no evento onCreate do seu Formulário precisamos configura as propriedades DataField e DataSource, como fazemos com os componentes DBEdit, DBCombobox.

procedure TFrmPrincipal.FormCreate(Sender: TObject);

begin

    EdtDataNascimento.DataField := 'DATANASCIMENTO';

    EdtDataNascimento.DataSource:= DSCLIENTE;

    EdtDataCadastro.DataField := 'DATACADASTRO';

    EdtDataCadastro.DataSource:= DSCLIENTE;

    EdtDataEmissao.DataField := 'DATAEMISSAO';

    EdtDataEmissao.DataSource:= DSCLIENTE;

{ Obs: Podemos notar que não nos prendemos apenas a usar um unit DateTimePicker, mas sim vários, isso mesmo você pode usar agora seu DateTimePicker para vários controles na mesma tela, igual a um DBEdit, ou DBCombobox como mencionado  }

end;

            Feito isso basta executar seu projeto, e veja o resultado como é simples. Antes podíamos configurar a propriedade EditMask, do nosso Field(dentro do ClientDataSet), agora não precisamos mais fazer isso, basta usarmos o famoso DateTimePicker, que por sinal no Windows Vista/ Win7, tem uns efeitos bem legais, dando um ar mais agradável para nossos sistemas e satisfazendo os clientes.

Até Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br