umain.pas

企业经营管理系统开发实例导航-小区物业管理

unit Umain;

interface

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

type userinfo = record // 定义用户信息
    name: string;
    qx: int64; // 用户权限
    id: int64; //用户编号
  end;

type
  TMainForm = class(TForm)
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    MainMenu1: TMainMenu;
    N38: TMenuItem;
    WYManage: TMenuItem;
    TSGL: TMenuItem;
    BXGL: TMenuItem;
    N47: TMenuItem;
    TCGL: TMenuItem;
    WYJFGL: TMenuItem;
    N44: TMenuItem;
    YFKGL: TMenuItem;
    rptMenu: TMenuItem;
    TSBB: TMenuItem;
    BXBB: TMenuItem;
    N41: TMenuItem;
    SFTJBB: TMenuItem;
    DataInput: TMenuItem;
    FXZLLR: TMenuItem;
    ZHZLLR: TMenuItem;
    N35: TMenuItem;
    SFGL: TMenuItem;
    N37: TMenuItem;
    TCCCWLR: TMenuItem;
    SYSMENU: TMenuItem;
    UserManage: TMenuItem;
    CHANGEPASSWORD: TMenuItem;
    N40: TMenuItem;
    BACKDATA: TMenuItem;
    N15: TMenuItem;
    EXITMENU: TMenuItem;
    N9: TMenuItem;
    SystemHelp: TMenuItem;
    N7: TMenuItem;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    ToolBar2: TToolBar;
    TSGLBT: TToolButton;
    BXGLBT: TToolButton;
    JFDJBT: TToolButton;
    ZHZLBT: TToolButton;
    BACKDATABT: TToolButton;
    ToolButton15: TToolButton;
    About: TMenuItem;
    StatusBar1: TStatusBar;
    ReLogin: TMenuItem;
    procedure EXITMENUClick(Sender: TObject);
    procedure AboutClick(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BACKDATAClick(Sender: TObject);
    procedure BACKDATABTClick(Sender: TObject);
    procedure UserManageClick(Sender: TObject);
    procedure CHANGEPASSWORDClick(Sender: TObject);
    procedure ReLoginClick(Sender: TObject);
    procedure TSGLClick(Sender: TObject);
    procedure TSGLBTClick(Sender: TObject);
    procedure BXGLClick(Sender: TObject);
    procedure BXGLBTClick(Sender: TObject);
    procedure TCGLClick(Sender: TObject);
    procedure FXZLLRClick(Sender: TObject);
    procedure ZHZLLRClick(Sender: TObject);
    procedure SFGLClick(Sender: TObject);
    procedure TCCCWLRClick(Sender: TObject);
    procedure WYJFGLClick(Sender: TObject);
    procedure YFKGLClick(Sender: TObject);
    procedure TSBBClick(Sender: TObject);
    procedure BXBBClick(Sender: TObject);
    procedure SFTJBBClick(Sender: TObject);
    procedure ZHZLBTClick(Sender: TObject);
    procedure JFDJBTClick(Sender: TObject);
  private
    { Private declarations }
  public
    auser: userinfo;
    operid: int64;
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses splash, AboutFormUnit, TloginFormUnit, TdataBackUnit, UserManageUnit, ChangePasswordUnit,
  Udm, ZHTSUnit, ZHBXUnit, parkUnit, ModelUnit, clientUnit, ChargeItemUnit,
  PartPositionUnit, ClientPayUnit, ClientAdvanceUnit, TSrptUnit, BXrptUnit,
  ChargeRptUnit;

{$R *.dfm}

procedure TMainForm.EXITMENUClick(Sender: TObject);
begin
  adodm.toper.Open;
  if adodm.toper.Locate('操作员编号', operid, []) then
  begin
    adodm.toper.edit;
    adodm.toper.FieldByName('退出时间').AsDateTime := now;
    adodm.toper.Post;
  end;
  Halt;
end;

procedure TMainForm.AboutClick(Sender: TObject);
begin
  application.CreateForm(TAboutForm, AboutForm);
  AboutForm.ShowModal;
  AboutForm.free;
end;

procedure TMainForm.ToolButton15Click(Sender: TObject);
begin
  EXITMENU.Click;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  exitMenu.Click;
end;

procedure TMainForm.BACKDATAClick(Sender: TObject);
begin
  application.CreateForm(TDataBack, DataBack);
  DataBack.ShowModal;
  DataBack.free;
end;

procedure TMainForm.BACKDATABTClick(Sender: TObject);
begin
  BackData.Click;
end;

procedure TMainForm.UserManageClick(Sender: TObject);
begin
  application.CreateForm(TUserManageForm, UserManageForm);
  UserManageForm.ShowModal;
  UserManageForm.Free;
end;

procedure TMainForm.CHANGEPASSWORDClick(Sender: TObject);
begin
  application.CreateForm(TChangePasswordForm, ChangePasswordForm);
  changepasswordForm.ShowModal;
  ChangePasswordForm.Free;
end;

procedure TMainForm.ReLoginClick(Sender: TObject);
begin
  adodm.toper.Open;
  if adodm.toper.Locate('操作员编号', operid, []) then
  begin
    adodm.toper.edit;
    adodm.toper.FieldByName('退出时间').AsDateTime := now;
    adodm.toper.Post;
  end;
  MainForm.Free;
  application.CreateForm(TLoginForm, LoginForm);
  LoginForm.ShowModal;
  LoginForm.Free;
end;

procedure TMainForm.TSGLClick(Sender: TObject);
begin
  application.CreateForm(TZHTSForm, ZHTSForm);
  ZHTSForm.ShowModal;
  ZHTSForm.Free;
end;

procedure TMainForm.TSGLBTClick(Sender: TObject);
begin
  TSGL.Click;
end;

procedure TMainForm.BXGLClick(Sender: TObject);
begin
  application.CreateForm(TZHBXForm, ZHBXForm);
  ZHBXForm.ShowModal;
  ZHBXForm.Free;
end;

procedure TMainForm.BXGLBTClick(Sender: TObject);
begin
  BXGL.Click;
end;

procedure TMainForm.TCGLClick(Sender: TObject);
begin
  application.CreateForm(TparkForm, parkForm);
  parkForm.ShowModal;
  parkForm.Free;
end;

procedure TMainForm.FXZLLRClick(Sender: TObject);
begin
  application.CreateForm(TModelForm, ModelForm);
  ModelForm.ShowModal;
  ModelForm.Free;
end;

procedure TMainForm.ZHZLLRClick(Sender: TObject);
begin
//显示住户资料录入窗体
  application.CreateForm(TClientForm, ClientForm);
  ClientForm.ShowModal;
  ClientForm.Free;
end;

procedure TMainForm.SFGLClick(Sender: TObject);
begin
  application.CreateForm(TChargeItemForm, ChargeItemForm);
  ChargeItemForm.ShowModal;
  ChargeItemForm.Free;
end;

procedure TMainForm.TCCCWLRClick(Sender: TObject);
begin
  application.CreateForm(TPartPositionForm, PartPositionForm);
  PartPositionForm.ShowModal;
  PartPositionForm.Free;
end;

procedure TMainForm.WYJFGLClick(Sender: TObject);
begin
  application.CreateForm(TClientPayForm, ClientPayForm);
  ClientPayForm.ShowModal;
  ClientPayForm.Free;
end;

procedure TMainForm.YFKGLClick(Sender: TObject);
begin
  application.CreateForm(TClientAdvanceForm, ClientAdvanceForm);
  ClientAdvanceForm.ShowModal;
  ClientAdvanceForm.Free;
end;

procedure TMainForm.TSBBClick(Sender: TObject);
begin
  application.CreateForm(TTSrptForm, TSrptForm);
  TSrptForm.ShowModal;
  TSrptForm.Free;
end;

procedure TMainForm.BXBBClick(Sender: TObject);
begin
  application.CreateForm(TBXrptForm, BXrptForm);
  BXrptForm.ShowModal;
  BXrptForm.Free;
end;

procedure TMainForm.SFTJBBClick(Sender: TObject);
begin
  application.CreateForm(TChargeRptForm, ChargeRptForm);
  ChargeRptForm.ShowModal;
  ChargeRptForm.Free;
end;

procedure TMainForm.ZHZLBTClick(Sender: TObject);
begin
  ZHZLLR.Click;
end;

procedure TMainForm.JFDJBTClick(Sender: TObject);
begin
  WYJFGL.Click;
end;

end.