testclass.script

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

var
t:ttest;
ds:Tdataset;
a:Tadoconnection;

begin
  a:=tadoconnection.create(nil);
  a.ConnectionString :='Driver=SQL Server;UID=sa;PWD=;Server=.;DataBase=ais20050510205830;';
  a.LoginPrompt :=false;
  a.connected:=true;
  showmessage('LINKER DB Success!');                        

t:=ttest.create;
t.age:=1;
t.nm:='自定义类名称属性!';
msgbox('自定义类，ttest,取数据库数据,成功了 '+t.nm,26);
t.doinsert(a);
end.