1、 計 量 管 理 信 息 系 統(tǒng) 說明: 1.需本辯論稿配套的程序及論文,可以訪問 下載 2.有什么不明白的地方,可以聯(lián)系作者本人計 量 管 理 信 息 系 統(tǒng)摘要: 計量管理信息系統(tǒng)是以某車輛廠質(zhì)量保證處的計量管理的需求出發(fā)，使用Delphi7.0開發(fā)的MIS系統(tǒng)。利用該系統(tǒng)，管理人員可以根據(jù)需求方便地對計量信息進行管理。本文主要對計量管理信息系統(tǒng)的開發(fā)的背景、系統(tǒng)需求、系統(tǒng)設(shè)計、數(shù)據(jù)庫設(shè)計、系統(tǒng)實現(xiàn)、運行環(huán)境等進行了介紹，較全面的闡述了該系統(tǒng)開發(fā)的全過程。關(guān)鍵詞:計量管理 系統(tǒng)開發(fā) 管理信息系統(tǒng) 代碼 目 錄第一章 緒論 第二章 系統(tǒng)規(guī)劃 第三章 系統(tǒng)分析第四章 系統(tǒng)設(shè)計第五章 系統(tǒng)開發(fā)工

2、具的選取及介紹 第六章 系統(tǒng)實現(xiàn) 第七章 開發(fā)總結(jié) 附錄：參考文獻 目 錄第一章 緒論 第二章 系統(tǒng)規(guī)劃 第三章 系統(tǒng)分析第四章 系統(tǒng)設(shè)計第五章 系統(tǒng)開發(fā)工具的選取及介紹 第六章 系統(tǒng)實現(xiàn) 第七章 開發(fā)總結(jié) 附錄：參考文獻 3.1系統(tǒng)業(yè)務(wù)流程圖的提出 3.2系統(tǒng)邏輯模型的提出 3.3系統(tǒng)實現(xiàn)的根本目標(biāo) 3.4對系統(tǒng)功能的根本要求目 錄第一章 緒論 第二章 系統(tǒng)規(guī)劃 第三章 系統(tǒng)分析第四章 系統(tǒng)設(shè)計第五章 系統(tǒng)開發(fā)工具的選取及介紹 第六章 系統(tǒng)實現(xiàn) 第七章 開發(fā)總結(jié) 附錄：參考文獻 4.1系統(tǒng)的總體結(jié)構(gòu)設(shè)計4.2系統(tǒng)總體的物理結(jié)構(gòu)4.3系統(tǒng)的詳細(xì)設(shè)計4.4數(shù)據(jù)庫設(shè)計 第一章 緒論 隨著信息技術(shù)的

3、不斷開展，計算機科學(xué)日漸成熟，它已進入社會的各個領(lǐng)域，并發(fā)揮著重要的作用。 大家熟知的互聯(lián)網(wǎng)Internet已經(jīng)改變了和正在不斷改變?nèi)藗兊墓ぷ鳎罘绞胶屠砟睢ＴS許多多的企業(yè)也已經(jīng)建立起了自己企業(yè)內(nèi)部的局域網(wǎng)，用來作為自己與外界溝通的橋梁。是否建有開放的、科學(xué)的，全面的管理信息系統(tǒng)已經(jīng)成為衡量一個企業(yè)是否有競爭力的重要標(biāo)志。 該廠已于2003年建立了工廠的局域網(wǎng)，而工廠較為重要的部門對外的數(shù)據(jù)文檔等均已進入了計算機管理，工廠內(nèi)部文件精神及重大的通知都已實現(xiàn)了無紙化辦公。而質(zhì)量保證處的計量人員一直以來使用傳統(tǒng)人工的方式管理計量工作。這種管理方式存在著許多的缺點，如：工作效率低且容易出錯，查找工作

