unit MC_STSJSD;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, DBTables;

type
  TXTSJSD = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn9: TBitBtn;
    Query1: TQuery;
    Query2: TQuery;
    procedure BitBtn9Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XTSJSD: TXTSJSD;

implementation

uses MC_FWCX, MC_QSLXSZ, MC_FJJGSD, MC_FJLESD, MC_PBSSDJ, MC_XQSJSC;

{$R *.DFM}

procedure TXTSJSD.BitBtn1Click(Sender: TObject);   //房屋朝向設定
begin
  If Not Assigned(FWCX) Then
  begin
   FWCX:=TFWCX.Create(Self);
   FWCX.ShowModal;  //調入房屋朝向登記窗體
  End
  else FWCX.ShowModal;
end;

procedure TXTSJSD.BitBtn2Click(Sender: TObject);   //權屬類型設定
begin
  If Not Assigned(QSLXSZ) Then
  begin
   QSLXSZ:=TQSLXSZ.Create(Self);
   QSLXSZ.ShowModal;  //調入權屬類型設定
  End
  else QSLXSZ.ShowModal;
end;

procedure TXTSJSD.BitBtn3Click(Sender: TObject);   // 房間結構設定
begin
  If Not Assigned(FJJGSD) Then
  begin
   FJJGSD:=TFJJGSD.Create(Self);
   FJJGSD.ShowModal;  //調入房間結構設定窗體
  End
  else FJJGSD.ShowModal;
end;

procedure TXTSJSD.BitBtn5Click(Sender: TObject);   //房間類別設置
begin
  If Not Assigned(FJLESD) Then
  begin
    FJLESD:=TFJLESD.Create(Self);
    FJLESD.ShowModal; //調入房間類別設置窗體
  End
  else FJLESD.ShowModal;
end;

procedure TXTSJSD.BitBtn4Click(Sender: TObject);  //配備設施設定
begin
  If Not Assigned(PBSSDJ) Then
  begin
   PBSSDJ:=TPBSSDJ.Create(Self);
   PBSSDJ.ShowModal;   //調入配備設施設定窗體
  End
  else PBSSDJ.ShowModal;
end;
procedure TXTSJSD.BitBtn9Click(Sender: TObject);
begin
  Close;  //退出系統數據設定
end;

procedure TXTSJSD.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  XTSJSD.Release;
  XTSJSD:=Nil;
end;
end.