【正文】 .ColWidth(1) = 1000 .ColWidth(2) = 2021 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 .ColWidth(7) = 1000 .ColWidth(8) = 1000 .ColWidth(9) = 1000 .ColWidth(10) = 1000 .Row = 1 End With End Sub 函數(shù) ShowData 把各條記錄加到表格中，并顯示出來，代碼 如下： Private Sub ShowData() Dim j As Integer Dim i As Integer Dim msgtext As String Set mrc = ExecuteSQL(txtsql, msgtext) With msgList .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To If Not IsNull(Trim((i 1))) Then Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。 3． 2 基本信息設置模塊的創(chuàng)建 基本信息設置模塊主要實現(xiàn)如下功能： ? 添加和修改產(chǎn)品信息 ? 添加和修改產(chǎn)品類別信息 ? 添加和修改客戶信息 ? 添加和修改供應商信息 ? 添加和修改業(yè)務員信息 ? 添加和修改業(yè)務員類別信息 ? 添加和修改倉庫信息 3． 2． 1 產(chǎn)品 設置窗體的創(chuàng)建 窗體布局如下圖所示： 這個窗體用來顯示產(chǎn)品設置信息，并且可以對各條記錄進行操作。配料單列表全局變量 Public gintPLmode As Integer 39。產(chǎn)品類別設置全局變量 Public gintDHmode As Integer 39。一旦按下回車鍵，將返回 Tab鍵，下一個控件自動獲得輸入焦點。get RecordCount ‘ 返回記錄集對象 Set ExecuteSQL = rst MsgString = 查詢到 amp。選中狀態(tài)欄控件，單擊鼠標右鍵，選中 Property 菜單，然后設置屬性。 理論研究和大量實踐都表明采用自頂向下逐步求精的策略和單入口單出口的控制結(jié)構設計程序是完全可行的，而且有一系列重大優(yōu)點，因此，結(jié)構程序設計技術是實現(xiàn)上述目標的基本保證，是進行詳細設計的邏輯基礎。考慮程序代碼的質(zhì)量時必須注意，程序的“讀者”有兩個，那就是計算機和人。 2． 3． 2 數(shù)據(jù)庫邏輯結(jié)構設計 現(xiàn)在需要將上面的數(shù)據(jù)庫概念結(jié)構轉(zhuǎn)化為 SQL Server 2021 數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)，也就是數(shù)據(jù)庫的邏輯結(jié)構。 ? 倉庫信息，包括的數(shù)據(jù)項有：倉庫編號、倉庫名稱。 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù) 據(jù)庫結(jié)構能充分滿足各種信息的輸出和輸入。一般情況下分析一個復雜的系統(tǒng)采用兩種基本手段“分解”和“抽象”。 2． 2 系統(tǒng)功能模塊 對上述各項功能功能進行集中、分塊，按照結(jié)構化程序設計的要求，得到如下圖所示的系統(tǒng)功能模塊圖： 電腦進銷存管理系統(tǒng) 財務信息管理 庫存信息管理 銷售信息管理 進貨信息管理 生產(chǎn)信息管理 基本信息設置 系統(tǒng)管理 入庫單的錄入和修改 進貨信息查詢 生產(chǎn)信息查詢 產(chǎn)品組裝單管理 生產(chǎn)計劃信息管理 配料單信息管理 應收信息錄入和修改 應付信息錄入和修改 訂貨單的錄入和修改 銷售信息查詢 銷售單的錄入和修改 轉(zhuǎn)倉單的錄入和修改 轉(zhuǎn)倉信息查詢 商品盤點 用戶管理 用戶 密碼管理 商品設置 商品類別設置 供應商設置 業(yè)務員類別設置 業(yè)務員設置 倉庫設置 圖 1 系統(tǒng)功能模塊圖 2． 3 數(shù)據(jù)庫設計 數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構的好壞將直接對應用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。 第二章 系統(tǒng)總 體設計 2． 1 系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務是實現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化。所以開發(fā)該系統(tǒng)是完全可行的 1． 2． 2 硬件可行性 需要一臺 WIN95/98 操作系統(tǒng)（最好是更高的操作系統(tǒng)） 586 以上微機，并且安裝有 SQL Server 202 Visula Basic 運行軟件，電源連線便可實現(xiàn)本管理系統(tǒng)。因此，可行性研究的實質(zhì)是要進行一次大大壓縮簡化了的系統(tǒng)分析和設計的過程，也不是在較高層次上 以較抽象的方式進行的系統(tǒng)分析和設計的過程。 該電腦進銷存系統(tǒng)以企業(yè)管理的計劃和控制職能為核心，提供了生產(chǎn)、銷售、采購、庫管、計劃等實用而豐富的管理功能。 現(xiàn)國內(nèi)大多數(shù)公司存在的問題： 信息化不足，計算機使用率低，大量的日常工作皆是手工處 理，因此工作效率低落，企業(yè)內(nèi)部溝通不良等等問題很難克服。 隨著我國市場經(jīng)濟的蓬勃發(fā)展和人們對商品需求的迅速增加，工業(yè)企業(yè)迅速壯大，企業(yè)的快速發(fā)展必然導致競爭的加劇，要想在激烈的市場競爭中謀求發(fā)展，客觀上要求企業(yè)必須加強內(nèi)部管理，提高運營效率。 本系統(tǒng)是根據(jù)工業(yè)企業(yè)的生產(chǎn)過程，控制生 產(chǎn)過程中的材料消耗、產(chǎn)品銷售、成本等數(shù)據(jù)，具體管理范圍包括材料采購、材料庫存、生產(chǎn)計劃、生產(chǎn)控制、物料需求、產(chǎn)品購進、產(chǎn)品銷售、產(chǎn)品產(chǎn)出等。 在澄清了問題定義之后，應該導出系統(tǒng)的邏輯模型。本系統(tǒng)所使用的數(shù)據(jù)庫表直觀，所設計的窗體既簡單明了，又包含了所有的功能菜單及一系列的命令按鈕，只要根據(jù)所提供的主菜單或命令按鈕的提示，便可進入到每個主、子控制模塊，進行一系列的操作而實現(xiàn)相應的功能。 ? 進貨信息的管理，包括訂貨單的管理、入庫單的管理以及進貨信息的查詢等。數(shù)據(jù)庫設計一般包括如下幾個步驟： ? 數(shù)據(jù)庫需要分析。即數(shù)據(jù)流圖只需考慮系統(tǒng)必須完成的基本邏輯功能，完全不需考慮如何具體地實現(xiàn)這些功能。 ? 產(chǎn)品信息，包括的數(shù)據(jù)項有：產(chǎn)品編號、產(chǎn)品名稱、計量單位、類 別、入庫價格、分銷價格、零售價格、生產(chǎn)廠家、更新日期、備注信息等。 ? 配料單信息，包括的數(shù)據(jù)項有：配料單編號、設置日期、產(chǎn)品編號、產(chǎn)品名稱、產(chǎn)品計量單位、配料編號、配料名稱、配料計量單位、配料數(shù)量、配料單價、配料總金額、業(yè)務員編號、備注信息等。每個表格表示在數(shù)據(jù)庫中的一個表。詳細設計的目標不僅僅是邏輯上正確的實現(xiàn)每個模塊的功能，更重要的是設計出的處理過程應該盡可能簡明易懂 。 3． 1 系統(tǒng)主窗體的創(chuàng)建 有關數(shù)據(jù)庫結(jié)構的所有后臺工作已經(jīng)完成。這樣可以極大地提高代碼的效率。 _ Resume ExecuteSQL_Exit End Function 在 ExecuteSQL 函數(shù)中使用了 Connect String 函數(shù)，這個函數(shù)用來連接數(shù)據(jù)庫。供應商設置全局變量 Public gintKHSmode As Integer 39。銷售訂貨全局變量 Public gintOUTHmode As Integer 39。生產(chǎn)計劃全局變量 Public username As String 39。 載入窗體時將自動顯示各條記錄，代碼如下： Private Sub Form_Load() ShowTitle ShowData End Sub 函數(shù) ShowTitle 用來顯示表頭，代碼如下： 39?？梢栽诖绑w的Resize 事件中加入代碼，代碼如下： Private Sub Form_Resize() ‘ 判斷當前窗體所處的狀態(tài)，當前窗體不處于最小化狀態(tài)并且主窗體不處于最小化狀態(tài)時進行后面操作 If vbMinimized And vbMinimized Then 39。 3． 3． 2 入庫單管理窗體的創(chuàng)建 產(chǎn)品入庫需要實現(xiàn)入庫單和庫存信息的更新。 39。 txtWZDM amp。 39。 amp。 amp。代碼如下： Private Sub cmdOK_Click() Dim dBeginDate As String Dim dEndDate As String Dim sQSql As String ‘查詢條件 sQSql = select ,c, from zc inner join dm_ywy on = inner join dm_ck ck1 on = inner join dm_ck ck2 on = inner join dm_wz on = where = 39。 cboDay(0)), yyyymmdd) dEndDate = Format(CDate(cboYear(1) amp。 39。查詢通過組合查詢條件形成 SQL 語句來實現(xiàn)。 Trim(Combo1(1)) amp。 Trim(Combo1(1)) amp。 第五章 軟件測試和用戶手冊 5． 1 軟件測試 目前軟件測試是保證軟件質(zhì)量的關鍵步驟，它是對規(guī)格說明、設計和編碼的最后復審。業(yè)務員信息設置可添加業(yè)務員，也可對業(yè)務員進行信息進行添加和修改； 4．進貨信息的管理，包括訂貨單的管理、入庫單的管理以及進貨信息的查詢等。 6．銷售信息管理，包括銷售單的管理以及銷售信息的查詢等。財務是決定企業(yè)是否贏利的體現(xiàn)，進行一系列的進貨，銷售之后進行財務統(tǒng)計是對這一段時間進銷的總結(jié)。體會很深： 要深入理解基本概念：在軟件編程時，有一個地方需要將字節(jié)型數(shù)組轉(zhuǎn)換化整數(shù)型數(shù)組，剛開始我不知道 VB 已經(jīng)提供了一個系統(tǒng)函數(shù)（ CINT），就能實現(xiàn)這樣的功能。這樣做效果果然不錯，我會將這個思想運用到以后的編程當中的。對此我向他們表示衷心的感謝。 在畢業(yè)設計期間，我得到了我們系許多老師和同學的大力幫助。 2 、要多看書，從別人所編的實例中汲取精華：盡管 VB 是編程語言中最簡單的語言，但并不代表它不強大、不復雜，實際上它是非常強大和復雜的，實現(xiàn)的功能多種多樣，技巧也是不勝枚舉，如果只是靠我們平時上課所學的那些知識，是不可能很好地完成此設計的。 本次我設計的課題是“電腦進銷存管理系統(tǒng)” ，需要用到相當多的知識，既要了解 SQL Server 2021 的知識，又要知道 VB 方面的編程知識。商品轉(zhuǎn)倉信息所添加的信息有，轉(zhuǎn)倉單基本信息、倉庫選擇、商品信息。 5．生產(chǎn)信息的管理，包括配料單的管理、生產(chǎn)計劃單信息的管理、產(chǎn)品組裝單信息的管理以及相關信息的查詢等。 2．首先是系統(tǒng)設置，在該模塊中可進行用戶管理，可以修改密碼，添加用戶，退出系統(tǒng)，等等。 在系統(tǒng)的編譯著發(fā)行以前，需要設置工程項目的屬性。 Trim(Combo1(0)) amp。 Trim(Combo1(0)) amp。 dEndDate amp。 cboDay(1)), yyyymmdd) sQSql = sQSql amp。 ‘是否按照時間條件查詢 If = vbChecked Then dBeginDate = Format(CDate(cboYear(0) amp。選擇“庫存信息管理 |轉(zhuǎn)倉單錄入修改”菜單，出現(xiàn)如下圖所示窗口： 在產(chǎn)品轉(zhuǎn)倉信息列表中單擊“添加 ”按鈕出現(xiàn)如下圖所示窗體，用來添加產(chǎn)品轉(zhuǎn)倉信息。 dBeginDate amp。 amp。選擇“進貨信息管理