【正文】 ？ ) If rt = vbOK Then Cancel = False End Else Cancel = True End If End Sub Private Sub rkjm_Click() 1 End Sub Private Sub xsjm_Click() 1 End Sub 北方民族 大學學士學位論文 小型 超市收款機設計 32 商品 銷售系統(tǒng)程序 Dim GotStr As String ‘定義 接收到的數(shù)據(jù) （ 條形碼數(shù)據(jù)） Dim MyStr As String Private Sub Command1_Click() Dim A As Single 39。 \。 在 即將離開學校之際 ， 再次衷心的感謝我 的指導 老師對我的幫助，感謝我們學院 老師對 我 的幫助，讓我在大學期間成績有了全面的提高 。同時 軟件 設計是一個漫長而 精細 的工作 ， 我 非常努力地 靜下心來 開發(fā) 軟件。 本章 總結 本章 主要是對 用軟件 開發(fā)過程中遇到的困難一個一個提出 來 ，進行分析 得到解決的方法，這是一種自我學習的過程， 先是 什么都不懂，軟件都不是很懂，一切就像得從頭開始，還好 的就是自己對軟件有一種莫名的親切感，能夠很快的熟悉 軟件 的各種操作 。 這 一開始我是進行的 串 口 調試，這個調試過程是一個很痛苦的過程，因為串口 如何讀取數(shù)據(jù)，如何 將 讀到的字符串進行 解碼 ，當時都是一臉茫然，這是我當時根本無法理解的東西，但是我后來經(jīng)過宿舍同學的講解，和自己在網(wǎng)上查 資料 ，最后終于在一本 《 Visual Basic 與 RS232 串行口 通信控制 》 書 上找到 了 ，在這本書的第八章 的 條形碼掃描器中 ， 找到了我需要的代碼，當時我 欣喜若狂 ，我每天無日無夜的看著這些代碼，我不懂的就 利用 互聯(lián)網(wǎng)，這是一個很全面的東西， 在 網(wǎng)絡上總有你需要的回答， 這使我 我的文件檢索能力提高 了 不 少 。 圖 商品 銷售界面 在 這個模塊的設計中，我一開始 也沒有什么頭緒 ，俗話說的好 萬事 開頭難，在 任何 一件事，分成小事過后，總有一個開頭的時候，所以這是開頭很重要 。 圖 登陸 提示 如果 銷售員登陸系統(tǒng)的時候，賬號輸入正確，密碼不正確，一樣會提醒用戶 ： 銷售 人員 用戶名 、密碼 開始 檢測賬號 和密碼 登陸 進入 后臺管理 系統(tǒng) 界面 北方民族 大學學士學位論文 小型 超市收款機設計 20 圖 登陸 提示 如此 設計可以讓銷售員很快的發(fā)現(xiàn)自己輸入 錯誤 在 哪里 ，及時修改就可以進入 后臺 管理系統(tǒng)了。 + txtUserName + 39。 [11] 數(shù)據(jù)庫分為 網(wǎng)狀數(shù)據(jù)庫，關系數(shù)據(jù)庫 ，這 兩種經(jīng)常使用的數(shù)據(jù)庫關系。 圖 商品入 庫 界面 在 編輯菜單欄內(nèi) 存在 如下幾個模塊： 北方民族 大學學士學位論文 小型 超市收款機設計 15 圖 編輯菜單 含有 的操作信息有：增加，刪除，查找，保存，取消 五個 操作菜單 。 圖 Visual Basic Basic 開發(fā) 的模塊 登錄 模塊 本次 設計沒有傳統(tǒng)的那種登陸界面復雜，這是 一種 操作簡單化的原則，適合 北方民族 大學學士學位論文 小型 超市收款機設計 13 大部分 人群的 使用。 圖 PS/2 鍵盤接口 北方民族 大學學士學位論文 小型 超市收款機設計 11 U 轉串口 數(shù)據(jù)線介紹 USB 轉串口 是 用來實現(xiàn) USB 接口到 RS232 串口之間的轉換。 而且 在防摔上激光掃描器在性能上也是好于市場上的其它掃描器。 這些 圖案 可以標示出物品的 成產(chǎn) 國家，制造商家，商 品名稱，生產(chǎn)日期 等 很多消息。而且 基本 上都是在 window 操作 系統(tǒng)上進行的，由于現(xiàn)在 的 用戶大部分是微軟的系統(tǒng)，所以在操作的時候有一種親切感， 操作 可行性特別高。根據(jù)這次商店 銷售員調查 ， 結合這次調查 迎合 銷售工作人員的要求 所做 的改進，它在小型超市 中 的運用價值得到了完全的體現(xiàn)?？傮w設計是基于 Visual Basic 6 .0 開發(fā)工具開發(fā)的登陸、入庫、銷售為一體的小型超市收款機 系統(tǒng)。 課題研究方法 （ 1）文獻檢索法：通過圖書館文獻檢索功能和互聯(lián)網(wǎng)的收索引擎進行大量的資料查詢，使我充分的了解了這次畢業(yè)設計的設計要求，圖書館的豐富 Visual 編程的書籍讓我對這次畢業(yè)設計有了充實的資源需求。可實際上現(xiàn)實中的小型超市是不存在那么大的財力，來購買這種大型的商品的。 北方民族 大學學士學位論文 小型 超市收款機設計 2 傳統(tǒng)的超市收款機系統(tǒng)優(yōu)點及其優(yōu)缺點 超市進銷貨、存貨管理這 對于一個 銷售員來說是一項繁重而復雜的工作。四軟件開發(fā)的社會可行性也就達不到。 所以 開發(fā)一個適合小型 超市 特點的超市收款機系統(tǒng)是尤為重要 。 北方民族大學 學士學位論文 論文題目 : 小型超市收款機設計 院 (部 )名 稱 : 學 生 姓 名 : 專 業(yè) : 學 號 : 指導教師姓名 : 論文提交時間 : 20xx年 5 月 論文答辯時間 : 20xx 年 5 月 學位授予時間 : 20xx 年 6 月 北方民族大學教務處制 北方民族 大學學士學位論文 小型 超市收款機設計 I 摘 要 21 世紀，我們面臨著進入數(shù)字信息化時代，計算機已經(jīng)是人類獲取信息的一種重要途徑了。 根據(jù)人 的需求性不同 ， 無論任何軟件 工程師來 開發(fā) 的軟件 都 不可能完全滿足所有的要求，也就是說軟件在開發(fā)的過程中，總有 你 覺得不如意的地方，但是我們可以提高軟件開發(fā)的多 數(shù) 適應性。三軟件開發(fā)操作可行性在偏遠的小超市上同樣達不到。一般只需要一名管理員就可以進行商品的入庫，銷售為一體的銷售模式。 傳統(tǒng) 的大型超市的收款機如同一種大型商務軟件一樣，硬件配型、軟件調試、銷售工作人員熟悉軟件都要花很大時間。人們?yōu)榱藴p少人力、物力的消耗，更加全面的進行系統(tǒng)開發(fā)，這樣就急切地需要引入新的思想技術和管理技術進入到超市管理之中。那么設計必須要有激光條形掃描器來進行條形碼的獲取，然后利用商品入庫系統(tǒng)進行商品的數(shù)據(jù)管理，管理員登陸模塊，最主要的還是銷售員銷售模塊的設計。 系統(tǒng)可行性分析 小型 超市系統(tǒng)經(jīng)濟可行性分析 本次設計 的小型超市系統(tǒng) 是 基于 Microsoft 公司生成 的開發(fā) 的 Visual 和 Access 軟件來開發(fā)的 銷售系統(tǒng)。 小型 超市系統(tǒng) 操作 可行性分析 這次 設計的小型超市系統(tǒng)便于工作人員的操作 ， 學習起來很簡單，不需要任何的培訓，只要操作人員 用眼睛 看一遍就會了，而每個模塊都很容易讓銷售人員看懂，上面有明確的中文 標示 。 經(jīng)?？匆?的條形碼是由 反射率差別 很大的黑條和白條排成的平行線圖案 。 激光 掃描器在性能上可以說基本上優(yōu) 于 市場 上的普通掃描器， 如光筆 的掃描器，是通過與條形碼 標簽 接觸進行 掃描 的，但是激光掃描器就不用與條形碼接觸 北方民族 大學學士學位論文 小型 超市收款機設計 9 或者 透過玻璃或透明膠紙閱讀，這樣既 不 破 壞 條形碼 標簽 ，同時又能 正確 的 掃描出條形碼的信息。 PS/2 鍵盤接口 獲取條形碼信息 一般，具有五腳連接器的鍵盤稱之為 AT 鍵盤，而具有六腳 mini－ DIN 連接器的鍵盤則稱之為 PS/2 鍵盤 。 [10]本次 設計主要用了 VB 里面的 adodc， msflexgrid 控件來 實現(xiàn) 后臺數(shù)據(jù)庫的顯示 ， 利用 SQL 查詢 語句進行 進行 條形碼查詢商品信息，利 用 msflexgrid 控件進行賬單顯示。 北方民族 大學學士學位論文 小型 超市收款機設計 14 圖 銷售 模塊 入庫 模塊 在 登錄模塊 中 進行成功登錄后，進入 商品 后臺 管理 系統(tǒng) ， 然后我們點擊菜單欄里的商品入庫界面，我們就能夠成功的進入如圖 所示的 商 品 入庫系統(tǒng) 的 界面 。 本次 設計 屬于小型的數(shù)據(jù)管理系統(tǒng)， 有 商品信息管理，登錄人員信息管理。 北方民族 大學學士學位論文 小型 超市收款機設計 18 系統(tǒng) 流程圖 點擊 商品銷售 快捷鍵， 進入輸入賬號和密碼，然后利用 ： Set Rs = (select 密碼 from myfile where 賬號 =39。如果銷售 員 登陸 的時候賬號輸入錯誤就會提醒沒有這賬號 。 這就 實現(xiàn)了 小型超市收銀 臺界面的設計 ， 銷售人員可以很簡單的 來 操作從而實現(xiàn)商品的銷售。 那就是 串口 調試的問題！ 當 把 掃描 器實物買回來過后，我就在想是使用 USB 來直接輸入條形碼，還是利用 U 轉串口的方法，也就是用 串口 的方法來實現(xiàn)商品條形碼的輸入。 這個 模塊讓我學會了很多軟件開發(fā)過程中必須擁有的 本領 ，這是 為 我以后從事 這 方面的事業(yè) ， 提供了很 重要 的 學習 方法 。在 學習中遇到了很多的困難，主要 是 現(xiàn)在語言不理解，控件不熟悉，界面的協(xié)和 感，老師 在我 解決 這些問題上給了我很大的幫助。 老師 每周百忙時間之中抽出時間來為我們 指導 和講解，并提出了 很多 的寶貴意見 和 方法 才使我 能夠在很有限的時間里學到很多知識 。 amp。執(zhí)行登錄代碼 Else MsgBox 密碼不正確 , , 登錄信息 39。定義 MSFlexGrid1 表的總行數(shù)、總列數(shù) = 102 = 5 39。錯誤處理 MsgBox 串口被占用或此串口不存在！通信無效！ , 16, 錯誤提示 Exit Sub End If End If End With End Sub Private Sub MSComm1_OnComm() 北方民族 大學學士學位論文 小型 超市收款機設計 34 Dim Crpos% Select Case ‘借 著取代底下每一個 Case 語句來處理每個事件 與 錯誤事件 Case EvCD ’CD 線的狀態(tài)發(fā)生變化 Case EvCTS ‘CTS 線 的狀態(tài)發(fā)生變化 Case EvDSR ’DSR 線的狀態(tài)發(fā)生變化 Case EvRing ‘Ring Indicator 變化 Case EvReceive ’收到 RThreshold of GotStr = GotStr + Trim() ‘將數(shù)據(jù) 不斷 地接入 Crpos = InStr(1, GotStr, Chr(13)) ’判斷是否遇到結尾字符 ‘若 已 收到 結尾字符則進行 以下 的作業(yè) If Crpos 0 Then = GotStr ’顯示新值，從而獲得 條形碼 GotStr = ‘清空接收的字符串 End If Case EvSend ’傳輸緩沖區(qū)有 Sthreshold 個字符 End Select End Sub Private Sub Text1_GotFocus() = 0 = Len() End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。 amp。判斷通信口是否打開 On Error Resume Next .PortOpen = True 39。 \ = Sto_Sys With MSComm1 .CommPort = 2 .Settings = 9600,n,8,1 39。 \。該任務中只用到文本，使用文本模式 .InputLen = 0 .SThreshold = 1 .OutBufferCount = 0