【導(dǎo)讀】進(jìn)銷存數(shù)據(jù)的統(tǒng)計(jì)對(duì)公司的發(fā)展及決策起著重要的作用?？蛻魴n案的管理，商品基礎(chǔ)信?，F(xiàn)有進(jìn)銷存系統(tǒng)已實(shí)現(xiàn)了商品銷售，進(jìn)貨上柜，賣場(chǎng)庫(kù)存數(shù)據(jù)等各種統(tǒng)計(jì)數(shù)據(jù)，從而大。大減少了數(shù)據(jù)的流通環(huán)節(jié)，增強(qiáng)了數(shù)據(jù)的可靠性。業(yè)的管理改革提供切實(shí)可行的途徑。更重要的是，進(jìn)銷存管理系統(tǒng)可以及時(shí)通過信息技術(shù)把。企業(yè)數(shù)據(jù)轉(zhuǎn)化為企業(yè)信息，進(jìn)而為相關(guān)管理者提供決策依據(jù)。進(jìn)銷存管理的信息化、自動(dòng)化和科學(xué)化。此系統(tǒng)前臺(tái)應(yīng)用程序界面采用開發(fā)，系統(tǒng)的。后臺(tái)數(shù)據(jù)庫(kù)選用SQL2020作為開發(fā)工具。

　　

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