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