Delphi将TableToClass 表文件转换成类文件
- 资源大小：33.19 kB
- 上传时间：2021-06-30
- 下载次数：0次
- 浏览次数：1次
- 资源积分：1积分
-
标 签：
其他
资 源 简 介
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);
//取取选择数据表的数量
文 件 列 表
codesc.net
TableToClass
TableToClass.cfg
TableToClass
TableToClass
GARSIni.ini
codesc.net
