utest.pas

来自「pas脚本编译,编译写好的脚本,运用了fastscript控件」· PAS 代码 · 共 30 行

unit UTest;

interface
uses ADODB,WINDOWS,Messages,Dialogs,SysUtils;

type
  TTest=class(tobject)
  public
    Nm :string;
    age:Integer;
    function doInsert(mAdoCon:TAdoconnection):Boolean;
    function doUpdate(mAdoCon:TAdoconnection):Boolean;
    function doDelete(mAdoCon:TAdoconnection):Boolean;
  end;
implementation
function TTest.doInsert(mAdoCon:TAdoconnection):Boolean;
begin
    SHOWMESSAGE('doInsert: Nm='+Nm+' age='+inttostr(age));
end;
function TTest.doUpdate(mAdoCon:TAdoconnection):boolean;
begin
      SHOWMESSAGE('doUpdate');
end;
function TTest.doDelete(mAdoCon:TAdoconnection):boolean;
begin
      SHOWMESSAGE('doDelete');
end;

end.