程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 利用Delphi開發網絡數據庫應用

利用Delphi開發網絡數據庫應用

編輯:Delphi

Delphi 是具可視化界面的面向對象編程語言,它以其功能強大、簡便易用等諸多特性,深受編程人員的歡迎。Delphi 中提供了數據庫引擎 BDE(Borland Database Engine),並內含眾多的數據庫調用構件,為編程人員開發客戶/服務器應用程序提供了方便。通常情況下,利用 Delphi 開發數據庫應用程序,可以使用TTable、TDataSource、TDBEdit、TDBNavigator等構件。只要正確設置了構件的某些屬性,再編寫必要的程序代碼對一些特定事件進行處理,就能夠完成對多種數據庫進行的數據處理,例如:記錄的輸入、修改、刪除和查詢等。這樣做雖然只需要編寫極少量的程序代碼就能達到很好的效果,但如果在程序設計過程中,某些數據表的結構發生了改變,則必須修改與此數據表有關的所有構件的屬性,這將使程序員陷入繁瑣的重復勞動中。

為避免上述的麻煩,我們可以在編寫網絡數據庫應用程序時采用結構化查詢語言 SQL(Structured Query Language),這樣不僅可以更方便地與諸如 SQL Server、Oracle 等各種後台數據庫進行動態的數據交換,而且可以使程序的修改和移植更加靈活。我們以數據輸入模塊為例,說明開發客戶/服務器應用程序時如何采用 SQL 語句實現數據處理功能。首先,判斷是否已經有事務處理程序在運行,如果有,將其回卷(rollback);如果沒有,則啟動一個新的事務,為數據的最終處理做准備。其次,是設置 SQL 語句,並將其寫入 TQuery 構件中。最後,將事務提交或回卷,至此完成一條記錄的數據輸入。

下面是以頁面中的 TEdit 類型編輯框內容作為數據源,向數據庫輸入記錄的過程代碼:

  procedure DataInsert(const qName:TQuery;
             szDBName:string;iNum:Integer;
             iMark:array of Integer;eName:array of TEdit);
   var
   i : Integer;
   szSQL : string;
   begin
   if DataModule1.DataBase1.InTransaction=true then
   DataModule1.DataBase1.RollBack;
   DataModule1.DataBase1.StartTransaction;
   szSQL := 'INSERT INTO '+szDBName+' VALUES('
   for i:=0 to iNum-1 do
    begin
     if iMark[i]=0 then
      szSQL := szSQL+eName[i].Text {非字符方式}
     else
      szSQL := szSQL+'"'+eName[i].Text+'"'; {字符方式}
     if i=iNum-1 then
      szSQL := szSQL+')'
     else
      szSQL := szSQL+',';
     end;
     qName.Close; {關閉查詢}
     qName.SQL.Clear; {清SQL特性內容}
     qName.SQL.ADD(szSQL); {添加SQL內容}
     szSQL := 'SELECT * FROM '+szDBName;
     qName.SQL.ADD(szSQL);
     qName.Open; {返回結果集}
     DataModule1.DataBase1.Commit;
     end;

以上過程包含五個參數,實現從頁面中的一系列編輯框中讀取數據,並向指定數據表輸入的功能。其中,參數 qName 為頁面中所使用的 TQuery 類構件的名稱;參數 szDBName 是數據表的名稱;參數eName 是 TEdit 類型的數組,列出了頁面中包含數據的各編輯框名稱;參數 iNum 是數據表中的字段個數,也即編輯框的個數;參數 iMark 是一個整數類型的數組,該參數表明相應字段是以何種方式輸入的,如果是字符方式,需要在數據前後兩端加上引號。需要注意的是:在調用本過程之前,應將數據庫連接打開:

DataModule1.DataBase1.Connected := true;

過程調用完成後,將數據庫連接斷開:

ataModule1.DataBase1.Connected := false;

另外,開發網絡數據庫應用程序時,還可以使用存儲過程,即:將預先編譯過的 SQL 語句存儲在服務器上。存儲過程提前運行,且不與程序代碼一同存儲和編譯,因此其對應主程序中的代碼相對簡潔,運行速度也較快。SQL 語句的集中存放,使其修改更容易。

要創建向數據表中輸入數據的存儲過程,代碼編寫舉例如下:

  CREATE PROC ProcTest1
   @inttest smallint
   ,@strtest char(4) output
   AS
   INSERT INTO TEST_User.TRANS_TEST
   VALUES(@inttest,@strtest)
   SELECT @strtest,* FROM TEST_User.TRANS_TEST

以上代碼向數據表 TEST_User.TRANS_TEST 添加數據,該數據表包括兩個字段:第一個字段為 smallint 類型的數據,參數類型定為 Input(在存儲過程中可缺省);第二個字段數據為長度為4 的字符類型,參數類型為 Output。

其模塊程序的編寫與 DataInsert 過程相似,區別主要在於模塊的中間部分,對應的主要代碼如下:

  StoredProc1.Close;
   {關閉存儲過程}
   StoredProc1.Params[1].ParamType := ptInput;
   {設置存儲過程的參數類型}
   StoredProc1.Params[1].AsInteger := 1;
   {設置存儲過程中參數的數據}
   StoredProc1.Params[2].ParamType := ptOutput;
   toredProc1.Params[2].AsString := 'abcd';
   StoredProc1.Open; {打開存儲過程}

其中,StoredProc1 是 TStoredProc 類型的構件名稱;Params[1] 是存儲過程中的第一個參數,對應存儲過程 ProcTest1 可以用ParamByName('@inttest')代替;存儲過程的第二個參數與其類似。

實際上,編寫對網絡數據庫進行其他數據處理(如:修改、刪除和查詢等)的模塊,與數據的輸入模塊大體相似,這裡就不再贅述了。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved