unit1.~pas

来自「delphi组件 相当好的一个组件 当你操作数据库时对日期的操作相当方便」· ~PAS 代码 · 共 56 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB, ComCtrls;

type
  TForm1 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure DataSource1UpdateData(Sender: TObject);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  datetimepicker1.Date := datasource1.DataSet.FieldByName('kh_djsj').AsDateTime;
end;

procedure TForm1.DataSource1UpdateData(Sender: TObject);
begin
  datasource1.DataSet.FieldByName('kh_djsj').AsDateTime := datetimepicker1.Date;
end;

procedure TForm1.DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#27 then
  begin
    datasource1.DataSet.Cancel;
  end
  else
  begin
    if datasource1.DataSet.State<>dsedit then
      datasource1.DataSet.Edit;
  end;

end;

end.