【正文】 該任務(wù)中只用到文本，使用文本模式 .InputLen = 0 .SThreshold = 1 .OutBufferCount = 0 .InBufferCount = 0 .RThreshold = 1 39。 + + 39。判斷通信口是否打開 On Error Resume Next .PortOpen = True 39。定義 MSFlexGrid1 表的列寬和表頭信息 s = Array(1400, 2800, 900, 1400, 1000, 1000) Y = Array(商品條形碼 , 商品名稱 , 價格 , 數(shù)量 , 合計 ) For i = 0 To 4 (i) = s(i) (0, i) = Y(i) Next i 39。無此記錄，表示無此用戶名 Else If Rs(密碼 ) = txtPassword Then 39。然后通過以下方法打開數(shù)據(jù)庫 If = 0 Then = Provider=。這是 我 大學(xué)里最充實的一段時間 。 從 一開始軟件學(xué)習(xí)，開發(fā)語言學(xué)習(xí)，害怕自己做不出來，到最后輕松的看 著自己開發(fā)的 軟件 在電腦上運行，心中有一種 莫名的成就感。我 當(dāng)時 想了，看了這么多書了，也了解了這么多關(guān)于這軟件的使用 方法 了，必須來 實踐 來提高我的動手能力了，那么我開始在實驗室里進入 了瘋 狂敲代碼， 瘋狂地 看 電腦 的日子，這段時間內(nèi)，我每天都早早起來，帶上書包來到實驗室， 因為一開始在自己 電腦上安裝的 VB 軟件是精簡版的，好多控件都無法使用，這是一開始我的準(zhǔn)備工作沒做好，所以我每天都去實驗室，天天在實驗室里看書， 實踐 ，最開始實踐的是學(xué)生信息的管理系統(tǒng)，也就如上圖一樣，只是 label 的 屬性改為學(xué)生姓名，學(xué)號等，這樣后面的數(shù)據(jù)就是學(xué)生 的 信息了，如此我也 照葫 蘆畫瓢 ，做出了上面的界面，這就是我一開始學(xué)習(xí) 這 軟件開發(fā)的第一個界面， 我 利用原有的代碼進行相應(yīng)的修改，能夠達到我需要的效果，這難道 開源 對我們這些初學(xué)者的好處么？這是 一種 減少 程序員 代碼輸入的繁重工作量。 圖 出現(xiàn) 問題的銷售界面 后來 我就按照書上 所說 的使用 MSHFlexGrid 控件，這 就 能夠達到 先 不顯示數(shù)據(jù)庫 中的信息，這樣一來我 就 解決了這個 界面 的主要問題 。 銷售 模塊 成功 掃描了條形碼 后如果 商品中沒有這商品，系統(tǒng)照樣會提示 ：沒有 該商品 這是 一種 人性化 的設(shè)計，原因是在軟件設(shè)計時候，你得考慮到 銷售 人員掃描到庫存內(nèi)不存在的商品，這是 一種 不可避免的，所以站在這角度上，就要設(shè)計提示界面，也就是如下圖所示的 在用激光條形碼 掃描器掃描一個數(shù)據(jù)庫中不存在的 商品 條形碼。 本章 總結(jié) 對開發(fā) 軟件的工具進行了詳細的介紹，如 visual basic 軟件 ，用來開發(fā)銷售系統(tǒng)的各個 界面； Microsoft Access 20xx 軟件 ，用來 建立 數(shù)據(jù)庫儲存，如 登陸人員信息，商品 信息 等表格 等 ，進行了各種介紹，讓 各位 了解整個開發(fā)過程中 所用到 的軟件 和 系統(tǒng)的流程圖 。)查詢 語句 從 myfile 表來進行數(shù)據(jù)的調(diào)用 ， 從而 實現(xiàn) 了登陸 的 賬號查詢，密碼查詢，進行 if 判斷，來 判斷 賬號和密碼是否正確，從而達到 系統(tǒng)安全的設(shè)置 。 圖 查詢 保存： 將新加入的 商品 信息進行保存。商品 銷售模塊有 條形碼 接收框，數(shù)量輸入框，實收金額 框 ， 應(yīng)收金額框 ， 應(yīng) 找金額框，結(jié)算按鍵。 圖 U 轉(zhuǎn)串口線 本章 總結(jié) 對條形碼 進行了簡單的介紹 ，對 掃描器如何進行 掃描 條形碼進行了 闡述 ，對其工作原理及 工作 性能進行了詳細的介紹，然后對條形掃描器獲得條形碼后如何傳輸給計算機做 了一個詳細的闡述，對 U轉(zhuǎn)串口的原理進行了介紹。 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機設(shè)計 10 圖 RS232 串口 本次設(shè)計 也是用上圖所示的 DB9 型號 的 9 個 引腳的。 5% 電功率 258mw（ 工作 ） ； 100mw（ 待機 ） ； 380mw（ 最大峰值 ） 電源 來源 鍵盤 界面主機供應(yīng)： Rs232 外接式或 主機供應(yīng) 電流 50ma（工作 ） ； 30ma（ 待機 ） ； 100ma（最大峰值 ） 光源 可視激光 650nm 靜電 防護 15kv 激光等級 國家 一級激光安全標(biāo)準(zhǔn) 景深 29cm（ ) 340cm（ 條寬） 掃描 寬度 5cm30cm 解碼 速度 300 次 /秒 可讀 條 寬 最下 （ 4mils） 解碼 能力 UPCA， UPCE， EAN13， EAN8， ISBN/ISSN， 39 碼 128 碼 ， 93 碼 ， 11 碼， 中國郵政碼等通用一維條碼 提示 方式 指示燈 LED， 蜂鳴器 系統(tǒng) 接口 IBM PS/2鍵盤 ， IBM PC/XT/AT， RS232串口，標(biāo)準(zhǔn) 接口 觸發(fā) 方式 手動， 自動連續(xù)掃描 ， 紅外自動掃描 外觀 尺寸 長 *寬 *高： ** 重量 135g 電纜標(biāo)準(zhǔn) 直線 2m 接口 類型 RJ45 外殼 材質(zhì) ABS+PC+PVC 工作 溫度 10℃到 60℃ 儲存 溫度 20℃到 60℃ 操作 濕度 095% 語言 支持多國 語言 表 激光條形 掃描器說明書 激光條形 掃描器 性能 激光 條形掃描器顧名思義就是以 光束 掃描 貨物 的條形碼 來獲得相應(yīng) 的字符串 。 （ 2） 分辨率 CCD 分辨率增高的話，必須增加成像處光敏 原件 的單位元素 。 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機設(shè)計 6 小型超市 系統(tǒng) 技術(shù) 可行性分析 經(jīng)過 對 這次 設(shè)計的軟件在 設(shè)計 上的軟件要求，我使用了 Microsoft 公式 的兩款軟件進行開發(fā)，利用 visual basic 工具的 各種 面向?qū)ο蟮?設(shè)計 ，在 收賬單窗體上利用簡單的 ADO 控件 進行控制 。 3） 商品銷售界面模塊：進行商品掃描上結(jié)賬單，進行結(jié)賬操作。整體 是 一種對本次設(shè)計做了一個研究前提 。當(dāng)?shù)搅耍?1959~1964 年）這段時間時候，人們開始采用磁芯存儲器等高新材料，從而提高了 計算機的計算能力，這時候人們開始在一些小型超市收款系統(tǒng)上面下功夫，開發(fā)一些小型的超市管理系統(tǒng)。然而這一切的一切都讓它在小型超市上造成了大量的繁瑣工作，讓其在小型超市上就是一種累贅，所以這是它的優(yōu)點，同時也是它的缺點。 本設(shè)計主要是針對小型超市設(shè)計的，去除了那些大型軟件上的不必要功能，只留下了簡單的管理員身體確認，商品入庫，銷售三個模塊為一體的小型超市收款機設(shè)計。然而進過調(diào)查盡管現(xiàn)在很多超市都使用了超市收銀系統(tǒng)來管理商品，但是這些系統(tǒng)并不是針對小型超市的是針對那種大型超市，那么問題就來了：一軟件開發(fā)的技術(shù)可行性在小型超 市就達不到。系統(tǒng)的管理員登陸可以防止非工作人員操作系統(tǒng)；系統(tǒng)的商品入庫可以儲存大量的商品信息，同時還提供了查詢，添加，等功能；系統(tǒng)的外接設(shè)備主要是激光條形掃描器，用來掃描商品條形碼來進行商品的銷售管理。這些 高新的信息技術(shù)還可以幫人們完成難以完成的任務(wù)。小型超市作為我國銷售商品種類最多，人員流動量最快，具有難以管理的特征。 根據(jù)現(xiàn)在的實際情況，好多小型超市不能很好的管理每一件 商品 ，給 顧客找錢 速度慢，造成了大量 的 顧客需要 排隊 買東西 ，這樣人們會厭煩來這家超市買東西 ，還有不好進行商品調(diào)價，在 調(diào)價后銷售人員還得關(guān)注每件產(chǎn)品 的 價格，造成了 銷售 人員的大量 腦力 勞動 。 傳統(tǒng)的大型超市的優(yōu)點其實很明顯的，管理起來很詳細。它們是做生意的，當(dāng)然明白其中的利益損失，所以這些傳統(tǒng)的超市收款機系統(tǒng)存在資源浪費，操作復(fù)雜，成本太高的缺點。 （ 2）實驗法：通過這一兩個月時間進行大量的代碼編寫和硬件調(diào)試，在通過實驗的方法找到自己的不足之處。本次 設(shè)計要求實現(xiàn)的功能是 完成銷售員 銷售 ,和 商品入庫 功能 ,利用 Microsoft Access 軟件來 建立數(shù)據(jù)庫 來 進行商品 信息 的 錄入存儲 。 而 運行 這 軟件只需要 有 window 系統(tǒng) 的 計算機，和消耗一些電源就可以實現(xiàn)以上的功能 。 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機設(shè)計 7 第 3 章 硬件 設(shè)計 激光條形碼 掃描器簡介 這 條形碼 掃描 器 分為手持式 條形碼掃描器 和 架子 式， CCD 掃描器 是利用光電耦合原理 來 制作的， 對條形碼印刷圖案進行 成像處理 ， 然后 再 進行 翻譯 編碼。 [2] 條形碼 的種類有： 39 碼 ， 128 碼 ， UPCA 碼， UPCE 碼， EAN13 碼 ， EAN8碼 等 。 接口 具有傳輸速度 快，支持熱插 拔和 連接多個設(shè)備的 特點。 用著 U 轉(zhuǎn)串口就是把大部分 的 USB 口轉(zhuǎn)變成了串口形式，可以 按照 串口的方法進行調(diào)試。 當(dāng)你 輸入 用戶名和密碼后，系統(tǒng)會在數(shù)據(jù)庫中進行查找用戶名 和密碼是否正確， 正確 過后進入后臺管理系統(tǒng)。 刪除 ：將已經(jīng) 銷售出 的信息 刪除 ，這就有效的管理了商品的 庫存 和銷售的平衡 。Access 數(shù)據(jù) 庫以文件形式保存，文件的擴展名 是 mdb[11] 圖 Microsoft Access20xx 設(shè)計 的數(shù)據(jù)庫 本次 設(shè)計主要是利用 Microsoft Access 軟件 來設(shè)計了兩個 數(shù)據(jù) 庫： 商品 信息庫 （ Sto_Sys），人員登錄庫 （ myfile）。然后 利用： select * from Sto_Sys where 商品條形碼 =39。 我用了 接近 2 個 星期的學(xué)習(xí)，我終于看懂了一點數(shù)據(jù)庫 綁定 ，和查詢調(diào)用的語句 ， 這是對我在學(xué)習(xí)的時候提供了正確的方向，讓我能 夠 事半功倍。 這 控件的選擇 是我出現(xiàn) 的最大問題，一開始我選擇了 VB軟件中的 DataGrid控件來 顯示 商品信息，我利用這控件還 做 了一段時間，最后都做成了相應(yīng)的界面，如下圖所示 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機設(shè)計 22 圖 開發(fā) 過程中的銷售界面 中的顯示 控件就是 DataGrid 控件，這控件是利用 ADO 控件進行數(shù)據(jù)連接的橋梁。 入庫 模塊中存在 ： 編輯，退出 兩個 總菜單，總菜 中 編輯菜單下有有很多子菜 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機設(shè)計 24 單， 新增 記錄，保存記錄，刪除記錄，查詢，退出等 子菜單。 這次 設(shè)計的所有問題在第五章中都有提起，這 是 我 的 畢業(yè)設(shè)計帶給我的最寶貴的經(jīng)驗 。 在 編寫代碼 中 遇到問題 時候 ， 我 在圖書館里進行大量的 文獻檢索 ，借了很多圖書館的資料來學(xué)習(xí)，來 解 決 問題 。 同時 感謝各位領(lǐng)導(dǎo) 百忙之中 抽出時間來 聽 我的畢業(yè)答辯 ， 在 這里再次 感謝各位領(lǐng)導(dǎo) 給我 的 論文 的建議和幫助。再聲明一個 recordSet 對象 Dim Rs As New Set Rs = (select 密碼 from myfile where 賬號 =39。求合計金額 Next i = A 39。波特率為 XXXXX，無檢驗， 8 位數(shù)據(jù)， 1 位停止位 .InBufferSize = 1024 .OutBufferSize = 1024 .InputMode = 0 39。 amp。 If = True Then MsgBox 對不起，沒有你查找的記錄！ End If End Sub Private Sub Form_Load() = amp。打開通信口 If Err Then 39。 Sto_Find_SP amp。按回車鍵 Dim temp If Then = Provider=。定義 MSFlexGrid1 表的列寬和表頭信息 s = Array(1400, 2800, 900, 1400, 1000, 1000) Y = Array(商品條形碼 , 商品名稱 , 價格 , 數(shù)量 , 合計 ) For i = 0 To 4 (i) = s(i) (0, i) = Y(i) Next i 39。密碼不正確 End If End If Set Rs = Nothing Set Conn = Nothing End Sub 取消 按鈕 ： Private Sub cmdCancel_Click() End End Sub 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機設(shè)計 31 后臺 管理系統(tǒng)程序 Private Sub Form_Unload(Cancel As Integer) Dim strMsg As String Dim rt As VbMsgBoxResult strMsg = 你想退出么？ rt = MsgBox(strMsg, vbQuestion + vbOKCancel + vbDefaultButton1, 你想退出后臺管理系統(tǒng)嗎