main.pas

管理车队用车记录

unit main;

interface

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

type
  TForm_main = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton9: TToolButton;
    ToolButton13: TToolButton;
    ToolButton6: TToolButton;
    ToolButton14: TToolButton;
    ToolButton10: TToolButton;
    Exit5: TToolButton;
    N33: TMenuItem;
    ImageList3: TImageList;
    ImageList2: TImageList;
    ImageList1: TImageList;
    Image1: TImage;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    OpenDialog1: TOpenDialog;
    N3: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N11: TMenuItem;
    N45: TMenuItem;
    procedure N34Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure Exit5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_main: TForm_main;

implementation
 uses adduser,del_user,password,backup,recover,addcar, adddriver,
  updatecar, carout, addunit, addsigner, addbegin, addend, addtype1,
  addtype2, repair, addspot, additem, addoilspot, oil, addoiltype,
  updatedriver, updatecarout, updateoil, updaterepair, unitstat, carstat,
  driverstat, setting, DM,login;
{$R *.dfm}

procedure TForm_main.N34Click(Sender: TObject);
begin
form_adduser.ShowModal;
end;

procedure TForm_main.N36Click(Sender: TObject);
begin
form_deluser.ShowModal;
end;

procedure TForm_main.N35Click(Sender: TObject);
begin
form_password.ShowModal;
end;

procedure TForm_main.Exit5Click(Sender: TObject);
begin
close;
end;

procedure TForm_main.N6Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm_main.N8Click(Sender: TObject);
begin
form_backup.ShowModal;
end;

procedure TForm_main.N9Click(Sender: TObject);
begin
form_recover.ShowModal;
end;

procedure TForm_main.N10Click(Sender: TObject);
Var
SkinINI : Tinifile;
SkinPicture : String;
Success : Boolean; //指示换肤是否成功
begin
SkinINI := TiniFile.Create(getcurrentdir+'\skin.ini');
SkinPicture:=SkinINI.ReadString('Interface','skin','');
openDialog1.Filter:='All Image File(*.jpg;*.jpeg;*.bmp;*.ico)|*.jpg;*.jpeg;*.bmp;*.ico|'+'Bitmaps(*.bmp)|*.bmp|'+'Jpeg Image File(*.jpg;*.jpeg)|*.jpeg;*.jpg|'+'Icons(*.ico)|*.ico';
IF OpenDialog1.Execute then
    Begin
   try
 Image1.Picture.LoadFromFile(OpenDialog1.Filename);
 image1.Show;
 except
 Application.MessageBox('装载图片失败!','系统提示!',MB_OK);
 Success:=False;
 end;
 IF Success then
 begin
  image1.Visible:=true;
 SkinINI.WriteString('interface','skin',OpenDialog1.Filename);
 //若换肤成功，将图片信息存进skin.ini文件中;
 end;
 End;
 SkinINI.Free;
 end;

procedure TForm_main.N32Click(Sender: TObject);
begin
form_addcar.ShowModal;
end;

procedure TForm_main.N31Click(Sender: TObject);
begin
form_adddriver.showmodal;
end;

procedure TForm_main.N33Click(Sender: TObject);
begin
form_updatecar.showmodal;
end;

procedure TForm_main.N26Click(Sender: TObject);
begin
form_carout.showmodal;
end;

procedure TForm_main.ToolButton1Click(Sender: TObject);
begin
form_carout.showmodal;
end;

procedure TForm_main.N28Click(Sender: TObject);
begin
form_addunit.showmodal;
end;

procedure TForm_main.N29Click(Sender: TObject);
begin
form_addsigner.showmodal;
end;

procedure TForm_main.N3Click(Sender: TObject);
begin
form_addbegin.showmodal;
end;

procedure TForm_main.N38Click(Sender: TObject);
begin
form_addend.showmodal;
end;

procedure TForm_main.N39Click(Sender: TObject);
begin
form_addtype1.showmodal;
end;

procedure TForm_main.N40Click(Sender: TObject);
begin
form_addtype2.showmodal;
end;

procedure TForm_main.N24Click(Sender: TObject);
begin
form_repair.showmodal;
end;

procedure TForm_main.ToolButton3Click(Sender: TObject);
begin
form_oil.showmodal;
end;

procedure TForm_main.N42Click(Sender: TObject);
begin
form_addspot.showmodal;
end;

procedure TForm_main.N41Click(Sender: TObject);
begin
form_additem.showmodal;
end;

procedure TForm_main.ToolButton9Click(Sender: TObject);
begin
form_repair.ShowModal;
end;

procedure TForm_main.N43Click(Sender: TObject);
begin
form_addoilspot.showmodal;
end;

procedure TForm_main.N22Click(Sender: TObject);
begin
form_oil.showmodal;
end;

procedure TForm_main.N44Click(Sender: TObject);
begin
form_addoiltype.showmodal;
end;

procedure TForm_main.N30Click(Sender: TObject);
begin
form_updatedriver.showmodal;
end;

procedure TForm_main.N27Click(Sender: TObject);
begin
form_updatecarout.showmodal;
end;

procedure TForm_main.N23Click(Sender: TObject);
begin
form_updateoil.showmodal;
end;

procedure TForm_main.N25Click(Sender: TObject);
begin
form_updaterepair.showmodal;
end;

procedure TForm_main.ToolButton13Click(Sender: TObject);
begin
form_unitstat.showmodal;
end;

procedure TForm_main.N19Click(Sender: TObject);
begin
form_unitstat.showmodal;
end;

procedure TForm_main.ToolButton6Click(Sender: TObject);
begin
form_carstat.showmodal;
end;

procedure TForm_main.ToolButton10Click(Sender: TObject);
begin
form_driverstat.showmodal;
end;

procedure TForm_main.N21Click(Sender: TObject);
begin
form_carstat.showmodal;
end;

procedure TForm_main.N20Click(Sender: TObject);
begin
form_driverstat.showmodal;
end;

procedure TForm_main.N45Click(Sender: TObject);
begin
form_setting.showmodal;
end;

procedure TForm_main.FormClose(Sender: TObject; var Action: TCloseAction);
var
fromdir,todir1:string;
begin
if Application.MessageBox('确定要退出系统?','系统提示',MB_YESNO)=idyes then
begin

  form_dm.ADOConnection.Close;
  try
  todir1:='D:\Program Files\autobak.mdb';
  fromdir:=extractfiledir(application.ExeName)+'\data\data.mdb';
  filecopy1(fromdir,todir1);
  form_dm.ADOConnection.open;
  except
  end;
application.Terminate;
end
else
abort;
end;

procedure TForm_main.FormShow(Sender: TObject);
begin
with form_dm.ADOTable_users do
begin
    open;
    locate('name',user_name,[]);
    if(form_dm.ADOTable_users.FieldByName('type').AsString<>'系统管理员') then
    begin
      form_main.N34.Enabled:=false;
      form_main.N36.Enabled:=false;
      form_main.N45.Enabled:=false;
      form_main.N8.Enabled:=false;
      form_main.N9.Enabled:=false;
      form_main.N33.Enabled:=false;
      form_main.N30.Enabled:=false;
      form_main.N39.Enabled:=false;
      form_main.N40.Enabled:=false;
      form_carout.BitBtn2.Enabled:=false;
      form_carout.BitBtn3.Enabled:=false;
      form_carout.BitBtn5.Enabled:=false;
    end;
end;
end;

end.