【正文】 (base).Value Then = True Else = False End If Else MsgBox 您輸入的信息不正確！ 39。 基于 B/S 結(jié)構(gòu)的 企業(yè)進銷存管理系統(tǒng) 計算機科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計） 21 VB 自帶的菜單編輯器在窗體上設(shè)計菜單欄。 關(guān)鍵代碼如下：： Dim bTimeFlag As Boolean 39。 將光標移到“商品編號”文本框中，雙擊該文本框?qū)棾鏊械纳唐沸畔ⅲ脩艨梢詮闹羞x擇所需進貨的商品信息。 JH1000001 End If = Format(Now, yyyymmdd) = 100: = 7 39。裝載窗體時，確定 text3的位置 = = : = = + = + (1).Text = 當前窗體是： + End Sub 商品信息錄入 在商品進貨過程中，如果進貨商品品種較多、數(shù)量也很大，那么使用文本框逐條錄入數(shù)據(jù)，效率將會很低。%39。計算商品金額 (i, 6) = Format(Val((i, 4)) * Val((i, 5)), ) Else (i, 6) = End If If (i, 6) Then 39。 關(guān)鍵代碼如下： Private Sub Form_Load() = PublicStr 39。 (0, 1) = 商品編號 (0, 2) = 商品全名 (0, 3) = 庫存數(shù)量 (0, 4) = 成本均價 (0, 5) = 庫存總價 39。 關(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è)進銷存管理系統(tǒng) 計算機科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計） 31 price = price + (i, 5) Next i (2).Text = 庫存總數(shù)量： amp。 Left(Mid((1), 11, 17), 7) + 1 Else Text1(0).Text = Format(Now, yyyymmdd) amp。定義 MS1表的表頭 (0, 0) = NO。ADO控件的 RecordSource執(zhí)行 SQL語句 = select * from tbS_sell_main order by billcode 基于 B/S 結(jié)構(gòu)的 企業(yè)進銷存管理系統(tǒng) 計算機科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計） 32 If 0 Then Text1(0).Text = Format(Now, yyyymmdd) amp。 + (0) + 39。 On Error Resume Next = 1: = 1 39。如圖 12 所示： 基于 B/S 結(jié)構(gòu)的 企業(yè)進銷存管理系統(tǒng) 計算機科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計） 28 圖 12 庫存狀況界面 設(shè)計窗體界面與初始化 庫存狀況模塊的界面設(shè)計比較復(fù)雜，加載的控件比較多，控件主要有： ADO 控件、 MSFlexGrid控件和 ToolBar、 imageList 控件以及 DataCombo 控件等。使控件獲得焦點 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。 基于 B/S 結(jié)構(gòu)的 企業(yè)進銷存管理系統(tǒng) 計算機科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計） 25 (0, 1) = 商品編號 (0, 2) = 商品全名 (0, 3) = 單位 (0, 4) = 數(shù)量 (0, 5) = 單價 (0, 6) = 金額 39。 JH amp。在該模塊中雙擊“經(jīng)手人”文本框，即可彈出職員信息表中的相關(guān)信息；雙擊經(jīng)手人姓名，即可將其添加到“經(jīng)手人 ”文本框中。首先定義一個窗體級 Boolean 型變量 bTimerFlag,用于標識浮動工具欄是伸展還基于 B/S 結(jié)構(gòu)的 企業(yè)進銷存管理系統(tǒng) 計算機科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計） 22 是收縮。主窗體運行界面如圖 7所示： 圖 7 主窗體界面 圖 7 主窗體運行界面 、窗體界面的設(shè)計和菜單欄 主窗體是軟件使用者經(jīng)常面對的界面，因此，為了使界面看起來更舒服，更友好，必須把主窗體設(shè)計美觀一些。銷售管理 = True 基于 B/S 結(jié)構(gòu)的 企業(yè)進銷存管理系統(tǒng) 計算機科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計） 19 Else = False End If If (storage).Value Then 39。 + Trim() + 39。系統(tǒng)登錄窗體的界面效果如圖 6 所示： 圖 6 登錄界面 當窗體啟動后，單擊用戶頭像，將顯示該用戶的用戶名和編號，并將焦點設(shè)置在“密碼”文本框中。User ID=sa。本系統(tǒng)創(chuàng)建了一個名基于 B/S 結(jié)構(gòu)的 企業(yè)進銷存管理系統(tǒng) 計算機科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計） 16 為 Module1 的標準模塊，在該模塊中定義了公共的變量、過程和函數(shù)。 程序代碼命名規(guī)則 變量以及對象名稱定義規(guī)則：根據(jù)不同的程序需要，編寫代碼的時候都需要定義一定的變量或者常量，為了使代碼更容易讀懂和維護，命名必須區(qū)分不同級別的變量或者常量 ,規(guī)則如下： 模塊級變量： M_+數(shù)據(jù)類型簡寫 +變量名稱，舉例： M_int_xx 全局變量： G_+數(shù)據(jù)類型簡寫 +變量名稱，舉例： G_int_xx 局部變量： P_+數(shù)據(jù)類型簡寫 +變量名稱，舉例： P_db1_sl 模塊級常量： Mc_+數(shù)據(jù)類型簡寫 +常量名稱，舉例： Mc_str_xx 全局常量： Gc_+數(shù)據(jù)類型簡寫 +常量名稱，舉例： Gc_str_xx 過程級常量： Pc_+數(shù)據(jù)類型簡寫 +常量名稱，舉例： Pc_str_xx 控件命名規(guī)則 窗體和控件的命名應(yīng)采用統(tǒng)一的規(guī)范，一般采用具有實際意義的英文單詞或者標識，也可以采用多個單詞的組合。同時該模塊更能為客戶提供使用本系統(tǒng)時所需的幫助信息 ,使客戶更容易熟悉本系統(tǒng)的使用。 銷售信息模塊 銷售單、銷售退貨、銷售統(tǒng)計不含退貨、月銷售狀況、商品銷售排行、與代理商對帳、商品銷售成本表。 強壯 的事務(wù)處理功能，采用各種方法保證數(shù)據(jù)的完整性?？蓪⒁唤M數(shù)據(jù)復(fù)制到多個移動的脫接用戶，使這些用戶自主地工作，然后將他們所做的修改合并回發(fā)布服務(wù)器。 可伸縮性和可用性 同一個數(shù)據(jù)庫引擎可以在不同的平臺上使用，從運行 Microsoft Windowsamp。默認情況下字符串的比較是對大小寫敏感的，但是可以關(guān)閉這個功能。在文本框中的文字改變事件中 加入相應(yīng)的代碼，程序就能夠在文字輸入的時候自動翻譯或者阻止某些字符的輸入。因為默認的屬性和方法已經(jīng)有一部分定義在了組件內(nèi)，所以程序員不用寫多少代碼就可以完成一個簡單的程序。 系統(tǒng)運行環(huán)境 本系統(tǒng)的程序運行環(huán)境如下： 系統(tǒng)開發(fā)語言： Microsoft 數(shù)據(jù)庫管理軟件： Microsoft SQL Server2021 運行平臺： Microsoft Windows XP/Windows 2021/Windows Server2021 CPU:Pentium 2 166MHZ 內(nèi)存： 126MB RAM 硬盤： 500MB 硬盤空間 評價指標 企業(yè)進銷存管理系統(tǒng)的使用可實現(xiàn)企業(yè)的信息化管理，減少盲目采購、降低 成本、合理控制庫存、減少資金占用并提升企業(yè)市場競爭力。該模塊能準確的記錄了整個銷售方面所需的各個業(yè)務(wù) ,更增加了月銷售狀況的信息 ,能讓公司領(lǐng)導(dǎo)能快速了解到產(chǎn)品的銷售情況 ,了解市場熱點 ,及時調(diào)整銷售策略 ,同時能顯示各種銷售信息，兼顧了單據(jù)和對帳的管理，保證數(shù)據(jù)不會出錯。 (8) 對用戶輸入的數(shù)據(jù)，系統(tǒng)進行嚴格的數(shù)據(jù)檢驗，盡可能排除人為的錯誤。無論公司還是企業(yè)對于貨物都實行了信息化的管理，以提高管理水平和工作效率，同時也最大限度地減少手工操作帶來的錯誤，所以進銷存系統(tǒng)具有廣 闊開發(fā)前景。在 90 年代以后，隨著進銷存軟件的應(yīng)用面越來越廣，出現(xiàn)了許多從功能上，從 用途上，更為全面的進銷存系統(tǒng)，從單純的貨品數(shù)量管理，擴展為貨品的流程管理，進銷存軟件對每一批貨品的來源，存放，去向，都作仔細的記錄，隨后并延伸為財務(wù)進銷存一體化的管理模式。 、國內(nèi)外研究現(xiàn)狀以及發(fā)展趨勢 計算機在管理中的應(yīng)用由來已久，早在 1954 年，當時美國首先用來處理工資單。而 目前我國的中小企業(yè)數(shù)量較多 ， 在我國經(jīng)濟發(fā)展中具有重要地位，比較而言， 大型企業(yè)和 外資企業(yè)具有更為雄厚的資金實力、豐富的管理經(jīng)驗和先進的技術(shù)手段，因此，如果我國的中小企業(yè)不借助先進的管理思想轉(zhuǎn)變經(jīng)營觀念、使用信息化提高企業(yè)的管理水平和工作效率，將很難在今后的國際競爭中取勝。改善企業(yè)內(nèi)部以及整個供應(yīng)鏈各個環(huán)節(jié)的管理、調(diào)度及資源配置，迅速適應(yīng)客戶的新需求和市場新機遇，是企業(yè)贏得競爭勝利的決定性因素。更重要的是，進銷存管理系統(tǒng)可以及時通過信息技術(shù)把企業(yè)數(shù)據(jù)轉(zhuǎn)化為企業(yè)信息，進而為相關(guān)管理者提供決策依據(jù)。 通過進銷存管理系統(tǒng)，利用信息化的手段把先進的企業(yè)管理方法引入企業(yè)的實踐，為企業(yè)的管理改革提供切實可行的途徑。 隨著經(jīng)濟的全球化以及中國經(jīng)濟改革的逐漸深化，企業(yè)面臨著越來越激烈的競爭。為了完善和發(fā)展企業(yè)的管理，很多大型企業(yè)都率先采用 了各種的 EPR 軟件，但是這些軟件卻大多不適合在中小型企業(yè)中應(yīng)用。強化管理，規(guī)范業(yè)務(wù)流程，提高透明度，加快商品資金周 轉(zhuǎn)，以及為流通領(lǐng)域信息管理全面網(wǎng)絡(luò)化打下基礎(chǔ)，是眾多商業(yè)企業(yè)夢寐以求的愿望。 、可行性分析 進銷存軟件概念起源于上世紀，由于電算化的普及，計算機管理的推廣，不少企業(yè)對于倉庫貨品的進貨，存貨，出貨管理，有了強烈的需求，進銷存軟件的發(fā)展從此開始。 隨著信息技術(shù)的飛速發(fā)展，企