frmorderdepartmanage.pas

物流供应链管理系统

unit frmOrderDepartManage;

interface

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

type
  TFormMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    MIRelogin: TMenuItem;
    MIPurchaseUserManage: TMenuItem;
    MIExit: TMenuItem;
    N6: TMenuItem;
    MIPurchaseRequestOrderToOrderList: TMenuItem;
    MIPurchaseNewStockIn: TMenuItem;
    MIPurchaseNewOrderList: TMenuItem;
    N7: TMenuItem;
    MIPurchaseNewVendor: TMenuItem;
    MIQueryInfo: TMenuItem;
    MIPurchaseNewGoods: TMenuItem;
    MIPurchaseNewGoodsCate: TMenuItem;
    MIPurchaseQueryInfo: TMenuItem;
    N3: TMenuItem;
    MIPurchaseSysConfig: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure MIPurchaseUserManageClick(Sender: TObject);
    procedure MIPurchaseRequestOrderToOrderListClick(Sender: TObject);
    procedure MIPurchaseNewStockInClick(Sender: TObject);
    procedure MIPurchaseNewOrderListClick(Sender: TObject);
    procedure MIPurchaseNewVendorClick(Sender: TObject);
    procedure MIPurchaseNewGoodsClick(Sender: TObject);
    procedure MIPurchaseNewGoodsCateClick(Sender: TObject);
    procedure MIQueryInfoClick(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure MIPurchaseSysConfigClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FUserId: string;
    FPassword: string;
    FUserPerList: TStringList;
  protected
    procedure DisplayForm(AForm: TForm;AFormClass: TFormClass);virtual;
    procedure SetUserRight;virtual;
  public
    { Public declarations }
  end;


var
  FormMain: TFormMain;

implementation
uses frmLogin, frmSysUserManage, frmRequestOrderToOrderList,
  frmStockInList, frmOrderList, frmVendorManage, frmGoodsManage,
  frmGoodsCateManage, frmQueryInfo, frmUnderSafetyStock,frmConfig;
{$R *.dfm}

procedure TFormMain.FormShow(Sender: TObject);
var
  LDlg: TFormLogin;
begin

  LDlg := TFormLogin.Create(nil);
  if LDlg.ShowModal = mrOK then
  begin
   FUserId := LDlg.GetUserId;
    FPassword := LDlg.GetPassword;
    self.FUserPerList.Text := LDlg.GetUserRightList;
    SetUserRight;
  end;
  LDlg.Free;
end;

procedure TFormMain.MIPurchaseUserManageClick(Sender: TObject);
var
  LDlg: TFormSysUserManage;
begin
  DisplayForm(LDlg, TFormSysUserManage);
  //LDlg.Free;
end;

procedure TFormMain.MIPurchaseRequestOrderToOrderListClick(Sender: TObject);
var
  LDlg: TFormRequestOrderToOrderList;
begin
  DisplayForm(LDlg, TFormRequestOrderToOrderList);
  //LDlg.Free;
end;

procedure TFormMain.MIPurchaseNewStockInClick(Sender: TObject);
var
  LDlg: TFormStockInList;
begin
  DisplayForm(LDlg, TFormStockInList);
  //LDlg.Free;
end;

procedure TFormMain.MIPurchaseNewOrderListClick(Sender: TObject);
var
  LDlg: TFormOrderList;
begin
  DisplayForm(LDlg, TFormOrderList);
  //LDlg.Free;
end;

procedure TFormMain.MIPurchaseNewVendorClick(Sender: TObject);
var
  LDlg: TFormVendorManage;
begin
  DisplayForm(LDlg, TFormVendorManage);
  //LDlg.Free;
end;

procedure TFormMain.MIPurchaseNewGoodsClick(Sender: TObject);
var
  LDlg: TFormGoodsManage;
begin
  DisplayForm(LDlg, TFormGoodsManage);
  //LDlg.Free;
end;

procedure TFormMain.MIPurchaseNewGoodsCateClick(Sender: TObject);
var
  LDlg: TFormGoodsCate;
begin
  DisplayForm(LDlg, TFormGoodsCate);
  //LDlg.Free;
end;

procedure TFormMain.MIQueryInfoClick(Sender: TObject);
var
  LDlg: TFormQueryInfo;
begin
  DisplayForm(LDlg, TFormQueryInfo);
  //LDlg.Free;
end;

procedure TFormMain.N3Click(Sender: TObject);
var
  LDlg: TFormUnderSafetyStock;
begin
  DisplayForm(LDlg, TFormUnderSafetyStock);
  //LDlg.Free;
end;

procedure TFormMain.MIPurchaseSysConfigClick(Sender: TObject);
var
  LDlg: TFormConfig;
begin
  LDlg := TFormConfig.Create(nil);
  LDlg.ShowModal;
  LDlg.Free;
end;

procedure TFormMain.DisplayForm(AForm: TForm;AFormClass: TFormClass);
var
  LFormWait: TFormWait;
begin
  LFormWait := TFormWait.Create(nil);
  LFormWait.Show;
  LFormWait.Update;
  AForm := AFormClass.Create(nil);

  AForm.ShowModal;
  LFormWait.Free;
  AForm.Free;
end;

procedure TFormMain.SetUserRight;
begin
  MIPurchaseUserManage.Visible := false;
  MIPurchaseNewVendor.Visible := false;
  MIPurchaseRequestOrderToOrderList.Visible := false;
  MIPurchaseQueryInfo.Visible := false;
  MIPurchaseNewStockIn.Visible := false;
  MIPurchaseNewOrderList.Visible := false;
  MIPurchaseNewGoods.Visible := false;
  MIPurchaseNewGoodsCate.Visible := false;
  MIPurchaseSysConfig.Visible := false;

  if FUserPerList.IndexOf('PurchaseUserManage')<>-1 then
    MIPurchaseUserManage.Visible := true;
  if FUserPerList.IndexOf('PurchaseNewVendor')<>-1 then
    MIPurchaseNewVendor.Visible := true;
  if FUserPerList.IndexOf('PurchaseRequestOrderToOrderList')<>-1 then
    MIPurchaseRequestOrderToOrderList.Visible := true;
  if FUserPerList.IndexOf('PurchaseQueryInfo')<>-1 then
    MIPurchaseQueryInfo.Visible := true;
  if FUserPerList.IndexOf('PurchaseNewStockIn')<>-1 then
    MIPurchaseNewStockIn.Visible := true;
  if FUserPerList.IndexOf('PurchaseNewOrderList')<>-1 then
    MIPurchaseNewOrderList.Visible := true;
  if FUserPerList.IndexOf('PurchaseNewGoods')<>-1 then
    MIPurchaseNewGoods.Visible := true; //
  if FUserPerList.IndexOf('PurchaseNewGoodsCate')<>-1 then
    MIPurchaseNewGoodsCate.Visible := true;
  if FUserPerList.IndexOf('PurchaseSysConfig')<>-1 then
    MIPurchaseSysConfig.Visible := true;
end;



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

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

end.