说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Delphi动态生成定义数据库

HTML文档下载 WORD文档下载 PDF文档下载
在Delphi动态生成定义数据库

在开发通用工资管理等应用数据库管理系统时

预先定义好数据库的结构

就不能保证应用系统的通用性。不同的单位需要不同的数据库

为了减少程序的开发量

并保证程序的通用性

就必须在程序运行中根据实际情况定义所需要的数据库。

在Delphi开发环境中

定义数据库通常需要运行Data Base Desktop。在程序运行中使用组件TTable也可以根据需要定义和修改数据库的结构。

定义标准数据库

定义数据库时数据库文件信息和数据库结构信息是必需的

如数据库文件的完整路径

数据库类型

数据库的字段名、类型、长度等。在Delphi程序中可以定义三种标准类型的数据库

DBASE数据库、Paradox数据库、ASCII数据库。

下面给出的过程已在WIN95Delphi3.0C/S下运行通

过。

procedure ZldcreateTable;

var

zldT:TTable;

begin

zldT:=TTable.Create(Self);

with zldT do

begin

DatabaseName:='DBDEMOS';{预定义的别名数据库工作区名}

TableName:='ZLDDBASE';{将定义的数据库名}

TableType:=ttDbase;{数据库类型

可为ttParadox、ttASCII、ttDbase}

with FieldDefs do{数据库结构信息}

begin

Clear;

Add('ZLS'

ftInteger

0

false);

Add('ZLD'

ftBoolean

0

false);

Add('ZEZ'

ftString

10

false);

Add('XL'

ftDate

0

false);

{....} //------Add Other Fields Here

end;

with IndexDefs do{索引文件信息}

begin

Clear;

Add('Primary'

'ZEZ'

[ixPrimary

ixUnique]);

{....} ////------Add Other Indexes Here

end;

CreateTable; //---- dynamically Create Table;

end;

end;

通过以上方法建立数据库

如果已经存在同名数据库

将被覆盖

数据将全部丢失。

当修改一个数据库的结构时

也可以利用TTable的方法CreateTable。先打开欲修改的数据库

取得该数据库的结构信息

再对其修改

然后用修改后的结构信息重新建立一个新数据库

再将原数据库中相同的列写入新数据库中

删除原数据库

改新数据库名为原数据库名即可。

