ubaseqrydlg.pas

来自「简单易用的按件按时计工资管理系统」· PAS 代码 · 共 72 行

unit uBaseQryDlg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls;

type
  TBaseQryDlg = class(TForm)
    btnOk: TButton;
    pnlMain: TPanel;
    btnCancel: TButton;
    Label1: TLabel;
    dtStart: TDateTimePicker;
    dtEnd: TDateTimePicker;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  protected
    procedure InitVars;virtual;
    function CheckValidate:Boolean;virtual;
  public
    { Public declarations }
    function GetCondition:string; virtual;
  end;

var
  BaseQryDlg: TBaseQryDlg;

implementation

{$R *.dfm}

{ TBaseQryDlg }

function TBaseQryDlg.GetCondition: string;
begin
  Result:='(1=1)';
end;

procedure TBaseQryDlg.InitVars;
begin
  dtStart.Date :=Date;
  dtEnd.Date :=Date;
end;

procedure TBaseQryDlg.FormCreate(Sender: TObject);
begin
  InitVars;
end;

function TBaseQryDlg.CheckValidate: Boolean;
begin
  Result:=True;
  if dtStart.Date> dtEnd.Date then
  begin
    Result:=False;
    Application.MessageBox(pchar('结束时间不能小于开始时间!'), pchar(Application.Title ), MB_OK + MB_ICONERROR );
  end;
end;

procedure TBaseQryDlg.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:= CheckValidate;
end;

end.