fastscript增加公共函数

fastscript增加公共函数

unit fs_BsCommFuncs;

interface
{$i fs.inc}
uses
SysUtils, Classes, fs_iclassesrtti, fs_iinterpreter,fs_ipascal;
type
TBsCommFunctions = class(TfsRTTIModule)
private
function CallMethod(Instance: TObject; ClassType: TClass;
const MethodName: String; Caller: TfsMethodHelper): Variant;
public
constructor Create(AScript: TfsScript); override;
end;
VAR BsCommFunctions:TBsCommFunctions;
implementation
uses MainModule,Bs_BaseList,Bs_BaseEdit,Bs_Math,uniPageControl;

function GetUserCode():string; //获取用户代码
var tempMainModule:TUniMainModule;
begin
Result := '';
tempMainModule := UniMainModule;
Result := tempMainModule.FuserCode;
end;

function Get_GUID(): string;
begin
Result := GetGUID;
end;

constructor TBsCommFunctions.Create(AScript: TfsScript);
begin
inherited Create(AScript);
with AScript do
begin
//--------------模块接口方法--------//
AddMethod('function var_UserCode():string', CallMethod);
AddMethod('function GetGUID():string', CallMethod);

AddMethod('procedure ShowListA(QModueleCode:string;QTabSheet:TUniTabSheet)',CallMethod);
AddMethod('procedure BaseEditA(QModueleCode:string;QKeyValue:string)',CallMethod);
end;
end;

function TBsCommFunctions.CallMethod(Instance: TObject; ClassType: TClass;
const MethodName: String; Caller: TfsMethodHelper): Variant;
begin
if MethodName='VAR_USERCODE' then
Result := GetUserCode()
else
if MethodName='GETGUID' then
Result := Get_GUID()
else
if MethodName='SHOWLISTA' then
ShowList_A(Caller.Params[0],TUniTabSheet(Integer(Caller.Params[1])))
else
if MethodName='BASEEDITA' then
BaseEdit_A(Caller.Params[0],Caller.Params[1])
end;

end.

转载于:https://www.cnblogs.com/hnxxcxg/p/6386509.html