【正文】 8實(shí)付金額（12）進(jìn)貨退貨明細(xì)表（tb_rewarehouse_detailed）進(jìn)貨退貨明細(xì)表用于保存進(jìn)貨退貨詳細(xì)信息。表412 進(jìn)貨退貨明細(xì)表字段名數(shù)據(jù)類型長(zhǎng)度主鍵否功能描述billcodevarchar20單據(jù)編號(hào)tradecodevarchar20商品編號(hào)fullnamevarchar20商品全稱typevarchar10商品型號(hào)standardvarchar10商品規(guī)格unitvarchar4單位producevarchar20產(chǎn)地qtyfloat8數(shù)量pricefloat8進(jìn)價(jià)tsumfloat8金額billdatedatetime8錄單日期（13）進(jìn)貨退貨表（tb_rewarehouse_main）進(jìn)貨退貨表用于存儲(chǔ)進(jìn)貨退貨中主要的和相同的信息。表413 退貨表字段名數(shù)據(jù)類型長(zhǎng)度主鍵否功能描述billdatedatetime錄單日期billcodevarchar20是單據(jù)編號(hào)unitsvarchar20收貨單位handlevarchar20經(jīng)手人summaryvarchar100摘要fullgatheringfloat8應(yīng)收金額gatheringfloat8實(shí)收金額（14）銷售明細(xì)表（tb_sell_detailed）銷售明細(xì)表用于保存銷售詳細(xì)信息。表414 銷售明細(xì)表字段名數(shù)據(jù)類型長(zhǎng)度主鍵否功能描述billcodevarchar20單據(jù)編號(hào)tradecodevarchar20商品編號(hào)fullnamevarchar20商品全稱typevarchar10商品型號(hào)standardvarchar10商品規(guī)格unitvarchar4單位producevarchar20產(chǎn)地qtyfloat8數(shù)量pricefloat8單價(jià)tsumfloat8金額billdatedatetime8錄單日期（15）銷售表（tb_sell_main）銷售表用于保存銷售信息中主要的和相同的信息。表415 銷售表結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度主鍵否功能描述billdatevarchar20錄單日期billcodevarchar20是單據(jù)編號(hào)unitsvarchar20購(gòu)貨單位handlevarchar20經(jīng)手人summaryvarchar100摘要fullgatheringfloat8應(yīng)收金額gatheringfloat8實(shí)收金額（16）庫(kù)存商品信息表（tb_stock）庫(kù)存商品信息表用于保存庫(kù)存商品信息。表416 庫(kù)存商品表結(jié)構(gòu) 字段名數(shù)據(jù)類型長(zhǎng)度主鍵否功能描述tradecodevarchar6商品編號(hào)fullnamedvarchar20是商品全名namevarchar10商品簡(jiǎn)稱typevarchar10商品類型standardvarchar10商品規(guī)格unitvarchar4單位producevarchar20產(chǎn)地qtyfloat8庫(kù)存數(shù)量pricefloat8進(jìn)貨時(shí)的最后一次進(jìn)價(jià)averagepricefloat8加權(quán)平均價(jià)salepricefloat8銷售時(shí)的最后一次銷價(jià)checkedfloat8盤點(diǎn)數(shù)量upperlimitint4存貨報(bào)警上限lowerlimitint4存貨報(bào)警下限provideinfvarchar40商品供貨信息memovarchar40備注shortcodevarchar10拼音簡(jiǎn)碼（17）本單位信息表（tb_unit）本單位信息表用于保存本單位的信息。表417 本單位信息表結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度主鍵否功能描述numbervarchar20是單位編號(hào)namevarchar50單位全稱simplenamevarchar10單位簡(jiǎn)稱taxvarchar30稅號(hào)telvarchar20單位電話linkmanvarchar10聯(lián)系人addressvarchar60單位地址accountsvarchar80開戶行及帳號(hào)（18）往來(lái)單位信息表（tb_units）往來(lái)單位信息表用于保存往來(lái)單位的信息。表418 往來(lái)單位信息表結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度主鍵否功能描述unitcodevarchar5單位編號(hào)fullnamevarchar20是單位全名namevarchar10單位簡(jiǎn)稱taxvarchar30稅號(hào)telvarchar20單位電話linkmanvarchar10聯(lián)系人addressvarchar60單位地址accountsvarchar80開戶行及帳號(hào)gatheringfloat8累計(jì)應(yīng)收款paymentfloat8累計(jì)應(yīng)付款shortcodevarchar10拼音簡(jiǎn)碼第五章 主要功能模塊設(shè)計(jì) 主窗體設(shè)計(jì)主窗體是程序的控制中心，其他模塊都是通過主窗體來(lái)調(diào)用，所以主窗體的界面要設(shè)計(jì)的美觀易操作。圖51 主窗體運(yùn)行界面（1）運(yùn)行VS會(huì)自動(dòng)創(chuàng)建一個(gè)窗體，設(shè)置該窗體為程序主窗體，命名為“F_zct”，設(shè)置窗體的Caption屬性為“超市進(jìn)銷存管理系統(tǒng)”；BorderStyle屬性為“bsDialog”；KeyPreview屬性為“True”。 圖52 添加TActionToolBar對(duì)象（3）選擇“Actions”選項(xiàng)卡，單擊【New Action】按鈕，添加“TAction”對(duì)象，并在“Object Inspector”窗口中設(shè)置Caption屬性，如圖53所示。圖54 菜單欄設(shè)置界面1（5）在彈出的對(duì)話框中點(diǎn)選“0ActionBarActionTooBar1”，在“Object Inspector”窗口中，單擊Items屬性右側(cè)的【…】按鈕，在彈出的對(duì)話框中，單擊【Add New】按鈕添加菜單項(xiàng)，并設(shè)置各個(gè)菜單項(xiàng)的Action屬性，如圖55所示。（7）在“Win32”組件頁(yè)中點(diǎn)選“TStatusBar”組件，添加到窗體上，命名為“StatusBar1”。在“Object Inspector”窗口中設(shè)置面板的Width屬性和Caption屬性，如圖56所示。在窗體上添加3個(gè)TPanel組件，分別命名為“Panel3”、“Panel1”、“Panel4”，分別設(shè)置其Align屬性為“alTop”、“alLeft”、“alClient”。當(dāng)用戶單擊主窗體左側(cè)的按鈕時(shí)，在右則將彈出相應(yīng)的功能圖片。（10）在“Additional”組件頁(yè)中點(diǎn)選“TSpeedButton”組件，將TSpeedButton組件添加到圖片相應(yīng)的位置，設(shè)置其Flat屬性為“True”；Caption屬性為空。代碼如下：procedure (Sender: TObject。 Shift: TShiftState)。 //設(shè)置窗體先接受鍵盤按下事件 if key=vk_F5 then Close。在窗體的OnCloseQuery事件處理過程中讓用戶確認(rèn)是否關(guān)閉窗體。 var CanClose: Boolean)。是否退出系統(tǒng)？39。提示39。end。代碼如下：procedure (Sender: TObject)。 //設(shè)置面板在最前面end。動(dòng)態(tài)創(chuàng)建“庫(kù)存狀況窗體”代碼如下：procedure (Sender: TObject)。 //創(chuàng)建窗體 。 //釋放窗體end。指定TCheckBox組件的父對(duì)象并設(shè)置該組件的大小和位置。 :=4。 :=75。 :=true。 基礎(chǔ)窗體創(chuàng)建創(chuàng)建基礎(chǔ)窗體主要為了提高開發(fā)速度和代碼的利用率，從基礎(chǔ)窗體繼承的子窗體具有基礎(chǔ)窗體的全部功能。圖57 基礎(chǔ)窗體1．基礎(chǔ)窗體設(shè)計(jì)步驟添加一個(gè)新窗體，命名為“F_base”，設(shè)置其BorderStyle屬性為“bsDialog”；KeyPreview屬性為“True”。代碼如下：procedure (Sender