Delphi将TableToClass 表文件转换成类文件
代码说明:
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); //取取选择数据表的数量
下载说明:请别用迅雷下载,失败请重下,重下不扣分!