【導(dǎo)讀】進(jìn)行實時偵測，為了能更好地利用現(xiàn)代信息技術(shù)的成果，提高公司的工作效率和水平，因此開發(fā)本軟件對熱網(wǎng)系統(tǒng)進(jìn)行全局性管理。本課題要求設(shè)計“熱電廠熱網(wǎng)管理系統(tǒng)”。1．完成本信息系統(tǒng)的設(shè)計、開發(fā)、編程和調(diào)試。2．撰寫畢業(yè)設(shè)計說明書。3．英文以及日文文獻(xiàn)的閱讀和翻譯。1．1項目開發(fā)背景-----------------------------------------------6. 1．3系統(tǒng)總體設(shè)計----------------------------------------------7. 1．4系統(tǒng)功能模塊圖--------------------------------------------7. 1．6系統(tǒng)運行環(huán)境----------------------------------------------11. 1．7系統(tǒng)性能評價----------------------------------------------12. 2．4關(guān)系數(shù)據(jù)庫-------------------------------------------------21. 3．1需求分析--------------------------------------------------21. 4．1心得體會--------------------------------------------------41. Delphi是Borland公司推出的Windows環(huán)境下的軟件開發(fā)工具。件模式化，并且每個控件都由若干屬性來控制其外觀、工作方法。很多和WindowsGUI有直接關(guān)系。用操作系統(tǒng)所提供的特性。是一個很好的選擇。供信息和行政管理信息的收集、存儲、處理、提取和數(shù)據(jù)交換的能力?；髽I(yè)必不可少的管理工具與輔助手段。制作，技術(shù)成熟，方便維護(hù)。它全方位的滿足了企業(yè)管理各方面的需求，而且操。作簡便，界面友好。

　　

