【正文】 。設(shè)置其連接屬性使其連接到數(shù)據(jù)庫(kù)并檢索數(shù)據(jù)表中的所有記錄。 （ 2）、設(shè)置 frmKCPD 窗口的屬性。由于企業(yè)中采購(gòu)和銷售活動(dòng)非常頻繁，而且銷售的商品種類需要考慮到實(shí)際庫(kù)存大于零，因此庫(kù)存盤點(diǎn)功能也是十分常用和重要的。 運(yùn)行程序，經(jīng)過(guò)登錄后進(jìn)入到系統(tǒng)主窗口，可以生成銷售單，效果如圖所示： 創(chuàng)建庫(kù)存盤點(diǎn)窗口 菜單中的第 3 項(xiàng)是庫(kù) 存盤點(diǎn)。如果單擊的工具欄按鈕的關(guān)鍵字為 CGD，則觸發(fā)菜單欄中的”采購(gòu)單“菜單項(xiàng)的單擊事件 Case Is = CGD CGD_Click 39。顯示 frmXSD窗體 = False 39。 （ 5）、在主窗口菜單上單擊“銷售單”菜單項(xiàng)，進(jìn)入菜單項(xiàng)的單擊事件響應(yīng)程序中，輸入如下代碼： Private Sub XSD_Click() Load frmXSD 39。 （ 3）、按照前述方法創(chuàng)建 Adodc 控件 adoXSD，連接到數(shù)據(jù)庫(kù)。 設(shè)計(jì)銷售單的操作步驟如下： （ 1）、按照前述方法在應(yīng)用程序中新增 一個(gè) Windows 窗口 frmXSD。系統(tǒng)當(dāng)前日期的字符串形式賦值 myerr: End Sub 創(chuàng)建銷售單 菜單欄中的第 2項(xiàng)是銷售單。 _p_ amp。 Format(lsph, 000) End If Else 39。如果已有記錄則在原來(lái)的序號(hào)上遞增 .MoveLast If !票號(hào) Then Dim lsph As String 35 lsph = Right(Trim(!票號(hào) ), 3) + 1 = $ amp。從第一條開始逐條添加到 Combo3的子項(xiàng)中 DoEvents (!供應(yīng)商簡(jiǎn)稱 ) .MoveNext Loop End With = select 票號(hào) from purchase order by 票號(hào) 39。從第一條開始逐條添加到 Combo2的子項(xiàng)中 DoEvents (!用戶 ) .MoveNext Loop End With = select 供應(yīng)商簡(jiǎn)稱 from supplier 39。從第一條開始逐句添加到 Combo1的子項(xiàng)中 DoEvents (!商品名稱 ) .MoveFirst Loop End With 34 = select 用戶 from Uers 39。有異常跳轉(zhuǎn) = adCmdText = Select from 商品名稱 Product 39。輸入如下代碼： Private Sub tlbMain_ButtonClick(ByVal Button As ) Select Case 39。顯示 frmCGD窗體 = False 39。在主窗體中單擊“采購(gòu)單”菜單項(xiàng)，輸入代碼如下： Private Sub CGD_Click() 33 Load frmCGD 39。 （ 9）、當(dāng)在主窗口菜單欄中依次選擇“日常業(yè)務(wù)”→“采購(gòu)單”菜單項(xiàng)時(shí)，需要加載 frmCGD 窗體。 （ 8）、至此，采購(gòu)單的界面部分就設(shè)計(jì)完成了。在“提供程序”選項(xiàng)卡中 Microsoft OLE DB Provider for SQL Server 選項(xiàng)，切換到“連接”選項(xiàng)卡。用鼠標(biāo)右鍵單擊 adoCGD 控件，在彈出的快捷菜單中選擇“ ADODC 屬性”菜單項(xiàng)。 （ 5）、利用 Adodc 控件連接數(shù)據(jù)庫(kù)。 32 （ 3）、使用 Adode 控件連接數(shù)據(jù)庫(kù)，首先將這個(gè)控件添加到工具箱中，在工具箱中單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“部件”菜單項(xiàng)。 設(shè)計(jì)入庫(kù)單操作步驟如下： （ 1）、按照前述方法在應(yīng)用程序中新增一個(gè) Windows 窗口 frmCGD。但是主窗口中各種功能，包括菜單中和工具欄中的，都是沒(méi)有事件處理代碼的空架子。 這樣，狀態(tài)欄的創(chuàng)建就完成了，至此，主窗口 frmMain 的界面就全部創(chuàng)建完成了，效果如下所示。這樣就在狀態(tài)欄中添加了一個(gè)寬度為 6的 狀態(tài)條，在中間顯示“進(jìn)銷存管理系統(tǒng)”文本。 31 （ 2）、用鼠標(biāo)右鍵單擊 stbMain 控件，在彈出的快捷菜單中選擇“屬性”菜單項(xiàng)。 在這個(gè)應(yīng)用程序中，在窗口的地步放一個(gè)狀態(tài)欄，用于顯示系統(tǒng)名稱、作者信息、當(dāng)前日期和當(dāng)前時(shí)間信息。 創(chuàng)建狀態(tài)欄 應(yīng)用程序中的狀態(tài)欄用于顯示當(dāng)前狀態(tài)下應(yīng)用程序或者操作系統(tǒng)的執(zhí)行狀態(tài)。 （ 9）、單擊“確定”按鈕，完成工具欄的創(chuàng)建。這樣就在工具欄上添加了一個(gè)名稱為“銷售單”的圖標(biāo)按鈕。這樣就在工具欄上添加了一個(gè)名稱為“采購(gòu)單”的圖標(biāo)按鈕。這樣 tlbMain 工具欄就可以使用上面定義的 imlToolBar 圖像列表的圖片了。 （ 4）、用鼠標(biāo)右鍵單擊 tlbMain 控件，在彈出的快捷菜單中選擇“屬性”菜單項(xiàng)。在 imlToolBar 控件的屬性窗口中單擊“自定義”屬性右側(cè)的按鈕，進(jìn)入如圖所示的“屬性頁(yè)”對(duì)話框，在“圖像”選項(xiàng)卡中單擊“插入圖片”按鈕 ，在彈出的對(duì)話框中打開需要插入的圖片，然后單擊“確定”按鈕即可。設(shè)置其名稱屬性為imlToolBar。 具體操作步驟如下： （ 1）、在設(shè)計(jì)工具欄之前，首先需要?jiǎng)?chuàng)建工具欄按鈕圖標(biāo)對(duì)應(yīng)的圖片列表。這避免了用戶去菜 單欄中層層查找需要的功能而浪費(fèi)時(shí)間。 這樣，窗口 frmMain 的菜單就設(shè)計(jì)完成了?！焙竺娴囊粋€(gè)字母鍵，就可以調(diào)用菜單項(xiàng)的功能或者彈出菜單下面的子菜單。每個(gè)菜單項(xiàng)通過(guò)“ amp。N）”，在“名稱”文本框中輸入“ RCYW”。 （ 2）、下面就需要按照系統(tǒng)設(shè)計(jì)中的要求來(lái)設(shè)計(jì)菜單的結(jié)構(gòu)。 創(chuàng)建菜單欄 在這個(gè)系統(tǒng)的主窗口中，需要設(shè)計(jì)一個(gè)菜單欄，為用戶執(zhí)行各種命令和操作提供方便。 29 （ 3）、設(shè)置 frmMain 窗口的屬性。在工程資源管理器窗口中單擊鼠標(biāo)右鍵，在彈出的快捷菜單中依次選擇“添加”→“添加窗體”項(xiàng)。 下面介紹如何創(chuàng)建應(yīng)用程序的主界面 frmMain 窗口。如果用戶輸入了錯(cuò)誤的用戶名或者密碼，系統(tǒng)都將用消息對(duì)話框提示。關(guān)閉數(shù)據(jù)庫(kù)連接 End Sub 這樣，登錄界面的設(shè)計(jì)和代碼編寫就全部完成了。提示錯(cuò)誤 Exit Sub Else 39。 Str(3 num) amp。 vbCrLf amp。輸入錯(cuò)誤次數(shù)不足 3次 num = num + 1 39。顯示主窗口 Else 39。卸載登陸窗口 Load frmMain 39。存在此用戶名，檢查密碼 If (密碼 ).Value = Trim() Then 39。如果記錄為空則說(shuō)明不存在此條記錄，也說(shuō)明用戶名錯(cuò)誤 MsgBox 沒(méi)有這個(gè)用戶 !, vbCrLf amp。 Trim() ) 39。Server=(load) If 1 Then 39。User ID=sa。Password=ecc。首先要求用戶名不能為空 MsgBox 用戶名不能為空 !, vbOKOnly + vbExclamation, 警告 ! 39。但是如果檢測(cè)到用戶已經(jīng)連續(xù) 3次輸入密碼都錯(cuò)誤，就需要提示用戶無(wú)權(quán)登錄本系統(tǒng)，并推出系統(tǒng)。最后將組合框的第一個(gè)子項(xiàng)設(shè)置為默認(rèn)選項(xiàng)。 （ 6）、當(dāng)系統(tǒng)運(yùn)行打開 frmLogin 窗口的時(shí)候，需要從數(shù)據(jù)庫(kù)的 Users 數(shù)據(jù)表中查找當(dāng)前系統(tǒng)中所有的用戶，然后將它們添加到 cmbUserName 組合框中。 （ 5）、在“可用的引用”列表中選擇“ Microsoft ActiveX Data Objects Library”項(xiàng)，然后單擊“確定”按鈕即可。 窗口設(shè)計(jì)效果 （ 4）、因?yàn)橐诖翱诘拇a中使用 ADO 中的一些對(duì)象進(jìn)行數(shù)據(jù)庫(kù)的操作，所以必須先引用相應(yīng)的庫(kù)。程序在數(shù)據(jù)庫(kù)的 Users 數(shù)據(jù)表中進(jìn)行查詢，如果用戶的密碼正確，就可以使用該系統(tǒng)；如果用戶的密碼錯(cuò)誤，將提示用戶重新輸入密碼。 26 創(chuàng)建系統(tǒng)窗口 創(chuàng)建登陸窗口 在進(jìn)入應(yīng)用程序主界面之前，一般都需要登錄操作，以便確認(rèn)用戶身份，從而保證企業(yè)數(shù)據(jù)的安全性。 這樣，就成功的創(chuàng)建了進(jìn)銷存管理系統(tǒng)工程。 （ 4）、在“工程名稱 ” 文本框中將工程的名稱設(shè)置為“進(jìn)銷存管理系統(tǒng)”，然后單擊“確定”按鈕。 （ 2）、在列表中選擇“標(biāo)準(zhǔn) EXE”圖標(biāo)以指定新建應(yīng)用程序的類型為標(biāo)準(zhǔn)的Windows 應(yīng)用程序，然后單擊“確定”按鈕，打開系統(tǒng)初始界 面。 在具體的實(shí)現(xiàn)各個(gè)功能模塊之前，需要在 Visual Basic 中創(chuàng)建一個(gè)工程，以管理系統(tǒng)開發(fā)中的不同資源。 整個(gè)系統(tǒng)運(yùn)行的流程圖大致如圖所示。推出系統(tǒng)：用于推出本系統(tǒng)。為了用戶使用本系統(tǒng)方便，該模塊中還提供了計(jì)算機(jī)系統(tǒng)信息的顯示功能。 客戶管理：基礎(chǔ)信息維護(hù)的一個(gè)模塊，主要用于對(duì)企業(yè)客戶信息的查詢和維護(hù)。某時(shí)刻運(yùn)行界面如圖所示。供應(yīng)商管理：基礎(chǔ)信息維護(hù)中的一個(gè)模塊，主要用于對(duì)供應(yīng)商信息進(jìn)行查詢和維護(hù)。銷售查詢：統(tǒng)計(jì)查詢功能中的一個(gè)模塊，提供了對(duì)銷售記錄的多種字段的復(fù)合式查詢功能。采購(gòu)查詢：統(tǒng)計(jì)查詢 功能中的一個(gè)模塊，提供了對(duì)采購(gòu)記錄的多種字段的 24 符合式查詢功能。庫(kù)存查詢的初始界面如圖所示。 銷售單中的商品名稱、客戶和經(jīng)手人字段分別對(duì)應(yīng) Product 數(shù)據(jù)表、 Customer 數(shù)據(jù)表和 Users 數(shù)據(jù)表中的相關(guān)字段，所以這里需要檢驗(yàn)用戶輸入的合法性。 23 采購(gòu)單中的商品名稱、供應(yīng)商和經(jīng)手人字段分別對(duì)應(yīng) Product 數(shù)據(jù)表、 Supplier 數(shù)據(jù)表和 Users 數(shù)據(jù)表中的相關(guān)字段，所以這里需要檢驗(yàn)用戶輸入的合法性。 根據(jù)需求分析，設(shè)計(jì)的進(jìn)銷存管理系統(tǒng)的模塊組織結(jié)構(gòu)如圖所示。 第四章 系統(tǒng)詳細(xì)設(shè)計(jì) 錯(cuò)誤 !未指定書簽。銷售單中的客戶必須是 Customer 數(shù)據(jù)表中的有相關(guān)記錄。如果采購(gòu) 中發(fā)展了新的供應(yīng)商，必須先在 Supplier 數(shù)據(jù)表中增加這家供應(yīng)商的信息。如果采購(gòu)一種新商品，必須先在 Product 數(shù)據(jù)表中增加這種商品的信息； 采購(gòu)單，銷售單中的經(jīng)手人必須是企業(yè)中的合法員工，本案例中要求經(jīng)手人必須是在 Users 數(shù)據(jù)表中有相應(yīng)的記錄； Sale 數(shù)據(jù)表的結(jié)構(gòu)如下表所示： 21 Sale 數(shù)據(jù)表結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許為空 說(shuō)明 商品名稱 Nvarcher 255 否 外鍵，對(duì)應(yīng) Product表 數(shù)量 int 4 否 每筆采購(gòu)記錄必須有采購(gòu)數(shù)量 單價(jià) Money 8 否 每筆采購(gòu)記錄必須有采購(gòu)進(jìn)價(jià) 金額 Money 8 是 由數(shù)量和進(jìn)價(jià)計(jì)算得出 備注 Nvarcher 220 是 客戶 Nvarcher 10 否 外鍵，對(duì)應(yīng) Customer表 日期 smalldatetime 4 否 每筆采購(gòu)必須有采購(gòu)時(shí)間 經(jīng)手人 Nvarcher 10 否 外鍵，對(duì)應(yīng) User表 票號(hào) Nvarcher 50 否 每筆采購(gòu)記錄必須有唯一的票號(hào) 各數(shù)據(jù)表的關(guān)系 實(shí)際進(jìn)銷存業(yè)務(wù)中的一些數(shù)據(jù)是在多個(gè)業(yè)務(wù)活動(dòng)中共享的，比如采購(gòu)單中的商品必須在 Product 數(shù)據(jù)表中有相關(guān)記錄，所以在本案例中也對(duì)上述的 6個(gè)數(shù)據(jù)表設(shè)置了對(duì)應(yīng)關(guān)系。 Purchase 數(shù)據(jù)表的結(jié)構(gòu)如下表所示。 Customer 數(shù)據(jù)表的結(jié)構(gòu)如下表所示： Customer 數(shù)據(jù)表結(jié)構(gòu) 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許為空 說(shuō)明 客戶簡(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 是 Users 數(shù)據(jù)表結(jié)構(gòu) Users 數(shù)據(jù)表主要用于存儲(chǔ)本系統(tǒng)的用戶信息，包括用戶的名稱和系統(tǒng)登陸 20 密碼。 Supplier 數(shù)據(jù)表的結(jié)構(gòu)如下表所示。