4、煩瑣；另外隨著時間的增長，將產(chǎn)生大量的文件資料。這給計量工作的管理和維護都帶來了不少的困難。計量管理系統(tǒng)就是針對這一問題而研發(fā)的，它能為管理者提供充足的信息和快捷的查詢手段。 本文選用了結(jié)構(gòu)化方法和delphi7.0開發(fā)軟件，使用計算機來對計量工作進行管理，具有了用手工管理無法比較的優(yōu)點。如：查找文件方便，可靠性高，存儲量大，維護更新方便，保密性好，壽命長，本錢低等。這些優(yōu)點能大大提高計量管理的工作效率。也是計量管理工作走向科學(xué)化，正規(guī)化的重要條件。 返回第二章 系 統(tǒng) 規(guī) 劃 系統(tǒng)規(guī)劃是管理信息系統(tǒng)生命周期的第一個階段，也是企業(yè)信息化建設(shè)的首要階段，企業(yè)加強管理信息系統(tǒng)加建設(shè)是一項投資大，歷

5、時長，技術(shù)復(fù)雜，涉及面廣的系統(tǒng)工程，系統(tǒng)的建設(shè)應(yīng)該充分考慮企業(yè)的整體目標(biāo)和管理決策的需要，對企業(yè)的內(nèi)外部的環(huán)境要進行全面的調(diào)查研究，從而確定企業(yè)的內(nèi)外部的約束條件，來確定企業(yè)信息系統(tǒng)的總目標(biāo)，提出信息系統(tǒng)建設(shè)的總體結(jié)構(gòu)方案，在實施解決問題的方案中，選用經(jīng)濟，簡單的可實施方案。 在系統(tǒng)開發(fā)之前，對質(zhì)量保證處的計量管理情況進行較全面細(xì)致的調(diào)查。主要方式是系統(tǒng)分析人員，設(shè)計人員與質(zhì)量保證處的管理人員進行交流，根據(jù)自己在計量崗位的工作經(jīng)驗和結(jié)合實際需求，經(jīng)過初步調(diào)查了解到：質(zhì)量保證處計量管理的主要方式是基于文本，表格等的手工處理，檢定記錄等數(shù)據(jù)的處理以計算器為工具來進行的。由于記錄的數(shù)量大，數(shù)據(jù)處理復(fù)

6、雜，工作量大，容易出錯；并且由于文字，數(shù)據(jù)記錄必須清晰無誤，因此在記錄過程中經(jīng)常出現(xiàn)字跡不清，查詢不便的情況。同時產(chǎn)生大量的檢定記錄紙張，造成存放保管不便。質(zhì)量保證處目前擁有專門負(fù)責(zé)計量標(biāo)準(zhǔn)器管理的計算機一臺，處長辦公室兩臺，這幾臺計算機都已進入到工廠的局域網(wǎng)。從質(zhì)量保證處的行政管理和職能分工角度來看。 質(zhì)量保證處現(xiàn)行計量管理工作存在的主要問題是：一質(zhì)量保證處的高層管理人員對全廠的計量器具的使用情況，配備情況不能全面了解。 二各專業(yè)檢定人員各自為政，檢定數(shù)據(jù)記錄只被檢定人員單獨使用，各專業(yè)檢定人員間，彼此缺乏了解，容易造成具體工作對個別人員的過分依賴。影響業(yè)務(wù)的進展。三各專業(yè)之間信息交流少，信

7、息渠道不暢通，工作不易協(xié)調(diào)。四數(shù)據(jù)記錄處理手工操作，工作量大，出錯率高；尤其是在檢定樣板等專用計量器具時，用手工計算樣板數(shù)據(jù)時，計算復(fù)雜，工作量大，經(jīng)常造成工作中的矛盾。五處領(lǐng)導(dǎo)對整個工廠的計量器具的配備，使用情況不能及時準(zhǔn)確了解，計量器具不能及時提供保證，常影響車間生產(chǎn)的正常運行。六由于工廠新產(chǎn)品的不斷試制生產(chǎn)計量器具的及時配置尤為重要，因此建立基于計量機技術(shù)的管理信息系統(tǒng)的建設(shè)已是勢在必行。 計量管理信息系統(tǒng)的目標(biāo)為： 按照管理信息系統(tǒng)的原理及方法，采用成熟的信息技術(shù)與手段，對質(zhì)量保證處計量管理工作的全過程加強計量活動中的各種信息資源的管理與應(yīng)用，提高企業(yè)管理工作的現(xiàn)代化水平，優(yōu)化財物及信

