【正文】 人等。采購單中的商品名稱、供應(yīng)商和經(jīng)手人字段分別對(duì)應(yīng) Product 數(shù)據(jù)表、Supplier 數(shù)據(jù)表和 Users 數(shù)據(jù)表中的相關(guān)字段，所以這里需要檢驗(yàn)用戶輸入的合法性。供應(yīng)商管理：基礎(chǔ)信息維護(hù)中的一個(gè)模塊，主要用于對(duì)供應(yīng)商信息進(jìn)行查詢和維護(hù)。在具體的實(shí)現(xiàn)各個(gè)功能模塊之前，需要在 Visual Basic 中創(chuàng)建一個(gè)工程，以管理系統(tǒng)開發(fā)中的不同資源。26 創(chuàng)建系統(tǒng)窗口 創(chuàng)建登陸窗口在進(jìn)入應(yīng)用程序主界面之前，一般都需要登錄操作，以便確認(rèn)用戶身份，從而保證企業(yè)數(shù)據(jù)的安全性。（6） 、當(dāng)系統(tǒng)運(yùn)行打開 frmLogin 窗口的時(shí)候，需要從數(shù)據(jù)庫的 Users 數(shù)據(jù)表中查找當(dāng)前系統(tǒng)中所有的用戶，然后將它們添加到 cmbUserName 組合框中。Password=ecc。如果記錄為空則說明不存在此條記錄，也說明用戶名錯(cuò)誤 MsgBox 沒有這個(gè)用戶!, vbCrLf amp。輸入錯(cuò)誤次數(shù)不足 3 次 num = num + 1 39。關(guān)閉數(shù)據(jù)庫連接 End Sub這樣，登錄界面的設(shè)計(jì)和代碼編寫就全部完成了。（3） 、設(shè)置 frmMain 窗口的屬性。每個(gè)菜單項(xiàng)通過“amp。具體操作步驟如下：30（1） 、在設(shè)計(jì)工具欄之前，首先需要?jiǎng)?chuàng)建工具欄按鈕圖標(biāo)對(duì)應(yīng)的圖片列表。這樣 tlbMain 工具欄就可以使用上面定義的 imlToolBar 圖像列表的圖片了。 創(chuàng)建狀態(tài)欄應(yīng)用程序中的狀態(tài)欄用于顯示當(dāng)前狀態(tài)下應(yīng)用程序或者操作系統(tǒng)的執(zhí)行狀態(tài)。這樣，狀態(tài)欄的創(chuàng)建就完成了，至此，主窗口 frmMain 的界面就全部創(chuàng)建完成了，效果如下所示。（5） 、利用 Adodc 控件連接數(shù)據(jù)庫。（9） 、當(dāng)在主窗口菜單欄中依次選擇“日常業(yè)務(wù)”→“采購單”菜單項(xiàng)時(shí)，需要加載 frmCGD 窗體。有異常跳轉(zhuǎn) = adCmdText = Select from 商品名稱 Product 39。如果已有記錄則在原來的序號(hào)上遞增 .MoveLast If !票號(hào) Then Dim lsph As String lsph = Right(Trim(!票號(hào)), 3) + 1 = $ amp。設(shè)計(jì)銷售單的操作步驟如下：（1） 、按照前述方法在應(yīng)用程序中新增一個(gè) Windows 窗口 frmXSD。如果單擊的工具欄按鈕的關(guān)鍵字為 CGD，則觸發(fā)菜單欄中的”采購單“菜單項(xiàng)的單擊事件 Case Is = CGD CGD_Click 39。設(shè)置其連接屬性使其連接到數(shù)據(jù)庫并檢索數(shù)據(jù)表中的所有記錄。 商品名稱=）connstring = Provider=。下面需要將 frmKCPD 窗口和主窗口中相應(yīng)的菜單綁定。（3） 利用 Adodc 控件連接到數(shù)據(jù)庫。（6） 在 frmCPGL 窗體設(shè)置中放置 5 個(gè)命令按鈕控件，設(shè)置其 Caption 為“添加” 、 “修改。（2） 設(shè)置 frmCPGL 窗口的 Icon 屬性為 System。Server=(local)If 1 Then (connstring)End If (strUpdate)myerr:End Sub（9） 、當(dāng)用戶單擊“退出窗口”按鈕時(shí)，需要調(diào)用窗體的卸載事件。（8） 、當(dāng)用戶單擊“庫存盤點(diǎn)”按鈕后，需要根據(jù)數(shù)據(jù)表更新字段的值，38雙擊 Command1 控件，在其單擊事件中輸入如下代碼：Private Sub Command1_Click()On Error GoTo myerrDim conn As New Dim rs As New Dim strUpdata As StringDim connstring As StringstrUpdate = update product set 庫存=（select sum(數(shù)量) from purchase where amp。（2） 、設(shè)置 frmKCPD 窗口的屬性。顯示 frmXSD 窗體 = False 39。系統(tǒng)當(dāng)前日期的字符串形式賦值myerr:End Sub 創(chuàng)建銷售單菜單欄中的第 2 項(xiàng)是銷售單。從第一條開始逐條添加到 Combo3 的子項(xiàng)中 DoEvents (!供應(yīng)商簡(jiǎn)稱) .MoveNext Loop End With = select 票號(hào) from purchase order by 票號(hào) 39。輸入如下代碼：Private Sub tlbMain_ButtonClick(ByVal Button As ) Select Case 39。（8） 、至此，采購單的界面部分就設(shè)計(jì)完成了。（3） 、使用 Adode 控件連接數(shù)據(jù)庫，首先將這個(gè)控件添加到工具箱中，在工具箱中單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“部件”菜單項(xiàng)。這樣就在狀態(tài)欄中添加了一個(gè)寬度為 6 的狀態(tài)條，在中間顯示“進(jìn)銷存管理系統(tǒng)”文本。（9） 、單擊“確定”按鈕，完成工具欄的創(chuàng)建。（4） 、用鼠標(biāo)右鍵單擊 tlbMain 控件，在彈出的快捷菜單中選擇“屬性”菜單項(xiàng)。這避免了用戶去菜單欄中層層查找需要的功能而浪費(fèi)時(shí)間。N） ”，在“名稱”文本框中輸入“RCYW” 。在工程資源管理器窗口中單擊鼠標(biāo)右鍵，29在彈出的快捷菜單中依次選擇“添加”→“添加窗體”項(xiàng)。提示錯(cuò)誤 Exit Sub Else 39。顯示主窗口 Else 39。 Trim() ) 39。首先要求用戶名不能為空 MsgBox 用戶名不能為空!, vbOKOnly + vbExclamation, 警告! 39。（5） 、在“可用的引用”列表中選擇“Microsoft ActiveX Data Objects Library”項(xiàng)，然后單擊“確定”按鈕即可。這樣，就成功的創(chuàng)建了進(jìn)銷存管理系統(tǒng)工程。25整個(gè)系統(tǒng)運(yùn)行的流程圖大致如圖所示。銷售查詢：統(tǒng)計(jì)查詢功能中的一個(gè)模塊，提供了對(duì)銷售記錄的多種字段的復(fù)合式查詢功能。采購單中的供應(yīng)商必須是 Supplier 數(shù)據(jù)表中有相應(yīng)的記錄。Users 數(shù)據(jù)表的結(jié)構(gòu)如下圖所示：字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許為空 說明用戶 Nvarchar 10 否 主鍵，唯一標(biāo)識(shí)系統(tǒng)用戶密碼 nvarchar 10 是 用戶密碼，可以為空 Purchase 數(shù)據(jù)表結(jié)構(gòu)Purchase 數(shù)據(jù)表主要用于存儲(chǔ)企業(yè)的采購信息，比如采購商品的名稱、價(jià)格、供應(yīng)商編號(hào)、采購數(shù)量、采購日期、經(jīng)手人等。Sale 表 用于存儲(chǔ)銷售記錄的基本信息。 ER 圖型關(guān)系模型的轉(zhuǎn)化要解決的問題是如何將實(shí)體和實(shí)體間的關(guān)系轉(zhuǎn)化為關(guān)系模式，如何確定這些關(guān)系模式的屬性和代碼。從而使概念模型成為現(xiàn)實(shí)世界到機(jī)器世界的一個(gè)過度的中間層次。 數(shù)據(jù)庫設(shè)計(jì)的一般性原則 數(shù)據(jù)庫設(shè)計(jì)的一般性原則如下所示：第一個(gè)基本原則：對(duì)于每一個(gè)要存儲(chǔ)其信息的實(shí)體（或事物） ，我們都應(yīng)該給他一個(gè)自己的表；第二個(gè)處理規(guī)則：如果需要在一個(gè)列里存儲(chǔ)多個(gè)值，那證明你的設(shè)想是有缺陷的。數(shù)據(jù)存儲(chǔ)是數(shù)據(jù)及其結(jié)構(gòu)停留或保存的地方，也是數(shù)據(jù)流的來源和去向之一。數(shù)據(jù)字典通常包括一下 5 個(gè)部分：（1）數(shù)據(jù)項(xiàng)。（4）各類文檔、數(shù)據(jù)，它表明了數(shù)據(jù)的載體?？偨Y(jié)需求分析的步驟為：（1）通過對(duì)現(xiàn)實(shí)化境的調(diào)查研究，獲得當(dāng)前系統(tǒng)的具體模型；11（2）去掉具體模型中的非本質(zhì)因素，抽象出當(dāng)前系統(tǒng)的邏輯模型；（3）分析當(dāng)前系統(tǒng)與目標(biāo)系統(tǒng)的差別、建立了目標(biāo)的邏輯模型；（4）對(duì)目標(biāo)進(jìn)行完善和補(bǔ)充，并寫出完整的需求說明；（5）對(duì)需求說明進(jìn)行復(fù)審，直到確認(rèn)文檔齊全，并且符合用戶的全部需求為止。第二章 系統(tǒng)的需求分析第二章 系統(tǒng)的需求分析 需求分析的目標(biāo)需求分析的目標(biāo)：按照系統(tǒng)規(guī)劃原則在業(yè)務(wù)系統(tǒng)項(xiàng)目范圍內(nèi)，具體明確系統(tǒng)開發(fā)的目標(biāo)和用戶的信息要求。 可行性研究 技術(shù)可行性本系統(tǒng)所采用的軟硬件平臺(tái)具體要求如下：●硬件：處理器：英特爾 賽揚(yáng) D325 主板：雙敏 UP4PEN Pro。使用集合方法可按名稱（文本字符串）或序號(hào)（整形數(shù)）對(duì)集合中的對(duì)象進(jìn)行檢索。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大。我國(guó)目前共有各類企業(yè) 800 萬家，這些企業(yè)在近 20 年來，在不同程度上都遇到了企業(yè)信息系統(tǒng)的建設(shè)問題。通過計(jì)算機(jī)的高速運(yùn)算和處理提高數(shù)據(jù)處理效率。以進(jìn)、銷、存管理為基本要求，主要功能包括：用戶名和密碼的管理、基本信息的輸入和修改、進(jìn)貨信息的管理、銷售信息的管理、庫存信息的管理、財(cái)務(wù)信息的管理。系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)各種信息的系統(tǒng)化、規(guī)范化、自動(dòng)化。其發(fā)展過程大致分為如下 3 個(gè)階段：（1）電子數(shù)據(jù)處理系統(tǒng)（Electronic Date Processing System,EDPS）電子數(shù)據(jù)處理系統(tǒng)是數(shù)據(jù)處理的計(jì)算機(jī)化。6 國(guó)內(nèi)管理信息系統(tǒng)發(fā)展現(xiàn)狀企業(yè)是國(guó)民經(jīng)濟(jì)的基本單元，企業(yè)信息系統(tǒng)建設(shè)是我國(guó)企業(yè)走向現(xiàn)代化的必由之路。 開發(fā)工具簡(jiǎn)介 Visual basic 簡(jiǎn)介Visual basic 是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的高級(jí)語言程序設(shè)計(jì)工具，可用于開發(fā) Windows 環(huán)境下的各類應(yīng)用程序。ADO 提供“集合” ，這是一種可方便地包含其他特殊類型對(duì)象的對(duì)象類型。（3） 、集成性，它已經(jīng)與 Windows 2020 以上的操作系統(tǒng)緊密結(jié)合，能夠提供更加有效的安全性?；谝陨戏治觯到y(tǒng)實(shí)現(xiàn)是可行的。接著進(jìn)入需求描述階段，以需求模型為基礎(chǔ)，考慮到問題的軟件可解性，生成規(guī)格說明和初步的用戶手冊(cè)。（3）業(yè)務(wù)數(shù)據(jù)流動(dòng)及方向，它表達(dá)了業(yè)務(wù)數(shù)據(jù)的流動(dòng)方向，這個(gè)方向用雙箭頭表示。 數(shù)據(jù)字典數(shù)據(jù)字典是各類數(shù)據(jù)描述的集合，它是進(jìn)行詳細(xì)的數(shù)據(jù)收集和數(shù)據(jù)分析后所獲得的主要成果。（4）數(shù)據(jù)存儲(chǔ)。另外，合理的數(shù)據(jù)庫結(jié)構(gòu)將非常有利于程序的實(shí)現(xiàn)。它應(yīng)該能夠真實(shí)、充分的反映現(xiàn)實(shí)世界中事物和事物直接的聯(lián)系；應(yīng)該簡(jiǎn)潔、明晰、獨(dú)立于機(jī)器，容易理解，方便數(shù)據(jù)庫設(shè)計(jì)人員和應(yīng)用人員進(jìn)行交流；應(yīng)該易于變動(dòng)，便于修改；應(yīng)該很容易向關(guān)系、層次或網(wǎng)狀等各種數(shù)據(jù)模型轉(zhuǎn)變，方便的導(dǎo)出與 DBMS 有關(guān)的邏輯模型。這些模式在功能性、完整性和一致性約束及數(shù)據(jù)庫的可擴(kuò)充性等方面應(yīng)滿足用戶的各種需求。Purchase 表 用于存儲(chǔ)采購記錄的基本信息；Customer 數(shù)據(jù)表的結(jié)構(gòu)如下表所示：Customer 數(shù)據(jù)表結(jié)構(gòu)字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許為空 說明客戶簡(jiǎn)稱 Nvarcher 10 否 主鍵，唯一標(biāo)識(shí)客戶記錄客戶全稱 Nvarcher 100 是 客戶單位全稱地址 Nvarcher 100 是郵政編碼 Nchar 6 是電話 Numeric 9 是傳真 Numeric 9 是聯(lián)系人 Nvarcher 30 是聯(lián)系人電話 Nvarcher 9 是開戶銀行 Nvarcher 100 是銀行賬號(hào) Numeric 13 是企業(yè)網(wǎng)址 Nvarcher 50 是20 Users 數(shù)據(jù)表結(jié)構(gòu)Users 數(shù)據(jù)表主要用于存儲(chǔ)本系統(tǒng)的用戶信息，包括用戶的名稱和系統(tǒng)登陸密碼。如果采購一種新商品，必須先在 Product 數(shù)據(jù)表中增加這種商品的信息；進(jìn)銷存管理系統(tǒng)日常業(yè)務(wù) 庫存管理 統(tǒng)計(jì)查詢 基礎(chǔ)信息 系統(tǒng)設(shè)置 退出系統(tǒng)采購單銷售單庫存盤點(diǎn)產(chǎn)品管理庫存查詢采購查詢銷售查詢供應(yīng)商管理客戶管理密碼設(shè)置關(guān)于系統(tǒng)圖 4 1 2 進(jìn)銷存管理系統(tǒng)模塊組織結(jié)構(gòu)圖下面對(duì)各個(gè)模塊的設(shè)計(jì)功能進(jìn)行說明。為了管理的方便和規(guī)范，每筆銷售單對(duì)應(yīng)一個(gè)惟一的銷售單票號(hào)。為了方便對(duì)多個(gè)客戶的管理和比較，本案例中也將此功能用 Tab 頁的形式實(shí)現(xiàn)，既方便對(duì)單個(gè)客戶信息的查看和編輯，又利于對(duì)客戶總體的評(píng)價(jià)和比較。為了防止用戶的誤操作，推出系統(tǒng)之前需要用戶確認(rèn)推出的操作。（5） 、單擊工具欄上的保存按鈕，保存該工程。在菜單欄中一次選擇“工程”→“引用”菜單。在界面設(shè)計(jì)窗口中雙擊 cmbOK 控件，進(jìn)入“確定”按鈕的單擊事件處理代碼中，輸入如下代碼：Private Sub cmdOK_Click() If Trim() = Then 39。如果數(shù)據(jù)庫沒有打開，則打開數(shù)據(jù)庫 (connstring) End If Set rs = (select * from users where 用戶 = amp。加載主窗口 39。 次機(jī)會(huì)!, vbOKOnly + vbExclamation, 提示 39。（1） 、在工程中添加一個(gè)窗體。在“標(biāo)題”文本框中輸入“日常業(yè)務(wù)（amp。 創(chuàng)建工具欄在應(yīng)用程序的開發(fā)中，一般將使用比較頻繁的功能以工具欄的形式放