aaa.script

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

var
t:ttest;
ds:Tdataset;
a:Tadoconnection;
function GetData(sQrySQL: string;mAdocon:TAdoConnection): TCustomAdoDataSet;
var
    adoDs   :TCustomAdoDataSet;
    q:TadoQuery;
begin
    q:=tadoquery.create(nil);
    q.connection:=madocon;
    q.sql.clear;
    q.close;
    q.sql.add(sqrysql);
    q.open;
    {
    adoDs := TCustomAdoDataSet.Create(nil);
    adoDs.Connection := mAdocon;
    adoDs.filter := sQrySQL;
    adoDs.filtered:=true;
    Result := adoDs;
    }
    result:=q;
end;
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!');
  if a.connected then
    msgbox('connected',0)
  else
    msgbox('not connected',0);
  ds:=GetData('select count(*) as cnt from icsale',a);

  if not ds.eof then
     msgbox(ds.Fields[0].AsVariant,0)
  else
     msgbox('ds eof',0);
t:=ttest.create;
t.age:=1;
t.nm:='a';
msgbox(t.nm,0);
end.