8、息資源的配置，為企業(yè)生產(chǎn)經(jīng)營活動提供全面計量保證的根底上，為經(jīng)營管理決策提供支持，為企業(yè)工廠開展信息管理方面提供給有的奉獻。 計量管理信息系統(tǒng)的范圍和邊界，該系統(tǒng)主要是為質(zhì)保處的內(nèi)部計量管理活動提供信息效勞，它覆蓋質(zhì)保處內(nèi)部的各項計量管理工作，涉及質(zhì)保處的所有計量業(yè)務(wù)職能 系統(tǒng)能夠?qū)|(zhì)保處的計量器具周期檢定方案，計量器具檢定，計量器具的采購管理，計量器具臺帳管理，計量器具送檢通知單的管理等方面的信息提供存儲，更新，查詢，統(tǒng)計等功能。系統(tǒng)的數(shù)據(jù)來源由各專業(yè)檢定人員通過鍵盤輸入，該系統(tǒng)范圍不涉及計量標(biāo)準(zhǔn)起的管理，同時該系統(tǒng)的信息可以輸送到工廠局域網(wǎng)。返回第 三 章 系 統(tǒng) 分 析31系統(tǒng)業(yè)務(wù)流程圖

9、的提出： 根據(jù)自己從事計量工作數(shù)年來積累的經(jīng)驗，以及與處長的屢次交流中了解了計量管理活動及他們對信息系統(tǒng)的需求，現(xiàn)用系統(tǒng)流程圖中局部圖形工具來描述管理業(yè)務(wù)活動，進行標(biāo)準(zhǔn)地說明，業(yè)務(wù)流程圖的符號說明如以下圖所示： 處 理 物成單據(jù) 數(shù)據(jù)存儲 物成信息 外部實體 返回32系統(tǒng)邏輯模型的提出系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型，本系統(tǒng)的邏輯模型主要是以系統(tǒng)的數(shù)據(jù)流程圖和數(shù)據(jù)字典為主要的描述工具，即在對計量管理方式和業(yè)務(wù)流程進行認(rèn)真分析和研究的根底上。超脫出計量管理現(xiàn)有的組織機構(gòu)和業(yè)務(wù)分工所造成的信息障礙，完全從業(yè)務(wù)管理功能和管理對象出發(fā)，按照信息系統(tǒng)應(yīng)有的數(shù)據(jù)流和數(shù)據(jù)結(jié)構(gòu)來勾畫系統(tǒng)的概貌，這樣的系統(tǒng)在

10、組織機構(gòu)改變的時候具有相應(yīng)的靈活性。 數(shù)據(jù)流程圖簡稱DFD 數(shù)據(jù)流程圖是組織中信息運動的抽象。從邏輯上精確地描述系統(tǒng)應(yīng)具有的數(shù)據(jù)加工功能、數(shù)據(jù)輸入、數(shù)據(jù)輸出、數(shù)據(jù)存儲及數(shù)據(jù)來源和去向外部實體等工程，數(shù)據(jù)流程圖的根本符號如下所示： 外部項 加工 數(shù)據(jù)存儲 數(shù)據(jù)流 返回3.3系統(tǒng)實現(xiàn)的根本目標(biāo)：計量管理系統(tǒng)是一個相對獨立，功能完全的信息系統(tǒng)。從傳統(tǒng)的計量管理的特點來看，本系統(tǒng)應(yīng)該實現(xiàn)以下幾個方面的根本目標(biāo)：1操作員設(shè)置：1超級用戶：系統(tǒng)初始化一個Administrator用戶，超級用戶可以對系統(tǒng)進行任何操作，可以管理其他操作員，也可以刪除新購器具記錄因為有可能輸錯，經(jīng)檢定后的器具說明廠內(nèi)真實存在，

11、不允許刪除，至于其他某些屬性錯誤，那么相關(guān)的操作人員可以修改，這里只有Administrator用戶可以增加超級用戶，其他超級用戶那么不能加超級用戶，并且只有Administrato。2總工具室操作員：只限于總工具室所能操作的工程。3檢定人員：只限于與檢定工作有關(guān)的操作。檢定員能對計量管理信息進行輸入，包括檢定方案，每月周檢計量器具名稱，檢定記錄輸入，計量器具詳細(xì)情況登記，報廢理由等計量器具的信息。4車間工具員：只限于車間工具員能操作的范圍。5一般操作員：只用于查詢的操作。2用戶根據(jù)自己的信息進行查詢，設(shè)置合理的查詢方式如按月份查詢，按車間查詢，按計量器具名稱查詢，按條件查詢用戶方便。3計量器

