delphi建数据库
❶ 关于DELPHI动态数据库
在Delphi中动态建立数据库结构
--------------------------------------------------------------------------------
一、问题的提出
在程序运行过程中动态建立数据库结构是我们编写功能通用的数据库管理系统常见
的问题。通用数据库管理系统开发的基本思路是:系统允许用户自行设定管理对象的数据
库结构,然后通过算法和编程技巧,在用户设定完成后动态创建管理对象的数据库结构和
完成系统功能的一些其它数据,这样可以满足不同用户对管理系统管理项目的不同要求,
进而达到通用的目的。因此,通用数据库管理系统开发的关键是系统能否动态地创建数据
库结构。我们熟悉的Foxbase+、Foxpro等语言,均提供了动态创建数据库结构的命令或过
程。
但是,在许多资料和书籍中,没有介绍用Delphi如何动态建立数据库结构,给我们开发
一些功能通用的数据库管理系统带来了不便。那么如何在Delphi中动态建立数据库结构
呢?本文是作者在查阅大量资料,经过反复实践的基础上得出的在Delphi中动态创建数据
库结构的方法。
二、设置Delphi数据库配置程序
在Delphi中要进行数据库管理必须先设置好数据库配置程序BDE,所有对数据库的操
作,最后都要通过BDE去完成。下面以最常见的Dbase数据库为例来配置Delphi的数据库引
擎BDE。
1. 进入Delphi的集成开发环境IDE(Integrated Development Environment),在Dat
abase菜单下选择Explore,出现sql Explorer窗体,在Object菜单下选择BDE Administra
tor。
2. 出现BDE Administrator窗体后在Database页上选择Dbase,在Definition页中将
Type项设为Standard;将Default Driver项设为Dbase;将Path项设为一工作目录名(如:D
:\MYNAME)。以上过程即为数据库的别名(Aliases)设置,这在以后Delphi的程序开发过程
中要经常用到。
3. 选择Configration页,在Drivers的Native项中选择Dbase,在Definition页中将T
ype项设为File;将Langdriver项设为DBASE CHS CP936;将Level项设为5。
4. 完成上述工作后,在Object菜单中选择Save as Configration,按出现的对话框要
求将以上的设置保存好。至此,数据库的基本配置工作就完成了,我们就可以进行下面的
工作了。
三、动态创建数据库结构方法
在Delphi中动态创建数据库结构有两种方法。
方法一:使用Table组件的CreateTable方法。步骤如下:
1. 进入Delphi的IDE建立一个新项目文件和新窗体(Form1)单元文件(unit1.pas)。
2. 在Form1上加入Table1、Edit1、Edit2、Button1组件。将Button1组件的Captio
属性设为‘创建’。
3. 用鼠标双击Button1进入Unit1.pas单元文件,在光标处加入下列代码。
with table1 do
egi
active:=false
databasename:=‘dbase'
tablename:=‘my.dbf'
tabletype:=ttdbase
fielddefs.clear
fielddefs.add(edit1.text,ftstring,10,false)
fielddefs.add(edit2.text,ftinteger,0,false)
createtable
end
4. 按F9键编译运行,在Edit1处输入一字段名称:ZD1,在Edit2处输入一字段名称:ZD
2,然后点击"创建"按钮,程序将在D:\MYNAME目录中产生一个名为MY.DBF的数据库文件,用
Database Desktop查看文件结构如下:
FieldName
Type
Size
Dec
ZD1 C 10
ZD2 N 11
方法二:使用Query组件,用结构化查询语言SQL(Structured Query Language)语句创
建,步骤如下:
1. 同方法一之步骤1。
2. 在Form1窗体中加入Query1、Button1组件,将Query1的Database Name属性设为‘
Dbase’;将Button1组件的Caption属性设为‘创建’。
3. 在Query1的SQL属性单击,出现Sting List Editor窗口,在该窗体中输入以下SQL
语句:
Create Table My(
ZD1 Char(10),
ZD2 Numeric(10,2))
4. 双击Button1进入Unit1.pas单元,在光标处加入下列代码:
Query1.ExecSQL
5. 按F9键 编译运行,在"创建"按钮处单击即可产生一个名为MY.DBF的数据库文件,
存放在D:\MYNAME目录中,用Database Desktop查看其结构如下:
FieldName Type Size Dec
ZD1 C 10
ZD2 N 10 2
以上所介绍的操作和程序均在Windows98操作系统下,Delphi 3.0 C/S版上调试运行
通过。
❷ 怎样在 Delphi 中建立一个新的数据库
aaa.db只是一个数据表，数据库要应用数据库引擎建立，然后再用database引用其别号，然后再用一个数据控件如query建表和索引。
❸ 怎么用delphi7 编写数据库程序
在delphi中有一批数据库专用的控件，比如ADO类的，可以直接用于数据库开发，你可以先用一个Access数据库自己进行一下测试。
首先在窗体上放一个ADOConnection1控制，用于与Access数据库进行连接，连接字符串为：
ADOConnection1.ADOC_Data.ConnectionString:='provider=Microsoft.Jet.OLEDB.4.0;'
+'user ID=Admin;'
//+'Data Source='+ExtractFilePath(Application.ExeName)+'MyRecord.mdb;'
+'Data Source='+MyDataBaseName+';'
+'Mode=Share Deny None;Extended Properties="";'
+'Jet OLEDB:System database="";'
+'Jet OLEDB:Registry Path="";'
+'Jet OLEDB:Database Password="123456;' //数据库密码
+'Jet OLEDB:Engine Type=5;'
+'Jet OLEDB:Database Locking Mode=1;'
+'Jet OLEDB:Global Partial Bulk Ops=2;'
+'Jet OLEDB:Global Bulk Transactions=1;'
+'Jet OLEDB:New Database Password="";'
+'Jet OLEDB:Create System Database=False;'
+'Jet OLEDB:Encrypt Database=False;'
+'Jet OLEDB:Don'+''''+'t Copy Locale on Compact=False;'
+'Jet OLEDB:Compact Without Replica Repair=False;'
+'Jet OLEDB:SFP=False';
DM.ADOC_Data.LoginPrompt:=False;
再放一个ADOQuery1控制，用于操作数据表，将它的Connection属性设置为ADOConnection1。或用语句实现：ADOQuery1.Connection:=ADOConnection1;
然后再分别放置一个DataSource1和一个DBGrid1控件，
将DataSource1的DataSet属性设置为ADOQuery1。
将DBGrid1的DataSource属性设置为DataSource1。
这时就可以通过ADOQuery1来执行SQL语句来查询数据表，并通过DBGrid1显示出来了。
❹ delphi 怎样建数据库
/*
创建数据库
*/CREATE
DATABASE
CommunityON
(
NAME
=
Community_dat,
--
数据名称
FILENAME
=
'e:\MSSQL7\data\Communitydat.mdf',--
文件名与路径
SIZE
=
10MB,
--
数据大小
MAXSIZE
=
50MB,
--
最大空间
FILEGROWTH
=
5MB
)
--
数据每次扩容的空间LOG
ON(
NAME
=
Community_log,
--
日志名称
FILENAME
=
'e:\MSSQL7\Communitylog.ldf',--
文件名与路径
SIZE
=
5MB,
--
日志空间
MAXSIZE
=
25MB,
--
最大空间
FILEGROWTH
=
5MB
)
--
数据每次扩容的空间GO
❺ Delphi程序中怎样创建一个Access数据库
如果是创建一个
access
数据库，最简单的办法是先用
access
软件建立一个空的
access
数据库文件(*.mdb)，然后再程序中复制到指定文件夹中。
也可以尝试使用
Ole
建立，以下是示例代码：
1234567procere TForm1.Button1Click(Sender: TObject);var CreateAccess:OleVariant;begin CreateAccess:=CreateOleObject('ADOX.Catalog'); CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb');end;
注意：建立数据库，与建立数据库中的表，不是同一种操作。
❻ 在DELPHI中怎样建立数据库，修改数据库结构。
我是一名刚开始学
DEPHI
的，但我把一本书年完了，我都不知道怎样建立数据库，当复制一个数据库后，怎样修改数据库结构。
❼ Delphi 7使用代码创建数据库
procere TForm1.Button1Click(Sender: TObject);
var
rsTmp: TADOQuery;
begin
rsTmp:= TADOQuery.Create(nil);
try
try
rsTmp.Connection:= Conn;
rsTmp.Parameters.Clear;
rsTmp.SQL.Add:= 'Create DataBase 学生管理系统;';
rsTmp.SQL.Add:= 'USE 学生管理系统;';
rsTmp.SQL.Add:= 'Create Table 学生信息(姓名 nVarChar(10), 学号 nVarChar(30), 年龄 Int, 班级 nVarChar(20))';
rsTmp.ExecSQL;
except
On E: Exception do
begin
ShowMessage(e.Message);
end;
end;
finally
rsTmp.Free;
end;
end;
❽ 用delphi动态创建数据库
用adoquery这个控件
先连接好数据库
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('create table 表名( 学号 char(20),姓名 char(20),班级 char(20))');
adoquery1.execsql;
可以了.
❾ 在Delphi中创建数据库表
在DatabasesDesktop中定义一个后，按回车键或上下光标键都可以定义下一个，鼠标好象不行。
❿ delphi 创建数据库的具体步骤
的确可以通过DELPHI数据组件执行SQL语句来创建数据库，并完成表和视图的建立工作，但我要当头给你泼一瓢冷水，你现在连步骤都不清楚，怎么来创建，还是老老实实的打开SQL server的企业管理器，在那里面去建立数据库吧；或者打开ACCESS的建立一个数据库，然后再到DELPHI中去联接数据库吧。用DELPHI代码创建数据库的确是高手干的事，没有一定的功底是不行的，也很麻烦，要记得很多SQL的关键字，而直接在企业管理器中设计数据库，几乎不需要记任何关键字。