新技术对传统学科的颠覆:系谱网使用大数据寻亲问祖 IDC:2015年全球平板电脑出货量将超PC Web开发者的福利 30段超实用CSS代码 库克出席D11科技大会:苹果公司没有陷入麻烦 千兆的带宽是不够的,最新研究将我们带入400G时代! 告诉你一个事实:移动互联网依然不大 一切才刚刚开始 戴尔的10亿美元云扩建计划到底是什么? iOS vs. Android,应用设计该如何对症下药? 扁平化设计五大原则 16种折磨开发者的方式 2013年度中国优秀开源项目征集活动正式启动 技术趋势:产品设计向“钱”看 服务器领域:旧时代已过 新时代正在降临 速度与金钱的碰撞:F1赛车将搭上大数据的东风 中国·北京第一届开源大会Hadoop专场侧记:Hadoop已经成为大数据分析平台的标配 Marissa Mayer为何带雅虎重回门户时代? 开发者最爱的三款开发工具 Facebook开源JavaScript库:React 硬件天堂深圳行:从Seeed Studio、Knewone到柴火创客空间 消费应用开发难赚钱?做个企业app store吧 开发开源软件的智慧:够简单,很好用 历届中国云计算大会PPT集萃(终章):架构到实践的全面解析 透过现象看本质:详谈数据可视化 专家观点:HTML5无法彻底抹杀Native应用 Google地图工程主管Raj Shah跳槽至微软在线服务部门 微软证实Windows 8.1引入类“开始”按钮 系统6月26日开放下载 PHP开发者意向调查:移动开发+云服务成为焦点 研发周报:16种折磨开发者的方式 移动周报:Jolla和Sailfish OS,那些你应该知道的事儿 优化技巧分享:把内存消耗降低至原来的1/20 85后程序员:独自一人,完成一个HTML5开源图形库 PB 的新问题,有性趣请进!!!! 新手,键值问题 这样的问题没人会????? 大家帮忙看个程序 ACCESS数据库的小问题。 怎样使自己的问题成为热点问题的绝招! 关于c++builder中scanline的应用 跨数据库查询,请教各位高手! 这样的问题也没人会????????????????? 如何使用QuickRep制作简单报表?不牵涉任何DataSet的 关于Transaction的问题 请问 ListCtrl Item里的 Checkbox 被点击时对应的消息是什么? 100分~~100分~~高分求购。。。我也‘倾家荡产求购优秀系统分析案例’(paste from yyzh)。。。100分~~ 全中文的用Rose做的实际项目的UML模型! 救命!!我的机器不能下载东西了,怎么回事?? 求教邮件编程问题,邮件客户端如何实现“在服务器端保留备份的功能“? ciscoworks 各位大哥大虾,VC下如何用ADO连SQL SERVER?(急) ShellExecute和CreateProcess有什么区别? 关于海量数据、最有效率的排序、硬盘缓冲与映射、专业数据库的讨论 如何用VB编启动是可以带参数的程序呢?(例如:我自定义了一种文件,双击用我的程序打开,程序自动会打开这个文档 昨天我过生日,今天分蛋糕给大家 请问哪有《java图形设计2Swing篇》可以下? 我要用一个数据库去实时访问另一个据库,我该怎么办 URLghj1976@csdn.net----别吓我,有请您老人家! 谁给我介绍一下sql server7.0教材的比较好的下载网站,我给他20分。 我都急死了,到搜索引擎里搜到的好几个站点都不能用,到底哪儿可以当到3DMAX? 谁有写的比较好的邮件收发程序? 一个微软证书的私钥问题 微软证书的私钥问题 求助,简单问题 男人最快乐的十个瞬间! solaris下装oracle8.1.6遇到jre环境问题 怎抹加分?我准备给别人加40分,可我最多只能加20,请问另外20分怎末加分,为此我可能已得罪了一些人了。 请教下载的问题 如何在运行时动态修改Quick Report的打印机设置? 怎样做一个接受拽拖的LISTBOS(例如,把资源管理器里的文件拖到上面,就自动增加一项 ,就是拖的文件名) 怎样才能隐藏在ctrl+atl+del中进程列表中的项目啊 用C写DLL 请问:airhorse(编程至尊宝),infopower3000的注册码可以用于商业目的吗? 结构化异常处理 linux下如何配置内置Mondem? red hat linux7.0下安装oracle8.1.6遇到问题 我是菜鸟,问一个关于类的问题 问题:TWebbrower中,InnerHtml和OuterHtml以及InnerText和OuterText之间的区别 (加急)我要傻了,快救命啊!高分求救!!(回答正确者尽管开口要分!) ==============VC中怎样调试控制台程序=============? 再问:MS SQL6.5 的.DAT文件怎么恢复,请高手帮忙,(100分绝对对线) 白桦林 我需要自定义一个鼠标按下的事件,可我不知道该去那个参数?有人能告诉我吗? 有谁有比较好的javacript教学方面的电子文本? 若根号2x+1+[y-2]²+ |z-1|=0,求代数式(xy)²的值 若代数式根号(2-a)的平方+根号(a-4)的平方的值是常数2则a的取值范围 已知a为实数,求代数式根号a+1减根号4-4a加根号-a²的值 设x=1/根号3-2,y=1/根号3+2,求代数式X²﹢XY﹢y²/x﹢y的值 无论x取任何实数,代数式根号x的平方减6x加m都有意义,则m的取值范围是多少? 已知x=2-根号3,y=2+根号3,求代数式x平方+y平方的值 我在百度查到了你写的这道题的答案.x+y=4、xy=(2-√3)×(2+√3)=2²-(√3)²=1请问这个步骤怎么来的 已知x=2+根号3,y=2-根号3,求代数式[(x+y):(x-y)-(x-y):(x+y)]*(1:x²)-(1:y²) 的值代数式图片 已知x=二分之一(根号7+根号5),y=二分之一(根号7-根号5),求X的平方-XY+Y的平方的值 当x=7时,求代数式根号x+5+根号x-4-根号4x-1的值 当x=根号2007-1时,求代数式x²+2x+3 已知y=二分之一+根号下2x-1+根号下1-2x,求x的平方+xy+y的平方的值 当x=( )时0,代数式根号(4x+5)有最小的值,其最小值是( ). 当X=根号5-1时候求代数式X²+2x-5的值 已知实数xy满足|x-根号2|+根号(y+根号2/2)=0,求代数式x^100·y^101的值 已知x=1+根号5,求代数式x3-2x2-4x-5的值 已知a-b=3,a+b=根号7.求代数式a²+b²及ab的值 【内有图片】 已知x=根号2+1,y=根号2-1,求代数式x-根号xy分之x-2倍根号xy+y的值.不是很清晰哈,破手机. 若根号下x加1乘2减x等于根号下x加1乘根号下2减x成立化简x加3的绝对值加根号下x*x减4x加4等于 当x=4-根号3时代数式x²-8x+19的值为 已知实数x,y满足关系式│x+y-3│+根号(xy-6)=0,求代数式(x+2y)/y-x的值 化简:根号6减根号2的绝对值加根号2减1的绝对值减3减根号6的绝对值. 当x=(1+根号2011)/2,求代数式4x^3-2014x-2010的值 若实数xy满足x^2+6x+根号(x-y+1)+9=0 求代数式((根号1/x-y)+(根号1/x+y))÷x/x^2-y^2 化简:根号2减去根号5的绝对值加上根号5减2的绝对值加上根号3减根号2的绝对值 已知x∧2-4x+1=0,则代数式根号下x+1/x+3的值为? xy是实数,且y=根号x-4+根号4-x+1/3,求代数式9y*2-6y+1的值. 已知0小于x小于1,化简根号(x减x分之1)的平方加4减根号(x加x分之1)的平方减4 当X=根号3-1时 求代数式X²+2X-3的值 设x=根号三减2分之一,y=根号三加二分之一,求代数式x+y分之x2+xy+y的值好的 设x=1/√3-2,y=1/√3+2 求代数式x2+xy+y2/x+y看的懂吗 已知X,Y都是实数,且满足Y<根号X-1+根号1-X+二分之一,化简:y-1分之1*根号(1-Y)平方 已知a=根号3+1,b=根号3-1求代数式a²b-ab²的值 先化简在求值;(x=2)平方—(2x—1)(2X—1)+4x(x—1),其中x=—2的根号下 若a 已知:a=3倍的根号2+2倍的根号3,b=3倍的根号2-2倍的根号3,求代数式a²b-ab²的值. 已知1 化简根号[-(x+1)]的平方那个平方是加在x+1上面的 已知x-1=根号3,求代数式(x+1)²-4(x+1)+4的值 已知xy小于0 ,则根号x平方y 化简后 如果xA.4+x B.-x C.-4-x D.x 我知道选C, 已知a=-根号7+3分之2,求代数式a³+5a²-4a-6的值 已知0 (x减2分之x加2 减x平方减4x加4分之x减4)除以x平方加x 分之x平方减1 其中x=2+根号2先化简,再求值 已知x-2=-根号3,求代数式(x+1)²-6(x+1)+9的值. 先化简再求值:(3x+2)(3x-2)-4x(x+1)-(2x-1)的平方,其中x=根号3 已知x=3-2y,求3根号x-2y除以根号4x平方-16y平方 已知mn是方程x²+2√2+1=0的两根,则代数式根号下(m² +n²+3mn)的值为为什么答案不能得-3根号9不等于±3吗 已知x=根号5+根号2,y=根号5-根号2,求代数式x²-xy+y²的值 根号((X+根号2)平方+1/4)减根号((X-根号2)平方+1/4)=2,求X根号((X+5)平方+Y平方)+根号((X-5)平方+Y平方)=10,求X 若m为根号下2的小数部分,求代数式m²+m+根号下2的值. 求详细过程 若a,b分别表示6减根号5的整数部分和小数部分,求代数式2ab减b的平方的差要求有过程. 已知x=根号2减1分之根号2加1,y=根号3加1分之根号3减1,求x的平方减y的平方 已知m,n是有理数,关于x的方程x²+mx+n=0有一个根是根号5-2求m+n 已知x,y分别为8-根号11的整数部分和小数部分,求2xy-y的平方的值 已知x=2减根号3分之1,y=2加根号3分之一,求3x平方+5xy+3y平方 已知x=根号下2011根号外再-1,求代数式x²+2x+5的值、 已知y=根号(x-8)+根号(8-x)+18,求代数式[(x+y)/(根号x+根号y)]-2xy/(x根号y-y根号x)的值 已知y=x+2分之根号x的平方减4加根号4减x的平方加2012成立,求x的平方加y减3的值 已知x=根号2015-1,求代数式x²+2x-2015的值 已知Y=根号X-8+根号8-X在加18,求代数式X-Y/根号X-根号y再减去2xy/x倍根号y-y倍的根号x的值. 若a为实数,求代数式√a+2-√8-4a+根号下负a的2次的值
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn