selopdate.~pas

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

unit SelOpDate;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, Mask, ToolEdit;

type
  TFormOpDate = class(TForm)
    PageCtrl: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    TabSheet2: TTabSheet;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtnOK: TBitBtn;
    BitBtn2: TBitBtn;
    DateEditS: TDateEdit;
    DateEditF: TDateEdit;
    DateEditT: TDateEdit;
    procedure FormShow(Sender: TObject);
    procedure BitBtnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    DateF,DateT:TDateTime;  
    { Public declarations }
  end;
var
  FormOpDate: TFormOpDate;
implementation

{$R *.DFM}

procedure TFormOpDate.FormShow(Sender: TObject);
begin
  DateEditS.Date:=Date;
  DateEditF.Date:=Date;
  DateEditT.Date:=Date;
end;

procedure TFormOpDate.BitBtnOKClick(Sender: TObject);
begin
    case PageCtrl.ActivePage.TabIndex of
      0:begin
          DateF:=DateEditS.Date;
          DateT:=DateEditS.Date;
          Self.ModalResult:=MrOK;
        end;
      1:begin
          if DateEditT.Date<DateEditF.Date then begin
            ShowMessage('不允许逆向选择日期');
            exit;
          end;
          DateF:=DateEditF.Date;
          DateT:=DateEditT.Date;
          Self.ModalResult:=MrOK;
        end;
    end;
end;

end.