【導讀】已延伸到社會的各個領(lǐng)域。結(jié)合管理信息系統(tǒng)的開發(fā)方法及步驟，以此為理論基。超市管理是超市的開展日常運營活動的必須的環(huán)節(jié)。傳統(tǒng)的手工管理方式不但浪費人。力、時間，而且管理復(fù)雜，易出差錯。數(shù)據(jù)計算、信息處理化為簡單的指令操作。完全實現(xiàn)數(shù)據(jù)信息的電算化管理，徹底把人從手。工管理中解放出來。經(jīng)過艱苦的努力,我們終于實現(xiàn)了預(yù)期的設(shè)計目標,開發(fā)出這套具有一定。實用價值的超市管理系統(tǒng),使用這套系統(tǒng)有利于提高超市商家的勞動生產(chǎn)率，節(jié)約運營成本，本文主要介紹了該系統(tǒng)生成的背景及VisualBasic和Access的一般原理。管理系統(tǒng)的結(jié)構(gòu)及工作原理；設(shè)計實現(xiàn)了登錄模塊、銷售統(tǒng)計、查看數(shù)據(jù)表、主界面的實現(xiàn)；分析并解決了現(xiàn)實中的若干技術(shù)問題。

　　

【正文】 = Then MsgBox 請輸入密碼！ , vbOKOnly + vbInformation, 注意 Exit Sub 主窗體 在 MDI 主窗體中，設(shè)計了 5 項菜單，分別為“交易管理”、“進貨統(tǒng)計” “銷售統(tǒng)計”、“查看數(shù)據(jù)表”、“系統(tǒng)管理”、 管理員權(quán)限、進貨統(tǒng)計、銷貨統(tǒng)計、查看數(shù)據(jù)表、系統(tǒng)管理。 部分設(shè)計代碼如下： Private Sub mnBuyMonth_Click() = False = 1 (0) = False (1) = True (2) = False (3) = False strbuy = select * from buy where 進貨年 = amp。 inty amp。 and 進貨月 = amp。 intm amp。 strbuy, n, adOpenKeyset, adLockPessimistic = strbuy If = True Then = strbuy MsgBox 您本 月沒有進貨記錄！ , vbOKOnly + vbInformation, 注意 strfctotal = select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商進貨總金額 from buy where 進貨年 = amp。 inty amp。 and 進貨月 = amp。 intm amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotal strtotal = select sum(總金額 ) as 進貨總金額 from buy where 進貨年 = amp。 inty amp。 and 進貨月 = amp。 intm amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進貨總金額 ) End Sub 交易管理模塊及界面設(shè)計 1．進貨登記： 在些界面的操作中可以進行對所進的商品的信息及生產(chǎn)廠商的相關(guān)信息的添加，清空等操作。 其實現(xiàn)的部分代碼如下： 下面是對進貨表進行添加記錄操作！ str_buy = select * from buy where 進貨編號 =39。 amp。 amp。 39。 str_buy, n, adOpenStatic, adLockOptimistic 39。 打開進貨表 If = True Then (進貨編號 ) = (商品名稱 ) = (生產(chǎn)廠商 ) = (型號 ) = (數(shù)量 ) = Val() (進貨價 ) = Val() (進貨年 ) = (進貨月 ) = (進貨日 ) = (業(yè)務(wù)員編號 ) = (總金額 ) = Val() 關(guān)閉進貨表 Else MsgBox 此進貨編號已存在，請重添！ , vbOKOnly + vbInformation, 注意 = Exit Sub 39。 關(guān)閉進貨表 End If 39。下面是對商品庫存表進行入庫操作！ Dim sql As String 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 39。 打開庫存表 (商品編號 ) = (商品名稱 ) = (生產(chǎn)廠商 ) = (型號 ) = (數(shù)量 ) = Val() (進貨價 ) = Val() (銷貨價 ) = Val() MsgBox 商品入庫成功 , vbOKOnly + vbExclamation, 39。 關(guān)閉庫存表 Else numgoods = (數(shù)量 ) (數(shù)量 ) = Val() + numgoods MsgBox 商品入庫成功 , vbOKOnly + vbExclamation, 關(guān)閉庫存表 39。 End If End Sub 2． 銷售登記： 對銷售的商品進行相關(guān)信息的登記，并進行行銷售金額的計算。其部分設(shè)計代碼如下： Private Sub Command1_Click() If = Then MsgBox 請?zhí)顚戜N貨編號！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐肪幪枺?, vbOKOnly + vbInformation, 注意 Exit Sub End If str_goods = select * from goods where 商品編號 =39。 amp。 amp。 39。 str_goods, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 對不起，此商品型號已無貨！請選擇其他型！ , vbOKOnly + vbInformation, 注意 Exit Sub 3． 退貨登記 ： 對退貨的相關(guān)信息進行記。如商品名，編號，價格，退貨員，數(shù)量，金額 時間等等進行登記。 其部分實代碼如下： Private Sub Command1_Click() If = Then MsgBox 請?zhí)顚懲素浘幪枺?, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N貨編號！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐窋?shù)量！ , vbOKOnly + vbInformation, 注意 Exit Sub End If 39。下面是對銷售表進行操作 ! str_sell = select * from sell where 銷貨編號 =39。 amp。 amp。 39。 str_sell, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 對不起，沒有銷售此商品型號！無法退貨！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf (數(shù)量 ) Val() Then MsgBox 對不起，退貨數(shù)量過大，無法退貨！ , vbOKOnly + vbInformation, 注意 Exit Sub 4． 4 進貨統(tǒng)計模塊及界面設(shè)計 主要用于對商品每日 ,每月，第季度，每年的進貨情況進行統(tǒng)計管理，此功能只有以管理員的身份進入時才為可用狀態(tài)。 其部分設(shè)計代碼如下： Private Sub Form_Load() inty = Year(Date) intm = Month(Date) intd = Day(Date) Dim str As String str = Provider=。Data Source= amp。 amp。 \。 39。Adodc1的相對路徑連接 = str = adCmdText = select * from buy where 進貨年 = amp。 inty amp。 and 進貨月 = amp。 intm amp。 and 進貨日 = amp。 intd amp。 Set = Adodc1 39。Adodc2的相對路徑連接 = str = adCmdText = select * from buy where 進貨年 = amp。 inty amp。 and 進貨月 = amp。 intm amp。 Set = Adodc2 4． 5 銷售統(tǒng)計模塊及界面設(shè)計 主要用于對商品每日 ,每月，第季度，每年的進銷存情況進行統(tǒng)計管理，此功能只有以管理員的身份進入時才為可用狀態(tài)。 其部分設(shè)計代碼如下： Private Sub Form_Load() inty = Year(Date) intm = Month(Date) intd = Day(Date) = False = False = False = False Dim str As String str = Provider=。Data Source= amp。 amp。 \。 = str = adCmdText = select * from sell where 銷售年 = amp。 inty amp。 and 銷售月 = amp。 intm amp。 and 銷售日 = amp。 intd amp。 Set = Adodc1 = str = adCmdText = select * from sell where 銷售年 = amp。 inty amp。 and 銷 售月 = amp。 intm amp。 Set = Adodc2 查看數(shù)據(jù)表功能模 塊的設(shè)計 在這個功能模塊中 ,主要有如下幾個小功能模塊組成 : 查看貨表 , 查看現(xiàn)存超市表 ,查看退超市表 ,查看銷售表 ,管理員工表等幾個功能 .主要實現(xiàn)對超市管理中的超市進 ,存 ,銷進行管理 .還有對系統(tǒng)員工的管理 .這幾個功能都是以表格的形式來顯相關(guān)的數(shù)據(jù)的 .在查看現(xiàn)成超市表中 ,采用搜索的功能 ,在表中填入相關(guān)的的關(guān)鍵詞 ,就能查 到相關(guān)的超市名 ,超市號 ,生產(chǎn)商 ,條碼 .主要是采用 SQL 語言中的搜索 ,SELCET 語句進行關(guān)鍵字的牛搜索 .在員工管理中 ,可以對用戶進行用戶及用戶的相關(guān)信息時行添加或刪除 . 其實現(xiàn)的界面如下圖所示 : 其實行的部分代碼如下 : Private Sub Command2_Click() 39。當文本框為空時的屏蔽操作 If = And = Then MsgBox 請輸入查詢條件！ , vbOKOnly + vbInformation, Exit Sub End If 39。定義連接庫存表條件時的 SQL 條件句 If = And Then strgoods = select * from goods where 生產(chǎn)商 =39。 amp。 amp。 39。 End If If And = Then strgoods = select * from goods where 超市名稱 =39。 amp。 amp。 39。 End If If And Then strgoods = select * from goods where 超市名稱 =39。 amp。 amp。 39。and 生產(chǎn)商 =39。 amp。 amp。 39。 End If 4． 7 模塊及界面設(shè)計 在這個模塊中，用戶可以進行自己密碼的修改，確保用戶信息和安全性。其部分設(shè)計代碼如下： Private Sub Command1_Click() If = Then MsgBox 請?zhí)顚懹脩裘?, vbOKOnly + vbInformation, 注意