【正文】 這樣，我的設(shè)計(jì)就基本上完成了。因?yàn)槲?所 需要的數(shù)據(jù)庫(kù) 是比較 復(fù)雜 的 ，經(jīng)過(guò)一段時(shí)間的努力，我 的 數(shù)據(jù)庫(kù)建立成功了。 end。 for xh:=0 to do //將數(shù)據(jù)庫(kù)的數(shù)據(jù)讀出 begin gcol:=xh。 end。 //調(diào)用過(guò)程 getspbh取得編號(hào) :=spbh。 with adoquery1 do begin close。產(chǎn)地 39。商品全稱 39。 2．程序相關(guān)代碼 在窗體的 OnShow 事件處理過(guò)程中初始化相關(guān)信息。 （ 2）在窗體上添加 TLabel 組件、 TEdit 組件、 TDateTimePicker 組件，用于輸入信息。T39。 調(diào)用 getspbh 過(guò)程得到商品編號(hào)。 :=inttostr(fieldbyname(39。provideinf39。).AsString。 29 :=fieldbyname(39。代碼如下： procedure (Sender: TObject)。 28 圖 515 商品基本信息模塊運(yùn)行界面 1．窗體設(shè)計(jì)步驟 （ 1）從基礎(chǔ)窗體繼承一個(gè)窗體，命名為“ F_sbjbcx”，設(shè)置其 Caption 屬性為“商品基本信息”。代碼如下： procedure (Sender: TObject)。請(qǐng)正確輸入條件 39。,mb_yesno)=Id_yes then with ADoquery1 do begin Close。+Trim()+39。39。 (39。fullnamed39。 var searchwhat:string。不能刪除 39。代碼如下： procedure (Sender: TObject)。 在【添加】按鈕的單擊事件處理過(guò)程中動(dòng)態(tài)創(chuàng)建添加庫(kù)存商品基本信息窗體。 with adoquery1 do begin Close。 圖 514 為 TDBGrid 組件設(shè)置列標(biāo)題 （ 6 ）在 “Rave” 組 件 頁(yè) 中 點(diǎn) 選 “TRvDataSetConnection” 組件、“TRvProject” 組件，添加到窗體上，分別命名為 “Rv DataSetConnection1” 、“RvProject1” ，設(shè)置 RvDataSetConnection1 組 件 的 DataSet 屬性為“ADOQuery1” 。 （ 3）在窗體上添加 TPanel 組件，命名為“ Panel1”，設(shè)置 Align 屬性為“ alBottom”； Visable 屬性為“ False”。 （ 7）在窗體上添加 TADOQuery 組件和 TADOCommand 組件，設(shè)置它們的Connection 屬性為 “ ADOConnection1” 。數(shù)據(jù)模塊如圖 58 所示。基礎(chǔ)窗體如圖 57 所示。代碼如下： with statusbar1 do begin :=statusbar1。 在窗體右側(cè)的功能按鈕單擊事件處理過(guò)程中，動(dòng)態(tài)創(chuàng)建相應(yīng)的功能窗體。,39。 begin :=True。 （ 9）在“ Additional”組件頁(yè)中點(diǎn)選“ TImage”組件，分別添加到 Panel3組件和 Panel1 組件上，并在“ Object Inspector”窗口中通過(guò) Picture 屬性為其加載圖片。 圖 53 添加 TAction 對(duì)象 （ 4）在窗體上點(diǎn)選 ActionManager1 組件，在“ Object Inspector”窗口中，單擊 ActionBars 屬性右側(cè)的【 ? 】按鈕，彈出如圖 54 所示的對(duì)話框。本單位信息表結(jié)構(gòu)如表 417 所示。進(jìn)貨退貨表結(jié)構(gòu)如表413 所示。付款表結(jié)構(gòu)如表 49 所示。費(fèi)用表結(jié)構(gòu)如表 45 所示。職員信息表的結(jié)構(gòu)如表 41 所示。 開(kāi)發(fā)及運(yùn)行環(huán)境 系統(tǒng)開(kāi)發(fā)平臺(tái)： Microsoft Visual Studio 2021。 ? 提高工作效率，降低成本。 ? 系統(tǒng)維護(hù)模塊 系統(tǒng)維護(hù)模塊的主要實(shí)現(xiàn)本單位管理、操作員設(shè)置、數(shù)據(jù)的備份和還原等功能。因此，在接受任何一個(gè)項(xiàng)目開(kāi)發(fā)任務(wù)之前，必須根據(jù)客戶可能提供的時(shí)間和資源條件進(jìn)行可行性分析，以減少項(xiàng)目開(kāi)發(fā)風(fēng)險(xiǎn)，避免人力、物力和財(cái)力的浪費(fèi)。 除上述功能外，系統(tǒng)還需要有以下功能： 要有良好的人機(jī)界面，并提供換膚 功能。為了滿足市場(chǎng)的需求以及能在競(jìng)爭(zhēng)中取勝 ,系統(tǒng)設(shè)計(jì)人員就不僅僅是單純地滿足用戶對(duì)功能的要求 ,還要從設(shè)計(jì)方法上來(lái)加以改進(jìn)。在設(shè)計(jì)過(guò)程 ,能夠深入地理解面向?qū)ο笤O(shè)計(jì)方法的優(yōu)越性 ,獲得這些方面的相關(guān)經(jīng)驗(yàn)。如何采用先進(jìn)的計(jì)算機(jī)系統(tǒng)管理進(jìn)貨、庫(kù)存、銷(xiāo)售等諸多環(huán)節(jié)也已成為趨勢(shì)及必然。超市具有自身的特點(diǎn)：商品要求一般齊全，進(jìn)出貨關(guān)系較為簡(jiǎn)單， 員工人數(shù)種類(lèi)不多；在軟件角度看，數(shù)據(jù)較少，對(duì)存儲(chǔ)和速度要求不高。對(duì)一個(gè)即將畢業(yè)的計(jì)算機(jī)專業(yè)本科生來(lái)說(shuō) ,又想在軟件行業(yè)領(lǐng)域里有所發(fā)展 ,研究并應(yīng)用面向?qū)ο笤O(shè)計(jì)方法是百益無(wú)一害的 ,可以使其走向社會(huì)后能夠快速地適應(yīng)行業(yè)需求。 其次，面向?qū)ο蠓椒ㄊ且环N非常實(shí)用的軟件開(kāi)發(fā)方法，它一出現(xiàn)就受到軟件技術(shù)人員的青睞，現(xiàn)在已經(jīng)成為計(jì)算機(jī)科學(xué)研究的一個(gè)重要領(lǐng)域，并逐漸成為軟件開(kāi)發(fā)的一種主要方法。 支持多人操作，要求有較好的權(quán)限分配功能。 4 本系統(tǒng)數(shù)據(jù)庫(kù)采用目前比較流行的 Microsoft SQL Server，該數(shù)據(jù)庫(kù)系統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對(duì)的優(yōu)勢(shì)，并且處理數(shù)據(jù)庫(kù)量大，效率高；開(kāi)發(fā)工具采用 Delphi7， Delphi7 是目前應(yīng)用最廣泛的數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)工具，可以快速開(kāi)發(fā) Windows 應(yīng)用程序。 根據(jù)項(xiàng)目規(guī)劃，可畫(huà)出超市進(jìn)銷(xiāo)存管理系統(tǒng)的功能框圖，如圖 31 所示 。 ? 往來(lái)賬目詳細(xì)瀏覽。 數(shù)據(jù)庫(kù)管理系統(tǒng)軟件： SQL Server 2021。 表 41 職員信息表結(jié)構(gòu) 字段名稱 字段類(lèi)型 字段大小 主鍵否 功能描述 employecode Varchar 6 職員編號(hào) fullname Varchar 20 是 職員全稱 10 name Varchar 20 職員簡(jiǎn)稱 sex Varchar 2 性別 department Varchar 20 所在部門(mén) tel Varchar 20 聯(lián)系電話 memo Varchar 40 備注 shortcode Varchar 10 拼音簡(jiǎn)碼 （ 2）進(jìn)貨主表（ tb_warehouse_main） 進(jìn)貨主表用來(lái)保存進(jìn)貨中主要和相同的信息。 表 45 費(fèi)用表結(jié)構(gòu) 字段名稱 字段類(lèi)型 字段大小 主鍵否 功能描述 billdate datetime 8 錄單日期 billcode varchar 20 單據(jù)編號(hào) units varchar 20 收款單位 number varchar 20 費(fèi)用項(xiàng)目編號(hào) name varchar 20 費(fèi)用項(xiàng)目名稱 handle varchar 20 經(jīng)手人 fullpayment varchar 20 應(yīng)付金額 payment float 8 實(shí)付金額 （ 6）往來(lái)賬明細(xì)表（ tb_currentaccount） 往來(lái)賬明細(xì)表用于記錄往來(lái)單位的應(yīng)收、應(yīng)付賬目。 表 49 付款表結(jié)構(gòu) 字段名稱 字段類(lèi)型 字段大小 主鍵否 功能描述 billdate datetime 8 錄單日期 billcode varchar 20 是 單據(jù)編號(hào) units varchar 20 收款單位 payment float 8 金額 handle varchar 20 經(jīng)手人 13 summary varchar 100 摘要 （ 10）銷(xiāo)售退貨明細(xì)表（ tb_resell_detailed） 銷(xiāo)售退貨明細(xì)表用于保存銷(xiāo)售退貨的詳細(xì)信息。 表 413 退貨表 字段名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 主鍵否 功能描述 billdate datetime 錄單日期 billcode varchar 20 是 單據(jù)編號(hào) units varchar 20 收貨單位 handle varchar 20 經(jīng)手人 summary varchar 100 摘要 fullgathering float 8 應(yīng)收金額 gathering float 8 實(shí)收金額 （ 14）銷(xiāo)售明細(xì)表（ tb_sell_detailed） 銷(xiāo)售明細(xì)表用于保存銷(xiāo)售詳細(xì)信息。 表 417 本單位信息表結(jié)構(gòu) 字段名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 主鍵否 功能描述 number varchar 20 是 單位編號(hào) name varchar 50 單位全稱 simplename varchar 10 單位簡(jiǎn)稱 tax varchar 30 稅號(hào) tel varchar 20 單位電話 linkman varchar 10 聯(lián)系人 address varchar 60 單位地址 accounts varchar 80 開(kāi)戶行及帳號(hào) （ 18）往來(lái)單位信息表（ tb_units） 往來(lái)單位信息表用于保存往來(lái)單位的信息。 圖 54 菜單欄設(shè)置界面 1 （ 5）在彈出的對(duì)話框中點(diǎn)選“ 0ActionBarActionTooBar1”，在“ Object Inspector”窗口中，單擊 Items 屬性右側(cè)的【 ? 】按鈕，在彈出的對(duì)話框中，單擊【 Add New】按鈕添加菜單項(xiàng)，并設(shè)置各個(gè)菜單項(xiàng)的 Action 屬性，如圖 55所示。當(dāng)用戶單擊主窗體左側(cè)的按鈕時(shí)，在右則將彈出相應(yīng)的功能圖片。 //設(shè)置窗體先接受鍵盤(pán)按下事件 if key=vk_F5 then Close。提示 39。動(dòng)態(tài)創(chuàng)建 “庫(kù)存狀況窗體 ”代碼如下： procedure (Sender: TObject)。 :=4。 21 圖 57 基礎(chǔ)窗體 1．基礎(chǔ)窗體設(shè)計(jì)步驟 添加一個(gè)新窗體，命名為“ F_base”，設(shè)置其 BorderStyle 屬性為“ bsDialog”；KeyPreview 屬性為“ True”。 圖 58 數(shù)據(jù)模塊 1．?dāng)?shù)據(jù)模塊創(chuàng)建 （ 1）在 Delphi 中選擇“ File” /“ New” /“ Data Module”菜單項(xiàng)，新建一個(gè)數(shù)據(jù)模塊，命名為“ F_dm”。 庫(kù)存商品模塊設(shè)計(jì) 庫(kù)存商品模塊主要實(shí)現(xiàn)瀏覽、添加、修改、刪除、查詢、打印商品信息等功能。在 TPanel 組件上添加 TGroupBox 組件，設(shè)置其 Caption 屬性為“查詢條件”。設(shè)置 RvProject1 組件的 ProjectFile 屬性為制作的報(bào)表文件。 。代碼如下： procedure (Sender: TObject