【正文】 lcode varchar 20 是 單據(jù)編號 units varchar 20 付款單位 gathering float 8 金額 handle varchar 20 經手人 summary varchar 40 摘要 （ 9）付款信息表（ tb_payment） 付款信息表用于保存付款信息。 表 410 銷售退貨明細表結構 字段名稱 字段類型 字段大小 主鍵否 功能描述 billcode Varchar 20 單據(jù)編號 tradecode Varchar 20 商品編號 Fullname Varchar 20 商品全名 standard varchar 10 商品規(guī)格 type varchar 10 商品型號 unit char 4 單位 produce varchar 20 產地 qty float 8 數(shù)量 price float 8 單價 tsum float 8 金額 billdate datetime 8 錄單日期 （ 11）銷售退貨表（ tb_resell_main） 銷售退貨表用于保存銷售退貨。 表 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 產地 qty float 8 數(shù)量 price float 8 進價 tsum float 8 金額 billdate datetime 8 錄單日期 （ 13）進貨退貨表（ tb_rewarehouse_main） 進貨退貨表用于存儲進貨退貨中主要的和相同的信息。 表 414 銷售明細表 字段名 數(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 產地 qty float 8 數(shù)量 price float 8 單價 tsum float 8 金額 billdate datetime 8 錄單日期 （ 15）銷售表（ tb_sell_main） 銷售表用于保存銷售信息中主要的和相同的信息。 表 416 庫存商品表結構 字段名 數(shù)據(jù)類型 長度 主鍵否 功能描述 tradecode varchar 6 商品編號 fullnamed varchar 20 是 商品全名 name varchar 10 商品簡稱 type varchar 10 商品類型 standard varchar 10 商品規(guī)格 unit varchar 4 單位 produce varchar 20 產地 qty float 8 庫存數(shù)量 price float 8 進貨時的最后一次進價 averageprice float 8 加權平均價 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） 本單位信 息表用于保存本單位的信息。 表 418 往來單位信息表結構 字段名 數(shù)據(jù)類型 長度 主鍵否 功能描述 unitcode varchar 5 單位編號 fullname varchar 20 是 單位全名 name varchar 10 單位簡稱 tax varchar 30 稅號 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 tel varchar 20 單位電話 linkman varchar 10 聯(lián)系人 address varchar 60 單位地址 accounts varchar 80 開戶行及帳號 gathering float 8 累計應收款 payment float 8 累計應付款 shortcode varchar 10 拼音簡碼 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 第五章 主要功能模塊設計 主窗體設計 主窗體是程序的控制中心，其他模塊都是通過主窗體來調用，所以主窗體的界面要設計的美觀易操作。 圖 52 添加 TActionToolBar 對象 （ 3）選擇“ Actions”選項卡，單擊【 New Action】按鈕，添加“ TAction”課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 對象，并在“ Object Inspector”窗口中設置 Caption 屬性，如圖 53 所示。 （ 7）在“ Win32”組件頁中點選“ TStatusBar”組件，添加到窗體上，命名為“ StatusBar1”。在窗體上添加 3 個 TPanel組件，分別命名為“ Panel3”、“ Panel1”、“ Panel4”，分別設置其 Align 屬性為“ alTop”、“ alLeft”、“ alClient”。 （ 10）在“ Additional”組件頁中點選“ TSpeedButton”組件，將 TSpeedButton組件添加到圖片相應的位置，設置其 Flat 屬性為“ True”； Caption 屬性為空。 Shift: TShiftState)。 在窗體的 OnCloseQuery 事件處理過程中讓用戶確認是否關閉窗體。是否退出系統(tǒng)？ 39。 end。 //設置面板在最前面 end。 //創(chuàng)建窗體 。指定TCheckBox 組件的父對象并設置該組 件的大小和位置。 :=75。 基礎窗體創(chuàng)建 創(chuàng)建基礎窗體主要為了提高開發(fā)速度和代碼的利用率，從基礎窗體繼承的子窗體具有基礎窗體的全部功能。代碼如下： procedure (Sender: TObject。 數(shù)據(jù)模塊設計 數(shù)據(jù)模塊窗體主要功能是統(tǒng)一管理數(shù)據(jù)組件。 TADOConnection 組件用于連接數(shù)據(jù)庫，其他數(shù)據(jù)庫組件通過它連接數(shù)據(jù)庫。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 圖 511 數(shù)據(jù)庫連接設置界面 （ 6）單擊【測試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫的連接。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 圖 512 庫存商品模塊運行界面 1．窗體設計步驟 （ 1）選擇 “ File” /“ New” /“ Other” 菜單項，打開 “ New Items” 對話框，選擇“ ima”選項卡 ，點選 “ F_base”選項 ，以繼承方式使用該窗體。右鍵單擊 TToolBar 組件，在彈出的菜單中選擇“ New Button”菜單項，并設置其 Style 屬性為“ tbsDivider”。點選 TComboBox 組件，在“ Object Inspector”窗口中，單擊 Items 屬性，在彈出的對話框中添加項目，如圖 513 所示。 （ 5）在“ Data Controls”組件頁中點選“ TDBGrid”組件，添加到窗體上，命名為“ DBGrid1”，設置其 Align 屬性為“ alClient”； DataSource 屬性為“ DataSource1”，雙擊 DBGrid1 組件，在彈出的列編輯器中設置字段標題，如圖514 所示。代碼如下： procedure (Sender: TObject)。 change:=False。Select * from tb_stock order by tradecode asc39。 end。 //調用父類的同名方法 (TF_sbjbcx, F_sbjbcx)。 在【刪除】按鈕的單擊事件處理過程中當用戶確認刪除后刪除數(shù)據(jù)。是否刪除當前記錄？ 39。 except (39。,mb_yesno)。代碼如下： procedure (Sender: TObject)。 if =False then begin searchwhat:=39。 1: searchwhat:=39。 3: searchwhat:=39。 。 //寫 SQL語句 (39。+searchwhat+39。)。%39。 end。提示 39。select * from tb_stock order by tradecode39。 except (39。,mb_ok)。 在【打印】按鈕的單擊事件處理過程中指定報表文件、預覽報表。39。商品基本信息模塊運行結果如圖 515 所示。在 GroupBox1 組件上添加 2 個 TLabel 組件和 2 個 TEdit組件。 2．程序相關代碼 在窗體的 OnShow 事件處理過程中如果為修改，將要修改的記錄顯示在窗體的編輯框中。fullnamed39。).AsString。 :=fieldbyname(39。standard39。).AsString。 :=fieldbyname(39。memo39。).AsInteger)。 end else begin (sender)。 end。 if =0 then spbh:=39。,1) //格式化編號 else spbh:=39。,strtoint(copy([0].AsString,2,5))+1)。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 圖 516 進貨單錄入模塊運行界面 1．窗體設計步驟 （ 1）從基礎窗體繼承一個窗體，命名為“ F_jhd”，設置其 Caption 屬性為“進貨單錄入”。 （ 3）在窗體上添加 TSpeedButton 組件，通過 Glyph 屬性為其指定圖標。 （ 5）在窗體上添加 TADOQuery組件，命名為“ ADOQuery1”，設置其 Connection屬性為“ ”。 :=1。 Cells[2,0]:=39。 Cells[4,0]:=39。 Cells[6,0]:=39。 Cells[8,0]:=39。 end。select * from tb_warehouse_main39。 (sender)。 代碼如下： procedure (Sender: TObject)。 。39。 end。 //將課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 數(shù)據(jù)添加到單元格中 end。 :=grow。在初步了解的基礎上，我根據(jù) 老師給予的關于 進銷存管理 系統(tǒng)設計思路的講解，對系統(tǒng)進行了詳細的需求分析。 到了數(shù)據(jù)庫設計階段，首先選擇了 SQL Server 2021 作為數(shù)據(jù)庫管理系統(tǒng)。我經過反復的改正后，界面固定下來。在經過和老師的交流討論之后，我的設計也逐漸進入了尾聲。 課件之家精心整理資料 歡迎你的欣賞 課件之家精心整理資料 歡迎你的欣賞 參考文獻 [1] Simon C[M].北京 :清華大學出版社 ,2021。 [5] 劉曉華 .精通 .NET核心技術 [M].北京 :電子工業(yè)出版社 ,2021。 [9]高春艷等 .Visual Basic 數(shù)據(jù)庫開發(fā)實例解析 .機械工 業(yè)出版社 ,2021。 [13]李文立等 .PowerBuilder 精彩編程 200例 .機械工業(yè)出版社 ,2021。 [17]李俊民等 .Visual Basic 工程應用與項目實踐 .機械工業(yè)出版社 ,2