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的關鍵字，而直接在企業管理器中設計資料庫，幾乎不需要記任何關鍵字。