【導(dǎo)讀】臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起。數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完。備,易使用等特點(diǎn)。根據(jù)我們的實(shí)際情況經(jīng)過分析,本系統(tǒng)采用客戶機(jī)/服務(wù)器模。后臺使用符合國際標(biāo)準(zhǔn)的SQL數(shù)據(jù)語言的Oracle，給系統(tǒng)的兼容性、可移置、安全性、穩(wěn)定性打下了堅實(shí)的基礎(chǔ)。一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計算機(jī)科學(xué)日漸成熟,這些優(yōu)點(diǎn)能夠極大地提高招標(biāo)信息管理的效率,也是企。業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。低廉，性能卻有了長足的進(jìn)步。其次，計算機(jī)可以節(jié)省許多資源；第三，計算機(jī)可以大大的提高人們的工作效率；在現(xiàn)在我們的企業(yè)招標(biāo)信息管理水平還停留在紙介質(zhì)的基礎(chǔ)上，代這種傳統(tǒng)的管理方法必然被計算機(jī)為基礎(chǔ)的信息管理所取代。

　　

【正文】 BLE SCOTT.綜合評價表 ( 序號 NUMBER(*) NOT NULL, 工程項目名稱 VARCHAR2(40), 招標(biāo)編號 VARCHAR2(50), 設(shè)備名稱 VARCHAR2(40), 開標(biāo)地點(diǎn) VARCHAR2(40), 推薦投標(biāo)人 1 VARCHAR2(50), 技術(shù)評分 1 VARCHAR2(20), 補(bǔ)充說明 1 VARCHAR2(20), 推薦投標(biāo)人 2 VARCHAR2(50), 技術(shù)評分 2 VARCHAR2(20), 補(bǔ)充說明 2 VARCHAR2(20), 推薦投標(biāo)人 3 VARCHAR2(50), 技術(shù)評分 3 VARCHAR2(20), 補(bǔ)充說明 3 VARCHAR2(20), 推薦投標(biāo)人 4 VARCHAR2(50), 技術(shù)評分 4 VARCHAR2(20), 補(bǔ)充說明 4 VARCHAR2(20), 推薦投標(biāo)人 5 VARCHAR2(50), 技術(shù)評分 5 VARCHAR2(20), 補(bǔ)充說明 5 VARCHAR2(20), 綜合評述 VARCHAR2(255), 推薦預(yù)中標(biāo)人 VARCHAR2(50), 會簽意見 VARCHAR2(255), 會簽時間 VARCHAR2(20), 主持人 VARCHAR2(20), 監(jiān)督人 VARCHAR2(20), 投標(biāo)總價 1 VARCHAR2(20), 投標(biāo)總價 2 VARCHAR2(20), 投標(biāo)總價 3 VARCHAR2(20), 投標(biāo)總價 4 VARCHAR2(20), 投標(biāo)總價 5 VARCHAR2(20), 32 開標(biāo)時間 VARCHAR2(20) ) 四 、 錄入初始數(shù)據(jù) 數(shù)據(jù)表創(chuàng)建成功后，數(shù)據(jù)庫中還沒有實(shí)際的數(shù)據(jù)。為保證外部鍵能使用，利用 Delphi6中的 SQL Explorer工具向數(shù)據(jù)庫的 一些 固定內(nèi)容的表格輸入數(shù)據(jù) ，如省份、類別 、主持人、地區(qū) 等 。 五 ．各個功能 模塊的創(chuàng)建 工程的創(chuàng)建 啟動 Delphi后自動創(chuàng)建一個工程 Projec1和一個窗體 Form1。在“ Project”菜單中選擇“ Options? ”來 修改 工程的屬性。設(shè)置工程標(biāo)題“ Title” 為“招標(biāo)信息管理系統(tǒng)”，這樣將在 Windows 任務(wù)欄中顯示；圖標(biāo)為選定的圖標(biāo)，最后的結(jié)果如圖 5－ 1所示。 圖 5－ 1 工程屬性修改窗口 修改完成以后，單擊“ File”菜單中的“ Save Project As? ”選項保存工程，工程文件名為“ Project1”。 在保存工程文件之前，首先要報存主窗體單元，窗體單元的文件名為 “ ”。 33 應(yīng)用程序 窗體的創(chuàng)建 應(yīng)用程序的主窗體 布局 如 5－ 2， 上面是菜單欄，中間一行按鈕為各功能 模塊啟動按鈕， 下面為數(shù)據(jù)輸入選擇框，最下面是數(shù)據(jù)顯示窗 ，另還有 相應(yīng) 數(shù)據(jù)組件。 圖 5－ 2 主窗體布局 上述控件分別 按鈕在“ standard”控件組中添加，數(shù)據(jù) 頁 在“ win32”控件組中添加，數(shù)據(jù)控件在“ BDE” 、“ Data Access”、“ Data controls” 中增加。 數(shù)據(jù)庫的連接在窗體上添加“ Database”控件后，對其中數(shù)據(jù)庫別名選擇我們在“ BDE”配置好的 數(shù)據(jù)庫 別名 即可 如圖 5－ 3。 圖 5－ 3 Database控件配置 34 如在數(shù)據(jù)目錄 點(diǎn)擊“ 招標(biāo)計劃 ” 就會在右邊的數(shù)據(jù)表中顯示相關(guān)記錄， 下面的數(shù)據(jù)表顯示當(dāng)前記錄的數(shù)據(jù)。 部分 源程序 舉例 如下： procedure (Sender: TObject)。 var //數(shù)據(jù)類型定義 i:integer。 aa:array[0..100] of string。 begin if sqlcondition3=39。招標(biāo)計劃 39。 then //事件 begin 。 :=false。 。 (39。SELECT 工程項目名稱 , 招標(biāo)編號 , 計劃內(nèi)外 , 設(shè)備類別 , 設(shè)備名稱 , 規(guī)格型號 , 圖號 , 數(shù)量 , 招標(biāo)方式 , 39。)。 (39。推薦投標(biāo)人 1, 推薦投標(biāo)人 2, 推薦投標(biāo)人 3, 推薦投標(biāo)人 4, 推薦投標(biāo)人5, 技術(shù)協(xié)議完成時間 , 39。)。 (39。編制標(biāo)書發(fā)標(biāo) , 開標(biāo) , 評標(biāo) , 簽訂合同 , 主持人 , 主持人電話 , 工程序號 39。)。 (39。FROM 招標(biāo)計劃表 招標(biāo)計劃表 39。)。 (39。where 工程項目名稱 =:aa139。)。 (39。order by 工程序號 , 工程項目名稱 , 設(shè)備類別 , 招標(biāo)編號 39。)。 (39。aa139。).asstring:=copy(sqlcondition2,1,length(sqlcondition2)4)。 :=true。 if 0 then begin aa[0]:=39。 工程項目名稱 : 39。+(39。工程項目名稱 39。).asstring。 aa[1]:=39。 工程序號 : 39。+(39。工程序號 39。).asstring。 aa[2]:=39。 計劃內(nèi)外 : 39。+(39。計劃內(nèi)外 39。).asstring。 aa[3]:=39。 招標(biāo)編號 : 39。+(39。招標(biāo)編號 39。).asstring。 aa[4]:=39。 設(shè)備類別 : 39。+(39。設(shè)備類別 39。).asstring。 aa[5]:=39。 設(shè)備名稱 : 39。+(39。設(shè)備名稱 39。).asstring。 aa[6]:=39。 規(guī)格型號 : 39。+(39。規(guī)格型號 39。).asstring。 aa[7]:=39。 圖號 : 39。+(39。圖號 39。).asstring。 aa[8]:=39。 數(shù)量 : 39。+(39。數(shù)量 39。).asstring。 aa[9]:=39。 招標(biāo)方式 : 39。+(39。招標(biāo)方式 39。).asstring。 aa[10]:=39。 推薦投標(biāo)人 1: 39。+(39。推薦投標(biāo)人 139。).asstring。 aa[11]:=39。 推薦投標(biāo)人 2: 39。+(39。推薦投標(biāo)人 239。).asstring。 aa[12]:=39。 推薦投標(biāo)人 3: 39。+(39。推薦投標(biāo)人 339。).asstring。 aa[13]:=39。 推薦投標(biāo)人 4: 39。+(39。推薦投標(biāo)人 439。).asstring。 aa[14]:=39。 推薦投標(biāo)人 5: 39。+(39。推薦投標(biāo)人 539。).asstring。 aa[15]:=39。技術(shù)協(xié)議完成時間 : 39。+(39。技術(shù)協(xié)議完成時間 39。).asstring。 aa[16]:=39。 編制標(biāo)書發(fā)標(biāo) : 39。+(39。編制標(biāo)書發(fā)標(biāo) 39。).asstring。 aa[17]:=39。 開標(biāo) : 39。+(39。開標(biāo) 39。).asstring。 aa[18]:=39。 評標(biāo) : 39。+(39。評標(biāo) 39。).asstring。 aa[19]:=39。 簽訂合同 : 39。+(39。簽訂合同 39。).asstring。 35 aa[20]:=39。 主持人 : 39。+(39。主持人 39。).asstring。 aa[21]:=39。 主持人電話 : 39。+(39。主持人電話 39。).asstring。 。 for i:=0 to 21 do (aa[i])。 end。 end。 圖 5－ 3 招標(biāo)計劃輸入修改刪除窗體 點(diǎn)擊“修改” 、 “添加” 、 “ 刪除 ” 按鈕彈出相應(yīng)窗口如圖 5－ 4， 在 上面窗口就可進(jìn)行招標(biāo)計劃的輸入修改和刪除 ，在日期輸入窗口后加入了第三方的日歷控件“ Date Time Picker”實(shí)現(xiàn)日期的查詢選擇輸入。 其他的窗體參照以上辦法創(chuàng)建，詳見程序源代碼。 六 ． 編譯 應(yīng)用程序設(shè)計 完成 后 ， 最后的工作就是編譯可執(zhí)行文件。 在 Delphi 中將源代碼編譯成可執(zhí)行程序十簡單。只要在“ Project”菜單中選擇“ Build Project1”。其中 Project1 是我們創(chuàng)建的工程的名稱。編譯中各種錯誤信息會顯示在源代碼修改窗口的下面，在改正了所有錯誤后，編譯通過。在與工程文件同一目錄中會 生成一個和工程名稱相同的可執(zhí)行文件，本工程為“ Project1”。 36 第六章 性能測試與分析 一 、 測試環(huán)境 配置 硬件 安裝有 Win2021Server 操作系統(tǒng)的微機(jī) 服務(wù)器 1臺，安裝有 WinXP、Win9 Win2021Pro 操作系統(tǒng)的客戶機(jī)各 1臺 。通過 HUB 將上述計算機(jī)組成以太網(wǎng)，通訊協(xié)議選用 TCP/IP。 2． 在服務(wù)器和客戶機(jī)上分別安裝 Oracle8 企業(yè)版服務(wù)端和客戶端， 在數(shù)據(jù)庫服務(wù)器和客戶機(jī)上啟動 Oracle Net8 Easy config 完成服務(wù)器客戶機(jī)數(shù)據(jù)庫通訊的配置 。 在客戶機(jī)上安裝 安裝完軟件后， 再配置客戶機(jī)上 Delphi的 BDE連接上服務(wù)器上的 Oracle，一切正常，打開編譯好的應(yīng)用程序開始測試。 二 ． 測試 使用 主界面 如圖 6－ 1 打開點(diǎn)擊 “ 設(shè)備 招標(biāo)錄入 ”再點(diǎn)擊“所有項目”，點(diǎn)擊“添加”輸入工程名稱、序號、 ID，創(chuàng)建項成功，依法測試“修改”“刪除”也成功。按照此方法對程序中所有模塊進(jìn)行測試成功。 圖 6－ 1 系統(tǒng)主界面 37 在三個客戶 端，同時 進(jìn)行數(shù)據(jù)庫的錄入輸出 操作 ，程序工作正常，數(shù)據(jù)能同步 更新，未出現(xiàn)當(dāng)機(jī)。多用戶測試成功。 三 ． 報表輸出 報表打印正常 ，見附件中的樣表。 四 、 性能分析 經(jīng)過一段時間，程序運(yùn)行正常，界面開啟速度快，服務(wù)器工作穩(wěn)定可靠滿足工作的的需要，提高了工作效率，規(guī)范了文件格式 ，達(dá)到設(shè)計要求，但在一些數(shù)據(jù)輸入個格式防誤方面措施不夠，一但非法的數(shù)據(jù)輸入程序，會造成統(tǒng)計查詢無法完成，另幫助文檔較少，有待改進(jìn)。 第七章 結(jié)束語 經(jīng)過 二 個多月的設(shè)計和開發(fā)， 招標(biāo)信息管理系統(tǒng)基本開發(fā)完畢。其功能基本符合 實(shí)際工作 需求，能夠完成 招標(biāo)信息的存儲和 查詢以及各類相關(guān)報表的打印。并提供部分系統(tǒng)維護(hù)功能 ,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。但是由于畢業(yè)設(shè) 計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。這些都有待進(jìn)一步改善。 38 致 謝 在本次畢業(yè)設(shè)計中，我從指導(dǎo) 老師身上學(xué)到了很多東西。 陸 老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 另外，在系統(tǒng)開發(fā)過程中 我公司自動化部的陸 工程師 也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時開發(fā)完成 ，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。 39 主要參考文獻(xiàn) 1. 史嘉權(quán) 等編著 .數(shù)據(jù)庫系統(tǒng)教程 .北京：清華大學(xué)出版社， 2021 2. Michael Abbey， Michael 編著 .王蘭成等譯 Oracle8 初學(xué)者指南 . 北京：機(jī)械工業(yè) 出版社， 2021 3. 楊宇 編著 .新概念 Delphi 教程 .北京： 北京科海集團(tuán)公司 ，2021 4. 陳豫龍，何旭洪 等編著 .Delphi6 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例導(dǎo)航 .北京：清華大學(xué)出版社， 2021 40 附 件 附件 1《招標(biāo)信息管理系統(tǒng)源程序》 附件 2系統(tǒng)輸出報表樣表