ufrm_level2.pas

来自「完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0」· PAS 代码 · 共 54 行

//  ***************************************
//  *    Program name: pattern ufrm_level2*
//  *    AUTHOR      : Guo xuliang        *
//  *    Date        : 2005/05/15         *
//  *    Purpose     :公共模板第二层      *
//  ***************************************

//=================================================================
//設置項目﹕
//1.進行權限的設置
//2.標題的顯示.
//3.程序代碼載入
//4.組/用戶權限代碼的載入
//=================================================================
unit ufrm_level2;

interface

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

type
  Tfrm_level2 = class(Tfrm_level1)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  protected
    //permission maintain.
    u_prog:string;               //Program code
    u_user_permission:string;    //User  permission
    u_grup_permission:string;    //Group permission
  public
    { Public declarations }
  end;

var
  frm_level2: Tfrm_level2;

implementation
uses uglobal_fun,uglobal_var;
{$R *.dfm}

procedure Tfrm_level2.FormCreate(Sender: TObject);
begin
  inherited;
  u_prog:=g_transfer.prog;
  Caption:=cl_title(u_prog);
  cl_loadfunction(u_prog,u_user_permission,u_grup_permission);
end;

end.