借鑒網上寫的DBDateTime控制元件，使用這個控制元件運行程式的問題

借鑒網上寫的DBDateTime控制元件，作為關聯時間型別的資料感知控制元件，使用這個控制元件運行程式，在這個控制元件里第一次采用輸入的方式輸入日期的時候，輸入無效。比如這個控制元件關聯的日期  資料庫里的 資料是  1990-01-01，運行程式，點擊進入這個控制元件，在年那里輸入 1988 ，在點擊跳到月是  控制元件顯示的 從 1988 恢復到 1990 ，第二次再輸入就沒有問題。


控制元件代碼：

unit DBDateTime;

interface

uses
  SysUtils, Classes, Controls, ComCtrls,DBCtrls,DB,Windows,Messages,Dialogs;

type
  TDBDateTime = class(TDateTimePicker)
  private
    FDataLink: TFieldDataLink;
    FAlignment: TAlignment;
    procedure SetAlignment(const Value: TAlignment);
    procedure DataChange(Sender: TObject);
    procedure EditingChange(Sender: TObject);
    procedure UpdateData(Sender: TObject);
    function GetDataField: WideString;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: WideString);
    procedure SetDataSource(const Value: TDataSource);
    procedure CMExit(var Message: TCMExit); message CM_EXIT;
    { Private declarations }
  protected
    procedure Change; override;
    procedure Notification(AComponent: TComponent;
      Operation: TOperation); override;
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    { Public declarations }
  published
    property Alignment: TAlignment read FAlignment write SetAlignment;
    property DataField: WideString read GetDataField write SetDataField;
    property DataSource: TDataSource read GetDataSource write SetDataSource;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Data Controls', [TDBDateTime]);
end;

{ TDBDateTime }

procedure TDBDateTime.Change;
begin
  FDataLink.Modified;
  if not FDataLink.Editing then
       FdataLink.Edit;
  //postmessage(Self.Handle,wm_keydown,VK_RIGHT,0);
  inherited Change;
end;

procedure TDBDateTime.CMExit(var Message: TCMExit);
begin
  try
    FDataLink.UpdateRecord;
  except
    //SelectAll;
    SetFocus;
    raise;
  end;

  DoExit;
end;

constructor TDBDateTime.Create(AOwner: TComponent);
begin
  inherited Create(Aowner);   
  FDataLink := TFieldDataLink.Create;
  FDataLink.Control := Self;
  FDataLink.OnDataChange := DataChange;
  FDataLink.OnEditingChange := EditingChange;
  FDataLink.OnUpdateData := UpdateData;
end;

procedure TDBDateTime.DataChange(Sender: TObject);
begin
  if FDataLink.Field <> nil then
  begin
    if FDatalink.Field.AsDateTime =0 then  DateTime := 1 
    else  DateTime := FDatalink.Field.AsDateTime;
  end else
  begin
    DateTime := now() ;
  end;

end;

destructor TDBDateTime.Destroy;
begin
  FDataLink.OnDataChange:=nil;
  FDataLink.OnUpdateData:=nil;
  FDataLink.Free;
  FDataLink := nil;

  inherited Destroy;
end;

procedure TDBDateTime.EditingChange(Sender: TObject);
begin
  if (DataSource <> nil) and (DataField <> '') then
    FDataLink.Edit;
end;

function TDBDateTime.GetDataField: WideString;
begin
  Result := FDataLink.FieldName;
end;

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

procedure TDBDateTime.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
  if (Operation = opRemove) and (FDataLink <> nil) and
    (AComponent = DataSource) then DataSource := nil;
end;

procedure TDBDateTime.SetAlignment(const Value: TAlignment);
var
  style: DWORD;
begin
  if FAlignment <> Value then
  begin
    FAlignment := Value;
    Style := GetWindowLong(Handle,GWL_STYLE);
    style := style and (not ES_LEFT) and (not ES_CENTER) and (not ES_RIGHT);
    case FAlignment of
    taLeftJustify: SetWindowLong(Handle,GWL_STYLE,style or ES_LEFT);
    taRightJustify: SetWindowLong(Handle,GWL_STYLE,style or ES_RIGHT);
    taCenter: SetWindowLong(Handle,GWL_STYLE,style or ES_CENTER);
    end;
    Invalidate;
  end;
end;

procedure TDBDateTime.SetDataField(const Value: WideString);
begin
    FDataLink.FieldName := Value;
end;

procedure TDBDateTime.SetDataSource(const Value: TDataSource);
begin
  if not (FDataLink.DataSourceFixed and (csLoading in ComponentState)) then
    FDataLink.DataSource := Value;
  if Value <> nil then Value.FreeNotification(Self);
end;

procedure TDBDateTime.UpdateData(Sender: TObject);
begin
  //ShowMessage(DateTimeToStr(DateTime));
  FDatalink.Field.AsDateTime:= DateTime;
end;

end.

uj5u.com熱心網友回復：

使用InfoPower中的日期控制元件。。。

轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/72900.html

標籤：VCL組件開發及應用

上一篇：a = (a + 1)

下一篇：基于Delphi7的圖書資訊管理系統 修改密碼 應該怎么做到