ggg.script

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

var
t:ttest;
ds:Tdataset;
a:Tadoconnection;
function GetData(sQrySQL: string;mAdocon:TAdoConnection): TCustomAdoDataSet;
var
    adoDs   :TAdoDataSet;
    q:TadoQuery;                            
begin
{
    q:=tadoquery.create(nil);
    q.connection:=madocon;
    q.sql.clear;
    q.close;
    q.sql.add(sqrysql);
    q.open;
}                                     

    adoDs := TAdoDataSet.Create(nil);
    adoDs.Connection := mAdocon;
    adoDs.commandtext := sQrySQL;
    adoDs.open;
    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 ant from icsale',a);
  if not ds.eof then
     msgbox(ds.Fields[0].fieldname,0)//.AsVariant,0)
  else
     msgbox('ds eof',0);
t:=ttest.create;
t.age:=1;
t.nm:='我告诉你，你不要说哦，电脑将要关闭!';
msgbox('自定义类，ttest,取数据库数据,成功了 '+t.nm,0);
t.doinsert(a);
end.