【文章內(nèi)容簡介】 式的 數(shù)據(jù)應(yīng)用， 遠程數(shù) 據(jù)庫往 往能 支持海 量數(shù) 據(jù)處理 ，并 能夠通 過網(wǎng)絡(luò) 實現(xiàn) 數(shù)據(jù)共享和 并行處 理。大 部分 遠程數(shù) 據(jù)庫 系統(tǒng)都 可以 把數(shù)據(jù) 分布在 不同 地方的多臺計算機上。 我們比較熟悉的數(shù)據(jù)庫系統(tǒng)有 Access 和 SQL Server，雖然 Access實現(xiàn)比較簡單，而且使用 也比較普遍；由 于 SQL Server 的高性能和 方便、易用的用戶界面，它很快就在市場上取得了成功。 2021 年， SQL Server 2021 面市。 SQL Server 2021 的特點體現(xiàn)在如下幾個方面： （ 1） 與 inter 的緊密結(jié)合 （ 2） 可擴展性和可用性 （ 3） 企業(yè)級數(shù)據(jù)庫 （ 4） 簡單、友好的操作方式 （ 5） 數(shù) 據(jù)倉庫支持 該系統(tǒng)是網(wǎng)絡(luò)版的商場管理系統(tǒng)， 所以我們選擇遠 程數(shù)據(jù)庫，又 因為 SQL Server 2021 具有以上五大特點，使用也比較方便，理所當(dāng)然就選它了。 ADO 概 述（ 數(shù)據(jù) 庫連 接方 式） Delphi 7 中訪問數(shù)據(jù)庫的方式有很多種：直接訪問、通過 ODBC 訪 問、通過內(nèi)嵌方式訪問、通過 dbExpress 訪問數(shù)據(jù)庫和 通過 ADO 方式 訪問數(shù)據(jù)庫。 （ 1） 直接訪問 Delphi可以直接訪問 Paradox 和 dBASE這兩個桌面型的數(shù)據(jù)庫系統(tǒng)。 （ 2） 通過 ODBC 訪問 訪問 Paradox 和 dBASE 以 外的數(shù)據(jù)庫，通常是 通過 ODBC 來實現(xiàn)的。通過 ODBC 訪問數(shù)據(jù)庫時， 首先要使用 Windows 的控制面板或 Delphi 的數(shù)據(jù)庫引擎 BDE 建立ODBC 數(shù)據(jù)源。 （ 3） 通過內(nèi)嵌方式訪問 Delphi 7 中可以不通 過 ODBC，而以內(nèi) 嵌方式訪問數(shù)據(jù)庫系統(tǒng)。這需要使用數(shù)據(jù)庫別名來指定數(shù)據(jù)庫。需要說明的兩點是，以該方式訪問數(shù)據(jù)庫需要 在安裝 Delphi 7 時指定安裝 SQL Link； Query 控件的 SQL 語句不能以分號結(jié)尾。 （ 4） 通過 dbExpress 訪問數(shù)據(jù)庫 dbExpress 是一組存取各種不同關(guān)聯(lián)資料庫的原生驅(qū)動程序，以及以組統(tǒng)一的組件。 （ 5） 通過 ADO 方式訪問數(shù)據(jù)庫 和 Delphi 6 一樣， Delphi 7 也支持 客戶端程序直接訪問 ADO數(shù)據(jù)庫的能力?；?ADO 技術(shù)的應(yīng)用程序可以是單層或多層的，其情 況取決于使用的數(shù)據(jù)庫系統(tǒng)。例如：如果使用 ADO 訪問的是 Microsoft SQL Server 的程序是雙層的，因為基于 Microsoft SQL Server 數(shù)據(jù)庫系統(tǒng)，大多數(shù)都是在一 臺專門的數(shù)據(jù)庫服務(wù)器上 ，應(yīng)用系統(tǒng)只能 遠程訪問它。 如果是 使用 ADO 訪 問本地 數(shù)據(jù)庫（ 例如， DBF 數(shù)據(jù)庫 或Paradox 數(shù)據(jù)庫）的應(yīng)用 系統(tǒng)，則總是單層的。我 們之所以采 用 ADO技術(shù)， 是因為它采用直接訪問技術(shù)，采用 ADO 主要有 3 個 優(yōu)點，第一，速度快占用內(nèi)存小，主要因為它直接使用操作系統(tǒng)的 API 函數(shù)。第 二，它支持目前最為熱門的 Web 應(yīng)用開發(fā) 。第三 ，它支持 RDS(Remote Data Service),即通過 客戶端 程序直接 從遠程 服務(wù)器中 把數(shù)據(jù) 讀取到客 戶端，待客戶端處理完這些數(shù) 據(jù)后，再將修 改后的數(shù)據(jù)返回遠程服務(wù) 器。 基于 ADO 的以上這些特點，我們選用它作為連接數(shù)據(jù)庫的方式。 在 ADO 的應(yīng)用程序中，數(shù)據(jù)庫是有 ADO 數(shù)據(jù)存儲連接訪問的。所以要 訪問數(shù) 據(jù)庫， 程序 必須首 先連接 到數(shù) 據(jù)存儲 。 可 以使用 ADO控件，也可以共享由 ADO Connection 控件建立的連接來訪問到數(shù)據(jù)存儲。如果應(yīng)用程序連接到數(shù)據(jù)存儲，數(shù)據(jù)集控件就可以與 ADO 連接控件關(guān)聯(lián)，訪問數(shù)據(jù)庫中的數(shù)據(jù)表?；?ADO 技術(shù)的控件共有 7個： TADO Connection、 TADO Command、 TRDS Connection 、 TADO Dataset、 TADO Table、 TADO Query、 TADO StoredProc。 數(shù) 據(jù)庫詳細設(shè)計 4． 3． 1 建 立 數(shù) 據(jù)庫 用 microsoft sql server 2021 建立數(shù)據(jù)庫為 jfgl。 4． 3． 2 建 立 數(shù) 據(jù)表 （ 1）機房信息表 1（ P_JF_Info1） 字段名 類型 長度 備注 Jf_id char 10 機房地點 jfid Char 10 機房編號 （ 2）機房信息表 2(P_JF_Info2) 字段名 類型 長度 備注 Jf_id char 10 機房地點 Jf_name Char 50 機房名稱 Jf_hao Char 10 機房號 Jfid Char 10 機房編號 Jiweishu Int 4 機位數(shù) Keyongshu Int 4 可用機位 數(shù) Kepaike Bit 1 是否可以排課 Keyuyue Bit 1 是否被預(yù)約 Kekongwei Int 4 剩余空位數(shù) Yystart char 8 預(yù)約開始時間 Yyfinish char 8 預(yù)約結(jié)束時間 yshiyong Int 4 是否可以排課 （ 3）預(yù)約表 (T_PK_main) 字段名 類型 長度 備注 Yyid Int 4 預(yù)約編號 Yyteacher Char 20 預(yù)約教師 Yycource Char 50 預(yù)約課程 Yuanxi Char 50 院系 Yyclass Int 4 預(yù)約班級 Yyrenshi Int 4 預(yù)約人數(shù) finish Bit 1 是否已排完課 xueshi int 4 學(xué)時 (4)排課表 (T_PK_sub) 字段名 類型 長度 備注 Formzhouci Char 50 周次 Tozhouci Char 50 結(jié)束周次 Fromxingqi Char 20 星期 Jieci Char 50 節(jié)次 Jifang Char 20 機房 Renshu int 4 上機人數(shù) Jf_id Char 10 上機地點 Zhouqi Char 50 周期 Teacher Char 20 教師 Yyid Int 4 預(yù)約編號 cource Char 50 上機課程 Jfid int 4 機房編號 （ 5）學(xué)院信息表 (T_PK_xyInfo) 字段名 類型 長度 備注 yxid Int 4 院系編號 yuanxi Char 50 院系 (6)用戶表（ yonghubiao） 字段名 類型 長度 備注 Id Int 4 自動編號 Yonghuming Char 10 用戶名 Mima Char 10 密碼 Question Varchar 50 提示問題 Answer Charchar 50 答案 leibie int 4 類別 系統(tǒng)模塊化設(shè)計 4． 4． 1 系 統(tǒng)主 界面 設(shè)計 A. 窗體說明： 當(dāng)用戶 被驗證 后， 進入主 窗體 ，根據(jù) 系統(tǒng) 權(quán)限， 設(shè)置 該用戶 所能 行使的操作，并且在狀態(tài)欄顯示系統(tǒng)時間，用戶權(quán)限。 要代碼： procedure (Sender: TObject)。 //獲得系統(tǒng)時間 begin [4].Text:=timetostr(time)。 end。 procedure (Sender: TObject)。 //獲 得登陸用戶權(quán)限，級別，系統(tǒng)日期 begin if identify=39。系統(tǒng)管理員 39。 then begin [0].Text:=39。歡迎使用機房管理系統(tǒng) 39。 [1].Text:=39。用戶名稱 :39。+pubuser。 [2].Text:=39。級別 :39。+identify。 [3].Text:=datetostr(now)。 end else begin //操作者應(yīng)有的權(quán)限 [0].Text:=39。歡迎使用機房管理系統(tǒng) 39。 [1].Text:=39。用戶名稱 :39。+pubuser。 [2].Text:=39。級別 :39。+identify。 [3].Text:=datetostr(now)。 //設(shè)定其相應(yīng)的菜單為 FALSE 狀態(tài) end。 end。 procedure (Sender: TObject)。 begin if((39。 確 認(rèn) 退 出 系 統(tǒng) 嗎 ?39。,39。 提示39。,mb_okcancel))=1 then 。 end。 4． 4． 2 排 課管 理設(shè) 計 體 說明 ： 該窗體 列出了 所有實 驗機 房的詳 細信 息，排 課人 員可以 根據(jù)機 房的 使用 情況 和已排課信息 ，以及根據(jù)所上課程的硬件要求進行合理的排課； B:該 主 要代碼： procedure (Sender: TObject)。 begin 。 。 (39。select * from T_PK_sub where jfid=39。39。39。++39。39。39。39。)。 。 :=[39。fromzhouci39。]。 :=[39。tozhouci39。]。 :=[39。fromxingqi39。]。 :=[39。jf_id39。]。 :=[39。jifang39。]。 :=[39。jieci39。]。 :=[39。renshu39。]。 :=[39。zhouqi39。]。 :=datasource1。 end。 C： 窗 體 說明 ： 在排課時，系統(tǒng)會提示 ，可安排的人數(shù) 以 及已經(jīng)安排的開始時間和 結(jié)束時間等相關(guān)的信息 ，是 否有排課沖突，如果排課沖突或人數(shù)超過 上限，將結(jié)束本次排課 。每次排完課后，點擊刷新按扭，系統(tǒng)的編號欄中將自動加一。但單擊實驗地點的下拉列表框時，系統(tǒng)會自動綁定該實驗地點的所以機房 號。以及單擊預(yù)約編號時，也同樣會綁定教師和實驗課程，如果該預(yù)約編號已經(jīng)排完課程，系統(tǒng)將提示該預(yù)約編號已經(jīng)排完課，結(jié)束本次排課。 D 主 要 代 碼： （ 主要是解決排課沖突問題 ） for i:=0 to do begin if (=[39。fromzhouci39。]) and ([39。tozhouci39。]=) then if ([39。jf_id39。]=) then if (inttostr([39。jifang39。])= ) Then if (inttostr([39。fromxingqi39。])=) then if (inttostr([39。jieci39。])=) then begin showmessage(39。在 39。++39。樓， 39。++39。機房，星期 39。++39。，節(jié)次 39。++39。，已經(jīng)排滿課 39。)。 exit。 end。 。 end。 for i:=0 to do begin if (=[39。fromzhouci39。]) and ([39。tozhouci39。]=) then if ([39。jf_id39。]=)then if(inttostr([39。jifang39。])= ) then if (inttostr([39。fromxingqi39。])=xt) then if (inttostr([39。jieci39。])=trim( xt)) then begin showmessage(39。在39。+[39。fromzhouci39。]+39。39。+ues[39。tozhouci39。]+39。，已經(jīng)排滿課 39。)。 exi