Delphi中建表

2019-11-17 05:11:33

字體：大中小

供稿：網(wǎng)友

一、數(shù)據(jù)庫(kù)別名(Alias)的地位
　　Delphi內(nèi)建的數(shù)據(jù)庫(kù)引擎BDE(Borland Database Engine)，提供了強(qiáng)大的數(shù)庫(kù)處理功能，BDE是Delphi數(shù)據(jù)庫(kù)功能的核心部分。

　　以只有單機(jī)使用的本地?cái)?shù)據(jù)庫(kù)為例，Delphi程序可以直接通過(guò)BDE來(lái)控制數(shù)據(jù)庫(kù)數(shù)據(jù)的存取。這種存取控制是以配置好BDE參數(shù)為前提的，具體的來(lái)說(shuō)是正確設(shè)置了數(shù)據(jù)庫(kù)的別名(Alias)，Delphi的最常用的數(shù)據(jù)庫(kù)訪(fǎng)問(wèn)組件TTable，其屬性DataBaseName即為已經(jīng)定義的數(shù)據(jù)庫(kù)別名，在沒(méi)有定義數(shù)據(jù)庫(kù)別名的情況下，是不能訪(fǎng)問(wèn)具體的數(shù)據(jù)庫(kù)表格的。因此，在建立數(shù)據(jù)庫(kù)表格時(shí)，必須有兩個(gè)過(guò)程:一是通過(guò)BDE檢測(cè)相應(yīng)的數(shù)據(jù)庫(kù)別名是否存在，假如不存在，則應(yīng)首先建立相應(yīng)的數(shù)據(jù)庫(kù)別名；二是檢測(cè)該數(shù)據(jù)庫(kù)別名(即DataBaseName)中是否存在需要建立的數(shù)據(jù)庫(kù)表格，假如不存在，才建立之。這樣，才能保護(hù)原有表格的數(shù)據(jù)不丟失。

二、session組件: Delphi數(shù)據(jù)庫(kù)程序與BDE的接口
　　Delphi自動(dòng)為數(shù)據(jù)庫(kù)應(yīng)用程序提供了一個(gè)Session組件，這個(gè)Session組件是應(yīng)用程序與BDE接口的要害。下面是Session組件關(guān)于BDE接口的幾個(gè)過(guò)程的原型說(shuō)明。
　　1.GetAliasNames(list:Tstrings)；將當(dāng)前BDE配置中的所有數(shù)據(jù)庫(kù)別名的名稱(chēng)存放到List字符串列表中。

　　2.AddStandardAlias(const Name, Path, DefaultDriver: string);增加一個(gè)標(biāo)準(zhǔn)類(lèi)型的數(shù)據(jù)庫(kù)別名。例如增加一個(gè)名為Cntssamp，缺省數(shù)據(jù)庫(kù)驅(qū)動(dòng)程序?yàn)镻ARADOX、存放路徑為c:/delphp11的別名：
　　Session.AddStandardAlias(Cntssamp,c:/delphp11,Paradox);

　　3.GetTableNames(const DatabaseName, Pattern: string; Extensions,SystemTables: Boolean; List: TStrings);可將指定數(shù)據(jù)庫(kù)別名中所有表格的名稱(chēng)存放到List字符串列表中。

　　4.SaveConfigFile; 將BDE配置存盤(pán)。
　　另外，用List.IndexOf(指定串)的值判定字符串列表中是否有需要的字符串，來(lái)決定是否應(yīng)建立新的數(shù)據(jù)庫(kù)別名和數(shù)據(jù)庫(kù)表格。

三、一個(gè)實(shí)例
　　在Form1.FormCreate事件中寫(xiě)入如下代碼，程序啟動(dòng)時(shí)，將自動(dòng)檢測(cè)是否存在數(shù)據(jù)庫(kù)別名Cntssamp，假如沒(méi)有則建立之；自動(dòng)檢測(cè)別名Cntssamp中是否存在表格TSK(圖書(shū)庫(kù))，假如沒(méi)有則自動(dòng)建立表格TSK。
　　PRocedure TForm1.FormCreate(Sender: TObjec
　　var
　　 ap:TStringList; {字符串列表變量}
　 answer:Integer;
　　begin
　　 ap:=TStringlist.Create;
　　 Session.GetAliasNames(ap); {取得別名列表}
　　 if (ap.IndexOf(Cntssamp)=－1) then {判定別名是否存在}
　　 begin
　　 answer:=application.MessageBox(別名Cntssamp不存在，現(xiàn)在創(chuàng)建嗎？,BDE信息窗口,mb—OKCancel);{增加一個(gè)名為Cngzsamp的數(shù)據(jù)庫(kù)別名}
　　 if answer=IDCANCEL then
begin
　　 ap.Free;
　　 Exit;
　 end;

　　 Session.AddStandardAlias(Cntssamp,c:/delphp11,Paradox);
　　 Session.SaveConfigFile; {BDE配置文件存盤(pán)}
　 end ;

　　 ap.Clear; {取得別名Cngzsamp中的所有表格名稱(chēng)列表}
　　 Session.GetTableNames(Cntssamp,,False,False,ap);
　　 if (ap.IndexOf(TSK)=－1) then {判定表格是否存在}
　　 begin
　　 answer:=Application.MessageBox(別名Cntssamp中不存在表格TSK,現(xiàn)在創(chuàng)建嗎？,表格信息窗口,mb—OKCancel);
　　 if answer=IDCANCEL then

begin
　　 ap.Free;
　　 Exit;
　　 end;

　　 with table1 do
begin
　　 Active:=false;
　　 DatabaseName:=Cntssamp; {數(shù)據(jù)庫(kù)別名}
　　 TableName:=TSK; 　　{表格名}
　　 TableType:=ttParadox;　{數(shù)據(jù)庫(kù)類(lèi)型}
　　 with FieldDefs do
begin {增加字段}
　　 Clear;
　　 Add(SH,ftString,30,False); {書(shū)號(hào) String(30)}
　　 Add(SM,ftString,30,False); {書(shū)名 String(30)}
　　 Add(CBS,ftString,20,False); {出版社 String(20)}
　　 Add(CBRQ,ftDate,0,False); {出版日期 Date}
　　 Add(YS,ftInteger,0,False); {頁(yè)數(shù) Integer}
　　 end;

　　 with IndexDefs do
begin {增加索引}
　　 Clear; {按書(shū)號(hào)字段建立主索引}
　　 Add(SHSY,SH,[Primary,ixUnique]）;
　　 end;

　　 CreateTable; {創(chuàng)建表格}
　　 end;
　　 end ;

　　 ap.free;　{釋放變量ap}
　　end;

上一篇：Delphi開(kāi)發(fā)基于DCOM的聊天室

下一篇：BCB及Delphi工程文件擴(kuò)展名一覽