baseinfo_unt.pas

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

unit BaseInfo_Unt;

interface                  

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

type
  TBaseInfo_Frm = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    PageControl1: TPageControl;
    Level_Sheet: TTabSheet;
    Coal_Sheet: TTabSheet;
    Area_Sheet: TTabSheet;
    Face_Sheet: TTabSheet;
    WorkSys_Sheet: TTabSheet;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Level_SheetResize(Sender: TObject);
    procedure Coal_SheetShow(Sender: TObject);
    procedure Area_SheetShow(Sender: TObject);
    procedure Face_SheetShow(Sender: TObject);
    procedure WorkSys_SheetShow(Sender: TObject);
    procedure Level_SheetShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    StartCreate:boolean;
    LevelCreate,CoalCreate,AreaCreate,FaceCreate,WorkSysCreate:boolean;
  end;

var
  BaseInfo_Frm: TBaseInfo_Frm;

implementation
uses LevelInfo_Unt,CoalInfo_Unt,AreaInfo_Unt,
     FaceInfo_Unt,LaneInfo_Unt,WorkSysInfo_Unt,
     CustomNameInfo_Unt,Main_Unt;
{$R *.dfm}

procedure TBaseInfo_Frm.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TBaseInfo_Frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
HaveForm:=false;
Action:=caFree;
BaseInfo_Frm:=nil;
LevelInfo_Frm.Free;
LevelInfo_Frm:=nil;
LevelCreate:=false;

CoalInfo_Frm.Free;
CoalInfo_Frm:=nil;
CoalCreate:=false;

AreaInfo_Frm.Free;
AreaInfo_Frm:=nil;
AreaCreate:=false;



FaceInfo_Frm.Free;
FaceInfo_Frm:=nil;
FaceCreate:=false;

WorkSysInfo_Frm.Free;
WorkSysInfo_Frm:=nil;
WorkSysCreate:=false;

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

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

end;

procedure TBaseInfo_Frm.Coal_SheetShow(Sender: TObject);
begin
if CoalCreate then
  begin
    CoalInfo_Frm.Show;
    exit;
  end;
CoalInfo_Frm:=TCoalInfo_Frm.Create(PageControl1.Pages[1]);
CoalInfo_Frm.Parent:=PageControl1.Pages[1];
CoalInfo_Frm.Show;
CoalCreate:=true;
end;

procedure TBaseInfo_Frm.Area_SheetShow(Sender: TObject);
begin
if AreaCreate then
  begin
    AreaInfo_Frm.Show;
    exit;
  end;
AreaInfo_Frm:=TAreaInfo_Frm.Create(PageControl1.Pages[2]);
AreaInfo_Frm.Parent:=PageControl1.Pages[2];
AreaInfo_Frm.Show;
AreaCreate:=true;
end;



procedure TBaseInfo_Frm.Face_SheetShow(Sender: TObject);
begin
if FaceCreate then
  begin
    FaceInfo_Frm.Show;
    exit;
  end;
FaceInfo_Frm:=TFaceInfo_Frm.Create(PageControl1.Pages[3]);
FaceInfo_Frm.Parent:=PageControl1.Pages[3];
FaceInfo_Frm.Show;
FaceCreate:=true;
end;

procedure TBaseInfo_Frm.WorkSys_SheetShow(Sender: TObject);
begin
if WorkSysCreate then
  begin
    WorkSysInfo_Frm.Show;
    exit;
  end;
WorkSysInfo_Frm:=TWorkSysInfo_Frm.Create(PageControl1.Pages[4]);
WorkSysInfo_Frm.Parent:=PageControl1.Pages[4];
WorkSysInfo_Frm.Show;
WorkSysCreate:=true;
end;

procedure TBaseInfo_Frm.Level_SheetShow(Sender: TObject);
begin
if LevelCreate then
  begin
    LevelInfo_Frm.Show;
    exit;
  end;
LevelInfo_Frm:=TLevelInfo_Frm.Create(PageControl1.Pages[0]);
LevelInfo_Frm.Parent:=PageControl1.Pages[0];
LevelInfo_Frm.Show;
LevelCreate:=true;
end;

procedure TBaseInfo_Frm.FormCreate(Sender: TObject);
begin
StartCreate:=true;
LevelCreate:=false;
CoalCreate:=false;
AreaCreate:=false;
FaceCreate:=false;
WorkSysCreate:=false;
end;

end.