【正文】 定義 MS1表的表頭 (0, 0) = NO。定義 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。定義 MS1控件的總行數(shù)、總列數(shù)。 Left(Mid((1), 11, 17), 7) + 1 Else Text1(0).Text = Format(Now, yyyymmdd) amp。ADO控件的 RecordSource執(zhí)行 SQL語句 = select * from tbS_sell_main order by billcode 基于 B/S 結構的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 32 If 0 Then Text1(0).Text = Format(Now, yyyymmdd) amp。在“銷售信息 /商品銷售”命令，即可進入產(chǎn)品銷售界面。 Format(price, ) amp。 關鍵代碼如下： 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 結構的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 31 price = price + (i, 5) Next i (2).Text = 庫存總數(shù)量： amp。 + (0) + 39。這里利用 ADO 控件執(zhí)行 SQL 語句將文本框中的內(nèi)容寫入到數(shù)據(jù)庫中， 關鍵代碼如下： Private Sub cmdsave_Click() 39。運行程序，單擊“庫存上下限設置”按鈕，即可彈出“庫存上 下限設置”對話框。 (0, 1) = 商品編號 (0, 2) = 商品全名 (0, 3) = 庫存數(shù)量 (0, 4) = 成本均價 (0, 5) = 庫存總價 39。 On Error Resume Next = 1: = 1 39。定義 MS1表的寬度 (0) = 12 * 25 * 1 (1) = 12 * 25 * 4 (2) = 12 * 25 * 8 (3) = 12 * 25 * 3 基于 B/S 結構的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 29 (4) = 12 * 25 * 3 (5) = 12 * 25 * 3 39。定義 MS1控件的總行數(shù)、總列數(shù)。 關鍵代碼如下： Private Sub Form_Load() = PublicStr 39。如圖 12 所示： 基于 B/S 結構的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 28 圖 12 庫存狀況界面 設計窗體界面與初始化 庫存狀況模塊的界面設計比較復雜，加載的控件比較多，控件主要有： ADO 控件、 MSFlexGrid控件和 ToolBar、 imageList 控件以及 DataCombo 控件等。按回車鍵， text3向右 移動 = = 基于 B/S 結構的 企業(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)用子模塊庫存明細帳。 關鍵代碼如下： Private Sub Text3_KeyPress(KeyAscii As Integer) 39。計算商品金額 (i, 6) = Format(Val((i, 4)) * Val((i, 5)), ) Else (i, 6) = End If If (i, 6) 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。%39。 + + 39。%39。 + + 39。關鍵代碼如下： Private Sub Text3_Change() If = 2 Then If = Then Else 39。 本窗體中利用 Text3 來輔助商品信息錄入，主要應用了 text3 控件中的 Chang 事件和KeyDown 事件。裝載窗體時，確定 text3的位置 = = : = = + = + (1).Text = 當前窗體是： + End Sub 商品信息錄入 在商品進貨過程中，如果進貨商品品種較多、數(shù)量也很大，那么使用文本框逐條錄入數(shù)據(jù)，效率將會很低。 基于 B/S 結構的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 25 (0, 1) = 商品編號 (0, 2) = 商品全名 (0, 3) = 單位 (0, 4) = 數(shù)量 (0, 5) = 單價 (0, 6) = 金額 39。設置固定行、列 = 1: = 1 39。 39。 JH1000001 End If = Format(Now, yyyymmdd) = 100: = 7 39。 JH amp。在窗體初始化的時候，首先將本窗體中需要用到的數(shù)據(jù)庫都連接上，并將職員信息表、往來單位信息表、庫存表都綁定對應的 DataGrid控件上，以方便在程序運行時進行調(diào)用。當完成輸入要進貨的商品信息后，單擊確定，即可完成商品的入庫處理。 將光標移到“商品編號”文本框中，雙擊該文本框?qū)棾鏊械纳唐沸畔ⅲ脩艨梢詮闹羞x擇所需進貨的商品信息。在該模塊中雙擊“經(jīng)手人”文本框，即可彈出職員信息表中的相關信息；雙擊經(jīng)手人姓名，即可將其添加到“經(jīng)手人 ”文本框中。該控件可以對表格數(shù)據(jù)進行顯示和操作，具有很大的靈活性。本狀態(tài)欄設置為五個窗格，分別用于顯示當前窗體信息、當前操作員信息、作者、日期和時間，如圖 10所示 圖 10 狀態(tài)欄效果 、商品進貨模塊實現(xiàn) 商品進貨模塊主要完成將所采購的信息批量保存到入庫表和庫存表中。 關鍵代碼如下：： Dim bTimeFlag As Boolean 39。首先定義一個窗體級 Boolean 型變量 bTimerFlag,用于標識浮動工具欄是伸展還基于 B/S 結構的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 22 是收縮。利用 FLASH 中的 FSCommand 函數(shù)向 VB 應用程序發(fā)送 COMMAND 命令，在 VB 中應用程序捕獲Shockwaveflash 控件中的 FSCommand 事件，接收 Command 命令，從而達到 Flash 和 VB 交互的目的，具體的執(zhí)行流程如圖 9所示： 圖 9 Flash 動畫控制應用程序的執(zhí)行過程 、利用圖片設計浮動工 具欄 在工具欄上單擊“輔助工具”按鈕，將彈出浮動工具欄，該工具欄利用 PictureBox 控件以及 Label 控件數(shù)組設計而成。這里利用 Flash 動畫調(diào)用系統(tǒng)中的常用功能。 基于 B/S 結構的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 21 VB 自帶的菜單編輯器在窗體上設計菜單欄。主窗體運行界面如圖 7所示： 圖 7 主窗體界面 圖 7 主窗體運行界面 、窗體界面的設計和菜單欄 主窗體是軟件使用者經(jīng)常面對的界面，因此，為了使界面看起來更舒服，更友好，必須把主窗體設計美觀一些。通過主窗體，用戶可以調(diào)用系統(tǒng)相關的各個子模塊。 Load MDIForm1 Unload Me Else If = Then MsgBox 請選擇操作員！ , , 信息提示 Else If (password) Then MsgBox 密碼錯誤 ,請重新輸入密碼！ , , 信息提示 = Val() + 1 End If 基于 B/S 結構的 企業(yè)進銷存管理系統(tǒng) 計算機科學與技術專業(yè)畢業(yè)論文（設計） 20 End If If = 3 Then 39。系統(tǒng)管理 = True Else = False End If