Delphi将TableToClass 表文件转换成类文件,//刷新数据库procedure RefreshDB;
//读取数据库名称列表
function ReadDBNameList: TStringList;
//读取数据表名称列表
function ReadTableNameList: TStringList;
function TableToClassInfo(ATableName: string): TStrings;
//取得SQLServer字段的类型,返回相应Delphi变量类型
function GetColumnType(AType: integer): string;
//取得SQLServer字段的类型,返回相应字符串
function GetDBColumnType(AType: integer): string;
//仅生成类信息
procedure GenerateClassInfo;
//生成Unit文件
procedure GenerateUnitFile;
procedure TableToClassInfo1(ATableName: string; var AClassList1, AClassList2: TStringList);
//取得保存的文件名,没有扩展名
function GetFileName(AFileName: string): string;
//保存文件
procedure SaveToFile(AList: TStringList = nil);
//取取选择数据表的数量