【正文】 r_goods = select * from goods where 商品編號 =39。 amp。 銷售按鈕代碼實(shí)現(xiàn)如下： str_goods = select * from goods where 商品編號 =39。而銷售日期和業(yè)務(wù)員編號已經(jīng)是程序默認(rèn)給出的系統(tǒng)時間和登陸員工的編號。 具體實(shí)現(xiàn)過程為：先在窗體集中定義兩個記錄集：rs_sell， rs_goods，用來控制兩個數(shù)據(jù)表： sell 表和 goods 表。 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)行銷售。 amp。 str_buy, n, adOpenStatic, adLockOptimistic If = True Then (進(jìn)貨編號 ) = . . . . . . (總金額 ) = Val() MsgBox 此進(jìn)貨編號已存在，請重添！ , vbOKOnly + vbInformation, 注意 sql = select * from goods where 商品編號 = 39。 amp。 添加商品與廠商的實(shí)現(xiàn)代碼如下： str_buy = select * from buy where 進(jìn)貨編號 =39。如果是新的 進(jìn)貨商，可以將它的信息添加到進(jìn)貨商表。為方便用戶操作，程序特在商品編號的文本框： text2 的 Change 事件中做了一個判斷，即如果該商品編號存在的話直接顯示該商品的其他屬性。在添加到 goods 表時，程序會先判斷該商品編號是否已經(jīng)存在，如果存在則直 18 接將該添加信息的數(shù)量加到 goods 表中相應(yīng)的記錄上。在用戶點(diǎn)擊添加商品中的添加入庫操作之前，程序先會 檢查是否有用戶是否有個別屬性為空，并做出提示。如果是新的進(jìn)貨廠商，可以在此入庫登記。如果是普通用戶登陸，則直接 17 進(jìn)入主窗體，其授予的權(quán)限只有交易管理和系統(tǒng)管理，也就是說員工只能負(fù)責(zé)對商品進(jìn)行入庫登記、銷貨登記和退貨登記，另外在一個員工對本系統(tǒng)使用的整個期間內(nèi)，進(jìn)貨登記、銷貨 登記和退貨登記三個窗體中的顯示的業(yè)務(wù)員編號都由系統(tǒng)自動給出的該員工的員工編號。其權(quán)限為：銷貨統(tǒng)計、進(jìn)貨統(tǒng)計、查看數(shù)據(jù)表和系統(tǒng)管理。 stremployee, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 用戶名或密碼錯誤，請從新輸入！ , vbOKOnly + vbInformation, 注意 Exit Sub Else strs = (員工編號 ) End If 主界面設(shè)計 圖 主窗體的建立十分簡單，只需將所要實(shí)現(xiàn)的功能編輯成菜單即可。 amp。 and 員工密碼 =39。 amp。 實(shí)現(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。全加入后關(guān)閉記錄集，然后對 bo1 和 text1 中的內(nèi)容做一下簡單判斷：如果bo1 和 text1 中的數(shù)據(jù)正好和 employee 表中的某個記錄相同，則通過登陸窗體，否則提示用戶用戶名或密碼有誤。 字段名 數(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è)計與實(shí)現(xiàn) 窗體設(shè)計 (1)登陸窗體設(shè)計 圖 登陸窗體 該登陸窗體對用戶登陸做了一個簡單的判斷，如果是管理員登陸則可進(jìn)入初始化界面，然后再進(jìn)入主界面。 retreat 表（退貨表）中包括有退貨編號、 銷貨編號、生產(chǎn)廠商、商品名稱、型號、單價、數(shù)量、總金額、退貨年、退貨月、退貨日、業(yè)務(wù)員編號等。具體設(shè)置如表 32 所示。具體設(shè)置如表 31 所示。 buy 表（進(jìn)貨表）中包括有進(jìn)貨編號、商品編號、商品名稱、生產(chǎn)廠商、型號、數(shù)量、進(jìn)貨價、進(jìn)貨年、進(jìn)貨月、進(jìn)貨日、總金額、業(yè)務(wù)員 編號等。 Manufacturer 表（進(jìn)貨商表）中包括有廠商編號、廠商名稱、聯(lián)系人姓名、電話、廠商地址等字段，表略。從上面的功能分析不難看出本系統(tǒng)需要建立以下幾個數(shù)據(jù)表：buy 表 (進(jìn)貨表 )、 goods 表 (現(xiàn)存商品表 )、 sell 表 (銷售表 )、 retreat 表 (退貨表 )、 employee 表 (員工表 )、 manufacturer 表 (進(jìn)貨商表 )。 13 數(shù)據(jù)庫設(shè)計 上面提到的各種功能的實(shí)現(xiàn)都離不開數(shù)據(jù)庫的支持，因此數(shù)據(jù)庫設(shè)計作為本系統(tǒng)設(shè)計的一部分不可缺少。聲明公用變量的方法如下： Public conn Public rs 上面就是聲明為公用變量，上面的聲明一定要放在模塊的最上面。上面用到了三個變量 conn,Dbpath,rs。打開數(shù)據(jù)庫連接 Set rs = CreateObject() 39。Data Source= amp。 39。建立數(shù)據(jù)庫連接對像 DBpath = amp。 Sub ConnStr() 39。 圖 出現(xiàn)設(shè)計的界面后，就可以開始設(shè)計數(shù)據(jù)表了！ 12 圖 VB 連接 ACCESS2021 數(shù)據(jù)庫 用 vb 編寫一個管理軟件，如果不能連接數(shù)據(jù)庫，那 也沒有什么用處。 圖 怎樣創(chuàng)建一個數(shù)據(jù)表 上面已經(jīng)講了如何創(chuàng)建一個數(shù)據(jù)庫文件，按照上面的步驟建立一個數(shù)據(jù)庫文件后，需要在數(shù)據(jù)庫文件中建立一個數(shù)據(jù)表。 圖 11 最后一 步就是要選擇一個要保存數(shù)據(jù)庫文件的名字和位置。如下所示： 圖 打開 ACCESS2021 之后，會開啟一個窗口，可選擇是打開以前的數(shù)據(jù)庫文件還是新建一個新的空數(shù)據(jù)庫文件，如果選擇空 ACCESS 數(shù)據(jù)庫，然后點(diǎn)擊確定按鈕。 10 設(shè)計數(shù)據(jù)庫系統(tǒng)時，應(yīng)該首先了解用戶的各個方面的需求，包括現(xiàn)有的以及將來可能增加的。合理的數(shù) 據(jù)庫設(shè)計可以提高數(shù)據(jù)庫存儲效率，保證數(shù)據(jù)的完整和一致。數(shù)據(jù)管理技術(shù)的優(yōu)劣，將直接影響數(shù)據(jù)處理的效率。通常在數(shù)據(jù)處理中，計算是比較簡單的而數(shù)據(jù)的管理卻比較復(fù)雜。從 1956 年生產(chǎn)出第一臺計算 機(jī)到現(xiàn)在，存儲器的發(fā)展，為數(shù)據(jù)庫技術(shù)提供了良好的物質(zhì)基礎(chǔ)。 計算機(jī)的數(shù)據(jù)處理應(yīng)用，首先要把大量的信息以數(shù)據(jù)形式存放在存儲器中。最近，由于數(shù)據(jù)庫的普及，數(shù)據(jù)庫技術(shù)已經(jīng)被應(yīng)用到了新的領(lǐng)域，諸如用于 Inter 的數(shù)據(jù)庫或用于公司內(nèi)聯(lián)網(wǎng)的數(shù)據(jù)庫。 數(shù)據(jù)庫的目的是幫助人們跟蹤事務(wù)。理解用戶的需求，然后，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫設(shè)計是一個藝術(shù)過程。它們只是加重了數(shù)據(jù)庫技術(shù)的重要性。同時， Inter 技術(shù)提供了一種向用戶發(fā)布數(shù)據(jù)庫內(nèi)容的標(biāo)準(zhǔn)化的訪問方法。實(shí)體 ER 圖如下： 圖 銷售統(tǒng)計管理 本季度銷售 本月銷售 今年銷售 今日銷售 查看數(shù)據(jù)表 銷售表 現(xiàn)存商品表 退貨表 進(jìn)貨表 管理員工表 進(jìn)貨商表 9 第三章 系統(tǒng)數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫的概念 數(shù)據(jù)庫處理在信息系統(tǒng)的研究 中一直是非常重要的主題，然而，近年來，隨著 World Wide Web(WWW)的猛增及 Inter 技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫技術(shù)之時成為最熱門技術(shù)之一。實(shí)體 ER 圖如下： 圖 交易管理 退貨登記 銷售登記 進(jìn)貨登記 進(jìn)貨統(tǒng)計管理 本季度進(jìn)貨 本月進(jìn)貨 今年進(jìn)貨 今日進(jìn)貨 8 3．銷售統(tǒng)計管理 ： 主要用于對商品每日 ,每月， 第季度，每年的銷售情況進(jìn)行統(tǒng)計管理，此功能只有以管理員的身份進(jìn)入時才為可用狀態(tài)。 程序流程圖 圖 各模塊功能圖 設(shè)計： ： 用于管理商品的進(jìn)貨，銷售，退貨登記的操作。 通過經(jīng)濟(jì)、技術(shù)、和社會等方面的可行性研究，可以確定本系統(tǒng)的開發(fā)完全必要，而且是可行的，可以立項開發(fā)。超市管理信息系統(tǒng)不僅能夠提高經(jīng)營者的回報，而且能夠隨時掌握市場的動向，為經(jīng)營者提供必要的市場信息，解決了經(jīng)營者最需要解決的迫切問題，同時管理信息系統(tǒng)對操作人