【文章內(nèi)容簡介】 VB 連接 ACCESS2021 數(shù)據(jù)庫 用 vb 編寫一個管理軟件，如果不能連接數(shù)據(jù)庫，那也沒有什么用處。先看看 VB 是如何與 ACCESS2021 數(shù)據(jù)庫相連接的。 Sub ConnStr() 39。連接數(shù)據(jù)庫 Set conn = CreateObject() 39。建立數(shù)據(jù)庫連接對像 DBpath = amp。 \ amp。 39。設(shè)置數(shù)據(jù)的路徑 Provider=。Data Source= amp。 DBpath 39。打開數(shù)據(jù)庫連接 Set rs = CreateObject() 39。設(shè)置數(shù)據(jù)庫對像 End Sub 上面的一段代碼就是連接數(shù)據(jù)庫的。上 面 用到了三個變量 conn,Dbpath,rs。其中有兩個變量要定義為公用的變量，因為這段代碼是放在一個模塊中的，為了在每一個窗體中能夠 使用這個變量，所以必須要聲明為公用變量。聲明公用變量的方法如下： Public conn Public rs 上面就是聲明為公用變量，上面的聲明一定要放在模塊的最上面。如果聲明在下面，那就成了局部變量，那么作用范圍就會不同了，作用就更不同，而且在其它窗體中使用到了這個變量，程序會出錯。 13 數(shù)據(jù)庫設(shè)計 上面提到的各種功能的實現(xiàn)都離不開數(shù)據(jù)庫的支持，因此數(shù)據(jù)庫設(shè)計作為本系統(tǒng)設(shè)計的一部分不可缺少。開發(fā)本系統(tǒng)中使用的數(shù)據(jù)庫系統(tǒng)是 Windows Access 2021 。從上面的功能分析不難看出本系統(tǒng)需要建立以下 幾個數(shù)據(jù)表：buy 表 (進(jìn)貨表 )、 goods 表 (現(xiàn)存商品表 )、 sell 表 (銷售表 )、 retreat 表 (退貨表 )、 employee 表 (員工表 )、 manufacturer 表 (進(jìn)貨商表 )。由于數(shù)據(jù)量比較小，所以這些數(shù)據(jù)表都存在一個數(shù)據(jù)庫下： 下面對各個數(shù)據(jù)表的結(jié)構(gòu)做一下簡單介紹： 在系統(tǒng)的數(shù)據(jù)庫設(shè)計中，進(jìn)貨表、銷貨表、商品庫存表和退貨表涉及了交易管理三個子菜單的絕大部分?jǐn)?shù)據(jù)，是本系統(tǒng)數(shù)據(jù)庫的核心，所以將對其部分表的設(shè)置列表顯示。 Manufacturer 表（進(jìn)貨商表）中包括有廠商編號、廠 商名稱、聯(lián)系人姓名、電話、廠商地址等字段，表略。 employee（員工表）中包括有員工編號、員工姓名、員工密碼、員工電話、員工地址等字段，表略。 buy 表（進(jìn)貨表）中包括有進(jìn)貨編號、商品編號、商品名稱、生產(chǎn)廠商、型號、數(shù)量、進(jìn)貨價、進(jìn)貨年、進(jìn)貨月、進(jìn)貨日、總金額、業(yè)務(wù)員編號等。設(shè)計該數(shù)據(jù)表的主要目的是方便管理員的查看，使系統(tǒng)的數(shù)據(jù)管理能夠更加層次化。具體設(shè)置如表 31 所示。 字段名 數(shù)據(jù)類型 說明 進(jìn)貨編號 文本 字段大小為 20 商品名稱 文本 字段大小為 20 生產(chǎn)廠商 文本 字段大小為 20 型號 文本 字段大小為 20 數(shù)量 數(shù)字 長整型 進(jìn)貨價 貨幣 貨幣 進(jìn)貨年 數(shù)字 整型 進(jìn)貨月 數(shù)字 整型 進(jìn)貨日 數(shù)字 整型 業(yè)務(wù)員編號 文本 字段大小為 20 總金額 貨幣 貨幣 表 31 buy表 14 goods 表（現(xiàn)存商品表）中包括有商品編號、生產(chǎn)廠商、商品名稱、型號、進(jìn)貨價、銷貨價、數(shù)量、進(jìn)貨年、進(jìn)貨月、進(jìn)貨日、業(yè)務(wù)員編號、總金額等字段。具體設(shè)置如表 32 所示。 字段名 數(shù)據(jù)類型 說明 商品編號 文本 字段大小為 20 商品名稱 文本 字段大小為 20 生產(chǎn)廠商 文本 字段大小為 20 型 號 文本 字段大小為 20 數(shù)量 數(shù)字 長整型 進(jìn)貨價 貨幣 貨幣 銷貨價 貨幣 貨幣 表 32 goods表 sell 表 (銷貨表 )中包括有銷貨編號、商品編號、商品名稱、生產(chǎn)廠商、型號、數(shù)量等字段，由于篇幅有限，其表略。 retreat 表（退貨表）中包括有退貨編號、銷貨編號、生產(chǎn)廠商、商品名稱、型號、單價、數(shù)量、總金額、退貨年、退貨月、退貨日、業(yè)務(wù)員編號等。具體設(shè)置如表 33 所示。 字段名 數(shù)據(jù)類型 說明 退貨編號 文本 字段大小為 20 銷貨編號 文本 字段大小為 20 商品名稱 文本 字段大小為 20 生產(chǎn)廠商 文本 字段大小為 20 型號 文本 字段大小為 20 單價 貨幣 貨幣 數(shù)量 數(shù)字 長整型 總金額 貨幣 貨幣 退貨年 數(shù)字 整型 退貨月 數(shù)字 整型 退貨日 數(shù)字 整型 業(yè)務(wù)員編號 文本 字段大小為 20 表 33 retreat表 15 第四章 詳細(xì)設(shè)計 系統(tǒng)功能的詳細(xì)設(shè)計與實現(xiàn) 窗體設(shè)計 (1)登陸窗體設(shè)計 圖 登陸窗體 該登陸窗體對用戶登陸做了一個簡單的判斷，如果是管理員登陸則可進(jìn)入初始化界面，然后再進(jìn)入主界面。具體做法是：先在窗體級中定義一個記錄集，用于打開 employee 表，打開后將該表中的字段：員工姓名，依次加到 bo1 中。全加入后關(guān)閉記錄集，然后對 bo1 和 text1 中的內(nèi)容做一下簡單判斷：如果bo1 和 text1 中的數(shù)據(jù)正好和 employee 表中的某個記錄相同，則通過登陸窗體，否則提示用戶用戶名或密碼有誤。在通過登陸窗體中還要對用戶名做一下判斷：如果是管理員登陸，則進(jìn)入主界面。 實現(xiàn)代碼如下： Private Sub Label3_Click() If = Then MsgBox 請輸入用戶名！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請輸入密碼！ , vbOKOnly + vbInformation, 注意 Exit Sub 16 End If stremployee = select * from employee where 員工姓名 =39。 amp。 amp。 39。 and 員工密碼 =39。 amp。 amp。 39。 stremployee, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 用戶名或密碼錯誤，請從新輸入！ , vbOKOnly + vbInformation, 注意 Exit Sub Else strs = (員工編號 ) End If 主界面設(shè)計 圖 主窗體的建立十分簡單，只需將所要實現(xiàn)的功能編輯成菜單即可。 該窗體的運行過程為：用戶首先進(jìn)入登陸窗體，如果是管理員登陸，則先進(jìn)入初始化窗體，經(jīng)過判斷是否需要初始化后，進(jìn)入主窗體。其權(quán)限為：銷貨統(tǒng)計、進(jìn)貨統(tǒng)計、查看數(shù)據(jù)表和系統(tǒng)管理 。其權(quán)限的設(shè)置使管理員能夠方便的查看任何時間段內(nèi)的所有信息，還可以對員工表進(jìn)行管理。如果是普通用戶登陸，則直接 17 進(jìn)入主窗體，其授予的權(quán)限只有交易管理和系統(tǒng)管理，也就是說員工只能負(fù)責(zé)對商品進(jìn)行入庫登記、銷貨登記和退貨登記，另外在一個員工對本系統(tǒng)使用的整個期間內(nèi)，進(jìn)貨登記、銷貨登記和退貨登記三個窗體中的顯示的業(yè)務(wù)員編號都由系統(tǒng)自動給出的該員工的員工編號。 交易管理單元設(shè)計 1．進(jìn)貨登記窗體 圖 本窗體用來實現(xiàn)商品進(jìn)貨功能，將進(jìn)貨信息添加到 buy 表，再將該信息選擇性的加入 goods 表。如 果是新的進(jìn)貨廠商，可以在此入庫登記。其具體實現(xiàn)過程如下所述：先在窗體及變量中定義三個記錄集： rs_buy， rs_goods，rs_manufacture 用來控制三個數(shù)據(jù)表： buy 表， goods 表， manufacturer 表。在用戶點擊添加商品中的添加入庫操作之前，程序先會檢查是否有用戶是否有個別屬性為空，并做出提示。然后將商品添加到 buy 表中，再添加到 goods 表。在添加到 goods 表時，程序會先判斷該商品編號是否已經(jīng)存在，如果存在則直 18 接將該添加信息的數(shù)量加到 goods 表中相應(yīng)的記錄上。為此，進(jìn)貨編號、商品編號是 buy 表、 goods 表中不可重復(fù)的屬性。為方便用戶操作，程序特在商品編號的文本框： text2 的 Change 事件中做了一個判斷，即如果該商品編號存在的話直接顯示該商品的其他屬性。另外，對于總金額文本框也是由數(shù)量和進(jìn)貨價兩個文本框的 Change 事件計算入內(nèi)的。如果是新的進(jìn)貨商，可以將它的信息添加到進(jìn)貨商表。其過程和上面所說的添加到 buy 表基本相同，這里就不做介紹了。 添加商品 與廠商 的實現(xiàn)代碼如下 ： str_buy = select * from buy where 進(jìn)貨編號 =39。 amp。 amp。 39。 str_buy, n, adOpenStatic, adLockOptimistic If = True Then (進(jìn)貨編號 ) = . . . . . . (總金額 ) = Val() MsgBox 此進(jìn)貨編號已存在，請重添！ , vbOKOnly + vbInformation, 注意 sql = select * from goods where 商品編號 = 39。 amp。 amp。 39。 sql, n, adOpenStatic, adLockOptimistic If = True Then str_goods = select * from goods str_goods, n, adOpenStatic, adLockOptimistic (商品編號 ) = . . . . . . (銷貨價 ) = Val() MsgBox 商品入庫成功 , vbOKOnly + vbExclamation, Else numgoods = (數(shù)量 ) (數(shù)量 ) = Val() + numgoods MsgBox 商品入庫成功 , vbOKOnly + vbExclamation, End If 2．銷貨登記窗體 19 圖 本窗體主要功能是對商品進(jìn)行銷售，首先對員工輸入的銷貨信息進(jìn)行完整條件的判斷，條件符合后進(jìn)行銷售。然后將銷售信息存入 sell 表，并對 goods表的數(shù)量做