menu.pas

港口货物管理系统

unit menu;

interface

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

type
  Tmenufm = class(TForm)
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    N1: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    I1: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    Q1: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    R1: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N32: TMenuItem;
    H1: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    ActionManager1: TActionManager;
    Ainputgoodspec: TAction;
    Ainputmplan: TAction;
    ainputgoods: TAction;
    aexportgoods: TAction;
    ahomework: TAction;
    N40: TMenuItem;
    N41: TMenuItem;
    aqueryinput: TAction;
    aqueryoutput: TAction;
    alookupgname: TAction;
    aqueryplan: TAction;
    N42: TMenuItem;
    N43: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N9: TMenuItem;
    Aadduser: TAction;
    N13: TMenuItem;
    N49: TMenuItem;
    achangepass: TAction;
    aemptytable: TAction;
    N5: TMenuItem;
    Image1: TImage;
    N50: TMenuItem;
    aqueryall: TAction;
    aqueryallout: TAction;
    aqueryallchart: TAction;
    aqueryplanchart: TAction;
    Achangedata: TAction;
    N51: TMenuItem;
    N52: TMenuItem;
    acreatgroup: TAction;
    aquerygroup: TAction;
    Aaddagoodd: TAction;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    aaddspot: TAction;
    Aspotgoodsjc: TAction;
    afmspotgoodsjcchart: TAction;
    afmqueryout1: TAction;
    afmtodaydb: TAction;
    ToolBar1: TToolBar;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    CoolBar1: TCoolBar;
    aabout: TAction;
    procedure AinputgoodspecExecute(Sender: TObject);
    procedure AinputmplanExecute(Sender: TObject);
    procedure ainputgoodsExecute(Sender: TObject);
    procedure aexportgoodsExecute(Sender: TObject);
    procedure ahomeworkExecute(Sender: TObject);
    procedure aqueryinputExecute(Sender: TObject);
    procedure aqueryoutputExecute(Sender: TObject);
    procedure alookupgnameExecute(Sender: TObject);
    procedure aqueryplanExecute(Sender: TObject);
    procedure AadduserExecute(Sender: TObject);
    procedure aloginExecute(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure achangepassExecute(Sender: TObject);
    procedure aemptytableExecute(Sender: TObject);
    procedure aqueryallExecute(Sender: TObject);
    procedure aqueryalloutExecute(Sender: TObject);
    procedure aqueryallchartExecute(Sender: TObject);
    procedure aqueryplanchartExecute(Sender: TObject);
    procedure AchangedataExecute(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure acreatgroupExecute(Sender: TObject);
    procedure aquerygroupExecute(Sender: TObject);
    procedure AaddagooddExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure aaddspotExecute(Sender: TObject);
    procedure AspotgoodsjcExecute(Sender: TObject);
    procedure afmspotgoodsjcchartExecute(Sender: TObject);
    procedure afmqueryout1Execute(Sender: TObject);
    procedure afmtodaydbExecute(Sender: TObject);
    procedure aaboutExecute(Sender: TObject);
  private
    { Private declarations }
  public

  end;

var
  menufm: Tmenufm;

implementation

uses inputgoodspec, umplan, uinputgoods, uexportgoods, uhomework,
  udm_user,uqueryinput, Uqueryoutput,ulogin, ulookupagname, uqueryplan, Uadduser,
  Uchangepass, uemptytable, uqueryall, Uqueryallout, Uqueryallchart,
  uqueryplanchart, uchangedata, Ucreatgroup, uquerygroup, uaddagoodd,
  uaddspot, ufmspotgoodsjc, ufmspotgoodsjcchart, ufmqueryout1, ufmtodaydb,
  uabout;



{$R *.dfm}

procedure Tmenufm.AinputgoodspecExecute(Sender: TObject);
begin
application.CreateForm(tfminputgoodspec,fminputgoodspec);
fminputgoodspec.showmodal;
end;

procedure Tmenufm.AinputmplanExecute(Sender: TObject);
begin
application.CreateForm(tfmmplan,fmmplan);
fmmplan.showmodal;
end;

procedure Tmenufm.ainputgoodsExecute(Sender: TObject);
begin
application.CreateForm(tfminputgoods,fminputgoods);
fminputgoods.showmodal;
end;

procedure Tmenufm.aexportgoodsExecute(Sender: TObject);
begin
application.CreateForm(Tfmexporgoods,fmexporgoods);
fmexporgoods.showmodal;
end;

procedure Tmenufm.ahomeworkExecute(Sender: TObject);
begin
application.CreateForm(Tfmhomework,fmhomework);
fmhomework.showmodal;

end;

procedure Tmenufm.aqueryinputExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryinput,fmqueryinput);
fmqueryinput.showmodal;

end;

procedure Tmenufm.aqueryoutputExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryoutput,fmqueryoutput);
fmqueryoutput.showmodal;

end;

procedure Tmenufm.alookupgnameExecute(Sender: TObject);
begin
application.CreateForm(Tfmquerygname,fmquerygname);
fmquerygname.showmodal;
end;

procedure Tmenufm.aqueryplanExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryplan,fmqueryplan);
fmqueryplan.showmodal;
end;

