u_form_datacheck.~pas

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

unit U_Form_DataCheck;

interface

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

type
  TForm_DataCheck = class(TForm)
    GroupBox1: TGroupBox;
    BtnCheck1: TButtonExCtl;
    BtnCheck2: TButtonExCtl;
    BtnCheck3: TButtonExCtl;
    ButtonExCtl1: TButtonExCtl;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BtnCheck1Click(Sender: TObject);
    procedure BtnCheck2Click(Sender: TObject);
    procedure BtnCheck3Click(Sender: TObject);
    procedure ButtonExCtl1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_DataCheck: TForm_DataCheck;

implementation

uses U_Form_MainMenu,U_Form_dataCheck_1,U_Form_dataCheck_2,
  U_Form_DataCheck_3,U_Form_DataCheck_4;

{$R *.dfm}

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

procedure TForm_DataCheck.BtnCheck1Click(Sender: TObject);
begin
    if Form_DataCheck_1=nil then
    begin
       EnableWindow(Form_DataCheck.Handle,false);
       Form_DataCheck_1:=TForm_DataCheck_1.Create(Application);
       Form_DataCheck_1.Show;
    end
    else
    begin
       EnableWindow(Form_DataCheck.Handle,false);
       Form_DataCheck_1.Show;
    end;
end;

procedure TForm_DataCheck.BtnCheck2Click(Sender: TObject);
begin
    if Form_DataCheck_2=nil then
    begin
       EnableWindow(Form_DataCheck.Handle,false);
       Form_DataCheck_2:=TForm_DataCheck_2.Create(Application);
       Form_DataCheck_2.Show;
    end
    else
    begin
       EnableWindow(Form_DataCheck.Handle,false);
       Form_DataCheck_2.Show;
    end;
end;

procedure TForm_DataCheck.BtnCheck3Click(Sender: TObject);
begin
    if Form_DataCheck_3=nil then
    begin
       EnableWindow(Form_DataCheck.Handle,false);
       Form_DataCheck_3:=TForm_DataCheck_3.Create(Application);
       Form_DataCheck_3.Show;
    end
    else
    begin
       EnableWindow(Form_DataCheck.Handle,false);
       Form_DataCheck_3.Show;
    end;
end;

procedure TForm_DataCheck.ButtonExCtl1Click(Sender: TObject);
begin
     ///fgdfgfdgfdg
    if Form_DataCheck_4=nil then
    begin
       EnableWindow(Form_DataCheck.Handle,false);
       Form_DataCheck_4:=TForm_DataCheck_4.Create(Application);
       Form_DataCheck_4.Show;
    end
    else
    begin
       EnableWindow(Form_DataCheck.Handle,false);
       Form_DataCheck_4.Show;
    end;
end;

end.