計(jì)量管理系統(tǒng)論ppt課件-閱讀頁
2025-01-25 23:11本頁面
【正文】 說明 ID（ Key） 自動編號 記錄號 qjmc Char 30 器具名稱 sl Integer 2 數(shù)量 clfw Char 12 測量范圍 fdz Char 10 分度值 sycj Char 30 使用車間 jdzq Integer 2 檢定周期 （ 以月份數(shù)表示 ） jdrq Char 20 檢定日期 （ 以 “ 2022年 1月 ” 表示 ） jhrq Date/Time 計(jì)劃日期 nd Char 4 年度 十 、 采購報(bào)告記錄 cgbgb 字段名 數(shù)據(jù)類型 長度 說明 ID（ Key） 自動編號 記錄號 qjmc Char 30 器具名稱 clfw Char 12 測量范圍 fdz Char 10 分度值 syyq Char 50 使用要求 sycj Char 30 使用車間 sl Integer 2 數(shù)量 bgrq Date/Time 報(bào)告日期 sfty Integer 1 是否同意 pfrq Date/Time 批復(fù)日期 十一 、 使用車間表 sycjb 字段名 數(shù)據(jù)類型 長度 說明 sycjid（ Key） Char 10 使用車間 ID sycjmc Char 30 使用車間名稱 十二 、 制造廠家表 zzcjb 字段名 數(shù)據(jù)類型 長度 說明 zzcjid（ Key） Char 10 制造廠家 ID zzcjmc Char 50 制造廠家名稱 返回 第五章 系統(tǒng)開發(fā)工具的選取及介紹 Delphi是一個(gè)真正面向?qū)ο蟮木幊汰h(huán)境，不僅如此， Delphi的這種面向?qū)ο蟮臋C(jī)制是單純的建立在Windows的消息機(jī)制上的 Delphi代碼，而不是像 VB、VFP之類的調(diào)用 DLL、 OCX， 通過查看 Delphi控件的源代碼，你可以知道整個(gè)機(jī)制是怎樣組織起來的，而且你可以完完全全地控制這些控件，因?yàn)樗鼈冎皇怯?Delphi代碼編寫的，而不是存在在 DLL中看不見的東西。開發(fā)工具支持面向?qū)ο蟮募夹g(shù)應(yīng)該是全面的，如多級繼承、多級封裝和多態(tài)等，而不就只是部分和有限的支持， ，它的基本語言是 Object Pascal語言， Pascal語言數(shù)據(jù)類型豐富、語法風(fēng)格嚴(yán)謹(jǐn)； Object Pascal在 Pascal語言的基礎(chǔ)上擴(kuò)充了面向?qū)ο蟮奶匦?，支持封裝、繼承、派生、多態(tài)等基本的面向?qū)ο蟮奶匦浴? 具有強(qiáng)大的數(shù)據(jù)編程能力，能夠支持 ODBC和數(shù)據(jù)庫專用接口。 提供多種數(shù)據(jù)表現(xiàn)形式。 提供第四代語言可擴(kuò)展的編程語言。 返回 第六章 系統(tǒng)的實(shí)現(xiàn) 本章主要是將本系統(tǒng)的一些主要運(yùn)行界面和具體的源代碼列出來 ， 供在使用時(shí)作為參考 ， 同時(shí)也可以為以后修改和完善時(shí)提供幫助 。 startfrm:=(Application)。 :=() div 2。 。 :=39。 (Tmainfrm, mainfrm)。 。//創(chuàng)建主窗體時(shí)的執(zhí)行代碼 begin displaylog:=true。 log:=false。 :=false。 //[0].Text:=。 yyyy39。 年 39。mm39。 月 39。dd39。 日 39。hh39。:39。mm39。:39。ss39。 39。dddd39。 [1].Text:=39。+39。 :=false。 end。 var CanClose: Boolean)。 exit。 if MessageDlg(39。,mtInformation,mbYesNoCancel,0)=mryes then CanClose:=true else CanClose:=false。 procedure (login: bool。//實(shí)現(xiàn)菜單的動態(tài)改變可操作性 begin if login=false then //沒有用戶登陸的情況 begin :=false。 :=false。 :=false。 :=false。administrator39。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 end。 :=true。 :=true。 :=true。 :=false。 :=true。 :=false。 end。 :=false。 :=true。 :=true。 :=false。 end。 :=true。 :=false。 :=false。 :=false。 :=true。 :=false。 end。 :=false。 :=false。 :=true。 :=false。 end。 end。 謝 謝 各 位 老 師 指 導(dǎo)
公司管理相關(guān)推薦
鄂ICP備17016276號-1