umainmenu.~pas

物流行业

unit Umainmenu;

interface

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

type
  Tfmmainmenu = class(TForm)
    MainMenu1: TMainMenu;
    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;
    N16: TMenuItem;
    N17: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ImageList1: TImageList;
    ActionManager1: TActionManager;
    Asetuser: TAction;
    Achangepass: TAction;
    Aedittable: TAction;
    Aemptytable: TAction;
    Aexit: TAction;
    Aimportcontainer: TAction;
    Aexportcontainer: TAction;
    Aoperoutcontainer: TAction;
    Aoperincontainer: TAction;
    Ainputtdh: TAction;
    Aquerytdhyf: TAction;
    Aqueryimportcm: TAction;
    Aqueryimportxh: TAction;
    Aqueryimportyf: TAction;
    Aqueryimport: TAction;
    Aqueryexportcm: TAction;
    Aqueryexportxh: TAction;
    Aqueryexportyf: TAction;
    Aqueryexport: TAction;
    Aqueryoperinyf: TAction;
    Aqueryoperin: TAction;
    Aqueryoperoutyf: TAction;
    Aqueryoperout: TAction;
    Image1: TImage;
    N18: TMenuItem;
    Aquerykc: TAction;
    Acopy: TAction;
    Apaste: TAction;
    ToolButton15: TToolButton;
    ToolButton10: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    Abackup: TAction;
    Arestore: TAction;
    procedure AsetuserExecute(Sender: TObject);
    procedure AemptytableExecute(Sender: TObject);
    procedure AexitExecute(Sender: TObject);
    procedure AimportcontainerExecute(Sender: TObject);
    procedure AexportcontainerExecute(Sender: TObject);
    procedure AoperoutcontainerExecute(Sender: TObject);
    procedure AoperincontainerExecute(Sender: TObject);
    procedure AinputtdhExecute(Sender: TObject);
    procedure AquerytdhyfExecute(Sender: TObject);
    procedure AqueryimportcmExecute(Sender: TObject);
    procedure AqueryimportxhExecute(Sender: TObject);
    procedure AqueryimportyfExecute(Sender: TObject);
    procedure AqueryimportExecute(Sender: TObject);
    procedure AqueryexportcmExecute(Sender: TObject);
    procedure AqueryexportxhExecute(Sender: TObject);
    procedure AqueryexportyfExecute(Sender: TObject);
    procedure AqueryexportExecute(Sender: TObject);
    procedure AqueryoperinyfExecute(Sender: TObject);
    procedure AqueryoperinExecute(Sender: TObject);
    procedure AqueryoperoutyfExecute(Sender: TObject);
    procedure AqueryoperoutExecute(Sender: TObject);
    procedure AedittableExecute(Sender: TObject);
    procedure AquerykcExecute(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure AchangepassExecute(Sender: TObject);
    procedure AcopyExecute(Sender: TObject);
    procedure AbackupExecute(Sender: TObject);
    procedure ArestoreExecute(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmmainmenu: Tfmmainmenu;

implementation

uses Uedittable, Uemptytable, Uexportcontainer, Uexportreport,
  Uimportcontainer, Uinputtdh, Uoperincontainer, Uoperinreport,
  Uoperoutcontainer, Uqueryexport, Uqueryexportcm, Uqueryimport,
  Uqueryexportyf, Uqueryimportcm, Uqueryimportxh, Uqueryimportyf,
  Uqueryinyf, Uquerykc, Uqueryoperin, Uqueryoperout, Uqueryoutyf,
  Uquerytdhyf, Usetuser, Uqueryexportxh, udm_user, Uchangepass,shellAPI;

{$R *.dfm}

procedure Tfmmainmenu.AsetuserExecute(Sender: TObject);
begin
application.CreateForm(Tfmsetuser,fmsetuser);
fmsetuser.showmodal;
end;

procedure Tfmmainmenu.AemptytableExecute(Sender: TObject);
begin
application.CreateForm(Tfmemptytable,fmemptytable);
fmemptytable.showmodal;
end;

procedure Tfmmainmenu.AexitExecute(Sender: TObject);
begin
fmmainmenu.Close;
end;

procedure Tfmmainmenu.AimportcontainerExecute(Sender: TObject);
begin
application.CreateForm(Tfmimportcontainer,fmimportcontainer);
fmimportcontainer.showmodal;
end;

procedure Tfmmainmenu.AexportcontainerExecute(Sender: TObject);
begin
application.CreateForm(Tfmexportcontainer,fmexportcontainer);
fmexportcontainer.showmodal;
end;

procedure Tfmmainmenu.AoperoutcontainerExecute(Sender: TObject);
begin
application.CreateForm(Tfmoperoutcontainer,fmoperoutcontainer);
fmoperoutcontainer.showmodal;
end;

procedure Tfmmainmenu.AoperincontainerExecute(Sender: TObject);
begin
application.CreateForm(Tfmoperincontainer,fmoperincontainer);
fmoperincontainer.showmodal;
end;

procedure Tfmmainmenu.AinputtdhExecute(Sender: TObject);
begin
application.CreateForm(Tfminputtdh,fminputtdh);
fminputtdh.showmodal;
end;

procedure Tfmmainmenu.AquerytdhyfExecute(Sender: TObject);
begin
application.CreateForm(Tfmquerytdhyf,fmquerytdhyf);
fmquerytdhyf.showmodal;
end;

procedure Tfmmainmenu.AqueryimportcmExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryimportcm,fmqueryimportcm);
fmqueryimportcm.showmodal;
end;

procedure Tfmmainmenu.AqueryimportxhExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryimportxh,fmqueryimportxh);
fmqueryimportxh.showmodal;

