mainfrm.pas

基本的物业管理系统

unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrmMain = class(TForm)
    btSys: TButton;
    btHj: TButton;
    btCr: TButton;
    btFix: TButton;
    btFee: TButton;
    Label1: TLabel;
    btMainExit: TButton;
    procedure btHjClick(Sender: TObject);
    procedure btMainExitClick(Sender: TObject);
    procedure btCrClick(Sender: TObject);
    procedure btSysClick(Sender: TObject);
    procedure btFixClick(Sender: TObject);
    procedure btFeeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation
uses DataM,HJGLfrm,InoutForm,SysForm,FixForm,FeeForm,LoginForm;
{$R *.dfm}

procedure TFrmMain.btHjClick(Sender: TObject);
begin
  FrmLogin.ShowModal;
  if Data.ADOConnectLogin.Connected then
    if (Data.ADOLogin['Authorization']=9) or (Data.ADOLogin['Authorization']=10) then
      begin
      Data.ADOLogin.Edit;
      Data.ADOLogin['LastLogin']:=Now;
      Data.ADOLogin.Post;
      Application.CreateForm(TFrmHJGL, FrmHJGL);
      FrmLogin.Hide;
      FrmMain.Hide;
      FrmHJGL.ShowModal;
      end
    else
    MessageDlg('You Not Have Authorization!',mtError,[mbOK],0);
end;

procedure TFrmMain.btMainExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TFrmMain.btCrClick(Sender: TObject);
begin
  FrmLogin.ShowModal;
  if Data.ADOConnectLogin.Connected then
    if (Data.ADOLogin['Authorization']=8) or (Data.ADOLogin['Authorization']=10) then
      begin
      Data.ADOLogin.Edit;
      Data.ADOLogin['LastLogin']:=Now;
      Data.ADOLogin.Post;
      Application.CreateForm(TFrmInout, FrmInout);
      FrmLogin.Hide;
      FrmMain.Hide;
      FrmInout.ShowModal;
      end
    else
    MessageDlg('You Not Have Authorization!',mtError,[mbOK],0);
end;

procedure TFrmMain.btSysClick(Sender: TObject);
begin
  FrmLogin.ShowModal;
  if Data.ADOConnectLogin.Connected then
    if Data.ADOLogin['Authorization']=10 then
      begin
      Data.ADOLogin.Edit;
      Data.ADOLogin['LastLogin']:=Now;
      Data.ADOLogin.Post;
      Application.CreateForm(TFrmSys, FrmSys);
      FrmLogin.Hide;
      FrmMain.Hide;
      FrmSys.ShowModal;
      end
    else
    MessageDlg('You Not Have Authorization!',mtError,[mbOK],0);
end;

procedure TFrmMain.btFixClick(Sender: TObject);
begin
  FrmLogin.ShowModal;
  if Data.ADOConnectLogin.Connected then
    if (Data.ADOLogin['Authorization']=7) or (Data.ADOLogin['Authorization']=10) then
      begin
      Data.ADOLogin.Edit;
      Data.ADOLogin['LastLogin']:=Now;
      Data.ADOLogin.Post;
      Application.CreateForm(TFrmFix, FrmFix);
      FrmLogin.Hide;
      FrmMain.Hide;
      FrmFix.ShowModal;
      end
    else
    MessageDlg('You Not Have Authorization!',mtError,[mbOK],0);
end;

procedure TFrmMain.btFeeClick(Sender: TObject);
begin
  FrmLogin.ShowModal;
  if Data.ADOConnectLogin.Connected then
    if (Data.ADOLogin['Authorization']=6) or (Data.ADOLogin['Authorization']=10) then
      begin
      Data.ADOLogin.Edit;
      Data.ADOLogin['LastLogin']:=Now;
      Data.ADOLogin.Post;
      Application.CreateForm(TFrmFee, FrmFee);
      FrmLogin.Hide;
      FrmMain.Hide;
      FrmFee.ShowModal;
      end
    else
    MessageDlg('You Not Have Authorization!',mtError,[mbOK],0);
end;

end.