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