mc_stsjsd.~pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

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.