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