【正文】 統(tǒng) 計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計(jì)） 3 Purchase Sale Stock statistical data on the pany39。 為了增強(qiáng)企業(yè)的競(jìng)爭(zhēng)力，以實(shí)現(xiàn)商品管理的信息化 ，就 需要一個(gè)企業(yè)進(jìn)銷存管理系統(tǒng)。 進(jìn)銷存與進(jìn)銷存之間的競(jìng)爭(zhēng)優(yōu)勢(shì)主要取決于進(jìn)銷存的創(chuàng)新能力和核心能力的競(jìng)爭(zhēng)，國(guó)內(nèi)基于 B/S 結(jié)構(gòu)的 企業(yè)進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計(jì)） 7 制造和流通企業(yè)迫切需要運(yùn)用 IT 技術(shù)實(shí)現(xiàn)其生產(chǎn)、庫(kù)存、日常交易的管理規(guī)范化、精確化，加強(qiáng)企業(yè)成本控制，提高企業(yè)運(yùn)營(yíng)效率。 圖 1 功能結(jié)構(gòu)圖 基礎(chǔ)信息模塊：庫(kù)存商品、往來(lái)單位、退出系統(tǒng)。結(jié)構(gòu)簡(jiǎn)單，編寫(xiě)程序?qū)ο到y(tǒng)的資源占有極低，是程序編寫(xiě)者編寫(xiě)小型程序的第一選擇！如果你是一個(gè)對(duì)編程一無(wú)所知，而又迫切希望掌握一種快捷實(shí)用的編程語(yǔ)言的初學(xué)者，那選擇 VB 沒(méi)錯(cuò)的 。 VB 的組件既可以擁有用戶界面，也可以沒(méi)有。 SQL Server 2020 企業(yè)版支持聯(lián)合服務(wù)器、索引視圖和大型內(nèi)存支持等功能，使其得以升級(jí)到最大 Web 站點(diǎn)所需的性能級(jí)別。 第三章 系統(tǒng)的分析與設(shè)計(jì) 系統(tǒng)業(yè)務(wù)流程圖 企業(yè)進(jìn)銷存管理系統(tǒng)的業(yè)務(wù)流程圖如圖 2： 基于 B/S 結(jié)構(gòu)的 企業(yè)進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計(jì)） 12 圖 2 業(yè)務(wù)流程圖 系統(tǒng)功能結(jié)構(gòu)圖 與功能模塊 企業(yè)進(jìn)銷存管理系統(tǒng)功能結(jié)構(gòu)如圖 3所示。它是進(jìn)行信息交換、處理、傳輸和實(shí)現(xiàn)信息資源共享的關(guān)鍵。在本程序中為了優(yōu)化數(shù)據(jù)庫(kù)的連接，減少代碼的使用，在公共模塊中定義一個(gè)函數(shù)用 于執(zhí)行數(shù)據(jù)庫(kù)連接。 + + 39。使控件獲得焦點(diǎn) Exit Sub End If (2).Text = (2).Text amp。定義變量用于標(biāo)識(shí)浮動(dòng)工具條的伸縮 Private Sub Timer1_Timer() Dim i As Integer If bTimeFlag = True Then If 11934 Then For i = 1 To 100 = + 2 Next i End If Else If 10 Then For i = 1 To 100 = 2 Next i End If End If End Sub 、狀態(tài)欄的實(shí)現(xiàn) 窗體中的狀態(tài)欄利用 StatusBar 控件設(shè)計(jì)而成。定 義 MS1控件的總行數(shù)、總列數(shù)。or spell like 39。ADO控件的 RecordSource執(zhí)行 SQL語(yǔ)句 = SELECT * FROM tbS_stock = PublicStr = select * from tbS_stock Set = Adodc2 Set = Adodc2 = fullname = + 1: = 6 39。 qty (3).Text = 庫(kù)存總價(jià)值： amp。設(shè)置固定行、列 = 1: = 1 39。ADO控件的 RecordSource執(zhí)行 SQL語(yǔ)句 On Error Resume Next = select * from tbS_stock where tradecode=39。 在主窗體中選擇“庫(kù)存信息 /庫(kù)存狀況”命令，即可進(jìn)入庫(kù)存狀況模塊中。篩選商品名稱和拼音簡(jiǎn)碼 = select * from tbS_stock where fullname like 39。將用于顯示進(jìn)貨信息的 MSFlexGrid 控件的行數(shù)、列數(shù)以及列標(biāo)題等都進(jìn)行初始化，關(guān)鍵代碼如下： Private Sub Form_Load() = PublicStr = select * from tbS_warehouse_main = PublicStr = select * from tbS_warehouse_detailed = PublicStr = select * from tbS_currentaccount 基于 B/S 結(jié)構(gòu)的 企業(yè)進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計(jì)） 24 = 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 = select * from tbS_warehouse_main order by billcode If 0 Then Text1(0).Text = Format(Now, yyyymmdd) amp。在使用浮動(dòng)工具欄時(shí)，利用 Timer 控件來(lái)調(diào)整 Pic_flex 控件的寬度。進(jìn)貨管理 = True Else = False End If If (vendition).Value Then 39。 登錄窗體主要是通過(guò)對(duì)數(shù)據(jù)表 tbS_power 的查詢，結(jié)合 IF 語(yǔ)句判斷選定的用戶以及輸入的密碼是否符合數(shù)據(jù)庫(kù)中的用 戶名和密碼是否正確，如果正確則正常登錄，否則錯(cuò)誤超過(guò) 3 次則強(qiáng)行退出系統(tǒng)。 圖 4 數(shù)據(jù)庫(kù)表 第四章 系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 、 公共模塊實(shí)現(xiàn) 在開(kāi)發(fā)應(yīng)用程序時(shí)，可以將數(shù)據(jù)庫(kù)的相關(guān)操作以及對(duì)一些控件的設(shè)置、遍歷等封裝在自定義模塊中，以便于在開(kāi)發(fā)程序時(shí)調(diào)用，這樣可以提高代碼的重用性。提供本單位信息和系統(tǒng)相關(guān)信息 ,讓客戶在使用過(guò)程中可了解本系統(tǒng)信息。 系統(tǒng)管理先進(jìn)，支持 Windows 圖形化管理工具，支持本地和遠(yuǎn)程的系統(tǒng)管理和配置。 SQL Server 2020 程序設(shè)計(jì)模型與 Windows DNA 構(gòu)架集成，用以開(kāi)發(fā) Web 應(yīng)用程序，并且 SQL Server 2020 支持 English Query 和 Microsoft 搜索服務(wù)等功能，在 Web 應(yīng)用程序中包含了用戶友好的查詢和強(qiáng)大的搜索功能。舉個(gè)例子來(lái)說(shuō)：窗體的大小改變事件中加入了可以改變控件位置的代碼，在運(yùn)行時(shí)候每當(dāng)用戶更改窗口大小，控件也會(huì)隨之改變位置。同時(shí)該模塊更能為客戶提供使用本系統(tǒng)時(shí)所需的 幫助信息 ,使客戶更容易熟悉本系統(tǒng)的使用。 (7) 提供靈活、方便的權(quán)限設(shè)置功能，使整個(gè)系統(tǒng)的分工明確。 、可行性分析 進(jìn)銷存軟件概念起源于上世紀(jì)，由于電算化的普及，計(jì)算機(jī)管理的推廣，不少企業(yè)對(duì)于倉(cāng)庫(kù)貨品的進(jìn)貨，存貨，出貨管理，有了強(qiáng)烈的需求，進(jìn)銷存軟件的發(fā)展從此開(kāi)始。為了完善和發(fā)展企業(yè)的管理，很多大型企業(yè)都率先采用 了各種的 EPR 軟件，但是這些軟件卻大多不適合在中小型企業(yè)中應(yīng)用。 通過(guò)進(jìn)銷存管理系統(tǒng)，利用信息化的手段把先進(jìn)的企業(yè)管理方法引入企業(yè)的實(shí)踐，為企業(yè)的管理改革提供切實(shí)可行的途徑。改善企業(yè)內(nèi)部以及整個(gè)供應(yīng)鏈各個(gè)環(huán)節(jié)的管理、調(diào)度及資源配置，迅速適應(yīng)客戶的新需求和市場(chǎng)新機(jī)遇，是企業(yè)贏得競(jìng)爭(zhēng)勝利的決定性因素。 、國(guó)內(nèi)外研究現(xiàn)狀以及發(fā)展趨勢(shì) 計(jì)算機(jī)在管理中的應(yīng)用由來(lái)已久，早在 1954 年，當(dāng)時(shí)美國(guó)首先用來(lái)處理工資單。無(wú)論公司還是企業(yè)對(duì)于貨物都實(shí)行了信息化的管理，以提高管理水平和工作效率，同時(shí)也最大限度地減少手工操作帶來(lái)的錯(cuò)誤，所以進(jìn)銷存系統(tǒng)具有廣 闊開(kāi)發(fā)前景。該模塊能準(zhǔn)確的記錄了整個(gè)銷售方面所需的各個(gè)業(yè)務(wù) ,更增加了月銷售狀況的信息 ,能讓公司領(lǐng)導(dǎo)能快速了解到產(chǎn)品的銷售情況 ,了解市場(chǎng)熱點(diǎn) ,及時(shí)調(diào)整銷售策略 ,同時(shí)能顯示各種銷售信息，兼顧了單據(jù)和對(duì)帳的管理，保證數(shù)據(jù)不會(huì)出錯(cuò)。因?yàn)槟J(rèn)的屬性和方法已經(jīng)有一部分定義在了組件內(nèi)，所以程序員不用寫(xiě)多少代碼就可以完成一個(gè)簡(jiǎn)單的程序。默認(rèn)情況下字符串的比較是對(duì)大小寫(xiě)敏感的，但是可以關(guān)閉這個(gè)功能。可將一組數(shù)據(jù)復(fù)制到多個(gè)移動(dòng)的脫接用戶，使這些用戶自主地工作，然后將他們所做的修改合并回發(fā)布服務(wù)器。 銷售信息模塊 銷售單、銷售退貨、銷售統(tǒng)計(jì)不含退貨、月銷售狀況、商品銷售排行、與代理商對(duì)帳、商品銷售成本表。 程序代碼命名規(guī)則 變量以及對(duì)象名稱定義規(guī)則：根據(jù)不同的程序需要，編寫(xiě)代碼的時(shí)候都需要定義一定的變量或者常量，為了使代碼更容易讀懂和維護(hù)，命名必須區(qū)分不同級(jí)別的變量或者常量 ,規(guī)則如下： 模塊級(jí)變量： M_+數(shù)據(jù)類型簡(jiǎn)寫(xiě) +變量名稱，舉例： M_int_xx 全局變量： G_+數(shù)據(jù)類型簡(jiǎn)寫(xiě) +變量名稱，舉例： G_int_xx 局部變量： P_+數(shù)據(jù)類型簡(jiǎn)寫(xiě) +變量名稱，舉例： P_db1_sl 模塊級(jí)常量： Mc_+數(shù)據(jù)類型簡(jiǎn)寫(xiě) +常量名稱，舉例： Mc_str_xx 全局常量： Gc_+數(shù)據(jù)類型簡(jiǎn)寫(xiě) +常量名稱，舉例： Gc_str_xx 過(guò)程級(jí)常量： Pc_+數(shù)據(jù)類型簡(jiǎn)寫(xiě) +常量名稱，舉例： Pc_str_xx 控件命名規(guī)則 窗體和控件的命名應(yīng)采用統(tǒng)一的規(guī)范，一般采用具有實(shí)際意義的英文單詞或者標(biāo)識(shí)，也可以采用多個(gè)單詞的組合。User ID=sa。 + Trim() + 39。主窗體運(yùn)行界面如圖 7所示： 圖 7 主窗體界面 圖 7 主窗體運(yùn)行界面 、窗體界面的設(shè)計(jì)和菜單欄 主窗體是軟件使用者經(jīng)常面對(duì)的界面，因此，為了使界面看起來(lái)更舒服，更友好，必須把主窗體設(shè)計(jì)美觀一些。在該模塊中雙擊“經(jīng)手人”文本框，即可彈出職員信息表中的相關(guān)信息；雙擊經(jīng)手人姓名，即可 將其添加到“經(jīng)手人”文本框中。 基于 B/S 結(jié)構(gòu)的 企業(yè)進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計(jì)） 25 (0, 1) = 商品編號(hào) (0, 2) = 商品全名 (0, 3) = 單位 (0, 4) = 數(shù)量 (0, 5) = 單價(jià) (0, 6) = 金額 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。 On Error Resume Next = 1: = 1 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。 Left(Mid