unit_main.pas

基本信息：房屋基本信息、客户基本信息、职工基本信息 房屋交易：客户订购、退房、购买 信息查询：销售、订购、结款、交易记录查询 报表查询：日报表、月报表

unit Unit_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls,Unitquanxian, StdCtrls, jpeg, ExtCtrls;

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    StatusBar1: TStatusBar;
    N24: TMenuItem;
    Image1: TImage;
    procedure N4Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);


  private
  { Private declarations }
  public
  { Public declarations }
  procedure showsss( );



   end;

var
  main: Tmain;

implementation
   uses unit_fwjb, Unit_khdg, Unit_dgsh, Unit_khfk, Unit_khtf, Unit_tfsh,Unit_fwcx,
  Unit_jycx, Unit_dgcx, Unit_khjb, Unit_zkdy, Unit_xgmm, Unit_zhhgl;
{$R *.dfm}

procedure Tmain.N4Click(Sender: TObject);
begin
if messagedlg('你确定关闭此窗口吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
main.Close
else
exit;

end;

procedure Tmain.N23Click(Sender: TObject);
begin
if messagedlg('你确定要退出系统吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
main.Close
else
exit;
end;

procedure Tmain.N6Click(Sender: TObject);
begin
fwjb.show;
end;

procedure Tmain.N10Click(Sender: TObject);
begin
form_khdg.show;
end;

procedure Tmain.N12Click(Sender: TObject);
begin
form_dgsh.show;
end;

procedure Tmain.N24Click(Sender: TObject);
begin
form_khfk.show;
end;

procedure Tmain.N11Click(Sender: TObject);
begin
form_khtf.show;
end;

procedure Tmain.N13Click(Sender: TObject);
begin
form_tfsh.show;
end;

procedure tmain.showsss( ); { Public declarations }
   begin
      case  quanxian of
       1:
        begin
         main.n2.visible:=false;
         main.n5.visible:=false;
         main.N9.Visible:=false;
        end ;
        2: begin
            main.n2.visible:=false;
            main.n10.Visible:=false;
            main.N11.Visible:=false;
           end;
         3:
           begin
            main.N2.Visible:=false;
            main.N5.Visible:=false;
            main.N12.Visible:=false;
            main.N13.Visible:=false;
            main.N24.Visible:=false;
            main.n14.Visible:=false;
            main.N19.Visible:=false;
           end;
         4: ;
         else
         end;
         main.Show;
        end;


procedure Tmain.N15Click(Sender: TObject);
begin
fwcx.show;
end;

procedure Tmain.N18Click(Sender: TObject);
begin
jycx.show;
end;

procedure Tmain.N16Click(Sender: TObject);
begin
dgcx.show;
end;

procedure Tmain.N7Click(Sender: TObject);
begin
khjb.show;
end;

procedure Tmain.N20Click(Sender: TObject);
begin
 form_zkdy.show;
end;

procedure Tmain.N3Click(Sender: TObject);
begin
 xgmm.show;
end;

procedure Tmain.N2Click(Sender: TObject);
begin
zhhgl.show;
end;

end.