mainfrm.pas

这是一个小区物业管理系统

unit Mainfrm;

interface

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

type
  TfrmMain = class(TForm)
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    ToolBar1: TToolBar;
    tbbaoan: TToolButton;
    tbjmcx: TToolButton;
    tbdfdj: TToolButton;
    tbsfcx: TToolButton;
    tbdfcx: TToolButton;
    tbsfdj: TToolButton;
    ImageList1: TImageList;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    ToolButton3: TToolButton;
    N12: TMenuItem;
    N13: TMenuItem;
    procedure N4Click(Sender: TObject);
    procedure tbbaoanClick(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure tbjmcxClick(Sender: TObject);
    procedure tbdfcxClick(Sender: TObject);
    procedure tbsfcxClick(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure tbdfdjClick(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure tbsfdjClick(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses baiandj, jmxxcxfrm, dianfeidj, dianfeicx, shuifeicx, Aboutzf,
  wyglbweihu, shuifeidj, qxbweihu, jmxxwehu, Unit1;

{$R *.dfm}

procedure TfrmMain.N4Click(Sender: TObject);
var
 frmbaoandj:Tfrmbaoandj;
begin
  frmbaoandj:=Tfrmbaoandj.Create(self);
  try
   frmbaoandj.ShowModal;
  finally
   frmbaoandj.Free;
end;
end;

procedure TfrmMain.tbbaoanClick(Sender: TObject);
var
 frmbaoandj:Tfrmbaoandj;
begin
  frmbaoandj:=Tfrmbaoandj.Create(self);
  try
   frmbaoandj.ShowModal;
  finally
   frmbaoandj.Free;
end;
end;
procedure TfrmMain.N6Click(Sender: TObject);
var
  jmxxcx:Tjmxxcx;
begin
   jmxxcx:=Tjmxxcx.Create(self);
   try
    jmxxcx.ShowModal;
   finally
     jmxxcx.Free;
end;
end;

procedure TfrmMain.tbjmcxClick(Sender: TObject);
var
  jmxxcx:Tjmxxcx;
begin
   jmxxcx:=Tjmxxcx.Create(self);
   try
    jmxxcx.ShowModal;
   finally
     jmxxcx.Free;
end;
end;
procedure TfrmMain.tbdfcxClick(Sender: TObject);
var
 frmDianfeicx:TfrmDianfeicx;
begin
 frmDianfeicx:=TfrmDianfeicx.Create(self);
 try
  frmDianfeicx.ShowModal;
 finally
  frmDianfeicx.Free;
 end;

end;

procedure TfrmMain.tbsfcxClick(Sender: TObject);
var
 frmShuifeicx:tfrmShuifeicx;
begin
 frmShuifeicx:=tfrmShuifeicx.Create(self);
 try
  frmShuifeicx.ShowModal;
 finally
  frmShuifeicx.Free;
  end;
end;

procedure TfrmMain.N19Click(Sender: TObject);
var
 about:tabout;
begin
 about:=tabout.Create(self);
 try
  about.ShowModal;
 finally
  about.Free;
 end;
end;

procedure TfrmMain.N12Click(Sender: TObject);
var
 frmShuifeicx:tfrmShuifeicx;
begin
 frmShuifeicx:=tfrmShuifeicx.Create(self);
 try
  frmShuifeicx.ShowModal;
 finally
  frmShuifeicx.Free;
  end;
end;

procedure TfrmMain.N13Click(Sender: TObject);
var
 frmDianfeicx:TfrmDianfeicx;
begin
 frmDianfeicx:=TfrmDianfeicx.Create(self);
 try
  frmDianfeicx.ShowModal;
 finally
  frmDianfeicx.Free;
 end;

end;

procedure TfrmMain.ToolButton3Click(Sender: TObject);
begin
 application.Terminate;
end;

procedure TfrmMain.N14Click(Sender: TObject);
var
 frmwyglbweihu:tfrmwyglbweihu;
begin
 frmwyglbweihu:=Tfrmwyglbweihu.Create(self);
 try
  frmwyglbweihu.ShowModal;
 finally
  frmwyglbweihu.Free;
 end;
end;

procedure TfrmMain.N9Click(Sender: TObject);
var
 frmdianfeidj:Tfrmdianfeidj;
begin
 frmdianfeidj:=tfrmdianfeidj.Create(self);
 try
  frmdianfeidj.ShowModal;
 finally
  frmdianfeidj.Free;
 end;
end;

procedure TfrmMain.tbdfdjClick(Sender: TObject);
var
 frmdianfeidj:Tfrmdianfeidj;
begin
 frmdianfeidj:=tfrmdianfeidj.Create(self);
 try
  frmdianfeidj.ShowModal;
 finally
  frmdianfeidj.Free;
 end;
end;

procedure TfrmMain.N8Click(Sender: TObject);
var
 frmshuifeidj:tfrmshuifeidj;
begin
 frmshuifeidj:=tfrmshuifeidj.Create(self);
 try
  frmshuifeidj.ShowModal;
 finally
  frmshuifeidj.Free;
 end;
end;

procedure TfrmMain.tbsfdjClick(Sender: TObject);
var
 frmshuifeidj:tfrmshuifeidj;
begin
 frmshuifeidj:=tfrmshuifeidj.Create(self);
 try
  frmshuifeidj.ShowModal;
 finally
  frmshuifeidj.Free;
 end;
end;

procedure TfrmMain.N16Click(Sender: TObject);
var
 frmqxbweihu:tfrmqxbweihu;
begin
 frmqxbweihu:=tfrmqxbweihu.Create(self);
 try
  frmqxbweihu.ShowModal;
 finally
  frmqxbweihu.Free;
 end;
end;

procedure TfrmMain.N11Click(Sender: TObject);
var
 frmxxbweihu:tfrmxxbweihu;
begin
 frmxxbweihu:=tfrmxxbweihu.Create(self);
 try
  frmxxbweihu.ShowModal;
 finally
  frmxxbweihu.Free;
 end;
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 application.Terminate;
end;

end.