文件名称：Delphi将TableToClass 表文件转换成类文件.rar
文件大小：33KB
文件格式：RAR
更新时间：2022-07-30 06:08:46
Delphi源码-数据库实例
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()
--------UFrmConDBServer.dcu(7KB)
--------UFrmMain.dcu(23KB)
--------UFrmBase.pas(1KB)
--------UFrmConDBServer.dfm(2KB)
--------Unit1.dcu(8KB)
--------UFrmBase.ddp(51B)
--------UDM.ddp(51B)
--------UDM.dfm(906B)
--------UDM.dcu(2KB)
--------TableToClass.dpr(400B)
--------TableToClass.dof(2KB)
--------GARSIni.ini(46B)
--------UFrmConDBServer.ddp(51B)
--------UDM.pas(1KB)
--------UFrmConDBServer.pas(3KB)
--------UFrmMain.pas(19KB)
--------UFrmMain.dfm(7KB)
--------USysPublic.pas(364B)
--------UFrmMain.ddp(51B)
--------TableToClass.cfg(386B)
--------USysPublic.dcu(769B)
--------UFrmBase.dcu(3KB)
--------UFrmBase.dfm(330B)
--------TableToClass.res(2KB)