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

在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。先打开欲修改的数据库

取得该数据库的结构信息

再对其修改

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

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

删除原数据库

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

访问VB外来数据库 非access数据库在vb中的编程及应用 关闭程序中所有创建的数据库连接。 -VB资料 关闭所有的数据连接 -VB资料 关于数据报表的打印设置-VB资料 VB建立、改变及重构Access数据库-VB资料 结构化查询语言(SQL)详解之一-VB资料 利用VB使ACCESS数据库在网络使用中保持同步 返回 连接Data到多个表单-VB资料 列出 SQL Server 数据库中所有的存储过程-VB资料 列出MDB档当中所有table的名称-VB资料 您想知道有谁正在使用您的 Access 文件吗?(多人环境中)-VB资料 主题:浅谈Excel 的VB编程 巧用VB6的DataGrid实现通用电子表格 VB取得正确的 RecordCount 值 主題:如何动态新增、移除 ODBC DSN? -VB资料 VB如何将表中的数据导出到电子表格中 VB如何将文本文件转换为ACCESS数据库 VB如何將 Excel 的文件导入 Access文件? VB如何判断数据中是否存在某一表或查询 VB如何删除FoxPro数据库的数据? VB如何设置对VB数据库连接的动态路径 VB如何使用 ADO 來压缩或修复 Microsoft Access 文件 VB如何修改Foxpro数据库(不是用VB实现的,不过也可以看看) VB如何在 SQL 语句中使用日期? 返回 VB如何在表中保存单引号? VB如何抓出 Access 的 Table 欄位中的【敘述】部份呢? 实现Access数据库的Web查询-VB资料 使用Visual Basic访问数据库几个注意的问题 数据库查询-VB资料 数据约束控件和 RecordSet-VB资料 请教: 二级域名name.***.com是怎么实现的? vc中使用string类型的问题 肮脏的九运会,肮脏的广州!建议以后取消全运会!! 我做了一个OCX控件,里面有个属性SName,我现在想在属性窗口里改了它的值,马上可以在控件上改变,请教各位! 为什么我的USB接口键盘在用软盘启动后的DOS状态下不响应? JSP,薪水有多少? delphi中怎样调用package? ado 的问题 图片从数据能显示,图片名称不能显示? 请问unix下有没有类似于windows下的DLL的二进制代码存储文件机制?(当然不是javaBean) 关于语音控件CTTS1.0? 请教各位:问如何对变量zz='02'转换成16进制? flash 5。0哪里有下载 在vc中调用用vb写的com出错,为什么? 关于多态性的理解,对吗? 如何知道1个类是不是存在? ??请教:我的程序 help!help! 如何对程序执行动作放缓慢! 很小很小的问题!! 棘手问题??急急!!! 各位懂软件测试的朋友,请介绍一些资料给我,非常感谢! 菜鸟问个调试问题,别见笑! 请介绍一下学数据库应学什么开发工具更好些,除了sql语言? 请教一个关于TextArea区域中数据显示的问题 高分求以二进制方式打开文件 哪里能找到dialogic卡的VN协议? 求解:BC++3.1 or high编程在DOS下连接interbase server 高手快进!!!一个DataReport报表的异步操作问题( MYSQL的帮助文档哪里有下载?谢谢 求,谁有zip unzip的源代码 菜鸟的问题,送分来了! 有谁知道什么是SDD吗?请指教!!!!别吝惜呀!!^o^ 简单的右键弹出菜单问题…… 我想编一个pop3服务器,适用于windows iis,给点提示吧 编译SERVLET时老出现"...包 javax.servlet 不存在..." ? 请教关于 98中 Personal web Server的问题 辽宁4:0狂胜广东,爽丫!SB广东解说员居然说中国足球没戏了~~~~~~~~~~ 用APPLET做一个上传的东西可以吗???? "我的问题"栏中,只剩下未解决的了,已给分的为何都不见了? 在CSDN和大富翁都没人会答的简单OLE问题,唉! 我是shijie819有问题?? 各位高人,看看代码,不能输入汉字只能输入英文,问题在那里? 如何将编好的n个模块连接到一个工程 请教!关于listbox的列属性? Applet为什么能在JBuiler5中调试,而不能在浏览器中显示 SOS!谁有语音卡编程的经验和资料,恳请指教!给分的! 谁有用VC++中ODBC API 编写数据库的例子? sql server 有沒有邏輯型字段!!! 电娃娃领分!!!!---goldsun发 作文原来我没懂600字 我眼中的高中生活(1000字作文) 话题作文之把心放宽800字 作文 原来我没懂要写我没懂青春的含义,真实情感 有木有红色书籍读后感300字的? 求一本爱国的书的读后感,200字够字的, 读灵魂为题作文800字我急用啊…不要网上有重复的我要的作文题目是读灵魂! 作文我原来没懂600百字 赞美母亲的作文350字henji 帮忙写一个英语作文(很简单)字数50-60提示:这是我们的校图书馆.你可以上网查资料、做功课、读书.但是你不可以大声喧哗.你不可以在书上乱写.你不可以把书带回家. 求原创作文一篇:以“如果”为话题的800字以上作文.一定要自己的原创。我看到这两篇都不是自己的原创。无论有多短我都能接受~ 以快乐的一天为主题,写一篇英语文章写一篇主题为快乐的一天,50词以上 很简单的英语作文只要是关于节日就行! 写一篇关于江南美景的作文里面要用上古诗原句500字以上,可以写莲花什么的.什么啊,要文章要原创的. 关于《快乐的一天》的英文短文 急需关于校运动会100字的作文急 高中生的自我介绍 800字说说自己的兴趣爱好,性格特点,喜欢怎样的人,爱看怎样的书及电视电影,对未来的憧憬等等 一篇(现在进行时)英文作文(写下课) 关于运动会的作文50字-100字鼓励运动员的 原来我没懂 作文急 关于春节期间快乐的一天的英语小短文(跪求)关于春节期间快乐的一天的英语小短文.大家有什么就发上来啊!拜托了! 求1200字作文 以小见大 以功名与名声为话题作文 800字..像个高中生写的就行以下列的文字写作文,人一般都很重视自己的身后之名,这常常体现概括一个人一生伟业的墓志铭上,但是,有些伟大人物的墓志铭写的 革命书籍读后感什么书都可以,一定要是革命书籍啊! 以小见大的文章生活中的一些小事情而反映出一个大道理.(初一作文.) 原来我没懂,作文 红色革命书籍读后感关于红色革命的书籍作者及内容及读后感,内容简略一点读后感多一点,急 急 要400字的作文 是以小见大的作文我只要400字多了不给赏金 如果我满意我会给赏金 关于幸福的话题作文800字 求1篇1000字关于难受的话题作文 帮我写篇英语作文、简单的很.急用!随着信息技术的快速发展,网络已经成了人们生活中不可或缺的组成部分,但不容忽视的是,网络污染也随之开始泛滥起来.请以“cyber pollution”为题写一篇100 作文 “原来我没懂 ”600字 爱国书籍读后感500字,急!1 假定你是spring有限公司销售经理李华,给客户mr.wang写一份信.日期.09.3.18.材料价格上涨.产品价值上调.原定货物维持原价.希望以后能继续合作.表示歉意! 狼图腾读后感800字 麻烦帮我找一本爱国书籍的读后感,400-500字左右就行了,快《红岩》不要! 阅读材料,自选角度,自拟问题,写一篇作文,不少于500据说爱因斯坦来到普林顿高级研究所的第一天,管理人员问他需要什么用具,他会他说:“我看,一张桌子或台子,一把椅子和一些纸张,钢笔就 小学6年级水平狼图腾读后感500字别写太好也别写太烂 有关爱国的书.顺便也写一下读后感500字. 原来我没懂 作文600字 狼图腾之小狼小狼500字读后感 这是幸福的作文怎么写?急啊啊啊啊啊啊啊啊~~~~~~~! 求一篇写荷花的作文 可以给这篇文章取什么名字? 给写冬天的作文取一个什么样的名字 (急)读下面的材料,自选角度,写一篇文章.材料:杨柳自有杨柳的洒脱,青松自有青松的壮美,生于世界上,在于宇宙间,同顶炎炎烈日,共沐皎皎月辉,每个生命都闪耀着独特的光辉,展示着无穷的 评价下这篇文章顺便取个名字吧谢谢! 一本爱国书籍 读后感 快400字左右 《狼图腾》的读后感,600字左右 谁能回答一下 着急 我想取一个比较富有哲理的昵称名字, 假如这个星期天你想和家人去公园,请用英语写一篇文章说明你的打算及原因. 《狼图腾》读后感500字 高中1000字作文 生活就是舞台1000字高中作文 话题:生活就是舞台 周末你和家人干什么 英语 小短文(用上Be going to) 狼图腾读后感500字..偶要狼图腾读后感500字的,别写得大道理一大堆,偶是初一的,水平还可以,别写太好,也别太烂,就这样.. 高中作文《我的暑假生活》1000字 给文章取好听的名字 狼图腾1200字读后感!可以东拉西扯.要围绕着狼的精神,狼给人的教导等方面写.主要突出狼的精神! 感恩生活 1000字高中作文! 心灵的屋檐600字
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn