【正文】 End If 4． 7 模塊及界面設(shè)計(jì) 在這個(gè)模塊中，用戶可以進(jìn)行自己密碼的修改，確保用戶信息和安全性。and 生產(chǎn)商 =39。 End If If And Then strgoods = select * from goods where 超市名稱 =39。 End If If And = Then strgoods = select * from goods where 超市名稱 =39。定義連接庫存表?xiàng)l件時(shí)的 SQL 條件句 If = And Then strgoods = select * from goods where 生產(chǎn)商 =39。 and 銷 售月 = amp。 and 銷售日 = amp。 = str = adCmdText = select * from sell where 銷售年 = amp。 其部分設(shè)計(jì)代碼如下： Private Sub Form_Load() inty = Year(Date) intm = Month(Date) intd = Day(Date) = False = False = False = False Dim str As String str = Provider=。 inty amp。 and 進(jìn)貨日 = amp。Adodc1的相對(duì)路徑連接 = str = adCmdText = select * from buy where 進(jìn)貨年 = amp。Data Source= amp。 amp。如商品名，編號(hào)，價(jià)格，退貨員，數(shù)量，金額 時(shí)間等等進(jìn)行登記。 amp。 打開庫存表 (商品編號(hào) ) = (商品名稱 ) = (生產(chǎn)廠商 ) = (型號(hào) ) = (數(shù)量 ) = Val() (進(jìn)貨價(jià) ) = Val() (銷貨價(jià) ) = Val() MsgBox 商品入庫成功 , vbOKOnly + vbExclamation, 39。 amp。 str_buy, n, adOpenStatic, adLockOptimistic 39。 其實(shí)現(xiàn)的部分代碼如下： 下面是對(duì)進(jìn)貨表進(jìn)行添加記錄操作！ str_buy = select * from buy where 進(jìn)貨編號(hào) =39。 inty amp。 inty amp。 inty amp。輸入相應(yīng)的用戶名和密碼。退貨登記時(shí)將退貨信息添加到退貨表中，然后將退貨數(shù)量從進(jìn)銷存表中減掉，最后 將退貨數(shù)量加到商品庫存表中。具體做法是：先要求用戶將四個(gè)必填項(xiàng)填寫完整，然后對(duì)兩個(gè)新密碼進(jìn)行相同判斷，如果相同，則將記錄集 rs_employee打開，對(duì)用戶名和原密碼進(jìn)行核對(duì)，如果相同，就將老密碼替換為新密碼。但不能對(duì)管理員進(jìn)行刪除操作，此操作已被本人屏蔽。具體操作為：為查詢現(xiàn)存商品表設(shè)立了一個(gè)簡(jiǎn)單的查詢條件，一個(gè)是直接顯示現(xiàn)存的全部商品表，一個(gè)是按條件對(duì)現(xiàn)存商品進(jìn)行查詢，用戶可以根據(jù)自己需要按商品名稱或生產(chǎn)廠商分別進(jìn)行查找。其中兩個(gè) Adodc的數(shù)據(jù)源連接都是采用的相對(duì)路徑與 sell表連接的，兩個(gè) Adodc連接的 SQL語句分別如下： select * from sell select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商銷貨總金額 from sell group by 生產(chǎn)廠商。其中兩個(gè) Adodc的數(shù)據(jù)源連接都是才用的相對(duì)路徑與 sellsystem的 buy表連接的，兩個(gè) Adodc連接的 SQL語句分別如下： select * from buy select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商進(jìn)貨總金額 from buy group by 生產(chǎn)廠商。為 項(xiàng)目添加了必要的控件之后，開始進(jìn)行界面設(shè)計(jì)。退貨成功后，該退貨信息先添加到退貨表，然后將其退貨數(shù)量從相應(yīng)的 sell 表中減掉，并添加到 goods 表中。 （ 6）退貨窗體 本窗體的功能是實(shí)現(xiàn)商品退貨功能，當(dāng)人為判斷某商品可以退貨時(shí)即可將該商品退貨。 具體實(shí)現(xiàn)過程為：先在窗體集中定義兩個(gè)記錄集： rs_sell， rs_goods，用來控制兩個(gè)數(shù)據(jù)表： sell 表和 goods表。如果是新的進(jìn)貨商，可以將它的信息添加到進(jìn)貨商表。在添加到 goods 表時(shí)，程序會(huì)先判斷該商品編號(hào)是否已經(jīng)存在，如果存在則直接將該添加信息的數(shù)量加到 goods 表中相應(yīng)的記錄上。如果是新的進(jìn)貨廠商，可以在此入庫登記。其權(quán)限為：銷貨統(tǒng)計(jì)、進(jìn)貨統(tǒng)計(jì)、查看數(shù)據(jù)表和系統(tǒng)管理。如果是，則 5個(gè)記錄集依次連接到 5 個(gè)數(shù)據(jù)表上，然后對(duì)每個(gè)數(shù)據(jù)表的內(nèi)容進(jìn)行刪除操作。全加入后關(guān)閉記錄集，然后對(duì) bo1 和 text1 中的內(nèi)容做一下簡(jiǎn)單判斷：如果 bo1 和 text1 中的數(shù)據(jù)正好和 employee 表中的某個(gè)記錄相今日銷售統(tǒng)計(jì) 本月銷售統(tǒng)計(jì) 本季度銷售統(tǒng)計(jì) 今年銷售統(tǒng)計(jì) 查看進(jìn)貨表 查看現(xiàn)存商品表 查看銷售表 查看退貨表 管理員工表 查看進(jìn)貨商表 同，則通過登陸窗體，否則提示用戶用戶名或密碼有誤。 （ 3） 銷售統(tǒng)計(jì)管理 ： 主要用于對(duì)商品每日 ,每月，第季度，每年的進(jìn)銷存情況進(jìn)行統(tǒng)計(jì)管理，此功能只有以管理員的身份進(jìn)入時(shí)才為可用狀態(tài)。退貨登記時(shí)將退貨信息添加到退貨表中，然后將退貨數(shù)量從進(jìn)銷存表中減掉，最后將退貨數(shù)量加到商品庫存表中。具體設(shè)置如表 33所示。具體設(shè)置如表 31所示。 Manufacturer 表（進(jìn)貨商表）中包括 有廠商編號(hào)、廠商名稱、聯(lián)系人姓名、電話、廠商地址等字段，表略。 數(shù)據(jù)庫設(shè)計(jì) 上面提到的各種功能的實(shí)現(xiàn)都離不開數(shù)據(jù)庫的支持，因此數(shù)據(jù)庫設(shè)計(jì)作為本系統(tǒng)設(shè)計(jì)的一部分不可缺少。 系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。用戶在 進(jìn)入后可以根據(jù)自己的需要進(jìn)行更改密碼，調(diào)換用戶重新登錄，退出本系統(tǒng)和一些相關(guān)的相關(guān)本版的信息提示。其中每次進(jìn)貨統(tǒng)計(jì)都是按進(jìn)貨廠商和進(jìn)貨總金額統(tǒng)計(jì)顯示的。每次交易（包括進(jìn)貨、銷貨和退貨）都需要對(duì)商品名稱、生產(chǎn)廠商、商品型號(hào)、單價(jià)、數(shù)量、總金額、交易日期、經(jīng)手業(yè)務(wù)員編號(hào)等各項(xiàng)記錄。 數(shù)據(jù)字典是關(guān)于數(shù)據(jù)信息的集合，任何字典最主要的用途都是供人查閱對(duì)不了解的條目的解釋，數(shù)據(jù)字典的作用也正是在軟件分析和設(shè)計(jì)的過程中給人提供關(guān)于數(shù)據(jù)的描述信息。 2） 操作可行性（系統(tǒng)的操作方式在這個(gè)用戶組織能行的通嗎）： 答案是肯定的，本系統(tǒng)操作簡(jiǎn)單，系統(tǒng)的運(yùn)行不需要特定的環(huán)境。 可行性研究 [5] 可行性研究的目的就是用最小的代價(jià)在盡可能短的時(shí)間內(nèi)確定問題是否能夠解決。 （ 7）將數(shù)據(jù)庫中的數(shù)據(jù)傳輸?shù)狡渌麛?shù)據(jù)庫的服務(wù)器上，實(shí)現(xiàn)資源共享。 （ 3）按實(shí)際對(duì)象之間的關(guān)系，定義各個(gè)表之間的關(guān)系。 Access 能作為獨(dú)立的數(shù)據(jù)庫管理系統(tǒng)使用，或作為客戶產(chǎn)生結(jié)構(gòu)化查詢語言這樣的服務(wù)程序。 作為新一代 RDBMS的代表， Microsoft Access 2021提供了真正的關(guān)系數(shù)據(jù)庫管理?？梢愿鶕?jù)個(gè)人的要求來定制 Access數(shù)據(jù)庫環(huán)境。利用 OLE特性，在窗體和報(bào)表中插入對(duì)象。實(shí)現(xiàn)與 Inter的連接，通過 Web檢索和發(fā)布數(shù)據(jù)。通過向?qū)峁┑囊幌盗械目梢暬^程，用戶可以方便地生 成和操作數(shù)據(jù)庫對(duì)象。利用宏或 Visual Basic for Application 語言將各種數(shù)據(jù)庫對(duì)象組織起來，形成一個(gè)數(shù)據(jù)庫應(yīng)用系統(tǒng)。 除了表之外， Access數(shù)據(jù)庫中還包括查詢、窗體、報(bào)表、數(shù)據(jù)訪問頁和模塊等組件，功能強(qiáng)大而且使用方便。生成可以合并數(shù)據(jù)、文本、圖片和其他對(duì)象的實(shí)用直觀的報(bào)告； 存儲(chǔ)幾乎無限多的信息； 表 計(jì)時(shí)器控件的屬性 屬 性 說 明 Enanled 該屬性為 True 時(shí)，計(jì)時(shí)器開始工作，為 False 時(shí)暫停。它不能延伸圖形以適應(yīng)控件的大小，但可以自動(dòng)調(diào)整控件的大小以顯示完整的圖形。 11） 圖像框（ Image）控件 表 圖像框控件的屬性 屬 性 說 明 Stretch 該屬性設(shè)為 Ture 時(shí)可以使圖片自動(dòng)擴(kuò)展以適應(yīng)控件的尺寸，該屬性為 False 時(shí)控件自動(dòng)調(diào)整大小。若設(shè)為 False，框架的標(biāo)題將灰色顯示，且框架中其它控件同時(shí)被禁用。 7）組合框（ ComboBox）控件 組合框（ ComboBox）與列表框（ ListBox）的功能基本相同，只是組合框允許用戶輸入未出現(xiàn)在指定項(xiàng)目中的項(xiàng)目，并可以將選項(xiàng)折疊起來，以節(jié)省控件占用空間。滾動(dòng)條在列表框容納不下項(xiàng)目時(shí)會(huì)自動(dòng)出現(xiàn)。 6. 列表框（ ListBox） 控件 該控件用于顯示項(xiàng)目列表，從列表中可以選擇一項(xiàng)或多項(xiàng)。 Alignment 決定按紐中文本的對(duì)齊方式。在使用時(shí)，一般將幾個(gè)選項(xiàng)按紐組成一組，在同一組中，用戶只能選擇其中的一項(xiàng)。 Locked 決定控件是否可編輯。此時(shí)，PassWordChar 屬性將不起作用?；蛟谠O(shè)計(jì)及運(yùn)行時(shí)為其 Text 屬性賦值，起信息輸出的作用。 AutoSize 用于是否自動(dòng)改變標(biāo)簽的尺寸以適應(yīng)其內(nèi)容，若該屬性設(shè)為 True，標(biāo)簽就會(huì)根據(jù) Caption 屬性的 內(nèi)容進(jìn)行水平變化。 BackStyle 設(shè)置標(biāo)簽的背景模式， 1標(biāo)簽不透明， 0標(biāo)簽透明。每一個(gè)控件均有該屬性，以后不再重復(fù)。 4）測(cè)試和調(diào)試 5）轉(zhuǎn)換為運(yùn)行時(shí)版本。動(dòng)態(tài)鏈接庫（ DLL， Dynamic Link Libraries） 將 C／C++或匯編語言編寫的程序加入到 Visual Basic 的應(yīng)用程序中，或是調(diào)用 Windows 應(yīng)用程序接口（ API， Application Programming Interface）函數(shù)，實(shí)現(xiàn) SDK（ Software Development Kit）所具有的功能。在設(shè)計(jì) Visual Basic程序的過程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)應(yīng)用程序設(shè)計(jì)好之后，可以編譯生成 .exe 可執(zhí)行文件， .exe文件可脫離 Visual Basic環(huán)境直接在 Windows環(huán)境下運(yùn)行。同時(shí) VB還提供了開放式數(shù)據(jù)庫連接（ ODBC， Open DataBase Connectivity）功能，可以通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫，如 SQL Server等。這些事件的順序決定了代碼執(zhí)行的順序。 2） 事件驅(qū)動(dòng)的編程機(jī)制 用 VB 開發(fā)的應(yīng)用程序，代碼不是按照預(yù)定的路徑執(zhí)行，而是在響應(yīng)不同的事件時(shí)執(zhí)行不同的代碼片段。用 VB 進(jìn)行應(yīng)用程序開發(fā)主要有兩部分工作：即設(shè)計(jì)界面和編寫代碼。專業(yè)人員可以用 VB實(shí)現(xiàn)其他任何 Windows 編程語言功能，而初學(xué)者只要掌握幾個(gè)關(guān)鍵詞就可以建立實(shí)用的應(yīng)用程序。這樣，采用 Visual方法無需編寫大量代碼去描述界面元素的外觀和位置，而只要把預(yù)先建立的控件加到屏幕上即可。 1. Visual Basic 概述 Visual Basic中的“ Visual”是指開發(fā)圖形用戶界面（ GUI,Graphical User Interface）的方法。 Visual Basic 簡(jiǎn)介 眾所周知 Visual Basic 是 Windows 環(huán)境下的應(yīng)用程序開發(fā)工具，其最突出的兩個(gè)特點(diǎn)是：可視化編程和事件驅(qū)動(dòng)。但是，對(duì)于具體的企業(yè)單位的來說，由于具有自身的特殊性，因此只需要一個(gè)操作方便，功能實(shí)用，能滿足本企業(yè)對(duì) 倉庫 數(shù)據(jù)的管理及需求的系統(tǒng)。 本課題的研究意義 目前市面上流行的 超市 管理系統(tǒng)不少。 本系統(tǒng)就是為了改變傳統(tǒng)的超市商店這種現(xiàn)狀所設(shè)計(jì)的。 計(jì)算機(jī)的最大好處在于 可以 利用它進(jìn)行信息管理。s daily operation. Traditional way is a waste of human resources and time, and it is plicated and often runs with mistakes. Based on the puter technique, the perfect shopping management turns those plicated data calculation and information processing into simple instructions. It realized the electronic management of data information pletely. It liberates people from the human management entirely. After hard work, I finally realized my design as expecte