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