u_form_datacheck_4.~pas

来自「这是一个啤酒行业的软件」· ~PAS 代码 · 共 51 行

unit U_Form_DataCheck_4;

interface

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

type
  TForm_DataCheck_4 = class(TForm)
    GroupBox1: TGroupBox;
    Grid1: TEasyGrid;
    Grid2: TEasyGrid;
    Grid3: TEasyGrid;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label23: TLabel;
    beginDate: TMaskEdit;
    _beginDate: TDateTimePicker;
    Label4: TLabel;
    endDate: TMaskEdit;
    _endDate: TDateTimePicker;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_DataCheck_4: TForm_DataCheck_4;

implementation

uses U_Form_DataCheck;

{$R *.dfm}

procedure TForm_DataCheck_4.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
     EnableWindow(Form_DataCheck.Handle,true);
     CanClose:=true;
end;

end.