frmwmsmain.pas

物流供应链管理系统

unit frmWMSMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TFormWMSMain = 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;
    procedure N9Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
    FUserId: string;
    FPassword: string;
    FUserPerList: TStringList;
    procedure SetUserRight;
    procedure DisplayForm(AFormClass: TFormClass);
  public
    { Public declarations }
  end;

var
  FormWMSMain: TFormWMSMain;

implementation
uses frmMakeInventory, frmCreateRequestOrder, frmWMSQueryInfo,
  frmSysConfig, frmGoodsData, frmGoodsCate, frmRequestOrderManage,
  frmLogin, frmChangePassword, frmSysUserManage;
{$R *.dfm}

procedure TFormWMSMain.DisplayForm(AFormClass: TFormClass);
var
  LDlg: TForm;
begin
  LDlg := TForm(AFormClass.NewInstance);
  LDlg.Create(nil);
  LDlg.ShowModal;
  LDlg.Free;
end;



procedure TFormWMSMain.N9Click(Sender: TObject);
begin
  DisplayForm(TFormMakeInventory);
end;

procedure TFormWMSMain.N15Click(Sender: TObject);
begin
  DisplayForm(TFormCreateRequestOrder);
end;

procedure TFormWMSMain.N13Click(Sender: TObject);
begin
  DisplayForm(TFormWMSQueryInfo);
end;

procedure TFormWMSMain.N16Click(Sender: TObject);
begin
  DisplayForm(TFormSysConfig);
end;

procedure TFormWMSMain.N11Click(Sender: TObject);
begin
  DisplayForm(TFormGoodsData);
end;

procedure TFormWMSMain.N12Click(Sender: TObject);
begin
  DisplayForm(TFormGoodsCate);
end;

procedure TFormWMSMain.N14Click(Sender: TObject);
begin
  DisplayForm(TFormRequestOrderManage);
end;

procedure TFormWMSMain.FormShow(Sender: TObject);
var
  LDlg: TFormLogin;
begin
  LDlg := TFormLogin.Create(nil);
  if LDlg.ShowModal <> mrOK then
    Application.Terminate;
  FUserId := LDlg.GetUserId;
  FPassword := LDlg.GetPassword;
  FUserPerList.Text := LDlg.GetUserRightList;
  SetUserRight;
  LDlg.Free;
end;

procedure TFormWMSMain.N2Click(Sender: TObject);
var
  LDlg: TFormLogin;
begin
  LDlg := TFormLogin.Create(nil);
  if LDlg.ShowModal = mrOK then
  begin
    FUserId := LDlg.GetUserId;
    FPassword := LDlg.GetPassword;
    FUserPerList.Text := LDlg.GetUserRightList;
    SetUserRight;
  end;
  LDlg.Free;
end;

procedure TFormWMSMain.SetUserRight;
begin
end;

procedure TFormWMSMain.FormCreate(Sender: TObject);
begin
  FUserPerList := TStringList.Create;
end;

procedure TFormWMSMain.FormDestroy(Sender: TObject);
begin
  FUserPerList.Free;
end;

procedure TFormWMSMain.N3Click(Sender: TObject);
var
  LDlg: TFormChangePassword;
begin
  LDlg := TFormChangePassword.Create(nil);
  LDlg.SetUserId(FUserId);
  LDlg.ShowModal;
  LDlg.Free;
end;

procedure TFormWMSMain.N4Click(Sender: TObject);
begin
  DisplayForm(TFormSysUserManage);
end;

end.