12、具檢定后的檢測數(shù)據(jù)，合格證等能方便，快捷，準(zhǔn)確的打印。4管理員權(quán)限內(nèi)，能實現(xiàn)用戶管理和刪除用戶，新增用戶，任何用戶都能對自己的密碼進行修改。 返回34對系統(tǒng)功能的根本要求： 1、能提供完善而方便的數(shù)據(jù)輸入手段，以全面，正確，及時地錄入各種原始數(shù)據(jù)，并將它們轉(zhuǎn)化為系統(tǒng)所需的形式。在錄入過程中用戶權(quán)限以及數(shù)據(jù)的平安性進行必須的審核，提示操作者修改，拒絕非法入侵者或非法數(shù)據(jù)進入系統(tǒng)。 2、具備較為完善的內(nèi)部控制機制，保證數(shù)據(jù)的平安可靠，防止數(shù)據(jù)喪失。 3、信息的輸出形式和檢測數(shù)據(jù)，合格證，報廢單的打印，以及計量器具的情況查詢等盡量滿足用戶的要求和計量器具檢定規(guī)程的要求和規(guī)定。 4、系統(tǒng)應(yīng)當(dāng)允許用戶通

13、過初始設(shè)置和修改，適應(yīng)用戶的特定環(huán)境和環(huán)境的變化。 返回第四章 系 統(tǒng) 設(shè) 計系統(tǒng)設(shè)計的主要目的是將以上系統(tǒng)分析所提出的系統(tǒng)邏輯模型轉(zhuǎn)化為可以實施的基于計算機與通信系統(tǒng)的物理方案。它包括如下的主要內(nèi)容：4.1系統(tǒng)總體結(jié)構(gòu)設(shè)計根據(jù)系統(tǒng)分析的結(jié)果，按照結(jié)構(gòu)化的系統(tǒng)設(shè)計方法，對系統(tǒng)的數(shù)據(jù)流圖采用變換中心法和事務(wù)中心法，用圖形方法表達(dá)一個系統(tǒng)的輸出功能，自頂向下逐步分解得到以下圖的模塊的層次結(jié)構(gòu)圖HIPO圖返回42系統(tǒng)總體物理結(jié)構(gòu)：網(wǎng)絡(luò)采用以網(wǎng)絡(luò)集線器(HUB)為中心，以雙絞線為傳輸介質(zhì)的星型結(jié)構(gòu)，在每個業(yè)務(wù)管理功能發(fā)生地點以及處長辦公室分別配置一臺微型計算機作為系統(tǒng)結(jié)點工作站。系統(tǒng)功能的實現(xiàn)子系統(tǒng)間

14、的數(shù)據(jù)共享與交換通過網(wǎng)絡(luò)效勞器完成。 系統(tǒng)具體物理配置如下：網(wǎng)絡(luò)集線器(HUB)采用 8 PORT A-TONE AT-5008，傳輸介質(zhì)采用ATT五類雙絞線，網(wǎng)絡(luò)效勞器作為系統(tǒng)功能實現(xiàn)和數(shù)據(jù)共享的中心，應(yīng)具有較高的性能和可靠性，選擇高品牌專用效勞器，選用的是一臺 浪潮英信NP50 的效勞器，網(wǎng)絡(luò)站選用486 以上一般兼容機即可，在檢定員辦公室分別配置打印機，型號為 Epson LQ-1600K。 返回4.3系統(tǒng)詳細(xì)設(shè)計數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫設(shè)計在MIS系統(tǒng)開發(fā)中是至關(guān)重要的一個環(huán)節(jié)，數(shù)據(jù)庫設(shè)計的好壞在很大程度上影響著編碼的效率以及將來擴展和維護。數(shù)據(jù)庫設(shè)計的不合理，甚至可能會導(dǎo)致由于無法實現(xiàn)用戶

