【文章內容簡介】 對帳。該模塊主要對進貨方面信息進行管理，包含了 對退貨信息的反映 ,確保把每一筆的交易記錄都能準確的反映出來 ,還包含了進貨分析 ,能準確的顯示每一筆進貨的信息和兼顧進貨單據和對帳，保證數據的準確性。 銷售信息模塊 銷售單、銷售退貨、銷售統計不含退貨、月銷售狀況、商品銷售排行、與代理商對帳、商品銷售成本表。該模塊能準確的記錄了整個銷售方面所需的各個業(yè)務 ,更增加了月銷售狀況的信息 ,能讓公司領導能快速了解到產品的銷售情況 ,了解市場熱點 ,及時調整銷售策略 ,同時能顯示各種銷售信息，兼顧了單據和對帳的管理，保證數據不會出錯。 庫存信息模塊 庫存狀況、庫存上限警報、庫存 下限報警、商品進銷存變動表、庫存盤點。該模塊能實現實時顯示庫存的狀況，能讓銷售人員能在銷售時準確知道供貨能力 ,而且能夠協助采購人員制定采購計劃 ,確保公司產品的銷售庫存而不會積壓過多的產品而無故占用資金。 系統維護模塊 操作員設置、操作員權限設置、數據備份和恢復、數據清理。該模塊主要實現必要的操作員管理和權限設置，能很方便的對操作員進行增加和刪除 ,并對其權限進行管理分配 .該模塊同時能對數據進行備份和恢復 ,使數據的安全管理更容易實現 ,還能對數據進行清理 ,更方便對數據進行管理。 幫助信息模塊 本單位信息、幫助信息 、系統關于。提供本單位信息和系統相關信息 ,讓客戶在使用過程中可了解本系統信息。同時該模塊更能為客戶提供使用本系統時所需的幫助信息 ,使客戶更容易熟悉本系統的使用。 編碼設計 編碼設計是數據庫系統開發(fā)的前提條件，是系統不可缺少的重要內容。編碼是指與原來名稱對應的編號、符號或記號。它是進行信息交換、處理、傳輸和實現信息資源共享的關鍵。編碼也用于指定數據的處理方法、區(qū)別數據類型，并指定計算機處理的內容等。 基于 B/S 結構的 企業(yè)進銷存管理系統 計算機科學與技術專業(yè)畢業(yè)論文（設計） 14 數據庫命名規(guī)則 數據庫命名統一以字母 db(小寫）開頭，后面加數據庫相關英文單詞或縮寫。 數據表命 名統一以字母 tb(小寫）開頭，后面加數據表相關英文單詞或縮寫。 字段命名一律采用英文單詞或詞組（可利用翻譯軟件）命名，如果找不到專業(yè)的英文單詞或者詞組，可以用相同意義的英文單詞或者詞組代替。 程序代碼命名規(guī)則 變量以及對象名稱定義規(guī)則：根據不同的程序需要，編寫代碼的時候都需要定義一定的變量或者常量，為了使代碼更容易讀懂和維護，命名必須區(qū)分不同級別的變量或者常量 ,規(guī)則如下： 模塊級變量： M_+數據類型簡寫 +變量名稱，舉例： M_int_xx 全局變量： G_+數據類型簡寫 +變量名稱，舉例： G_int_xx 局部變量： P_+數據類型簡寫 +變量名稱，舉例： P_db1_sl 模塊級常量： Mc_+數據類型簡寫 +常量名稱，舉例： Mc_str_xx 全局常量： Gc_+數據類型簡寫 +常量名稱，舉例： Gc_str_xx 過程級常量： Pc_+數據類型簡寫 +常量名稱，舉例： Pc_str_xx 控件命名規(guī)則 窗體和控件的命名應采用統一的規(guī)范，一般采用具有實際意義的英文單詞或者標識，也可以采用多個單詞的組合。窗體一般采用 frm_**或者 Frm_main 的形式，如 frm_main 等。 數據庫設計 開發(fā)應用程序時，對數據庫的操作是必不可少的。數據庫設計是根據程序的需求及其實現功能所制定的，數據庫設計的合理與否將直接影響到程序的開發(fā)過程。而本系統數據庫采用 SQL Server 2021 數據庫，系統數據庫名稱為 db_SSS。數據庫 db_SSS 中包含 16 張表。 基于 B/S 結構的 企業(yè)進銷存管理系統 計算機科學與技術專業(yè)畢業(yè)論文（設計） 15 為了對本系統后臺的數據庫中數據表有一個更清晰的認識，下面設計了一個數據表樹型結構圖如圖 4所示，該數據表樹型結構圖包含系統所有數據表。 圖 4 數據庫表 第四章 系統設計與實現 、 公共模塊實現 在開發(fā)應用程序時，可以將數據庫的相關操作以及對一些控件的設置、遍歷等封裝在自定義模塊中，以便于在開發(fā)程序時調用，這樣可以提高代碼的重用性。本系統創(chuàng)建了一個名基于 B/S 結構的 企業(yè)進銷存管理系統 計算機科學與技術專業(yè)畢業(yè)論文（設計） 16 為 Module1 的標準模塊，在該模塊中定義了公共的變量、過程和函數。 主函數設定 在一個應用程序中，一般都有一個主程序（ Sub Main） ,程序的執(zhí)行從這個主程序開始。 數據庫連接 數據庫連接在開發(fā)數據庫管理系統中經常用到。在本程序中為了優(yōu)化數據庫的連接，減少代碼的使用，在公共模塊中定義一個函數用 于執(zhí)行數據庫連接。編程過程中，如果需要使用數據庫連接，就可以直接調用數據庫連接函數 n 來操作數據庫。 關鍵代碼如下： Public Function n() As 39。共享數據庫連接 Set n = New Provider=。Persist Security Info=False。User ID=sa。Initial Catalog=db_SSS End Function 拼音簡碼函數 拼音簡碼函數的設計很有必要性，在進銷存管理系統中進行商品的進貨和銷售操作時，可以讓操作者直接輸入商品的拼音簡碼來完成商品的檢索，這樣可以為信息的錄入帶來極大的方便。 關鍵代碼如下： Public Function py(Mystr As String) As String 39。獲得漢字的拼音簡碼 On Error Resume Next If Asc(Mystr) 0 Then If Asc(Left(Mystr, 1)) Asc(啊 ) Then py = 0 Exit Function End If If Asc(Left(Mystr, 1)) = Asc(啊 ) And Asc(Left(Mystr, 1)) Asc(芭 ) Then py = A Exit Function End If ‘? .此處代碼有省略 If UCase(Mystr) = Z And UCase(Mystr) = A Then py = UCase(Left(Mystr, 1)) Else py = Mystr End If End If End Function 基于 B/S 結構的 企業(yè)進銷存管理系統 計算機科學與技術專業(yè)畢業(yè)論文（設計） 17 啟動窗體的實現 啟動窗體用作歡迎客戶使用之友好界面，可以在應用程序啟動時一閃而過，也可以為用戶提示一定信息，但用戶無需對其進行任何操作。本程序設計歡迎界面，是本著領導本程序界面更加友 好，同時避免數據加載過程中使用者由于等待時間過長而產生焦慮。企業(yè)進銷存管理系統中的啟動窗體如圖 5 所示 : 圖 5 啟動窗體 系統登錄實現 由于本系統內容關乎一個企業(yè)的來貨以及銷售信息，因此，一個安全的登錄窗體設計是非常重要的。本窗體的設計主要就是用于對登錄到企業(yè)進銷存管理系統中的用戶進行安全檢查，以防止非法用戶進入到本系統，即只有合法的用戶才能登陸到本系統。 登錄窗體主要是通過對數據表 tbS_power 的查詢，結合 IF 語句判斷選定的用戶以及輸入的密碼是否符合數據庫中的用 戶名和密碼是否正確，如果正確則正常登錄，否則錯誤超過 3 次則強行退出系統。系統登錄窗體的界面效果如圖 6 所示： 圖 6 登錄界面 當窗體啟動后，單擊用戶頭像，將顯示該用戶的用戶名和編號，并將焦點設置在“密碼”文本框中。 關鍵代碼如下： Private Sub ListView1_Click() 基于 B/S 結構的 企業(yè)進銷存管理系統 計算機科學與技術專業(yè)畢業(yè)論文（設計） 18 If 0 Then 39。查詢操作員信息 select * from tbS_power where sysuser =39。 + + 39。, n, adOpenKeyset If 0 Then 39。給相應的控件賦值 = (userid) = (sysuser) End If End If End Sub 選中用戶名以后，在“密碼”文本框中輸入該用戶的密碼，然后單擊“確定”按鈕，進入系統內部。當用戶單擊“確定”按鈕時候，系統將核對該用戶所輸入密碼與數據庫中的密碼時候相同，如果相同則進入到系統內部；如果不正確，則提示信息并將輸入次數加 1，寫入到 Txt_Time 文本框中；當 Txt_Time 文本框中的次數超過 3次，則提示信息，退出系統 . 關鍵代碼如下： Private Sub Lbl_OK_Click() 39。確定 select * from tbS_power where sysuser =39。 + Trim() + 39。, n, adOpenKeyset If 0 Then 39。如果記錄數大于零 39。驗證操作員及密碼 If = (password) Then 39。 為用戶分配權限 = select * from tbS_power where sysuser =39。 + Trim() + 39。 If 0 Then If (stock).Value Then 39。進貨管理 = True Else = False End If If (vendition).Value Then 39。銷售管理 = True 基于 B/S 結構的 企業(yè)進銷存管理系統 計算機科學與技術專業(yè)畢業(yè)論文（設計） 19 Else = False End If If (storage).Value Then 39。庫存管理 = True Else = False End If If (system).Value Then 39。系統管理 = True Else = False End If If (base).Value Then = True Else = False End If Else MsgBox 您輸入的信息不正確！ 39。使控件獲得焦點