jmxxcxfrm.pas

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

unit jmxxcxfrm;

interface

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

type
  Tjmxxcx = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    Panel2: TPanel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ImageList1: TImageList;
    ToolButton5: TToolButton;
    Image1: TImage;
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jmxxcx: Tjmxxcx;

implementation

uses Unit3, shuifeicx, dianfeicx, zongfeicx, Aboutzf;

{$R *.dfm}

procedure Tjmxxcx.ToolButton5Click(Sender: TObject);
begin
self.Close;
end;

procedure Tjmxxcx.ToolButton1Click(Sender: TObject);
var
 frmJbxx:TfrmJbxx;
begin
  frmJbxx:=TfrmJbxx.Create(self);
  try
   frmJbxx.ShowModal;
  finally
   frmJbxx.Free;
end;
end;

procedure Tjmxxcx.ToolButton2Click(Sender: TObject);
var
 frmShuifeicx:TfrmShuifeicx;
begin
 frmShuifeicx:=TfrmShuifeicx.Create(self);
 try
  frmShuifeicx.ShowModal;
 finally
  frmShuifeicx.Free;
end;
end;

procedure Tjmxxcx.ToolButton3Click(Sender: TObject);
var
 frmDianfeicx:TfrmDianfeicx;
begin
 frmDianfeicx:=TfrmDianfeicx.Create(self);
 try
  frmDianfeicx.ShowModal;
 finally
  frmDianfeicx.free;
 end;
end;

procedure Tjmxxcx.ToolButton4Click(Sender: TObject);
var
 frmzongfei:Tfrmzongfei;
begin
 frmzongfei:=Tfrmzongfei.Create(self);
 try
  frmzongfei.ShowModal;
 finally
  frmzongfei.Free;
 end;
end;

end.