計(jì)量管理系統(tǒng)論ppt課件-資料下載頁(yè)
2025-01-10 23:11本頁(yè)面
【正文】 主窗口： 用戶登陸窗口 采購(gòu)計(jì)劃的輸入窗口 新購(gòu)器具技術(shù)報(bào)告輸入 檢定計(jì)劃輸入窗口 每月周檢輸入窗口 檢定記錄輸入窗口 返回 工程文件的主要代碼： begin 。 startfrm:=(Application)。 :=() div 2。 :=() div 2。 。 。 while do 。 :=39。計(jì)量管理信息系統(tǒng) 39。 (Tmainfrm, mainfrm)。 (TDataModule1, DataModule1)。 。 end. 返回 主窗口： 涉及到的自定義函數(shù) ， 和主要程序的代碼： procedure (Sender: TObject)。//創(chuàng)建主窗體時(shí)的執(zhí)行代碼 begin displaylog:=true。 selfclose:=false。 log:=false。 :=true。 :=false。 canuse(false,)。 //[0].Text:=。 [2].Text:=FormatDateTime(39。 yyyy39。39。 年 39。39。mm39。39。 月 39。39。dd39。39。 日 39。39。hh39。39。:39。39。mm39。39。:39。39。ss39。39。 39。39。dddd39。,now)。 [1].Text:=39。 39。+39。當(dāng)前無(wú)用戶登陸 39。 :=false。 :=false。 end。 procedure (Sender: TObject。 var CanClose: Boolean)。關(guān)閉主窗體時(shí)執(zhí)行的代碼 begin //用戶關(guān)閉系統(tǒng)或未關(guān)閉系統(tǒng)的情況下關(guān)閉 windows時(shí)提示用戶 if selfclose then begin CanClose:=true。 exit。 end。 if MessageDlg(39。你確實(shí)要退出計(jì)量管理信息系統(tǒng)嗎 ?39。,mtInformation,mbYesNoCancel,0)=mryes then CanClose:=true else CanClose:=false。 end。 procedure (login: bool。 powercode: integer)。//實(shí)現(xiàn)菜單的動(dòng)態(tài)改變可操作性 begin if login=false then //沒(méi)有用戶登陸的情況 begin :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 end else begin case powercode of 1:begin //超級(jí)用戶 登陸的情況 :=(=39。administrator39。)。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 end。 2:begin //總工具室操作員 登陸的情況 :=false。 :=true。 :=false。 :=true。 :=true。 :=true。 :=false。 :=false。 :=false。 :=true。 :=true。 :=false。 :=false。 end。 3:begin //檢定人員 登陸的情況 :=false。 :=false。 :=true。 :=true。 :=true。 :=true。 :=true。 :=false。 :=false。 end。 4:begin //車間工具員 登陸的情況 :=false。 :=true。 :=true。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=true。 :=true。 :=false。 :=false。 end。 5:begin //一般操作員 登陸的情況 :=false。 :=false。 :=false。 :=false。 :=false。 :=true。 :=true。 :=false。 :=false。 end。 end。 end。 end。 謝 謝 各 位 老 師 指 導(dǎo)
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1