摘要：procedure TForm1.Button1Click(Sender: TObject); var tempdataset:tclientdataset; begin tempdataset:=tclientdataset.Create(nil); tempdataset.FieldDefs.Clear; tempdataset.FieldDefs.Add('name',ftstrin... 阅读全文

摘要：procedure TForm1.Button1Click(Sender: TObject); var SQLServer:Variant; ServerList:Variant; i,nServers:integer; sRetValue:String; begin SQLServer := CreateOleObject('SQLDMO.Application'); ServerList:= ... 阅读全文