mainfrm.pas

一个房屋中介管理系统

unit mainfrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus,
  housefrm,jobfrm, StdCtrls, ExtCtrls, ComCtrls,datamodulefrm,
  Db, DBTables,changeuserfrm,changepasswordfrm;

type
  Tmainform = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Database1: TDatabase;
    Table1: TTable;
    N29: TMenuItem;
    procedure N9Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure createchildhouseform(sender:tobject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private

    { Private declarations }
  public
  childhouseform:thouseform;
  childjobform:tjobform;
  childchangeuserform:tchangeuserform;
  childchangepasswordform:tchangepasswordform;
    { Public declarations }
  end;

var
  mainform: Tmainform;

implementation

{$R *.DFM}

procedure Tmainform.N9Click(Sender: TObject);
begin
createchildhouseform(n9);

end;

procedure Tmainform.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[1].text:=datetimetostr(now);
end;

procedure Tmainform.Button1Click(Sender: TObject);
begin
childhouseform:=nil
end;

procedure Tmainform.createchildhouseform(sender:tobject);
begin
if not assigned(childhouseform) then
begin
    childhouseform:=thouseform.Create(application);
   childhouseform.width:=800;
   childhouseform.height:=550;
    childhouseform.windowstate:=wsmaximized;
    end
else childhouseform.windowstate:=wsmaximized;
with childhouseform do
begin
  if sender=n9 then
      begin

      searchpanel.align:=alclient;
          searchpanel.visible:=true ;
        cs.Visible:=false;
          fg.visible:=false;
        inputpanel.visible:=false;
          printpanel.visible:=false;
          planpanel.visible:=false;
          successpanel.visible:=false;
          panel1.visible:=false;

      end
  else if sender=n10 then
      begin
          searchpanel.visible:=false ;
          cs.Visible:=false;
          fg.visible:=false;
          inputpanel.align:=alclient;
          inputpanel.visible:=true;

          printpanel.visible:=false;
          planpanel.visible:=false;
          successpanel.visible:=false;
          panel1.visible:=false;

      end
  else if sender=n11 then
      begin
          searchpanel.visible:=false ;
          inputpanel.visible:=false;
          cs.Visible:=false;
          fg.visible:=false;
          printpanel.visible:=true;

          planpanel.visible:=false;
          successpanel.visible:=false;
            printpanel.align:=alclient;
         panel1.visible:=false;
      end
  else if sender=n12 then
      begin
          searchpanel.visible:=false ;
          inputpanel.visible:=false;
          cs.Visible:=false;
          fg.visible:=false;
          printpanel.visible:=false;
          planpanel.visible:=true;
           successpanel.visible:=false;

            planpanel.align:=alclient;
          panel1.visible:=false;
          changedbchar;
      end
  else if sender=n13 then
      begin
          searchpanel.visible:=false ;
          inputpanel.visible:=false;

          printpanel.visible:=false;
          planpanel.visible:=false;
          successpanel.visible:=true;
          successpanel.align:=alclient;
          cs.Visible:=false;
          fg.visible:=false;
          panel1.visible:=false;
      end
  else if sender=n14 then
      begin
          searchpanel.visible:=false;
          inputpanel.visible:=false;
          printpanel.visible:=false;
          planpanel.visible:=false;
          successpanel.visible:=false;
          cs.visible:=true;
          cs.align:=alclient;
          fg.visible:=false;
          panel1.visible:=false;
      end
  else if sender=n15 then
      begin
          searchpanel.visible:=false;
          inputpanel.visible:=false;
          printpanel.visible:=false;
          planpanel.visible:=false;
          successpanel.visible:=false;
          cs.visible:=false;
          fg.visible:=true;
          fg.align:=alclient;
          panel1.visible:=false;
      end;



end;

end;

procedure Tmainform.N10Click(Sender: TObject);
begin
createchildhouseform(n10);
end;

procedure Tmainform.N11Click(Sender: TObject);
begin
createchildhouseform(n11);
end;

procedure Tmainform.N12Click(Sender: TObject);
begin
createchildhouseform(n12);
end;

procedure Tmainform.N13Click(Sender: TObject);
begin
createchildhouseform(n13);
end;

procedure Tmainform.N14Click(Sender: TObject);
begin
createchildhouseform(n14);
end;

procedure Tmainform.N15Click(Sender: TObject);
begin
createchildhouseform(n15);
end;

procedure Tmainform.N7Click(Sender: TObject);
begin
close;
end;

procedure Tmainform.FormClose(Sender: TObject; var Action: TCloseAction);

begin
  {for i:=mdichildren[1] -1 downto 0 do
      begin
         mdichildren[1].free ;

      end;}
if assigned(childhouseform) then
begin
  childhouseform.free ;
  childhouseform:=nil;
end;
end;

procedure Tmainform.FormCreate(Sender: TObject);
var
   s:string;
begin
table1.First;
s:=table1.FieldByName('username').asstring;
if s='普通用户' then
begin
   n4.enabled:=false;
   n5.enabled:=false;
   n10.enabled:=false;
   n11.enabled:=false;
   n12.enabled:=false;
   n13.enabled:=false;
   statusbar1.Panels[0].text:='当前用户：普通用户' ;

end
else    statusbar1.Panels[0].text:='当前用户：系统管理员' ;
end;



procedure Tmainform.N4Click(Sender: TObject);
begin
caption:='dfs';
end;

procedure Tmainform.N29Click(Sender: TObject);
var
  s:string;
begin
if not assigned(childhouseform) then
begin
childchangeuserform:=tchangeuserform.Create(application);
childchangeuserform.ShowModal;
if childchangeuserform.modalresult=mrok then
with datamodule2 do
begin
usertable.First;
s:=usertable.Fields[0].AsString;
if s='普通用户'  then
begin
   n4.enabled:=false;
   n5.enabled:=false;
   n10.enabled:=false;
   n11.enabled:=false;
   n12.enabled:=false;
   n13.enabled:=false;
   statusbar1.Panels[0].text:='当前用户：普通用户' ;

end
else
begin
   n4.enabled:=true;
   n5.enabled:=true;
   n10.enabled:=true;
   n11.enabled:=true;
   n12.enabled:=true;
   n13.enabled:=true;
   statusbar1.Panels[0].text:='当前用户：系统管理员' ;

end;

end;
end
else showmessage('在更改用户之前，请先关闭子窗口！');
end;

procedure Tmainform.N2Click(Sender: TObject);
begin
childchangepasswordform:=tchangepasswordform.Create(application);
with childchangepasswordform do
begin
 datamodule2.userTable.First;
 ausername:=datamodule2.userTable.Fields[0].AsString;
 statusbar1.Panels[0].text:='当前用户：'+ausername;
 showmodal;
end;
end;

end.