【正文】 。 Set = Adodc2 4． 5 銷(xiāo)售統(tǒng)計(jì)模塊及界面設(shè)計(jì) 主要用于對(duì)商品每日 ,每月，第季度，每年的進(jìn)銷(xiāo)存情況進(jìn)行統(tǒng)計(jì)管理，此功能只有以管理員的身份進(jìn)入時(shí)才為可用狀態(tài)。 intm amp。 其部分設(shè)計(jì)代碼如下： Private Sub Form_Load() inty = Year(Date) intm = Month(Date) intd = Day(Date) Dim str As String str = Provider=。 str_goods, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 對(duì)不起，此商品型號(hào)已無(wú)貨！請(qǐng)選擇其他型！ , vbOKOnly + vbInformation, 注意 Exit Sub 3． 退貨登記 ： 對(duì)退貨的相關(guān)信息進(jìn)行記。 sql, n, adOpenStatic, adLockOptimistic If = True Then str_goods = select * from goods str_goods, n, adOpenStatic, adLockOptimistic 39。 39。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotal strtotal = select sum(總金額 ) as 進(jìn)貨總金額 from buy where 進(jìn)貨年 = amp。 部分設(shè)計(jì)代碼如下： Private Sub mnBuyMonth_Click() = False = 1 (0) = False (1) = True (2) = False (3) = False strbuy = select * from buy where 進(jìn)貨年 = amp。銷(xiāo)貨登記時(shí)，先將商品的銷(xiāo)貨信息添加到銷(xiāo)貨表中，然后將商品庫(kù)存表中響應(yīng)的商品的數(shù)量做相對(duì)調(diào)整，保證商品數(shù)量的一致性。 （ 11） 管理員工表 本窗體的制作目的在于方便對(duì)管理員用戶的管理， 本節(jié)前面曾經(jīng)提過(guò)系統(tǒng)初始化的功能，但其初始化并不能對(duì)員工表進(jìn)行操作，當(dāng)管理員登陸本系統(tǒng)時(shí)，可以訪問(wèn)此窗體，對(duì)用戶表進(jìn)行維護(hù)。其界面設(shè)計(jì)和窗 體說(shuō)明與進(jìn)貨統(tǒng)計(jì)大同小異，也一樣一個(gè)選項(xiàng)卡為例進(jìn)行說(shuō)明，現(xiàn)以 ” 今日銷(xiāo)貨 ” 為例：加入兩個(gè) datagrid控件，兩個(gè) Adodc控件，一個(gè) Label控件，一個(gè) textbox控件和 8個(gè) mand控件。這樣做使窗體顯得更加美觀。在判斷沒(méi)有空缺屬性后該商品將順利添加如庫(kù)，而且該商品在 goods 表中的數(shù)量也將隨之做相應(yīng)的改變，使 goods 表和 sell 表的總和保持原來(lái) goods 表中的數(shù)量值。另外，對(duì)于總金額文本框也是由數(shù)量和進(jìn)貨價(jià)兩個(gè)文本框的 Change 事件計(jì)算入內(nèi)的。 （ 4）進(jìn)貨登記窗體 本窗體用來(lái)實(shí)現(xiàn)商品進(jìn)貨功能，將進(jìn)貨信息添加到 buy表，再將該信息選擇性的加入 goods 表。具體實(shí)現(xiàn)過(guò)程為：定義 5 個(gè)記錄集，其每一個(gè)記錄集控制一個(gè)數(shù)據(jù)表的打開(kāi)與關(guān)閉操作，其記錄集的取名與數(shù)據(jù)表相近： rs_sell, rs_buy, rs_goods, rs_retreat,是標(biāo)簽時(shí)，先出現(xiàn)一個(gè)消息框，問(wèn)管理員是否真的要進(jìn)行初始化。 （ 2） 進(jìn)貨統(tǒng)計(jì)管理 ：主要用于對(duì)商品每日 ,每月，第季度，每年的進(jìn)貨情況進(jìn)行統(tǒng)計(jì)管理，此功能只有以管理員的身份進(jìn)入時(shí)才為可用狀態(tài)。 表 32 goods表 字段名 數(shù)據(jù)類(lèi)型 說(shuō)明 商品編號(hào) 文本 字段大小為 20 商品名稱 文本 字段大小為 20 生產(chǎn)廠商 文本 字段大小為 20 型號(hào) 文本 字段大小為 20 數(shù)量 數(shù)字 長(zhǎng)整型 進(jìn)貨價(jià) 貨幣 貨幣 銷(xiāo)貨價(jià) 貨幣 貨幣 retreat 表（退貨表）中包括有退貨編號(hào)、銷(xiāo)貨編號(hào)、生產(chǎn)廠商、商品名稱、型號(hào)、單價(jià)、數(shù)量、總金額、退貨年、退貨月、退貨日、業(yè)務(wù)員編號(hào)等。由于數(shù)據(jù)量比較小，所以這些數(shù)據(jù)表都存在一個(gè)數(shù)據(jù)庫(kù)下： 下面對(duì)各個(gè)數(shù)據(jù)表的結(jié)構(gòu)做一下簡(jiǎn)單介紹： 在系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì)中，進(jìn)貨表、銷(xiāo)貨表、商品庫(kù)存表和退貨表涉及了交易管理三個(gè)子菜單的絕大部分?jǐn)?shù)據(jù)，是本系統(tǒng)數(shù)據(jù)庫(kù)的核心，所以將對(duì)其部分表的設(shè)置列表顯示。 (6) 系統(tǒng)用戶信息，包含的數(shù)據(jù)項(xiàng)有：用戶名、口令、級(jí)別。 (2) 進(jìn)貨統(tǒng)計(jì)：包括今日進(jìn)貨統(tǒng)計(jì)、本月進(jìn)貨統(tǒng)計(jì)、本季度進(jìn)貨統(tǒng)計(jì)、本季度進(jìn)貨統(tǒng)計(jì)、本年度進(jìn)貨統(tǒng)計(jì)等。需求 分析階段系統(tǒng)本人仔細(xì)研究超市管理系統(tǒng)應(yīng)實(shí)現(xiàn)的功能并將它們具體化。我把任務(wù)超市又仔細(xì)地研究了一遍，充分明白了它的要求后，接下來(lái)作可行性研究，只有做好可行性研究才有可能把以后的工作做好。 （ 2）利用數(shù)據(jù)表存儲(chǔ)相應(yīng)的數(shù)據(jù)信息，為每一種實(shí)際對(duì)象的信息創(chuàng)建一個(gè)表，在表中對(duì)不同數(shù)據(jù)以 不同方式保存。它相對(duì)于其他數(shù)據(jù)庫(kù)產(chǎn)品來(lái)說(shuō)開(kāi)發(fā)時(shí)間比較晚，但由于它強(qiáng)大的功能和使用上的方便，使越來(lái)越多的用戶轉(zhuǎn)向 Access，成為當(dāng)今最為通用的數(shù)據(jù)庫(kù)軟件。 通過(guò)創(chuàng)建查詢，用戶可以在一個(gè)或多個(gè)數(shù)據(jù)表中檢索、更新和刪除記錄，并且可以對(duì)數(shù)據(jù)庫(kù) 中的數(shù)據(jù)執(zhí)行各種計(jì)算。 Access 數(shù)據(jù)庫(kù)中最基本的組件是“表”，在表中信息排成若干記錄（行），每條記錄包括多個(gè)字段（列）。利用它可以實(shí)現(xiàn)： 用戶可以通過(guò)剪貼板給 PictureBox 添加圖形。 表 框架控件的屬性 屬 性 說(shuō) 明 Caption 設(shè)置框架的標(biāo)題，通常用來(lái)說(shuō)明組名稱 Font 設(shè)置框架標(biāo)題的字體 ForeColor 設(shè)置標(biāo)題文字的顏色 Enabled 設(shè)置框架是否可用。 0垂直滾動(dòng)單列， 1水平滾動(dòng)單列，大于 1水平滾動(dòng)多列。 Value 屬性的缺省值為 False。 MaxLength 指定顯示在文本框中的字符數(shù)，超出部分不接收。 2) 文本框（ TextBox）控件 文本框（ TextBox）通常用來(lái)顯示用戶輸入的信息，常作為接收用戶輸入的接口。 BackColor 設(shè)置標(biāo)簽的背景色。 3）創(chuàng)建過(guò)程 所需并調(diào)用其他過(guò)程。其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語(yǔ)法錯(cuò)誤檢查，具有功能強(qiáng)且使用靈活的調(diào)試器和編譯器。也可以由來(lái)自操作系統(tǒng)或其它應(yīng)用程序的消息觸發(fā)。 1） 可視化編程 傳統(tǒng)的編程方法使用的是面向過(guò)程、按順序進(jìn)行的機(jī)制，其缺點(diǎn)是程序員始終要關(guān)心什么時(shí)候發(fā)生什么事情，應(yīng)用程序的界面都需要程序員編寫(xiě)語(yǔ)句來(lái)實(shí)現(xiàn)，對(duì)于圖形界面的應(yīng)用程序，只有在程序運(yùn)行時(shí)才能看到效果，一旦不滿意，還需要返回到程序中修改程序，這一過(guò)程常常需要反復(fù)多次，大大影響了軟件開(kāi)發(fā)效率，因而使得開(kāi)發(fā)工作非常煩瑣。 VB 把這些控件模式化，并且每個(gè)控件都由若干屬性來(lái)控制其外觀、工作方法。 (3)作者的主要貢獻(xiàn) 本人獨(dú)立完成了此課題的研究與開(kāi)發(fā)，包括調(diào)研、分析、設(shè)計(jì)、編碼、測(cè) 試、文檔編寫(xiě)等內(nèi)容。這些優(yōu)點(diǎn) 能夠使超市管理進(jìn)入科學(xué)化、 正規(guī)化 的軌道。 而 當(dāng)今時(shí)代是飛速發(fā)展的信息時(shí)代 ，各行各業(yè) 都 離不開(kāi)信 息處理 。經(jīng)過(guò)艱苦的努力 ,我們終于實(shí)現(xiàn)了預(yù)期的設(shè)計(jì)目標(biāo) ,開(kāi) 發(fā)出這套具有一定實(shí)用價(jià)值的超市管理系統(tǒng) ,使用這套系統(tǒng)有利于提高超市商家的勞動(dòng)生產(chǎn)率，節(jié)約運(yùn)營(yíng)成本，增加經(jīng)濟(jì)效益。結(jié)合管理信息系統(tǒng)的開(kāi)發(fā)方法及步驟，以此為理論基礎(chǔ)，開(kāi)發(fā)出一個(gè)小型的信息管理系統(tǒng) —— 超市管理系統(tǒng)。 關(guān)鍵詞 數(shù)據(jù)庫(kù) Visual 超市管理 Abstract In recent years, the puter technique has bee more and more ripe。 超市 管理是超市中不可缺少的重要部分 ， 超市的管理信息量 繁多，包含很多信息 的 數(shù)據(jù)管理 。我們的目標(biāo)就是在于開(kāi)發(fā)一個(gè)功能實(shí)用、操作方便，簡(jiǎn)單明了的 超市 管理系統(tǒng)。多年來(lái)， Visual Basic 經(jīng)歷過(guò)初級(jí)產(chǎn)品試驗(yàn)、 16位開(kāi)發(fā)平臺(tái)和目前的 32 位新產(chǎn)品的多次的升級(jí)換代 ,已成為了一個(gè)全新的成熟的高端產(chǎn)品。 “ Basic“是指 BASIC（ Beginners Allpurpose Symbolic Instruction Code）語(yǔ)言，一種在計(jì)算機(jī)技術(shù)發(fā)展史上應(yīng)用得最為廣泛的語(yǔ)言。 Visual Basic 自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序員只需要編寫(xiě)實(shí)現(xiàn)程序功能的那部分代碼，只需將所需要的控件放到窗口的指定位置即可，整個(gè)界面設(shè)計(jì)過(guò)程基本不需要編寫(xiě)代碼，從而大大提高了程序設(shè)計(jì)的效率。 3） 面向?qū)ο蟮脑O(shè)計(jì)方法 面向?qū)ο蟮脑O(shè)計(jì)方法 (OOP, Object Oriented Programming)從應(yīng)用領(lǐng)域內(nèi)的問(wèn)題著手，以直觀自然的方式描述客觀世界的實(shí)體。對(duì)象鏈接與嵌入（ OLE， Object Linking and Embedding）技術(shù)將程序都看作一個(gè)對(duì)象，把不同的對(duì)象鏈接起來(lái)，嵌入到某應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫(huà)。主要用來(lái)顯示提示信息，可以用作標(biāo)題、欄目或輸入輸出區(qū)域的標(biāo)識(shí)，也可作為結(jié)果信息輸出區(qū)域，常與Text 控件一起使用。 Font 設(shè)置 Caption 的字體。其主要屬性為： 表 文本框控件的屬性 屬 性 說(shuō) 明 Text 文本框中包含的文本內(nèi)容。它是用戶與程序交互的最簡(jiǎn)便的方法。 Style 用于控制選項(xiàng)按紐的外觀 5） 復(fù)選框（ CheckBox）控件 CheckBox 與 OptionButton 的作用差不多，只是 CheckBox 允許用戶從程序提供的多個(gè)選項(xiàng)中選中一個(gè)或多個(gè)選擇。 ListCount 它是一個(gè)只讀屬 性，用于返回列框中項(xiàng)目的數(shù)量 Sorted 該屬性為 True 時(shí)，可以將列表項(xiàng)目按字母順序排列。 Align 該屬性設(shè)為 4 時(shí)作為容器的圖片框?qū)⒄迟N到窗體的四周。但支持的屬性、事件、和方法較 PictureBox 少一些。根據(jù)指定的選擇標(biāo)準(zhǔn)檢索信息； 作為一種出色的數(shù)據(jù)庫(kù)軟件， Access可以實(shí)現(xiàn)以下的功能： 通過(guò)導(dǎo)入和導(dǎo)出操作，用戶可以和不同類(lèi)型的數(shù)據(jù)庫(kù)實(shí)現(xiàn)數(shù)據(jù)共享，簡(jiǎn)便而且快捷。通過(guò)宏指令或 VBA語(yǔ)句，可以將窗體和報(bào)表連接起來(lái)，快速地編制數(shù)據(jù)庫(kù)應(yīng)用程序。同時(shí) Access的表格具有數(shù) 據(jù)確認(rèn)規(guī)則，以避免不精確的數(shù)據(jù)輸入。 （ 5）直接輸入、查看或更改數(shù)據(jù)庫(kù)中的數(shù)據(jù)，利用表格或窗體完成。不能靠主觀猜想，只能靠客觀分析。其中進(jìn)貨登記中還包含進(jìn)貨商登記，如過(guò)是新的進(jìn)貨廠商，可以直接在此登記入庫(kù)。再使用另一個(gè)表格顯示分別從各個(gè)廠商進(jìn)貨的金額，還有一個(gè)文本框用于顯示次時(shí)間段的進(jìn)貨總金額。本人根據(jù)系統(tǒng)需要與任務(wù)的分配要完成的主要任務(wù)與功能有 : 對(duì)本系統(tǒng)的登錄模塊的實(shí)現(xiàn)：根據(jù)不同的用戶權(quán)限來(lái)登錄到主窗體。 buy表（進(jìn)貨表）中包括有進(jìn)貨編號(hào)、商品編號(hào)、商品名稱、生產(chǎn)廠商、型號(hào)、數(shù)量、進(jìn)貨價(jià)、進(jìn)貨年、進(jìn)貨月、進(jìn)貨日、總金額、業(yè)務(wù)員編號(hào)等。然后對(duì)商品庫(kù)存表的編號(hào)進(jìn)行判斷，如果進(jìn)貨信息的商品編號(hào)存在，則將商品庫(kù)存表 中對(duì)應(yīng)記錄的商品數(shù)量做相應(yīng)的調(diào)整；如果商品編號(hào)不存在，則直接將進(jìn)貨信息添加到商品庫(kù)存表中。 系統(tǒng)功能介紹 （ 1）登陸窗體 該登陸窗體對(duì)用戶登陸做了一個(gè)簡(jiǎn)單的判斷，如果是管理員登陸則可進(jìn)入初始化界面，然后再進(jìn)入主界面。 （ 3）主窗體 主窗體的建立十分簡(jiǎn)單，只需將所要實(shí)現(xiàn)的功能編輯成菜單即可。在用戶點(diǎn)擊添加商品中的添加入庫(kù)操作之前，程序先會(huì)檢查是否有用戶是否有個(gè)別屬性為空，并做出提示。 （ 5） 銷(xiāo)貨登記窗體 本窗體主要功能是對(duì)商品進(jìn)行進(jìn)銷(xiāo)存，首先對(duì)員工輸入的銷(xiāo)貨信息進(jìn)行完整條件的判斷，條件符合后進(jìn)行進(jìn)銷(xiāo)存。其具體實(shí)現(xiàn)過(guò)程是：先在窗體集中定義三個(gè)記錄集： rs_sell， rs_goods， rs_retreat 用來(lái)控制三個(gè)數(shù)據(jù)表： sell 表、 goods 和 retreat 表。將其選項(xiàng)卡的數(shù)目定為 4個(gè)，標(biāo)題分別為：今日進(jìn)貨、本月進(jìn)貨、本季度進(jìn)貨、本年度進(jìn)貨。本窗體的主要設(shè)計(jì)在于其四個(gè)命令按紐在進(jìn)貨表為空時(shí)不可用。 （ 13）修改密碼 為了方便用戶使用，在本模塊中還設(shè)置了一個(gè)修改密碼窗體，該窗體主要包括一個(gè)用戶名輸入、一個(gè)原密碼輸入和兩個(gè)新密碼輸入。 4. 系統(tǒng)各模塊的設(shè)計(jì)及實(shí)現(xiàn) 經(jīng)過(guò)了前面的可行性研究和需求分析，現(xiàn)在可以對(duì)我要完成的功能模塊的實(shí)現(xiàn)做詳細(xì)的設(shè)計(jì)。 intm amp。 intm amp。 關(guān)閉進(jìn)貨表 End If 39。 End If End Sub 2． 銷(xiāo)售登記： 對(duì)銷(xiāo)售的商品進(jìn)行相關(guān)信息的登記，并進(jìn)行行銷(xiāo)售金額的計(jì)算。下面是對(duì)銷(xiāo)售表進(jìn)行操作 ! str_sell = select * from sell where 銷(xiāo)貨編號(hào) =39。 \。 Set = Adodc1 39。 amp。 Set = Adodc1 = str = adCmdText = select * from sell where 銷(xiāo)售年 = amp。 amp。