链接：https://pan.baidu.com/s/1Glye61WgYd_wC0uOfx9ZoQ提取码：dqd9关键部份FDConnection1.GetTableNames('','','',ListBox1.Items);StringGrid1.Cells[1,i+1]:=FDMetaInfoQuery1.FieldByName('COLUMN_NAME').AsString;

UniGUI使用ADO组件、调用数据库的存储过程、生成EXECL表的例子（自己学习记录一下，不一定合理，仅供参考）本例子是使用ADO等组件连接一个云服务器的一个数据库，调用GetOrg存储过程，把机构信息展现把结果导出的一个EXECL表里，并下载把显示的HSate的值进行替换1表示正常，其他表示暂停

uniTreeVviewc创建一个tree，显示患者姓名（PatientName）。因为需要用到患者ID（PatientID），所以使用help：TPatientTreeNode=class(TUniTreeNode)//strictprivateFPatientID:string;functionGetPatientID:string;procedureSetPatientID(constValue:string)