frmmain.pas

湖滨小区物业管理系统主要是针对湖滨小区的物业管理公司作为使用对象而开发的

unit frmmain;

interface

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

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: 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;
    N22: TMenuItem;
    N23: TMenuItem;
    StatusBar1: TStatusBar;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    Image1: TImage;
    Timer1: TTimer;
    N31: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
      procedure DisplayHint(Sender:Tobject);
    procedure N14Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses admindlg, jianjie1, Unit2, Unit3, bangzhu2, yonghu, yonghu3,louyuxinxi1,
  chwxx1, lyxx, shoufei1, back1, feiyongshezhi1, guzhang1, weixiu1,
  chwprint1, Unit5, Unit6, Unit7;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
//var
//currenttime:variant;

begin
    //currenttime:=gettickcount div 1000 ;
   // while ((gettickcount div 1000)<(currenttime + 3)) do
    //{};
    application.OnHint:=displayhint;
    form2.n5.Enabled:=false;
    form2.N6.Enabled:=false;
    form2.N8.Enabled:=false;
    form2.N9.Enabled:=false;
    form2.N10.Enabled:=false;
    form2.N12.Enabled:=false;
    form2.N23.Enabled:=false;

end;
  procedure tform2.DisplayHint(Sender:Tobject);
begin
 StatusBar1.Panels[0].Text:=Application.Hint;
 end;
procedure TForm2.N3Click(Sender: TObject);
begin
  close;
end;

procedure TForm2.N20Click(Sender: TObject);
begin
jianjie.showmodal;
end;

procedure TForm2.N21Click(Sender: TObject);
begin
aboutbox.showmodal;
end;

procedure TForm2.N17Click(Sender: TObject);
begin
  banzhu.showmodal;
end;

procedure TForm2.N5Click(Sender: TObject);
begin
yonghu1.showmodal;
end;

procedure TForm2.N6Click(Sender: TObject);
begin
  yonghu4.showmodal;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
  yuzhuxinxi.ShowModal;
end;

procedure TForm2.N10Click(Sender: TObject);
begin
  chwxx.showmodal;
end;

procedure TForm2.N8Click(Sender: TObject);
begin
  louyuxinxi2.showmodal;
end;

procedure TForm2.N12Click(Sender: TObject);
begin
    shoufei.showmodal;
end;

procedure TForm2.N23Click(Sender: TObject);
begin
  back.showmodal;
end;

procedure TForm2.N25Click(Sender: TObject);
begin
  feiyongshezhi.showmodal;
end;

procedure TForm2.N27Click(Sender: TObject);
begin
  guzhang.ShowModal;
end;

procedure TForm2.N29Click(Sender: TObject);
begin
  weixiu.showmodal;
end;

procedure TForm2.N15Click(Sender: TObject);
begin
  chwprint.showmodal;
end;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  ANimateWindow(handle,300,AW_HOR_NEGATIVE+AW_Hide+AW_SLIDE); //将窗体从右至左移出屏幕
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
    datetime1:Tdatetime;
    Year,Month,Day: Word; G,b:integer;
begin
     DecodeDate(StrToDate(DateTOStr(Date)),Year,Month,day);  //分解日期
   StatusBar1.Panels[0].Text:='系统日期:'+IntToStr(Year)+ '年'+IntToStr(Month)+'月'+IntToStr(day)+'日';
   datetime1:=now();
   StatusBar1.Panels[1].Text:=datetimetostr(datetime1);
  // DYYLBrose.StatusBar1.Panels[2].Text:='打印日期:'+IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(day)+'日';
   
end;

procedure TForm2.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
    IMAGE1.Width:=Form2.Width;
    IMAGE1.HEIGHT:=Form2.HEIGHT-100;
end;

procedure TForm2.N14Click(Sender: TObject);
begin
    chwprint5.showmodal;
end;

procedure TForm2.N30Click(Sender: TObject);
begin
     chwprint6.showmodal;
end;

procedure TForm2.N31Click(Sender: TObject);
begin
    form7.showmodal;
end;

procedure TForm2.N18Click(Sender: TObject);
begin
 shellexecute(handle,nil,pchar('http://www.jju.edu.cn'),nil,nil,sw_shownormal);
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  admin.showmodal;   
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

end.