【正文】 ULL　　　goosID商品編號char（8）NOT NULL　　　quantity商品數(shù)量intNOT NULL件　　goodsprice商品價格moneyNOT NULL　百分位　amount總價moneyNOT NULL元百分位折扣之前總價銷售單2（selmon）字段字段名稱數(shù)據(jù)類型可否為空計量單位精度要求備注saleID銷售編號char（8）NOT NULL　　　huiyrank會員等級char（4）NOT NULL　　　factmoney實收金額moneyNOT NULL元百分位　receivemoney應收金額moneyNOT NULL元百分位　amount總價moneyNOT NULL元百分位折扣之前總價change找零moneyNOT NULL元百分位　庫存表（stock）字段字段名稱數(shù)據(jù)類型可否為空計量單位精度要求備注stock_ID庫存編號char（8）NOT NULL　　　goosID商品編號char（8）NOT NULL　　　quantity商品數(shù)量intNOT NULL件　　goodsname商品名稱char（30）NOT NULL　　　goodsshelfID所在char（20）NOT NULL　　　safetystock安全庫存量intNOT NULL　　　safetyquard安全警戒intNOT NULL　　　供應商信息（supplier）字段字段名稱數(shù)據(jù)類型可否為空計量單位精度要求備注supplierID供應商編號char（8）NOT NULL　　　suppliername供應商名稱char（50）NOT NULL　　　address地址char（50）NOT NULL　　　tel電話char（15）NOT NULL　　　linkman聯(lián)系人char（20）NOT NULL　　　linkmanjob聯(lián)系人職務char（30）NOT NULL　　　bankaccount開戶銀行銀行賬號char（20）NOT NULL　　　 物理結(jié)構(gòu)設(shè)計物理設(shè)計的目的是根據(jù)具體DBMS的特征確定數(shù)據(jù)庫的物理結(jié)構(gòu)(存儲結(jié)構(gòu))。關(guān)系數(shù)據(jù)庫的設(shè)計嚴格按照規(guī)范化進行。這一階段的主要任務是確定所有數(shù)據(jù)庫文件的名稱及其所含字段的名稱，類型，長度，并且數(shù)據(jù)庫文件需要建立主鍵，索引和外鍵等項。物理結(jié)構(gòu)設(shè)計我們使用的是Access，Access是可視化操作，沒有過多的sql代碼設(shè)計，但主要的工具是使用結(jié)構(gòu)化英語、判定表和判定樹。為了是處理邏輯更直觀的被表示，以下將用判定樹這一方法對處理邏輯進行描述。首先根據(jù)數(shù)據(jù)流程圖中二級數(shù)據(jù)流程圖所給處理進行描述，在由下往上進行具體描述。在此僅對二級數(shù)據(jù)流程圖中的盤點庫存這一處理邏輯進行描述，二級流程圖中所提及的其它處理邏輯可同樣根據(jù)其處理具體流程進行描述。4 系統(tǒng)實現(xiàn)根據(jù)前面對進銷存管理內(nèi)容和進銷存管理系統(tǒng)的分析，一個標準的文化用品店進銷存管理系統(tǒng)應該包括下圖所示的幾大功能： 用戶登錄模塊用戶登錄模塊實現(xiàn)的功能是，用戶在輸入用戶名和密碼后系統(tǒng)自動判斷是否為系統(tǒng)用戶，對登錄用戶進行身份認證，保證了系統(tǒng)數(shù)據(jù)的安全性。我在系統(tǒng)中建立了兩個類模塊buildbolist和DBoperation，類模塊buildbolist用于自動往box控件中錄入某個數(shù)據(jù)表的字段信息，類模塊DBoperation主要是用于連接數(shù)據(jù)庫。用戶登錄模塊的實現(xiàn)代碼如下：登錄界面代碼（vb）Option Explicit39。Dim a As Integer 39。a是用來記錄歡迎模塊的Public OK As BooleanPrivate Sub dengl_Click() If Trim() = Then MsgBox 請輸入用戶名 Exit Sub ElseIf Trim() = 請輸入您的密碼密碼 Then MsgBox 請輸入密碼 Exit Sub Else Dim mydb As New DBoperation Dim rst As Dim sql As String sql = select * from [user] where users=39。 amp。 amp。 39。 and password=39。 amp。 amp。 39。 Set rst = (sql) If (Not ) Then OK = True 0 Else MsgBox 請核對您的密碼 = End If End IfEnd Sub…… 整個程序由sub main過程作為程序的入口，通過在begin窗體中設(shè)置了public變量OK防止沒有正常權(quán)限的用戶登錄。初始的用戶名有admin（密碼：adimin）和user（密碼：user），可實現(xiàn)用戶正常順手的登錄。 主界面當用戶輸入正確的登陸信息后，便進入管理信息系統(tǒng)的主界面，該界面包括了進銷存所有的信息和功能，用戶可以通過該界面進入各子系統(tǒng)，根據(jù)自身的權(quán)限查詢更改模塊中的相關(guān)信息。如下圖所示：主體包括菜單欄，工具欄。在此我實現(xiàn)了工具欄上部分控件的功能。其工具欄界面如下：在此我主要通過basic語言具體實現(xiàn)了銷售管理、貨架管理、采購管理、財務管理、統(tǒng)計查詢、基本資料、計算器的功能。其余的功能由于時間關(guān)系，我在后面只列出思路。不做代碼解釋。且在后面的代碼說明中濾去了界面設(shè)計代碼，只對功能代碼進行解釋說明。本程序是一個MDI窗體程序，主界面是一個MDI窗體，在窗體上我不是通過toolbar控件來建立的工具欄，我是通過建立picture控件來實現(xiàn)特色工具欄的建立，在MDI窗體上的代碼，主要是通過show方法來顯示各個MDI子窗體。Dim pid1 As Integer ‘計算器是一個單獨的窗體程序，這個變量主要是記錄計算器的PIDPrivate Sub caigcmd_Click() ‘通過show方法來顯示其余的窗體End Sub……Private Sub jsqcmd_Click() pid1 = Shell( amp。 \, 1) ‘通過shell函數(shù)來調(diào)用計算器并記錄PID……End SubPrivate Sub MDIForm_Unload(Cancel As Integer) If pid1 0 Then Shell taskkill pid amp。 pid1 39。說明shell存在兩種調(diào)用方式End Sub…… 銷售管理模塊該系統(tǒng)模塊屬于銷售子模塊，主要功能是記錄銷售信息和財務信息，方便用戶對其進行查詢和核對信息以及輔助制定銷售計劃。主要業(yè)務包括：“銷售錄入”是銷售員通過POS機和顧客提供的會員卡錄入商品信息和收付金額，并在銷售活動結(jié)束時提供小票。并提供一個銷售表來記錄每天的銷售情況，該表包括銷售記錄ID、商品條形碼、商品名、數(shù)量、售價、會員價、會員ID、實收款、應收款、找零等?！颁N售計劃”通過對過往的銷售數(shù)據(jù)進行分析，通過提供一個報表給決策者關(guān)于某個月份的銷售預測，該銷售預測自動傳遞到采購的“訂單產(chǎn)生”功能模塊?！颁N售退貨”依據(jù)顧客提供的小票，銷售員通過POS機來錄入負數(shù)的商品信息和收付金額，并退貨活動結(jié)束時打印出小票，供日后查詢核對?！颁N售統(tǒng)計”根據(jù)通過銷售活動的統(tǒng)計，供決策者查詢以天，月，年為單位的銷售情況，并提供打印報表功能。其功能界面如下圖所示： 在業(yè)務流程探討時，我們確定了該商場具有pos機自動錄入商品信息，所以，通過“錄入商品”這個命令按鈕實現(xiàn)了自動讀取數(shù)據(jù)庫POS中存儲的商品信息。功能代碼如下： Dim a As Long 39。記錄隨即數(shù) Randomize a = CLng(Rnd * 21) a, adBookmarkFirst If (Not ) Then = (0) = 0 = Len()由于銷售表我設(shè)置了兩張表，主表與副表之間存在著外部性的約束，我必須往主表中錄入銷售單編號才能繼續(xù)下面的工作，錄入代碼如下：If = 開始 Then sql = insert into sel_mon(sel_ID) values (39。 amp。 amp。 39。 amp。 ) (sql) = 開始錄入錄入商品信息的代碼如下： Dim rst As 39。Dim sql As String sql = select * from sel_num Set rst = (sql) (sel_ID) = 39。判斷是增加庫存數(shù)量還是減少庫存數(shù)量， If = True Then (goods_cou) = CSng() Else 39。因為前面有一個判斷，必須要有一個value為true (goods_cou) = CSng( amp。 ) End If (goods_pri) = (goods_ID) = On Error GoTo Line1 39。 使用該錯誤處理機制，把隨機數(shù)引起的錯誤屏蔽掉 并在錄入商品銷售信息的時候，通過判斷是銷售活動還是退貨活動，自動的減少或是增加商品庫存數(shù)量。同理，在發(fā)生銷售和退貨的時候還可以同步公司現(xiàn)金這個會計科目的借方或是貸方金額。在此我只是同步的商品庫存數(shù)量，代碼如下：Dim mydb As New DBoperation Dim rst As Dim sql As String Dim cou As Integer sql = select goods_cou from [stock] where goods_ID=39。 amp。 amp。 39。 Set rst = (sql) cou = (goods_cou) (goods_cou) = cou Val() * sr 每次發(fā)生商品的銷售還是退貨活動，該系統(tǒng)會自動的生成銷售單號貨或者是退貨的單號。 = SE amp。 090 amp。 Str(Int(Rnd * 8 + 1)) amp。 Str(count1 + 1)（txt5是一個文本框的名字）此處我是通過一個隨機數(shù)來實現(xiàn)了2009年1月到8月的銷售數(shù)據(jù)或是退貨數(shù)據(jù)，避免了一個個的錄入。自己來判斷選擇。實際上可以優(yōu)化表單號的生成，在實際應用過程中可以通過讀取系統(tǒng)時間，通過數(shù)據(jù)轉(zhuǎn)換來真正實現(xiàn)表單號的合理話。也可以通過公司表單號的編碼原則來編碼表單7 / 87 倉庫管理 由于該超市沒有設(shè)立倉庫，其庫存管理不涉及到倉庫管理，我們把店面假設(shè)成了一個倉庫，各個貨架即成了一個個貨架，所謂的庫存管理就是店面商品管理，同時，超市有一個小房間用于儲存安全庫存數(shù)量的商品，用于補充貨架上的商品，保證營銷的連續(xù)性。其庫存管理功能模塊如下圖所示：“入庫驗貨”用于接收庫存，并根據(jù)到貨通知單錄入商品信息和商品類別?！皵[貨上架“用于系統(tǒng)自動生成擺貨位置，并生成擺貨單?！皫齑娌樵儭坝糜谟脩舨樵儸F(xiàn)在超市中庫存數(shù)。一般可以讓用戶按照商品名，商品條形碼等來進行查詢。 在具體實現(xiàn)的時候，我實現(xiàn)了入庫驗貨，分析擺貨上架，庫存查詢的功能。其界面如下所示：主界面下面的列表框列出了存儲表中的信息：通過點擊修改庫存和入庫管理調(diào)出兩個獨立的界面，分別用來修改庫存（用于緊急訂貨，原因是銷售過程中發(fā)現(xiàn)了缺貨，但是表中卻沒有銷售記錄時，要進行手動庫存數(shù)量的修改。并進行異常登錄）和進行進貨時的登錄并生成一張擺放表。下面的代碼是用來datagrid控件和表的連接：Dim conn As Set conn = New = adUseClient Provider=。Data Source= amp。 amp。 \data\ Dim mysql As String Dim rst As New mysql = select * from stock mysql, conn, adOpenDynamic, adLockPessimistic Set = rst Set rst = Nothing 下面的代碼是修改庫存的： Dim mydb As New DBoperation Dim rst As Dim sql As String sql