frmsaledepartmain.pas

非常地全面完整的物流供应链管理系统 包含全部的需求文档

unit frmSaleDepartMain;

interface

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

type
  TFormSaleDepart = class(TForm)
    MainMenu1: TMainMenu;
    xitong1: TMenuItem;
    N1: TMenuItem;
    MISaleUserManage: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    MISaleGenerateStockOutList: TMenuItem;
    MISaleManageStockOutList: TMenuItem;
    MISaleSysConfig: TMenuItem;
    procedure MISaleGenerateStockOutListClick(Sender: TObject);
    procedure MISaleManageStockOutListClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure MISaleUserManageClick(Sender: TObject);
    procedure MISaleSysConfigClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FUserId: string;
    FPassword: string;
    FUserPerList: TStringList;
    procedure DisplayForm(AForm: TForm;AFormClass: TFormClass);virtual;
    procedure SetUserRight;
  public
    { Public declarations }
  end;

var
  FormSaleDepart: TFormSaleDepart;

implementation
uses frmMakeStockOutList, frmStockOutListManage, frmLogin, frmSysUserManage,
  frmConfig;
{$R *.dfm}

procedure TFormSaleDepart.MISaleGenerateStockOutListClick(Sender: TObject);
var
  LDlg: TFormMakeStockOutList;
begin
  DisplayForm(LDlg, TFormMakeStockOutList);
end;

procedure TFormSaleDepart.MISaleManageStockOutListClick(Sender: TObject);
var
  LDlg: TFormStockOutListManage;
begin
  DisplayForm(LDlg, TFormStockOutListManage);
end;

procedure TFormSaleDepart.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 TFormSaleDepart.N1Click(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 TFormSaleDepart.MISaleUserManageClick(Sender: TObject);
var
  LDlg: TFormSysUserManage;
begin
  DisplayForm(LDlg, TFormSysUserManage);
end;

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

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

procedure TFormSaleDepart.SetUserRight;
begin
  MISaleUserManage.Visible := false;
  MISaleManageStockOutList.Visible := false;
  MISaleGenerateStockOutList.Visible := false;
  MISaleSysConfig.Visible := false;

  if FUserPerList.IndexOf('SaleUserManage')<>-1 then
    MISaleUserManage.Visible := true;
  if FUserPerList.IndexOf('SaleManageStockOutList')<>-1 then
    MISaleManageStockOutList.Visible := true;
  if FUserPerList.IndexOf('SaleGenerateStockOutList')<>-1 then
    MISaleGenerateStockOutList.Visible := true;
  if FUserPerList.IndexOf('SaleSysConfig')<>-1 then
    MISaleSysConfig.Visible := true;
end;

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

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

end.