【正文】 數(shù)據(jù)備份流程圖 : 按貨物型號(hào) 按供應(yīng)商 輸入所查詢(xún)值 是否繼續(xù)查詢(xún) 退 出 Y N N 輸入所查詢(xún)關(guān)系 Y 顯示結(jié)果 N Y 開(kāi) 始 選擇盤(pán)符 備 份？ Y Y N N 數(shù)據(jù)恢復(fù)流程圖 : 備 份 結(jié) 束 開(kāi) 始 選擇盤(pán)符 恢 復(fù)？ 恢 復(fù) 結(jié) 束 Y Y N N 打印流程圖： 入庫(kù)信息修改流程圖： 開(kāi) 始 打印預(yù)覽 頁(yè)面設(shè)置 是否打印 開(kāi)始打印 結(jié) 束 N Y Y N N Y 入庫(kù)信息刪除流程圖： 開(kāi) 始 是否修改 是否保存 繼續(xù)修改？ 結(jié)束 Y N 顯示結(jié)果 Y N 輸入內(nèi)容 N 開(kāi) 始 顯示內(nèi)容 第三章 SIMS 功能分析 一 系統(tǒng)管理模塊功能分析 銷(xiāo)售管理系統(tǒng)（ SIMS）是專(zhuān)為中小企業(yè)研發(fā)的計(jì)算機(jī)自動(dòng)化管理軟件，該軟件充分發(fā)揮了計(jì)算機(jī)快捷、準(zhǔn)確、方便、高效率等特點(diǎn)，從而提高了貨物管理工作的效率，同時(shí)也為管理人員節(jié)省了大量的時(shí)間。自 SIMS 研發(fā)成功以后，與以前各管理方法 相比，其功能有了質(zhì)的飛躍。下面，讓我們來(lái)共同了解本系統(tǒng)后的一些功能。 系統(tǒng)管理是當(dāng)今數(shù)據(jù)庫(kù)軟件的一個(gè)必不可少的組成部分。該動(dòng)能在維護(hù)數(shù)據(jù)庫(kù)方面起到了舉足輕重的作用。同時(shí)，它為我們更好的管理數(shù)據(jù)庫(kù)提供了保證；在使用該系統(tǒng)后，讓我們真的可以做到“高枕是否刪除 顯示結(jié)果 繼續(xù)刪除？ 結(jié) 束 Y N Y N 無(wú)憂(yōu)”。 系統(tǒng)管理模塊是一個(gè)系統(tǒng)軟件最危險(xiǎn)的模塊。如果說(shuō)把 SIMS 比做說(shuō)是保險(xiǎn)庫(kù)的話(huà)，那么系統(tǒng)管理模塊就是這個(gè)保險(xiǎn)庫(kù)的鑰匙。所以，我們?cè)诓僮?SIMS 時(shí)一定要做到認(rèn)真、仔細(xì)、謹(jǐn)慎，避免出現(xiàn)不當(dāng)?shù)腻e(cuò)誤。為了防止此類(lèi)事件的發(fā)生在用戶(hù)進(jìn)行系統(tǒng)操作時(shí)，都會(huì)出現(xiàn)信息提示框，提示 用戶(hù)是否繼續(xù)操作，因此在很大程度上避免錯(cuò)誤的發(fā)生。系統(tǒng)管理模塊包括添假、修改、退出三個(gè)子模塊，從而更方便了用戶(hù)管理。 二 貨物信息管理 貨物信息管理模塊顧名思義就是對(duì)貨物信息進(jìn)行管理，用它可以將手工管理變?yōu)橛?jì)算機(jī)自動(dòng)管理的系統(tǒng)，充分發(fā)揮了計(jì)算機(jī)快捷、準(zhǔn)確、方便、高效率等特點(diǎn)，現(xiàn)在貨物數(shù)量的不斷增加，貨物信息管理趨向了復(fù)雜化和多元化，越來(lái)越多的貨物信息均采用了計(jì)算機(jī)化的管理模式，查詢(xún)、添加、和修改等操作都使用了計(jì)算機(jī)的數(shù)據(jù)庫(kù)技術(shù)，比起以前使用帳本的方法有了很大的進(jìn)步，提供了很大的方便，本次程序設(shè)計(jì)的目的是編 制一個(gè)對(duì)貨物信息添加、修改、查詢(xún)和打印等操作，為了使用戶(hù)進(jìn)一步了解我們開(kāi)發(fā)的銷(xiāo)售管理系統(tǒng)，現(xiàn)將各子模塊的功能介紹下： 查詢(xún)模塊 查詢(xún)模塊是銷(xiāo)售管理系統(tǒng)不可缺少的重要組成部分，它可以對(duì)要涉及到大部分工作，進(jìn)行貨物相關(guān)數(shù)據(jù)信息的輸入，貨物因其他原因進(jìn)行調(diào)整，所以在庫(kù)中的數(shù)據(jù)進(jìn)行編輯之前，首先查詢(xún)、瀏覽一下，查看其中的內(nèi)容，顯示出用戶(hù)所需要的查詢(xún)結(jié)果。 當(dāng)用戶(hù)進(jìn)入到查詢(xún)窗體時(shí)，窗體用到了標(biāo)簽、文本框、命令按鈕等相結(jié)合的方式來(lái)完成條件輸入，操作時(shí)，在下拉列表框中選擇所要查詢(xún)的字段：商品名稱(chēng)、簡(jiǎn)稱(chēng)、規(guī)格等。選中其 一，然后在文本框中選擇所要查詢(xún)的值，最后點(diǎn)擊“查找”按鈕，則在相對(duì)應(yīng)的位置中顯示出來(lái)，可用游動(dòng)條來(lái)進(jìn)行查看。本窗體還包括貨物信息的全部瀏覽和統(tǒng)計(jì)。 貨物信息的添加與修改 通過(guò)本模塊可以對(duì)貨物進(jìn)行添加、修改、刪除的操作，采用了VISUAL BASIC 內(nèi)嵌的 DATA 數(shù)據(jù)控件，是訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)的一種方便的工具，它能夠利用三種 Recordset 對(duì)象來(lái)訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)中的數(shù)據(jù)，數(shù)據(jù)控件提供有限的不需編程而能訪(fǎng)問(wèn)現(xiàn)存數(shù)據(jù)庫(kù)的功能，允許將VISUAL BASIC 的窗體與數(shù)據(jù)庫(kù)方便地進(jìn)行連接。本窗體模塊有“第一條”、“上一條”、 “下一條”、“最后一條”、“修改”、“刪除”等命令按鈕，在這些命令按鈕中，設(shè)置了提示對(duì)話(huà)框，總之 操作簡(jiǎn)便靈活，功能強(qiáng)大，能顯著的提高用戶(hù)的工作效率。 通過(guò) VISUAL BASIC 的窗體控件工具欄中，本模塊中用到的控件簡(jiǎn)單的分為五類(lèi) ： 1：標(biāo)簽、 DATA GRID 2：文本框、列表框、組合框 3：制類(lèi)：命令按鈕、單選按鈕 4：器類(lèi)： FRAME 5：接類(lèi)： DATA 在以上控件中，每個(gè)控件含有多種屬性，其各控件屬如下： 1 標(biāo)簽的值 ： 1)、 Alignment：將屬性設(shè)置為 0，即從標(biāo)簽的左邊開(kāi)始顯示標(biāo)題。 2)、 Autosize：將屬性設(shè)置為 true，則可根據(jù) caption 屬性指定的標(biāo)題自動(dòng)調(diào)整標(biāo)簽的大小 。 3)、 Borderstyle：用來(lái)標(biāo)簽的邊框，可以取值為 1，既標(biāo)簽帶有邊框 。 2 文本框的值： 1)、 Maxlength：該屬性設(shè)置為 0 2)、 Mnltiline：其值為 False 只能輸入單行文本 3 命令按鈕 設(shè)置 =True 使 命 令 按 鈕 生 效 ； 設(shè) 置=False 使命令按鈕失去作用； Data(數(shù)據(jù)控件 )負(fù)責(zé)數(shù)據(jù)庫(kù)和工程之間的數(shù)據(jù)庫(kù)交換，本身一起來(lái)完成訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)的任 務(wù)。 4 Data 控件：連接數(shù)據(jù)庫(kù)。 5 Data Grid 控件：與數(shù)據(jù)庫(kù)相連接，以表格的形式顯示結(jié)果。 三 系統(tǒng)維護(hù) 1 進(jìn)入到本模塊，可以對(duì)用戶(hù)進(jìn)行瀏覽，添加和刪除。點(diǎn)擊添加用戶(hù)可以添加普通和高級(jí)用戶(hù)。 2 修改密碼 如果遺忘密碼之后，必須借助于具有管理該系統(tǒng)軟件的內(nèi)部人員進(jìn)行對(duì)密碼查詢(xún)修改，具體步驟如下： 首先，內(nèi)部人員打開(kāi)該系統(tǒng)，輸入正確的密碼 其次，進(jìn)入該系統(tǒng)的操作界面即顯示主菜單的情況下。 然后，打開(kāi)密碼表查看所遺忘的密碼。 最后，修改密碼。 面對(duì)現(xiàn)在的社會(huì)形勢(shì)，許多企事業(yè)單位要對(duì)人 員進(jìn)行調(diào)動(dòng)，向貨物管理系統(tǒng)安全性要求高的信息，如果對(duì)其內(nèi)部人員進(jìn)行調(diào)動(dòng)的話(huà)，為了使信息內(nèi)容具有安全性，就要對(duì)密碼進(jìn)行修改，修改步驟如下： 1）管理人員打開(kāi)本系統(tǒng)，輸入正確的密碼后進(jìn)入操作界面 2）進(jìn)入系統(tǒng)主菜單 3）電擊系統(tǒng)設(shè)置主菜單 3）再點(diǎn)擊修改密碼 4）打開(kāi)對(duì)話(huà)框 這時(shí)鼠標(biāo)定位到第一文本框中等待用戶(hù)輸入用戶(hù)名、舊密碼，如果密碼輸入正確，回車(chē)后鼠標(biāo)定位到下一個(gè)文本框，用戶(hù)輸入新密碼后，系統(tǒng)將新密碼進(jìn)行判斷，如符合要求，用戶(hù)可重新確定密碼。如果正確系統(tǒng)提示密碼修改成功。如果密碼輸入不符合要求系統(tǒng)自動(dòng)彈出提 示對(duì)話(huà)框，給于提示，確定后，光標(biāo)定位到密碼文本框中，這樣就完成了密碼修改。 四、打印功能 為了提高 SIMSR 透明度與清晰度，我們開(kāi)發(fā)小組在該系統(tǒng)中加入了打印模塊。可以分別對(duì)入庫(kù)、銷(xiāo)售、庫(kù)存等信息進(jìn)行打印。 該打印模塊中的各項(xiàng)都采用了簡(jiǎn)單的界面，在使用上操作簡(jiǎn)便，可用性強(qiáng)，用戶(hù)可根據(jù)條件自由的實(shí)現(xiàn)組合打印、瀏覽結(jié)果等操作，因此，大大提高了打印質(zhì)量和準(zhǔn)確性。 五 備份功能 備份是管理人員維護(hù) SIMS 安全性和完整性的重要操作。備份是恢復(fù)受損 SIMS 最容易，把意外損失降低到最小的保障方法。沒(méi)有備份所有的 數(shù)據(jù)可能會(huì)丟失。備份可以防止因表和 SIMS 遭受破壞、介質(zhì)失效或用戶(hù)錯(cuò)誤而造成的數(shù)據(jù)災(zāi)難。良好的備份策略是 SIMS 安全運(yùn)行的保證，是沒(méi)個(gè)管理工作人員必須認(rèn)真調(diào)整和仔細(xì)規(guī)劃在能完成的任務(wù)。 第四章 程序清單及程序界面 日常業(yè)務(wù)登記程序代碼： Dim s, y, i 39。定義變量 Dim mydb As Database 39。定義數(shù)據(jù)庫(kù) Dim rs1 As Recordset 39。定義字段 Dim rs2 As Recordset Dim lsph As Integer 39。定義一個(gè)整型變量 Private Sub Form_Load() 39。自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 Dim str As String 39。定義 str = If Right(str, 1) \ Then str = str + \ End If = str amp。 \倉(cāng)庫(kù) .mdb = str amp。 \倉(cāng)庫(kù) .mdb = str amp。 \倉(cāng)庫(kù) .mdb = kc = gys = rkd = 102: = 12 39。定義 mf1 表的總行數(shù)、總列數(shù) 39。定義 mf1 表的列寬和表頭信息 s = Array(300, 1500, 900, 1200, 900, 1200, 600, 600, 600, 900, 1140, 850) y = Array(xh, 商品名稱(chēng) , 簡(jiǎn)稱(chēng) , 批號(hào) , 廠(chǎng)家 , 規(guī)格 , 包裝 , 單位 , 數(shù)量 , 單價(jià) , 金額 , 備注 ) For i = 0 To 11 (i) = s(i): (0, i) = y(i) Next i = 1: = 1 39。定義 mf1 表的固定行數(shù)、固定列數(shù) 39。定義 mf1 表的列序號(hào) For i = 1 To 101 (i, 0) = i Next i = Date 39。設(shè)置入庫(kù)日期 End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub gys_Change() = True 39。查詢(xún)供應(yīng)商信息 = select 供應(yīng)商全稱(chēng) from gys where (( like + Chr(34) + + * + Chr(34) + )or ( like + Chr(34) + + * + Chr(34) + ))group by 供應(yīng)商全稱(chēng) End Sub Private Sub dblist1_KeyPress(KeyAscii As Integer) = True = 39。賦值給 = False End Sub Private Sub grid1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。當(dāng)按回車(chē)鍵時(shí) With If 0 Then If (商品名稱(chēng) ) Then 39。賦值給 mf1 表格 If .Fields(商品名稱(chēng) ) Then (, 1) = .Fields(商品名稱(chēng) ) If .Fields(簡(jiǎn)稱(chēng) ) Then (, 2) = .Fields(簡(jiǎn)稱(chēng) ) If .Fields(批號(hào) ) Then (, 3) = .Fields(批號(hào) ) If .Fields(產(chǎn)地 ) Then (, 4) = .Fields(產(chǎn)地 ) If .Fields(規(guī)格 ) Then (, 5) = .Fields(規(guī)格 ) If .Fields(包裝 ) Then (, 6) = .Fields(包裝 ) If .Fields(單位 ) Then (, 7) = .Fields(單位 ) If .Fields(進(jìn)價(jià) ) Then (, 9) = .Fields(進(jìn)價(jià) ) = 39。賦值給 text1 = 8 39。到達(dá)第 8 列 = False Else MsgBox (無(wú)數(shù)據(jù)選擇 !!!) = False 39。grid1 不可見(jiàn) End If End If End With 39。text1 獲得焦點(diǎn) End If If KeyCode = vbKeyEscape Then 39。按 ESC 鍵 = False 39。grid1 不可見(jiàn) 39。text1 獲得焦點(diǎn) End If End