15、的需求而影響整個MIS系統(tǒng)開發(fā)。因此在進行具體的編碼之前，應(yīng)對整個數(shù)據(jù)庫的設(shè)計和思路有一個總體的把握。 在系統(tǒng)的數(shù)據(jù)庫設(shè)計中，首先要對系統(tǒng)分析得到的數(shù)據(jù)字典中的數(shù)據(jù)存儲進行分析。下面是E-R圖的符號說明： 實 體屬 性實體間聯(lián)系 以下以“計量器具檢定管理為例來說明數(shù)據(jù)庫根本結(jié)構(gòu)的設(shè)計。 計量器具檢定管理中所涉及到的主要實體及其屬性如下： 計量器具廠內(nèi)編號、器具名稱、制造廠家、測量范圍、分度值 檢定方案器具名稱、數(shù)量、檢定周期、使用單位 檢定記錄廠內(nèi)編號、器具名稱、檢定數(shù)據(jù) 報廢通知單廠那編號、器具名稱、測量范圍、分度值、報廢理由 送檢通知單廠內(nèi)編號、器具名稱、分度值、使用車間、送檢日期 新購計

16、量器具出廠編號、器具名稱、測量范圍、分度值 合格證廠內(nèi)編號、器具名稱、合格等級、使用車間、檢定日期、有效期檢定員檢定數(shù)量新購計量器具計量器具屬于使用車間組成結(jié)果合格證報廢通知單數(shù)量1nmmpnmnp 按照用E-R圖方法設(shè)計關(guān)系數(shù)據(jù)庫的方法，除上述每一個實體分別構(gòu)成一個關(guān)系外，彼此之間的聯(lián)系也轉(zhuǎn)化為關(guān)系，具體邏輯結(jié)構(gòu)如下： 計量器具廠內(nèi)編號、器具名稱、測量范圍、分度值、制造廠家、出廠編號、型號或規(guī)格、到廠日期、有效期、使用車間、報廢日期、備注 檢定方案器具名稱、數(shù)量、檢定周期、使用車間、測量范圍、分度值、檢定周期、檢定日期、方案日期、年度 檢定記錄廠內(nèi)編號、器具名稱、檢定數(shù)據(jù)、檢定日期、使用車間

17、、有效期、檢定員、復(fù)核員、所用儀器名稱及編號、檢測室溫、備注 報廢通知單廠那編號、器具名稱、測量范圍、分度值、報廢日期、報廢理由、檢定員、復(fù)核員 送檢通知單廠內(nèi)編號、器具名稱、分度值、使用車間、送檢日期、出廠編號、測量范圍、檢定周期、年度、月份、是否檢測 新購計量器具出廠編號、器具名稱、測量范圍、分度值、廠內(nèi)編號、制造廠家、到廠日期、型號或規(guī)格、使用車間、備注 合格證廠內(nèi)編號、器具名稱、合格等級、使用車間、檢定日期、有效期、檢定員、復(fù)核員 操作員表用戶名、密碼、權(quán)限、權(quán)限代碼、代號、姓名、職稱 設(shè)計的根本原那么是盡可能的減少數(shù)據(jù)的冗余度，這樣做的好處是能節(jié)省存儲空間，并且容易維護數(shù)據(jù)的完整和一

18、致性。 返回4.4數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫名：jlqjglxt其中的表，設(shè)計如下： 一、操作員表 operator字段名數(shù)據(jù)類型長度說明User（Key）Char20用戶名（關(guān)鍵字）passwordChar20密碼powerChar16權(quán)限powercodeInteger1權(quán)限代碼codeChar10代號nameChar16姓名dutyChar10職稱二、計量器具記錄表 jlqjb字段名數(shù)據(jù)類型長度說明Cnbh（Key）Char10廠內(nèi)編號（以“編號數(shù)量”表示）qjmcChar30器具名稱zzcjChar50制造廠家ccbhChar10出廠編號xhggChar16型號或規(guī)格clfwChar12測量范圍

19、fdzChar10分度值dcrqDate/Time到廠日期yxqInteger2有效期（用月份數(shù)表示）sycjChar30使用車間bfrqDate/Time報廢日期bzChar200備注三、器具類別記錄 qjb字段名數(shù)據(jù)類型長度說明ID（Key）自動編號記錄號qjmcChar30器具名稱xhggChar16型號或規(guī)格bhChar5編號slInteger3數(shù)量四、不合格（報廢）器具通知單記錄 bfb字段名數(shù)據(jù)類型長度說明cnbh（Key）Char10廠內(nèi)編號qjmcChar30器具名稱sycjChar30使用車間zzcjChar50制造廠家clfwChar12測量范圍fdzChar10分度值bf

