Delphi實(shí)現(xiàn)兩層CS數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)

1、 桌面數(shù)據(jù)庫(kù)到客戶機(jī)服務(wù)器模式再到多層數(shù)據(jù)庫(kù)結(jié)構(gòu)模式，都能勝任。 本文以數(shù)據(jù)庫(kù)服務(wù)端軟件Microsoft SQL Server 2000及客戶端開發(fā)軟件 。一、應(yīng)用程序開發(fā)環(huán)境客戶/服務(wù)器(C/S)結(jié)構(gòu)包括連接在一個(gè)網(wǎng)絡(luò)中的多臺(tái)計(jì)算機(jī)。請(qǐng)求另一臺(tái) 計(jì)算機(jī)為之服務(wù)的計(jì)算機(jī)稱為客戶機(jī)(Client)。而處理數(shù)據(jù)庫(kù)的計(jì)算機(jī)稱 為服務(wù)器(Server)。下面是本文使用的開發(fā)環(huán)境。 1、服務(wù)端網(wǎng)絡(luò)數(shù)據(jù)庫(kù)系統(tǒng)目前，在開發(fā)C/S 數(shù)據(jù)庫(kù)應(yīng)用程序時(shí)，可以在服務(wù)器端使用的數(shù)據(jù)庫(kù)管理 服務(wù)端網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，微軟公司的Microsoft SQL Server等等。本文使用的 MicrosoftSQLServer很方便

2、地使用SQL Server 服 務(wù)器管理工具啟動(dòng)后臺(tái)數(shù)據(jù)庫(kù)服務(wù)程序，為客戶端提供數(shù)據(jù)庫(kù)服務(wù)。2、客戶端數(shù)據(jù)源的配置C/S 數(shù)據(jù)庫(kù)應(yīng)用程序的客戶端必須能與服務(wù)端的數(shù)據(jù)庫(kù)管理系統(tǒng)進(jìn)行網(wǎng)絡(luò) 通信。本文的客戶端使用的是ODBC for SQL Server驅(qū)動(dòng)程序及TCP/IP 協(xié) 議與服務(wù)端進(jìn)行連接。在ODBC 管理器中的系統(tǒng)DSN 中增加兩個(gè)驅(qū)動(dòng)為SQL ServerMSSQLMSSQL接MicrosoftSQL Server0 中的例行數(shù)據(jù)庫(kù)pubs 和Northwind。ODBC 配置完成后，打開 or 二、創(chuàng)建客戶端數(shù)據(jù)庫(kù)應(yīng)用程序 L TDatabase, TSession等組件支持SQL

3、Server 數(shù)據(jù)庫(kù)編程。下面介紹通過 Delphi 的相關(guān)組件開發(fā)客戶端應(yīng)用程序的一般步驟和方法。 1、建立與數(shù)據(jù)庫(kù)的連接 件對(duì)所有 Tdatabase 控件進(jìn)行全局控制，當(dāng)創(chuàng)建數(shù)據(jù)庫(kù)應(yīng)用程序時(shí)，應(yīng)用會(huì)自動(dòng)創(chuàng)建一個(gè)默認(rèn)的BDE 會(huì)話期對(duì)象 Session，新加入的TDatabase 對(duì)象會(huì)默認(rèn)地處于Session 管理之下 。在窗體上放四個(gè)命令按鈕： FirstOpen, FirstClose, SecondOpen 和 procedure TForm1.FirstOpenClick(Sender: TObject);begindatabase1:=session.OpenDatabase(

4、MSSQL1);procedure TForm1.SecondOpenClick(Sender: TObject);begindatabase2:=session.OpenDatabase(MSSQL2);procedure TForm1.FirstCloseClick(Sender: TObject);var db:TDatabase;begindb:=session.FindDatabase(MSSQL1);/查找是否有以MSSQL1 為別名 IF (DBNIL) THEN db.Close;procedure TForm1.SecondCloseClick(Sender: TObject

5、);var db:TDatabase;begindb:=session.FindDatabase(MSSQL2);IF (DBNIL) THENdb.Close;ndatabaseMSSQL base abaseMSSQLMicrosoftSQLServer atabase 到別名為 MSSQL1和MSSQL2 的數(shù)據(jù)庫(kù)，返回給臨時(shí)數(shù)據(jù)庫(kù)對(duì)象db，并使用 2、在程序中操縱數(shù)據(jù)庫(kù)(1)建立查詢并使其結(jié)果集可編輯 表示可進(jìn)行緩存編輯， UpdateObject屬性為設(shè)置某TUpdateSQL對(duì)象，如 UpdateSQL1；UpdateSQL1 對(duì)象的屬性DeleteSQL, InsertSQL,

6、ModifySQL 是作為編輯查詢結(jié)果后寫入數(shù)據(jù)庫(kù)時(shí)生成相應(yīng)SQL 語句的參數(shù)，可手動(dòng)設(shè) 置，也可雙擊UpdateSQL1對(duì)象激活其編輯器進(jìn)行生成，查詢結(jié)果可顯示在 DeleteSQL,InsertSQL,ModifySQL直接用其編輯器生成，在此不列出)： procedure TForm1.QueryDisplayClick(Sender: TObject);beginDataSource1.DataSet:=query1;query1.Close;query1.CachedUpdates:=True;query1.SQL.Clear; /清除 SQL 屬性query1.ParamCheck

7、:=True;query1.DatabaseName:=MSSQL1;query1.SQL.Add(select * from employee);query1.SQL.Add(where pub_id:pubid);query1.SQL.Add(order by emp_id);query1.ParamByName(pubid).AsString:=1000;query1.Prepare;query1.ExecSQL; idApplyUpdates 。(2)動(dòng)態(tài)創(chuàng)建存儲(chǔ)過程 procedure TForm1.CreateProcClick(Sender: TObject);beginwith

8、 Query2 do BeginDatabaseName:=MSSQL1;active:=False;paramcheck:=False;with SQL do BeginClear;Add(Create Procedure get_maxname);Add(max_name char(20) output);Add(As);Add(select max_name=max(au_fname);Add(from authors);ExecSQL;代碼中因執(zhí)行的是非查詢語句，所以Paramcheck 屬性必須設(shè)置為False， (3)使用帶參數(shù)的存儲(chǔ)過程如存儲(chǔ)過程返回的結(jié)果為一數(shù)據(jù)集，則使用方法與

9、Tquery 組件相似，下面 是使用上面新建立的存儲(chǔ)過程。在窗體上放置StoredProc1對(duì)象，其屬性 DatabaseName=MSSQL1StoredProcName=dbo.get_maxnameParam.Date=在窗體上放置命令按鈕WithReturnProc, 其相應(yīng)代碼如下： procedure TForm1.WithReturnProcClick(Sender: TObject); var tempStr:String;beginStoredProc2.Prepare;StoredProc2.ExecProc;tempStr:= StoredProc2.ParamByNam

10、e(max_name).AsString; showmessage(The value of StoreProc returned is +tempStr); 訪問輸出參數(shù)max_name。(4)事務(wù)控制 StartTransaction 啟動(dòng)一新事務(wù)，用Commit 方法提交數(shù)據(jù)，用Rol1back 方法卷回事務(wù)，取消對(duì)數(shù)據(jù)庫(kù)所做的修改。例如，需把上面編輯過的數(shù)據(jù) 從緩存提交給數(shù)據(jù)庫(kù)，可用如下代碼：procedure TForm1.QueryApplyClick(Sender: TObject);beginwith Query1 dobeginDatabase1.StartTransaction;ApplyUpdates