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

　　

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