超市進銷存管理系統畢業論文(編輯修改稿)

　

【文章內容簡介】 品型號standardvarchar10商品規格unitvarchar4單位producevarchar20產地qtyfloat8數量pricefloat8單價tsumfloat8金額billdatedatetime8錄單日期（15）銷售表（tb_sell_main）銷售表用于保存銷售信息中主要的和相同的信息。銷售表結構如表415所示。表415 銷售表結構字段名數據類型長度主鍵否功能描述billdatevarchar20錄單日期billcodevarchar20是單據編號unitsvarchar20購貨單位handlevarchar20經手人summaryvarchar100摘要fullgatheringfloat8應收金額gatheringfloat8實收金額（16）庫存商品信息表（tb_stock）庫存商品信息表用于保存庫存商品信息。庫存商品表結構如表416所示。表416 庫存商品表結構 字段名數據類型長度主鍵否功能描述tradecodevarchar6商品編號fullnamedvarchar20是商品全名namevarchar10商品簡稱typevarchar10商品類型standardvarchar10商品規格unitvarchar4單位producevarchar20產地qtyfloat8庫存數量pricefloat8進貨時的最后一次進價averagepricefloat8加權平均價salepricefloat8銷售時的最后一次銷價checkedfloat8盤點數量upperlimitint4存貨報警上限lowerlimitint4存貨報警下限provideinfvarchar40商品供貨信息memovarchar40備注shortcodevarchar10拼音簡碼（17）本單位信息表（tb_unit）本單位信息表用于保存本單位的信息。本單位信息表結構如表417所示。表417 本單位信息表結構字段名數據類型長度主鍵否功能描述numbervarchar20是單位編號namevarchar50單位全稱simplenamevarchar10單位簡稱taxvarchar30稅號telvarchar20單位電話linkmanvarchar10聯系人addressvarchar60單位地址accountsvarchar80開戶行及帳號（18）往來單位信息表（tb_units）往來單位信息表用于保存往來單位的信息。往來單位信息表結構如表418所示。表418 往來單位信息表結構字段名數據類型長度主鍵否功能描述unitcodevarchar5單位編號fullnamevarchar20是單位全名namevarchar10單位簡稱taxvarchar30稅號telvarchar20單位電話linkmanvarchar10聯系人addressvarchar60單位地址accountsvarchar80開戶行及帳號gatheringfloat8累計應收款paymentfloat8累計應付款shortcodevarchar10拼音簡碼第五章 主要功能模塊設計 主窗體設計主窗體是程序的控制中心，其他模塊都是通過主窗體來調用，所以主窗體的界面要設計的美觀易操作。超市進銷存管理系統主窗體運行結果如圖51所示。圖51 主窗體運行界面（1）運行VS會自動創建一個窗體，設置該窗體為程序主窗體，命名為“F_zct”，設置窗體的Caption屬性為“超市進銷存管理系統”；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屬性右側的【…】按鈕，彈出如圖54所示的對話框。圖54 菜單欄設置界面1（5）在彈出的對話框中點選“0ActionBarActionTooBar1”，在“Object Inspector”窗口中，單擊Items屬性右側的【…】按鈕，在彈出的對話框中，單擊【Add New】按鈕添加菜單項，并設置各個菜單項的Action屬性，如圖55所示。 圖55 菜單欄設置界面2（6）點選各菜單項，在“Object Inspector”窗口中，單擊Items屬性右側的【…】按鈕，在彈出的對話框中設置子菜單項。（7）在“Win32”組件頁中點選“TStatusBar”組件，添加到窗體上，命名為“StatusBar1”。TStatusBar組件用于顯示狀態信息，雙擊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屬性為其加載圖片。當用戶單擊主窗體左側的按鈕時，在右則將彈出相應的功能圖片。在右側的面板中添加多個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 CanClose: Boolean)。begin if (39。是否退出系統？39。,39。提示39。,mb_yesno)=id_no then CanClose:=False。end。在窗體右側按鈕的單擊事件處理過程中，設置相應的面板在其他面板前面。代碼如下：procedure (Sender: TObject)。begin 。 //設置面板在最前面end。在窗體右側的功能按鈕單擊事件處理過程中，動態創建相應的功能窗體。動態創建“庫存狀況窗體”代碼如下：procedure (Sender: TObject)。begin (TF_kczk, F_kczk)。 //創建窗體 。 //顯示窗體 。 //釋放窗體end。在窗體的OnShow事件處理過程中，添加TCheckBox組件到面板中。指定TCheckBox組件的父對象并設置該組件的大小和位置。代碼如下：with statusbar1 do begin