20、rqDate/Time報廢日期bflyChar200報廢理由jdyChar16檢定員fhyChar16復(fù)核員五、新購器具記錄 xgqjb字段名數(shù)據(jù)類型長度說明cnbh（Key）Char10廠內(nèi)編號qjmcChar30器具名稱zzcjChar50制造廠家ccbhChar10出廠編號xhggChar16型號或規(guī)格dcrqDate/Time到廠日期sycjChar30使用車間clfwChar12測量范圍fdzChar10分度值bzChar200備注六、合格證記錄 hgzb字段名數(shù)據(jù)類型長度說明ID（Key）自動編號記錄號cnbhChar10廠內(nèi)編號qjmcChar30器具名稱hgdjChar10合格

21、等級sycjChar30使用車間jdrqDate/Time檢定日期yxqInteger2有效期jdyChar16檢定員fhyChar16復(fù)核員（可以更改“合格等級”）七、送檢通知單記錄 sjtzd字段名數(shù)據(jù)類型長度說明ID（Key）自動編號記錄號cnbhChar10廠內(nèi)編號qjmcChar30器具名稱zzcjChar50制造廠家ccbhChar10出廠編號clfwChar12測量范圍fdzChar10分度值sycjChar30使用車間jdzqinteger檢定周期sjrqDate/Time送檢日期yfChar2月份ndChar4年度sfjcInteger1是否檢測八、檢定記錄 jdjlb字段名

22、數(shù)據(jù)類型長度說明ID（Key）自動編號記錄號cnbhChar10廠內(nèi)編號qjmcChar30器具名稱sycjChar30使用車間yqmcbhChar40所用儀器名稱和編號jcswinteger檢測室溫jdrqDate/Time檢定日期jdsjChar200檢定數(shù)據(jù)yxqInteger有效期jdyChar16檢定員fhyChar16復(fù)核員bzChar200備注九、檢定（周檢年度）計劃 jdjhb字段名數(shù)據(jù)類型長度說明ID（Key）自動編號記錄號qjmcChar30器具名稱slInteger2數(shù)量clfwChar12測量范圍fdzChar10分度值sycjChar30使用車間jdzqInteger

23、2檢定周期（以月份數(shù)表示）jdrqChar20檢定日期（以“2004年1月”表示）jhrqDate/Time計劃日期ndChar4年度十、采購報告記錄 cgbgb字段名數(shù)據(jù)類型長度說明ID（Key）自動編號記錄號qjmcChar30器具名稱clfwChar12測量范圍fdzChar10分度值syyqChar50使用要求sycjChar30使用車間slInteger2數(shù)量bgrqDate/Time報告日期sftyInteger1是否同意pfrqDate/Time批復(fù)日期十一、使用車間表 sycjb字段名數(shù)據(jù)類型長度說明sycjid（Key）Char10使用車間IDsycjmcChar30使用車間

24、名稱十二、制造廠家表 zzcjb字段名數(shù)據(jù)類型長度說明zzcjid（Key）Char10制造廠家IDzzcjmcChar50制造廠家名稱返回第五章 系統(tǒng)開發(fā)工具的選取及介紹 Delphi是一個真正面向?qū)ο蟮木幊汰h(huán)境，不僅如此，Delphi的這種面向?qū)ο蟮臋C制是單純的建立在Windows的消息機制上的Delphi代碼，而不是像VB、VFP之類的調(diào)用DLL、OCX，通過查看Delphi控件的源代碼，你可以知道整個機制是怎樣組織起來的，而且你可以完完全全地控制這些控件，因為它們只是用Delphi代碼編寫的，而不是存在在DLL中看不見的東西。 本系統(tǒng)選用Delphi7.0作為開發(fā)工具，這是基于以下幾點

25、考慮：1、面向?qū)ο蟮募夹g(shù)。開發(fā)工具支持面向?qū)ο蟮募夹g(shù)應(yīng)該是全面的，如多級繼承、多級封裝和多態(tài)等，而不就只是局部和有限的支持，Delphi7.0是真正面向?qū)ο蟮模母菊Z言是Object Pascal語言，Pascal語言數(shù)據(jù)類型豐富、語法風(fēng)格嚴(yán)謹(jǐn)；Object Pascal在Pascal語言的根底上擴充了面向?qū)ο蟮奶匦裕С址庋b、繼承、派生、多態(tài)等根本的面向?qū)ο蟮奶匦浴?2、語言性能具有穩(wěn)定性和可靠性。 3、具有強大的數(shù)據(jù)編程能力，能夠支持ODBC和數(shù)據(jù)庫專用接口。數(shù)據(jù)編程是Delphi的強項，Delphi除了使用BDE數(shù)據(jù)引擎外，還提供了ActiveX數(shù)據(jù)對象ADO的支持，為數(shù)據(jù)庫編程增加

