workerequip_unt.pas

煤矿行业采掘接替计划自动生成系统

unit WorkerEquip_Unt;

interface

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

type
  TWorkerEquip_Frm = class(TFormBase_Frm)
    PageControl1: TPageControl;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    MineEquip_Sheet: TTabSheet;
    DrillEquip_Sheet: TTabSheet;
    Worker_Sheet: TTabSheet;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MineEquip_SheetResize(Sender: TObject);
    procedure MineEquip_SheetShow(Sender: TObject);
    procedure Worker_SheetShow(Sender: TObject);
    procedure DrillEquip_SheetShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  StartCreate:boolean;
  MineEquipCreate,DrillEquipCreate,WorkerCreate:boolean;
  end;

var
  WorkerEquip_Frm: TWorkerEquip_Frm;

implementation

uses Main_Unt,Worker_Unt,MineEquip_Unt, DrillEquip_Unt;

{$R *.dfm}

procedure TWorkerEquip_Frm.BitBtn2Click(Sender: TObject);
begin
  Close;

end;

procedure TWorkerEquip_Frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
HaveForm:=false;
Action:=caFree;
WorkerEquip_Frm:=nil;

MineEquip_Frm.Free;
MineEquip_Frm:=nil;
MineEquipCreate:=false;

DrillEquip_Frm.Free;
DrillEquip_Frm:=nil;
DrillEquipCreate:=false;

Worker_Frm.Free;
Worker_Frm:=nil;
WorkerCreate:=false;

Main_Frm.StatusBar1.Panels[0].Text:='';
end;

procedure TWorkerEquip_Frm.MineEquip_SheetResize(Sender: TObject);
begin
  if StartCreate then//控制变量，只在窗体创建时的Resize事件才执行以下语句
    begin
      if MineEquipCreate then
        begin
          MineEquip_Frm.Show;
          exit;
        end;
      MineEquip_Frm:=TMineEquip_Frm.Create(pagecontrol1.Pages[0]);
      MineEquip_Frm.Parent:=pagecontrol1.Pages[0];
      MineEquip_Frm.Show;
      MineEquipCreate:=true;
      StartCreate:=false;
    end;
end;

procedure TWorkerEquip_Frm.MineEquip_SheetShow(Sender: TObject);
begin
  if MineEquipCreate then
    begin
      MineEquip_Frm.Show;
      exit;
    end;
  MineEquip_Frm:=TMineEquip_Frm.Create(pagecontrol1.Pages[0]);
  MineEquip_Frm.Parent:=pagecontrol1.Pages[0];
  MineEquip_Frm.Show;
  MineEquipCreate:=true;
end;

procedure TWorkerEquip_Frm.Worker_SheetShow(Sender: TObject);
begin
  if WorkerCreate then
    begin
      Worker_Frm.Show;
      exit;
    end;
  Worker_Frm:=Tworker_Frm.Create(pagecontrol1.Pages[2]);
  Worker_Frm.Parent:=pagecontrol1.Pages[2];
  Worker_Frm.Show;
  WorkerCreate:=true;
end;

procedure TWorkerEquip_Frm.DrillEquip_SheetShow(Sender: TObject);
begin
  if DrillEquipCreate then
    begin
      DrillEquip_Frm.Show;
      exit;
    end;
  DrillEquip_Frm:=TDrillEquip_Frm.Create(pagecontrol1.Pages[1]);
  DrillEquip_Frm.Parent:=pagecontrol1.Pages[1];
  DrillEquip_Frm.Show;
  DrillEquipCreate:=true;

end;

procedure TWorkerEquip_Frm.FormCreate(Sender: TObject);
begin
  //inherited;
  StartCreate:=true;//已经开始创建
  MineEquipCreate:=false;
  DrillEquipCreate:=false;
  WorkerCreate:=false;
end;

procedure TWorkerEquip_Frm.FormResize(Sender: TObject);
begin
  inherited;
  //showmessage('执行到了WorkerEquip_Frm的Resize！');
  BitBtn1.Width:=BitBtn1.Width-round(BitBtn1.Width/2);
  //showmessage('已经定义了Bitbtn1按钮');
  BitBtn2.Width:=BitBtn2.Width-round(BitBtn2.Width/2);
end;

end.