【正文】 間日累積查詢。 其主要工作是對各用戶用汽情況進(jìn)行即時的監(jiān)控和統(tǒng)計，并對統(tǒng)計進(jìn)行時間段內(nèi)的查詢，以分析各用戶的熱網(wǎng)使用率。 （ 6）歷史數(shù)據(jù)子系統(tǒng) 該子系統(tǒng)完成對用戶用汽的各歷史數(shù)據(jù)進(jìn)行分析和查詢管理。其主要組成部分主要包括壓力歷史分析、流量歷史分析、溫度歷史分析等模塊。 其主要工作 是對一定時間段內(nèi)用戶用汽的壓力、流量、溫度的歷史數(shù)據(jù)明細(xì)進(jìn)行圖表曲線顯示，并對數(shù)據(jù)進(jìn)行輸出。 （ 7）實時數(shù)據(jù)子系統(tǒng) 該子系統(tǒng)完成對用戶用汽情況、設(shè)備情況進(jìn)行實時數(shù)據(jù)的傳輸顯示。其主要組成部分為實時數(shù)據(jù)查詢模塊。 其主要工作是對各用戶用汽情況和設(shè)備情況進(jìn)行實時的數(shù)據(jù)傳輸，并顯示供實時查詢。 （ 8）統(tǒng)計報表子系統(tǒng) 該子系統(tǒng)完成對用戶資料各方面的報表進(jìn)行顯示和輸出。其主要組成部分包括熱用戶流量結(jié)算明細(xì)表、供熱流量結(jié)算月報表、熱網(wǎng)供汽日報表、熱網(wǎng)供汽收費報表、系統(tǒng)報警月報表、設(shè)備檢修記錄月報表等模塊。 其主要工作是 對各用戶具體每一年、月、日的熱用戶流量結(jié)算明細(xì)表、供熱流量結(jié)算月報表、熱網(wǎng)供汽日報表、熱網(wǎng)供汽收費報表、系統(tǒng)報警月報表、設(shè)備檢修記錄月報表進(jìn)行統(tǒng)計和報表輸出。 （ 9）系統(tǒng)設(shè)置子系統(tǒng) 該子系統(tǒng)完成對普通用戶、超級用戶以及系統(tǒng)管理員的賬號密碼進(jìn)行管理。其主要組成部分為添加用戶、刪除用戶、修改密碼等模塊。 其主要是對各用戶賬號密碼進(jìn)行權(quán)限管理和新用戶的添加。 3． 2． 2 系統(tǒng)數(shù)據(jù)字典 文件條目 a． 設(shè)備檢修表 文件名稱：設(shè)備檢修信息 簡述：記錄和保存設(shè)備檢修的基本信息 記錄組成：添加記錄，修改記錄，查詢記錄 組織方式：記錄定長，按記錄建立次序順序排列 江南大學(xué)畢業(yè)論文 熱電廠熱網(wǎng)管理系統(tǒng) 23 b． 故障報警表 文件名稱：故障報警 簡述：記錄和保存故障發(fā)生的基本信息 記錄組成：添加記錄，修改記錄，查詢記錄 組織方式：記錄定長，按記錄建立次序順序排列 c． 歷史數(shù)據(jù)表 文件名稱：歷史數(shù)據(jù) 簡述：記錄和保存歷史數(shù)據(jù)信息 記錄組成：歷史數(shù)據(jù)查詢 組織方式：記錄定長，按記錄形成統(tǒng)計圖 3． 3 詳細(xì)設(shè)計 設(shè)計數(shù)據(jù)庫 添加 ADO 數(shù)據(jù)源連接 在這次畢業(yè)設(shè)計中，我使用 ADO 作為對數(shù)據(jù)庫進(jìn)行訪問的核心技術(shù) .ActiveX Data Objects（ ADO）是 Microsoft 公司應(yīng)用 Universal Data Access(通用數(shù)據(jù)存取 )的一種方式。 Universal Data Access 允許用戶為相關(guān)和非相關(guān)數(shù)據(jù)使用同一高速界面，同時還可以提供一個使用簡便、語言獨立的界面。 ADO 為用戶對數(shù)據(jù)庫進(jìn)行訪問提供了一個良好途徑。它不僅為用戶的數(shù)據(jù)庫提供了一個面向?qū)ο蟮囊朁c，還可獨立于任何單一的數(shù)據(jù)庫開發(fā)商之外，這將允許用戶開發(fā)出可以在不同數(shù)據(jù)庫系統(tǒng)中使用的應(yīng)用程序。下面我將對 ADO 的核心內(nèi)容作一個簡單的介紹。 ActiveX Data Objects 對象 在較舊 的 DAO 和 RDO 對象模型中的所使用的對象， ADO 仍然在使用，但去掉了在舊對象模型中使用時所要求的嚴(yán)格層次限制，如下圖 對象 描述 Command 運行 SQL 存儲過程 Connection 用于管理連接數(shù)據(jù)庫或其他 OLE DB 數(shù)據(jù)提供者所需的信息 Error 包含特定錯誤的有關(guān)信息 Errors 包含一個 Error 對象集合 Field 包含數(shù)據(jù)庫中特定字段的信息 Fields 包含一個 Field 對象集合 Parameter 保存從一條存儲過程或參數(shù)化查詢上經(jīng)過的或返回的信息 Parameters 包含一個 Parameter 對象集合 Property 包含由 OLE DB 數(shù)據(jù)提供者所定義的動態(tài)屬性 Properties 包含一個 Property 對象集合 Record 說明 Recordset 對象、文件或電子郵件信息中的一個數(shù)據(jù)行 Recordset 用于管理查詢操作所產(chǎn)生的行組 Stream 說明二進(jìn)制數(shù)據(jù)流或文本流 江南大學(xué)畢業(yè)論文 熱電廠熱網(wǎng)管理系統(tǒng) 24 在 ADO 對象模型，主要有三個用于數(shù)據(jù)庫訪問的對象： Connection 對象提供了一個通向數(shù)據(jù)源的途徑， Command 對象包含了執(zhí)行 SQL 語句或存儲過程所需要的信息， Recordset 對象包含了查詢的結(jié)果。 Record 和 Stream 對象主要被用來支持訪問非數(shù)據(jù)庫資源。 Record 對象既代表紀(jì)錄集中的一個數(shù)據(jù)行，也代表一個文件或一條電子郵件信息中的數(shù)據(jù)行；Stream 對象為控制文件或電子郵件信息中的數(shù)據(jù)提供了便利條件。 Connection 對象用于保持與數(shù)據(jù)源的連接，可以通過使用 Command 對象Recordset 對象間接建立，也可以建立一個 Connection 對象的實例，并在多個Command 和 Recordset 對象間共享。 利用 Connection 對象與數(shù)據(jù)庫建立連接實例，步驟如下： 在 ODBC 數(shù)據(jù)管理器中創(chuàng)建新數(shù)據(jù)源，選擇由 SQL Server 作為數(shù)據(jù)源的驅(qū)動程序。在配置數(shù)據(jù)源向?qū)У膸椭?，輸入保存此連接的文件數(shù)據(jù)源 的名稱（課程設(shè)計中使用 ），指定其連接到本地 SQL Server 服務(wù)器，更改默認(rèn)的數(shù)據(jù)庫為用戶數(shù)據(jù)庫（課程設(shè)計中用戶數(shù)據(jù)庫命名為 USER）。 這樣，就建立了文件數(shù)據(jù)源使之與 SQL Server 的數(shù)據(jù)庫建立了連接。 Parameters Parameter Properties Property Command Errors Error Properties Property Connection Fields Field Properties Property Record Fields Field Properties Propertiy Recordset Properties Property Stream 江南大學(xué)畢業(yè)論文 熱電廠熱網(wǎng)管理系統(tǒng) 25 系統(tǒng)設(shè)計 我完成的 子系統(tǒng)包括：設(shè)備檢修、故障報警、歷史數(shù)據(jù)這三個模塊，下面我對這三個子系統(tǒng)的具體實現(xiàn)做詳細(xì)的介紹。 設(shè)備檢修 主窗體如下圖： 江南大學(xué)畢業(yè)論文 熱電廠熱網(wǎng)管理系統(tǒng) 26 由于考慮程序的簡潔和美觀，因此各子模塊的 Panel 都在同一窗口內(nèi) ,Visible 設(shè)為false,當(dāng)調(diào)用不同子模塊時，將其模塊的 Panel 各子模塊調(diào)用代碼： procedure (Sender: TObject)。 begin :=true。 :=true。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 end。 //調(diào)用添加記錄子模塊 procedure (Sender: TObject)。 begin :=true。 :=true。 :=true。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 end。 //調(diào)用修改記錄子模塊 procedure (Sender: TObject)。 begin :=true。 :=true。 :=true。 :=true。 :=false。 :=false。 :=false。 江南大學(xué)畢業(yè)論文 熱電廠熱網(wǎng)管理系統(tǒng) 27 :=false。 :=false。 :=false。 :=false。 end。 //調(diào)用查詢記錄子模塊 添加記錄界面 procedure (Sender: TObject)。 begin :=true。 :=false。 :=false。 :=true。 if ” then if ” then if ” then if ” then if ” then if ” then if ” then if ” then begin ([, ,])。 end 江南大學(xué)畢業(yè)論文 熱電廠熱網(wǎng)管理系統(tǒng) 28 else begin messagebeep(1)。 showmessage(‘不能為空 !請?zhí)钊胪暾Y料 !’)。 :=true。 end else begin messagebeep(1)。 showmessage(‘不能為空 !請?zhí)钊胪暾Y料 !’)。 :=true。 end else begin messagebeep(1)。 showmessage(‘不能為空 !請?zhí)?入完整資料 !’)。 :=true。 end else begin messagebeep(1)。 showmessage(‘不能為空 !請?zhí)钊胪暾Y料 !’)。 :=true。 end else begin messagebeep(1)。 showmessage(‘不能為空 !請?zhí)钊胪暾Y料 !’)。 :=true。 end else begin messagebeep(1)。 showmessage(‘不能為空 !請?zhí)钊胪暾Y 料 !’)。 :=true。 end else begin messagebeep(1)。 showmessage(‘不能為空 !請?zhí)钊胪暾Y料 !’)。 :=true。 end else begin 江南大學(xué)畢業(yè)論文 熱電廠熱網(wǎng)管理系統(tǒng) 29 messagebeep(1)。 showmessage(‘不能為空 !請?zhí)钊胪暾Y料 !’)。 :=true。 end end。 //添加記錄按鈕 procedure (Sender: TObject)。 begin :=false。 :=true。 :=true。 :=”。 :=”。 :=”。 :=”。 :=”。 :=”。 :=”。 :=”。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 end。 //清除記錄按鈕 修改記錄界面： 江南大學(xué)畢業(yè)論文 熱電廠熱網(wǎng)管理系統(tǒng) 30 procedure (Sender: TObject)。 begin :=true。 :=false。 :=39。用戶名稱 =39。39。39。++39。39。39。39。 :=true。 :=[39。用戶名稱 39。]。 :=[39。設(shè)備編號 39。]。 :=[39。設(shè)備名稱 39。]。 :=[39。設(shè)備位置 39。]。 :=[39。停役時間 39。]。 :=[39。復(fù)役時間 39。]。 :=[39。檢修責(zé)任人 39。]。 :=[39。檢修內(nèi)容 39。]。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 end。 //開始搜索按鈕 procedure (Sender: TObject)。 begin {with form1 do begin 江南大學(xué)畢業(yè)論文 熱電廠熱網(wǎng)管理系統(tǒng) 31 。 end。} :=true。 if not then 。 :=[