26、了靈活性。 4、提供多種數(shù)據(jù)表現(xiàn)形式。Delphi7.0能夠有效的操作本地及其它網(wǎng)絡(luò)上的各種數(shù)據(jù)庫。 5、提供第四代語言可擴展的編程語言。其語言簡單而功能強大，開發(fā)人員無須關(guān)心復(fù)雜的底層工作。 返回第六章 系統(tǒng)的實現(xiàn)本章主要是將本系統(tǒng)的一些主要運行界面和具體的源代碼列出來，供在使用時作為參考，同時也可以為以后修改和完善時提供幫助。主要窗口和代碼： 1、工程文件的主要代碼： 2、主窗口： 3、用戶登陸窗口 4、采購方案的輸入窗口 5、新購器具技術(shù)報告輸入 6、檢定方案輸入窗口 7、每月周檢輸入窗口 8、檢定記錄輸入窗口返回1、工程文件的主要代碼：begin Application.Initial

27、ize; startfrm:=Tstartfrm.Create(Application); startfrm.Top:=() div 2; startfrm.Left:=() div 2; startfrm.Show; startfrm.Update; while do Application.ProcessMessages; Application.Title:=計量管理信息系統(tǒng); Application.CreateForm(Tmainfrm, mainfrm); Application.CreateForm(TDataModule1, DataModule1); Application.

28、Run;end.返回2、主窗口：涉及到的自定義函數(shù)，和主要程序的代碼：procedure Tmainfrm.FormCreate(Sender: TObject);/創(chuàng)立主窗體時的執(zhí)行代碼begin displaylog:=true; selfclose:=false; log:=false; yhdl.Enabled:=true; zxyh.Enabled:=false; canuse(false,mainfrm.logpowercode); /StatusBar1.Panels0.Text:=; StatusBar1.Panels2.Text:=FormatDateTime( yyyy 年

29、 mm 月 dd 日 hh:mm:ss dddd,now); StatusBar1.Panels1.Text:= +當(dāng)前無用戶登陸; WebBrowser1.Enabled:=false; WebBrowser1.Visible:=false;end;procedure Tmainfrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);關(guān)閉主窗體時執(zhí)行的代碼begin /用戶關(guān)閉系統(tǒng)或未關(guān)閉系統(tǒng)的情況下關(guān)閉windows時提示用戶 if selfclose then begin CanClose:=true; exit; end;

30、if MessageDlg(你確實要退出計量管理信息系統(tǒng)嗎?,mtInformation,mbYesNoCancel,0)=mryes then CanClose:=true else CanClose:=false;end;procedure Tmainfrm.canuse(login: bool; powercode: integer);/實現(xiàn)菜單的動態(tài)改變可操作性begin if login=false then /沒有用戶登陸的情況 begin xtcsh.Enabled:=false; jlqjcggl.Enabled:=false; jdjhbzgl.Enabled:=false;

31、 bxtzdgl.Enabled:=false; jdgl.Enabled:=false; jlqjtzgl.Enabled:=false; yhgl.Enabled:=false; end else begin case powercode of 1:begin /超級用戶 登陸的情況 xtcsh.Enabled:=(mainfrm.loguser=administrator); jlqjcggl.Enabled:=true; cgjh.Enabled:=true; shcgjh.Enabled:=true; xgjlqjsr.Enabled:=true; xgjlqjcx.Enabled:=true; jdjhbzgl.Enabled:=true; bxtzdgl.Enabled:=true; jdgl.Enabled:=true; jlqjtzgl.Enabled:=true; yhgl.Enabled:=true; zcxyh.Enabled:=true; scyh.Enabled:=true; end; 2:begin /總工具室操作員 登陸的情況 xtcsh.Enabled:=false; jlqjcggl.Enabled:=true;