【正文】 . 17 主窗體設(shè)計 ...................................................................................... 17 基礎(chǔ) 窗體創(chuàng)建 ................................................................................... 20 數(shù)據(jù)模塊設(shè)計 ................................................................................... 21 庫存商品模塊設(shè)計 ............................................................................ 23 商品基本信息模塊設(shè)計 ..................................................................... 27 進貨單錄入模塊設(shè)計 ........................................................................ 29 總結(jié) ........................................................................................................................ 33 致謝 .............................................................................................. 錯誤 !未定義書簽。如何采用先進的計算機系統(tǒng)管理進貨、庫存、銷售等諸多環(huán)節(jié)也已成為趨勢及必然。 加之，現(xiàn)在顧客的期望值越來越高，顧客需要更好的服務(wù) (產(chǎn)品及個性化服務(wù) )。在設(shè)計過程 ,能夠深入地理解面向?qū)ο笤O(shè)計方法的優(yōu)越性 ,獲得這些方面的相關(guān)經(jīng)驗。而管理信息系統(tǒng) (Management Information System，簡稱 MIS)在現(xiàn)代社會已深入到各行各業(yè)，是一個不斷發(fā)展的新學(xué)科 ,是由人和計算機 設(shè)備或其他信息處理手段組成并用于管理信息的系統(tǒng)。為了滿足市場的需求以及能在競爭中取勝 ,系統(tǒng)設(shè)計人員就不僅僅是單純地滿足用戶對功能的要求 ,還要從設(shè)計方法上來加以改進。同時通過繼承與多態(tài)性 ,使程序具有很高的可重用性 ,使軟件的開發(fā)和維護帶來了方便。 除上述功能外，系統(tǒng)還需要有以下功能： 要有良好的人機界面，并提供換膚 功能。 對于每種商品要求編號惟一，編號需要自動生成。因此，在接受任何一個項目開發(fā)任務(wù)之前，必須根據(jù)客戶可能提供的時間和資源條件進行可行性分析，以減少項目開發(fā)風(fēng)險，避免人力、物力和財力的浪費。 ? 進貨管理模塊 進貨管理模塊主要管理超市商品進貨及退貨信息，支持多行錄入。 ? 系統(tǒng)維護模塊 系統(tǒng)維護模塊的主要實現(xiàn)本單位管理、操作員設(shè)置、數(shù)據(jù)的備份和還原等功能。 圖 32 職員信息的 ER圖 7 圖 33 進貨的 ER圖 圖 34用戶的 ER圖 圖 35費用的 ER圖 8 圖 36 進貨退貨的 ER圖 圖 37收款的 ER圖 實體與實體之間關(guān)系的 ER 圖，如圖 38 所示。 ? 提高工作效率，降低成本。 ? 數(shù)據(jù)保密性強，用戶對應(yīng)不同的操作級別。 開發(fā)及運行環(huán)境 系統(tǒng)開發(fā)平臺： Microsoft Visual Studio 2021。 邏輯結(jié)構(gòu)設(shè)計 本系統(tǒng)數(shù)據(jù)庫采用 SQL Server 2021 數(shù)據(jù)庫，數(shù)據(jù)庫名稱為“ db_EMS”。職員信息表的結(jié)構(gòu)如表 41 所示。進貨明 細(xì)表結(jié)構(gòu)如表 43 所示。費用表結(jié)構(gòu)如表 45 所示。費用類型表表結(jié)構(gòu)如表 47 所示。付款表結(jié)構(gòu)如表 49 所示。銷售退貨表結(jié)構(gòu)如表 411 所示。進貨退貨表結(jié)構(gòu)如表413 所示。銷售表結(jié)構(gòu)如表 415 所示。本單位信息表結(jié)構(gòu)如表 417 所示。超市進銷存管理系統(tǒng)主窗體運行結(jié)果如圖 51 所示。 圖 53 添加 TAction 對象 （ 4）在窗體上點選 ActionManager1 組件，在“ Object Inspector”窗口中，單擊 ActionBars 屬性右側(cè)的【 ? 】按鈕，彈出如圖 54 所示的對話框。 TStatusBar 組件用于顯示狀態(tài)信息，雙擊 StatusBar1 組件，在彈出的對話框中單擊【 Add New】按鈕添加面板。 （ 9）在“ Additional”組件頁中點選“ TImage”組件，分別添加到 Panel3組件和 Panel1 組件上，并在“ Object Inspector”窗口中通過 Picture 屬性為其加載圖片。 2．程序相關(guān)代碼 在窗體的 OnKeyDown 事件處理過程中設(shè)置用戶按下〈 F5〉鍵時關(guān)閉窗體。 begin :=True。代碼如下： procedure (Sender: TObject。,39。 在窗體右側(cè)按鈕的單擊事件處理過程中，設(shè)置相應(yīng)的面板在其他面板前面。 在窗體右側(cè)的功能按鈕單擊事件處理過程中，動態(tài)創(chuàng)建相應(yīng)的功能窗體。 //顯示窗體 。代碼如下： with statusbar1 do begin :=statusbar1。 :=Panels[0].Width+Panels[1].Width+Panels[2].Width+10?；A(chǔ)窗體如圖 57 所示。 var Key: Char)。數(shù)據(jù)模塊如圖 58 所示。 （ 3）點選 ADOConnection1 組件，在“ Object Inspector”窗口中，單擊ConnectionString 屬性右 側(cè)的【 ? 】按鈕，彈出對話框 ， 如圖 59 所示 。 （ 7）在窗體上添加 TADOQuery 組件和 TADOCommand 組件，設(shè)置它們的Connection 屬性為 “ ADOConnection1” 。單擊【 OK】按鈕添加一個新窗體，命名為 “ F_kcsp” ，設(shè)置 Caption 屬性為 “ 庫存商品 ” 。 （ 3）在窗體上添加 TPanel 組件，命名為“ Panel1”，設(shè)置 Align 屬性為“ alBottom”； Visable 屬性為“ False”。 25 圖 513 添加項目界面 （ 4）在“ ADO”組件頁中點選“ TADOQuery”組件，添加到窗體上，命名為“ ADOQuery1”。 圖 514 為 TDBGrid 組件設(shè)置列標(biāo)題 （ 6 ）在 “Rave” 組 件 頁 中 點 選 “TRvDataSetConnection” 組件、“TRvProject” 組件，添加到窗體上，分別命名為 “Rv DataSetConnection1” 、“RvProject1” ，設(shè)置 RvDataSetConnection1 組 件 的 DataSet 屬性為“ADOQuery1” 。 26 begin inherited。 with adoquery1 do begin Close。)。 在【添加】按鈕的單擊事件處理過程中動態(tài)創(chuàng)建添加庫存商品基本信息窗體。 //創(chuàng)建窗體 。代碼如下： procedure (Sender: TObject)。,39。不能刪除 39。 end。 var searchwhat:string。39。fullnamed39。shortcode39。 (39。where 39。39。 (39。+Trim()+39。 if (39。,mb_yesno)=Id_yes then with ADoquery1 do begin Close。)。請正確輸入條件 39。 end。代碼如下： procedure (Sender: TObject)。 。 28 圖 515 商品基本信息模塊運行界面 1．窗體設(shè)計步驟 （ 1）從基礎(chǔ)窗體繼承一個窗體，命名為“ F_sbjbcx”，設(shè)置其 Caption 屬性為“商品基本信息”。分別設(shè)置 TLabel 組件的 Caption 屬性為“商品報警上限：”、“商品報警下限：”。代碼如下： procedure (Sender: TObject)。).AsString。 29 :=fieldbyname(39。type39。).AsString。 :=fieldbyname(39。provideinf39。).AsString。 :=inttostr(fieldbyname(39。 //如果為添加操作調(diào)用過程 getspbh得到編號 :=。 調(diào)用 getspbh 過程得到商品編號。T39。T39。 end。 （ 2）在窗體上添加 TLabel 組件、 TEdit 組件、 TDateTimePicker 組件，用于輸入信息。添加 TBitBtn 組件，用于完成“保存”、“取消”功能。 2．程序相關(guān)代碼 在窗體的 OnShow 事件處理過程中初始化相關(guān)信息。 //窗體標(biāo)記 :=now()。商品全稱 39。商品規(guī)格 39。產(chǎn)地 39。進貨價 39。 with adoquery1 do begin close。)。 //調(diào)用過程 getspbh取得編號 :=spbh。 begin inherited。 end。 then //查找第幾行為空 begin grow:=xh。 for xh:=0 to do //將數(shù)據(jù)庫的數(shù)據(jù)讀出 begin gcol:=xh。 [8,grow]:=[8].Value。 end。這樣就使我對于系統(tǒng)的開發(fā)有了一個大致的思路。因為我 所 需要的數(shù)據(jù)庫 是比較 復(fù)雜 的 ，經(jīng)過一段時間的努力，我 的 數(shù)據(jù)庫建立成功了。然后就進入編寫程序階段，在編程過程中，我借鑒了很多資料，同時也請教了其他有經(jīng)驗的同學(xué)。這樣，我的設(shè)計就基本上