【導(dǎo)讀】發(fā)貨、廢品、引入新產(chǎn)品和滿足客戶要求等問題的困擾。如果沒有一個(gè)有效。的計(jì)劃，生產(chǎn)部門對(duì)以上這些問題以及其他一些類似的問題是很難回答的。產(chǎn)部門的工作業(yè)績(jī)。產(chǎn)一定數(shù)量的某類產(chǎn)品所需的資源，以保證銷售與運(yùn)作規(guī)劃的合理性。量檢驗(yàn)于一體的完整信息系統(tǒng)框架。根據(jù)實(shí)際情況前臺(tái)程序開發(fā)采用Delphi. 完成，后臺(tái)數(shù)據(jù)庫建設(shè)我們采用SQLServer2020完成。限于水平有限，而。且第一次完成系統(tǒng)實(shí)現(xiàn)，不足之處在所難免，敬請(qǐng)斧正。

　　

【正文】 物料清單表 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 功能描述 cpbh varchar 50 是 產(chǎn)品編號(hào) cpmc varchar 50 產(chǎn)品名稱 clhh varchar 50 物料編號(hào) clmc varchar 5 物料名稱 gg varchar 50 規(guī)格 dw varchar 50 單位 yl float 8 用量 4． 3． 1 系統(tǒng) 登錄 界面 申佳服飾 ERP 生產(chǎn)管理系統(tǒng) 除了實(shí)現(xiàn)本身的各個(gè)系統(tǒng)管理功能外，還應(yīng)力求使系統(tǒng)頁面簡(jiǎn)潔、易于使用、美 觀大方。所以，本系統(tǒng) 在界面設(shè)計(jì)上也下了不少功夫。系統(tǒng)主界面清楚的顯示了系統(tǒng)的各個(gè)主要功能模塊，各功能模塊建立了二級(jí)目錄，即子模塊作業(yè)。子模塊界面基本功能條（包括新增、修改、刪除等）在各個(gè)子模塊界面的頂端，界面還分兩個(gè)頁簽，一個(gè)是各子模塊的基本信息，一個(gè)是各子模塊的明細(xì)信息。 用戶只有管理員給予了權(quán)限，才能 登錄 次系統(tǒng)（即有正確的用戶名和密碼）。 圖 4 用戶登錄界面 4． 3． 2 系統(tǒng)主 界面 若用戶名或者密碼錯(cuò)誤，系統(tǒng)會(huì)提示警告信息，無法登錄。登錄以后，則進(jìn)入主頁面系統(tǒng)。 25 圖 5 系統(tǒng) 主界面 4． 3． 3 系統(tǒng)功 能模塊 界面 圖 6 物料信息錄入作業(yè) 界面 圖 7 產(chǎn)品信息錄入作業(yè)界面 圖 8 訂單生產(chǎn)計(jì)劃錄入作業(yè) 界面 圖 9 生產(chǎn)領(lǐng)料錄入作業(yè) 界面 26 圖 10 生產(chǎn)入庫錄入作業(yè)界面 圖 11 檢驗(yàn)錄入作業(yè)界面 除了以上界面外，系統(tǒng)還有一些基本權(quán)限，報(bào)表查詢的功能，這里就不一一列出。 第 5 章 系統(tǒng)的詳細(xì)設(shè)計(jì)與具體實(shí)現(xiàn) 詳細(xì)設(shè)計(jì)階段的根本目標(biāo)是確定應(yīng)該怎樣具體的實(shí)現(xiàn)所要求的系統(tǒng)，也就是說，經(jīng)過這個(gè)階段的設(shè)計(jì)工作，應(yīng)該得 出對(duì)目標(biāo)系統(tǒng)的精確描述，從而在編碼階段可以把這個(gè)描述直接翻譯成用某種程序語言書寫的程序。由于系統(tǒng)實(shí)現(xiàn)的功能過多不能在這里全部一一介紹，所以我們只是將關(guān)鍵模塊進(jìn)行介紹。 5． 1 數(shù)據(jù)模塊設(shè)計(jì) 為了節(jié)省系統(tǒng)資源，實(shí)現(xiàn)代碼重用，可以在系統(tǒng)中新建一個(gè) Modulel 模塊。就本系統(tǒng)而言，該模塊主要用于共享數(shù)據(jù)庫連接。 數(shù)據(jù)模塊窗體主要功能是連接和處理數(shù)據(jù)的數(shù)據(jù)庫組件統(tǒng)一規(guī)范管理的模塊，在設(shè)計(jì)期間數(shù)據(jù)模塊是以窗體的形式顯示在界面中的，但是不可以向數(shù)據(jù)模塊中加入可視化組件，因?yàn)樵撃K不會(huì)在系統(tǒng)運(yùn)行時(shí)顯示出來。數(shù)據(jù)模塊如圖 3 所示。 27 圖 3 數(shù)據(jù)模塊 數(shù)據(jù)模塊創(chuàng)建： （ 1）在 Delphi 中選擇“ File/New/Data Module”菜單項(xiàng)，新建一個(gè)數(shù)據(jù)模塊，命名為“ DATA”。 （ 2）在“ ADO”組件頁中點(diǎn)選“ TADOConnection”組件， 添加到窗體上，命名為“ ADOConnection1”。 TADOConnection 組件用于連接數(shù)據(jù)庫，其他數(shù)據(jù)庫組件通過它連接數(shù)據(jù)庫。 （ 3）點(diǎn)選 ADOConnection1 組件，在“ Object Inspector”窗口中，單擊ConnectionString 屬性右側(cè)的 【 … 】按 鈕，彈出對(duì)話框如圖 4 所示。 圖 4 設(shè)置連接字符串 （ 4）單擊【 Build】按鈕，在彈出的對(duì)話框中的“提供程序”選項(xiàng)卡中設(shè)置希望連接的數(shù)據(jù)，如圖 5 所示。 圖 5 選擇驅(qū)動(dòng)程序 28 （ 5）選擇“連接”選項(xiàng)卡，設(shè)置連接相關(guān)設(shè)置，如圖 6 所示。 圖 6 數(shù)據(jù)庫連接設(shè)置 （ 6）單擊【測(cè)試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫的連接。 （ 7）在窗體上添加 TADOQuery 組件，分別命名為“ ADOa”、“ ADOb”、“ ADOc”、“ ADOd ”、“ ADO_user ”、“ ADO_bb ” 設(shè) 置 它 們的 Connection 屬性為“ ADOConnection1”。 29 5． 2 主窗體設(shè)計(jì) 圖 7 主窗體運(yùn)行結(jié)果 主程序窗體設(shè)計(jì)的好壞往往會(huì)影響系統(tǒng)的整體形象，因此應(yīng)首先設(shè)計(jì)好主程序 窗體。同時(shí)，主 程序窗體也是程序控制的核心，操作權(quán)限、程序功能調(diào)用等都要通過主程序窗體調(diào)用實(shí)現(xiàn)。生產(chǎn)管理系統(tǒng)主窗體運(yùn)行結(jié)果如圖 7 所示。 窗體設(shè)計(jì)步驟如下： （ 1）運(yùn)行 Delphi 會(huì)自動(dòng)創(chuàng)建一個(gè)窗體，設(shè)置該窗體為程序主窗體。在“ Additional”組件頁中點(diǎn)選“ TActionManeger”組件，添加到窗體上。雙擊 該組件打開動(dòng)作編 輯器。如圖 8 所示。 圖 8 顯示 TActionManeger 編輯器 （ 2）在“ Standard”組件頁中點(diǎn)選“ TMainMenu” 組件，添加到窗體上雙擊該New Action 30 組件彈出菜單編輯器，如圖 9 所示。 圖 9 顯示 TmainMenu 編輯器 （ 3）在“ Object Inspector”窗口中，在 Action 屬性中選擇相應(yīng)的圖 10 中 Action文本框中動(dòng)作項(xiàng)的命名名稱。如圖 11 所示。 圖 10 添加 TMainMenu 對(duì)象 圖 11 N1 的Action 屬性 （ 4）在“ Win32”組件頁中點(diǎn)選“ TStatusBar”組件，添加到窗體上。 如圖 12所示。 圖 12 面板編輯器 N1 的 Action 屬性 31 5． 4 系統(tǒng)登錄設(shè)計(jì) 系統(tǒng)登錄主要用于對(duì)進(jìn)入生產(chǎn)管理系統(tǒng)的用戶進(jìn)行安全性檢查，以防止非法用戶進(jìn)入該系統(tǒng)。只有合法的用戶，才可以進(jìn)入系統(tǒng)，同時(shí)根據(jù)管理員分配的權(quán)限，給予這個(gè)操作員相應(yīng)的操作權(quán)限。 圖 13 系統(tǒng)登錄模塊運(yùn)行結(jié)果 驗(yàn)證操作員及其密碼，主要通過對(duì)數(shù)據(jù)表 tb_user 的查詢，判斷用戶選定的操作員及其輸入的密碼是否符合數(shù)據(jù)庫中的操作員和密碼，如果符合則允許登錄，并給予相 應(yīng)的權(quán)限；否則提示用戶非法登錄。生產(chǎn)管理系統(tǒng)登錄模塊運(yùn)行結(jié)果如圖 13所示。窗體設(shè)計(jì)步驟 （ 1） 選擇“ File” /“ New” /“ Form”菜單項(xiàng)，新建一個(gè)窗體，命名窗體為“ FRM_YHDL”，設(shè)置 Caption 屬性為“ 登錄 ”；設(shè)置 BorderStyle 屬性為“ bsNone”；設(shè)置 Position 屬性為 “ poScreenCenter” 。 （ 2）在“ Standard”組件頁中點(diǎn)選“ TPanel”組件，添加到窗體上，設(shè)置 Align屬性為“ alClient”； 設(shè)置 BorderStyle 屬性為“ bsSizeable”； 設(shè)置 Position 屬性為“ poScreenCenter”。 （ 3）在“ Additional”組件頁中點(diǎn)選“ TImage”組件，添加到 TPanel 組件上，設(shè)置 Align 屬性為“ alClient”；設(shè)置 Picture 屬性為組件加載圖片。 （ 4）在“ Standard”組件頁中點(diǎn)選 TEdit 組件，在窗體上添加 2 個(gè) TEdit 組件。分別命名為“ Edit1”、“ Edit2”，設(shè)置它們的 Ctl3D 屬性為“ False”， Edit2 組件的PassWordChar 屬性為“ *”。 （ 5）在“ Additional”組件頁中點(diǎn)選“ TSpeedButton”組件，在窗體上添加 2個(gè)，設(shè)置它們的 Caption 屬性為空，設(shè)置 Flat 屬性為“ True”，設(shè)置相應(yīng)的大小，覆蓋圖片上的“登錄”和“退出”按鈕。程序相關(guān)代碼 定義公共變量。代碼如下： var FRM_YHDL: TFRM_YHDL。 dl,p : integer。 yhmc,ppl : string。 a : array[1..11] of string。 //定義數(shù)組 32 implementation 【登錄】按鈕的 OnClick 事件處理過程中，首先要確定用戶名和 密碼是否正確，如果正確則判斷 jj 是否等于 1，如果等于 1，則調(diào)用重新登錄窗口。否則是調(diào)用登錄窗口，登錄窗口只能輸入 3 次用戶名及密碼，超出則退出本系統(tǒng)，在登錄成功后給各窗體賦值用戶的相應(yīng)權(quán)限。其代碼如下： procedure (Sender: TObject)。 var P:INTEGER。 Begin with do //查找用戶名和密碼正確的信息 begin close。 。 (39。select * from tb_user where czyname=:a and czymm=:b39。)。 (39。a39。).Value := Trim()。 //將用戶名賦值給變量 a (39。b39。).Value := Trim()。 //將密碼賦值給變量 b open。 end。 if 0 then //判斷查詢結(jié)果是否有信息 begin yhmc := (39。czyname39。).AsString。 //將用戶名賦給變量 yhmc for p := 1 to 11 do //將用戶的權(quán)限賦值給數(shù)組 begin ppl := inttostr(p)。 a[p] := (ppl).AsString。 end。 if jj = 1 then //判斷 jj=1時(shí)，為重新登錄，否則為登錄窗體 begin 。 [1].Text := 39。 39。+39。操作員名稱： 39。+yhmc。 end else begin 。 [1].Text := 39。 39。+39。操作員名稱： 39。+yhmc。 end。 end else 33 begin showmessage(39。操作員名稱、密碼不正確 39。+13+39。請(qǐng)重新輸入。 39。)。 。 。 dl := dl+1。 end。 if jj 1 then begin if dl = 4 then //判斷登錄的錯(cuò)誤不能大于 3次，如果大于則退出本系統(tǒng) begin 。 end。 end。 end。 在【退出】按鈕的 OnClick 事件處理過程中，如果 jj=1 則為重新登錄的【退出】按鈕，只關(guān)閉本窗體。否則為登錄的【退出】按鈕，退出整個(gè)系統(tǒng)。其代碼如下： procedure (Sender: TObject)。 begin if jj = 1 then else 。 //關(guān)閉所有窗體，即關(guān)閉本系統(tǒng) end。 在 .Edit1 組件的 OnKeyDown 事件處理過程中，如果在 edit1 上按 〈 Enter〉 鍵，則光標(biāo)停留在 edit2 中。其代碼如下： procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 begin if key = vk_return then 。 end。 5． 5 產(chǎn)品物料清單的錄入與維護(hù)模塊設(shè)計(jì) 產(chǎn)品物料清單的錄入與維護(hù)模塊主要是對(duì)產(chǎn)品所用物料信息的添加、修改和刪除 。產(chǎn)品物料清單的錄入與維護(hù)模塊運(yùn)行結(jié)果如圖 14 所示。 34 圖 14 產(chǎn)品物料清單的錄入與維護(hù)模塊 窗體設(shè)計(jì)步驟： （ 1） 選擇“ File/New/Form”菜單項(xiàng)，新建一個(gè)窗體。 在 “ Win32”組件頁中點(diǎn)選 “ TImageList” 組件 ， 添加到窗體上。 在“ Standard” 組件頁中點(diǎn)選“ TPanel”組件，添加到窗體上。設(shè)置相應(yīng)的大小。在“ Win32”組件頁中點(diǎn)選“ TToolBar”組件，添加到 TPanel 組件上，在 TToolBar 組件上單擊右鍵，在彈出的菜單中單擊“ New Button”菜單項(xiàng)，添加工具欄按鈕 。 如圖 15 所示。 圖 15 工具欄按鈕屬性 （ 2）在“ Data Access”組件頁中點(diǎn)選“ TDataSource” 組件 ，添加到窗體上 。在“ Win32”組件頁中點(diǎn)選“ TPageControl” 組件，添加到窗體上，命名為“ PageControl1” 。在 PageControl1 組件上單擊右鍵，在彈出的菜單中選擇“ New Page”菜單項(xiàng)，創(chuàng)建兩個(gè)頁。在“ Standard”組件頁中點(diǎn)選“ TPanel”組件，添加到 TabSheet1 頁中 ，其相關(guān)屬性設(shè)置，如圖 16 所示。 35 圖 16 Pane