delphi程序設(shè)計(jì)及實(shí)驗(yàn)指導(dǎo)電子教案第9章-資料下載頁
2025-01-12 17:38本頁面
【正文】 ts）是 Microsoft公司面向各種數(shù)據(jù)的高層接口， ADO組件這種層次接口被稱為 OLE DB。 ADO是在 Microsoft的數(shù)據(jù)訪問技術(shù)OLE DB上實(shí)現(xiàn)的。 OLE DB訪問速度快，可以訪問的數(shù)據(jù)類型豐富，包括對關(guān)系型數(shù)據(jù)庫、非關(guān)系型數(shù)據(jù)庫、電子郵件、文件系統(tǒng)及定制事務(wù)對象的訪問。 ADO組件編寫的程序，可脫離 Borland的 BDE，數(shù)據(jù)控制組件在直接使用 ADO組件，在使用 ADO組件編寫的程序，必須正確安裝 ADO/OLE DB。 常用數(shù)據(jù)庫組件 – ADO組件中有三個核心組件分別是用于數(shù)據(jù)庫連接的 TADOConnection組件、用于執(zhí)行 SQL命令的TADOCommand組件和用于執(zhí)行返回結(jié)果集合的請求的 TADODataSet組件。還有三個與 BDE兼容的TADOTable、 TADOQuery、 TADOStoredProc組件，可以用它們將 BDE的應(yīng)用程序移植到 ADO中。另外有一個 TRDSConnection組件，用于訪問遠(yuǎn)程多級應(yīng)用程序中的數(shù)據(jù)。 數(shù)據(jù)庫應(yīng)用程序綜合實(shí)例 ? 總體設(shè)計(jì) – 人事管理系統(tǒng)就是要實(shí)現(xiàn)對單位職工進(jìn)行管理，整個系統(tǒng)由人事檔案管理和部門信息管理組成，包括信息輸入、添加、修改、刪除、查詢等功能。 數(shù)據(jù)庫應(yīng)用程序綜合實(shí)例 人 事 管 理 系 統(tǒng)職工管理模塊部門管理模塊系統(tǒng)查詢模塊職工錄入職工刪除職工修改記錄移動部門錄入部門刪除部門修改記錄移動職工信息查詢部門信息查詢 數(shù)據(jù)庫應(yīng)用程序綜合實(shí)例 ? 數(shù)據(jù)庫設(shè)計(jì) – 數(shù)據(jù)庫設(shè)計(jì)是系統(tǒng)實(shí)現(xiàn)的基礎(chǔ)，分為概念設(shè)計(jì)、邏輯設(shè)計(jì)和物理設(shè)計(jì)三步，本系統(tǒng)共有兩個數(shù)據(jù)庫：Department和 Employees。 數(shù)據(jù)庫應(yīng)用程序綜合實(shí)例 ? 程序設(shè)計(jì) – 1．主界面設(shè)計(jì) ? 本系統(tǒng)采用多頁面的方法來實(shí)現(xiàn)，系統(tǒng)主界面如圖 925所示 – 2．子模塊的設(shè)計(jì) ? 本系統(tǒng)共包括三個子模塊：職工管理模塊、部門管理模塊和信息查詢模塊。其界面分別如圖 92圖 926和圖 927所示。各模塊的功能實(shí)現(xiàn)基本相似，這里以職工管理模塊、部門管理模塊的部分按鈕代碼以及信息查詢模塊的查詢功能代碼為例來介紹各子模塊的具體實(shí)現(xiàn)方法，其他模塊的實(shí)現(xiàn)請讀者自行完成。 數(shù)據(jù)庫應(yīng)用程序綜合實(shí)例 ? (1) 界面設(shè)計(jì) ? (2) 編寫代碼 ? 職工管理模塊“退出”按鈕的 OnClick事件處理代碼如下： – procedure (Sender: TObject)。 – begin – close。 – end。 數(shù)據(jù)庫應(yīng)用程序綜合實(shí)例 ? 部門管理模塊“添加”按鈕的 OnClick事件處理代碼如下： – procedure (Sender: TObject)。 – begin – :=false。 – :=false。 – :=false。 – :=false。 – :=false。 – :=false。 – :=false。 – :=True。 – :=True。 – 。 – end。 數(shù)據(jù)庫應(yīng)用程序綜合實(shí)例 ? “修改”按鈕的 OnClick事件處理代碼如下： – procedure (Sender: TObject)。 – begin – :=false。 – :=false。 – :=false。 – :=false。 – :=false。 – :=false。 – :=false。 – :=True。 – :=True。 – 。 – end。 數(shù)據(jù)庫應(yīng)用程序綜合實(shí)例 ? “刪除”按鈕的 OnClick事件處理代碼如下： – procedure (Sender: TObject)。 – begin – if then – MessageDlg( 39。當(dāng)前無數(shù)據(jù)，請確認(rèn) !39。,mtError,[mbOk],0) – else – begin – if MessageDlg(39。確認(rèn)刪除當(dāng)前記錄嗎？ 39。, – mtConfirmation,[mbOK,mbCancel],0)=mrOK then – begin – 。 – Showmessage(39。該記錄已被刪除 39。)。 – 。 – end。 – end。 – end。 數(shù)據(jù)庫應(yīng)用程序綜合實(shí)例 ? 信息查詢模塊“職工查詢”按鈕的 OnClick事件處理代碼如下： – procedure (Sender: TObject)。 – Var – StrSQL: string。 – begin – 。 – 。 – case of – 1,10: strSQL:=39。Select * from 39。 – 0,1,2,4,5,6,8: strSQL:=39。Select * from Employees where 39。+ – +39。=39。+39。39。39。39。++39。39。39。39。 – 7: strSQL:=39。Select * from Employees where 39。+ – +39。=39。+。 – else – strSQL:=39。Select * from Employees where 39。++39。=39。 – +chr(35)++chr(35)。 – end。 數(shù)據(jù)庫應(yīng)用程序綜合實(shí)例 – (strSQL)。 – 。 – 。 – if =0 then – ShowMessage(39。指定記錄沒有找到 39。)。 – :=DataSource3。 – :=39。39。 – end。 ? “部門查詢”按鈕的 OnClick事件處理代碼如下： – procedure (Sender: TObject)。 – Var – StrSQL: string。 數(shù)據(jù)庫應(yīng)用程序綜合實(shí)例 – begin – 。 – 。 – case of – 1,4 :strSQL:=39。Select * from 39。 – else – strSQL:=39。Select * from where 39。+ – +39。=39。+39。39。39。39。++39。39。39。39。 – end。 – (strSQL)。 – 。 – 。 – if =0 then – ShowMessage(39。指定記錄沒有找到 39。)。 – :=DataSource3。 – :=39。39。 – end。 習(xí) 題 1. 什么是數(shù)據(jù)庫，什么是數(shù)據(jù)庫管理系統(tǒng)，什么是數(shù)據(jù)庫系統(tǒng)？ 2. 簡述 BDE可以使用的數(shù)據(jù)源有哪些類型？ 3. Delphi開發(fā)的數(shù)據(jù)庫應(yīng)用程序有哪幾種結(jié)構(gòu)？ 4. 簡述 Delphi中數(shù)據(jù)庫、數(shù)據(jù)表的創(chuàng)建過程。 5. 簡述 Delphi中常用的數(shù)據(jù)庫組件有哪些，其基本功能是什么？ 6. 簡述 Delphi數(shù)據(jù)庫應(yīng)用程序的開發(fā)步驟。
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1