登录
首页 » 其他 » Delphi将TableToClass 表文件转换成类文件

Delphi将TableToClass 表文件转换成类文件

于 2022-03-24 发布 文件大小:33.19 kB
0 190
下载积分: 2 下载次数: 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);    //取取选择数据表的数量

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • 梦想世界虚拟社区
    梦想世界虚拟社区- Vainly hopes for the world hypothesized community
    2022-01-24 18:41:53下载
    积分:1
  • 此软件可以改变oem单调的画面,展现个性自我!
    此软件可以改变oem单调的画面,展现个性自我!-This software can change the monotonous oem screen, displaying the self-personality!
    2023-02-18 09:05:03下载
    积分:1
  • ns2 模拟器为样本编码在无线
    代码: NS2 模拟器是无线样本检验。工具命令语言 (TCL) 脚本使用固定数量的节点,可以创建无线网络模型。示例代码下面模型讨论了节点的无线网络。节点配置的通道、 网络接口、 电波传播模型、 介质访问控制 (MAC) 协议,adhoc 路由协议、 接口队列、 链路层、 地形对象和天线类型组件。执行文件 sample1.tcl 后可以在网络动画 (NAM) 窗口中查看节点的无线网络
    2022-02-04 12:53:56下载
    积分:1
  • Delphi毕业设计 工资管理系统
    Delphi毕业设计 工资管理系统,具体来说是一套教师工资管理系统,功能模块:人员资料添加、人员删除管理、操作员管理、员工基本工资管理、员工浮动工资管理、工资发放管理、工资调整管理与报表管理等几大模块。界面方面做的也挺不错,作为一套Delphi版的学生毕业设计,我想应该过关了。   本套工资管理系统数据库基于SQLSERVER,备份文件在Database目录下。
    2023-01-31 23:40:04下载
    积分:1
  • 问题描述: 一杯沸水冷却,圆柱体模型,底面半径0.05m,高0.1m,周围温度20度,初始水温100度 方程是四维输运方程(常数a^2=k/(c*...
    问题描述: 一杯沸水冷却,圆柱体模型,底面半径0.05m,高0.1m,周围温度20度,初始水温100度 方程是四维输运方程(常数a^2=k/(c*p),k是热传导系数0.6006焦/(米*秒*度)) 初始条件:t=0时水等于100度 边界条件:1.上下壁都是自由冷却,第三类边界条件,周围温度保持在20度(H=k/h,h取1) 2.杯壁绝热,第二类边界条件 图形显示格式,取过圆柱轴的截面温度变化将其做成动画. -Problem description : a cup of boiling water cooling cylinder model, the bottom radius of 0.05m, 0.1m high. temperature around 20 degrees, initial temperature of 100 degrees equation is four-dimensional equations (a constant ^ 2 = k/(c* p), k is the thermal conductivity coefficient of 0.6006 Coke/(m** seconds degrees)) initial conditions : t = 0 to 100 degree water boundary conditions : 1. upper and lower walls are free cooling, the third boundary conditions, maintain the temperature around 20 degrees (H = k/h, h for 1) 2. Beibi insulation, The second category boundary conditions graphics format, cylindrical shaft for the cross section of its temperature changes caused animation.
    2022-05-12 17:55:03下载
    积分:1
  • 统计Visual C++源代码数量的小工具
    统计Visual C++源代码数量的小工具-statistics Visual C source code for a small number of tools
    2022-02-21 17:02:42下载
    积分:1
  • ti公司tms320vc5509的uart程序
    ti公司tms320vc5509的uart程序-ti Corporation tms320vc5509 uart procedure
    2022-02-03 00:39:54下载
    积分:1
  • driver test system interface in good running under 98 C/S mode
    驾驶员考试系统界面不错在98下运行C/S模式-driver test system interface in good running under 98 C/S mode
    2022-04-08 00:18:15下载
    积分:1
  • Matlab语言编写的2维粒子群算法进行函数最优化的源代码,并附有AVI视频演示!...
    Matlab语言编写的2维粒子群算法进行函数最优化的源代码,并附有AVI视频演示!-2-D particle swarm optimization source code for optimization (with the AVI video!)
    2022-08-07 09:29:32下载
    积分:1
  • VB实现Listview全选、多选功能
    VB实现Listview全癣取消全癣多选功能,弹出提示式多选功能,用ListView将读取到的本地磁盘列表显示在内,然后在每行数据的前边增加一个选择框,用户通过这个复选框可实现对Listview内容的单癣多选功能,我觉得这是个比较实用的小技巧。
    2022-01-26 02:16:12下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载