【正文】 _main）進貨退貨表用于存儲進貨退貨中主要的和相同的信息。表414 銷售明細表字段名數(shù)據(jù)類型長度主鍵否功能描述billcodevarchar20單據(jù)編號tradecodevarchar20商品編號fullnamevarchar20商品全稱typevarchar10商品型號standardvarchar10商品規(guī)格unitvarchar4單位producevarchar20產(chǎn)地qtyfloat8數(shù)量pricefloat8單價tsumfloat8金額billdatedatetime8錄單日期（15）銷售表（tb_sell_main）銷售表用于保存銷售信息中主要的和相同的信息。表416 庫存商品表結構 字段名數(shù)據(jù)類型長度主鍵否功能描述tradecodevarchar6商品編號fullnamedvarchar20是商品全名namevarchar10商品簡稱typevarchar10商品類型standardvarchar10商品規(guī)格unitvarchar4單位producevarchar20產(chǎn)地qtyfloat8庫存數(shù)量pricefloat8進貨時的最后一次進價averagepricefloat8加權平均價salepricefloat8銷售時的最后一次銷價checkedfloat8盤點數(shù)量upperlimitint4存貨報警上限lowerlimitint4存貨報警下限provideinfvarchar40商品供貨信息memovarchar40備注shortcodevarchar10拼音簡碼（17）本單位信息表（tb_unit）本單位信息表用于保存本單位的信息。表418 往來單位信息表結構字段名數(shù)據(jù)類型長度主鍵否功能描述unitcodevarchar5單位編號fullnamevarchar20是單位全名namevarchar10單位簡稱taxvarchar30稅號telvarchar20單位電話linkmanvarchar10聯(lián)系人addressvarchar60單位地址accountsvarchar80開戶行及帳號gatheringfloat8累計應收款paymentfloat8累計應付款shortcodevarchar10拼音簡碼第五章 主要功能模塊設計 主窗體設計主窗體是程序的控制中心，其他模塊都是通過主窗體來調用，所以主窗體的界面要設計的美觀易操作。 圖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 2005作為數(shù)據(jù)庫管理系統(tǒng)。我經(jīng)過反復的改正后，界面固定下來。在經(jīng)過和老師的交流討論之后，我的設計也逐漸進入了尾聲。出品人：林康禁、巫茂森、楊智雄