frmbasedatamain.pas

物流供应链管理系统

unit frmBaseDataMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, DBCtrls, DB, ADODB;

type
  TFormBaseDataMain = class(TForm)
    MainMenu2: TMainMenu;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    ABC1: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    MISysUserManage: TMenuItem;
    MIGoodsRelate: TMenuItem;
    MIBaseData: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure ABC1Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
  private
    { Private declarations }
    procedure DisplayForm(AFormClass: TFormClass);
  public
    { Public declarations }
  end;

var
  FormBaseDataMain: TFormBaseDataMain;

implementation
uses frmGoodsData, frmSysOperator, frmRegion, frmEmployee,
  frmPermissionManage, frmVendorManage, frmWareHouseManage,
  frmLogin, frmOrderPolicy, frmGoodsCategory, frmEduLevel,
  frmLifeSpanUnit, frmABCCategory, frmWeightUnit, frmVolumnUnit,
  frmCheckupGrade, frmPayType, frmUnit, frmJobType, frmCurrencyUnit,
  frmDepart;
{$R *.dfm}


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

procedure TFormBaseDataMain.N2Click(Sender: TObject);
begin
  DisplayForm(TFormSysOperator);
end;

procedure TFormBaseDataMain.N4Click(Sender: TObject);
begin
  DisplayForm(TFormGoodsData);
end;

procedure TFormBaseDataMain.N6Click(Sender: TObject);
begin
  DisplayForm(TFormRegion);
end;

procedure TFormBaseDataMain.N7Click(Sender: TObject);
begin
  DisplayForm(TFormEmployee);
end;

procedure TFormBaseDataMain.N8Click(Sender: TObject);
begin
  DisplayForm(TFormPermissionManage);
end;

procedure TFormBaseDataMain.N9Click(Sender: TObject);
begin
  DisplayForm(TFormVendor);
end;

procedure TFormBaseDataMain.N10Click(Sender: TObject);
begin
  DisplayForm(TFormWareHouseManage);
end;

procedure TFormBaseDataMain.FormShow(Sender: TObject);
var
  LLoginDlg: TFormLogin;
  LPerList: TStringList;
  i: Integer;
begin
  LLoginDlg := TFormLogin.Create(nil);
  if mrCancel = LLoginDlg.ShowModal then
    Close;

  LPerList := TStringList.Create;
  LPerList.Text := LLoginDlg.GetUserRightList;
  LLoginDlg.Free;

  MISysUserManage.Visible := false;
  MIGoodsRelate.Visible := false;
  MIBaseData.Visible := false;
  if LPerList.Find('SysUserManage',i) then
    MISysUserManage.Visible := true;

  if LPerList.Find('SysChangeBaseData',i) then
  begin
    MIGoodsRelate.Visible := true;
    MIBaseData.Visible := true;
  end;

  if LPerList.Find('SysAdmin',i) then
  begin
    MISysUserManage.Visible := true;
    MIGoodsRelate.Visible := true;
    MIBaseData.Visible := true;
  end;
  
  LPerList.Free;
end;

procedure TFormBaseDataMain.N11Click(Sender: TObject);
begin
  DisplayForm(TFormOrderPolicy);
end;

procedure TFormBaseDataMain.N12Click(Sender: TObject);
begin
  DisplayForm(TFormGoodsCategory);
end;

procedure TFormBaseDataMain.N13Click(Sender: TObject);
begin
  DisplayForm(TFormEduLevel);
end;

procedure TFormBaseDataMain.N14Click(Sender: TObject);
begin
  DisplayForm(TFormLifeSpanUnit);
end;

procedure TFormBaseDataMain.ABC1Click(Sender: TObject);
begin
  DisplayForm(TFormABCCategory);
end;

procedure TFormBaseDataMain.N15Click(Sender: TObject);
begin
  DisplayForm(TFormWeightUnit);
end;

procedure TFormBaseDataMain.N16Click(Sender: TObject);
begin
  DisplayForm(TFormVolumnUnit);
end;

procedure TFormBaseDataMain.N17Click(Sender: TObject);
begin
  DisplayForm(TFormDataCheckupGrade);
end;

procedure TFormBaseDataMain.N18Click(Sender: TObject);
begin
  DisplayForm(TFormDataPayType);
end;

procedure TFormBaseDataMain.N19Click(Sender: TObject);
begin
  DisplayForm(TFormDataUnit);
end;

procedure TFormBaseDataMain.N20Click(Sender: TObject);
begin
  DisplayForm(TFormDataJobType);
end;

procedure TFormBaseDataMain.N21Click(Sender: TObject);
begin
  DisplayForm(TFormCurrencyUnit);
end;

procedure TFormBaseDataMain.N22Click(Sender: TObject);
begin
  DisplayForm(TFormDepart);
end;

end.