mainfrmunit2.pas

信息管理系统

unit mainfrmUnit2;

interface

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

type
  Tmainfrm = class(TForm)
    MainMenu1: TMainMenu;
    Timer1: TTimer;
    N1: TMenuItem;
    N2: 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;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ImageList1: TImageList;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainfrm: Tmainfrm;

implementation

uses userhold, backup, about, useradd, driverin, driveron, driverout,
  vehicle, vehicleout, run, runout, accident, repair, repairout,
  accidentout, forrep, wageinput, wagefind, paichein, paicheon,
  loginfrmUnit3, tongjifrm, jinricx, riqicx, zwcl;

{$R *.dfm}

procedure Tmainfrm.N7Click(Sender: TObject);
begin
  paicheonfrm.show;
end;

procedure Tmainfrm.N8Click(Sender: TObject);
begin
  jinricxfrm.show;
end;

procedure Tmainfrm.N9Click(Sender: TObject);
begin
  zwclfrm.show;
end;

procedure Tmainfrm.N10Click(Sender: TObject);
begin
  riqicxfrm.show;
end;

procedure Tmainfrm.N11Click(Sender: TObject);
begin
  tjlcfrm.show ;
end;

procedure Tmainfrm.N12Click(Sender: TObject);
begin
  driverinfrm.show; //调用司机基本信息录入界面
end;

procedure Tmainfrm.N13Click(Sender: TObject);
begin
  vehiclefrm.show;     //调用车辆基本信息录入与维护界面
end;

procedure Tmainfrm.N14Click(Sender: TObject);
begin
  accidentfrm.show;  //调用司机基本信息查询界面
end;

procedure Tmainfrm.N16Click(Sender: TObject);
begin
  useraddfrm.Show;  //调用车辆基本信息查询界面
end;

procedure Tmainfrm.N17Click(Sender: TObject);
begin
  userholdfrm.show;          //调用运营基本信息录入与维护界面
end;

procedure Tmainfrm.N18Click(Sender: TObject);
begin
  backupfrm.show;        //调用运营基本信息查询界面
end;

procedure Tmainfrm.N19Click(Sender: TObject);
begin
  loginfrm.user_ed.Text:='';
  loginfrm.pwd_ed.Text:='';
  loginfrm.show;
  mainfrm.Hide ;
end;

procedure Tmainfrm.N6Click(Sender: TObject);
begin
  paicheinfrm.show;
end;

procedure Tmainfrm.FormShow(Sender: TObject);
begin
//设置每一部分的宽度
  statusbar1.Panels[0].Width:=200;
  statusbar1.Panels[1].Width:=100;
  statusbar1.Panels[2].Width:=100;
//设置每一部分的显示内容
  statusbar1.Panels[1].Text :=statusbar1.Panels[1].Text+loginfrm.user;
  statusbar1.Panels[2].Text :=statusbar1.Panels[2].Text+datetimetostr(now);
end;

procedure Tmainfrm.FormCreate(Sender: TObject);
begin
  //填写每个快捷菜单的提示
  toolbutton1.Hint:='派车录入';
  toolbutton2.Hint:='今日派车查询';
  toolbutton3.Hint:='里程统计';
  toolbutton4.Hint:='系统管理';
  // 设置提示的显示
  toolbutton1.ShowHint:=true;
  toolbutton2.ShowHint:=true;
  toolbutton3.ShowHint:=true;
  toolbutton4.ShowHint:=true;
  //关联每个快捷菜单的事件代码
  toolbutton1.OnClick:=N6Click;
  toolbutton2.OnClick:=N8Click;
  toolbutton3.OnClick:=N11Click;
  toolbutton4.OnClick:=N15Click;
end;

procedure Tmainfrm.N15Click(Sender: TObject);
begin
repairfrm.show;          //调用车辆维修基本信息录入与维护界面
end;

procedure Tmainfrm.FormActivate(Sender: TObject);
begin
if loginfrm.powerlevel='系统管理员'  then
begin
  driverinfrm.Button1.Enabled:=true;  // 录入司机信息的权限
  driverinfrm.Button4.Enabled:=true;  // 修改司机信息的权限
  driverinfrm.Button6.Enabled:=true;  // 删除司机信息的权限
  vehiclefrm.Button1.Enabled:=true;  // 录入车辆信息的权限
  vehiclefrm.Button2.Enabled:=true;  // 修改车辆信息的权限
  vehiclefrm.Button3.Enabled:=true;  // 删除车辆信息的权限
  accidentfrm.Button1.Enabled:=true;  // 录入事故信息的权限
  accidentfrm.Button2.Enabled:=true;  // 修改事故信息的权限
  accidentfrm.Button3.Enabled:=true;  // 删除事故信息的权限
  repairfrm.Button1.Enabled:=true;  // 录入维修信息的权限
  repairfrm.Button2.Enabled:=true;  // 修改维修信息的权限
  repairfrm.Button3.Enabled:=true;  // 删除维修信息的权限
  mainfrm.N6.Enabled:=true;         // 录入派车单的权限
  mainfrm.N7.Enabled :=true;        // 修改派车单的权限
  mainfrm.N16.Enabled:=true;        // 添加用户的权限
  mainfrm.N18.Enabled :=true;       // 数据备份的权限
  userholdfrm.pastpwd.Enabled:=false;  //系统管理员修改密码不需要原密码
  userholdfrm.User_Del.Enabled:=true;// 删除用户的权限
end
else
begin
  driverinfrm.Button1.Enabled:=false;  //没有录入司机信息的权限
  driverinfrm.Button4.Enabled:=false;  //没有修改司机信息的权限
  driverinfrm.Button6.Enabled:=false;  //没有删除司机信息的权限
  vehiclefrm.Button1.Enabled:=false;  //没有录入车辆信息的权限
  vehiclefrm.Button2.Enabled:=false;  //没有修改车辆信息的权限
  vehiclefrm.Button3.Enabled:=false;  //没有删除车辆信息的权限
  accidentfrm.Button1.Enabled:=false;  //没有录入事故信息的权限
  accidentfrm.Button2.Enabled:=false;  //没有修改事故信息的权限
  accidentfrm.Button3.Enabled:=false;  //没有删除事故信息的权限
  repairfrm.Button1.Enabled:=false;  //没有录入维修信息的权限
  repairfrm.Button2.Enabled:=false;  //没有修改维修信息的权限
  repairfrm.Button3.Enabled:=false;  //没有删除维修信息的权限
  mainfrm.N6.Enabled:=false;         //没有录入派车单的权限
  mainfrm.N7.Enabled :=false;        //没有修改派车单的权限
  mainfrm.N16.Enabled:=false;        //没有添加用户的权限
  mainfrm.N18.Enabled :=false;       //没有数据备份的权限
  userholdfrm.pastpwd.Enabled:=true;  //非系统管理员修改密码需要原密码
  userholdfrm.User_Del.Enabled:=false;//没有删除用户的权限
end;
end;

procedure Tmainfrm.N20Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure Tmainfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate;
end;

end.