【文章內(nèi)容簡介】 表 49 付款表結構 字段名稱 字段類型 字段大小 主鍵否 功能描述 billdate datetime 8 錄單日期 billcode varchar 20 是 單據(jù)編號 units varchar 20 收款單位 payment float 8 金額 handle varchar 20 經(jīng)手人 summary varchar 100 摘要 （ 10）銷售退貨明細表（ tb_resell_detailed） 銷售退貨明細表用于保存銷售退貨的詳細信息。銷售退貨明細表結構如 表 410所示。 表 410 銷售退貨明細表結構 字段名稱 字段類型 字段大小 主鍵否 功能描述 billcode Varchar 20 單據(jù)編號 tradecode Varchar 20 商品編號 Fullname Varchar 20 商品全名 standard varchar 10 商品規(guī)格 type varchar 10 商品型號 unit char 4 單位 produce varchar 20 產(chǎn)地 qty float 8 數(shù)量 price float 8 單價 tsum float 8 金額 billdate datetime 8 錄單日期 （ 11）銷售退貨表（ tb_resell_main） 銷售退貨表用于保存銷售退貨。銷售退貨表結構如表 411 所示。 表 411 銷售退貨表結構 字段名 數(shù)據(jù)類型 長度 主鍵否 功能描述 billdate datetime 錄單日期 billcode varchar 20 是 單據(jù)編號 units varchar 20 退貨單位 handle varchar 20 經(jīng)手人 summary varchar 100 摘要 fullpayment float 8 應付金額 payment float 8 實付金額 （ 12）進貨退貨明細表（ tb_rewarehouse_detailed） 進貨退貨明細表用于保存進貨退貨詳細信息。進貨退貨明細表結構如表 412 所示。 表 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） 進貨退貨表用于存儲進貨退貨中主要的和相同的信息。進貨退貨表結構如表413 所示。 表 413 退貨表 字段名 數(shù)據(jù)類型 長度 主鍵否 功能描述 billdate datetime 錄單日期 billcode varchar 20 是 單據(jù)編號 units varchar 20 收貨單位 handle varchar 20 經(jīng)手人 summary varchar 100 摘要 fullgathering float 8 應收金額 gathering float 8 實收金額 （ 14）銷售明細表（ tb_sell_detailed） 銷售明細表用于保存銷售詳細信息。銷售 明細表結構如表 414 所示。 表 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 產(chǎn)地 qty float 8 數(shù)量 price float 8 單價 tsum float 8 金額 billdate datetime 8 錄單日期 （ 15）銷售表（ tb_sell_main） 銷售表用于保存銷售信息中主要的和相同的信息。銷售表結構如表 415 所示。 表 415 銷售表結構 字段名 數(shù)據(jù)類型 長度 主鍵否 功能描述 billdate varchar 20 錄單日期 billcode varchar 20 是 單據(jù)編號 units varchar 20 購貨單位 handle varchar 20 經(jīng)手人 summary varchar 100 摘要 fullgathering float 8 應收金額 gathering float 8 實收金額 （ 16）庫存商品信息表（ tb_stock） 庫存商品信息表用于保存庫存商品信息。庫存商品表結構如表 416 所示。 表 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 產(chǎn)地 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） 本單位信息表用于保存本單位的信息。本單位信息表結構如表 417 所示。 表 417 本單位信息表結構 字段名 數(shù)據(jù)類型 長度 主鍵否 功能描述 number varchar 20 是 單位編號 name varchar 50 單位全稱 simplename varchar 10 單位簡 稱 tax varchar 30 稅號 tel varchar 20 單位電話 linkman varchar 10 聯(lián)系人 address varchar 60 單位地址 accounts varchar 80 開戶行及帳號 （ 18）往來單位信息表（ tb_units） 往來單位信息表用于保存往來單位的信息。往來單位信息表結構如表 418 所示。 表 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 拼音簡碼 第五章 主要功能模塊設計 主窗體設計 主窗體是程序的控制中心，其他模塊都是通過主窗體來調(diào)用，所以主窗體的界面要設計的美觀易操作。超市進銷存管理系統(tǒng)主窗體運行結果如圖 51 所示。 圖 51 主窗體運行界面 （ 1）運行 Delphi 會自動創(chuàng)建一個窗體，設置該窗體為程序主窗體，命名為“ F_zct”，設置窗體的 Caption 屬性為“超市進銷存管理系統(tǒng)”； BorderStyle屬性為“ bsDialog”； KeyPreview 屬性為“ True”。 （ 2）在 “ Additional”組件頁中點選“ TActionManager”組件，添加到窗體上，命名為“ ActionManage1”，雙擊該組件打開“動作編輯器”，選擇“ Toolbars”選項卡，單擊【 New】按鈕添加“ TActionToolBar”對象，命名為“ ActionToolBar1”，如圖 52 所示。 圖 52 添加 TActionToolBar 對象 （ 3）選擇“ Actions”選項卡，單擊【 New Action】按鈕，添加“ TAction” 對象，并在“ Object Inspector”窗口中設置 Caption 屬性，如圖 53 所示。 圖 53 添加 TAction 對象 （ 4）在窗體上點選 ActionManager1 組件，在“ Object Inspector”窗口中，單擊 ActionBars 屬性右側(cè)的【 ? 】按鈕，彈出如圖 54 所示的對話框。 圖 54 菜單欄設置界面 1 （ 5）在彈出的對話框中點選“ 0ActionBarActionTooBar1”，在“ Object Inspector”窗口中，單擊 Items 屬性右側(cè)的【 ? 】按鈕，在彈出的對話框中，單擊【 Add New】按鈕添加菜單項，并設置各個菜單項的 Action 屬性，如圖 55所示。 圖 55 菜單欄設置界面 2 （ 6）點選各菜單項，在“ Object Inspector”窗口中，單擊 Items 屬性右側(cè)的【 ? 】按鈕，在彈出的對話框中設置子菜單項。 （ 7）在“ Win32”組件頁中點選“ TStatusBar”組件，添加到窗體上，命名為“ StatusBar1”。 TStatusBar 組件用于顯示狀態(tài)信息，雙擊 StatusBar1 組件，在彈出的對話框中單擊【 Add New】 按鈕添加面板。在“ Object Inspector”窗口中設置面板的 Width 屬性和 Caption 屬性，如圖 56 所示。 圖 56 面板編輯器界面 （ 8）在“ Standard”組件頁中點選“ TPanel”組件。在窗體上添加 3 個 TPanel組件，分別命名為“ Panel3”、“ Panel1”、“ Panel4”，分別設置其 Align 屬性為“ alTop”、“ alLeft”、“ alClient”。 （ 9）在“ Additional”組件頁中點選“ TImage”組件，分別添加到 Panel3組件和 Panel1 組件上，并 在“ Object Inspector”窗口中通過 Picture 屬性為其加載圖片。當用戶單擊主窗體左側(cè)的按鈕時，在右則將彈出相應的功能圖片。在右側(cè)的面板中添加多個 TPanel 組件，并在相應的 TPanel 組件上添加 TImage組件，并為 TImage 組件加載圖片。 （ 10）在“ Additional”組件頁中點選“ TSpeedButton”組件，將 TSpeedButton組件添加到圖片相應的位置，設置其 Flat 屬性為“ True”； Caption 屬性為空。 2．程序相關代碼 在窗體的 OnKeyDown 事件處理過程中設 置用戶按下〈 F5〉鍵時關閉窗體。代碼如下： procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 begin :=True。 //設置窗體先接受鍵盤按下事件 if key=vk_F5 then Close。 end。 在窗體的 OnCloseQuery 事件處理過程中讓用戶確認是否關閉窗體。代碼如下： procedure (Sender: TObject。 var CanClo