数据库编程的简单举例.原创.使用了一些小技巧.不是最简单的控件使用. 如: function GetDsXml(sql:string):string begin with FrmDb do begin qry.Close qry.SQL.Clear qry.SQL.Add(sql) try qry.Open cds1.Open if not qry.Eof then begin Result:=cds1.XML