【正文】 If 0 Then = True If Then 39。使控件獲得焦點 End If End If End If Dim qtp As Integer Dim tsum As Single For i = 1 To 99 If (i, 4) Then 39。統(tǒng)計商品數(shù)量 qty = Val((i, 4)) + qty = qty End If If (i, 5) Then 39。計算商品金額 (i, 6) = Format(Val((i, 4)) * Val((i, 5)), ) Else (i, 6) = End If If (i, 6) Then 39。統(tǒng)計商品金額 tsum = Val((i, 6)) + tsum = Format(tsum, ) End If Next i End Sub 的 KeyPress 事件 該事件主要實現(xiàn)的功能有：將 TextBox 控件中的數(shù)據(jù)傳輸給 MSFlexGrid 控件以及將TextBox 控件移動到表格下一單元格或者表格下一行。 關鍵代碼如下： Private Sub Text3_KeyPress(KeyAscii As Integer) 39。VbKeyReturn常數(shù)為鍵盤上的 回車鍵 If KeyAscii = vbKeyReturn Then 39。按回車鍵， text3向右 移動 = = 基于 B/S 結(jié)構(gòu)的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 27 If = 5 Then = + 1 = 1 Else If + 1 = 1 Then = + 1 Else If + 1 = 1 Then = + 1 = 1 End If End If End If End If End Sub 庫存狀況模塊實現(xiàn) 庫存狀況模塊的主要功能是 查看庫存商品數(shù)量、商品成本均價、庫存商品總價、庫存上下限設置，以及調(diào)用子模塊庫存明細帳。 在主窗體中選擇“庫存信息 /庫存狀況”命令，即可進入庫存狀況模塊中。如圖 12 所示： 基于 B/S 結(jié)構(gòu)的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 28 圖 12 庫存狀況界面 設計窗體界面與初始化 庫存狀況模塊的界面設計比較復雜，加載的控件比較多，控件主要有： ADO 控件、 MSFlexGrid控件和 ToolBar、 imageList 控件以及 DataCombo 控件等。當設置好界面后，由窗體的 Load事件進行初始化數(shù)據(jù)庫連接，設置 MSFlexGrid 控件的總行數(shù)、總列數(shù) ，以及定義 MSFlexGrid控件的列寬，并設置列表頭。 關鍵代碼如下： Private Sub Form_Load() = PublicStr 39。ADO控件的 RecordSource執(zhí)行 SQL語句 = SELECT * FROM tbS_stock = PublicStr = select * from tbS_stock Set = Adodc2 Set = Adodc2 = fullname = + 1: = 6 39。定義 MS1控件的總行數(shù)、總列數(shù)。 39。定義 MS1表的寬度 (0) = 12 * 25 * 1 (1) = 12 * 25 * 4 (2) = 12 * 25 * 8 (3) = 12 * 25 * 3 基于 B/S 結(jié)構(gòu)的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 29 (4) = 12 * 25 * 3 (5) = 12 * 25 * 3 39。設置固定行、列 39。 On Error Resume Next = 1: = 1 39。定義 MS1表的表頭 (0, 0) = NO。 (0, 1) = 商品編號 (0, 2) = 商品全名 (0, 3) = 庫存數(shù)量 (0, 4) = 成本均價 (0, 5) = 庫存總價 39。定義 MS1表的列序號 For i = 1 To (i, 0) = i Next i Call AddData (1).Text = 當前窗體是： + End Sub 庫存上下限設置 在本模塊中可以對庫存的上下限進行設置。運行程序，單擊“庫存上下限設置”按鈕，即可彈出“庫存上 下限設置”對話框。在“選擇商品名稱”組合框中，選擇要設置的商品名稱，然后在“庫存上限設置”文本框中輸入庫存上限，在“庫存下限報警設置”文本框中輸入庫存下限，單擊確定完成設置。這里利用 ADO 控件執(zhí)行 SQL 語句將文本框中的內(nèi)容寫入到數(shù)據(jù)庫中， 關鍵代碼如下： Private Sub cmdsave_Click() 39。ADO控件的 RecordSource執(zhí)行 SQL語句 On Error Resume Next = select * from tbS_stock where tradecode=39。 + (0) + 39。 If 0 Then If MsgBox(出現(xiàn)“數(shù)據(jù)庫中無有效數(shù)據(jù)”錯誤，是否繼續(xù)？ , vbQuestion + vbYesNo, 系統(tǒng)提示 ) = vbNo Then 基于 B/S 結(jié)構(gòu)的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 30 = False Exit Sub End If End If If 0 Then (upperlimit).Value = Val() (lowerlimit).Value = Val() MsgBox 設置成功！ = False = : = Else MsgBox 無庫存商品 End If End Sub 自定義過程向 MSFlexGrid 控件中添加數(shù)據(jù) 在本窗體中定義了一個自定義過程 AddData，用于將庫存商品數(shù)據(jù)動態(tài)顯示在MSFlexGrid 控件中，并將庫存總數(shù)量和庫存總價值都累加并顯示在狀態(tài)欄中。 關鍵代碼如下： Sub AddData() Dim qty As Integer Dim price As Single = SELECT * FROM tbS_stock ORDER BY qty For i = 1 To (i, 1) = (tradecode).Value (i, 2) = (fullname).Value (i, 3) = Val((qty).Value) If (averageprice).Value = 0 Then (i, 4) = (price).Value Else (i, 4) = Val((averageprice).Value) End If (i, 5) = Val((i, 4)) * Val((i, 3)) qty = qty + Val((i, 3)) 基于 B/S 結(jié)構(gòu)的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 31 price = price + (i, 5) Next i (2).Text = 庫存總數(shù)量： amp。 qty (3).Text = 庫存總價值： amp。 Format(price, ) amp。 元 End Sub 銷售信息模塊實現(xiàn) 銷售信息模塊：銷售單、銷售退貨、銷售統(tǒng)計不含退貨、月銷售狀況、商品銷售排行、與代理商對帳、商品銷售成本表。在“銷售信息 /商品銷售”命令，即可進入產(chǎn)品銷售界面。其實現(xiàn) 關鍵代碼如下： Private Sub Form_Load() = PublicStr = select * from tbS_sell_main = PublicStr = select * from tbS_sell_detailed = PublicStr = select * from tbS_currentaccount = PublicStr = select unitcode,fullname from tbS_units Set = AdoUnits = PublicStr = select employecode,fullname from tbS_employ Set = AdoEmploy = PublicStr = select * from tbS_stock Set = AdoStock 39。ADO控件的 RecordSource執(zhí)行 SQL語句 = select * from tbS_sell_main order by billcode 基于 B/S 結(jié)構(gòu)的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 32 If 0 Then Text1(0).Text = Format(Now, yyyymmdd) amp。 XS amp。 Left(Mid((1), 11, 17), 7) + 1 Else Text1(0).Text = Format(Now, yyyymmdd) amp。 XS1000001 End If = Format(Now, yyyymmdd) = 100: = 7 39。定義 MS1控件的總行數(shù)、總列數(shù)。 39。定義 MS1表的寬度 (0) = 12 * 25 * 1 (1) = 12 * 25 * 4 (2) = 12 * 25 * 9 (3) = 12 * 25 * 3 (4) = 12 * 25 * 3 (5) = 12 * 25 * 3 (6) = 12 * 25 * 4 39。設置固定行、列 = 1: = 1 39。定義 MS1表的表頭 (0, 0) = NO。 (0, 1) = 商品編號 (0, 2) = 商品全名