unit1.pas

某小区物业管理系统源码某小区物业管理系统源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, Buttons, Menus, ExtCtrls, ComCtrls, ToolWin,
  DB, ADODB, WinSkinStore, SkinCaption, WinSkinData;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N38: TMenuItem;
    DataInput: TMenuItem;
    FXZLLR: TMenuItem;
    ZHZLLR: TMenuItem;
    N35: TMenuItem;
    SFGL: TMenuItem;
    N37: TMenuItem;
    TCCCWLR: TMenuItem;
    WYManage: TMenuItem;
    TSGL: TMenuItem;
    BXGL: TMenuItem;
    N47: TMenuItem;
    TCGL: TMenuItem;
    N44: TMenuItem;
    WYJFGL: TMenuItem;
    YFKGL: TMenuItem;
    rptMenu: TMenuItem;
    TSBB: TMenuItem;
    BXBB: TMenuItem;
    N41: TMenuItem;
    SFTJBB: TMenuItem;
    SYSMENU: TMenuItem;
    CHANGEPASSWORD: TMenuItem;
    N40: TMenuItem;
    ReLogin: TMenuItem;
    EXITMENU: TMenuItem;
    N9: TMenuItem;
    SystemHelp: TMenuItem;
    About: TMenuItem;
    N7: TMenuItem;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Label1: TLabel;
    N1: TMenuItem;
    Label2: TLabel;
    ADOQuery1: TADOQuery;
    N2: TMenuItem;
    ADOTable1: TADOTable;
    SkinData1: TSkinData;
    SkinCaption1: TSkinCaption;
    N3: TMenuItem;
    procedure FXZLLRClick(Sender: TObject);
    procedure ZHZLLRClick(Sender: TObject);
    procedure SFGLClick(Sender: TObject);
    procedure TCCCWLRClick(Sender: TObject);
    procedure TSGLClick(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure TSGLBTClick(Sender: TObject);
    procedure ZHZLBTClick(Sender: TObject);
    procedure TCGLClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure BXGLClick(Sender: TObject);
    procedure WYJFGLClick(Sender: TObject);
    procedure YFKGLClick(Sender: TObject);
    procedure ReLoginClick(Sender: TObject);
    procedure EXITMENUClick(Sender: TObject);
    procedure CHANGEPASSWORDClick(Sender: TObject);
    procedure TSBBClick(Sender: TObject);
    procedure BXBBClick(Sender: TObject);
    procedure SFTJBBClick(Sender: TObject);
    procedure SystemHelpClick(Sender: TObject);
    procedure AboutClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, unit_jiaofeigl,
  Unit1_yff, Unit2, Unit1_etklxg, Unit_bb1, Unit_bb2, Unit_3, Unit_banzu,
  Unit_guanyu, Unit_zhenjia, Unit1_close, Unit_delete;

{$R *.dfm}

procedure TForm1.FXZLLRClick(Sender: TObject);
begin
   form3.show;
end;

procedure TForm1.ZHZLLRClick(Sender: TObject);
begin
form4.show;
end;

procedure TForm1.SFGLClick(Sender: TObject);
begin
 form5.show;
end;

procedure TForm1.TCCCWLRClick(Sender: TObject);
begin
form8.show;
end;

procedure TForm1.TSGLClick(Sender: TObject);
begin
form7.show;
end;

procedure TForm1.ToolButton15Click(Sender: TObject);
begin
close;
end;

procedure TForm1.TSGLBTClick(Sender: TObject);
begin
 form7.show;
end;

procedure TForm1.ZHZLBTClick(Sender: TObject);
begin
form4.Show;
end;

procedure TForm1.TCGLClick(Sender: TObject);
begin
form6.Show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
 form1_close.show;
end;

procedure TForm1.BXGLClick(Sender: TObject);
begin
form9.show;
end;

procedure TForm1.WYJFGLClick(Sender: TObject);
begin
Form_wyjfgl.show;
end;

procedure TForm1.YFKGLClick(Sender: TObject);
begin
form_yff.show;
end;

procedure TForm1.ReLoginClick(Sender: TObject);
begin
form1.Visible:=false;
form2.show;
 loginsuccess:=false;
end;

procedure TForm1.EXITMENUClick(Sender: TObject);
begin
    form1_close.Show;
end;

procedure TForm1.CHANGEPASSWORDClick(Sender: TObject);
begin
form_klxg.show;
form_klxg.edit1.Text:=form2.edit1.Text;
end;

procedure TForm1.TSBBClick(Sender: TObject);
begin
form_bb1.show;
end;

procedure TForm1.BXBBClick(Sender: TObject);
begin
form_bb2.show;
end;

procedure TForm1.SFTJBBClick(Sender: TObject);
begin
form_bb3.show;
end;

procedure TForm1.SystemHelpClick(Sender: TObject);
begin
form_banzu.show;
end;

procedure TForm1.AboutClick(Sender: TObject);
begin
form_guanyu.show;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  adoquery1.Active:=true;
  adoquery1.Edit;
  adoquery1.FieldByName('退出时间').AsString:=datetimetostr(now);
  adoquery1.Post;


end;

procedure TForm1.N2Click(Sender: TObject);
begin
if Adotable1.Locate('用户名称',form2.edit1.Text,[]) then
  if adotable1.FieldByName('用户权限').AsString='123456' then
  begin
    form_zhenjia.show;
    form_zhenjia.ADOTable1.Append;
   end
 else
 showmessage('对不起,您无权访问!');
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   statusbar1.Panels[1].Text:='当前用户:'+form2.Edit1.Text;
   statusbar1.Panels[2].Text:='登录时间:'+datetimetostr(now);
end;

procedure TForm1.N3Click(Sender: TObject);
begin
if Adotable1.Locate('用户名称',form2.edit1.Text,[]) then
  if adotable1.FieldByName('用户权限').AsString='123456' then
   begin
   form_delete.show;
   end
  else
   showmessage('对不起,您无权访问!');
end;

end.