【正文】 4 銷售明細(xì)表 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 功能描述 billcode varchar 20 單據(jù)編號(hào) tradecode varchar 20 商品編號(hào) fullname varchar 20 商品全稱 type varchar 10 商品型號(hào) standard varchar 10 商品規(guī)格 unit varchar 4 單位 produce varchar 20 產(chǎn)地 qty float 8 數(shù)量 price float 8 單價(jià) tsum float 8 金額 billdate datetime 8 錄單日期 （ 15）銷售表（ tb_sell_main） 銷售表用于保存銷售信息中主要的和相同的信息。 表 418 往來(lái)單位信息表結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 功能描述 unitcode varchar 5 單位編號(hào) fullname varchar 20 是 單位全名 name varchar 10 單位簡(jiǎn)稱 tax varchar 30 稅號(hào) 16 tel varchar 20 單位電話 linkman varchar 10 聯(lián)系 人 address varchar 60 單位地址 accounts varchar 80 開戶行及帳號(hào) gathering float 8 累計(jì)應(yīng)收款 payment float 8 累計(jì)應(yīng)付款 shortcode varchar 10 拼音簡(jiǎn)碼 17 第五章 主要功能模塊設(shè)計(jì) 主窗體設(shè)計(jì) 主窗體是程序的控制中心，其他模塊都是通過(guò)主窗體來(lái)調(diào)用，所以主窗體的界面要設(shè)計(jì)的美觀易操作。 （ 7）在“ Win32”組件頁(yè)中點(diǎn)選“ TStatusBar”組件，添加到窗體上，命名為“ StatusBar1”。 （ 10）在“ Additional”組件頁(yè)中點(diǎn)選“ TSpeedButton”組件，將 TSpeedButton組件添加到圖片相應(yīng)的位置，設(shè)置其 Flat 屬性為“ True”； Caption 屬性為空。 在窗體的 OnCloseQuery 事件處理過(guò)程中讓用戶確認(rèn)是否關(guān)閉窗體。 end。 //創(chuàng)建窗體 。 :=75。代碼如下： procedure (Sender: TObject。 TADOConnection 組件用于連接數(shù)據(jù)庫(kù)，其他數(shù)據(jù)庫(kù)組件通過(guò)它連接數(shù)據(jù)庫(kù)。 24 圖 512 庫(kù)存商品模塊運(yùn)行界面 1．窗體設(shè)計(jì)步驟 （ 1）選擇 “ File” /“ New” /“ Other” 菜單項(xiàng)，打開 “ New Items” 對(duì)話框，選擇“ ima”選項(xiàng)卡 ，點(diǎn)選 “ F_base”選項(xiàng) ，以繼承方式使用該窗體。點(diǎn)選 TComboBox 組件，在“ Object Inspector”窗口中，單擊 Items 屬性，在彈出的對(duì)話框中添加項(xiàng)目，如圖 513 所示。代碼如下： procedure (Sender: TObject)。Select * from tb_stock order by tradecode asc39。 //調(diào)用父類的同名方法 (TF_sbjbcx, F_sbjbcx)。是否刪除當(dāng)前記錄？ 39。,mb_yesno)。 if =False then begin searchwhat:=39。 3: searchwhat:=39。 //寫 SQL語(yǔ)句 (39。)。 end。select * from tb_stock order by tradecode39。,mb_ok)。39。在 GroupBox1 組件上添加 2 個(gè) TLabel 組件和 2 個(gè) TEdit組件。fullnamed39。 :=fieldbyname(39。).AsString。memo39。 end else begin (sender)。 if =0 then spbh:=39。,strtoint(copy([0].AsString,2,5))+1)。 （ 3）在窗體上添加 TSpeedButton 組件，通過(guò) Glyph 屬性為其指定圖標(biāo)。 :=1。 Cells[4,0]:=39。 Cells[8,0]:=39。select * from tb_warehouse_main39。 代碼如下： procedure (Sender: TObject)。39。 //將 32 數(shù)據(jù)添加到單元格中 end。在初步了解的基礎(chǔ)上，我根據(jù)老師 給予的關(guān)于 進(jìn)銷存管理 系統(tǒng)設(shè)計(jì)思路的講解，對(duì)系統(tǒng)進(jìn)行了詳細(xì)的需求分析。我經(jīng)過(guò)反復(fù)的改正后，界面固定下來(lái)。 34 出品人：林康禁、巫茂森、楊智雄 。在可以實(shí)現(xiàn)同一功能的多個(gè)控件中經(jīng)過(guò)仔細(xì)研究，確定了最優(yōu)的控件。在最初的幾個(gè)星期里，我一直在做完善需求分析的重復(fù)工作。 。 break。 //調(diào)用父類的同名方法 (TF_kcspxz, F_kcspxz)。 Open。 Cells[9,0]:=39。 31 Cells[5,0]:=39。 //初始化為當(dāng)天日期 with do //設(shè)置列標(biāo)題 begin Cells[1,0]:=39。 （ 4）在窗體上添加 TPanel 組件，命名為 “ Panel1”，設(shè)置其 Caption 屬性為空。 進(jìn)貨單錄入模塊設(shè)計(jì) 進(jìn)貨單錄入窗體主要功能是錄入進(jìn)貨的相關(guān)信息，在該模塊中支持多行錄入，可以調(diào)用其他信息提示窗體。+formatfloat(39。 end。 :=inttostr(fieldbyname(39。produce39。).AsString。 :=fieldbyname(39。 （ 4）在窗體上添加 TLabel 組件和 TEdit 組件，在“ Additional”組件頁(yè)中點(diǎn)選“ TBitBtn”組件，添加到窗體上，分別命名為“ BitBtn1”、“ BitBtn2”，設(shè)置 BitBtn1 組件的 Caption 屬性為“保存”，通過(guò) Glyph 屬性為其指定圖標(biāo)。 //預(yù)覽報(bào)表 end。 end。 //刷新 open。是否刷新表？ 39。a39。+39。 end。 27 case of //設(shè)置要查找的字段 0: searchwhat:=39。 end。提示39。 //顯示窗體 。 //排序 Open。 //由于窗體是繼承自基窗體該代碼自動(dòng)生成。在“ Data Access”組件頁(yè)中點(diǎn)選“ TDataSource”組件，添加到窗體上，命名為“ DataSource1”。 （ 2）在“ Win32”組件頁(yè)中點(diǎn)選“ TToolBar”組件，添加到窗體上。 22 圖 59 設(shè)置連接字符串界面 （ 4）單 擊【 Build】按鈕，在彈出的對(duì)話框中 “ 提供程序 ”選項(xiàng)卡 中 選擇希望連接的數(shù)據(jù) 所需的驅(qū)動(dòng)程序， 如圖 510 所示 。 begin if Key=13 then perform(WM_NEXTDLGCTL,0,0)。 :=true。 //釋放窗體 end。代碼如下： procedure (Sender: TObject)。 var CanClose: Boolean)。代碼如下： 20 procedure (Sender: TObject。在“ Object Inspector”窗口中設(shè)置面板的 Width 屬性和 Caption 屬性，如圖 56 所示。 圖 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”。 表 415 銷售表結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 功能描述 billdate varchar 20 錄單日期 billcode varchar 20 是 單據(jù)編號(hào) units varchar 20 購(gòu)貨單位 handle varchar 20 經(jīng)手人 summary varchar 100 摘要 15 fullgathering float 8 應(yīng)收金額 gathering float 8 實(shí)收金額 （ 16）庫(kù)存商品信息表（ tb_stock） 庫(kù)存商品信息表用于保存庫(kù)存商品信息 。 表 411 銷售退貨表結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 功能描述 billdate datetime 錄單日期 billcode varchar 20 是 單據(jù)編號(hào) units varchar 20 退貨單位 handle varchar 20 經(jīng)手人 summary varchar 100 摘要 fullpayment float 8 應(yīng)付金額 payment float 8 實(shí)付金額 （ 12）進(jìn)貨退貨明細(xì)表（ tb_rewarehouse_detailed） 進(jìn)貨退貨明細(xì)表 用于保存進(jìn)貨退貨詳細(xì)信息。 表 47 費(fèi)用類型表 字段名稱 字段類型 字段大小 主鍵否 功能描述 subjectcode varchar 3 科目編號(hào) fullname varhcar 20 是 科目全稱 name varchar 10 科目簡(jiǎn)稱 memo varhcar 40 備注 shortcode varchar 10 拼音簡(jiǎn)碼 （ 8）收款信息表（ tb_gathering） 收款信息表用于保存收款信息。 表 43 進(jìn)貨明細(xì)表結(jié)構(gòu) 字段名稱 字段類型 字段大小 主鍵否 功能描述 billcode Varchar 20 單據(jù)編號(hào) tradecode Varchar 20 商品編號(hào) fullname Varchar 20 商品全稱 type Varchar 10 商品型號(hào) standard