sys_accessctrl_copy.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 68 行

//张程炜、李靖
unit Sys_AccessCtrl_Copy;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseDialogIme, StdCtrls;

Type
  TFrm_Sys_AccessCtrl_Copy = Class(TFrm_BaseDialogIme)
    Label2: TLabel;
    Label3: TLabel;
    Cmbx_User: TComboBox;
    procedure FormActivate(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure check(sender:tobject);Override;
  private
  public
    { Public declarations }
  end;

var
  Frm_Sys_AccessCtrl_Copy: TFrm_Sys_AccessCtrl_Copy;

implementation

uses Sys_AccessCtrl, Sys_Global;

//var checkResult:boolean;

{$R *.DFM}

procedure TFrm_Sys_AccessCtrl_Copy.FormActivate(Sender: TObject);
begin
  inherited;
  Frm_Sys_AccessCtrl.grid1.setfocus;
  InitCmbx(Frm_Sys_AccessCtrl.AdoQry_tmp1.Connection,Cmbx_User,'vw_Operator','EmployeeCode','EmployeeName',False);
end;

procedure TFrm_Sys_AccessCtrl_Copy.btn_okClick(Sender: TObject);
begin
  inherited;
  if checkResult then
  begin
    Frm_Sys_AccessCtrl.Sourceoid:=GetCode(Cmbx_User.text);
    modalResult:=mrok;
  end;
end;

procedure TFrm_Sys_AccessCtrl_Copy.check(sender:tobject);
begin
  inherited;
  if (okbutton or (controlName='Cmbx_User')) then
  begin
    if (GetCode(Cmbx_User.text)=GetCode(Frm_Sys_AccessCtrl.user)) then
    begin
      DispInfo(' 不能复制自己的权限! ',1);
      checkResult:=False;
      exit;
    end;
  end;

end;

end.