計(jì)量管理系統(tǒng)論ppt課件(參考版)
2025-01-13 23:11本頁面
【正文】 end。 end。 :=false。 :=true。 :=false。 :=false。 5:begin //一般操作員 登陸的情況 :=false。 :=false。 :=true。 :=false。 :=false。 :=false。 :=true。 4:begin //車間工具員 登陸的情況 :=false。 :=false。 :=true。 :=true。 :=true。 3:begin //檢定人員 登陸的情況 :=false。 :=false。 :=true。 :=false。 :=false。 :=true。 :=false。 2:begin //總工具室操作員 登陸的情況 :=false。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。)。 end else begin case powercode of 1:begin //超級(jí)用戶 登陸的情況 :=(=39。 :=false。 :=false。 :=false。 powercode: integer)。 end。你確實(shí)要退出計(jì)量管理信息系統(tǒng)嗎 ?39。 end。關(guān)閉主窗體時(shí)執(zhí)行的代碼 begin //用戶關(guān)閉系統(tǒng)或未關(guān)閉系統(tǒng)的情況下關(guān)閉 windows時(shí)提示用戶 if selfclose then begin CanClose:=true。 procedure (Sender: TObject。 :=false。當(dāng)前無用戶登陸 39。 39。,now)。39。39。39。39。39。39。39。39。39。39。39。39。 [2].Text:=FormatDateTime(39。 canuse(false,)。 :=true。 selfclose:=false。 end. 返回 主窗口： 涉及到的自定義函數(shù) ， 和主要程序的代碼： procedure (Sender: TObject)。 (TDataModule1, DataModule1)。計(jì)量管理信息系統(tǒng) 39。 while do 。 。 :=() div 2。 主要窗口和代碼： 工程文件的主要代碼： 主窗口： 用戶登陸窗口 采購計(jì)劃的輸入窗口 新購器具技術(shù)報(bào)告輸入 檢定計(jì)劃輸入窗口 每月周檢輸入窗口 檢定記錄輸入窗口 返回 工程文件的主要代碼： begin 。其語言簡單而功能強(qiáng)大，開發(fā)人員無須關(guān)心復(fù)雜的底層工作。 它網(wǎng)絡(luò)上的各種數(shù)據(jù)庫。數(shù)據(jù)編程是 Delphi的強(qiáng)項(xiàng)， Delphi除了使用 BDE數(shù)據(jù)引擎外，還提供了 ActiveX數(shù)據(jù)對(duì)象 ADO的支持，為數(shù)據(jù)庫編程增加了靈活性。 語言性能具有穩(wěn)定性和可靠性。 本系統(tǒng)選用 ，這是基于以下幾點(diǎn)考慮： 面向?qū)ο蟮募夹g(shù)。 計(jì)量器具檢定管理中所涉及到的主要實(shí)體及其屬性如下： 計(jì)量器具 （ 廠內(nèi)編號(hào) 、 器具名稱 、 制造廠家 、 測(cè)量范圍 、 分度值 ） 檢定計(jì)劃 （ 器具名稱 、 數(shù)量 、 檢定周期 、 使用單位 ） 檢定記錄 （ 廠內(nèi)編號(hào) 、 器具名稱 、 檢定數(shù)據(jù) ） 報(bào)廢通知單 （ 廠那編號(hào) 、 器具名稱 、 測(cè)量范圍 、 分度值 、 報(bào)廢理由 ） 送檢通知單 （ 廠內(nèi)編號(hào) 、 器具名稱 、 分度值 、 使用車間 、 送檢日期 ） 新購計(jì)量器具 （ 出廠編號(hào) 、 器具名稱 、 測(cè)量范圍 、 分度值 ） 合格證 （ 廠內(nèi)編號(hào) 、 器具名稱 、 合格等級(jí) 、 使用車間 、 檢定日期 、 有效期 ） 檢定員 檢定 數(shù)量 新購計(jì)量器具 計(jì)量器具 屬于 使用車間 組成 結(jié)果 合格證 報(bào)廢通知單 數(shù)量 1 n m m p n m n p 按照用 ER圖方法設(shè)計(jì)關(guān)系數(shù)據(jù)庫的方法 ， 除上述每一個(gè)實(shí)體分別構(gòu)成一個(gè)關(guān)系外 ， 彼此之間的聯(lián)系也轉(zhuǎn)化為關(guān)系 ， 具體邏輯結(jié)構(gòu)如下： 計(jì)量器具 （ 廠內(nèi)編號(hào) 、 器具名稱 、 測(cè)量范圍 、 分度值 、 制造廠家 、 出廠編號(hào) 、 型號(hào)或規(guī)格 、 到廠日期 、 有效期 、 使用車間 、報(bào)廢日期 、 備注 ） 檢定計(jì)劃 （ 器具名稱 、 數(shù)量 、 檢定周期 、 使用車間 、 測(cè)量范圍 、 分度值 、 檢定周期 、 檢定日期 、 計(jì)劃日期 、 年度 ） 檢定記錄 （ 廠內(nèi)編號(hào) 、 器具名稱 、 檢定數(shù)據(jù) 、 檢定日期 、 使用車間 、 有效期 、 檢定員 、 復(fù)核員 、 所用儀器名稱及編號(hào) 、 檢測(cè)室溫 、 備注 ） 報(bào)廢通知單 （ 廠那編號(hào) 、 器具名稱 、 測(cè)量范圍 、 分度值 、 報(bào)廢日期 、 報(bào)廢理由 、 檢定員 、 復(fù)核員 ） 送檢通知單 （ 廠內(nèi)編號(hào) 、 器具名稱 、 分度值 、 使用車間 、 送檢日期 、 出廠編號(hào) 、 測(cè)量范圍 、 檢定周期 、 年度 、月份 、 是否檢測(cè) ） 新購計(jì)量器具 （ 出廠編號(hào) 、 器具名稱 、 測(cè)量范圍 、 分度值 、 廠內(nèi)編號(hào) 、 制造廠家 、 到廠日期 、 型號(hào)或規(guī)格 、使用車間 、 備注 ） 合格證 （ 廠內(nèi)編號(hào) 、 器具名稱 、 合格
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1