seldate.pas

电力行业前台收费程序,需要有后台SQL数据库,和电费管理系统配合应用.

unit SelDate;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin, Buttons, ExtCtrls,DB,ComCtrls;

type
  TFormDate = class(TForm)
    Bevel3: TBevel;
    Label1: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtnOK: TBitBtn;
    BitBtnCancel: TBitBtn;
    ChkBoxAutoVer: TCheckBox;
    DateTimePicker: TDateTimePicker;
    Label4: TLabel;
    procedure BitBtnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtnOKClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  public
    { Public declarations }
  end;

implementation

uses DataMod, Commfunc, MainForm;

{$R *.DFM}

procedure TFormDate.BitBtnCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TFormDate.FormCreate(Sender: TObject);
begin
  with DataMD do begin
    OpenPubQuery('select getdate()',False);
    DateTimePicker.Date:=QueryPublic.Fields[0].AsDateTime;
  end;
end;

procedure TFormDate.BitBtnOKClick(Sender: TObject);
begin
  if ChkBoxAutoVer.Checked then begin
    DataMD.OpenPubQuery('select getdate()',False);
    SetLocalSystemTime(DataMD.QueryPublic.Fields[0].AsDateTime);
  end;
  Close;
end;

procedure TFormDate.FormClose(Sender: TObject; var Action: TCloseAction);
var
  YY,MM,DD:Word;
begin
  OpDate:=DateTimePicker.Date;
  DecodeDate(OpDate,YY,MM,DD);
  FormMain.PanelDate.Caption:='日期:'+IntToStr(YY)+'年'+FormatFloat('00.',MM)+'月'+FormatFloat('00.',DD)+'号';
end;

end.