精通數據庫系列之入門-技巧篇4
2024-07-21 02:11:29
供稿：網友
作者：思索 整理：南海
數據庫編程示例
在本次講座中，我們以delphi5為開發工具，標準的paradox表為后臺數據庫，來向大家介紹如何進行最簡單的數據庫編程。在本例中，我們將實現對一個數據表單的添加、修改、刪除以及對表中數據進行查詢的功能。
本例所使用的計算機軟硬件環境為：windows nt 4.0 server，borland delphi 5，piii550，256m內存。當然啦，一般的朋友在win98的環境下或者win2000的環境下都可以按照本例的步驟來編程序的。筆者的機器主要用作服務器，所以就在服務器上編啦。廢話少說，現在開始：
在正式編寫程序之前要有許多準備工作，這當然包括borland delphi 5的安裝。delphi5自身帶了對標準數據表paradox的驅動（和一些fox系列數據庫軟件的.db文件是兼容的，這些文件都可以由delphi直接讀取）。
程序編寫的第一步首先是數據表（即.db文件）的建立。在這一步要用到delphi自帶的一個工具叫database desktop。這個工具主要用來對表格進行操作，它不僅可以操作像.db文件這樣的標準表格，還可以訪問像oracle、sql server等大型數據庫的文件，功能可以說是很強大的。打開database desktop，選擇file－new－table，然后選擇paradox7，出現如下界面：
在fieldname里面填寫你要建立的表單的屬性名稱，如圖所示，本例中要建立的是人員管理表，所以建立的屬性為編號、姓名、性別、工作單位、工資、備注等。除工資之外的屬性都是字符串類型，即圖中type項所選擇的a（alpha），而size則是指的字符串的長度，屬性值的長度是根據屬性的具體意義來確定的，例如“性別”選擇只有“男”和“女”，一個漢字的長度，那么性別屬性的長度設置成2就可以了（一個漢字等于兩個字符的長度）。而工資屬性是數值類型的，在paradox中用number來標記，即和前面對應的一個“n”。屬性設置完畢后，選擇save as存盤。本例中，所建立的數據表格的存放路徑和文件名為：d:/program files/borland/database desktop/workdir/ryb.db（人員表）。
這樣就完成了第一步，這一步只是編程之前的準備工作，也是后面針對這個表單編寫數據庫應用程序的基礎。下面要進行的就是實際的程序編寫了，請打開borland delphi 5。
在缺省的form1上放置這樣一些控件（控件的位置就不用俺再羅嗦了吧？）：tdatabase、ttable、tdatasourse、tdbgrid、tlabel、tdbnavigator。按照你喜歡的界面風格來放置這些控件，如下圖本例中的控件放置：
下一步就是控件屬性的設置啦，這一步也是本例中最關鍵的一步，因為許多網友對使用前端開發工具對后臺數據庫進行編程比較生疏，也就是在這個地方。
我們將tdatabase的databasename屬性設置成mydb（這個名字可以隨便起），drivername為standard（表明驅動的是paradox表），params屬性為path=d:/program files/borland/database desktop/workdir（存放.db文件的路徑，前面已經提到），connected設為true（和數據表建立起連接），其他屬性使用缺省值就可以了。
然后將table的databasename屬性設為mydb（即database1的databasename屬性），tablename為ryb.db（即數據表的名字）active屬性設置為true（打開表單，便于編寫程序）。
接著將datasourse1的dataset屬性設為為table1(ttable的name屬性值)。另外dbnavigator1和dbgrid1的datasourse屬性都設為datasourse1。tlabel的caption屬性設為“數據庫編程示例”，如圖所示（可以根據個人喜好修改字體，使它變得好看一些）。 >這樣控件的屬性就設置完畢了，注意到dbgrid里面的“編號”、“姓名”等欄都是數據表中的屬性，在ryb.db里面定義，而不是在前端的delphi程序里面定義。點擊run按鈕之后，這個簡單的程序就運行了（見下圖）。 >這是通過dbnavigator上的按鈕就可以控制對表單進行數據的添加、刪除、修改了（將dbnavigator的showhint屬性改為true的話可以在運行時看到各個按鈕的提示）。
至此，我們實現了使用delphi這種快速開發工具編寫簡單的數據庫應用程序， 細心的讀者可能注意到了，到目前為止連一行程序都沒有寫，確實是這樣，這就是第四代程序設計語言（可視化的編程語言）給我們帶來的好處。當然啦，要編寫比較復雜的程序不寫代碼是不可能的，下面我們將在上面的基礎上實現查詢的功能，并給大家附上源程序。在form增加如下控件：一個tquery、一個tbutton、4個tlabel、2個tedit。并將tlabel的屬性進行下圖所示的修改（新增加的控件都在黑色方框中）：
將query1的databasename屬性也設置成mydb（和table一樣），sql屬性中寫入select* from ryb，requestlive設為true（這樣可以對query里面的數據進行修改），然后將active屬性設為true。最后將datasourse1的dataset屬性改為query1（此時table1控件可以從form上去掉了）。
雙擊button1，在程序編輯器里面寫入如下代碼：
query1.close；
query1.sql.clear；
query1.sql.add(select * from ryb)；
query1.sql.add(where 姓名 like :xm and 工資 > :gz)；
query1.parambyname(xm).asstring:=%+edit1.text+%；
if (edit2.text<>’’)then
query1.parambyname(gz).value:=strtofloat(edit2.text)；
query1.prepare；
query1.open； >
這樣就完成了查詢代碼的編寫，具體各條語句所引用的函數的含義大家可以參考delphi的幫助文檔，在此就不作贅述了。另外在編寫查詢程序時，涉及到一些關于數據庫查詢語言sql的知識，在后面的文章中我們將有比較詳細的介紹。 >此時再執行這個程序，就編程的具有查詢功能的數據庫程序。在edit1和edit2中輸入相應的查詢條件，然后點擊button1（確定），程序就執行相應的查詢操作，查詢到的結果將在dbgrid1中顯示。
到此為止，我們就實現了使用borland delphi5操縱paradox數據表的程序示例，當然，這個程序是非常簡單的，它實現的只是數據庫操作的最基本功能。而且這個程序只是在單擊環境下運行的，在設計的時候，我們還不需要考慮一些例如并發性的問題。現在比較成熟的是在客戶機/服務器結構下和瀏覽器/服務器下對數據庫進行操作，而且隨著網絡功能的加入，許多新的問題也帶入進來，在后面我們將舉這方面的例子，請大家靜候佳音吧！