end;

procedure Tfmmainmenu.AqueryimportyfExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryimportyf,fmqueryimportyf);
fmqueryimportyf.showmodal;

end;

procedure Tfmmainmenu.AqueryimportExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryimport,fmqueryimport);
fmqueryimport.showmodal;

end;

procedure Tfmmainmenu.AqueryexportcmExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryexportcm,fmqueryexportcm);
fmqueryexportcm.showmodal;

end;

procedure Tfmmainmenu.AqueryexportxhExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryexportxh,fmqueryexportxh);
fmqueryexportxh.showmodal;

end;

procedure Tfmmainmenu.AqueryexportyfExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryexportyf,fmqueryexportyf);
fmqueryexportyf.showmodal;

end;

procedure Tfmmainmenu.AqueryexportExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryexport,fmqueryexport);
fmqueryexport.showmodal;

end;

procedure Tfmmainmenu.AqueryoperinyfExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryinyf,fmqueryinyf);
fmqueryinyf.showmodal;

end;

procedure Tfmmainmenu.AqueryoperinExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryoperin,fmqueryoperin);
fmqueryoperin.showmodal;
end;

procedure Tfmmainmenu.AqueryoperoutyfExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryoutyf,fmqueryoutyf);
fmqueryoutyf.showmodal;
end;

procedure Tfmmainmenu.AqueryoperoutExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryoperout,fmqueryoperout);
fmqueryoperout.showmodal;
end;

procedure Tfmmainmenu.AedittableExecute(Sender: TObject);
begin
application.CreateForm(Tfmedittable,fmedittable);
fmedittable.showmodal;
end;

procedure Tfmmainmenu.AquerykcExecute(Sender: TObject);
begin
application.CreateForm(Tfmquerykc,fmquerykc);
fmquerykc.showmodal;
end;

procedure Tfmmainmenu.FormActivate(Sender: TObject);
var qx:string;
begin
statusbar1.Panels[1].Text:='操作员: '+fmuser.struname+'     '+'操作权限：'+fmuser.strqx;
statusbar1.Panels[2].Text:='登录时间:'+formatdatetime('yyyy-mm-dd hh:mm',now);
qx:=fmuser.strqx;
if qx='All' then
begin
aedittable.Enabled:=true;
asetuser.Enabled:=true;
aemptytable.Enabled:=true;
end
else
begin
aedittable.Enabled:=false;
asetuser.Enabled:=false;
aemptytable.Enabled:=false;
end;

if qx='Write' then
begin
abackup.Enabled:=false;
arestore.Enabled:=false;
toolbar2.Buttons[0].Enabled:=true;
toolbar2.Buttons[1].Enabled:=false;
toolbar2.Buttons[2].Enabled:=false;
toolbar2.Buttons[3].Enabled:=false;
aimportcontainer.Enabled:=true;
aexportcontainer.Enabled:=true;
ainputtdh.Enabled:=true;
aoperoutcontainer.Enabled:=true;
aoperincontainer.Enabled:=true;
end;

if qx='Read' then
begin
mainmenu1.Items[5].Enabled:=false;
mainmenu1.Items[6].Enabled:=false;


toolbar2.Buttons[5].Enabled:=false;
toolbar2.Buttons[1].Enabled:=false;

toolbar2.Buttons[2].Enabled:=false;
toolbar2.Buttons[3].Enabled:=false;
toolbar2.Buttons[6].Enabled:=false;
toolbar2.Buttons[7].Enabled:=false;
toolbar2.Buttons[8].Enabled:=false;
toolbar2.Buttons[9].Enabled:=false;
toolbar2.Buttons[10].Enabled:=false;

aedittable.Enabled:=false;
asetuser.Enabled:=false;
aemptytable.Enabled:=false;

aimportcontainer.Enabled:=false;
aexportcontainer.Enabled:=false;
ainputtdh.Enabled:=false;
aoperoutcontainer.Enabled:=false;
aoperincontainer.Enabled:=false;
end;

end;

procedure Tfmmainmenu.AchangepassExecute(Sender: TObject);
begin
application.CreateForm(Tfmchangepass,fmchangepass);
fmchangepass.showmodal;
end;

procedure Tfmmainmenu.AcopyExecute(Sender: TObject);
begin
//ShellExecute(null,"copy d:\miscontainer\misparadox\*.* d:\jss",null,null,null,SW_SHOWNORMAL)
//ShellExecute(handle, "explore", path_to_folder, NULL, NULL, SW_SHOWNORMAL);

end;

procedure Tfmmainmenu.AbackupExecute(Sender: TObject);
begin
if messagebox(0,'是否确认备份数据库?','提示',MB_YESNO)= 6 then
begin
WinExec('d:\miscontainer\backup.bat', SW_SHOWDEFAULT);
showmessage('备份成功!');
end;
end;

procedure Tfmmainmenu.ArestoreExecute(Sender: TObject);
begin
if messagebox(0,'是否确认恢复数据库?','提示',MB_YESNO)= 6 then
begin
WinExec('d:\miscontainer\restore.bat', SW_SHOWDEFAULT);
showmessage('恢复成功!');
end;
end;

end.