【正文】 [13]李文立等 .PowerBuilder 精彩編程 200例 .機械工業(yè)出版社 ,2021。 [5] 劉曉華 .精通 .NET核心技術(shù) [M].北京 :電子工業(yè)出版社 ,2021。在經(jīng)過和老師的交流討論之后，我的設(shè)計也逐漸進入了尾聲。 到了數(shù)據(jù)庫設(shè)計階段，首先選擇了 SQL Server 2021 作為數(shù)據(jù)庫管理系統(tǒng)。 :=grow。 end。 。 (sender)。 end。 Cells[6,0]:=39。 Cells[2,0]:=39。 （ 5）在窗體上添加 TADOQuery組件，命名為“ ADOQuery1”，設(shè)置其 Connection屬性為“ ”。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 圖 516 進貨單錄入模塊運行界面 1．窗體設(shè)計步驟 （ 1）從基礎(chǔ)窗體繼承一個窗體，命名為“ F_jhd”，設(shè)置其 Caption 屬性為“進貨單錄入”。,1) //格式化編號 else spbh:=39。 end。).AsInteger)。 :=fieldbyname(39。standard39。).AsString。 2．程序相關(guān)代碼 在窗體的 OnShow 事件處理過程中如果為修改，將要修改的記錄顯示在窗體的編輯框中。商品基本信息模塊運行結(jié)果如圖 515 所示。 在【打印】按鈕的單擊事件處理過程中指定報表文件、預(yù)覽報表。 except (39。提示 39。%39。+searchwhat+39。 。 1: searchwhat:=39。代碼如下： procedure (Sender: TObject)。 except (39。 在【刪除】按鈕的單擊事件處理過程中當(dāng)用戶確認刪除后刪除數(shù)據(jù)。 end。 change:=False。 （ 5）在“ Data Controls”組件頁中點選“ TDBGrid”組件，添加到窗體上，命名為“ DBGrid1”，設(shè)置其 Align 屬性為“ alClient”； DataSource 屬性為“ DataSource1”，雙擊 DBGrid1 組件，在彈出的列編輯器中設(shè)置字段標(biāo)題，如圖514 所示。右鍵單擊 TToolBar 組件，在彈出的菜單中選擇“ New Button”菜單項，并設(shè)置其 Style 屬性為“ tbsDivider”。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 圖 511 數(shù)據(jù)庫連接設(shè)置界面 （ 6）單擊【測試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫的連接。 數(shù)據(jù)模塊設(shè)計 數(shù)據(jù)模塊窗體主要功能是統(tǒng)一管理數(shù)據(jù)組件。 基礎(chǔ)窗體創(chuàng)建 創(chuàng)建基礎(chǔ)窗體主要為了提高開發(fā)速度和代碼的利用率，從基礎(chǔ)窗體繼承的子窗體具有基礎(chǔ)窗體的全部功能。指定TCheckBox 組件的父對象并設(shè)置該組 件的大小和位置。 //設(shè)置面板在最前面 end。是否退出系統(tǒng)？ 39。 Shift: TShiftState)。在窗體上添加 3 個 TPanel組件，分別命名為“ Panel3”、“ Panel1”、“ Panel4”，分別設(shè)置其 Align 屬性為“ alTop”、“ alLeft”、“ alClient”。 圖 52 添加 TActionToolBar 對象 （ 3）選擇“ Actions”選項卡，單擊【 New Action】按鈕，添加“ TAction”課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 對象，并在“ Object Inspector”窗口中設(shè)置 Caption 屬性，如圖 53 所示。 表 416 庫存商品表結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長度 主鍵否 功能描述 tradecode varchar 6 商品編號 fullnamed varchar 20 是 商品全名 name varchar 10 商品簡稱 type varchar 10 商品類型 standard varchar 10 商品規(guī)格 unit varchar 4 單位 produce varchar 20 產(chǎn)地 qty float 8 庫存數(shù)量 price float 8 進貨時的最后一次進價 averageprice float 8 加權(quán)平均價 saleprice float 8 銷售時的最后一次銷價 checked float 8 盤點數(shù)量 upperlimit int 4 存貨報警上限 lowerlimit int 4 存貨報警下限 provideinf varchar 40 商品供貨信息 memo varchar 40 備注 shortcode varchar 10 拼音簡碼 （ 17）本單位信息表（ tb_unit） 本單位信 息表用于保存本單位的信息。 表 412 進貨退貨明細表 字段名 數(shù)據(jù)類型 長度 主鍵否 功能描述 billcode varchar 20 單據(jù)編號 tradecode varchar 20 商品編號 fullname varchar 20 商品全稱 type varchar 10 商品型號 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 standard varchar 10 商品規(guī)格 unit varchar 4 單位 produce varchar 20 產(chǎn)地 qty float 8 數(shù)量 price float 8 進價 tsum float 8 金額 billdate datetime 8 錄單日期 （ 13）進貨退貨表（ tb_rewarehouse_main） 進貨退貨表用于存儲進貨退貨中主要的和相同的信息。 表 48 收款信息表結(jié)構(gòu) 字段名稱 字段類型 字段大小 主鍵否 功能描述 billdate datetime 8 錄單日期 billcode varchar 20 是 單據(jù)編號 units varchar 20 付款單位 gathering float 8 金額 handle varchar 20 經(jīng)手人 summary varchar 40 摘要 （ 9）付款信息表（ tb_payment） 付款信息表用于保存付款信息。 表 44 用戶權(quán)限表結(jié)構(gòu) 字段名稱 字段類型 字段大小 主鍵否 功能描述 number Varchar 20 是 用戶編號 users Varchar 20 用戶名稱 password Varchar 20 用戶密碼 stock Bit 1 進貨管理 vendition Bit 1 銷售管 理 checked Bit 1 庫存管理 money Bit 1 錢流管理 system Bit 1 系統(tǒng)維護 base Bit 1 基本信息 （ 5）費用表（ tb_cf） 費用表用于記錄費用信息。 （ 1）職員信息表（ tb_employ） 職員信息表用來保存職員信息。 ? 系統(tǒng)運行穩(wěn)定、安全可靠。 ? 強大的庫存預(yù)警功能，在意外中將損失降到最低。 ? 查賬模塊 查賬模塊主要實現(xiàn)與供應(yīng)商、代理商對賬、費用支出、應(yīng)收應(yīng)付等功能。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 本系統(tǒng)數(shù)據(jù)庫采用目前比較流行的 Microsoft SQL Server，該數(shù)據(jù)庫系統(tǒng)在安全性、準(zhǔn)確性、運行速度方面有絕對的優(yōu)勢，并且處理數(shù)據(jù)庫量大，效率高；開發(fā)工具采用 Delphi7， Delphi7 是目前應(yīng)用最廣泛 的數(shù)據(jù)庫系統(tǒng)開發(fā)工具，可以快速開發(fā) Windows 應(yīng)用程序。 支持多人操作，要求有較好的權(quán)限分配功能。 其次，面向?qū)ο蠓椒ㄊ且环N非常實用的軟件開發(fā)方法，它一出現(xiàn)就受到軟件技術(shù)人員的青睞，現(xiàn)在已經(jīng)成為計算機科學(xué)研究的一個重要領(lǐng)域，并逐漸成為軟件開發(fā)的一種主要方法。對一個即將畢業(yè)的計算機專業(yè)本科生來說 ,又想在軟件行業(yè)領(lǐng)域里有所發(fā)展 ,研究并應(yīng)用面向?qū)ο笤O(shè)計方法是百益無一害的 ,可以使其走向社會后能夠快速地適應(yīng)行業(yè)需求。超市具有自身的特點：商品要求一般齊全，進出貨關(guān)系較為簡單，員工人數(shù)種類不多；在軟件角度看，數(shù)據(jù)較少，對存儲和速度要求不高。 本系統(tǒng)是根據(jù)企業(yè)的特點，集進、銷、存于一體，為企業(yè)量身定做的進銷存管理軟件。在設(shè)計過程中最大限度滿足用戶的要求， 因此，該系統(tǒng)具有較強的實用性和針對性。但正由于員工較少，使用軟件控制成為必須。這正是本次設(shè)計的根本目的所在。面向?qū)ο蟮某绦蛟O(shè)計將數(shù)據(jù)及對數(shù)據(jù)的操作方法封裝在一起 ,作為一個互相依存、不可分離的整體。 在進貨、退貨時存在一對多的關(guān)系，要求支持多行錄入功能。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 第三章 總體設(shè)計 項目規(guī)劃 超市進銷存管理系統(tǒng)是一個典型的數(shù)據(jù)庫應(yīng)用程序，由登錄模塊、主界面、基本信息模塊、進貨管理和銷售管理模塊、錢流管理模塊、庫存管理模塊、查賬模塊、統(tǒng)計分析模塊、系統(tǒng)維護模塊等組成。 ? 系統(tǒng)維護模塊 系統(tǒng)維護模塊的主要實現(xiàn)本單位管理、操作員設(shè)置、數(shù)據(jù)的備份和還原等功能。 ? 提高工作效率，降低成本。 開發(fā)及運行環(huán)境 系統(tǒng)開發(fā)平臺： Delphi 。職員信息表的結(jié)構(gòu)如表 41 所示。費用表結(jié)構(gòu)如表 45 所示。付款表結(jié)構(gòu)如表 49 所示。進貨退貨表結(jié)構(gòu)如表413 所示。本單位信息表結(jié)構(gòu)如表 417 所示。 圖 53 添加 TAction 對象 （ 4）在窗體上點選 ActionManager1 組件，在“ Object Inspector”窗口中，單擊 ActionBars 屬性右側(cè)的 【 ? 】按鈕，彈出如圖 54 所示的對話框。 （ 9）在“ Additional”組件頁中點選“ TImage”組件，分別添加到 Panel3組件和 Panel1 組件上，并在“ Object Inspector”窗口中通過 Picture 屬性為其加載圖片。 begin :=True。,39。 在窗體右側(cè)的功能按鈕單擊事件處理過程中，動態(tài)創(chuàng)建相應(yīng)的功能窗體。代碼如下： with statusbar1 do begin :=statusbar1?；A(chǔ)窗體如圖 57 所示。數(shù)據(jù)模塊如圖 58 所示。 （ 7）在窗體上添加 TADOQuery 組件和 TADOCommand 組件，設(shè)置它們的Connection 屬性為 “ ADOConnection1” 。 （ 3）在窗體上添加 TPanel 組件，命名為“ Panel1”，設(shè)置 Align 屬性為“ alBottom”； Visable 屬性為“ False”。 圖 514 為 TDBGrid 組件設(shè)置列標(biāo)題 （ 6 ）在 “Rave” 組 件 頁 中 點 選 “TRvDataSetConnection” 組件、“TRvProject” 組件，添加到窗體上，分別命名為 “ RvDataSetConnection1” 、“RvProject1” ，設(shè)置 RvDataSetConnection1 組 件 的 DataSet 屬性為“ADOQuery1” 。 with adoquery1 do begin Close。 在【添加】按鈕的單擊事件處理過程中動態(tài)創(chuàng)建添加庫存商品基本信息窗體。代碼如下： procedure (Sender: TObject)。不能刪除 39。 var searchwhat:string。fullnamed39。 (39。39。+Trim()+39。,mb_yesno)=Id_yes then with ADoquery1 do begin Close。請正確輸入條件 39。代碼如下： procedure (Sender: TObject)。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 圖 515 商品基本信息模塊運行界面 1．窗體設(shè)計步驟 （ 1）從基礎(chǔ)窗體繼承一個窗體，命名為“ F_sbjbcx”，設(shè)置其 Caption 屬性為“商品基本信息”。代碼如下： procedure (Sender: TObject)。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 :=fieldbyname(39。).AsString。provideinf39。 :=inttostr(fieldbyname(39。 調(diào)用 getspb