procedure Tmenufm.AadduserExecute(Sender: TObject);
begin
application.CreateForm(Tfmadduser,fmadduser);
fmadduser.showmodal;
end;

procedure Tmenufm.aloginExecute(Sender: TObject);
begin
application.CreateForm(Tfmlogin,fmlogin);
fmlogin.showmodal;
end;

procedure Tmenufm.FormActivate(Sender: TObject);
var qx:string;
begin
statusbar1.Panels[0].Text:='';
statusbar1.Panels[1].Text:='';
statusbar1.Panels[2].Text:='操作员:  '+fmuser.strgroup+':'+fmuser.susername;
statusbar1.Panels[3].Text:='登录时间:'+formatdatetime('yyyy-mm-dd hh:mm',now);
qx:=fmuser.strqx;
if qx='All' then
begin
aadduser.Enabled:=true;
achangedata.Enabled:=true;
aemptytable.Enabled:=true;
acreatgroup.Enabled:=true;
aaddspot.Enabled:=true;
aaddagoodd.Enabled:=true;
end
else
begin
aadduser.Enabled:=false;
achangedata.Enabled:=false;
aemptytable.Enabled:=false;
acreatgroup.Enabled:=false;
aaddspot.Enabled:=false;
aaddagoodd.Enabled:=false;
end;

if qx<>'None' then
begin
toolbar2.Buttons[0].Enabled:=true;
toolbar2.Buttons[1].Enabled:=true;
toolbar2.Buttons[2].Enabled:=true;
toolbar2.Buttons[3].Enabled:=true;
ainputgoodspec.Enabled:=true;
ainputmplan.Enabled:=true;
ainputgoods.Enabled:=true;
aexportgoods.Enabled:=true;
ahomework.Enabled:=true;
end
else
begin
toolbar2.Buttons[0].Enabled:=false;
toolbar2.Buttons[1].Enabled:=false;
toolbar2.Buttons[2].Enabled:=false;
toolbar2.Buttons[3].Enabled:=false;
ainputgoodspec.Enabled:=false;
ainputmplan.Enabled:=false;
ainputgoods.Enabled:=false;
aexportgoods.Enabled:=false;
ahomework.Enabled:=false;
end;


end;

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

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

procedure Tmenufm.aqueryallExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryall,fmqueryall);
fmqueryall.showmodal;
end;

procedure Tmenufm.aqueryalloutExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryallout,fmqueryallout);
fmqueryallout.showmodal;
end;

procedure Tmenufm.aqueryallchartExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryallchart,fmqueryallchart);
fmqueryallchart.showmodal;

end;

procedure Tmenufm.aqueryplanchartExecute(Sender: TObject);
begin
application.CreateForm(Tfmqueryplanchart,fmqueryplanchart);
fmqueryplanchart.showmodal;
end;

procedure Tmenufm.AchangedataExecute(Sender: TObject);
begin
application.CreateForm(Tfmchangedata,fmchangedata);
fmchangedata.showmodal;

end;

procedure Tmenufm.N6Click(Sender: TObject);
begin
menufm.Close;
end;

procedure Tmenufm.acreatgroupExecute(Sender: TObject);
begin
application.CreateForm(Tfmcreatgroup,fmcreatgroup);
fmcreatgroup.showmodal;
end;

procedure Tmenufm.aquerygroupExecute(Sender: TObject);
begin
application.CreateForm(Tfmquerygroup,fmquerygroup);
fmquerygroup.showmodal;

end;

procedure Tmenufm.AaddagooddExecute(Sender: TObject);
begin
application.CreateForm(Tfmaddagoodd,fmaddagoodd);
fmaddagoodd.showmodal;
end;

procedure Tmenufm.FormCreate(Sender: TObject);
begin
application.OnMessage:=fmlogin.doenterastab;
end;

procedure Tmenufm.N55Click(Sender: TObject);
begin
application.CreateForm(tfmlogin,fmlogin);
fmlogin.ShowModal;
end;

procedure Tmenufm.aaddspotExecute(Sender: TObject);
begin
application.CreateForm(tfmaddspot,fmaddspot);
fmaddspot.ShowModal;
end;

procedure Tmenufm.AspotgoodsjcExecute(Sender: TObject);
begin
application.CreateForm(tfmspotgoodsjc,fmspotgoodsjc);
fmspotgoodsjc.ShowModal;
end;

procedure Tmenufm.afmspotgoodsjcchartExecute(Sender: TObject);
begin
application.CreateForm(tfmspotgoodsjcchart,fmspotgoodsjcchart);
fmspotgoodsjcchart.ShowModal;
end;

procedure Tmenufm.afmqueryout1Execute(Sender: TObject);
begin
application.CreateForm(tfmqueryout1,fmqueryout1);
fmqueryout1.ShowModal;
end;

procedure Tmenufm.afmtodaydbExecute(Sender: TObject);
begin
application.CreateForm(tfmtodaydb,fmtodaydb);
fmtodaydb.OnActivate(sender);
fmtodaydb.OnActivate(sender);
fmtodaydb.QuickRep1.Preview;
end;

procedure Tmenufm.aaboutExecute(Sender: TObject);
begin
application.CreateForm(tfmabout,fmabout);
fmabout.showmodal;
end;
end.