【正文】 .InBufferCount = 0 .RThreshold = 1 39。格式化合計(jì)金額 = Val() Val() End Sub Private Sub Command2_Click() = = = = = 39。 + txtUserName + 39。 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機(jī)設(shè)計(jì) 27 參考文獻(xiàn) [1] [2] 黃 文鈺 .Visual basic POS 系統(tǒng)實(shí)現(xiàn) — 零售業(yè)構(gòu)建實(shí)例 .清華大學(xué)出版社 .20xx [3] 高春艷，李俊民，劉彬彬 .Visual Basic 程序開發(fā)范例寶典 .人民郵電出版社 .20xx [4] 郭晶，孫偉娟 .Visual Basic 數(shù)據(jù)庫開發(fā)實(shí)例精粹 .電子工業(yè)出版社 .20xx [5] 曹衍龍 .Visual Basic 系統(tǒng)開發(fā)實(shí)例精粹 .人民郵電出版社 .20xx [6] 劉彬彬 , 孫秀梅 , 鞏建華 .Visual Basic 編程寶典 .人民郵電出版社 .20xx [7] 沈建蓉 ,單貴主 .大學(xué) VB 程序設(shè)計(jì)實(shí)踐教程 .復(fù)旦大學(xué)出版社 .20xx [8] 匡松 , 呂峻閩 .Visual Basic 程序設(shè)計(jì)基礎(chǔ)教程 .中國鐵道出版社 .20xx [9] 劉彬彬 , 孫秀梅 , 安劍 .Visual Basic 全能速查寶典 .人民郵電出版社 .20xx [10] 5UANSTO9fho56l7IIOeRrYEm6Hm8RZ9hod0F4UWsEJp_MfNAEshVq [11] Ama_IjwDUg1ewj8zatBoLXjDLjhKsk3zk7TBHNC1bQkuJg107VSlAjq [12] 范逸之，陳立元 .Visual Basic 與 RS232 串行通信控制 .清華大學(xué)出版社 .20xx 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機(jī)設(shè)計(jì) 28 附錄 附錄 1 實(shí)物圖 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機(jī)設(shè)計(jì) 29 附錄 2 顯示圖 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機(jī)設(shè)計(jì) 30 附錄 3 程序 登陸 對(duì)話框的程序 登陸 按鈕： Private Sub cmdOK_Click() 39。 同時(shí) 讓我 在學(xué)習(xí)軟件 開發(fā)上 有了實(shí)踐經(jīng)驗(yàn)，這對(duì)我后面畢業(yè) 找工作 有了很大的幫助 。 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機(jī)設(shè)計(jì) 25 結(jié) 論 大學(xué) 四年 最后 一個(gè)學(xué)期 半個(gè) 多月接近兩個(gè)月的 努力，我 終于在接近交稿的時(shí)候完成了我的畢業(yè)設(shè)計(jì)的全部設(shè)計(jì) 要求。 這是 入庫 界面必備的一種按鍵，或者說必須的一種菜單。 如上圖 的 Adodc1 控件 就是 ADO 控件 。 到 最后我在進(jìn)行數(shù)據(jù)顯示控件和數(shù)據(jù)進(jìn)行連接的時(shí)候， 也用到 了其中的語法， 我 很 高興 自己當(dāng)時(shí)認(rèn)真學(xué)了這個(gè)章節(jié)的 知識(shí)。 + + 39。 數(shù)據(jù) 庫 結(jié)構(gòu) 如下： 表 1:人員 登錄庫 （ myfile） 字段 名稱 數(shù)據(jù)類型 字段 大小 說明 賬號(hào) 文本 10 登錄 的用戶名 密碼 數(shù)字 長整型 登錄 的密碼 姓名 文本 8 名稱 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機(jī)設(shè)計(jì) 17 表 2： 商品信息庫 （ Sto_Sys） 字段 名稱 數(shù)據(jù)類型 字段 大小 說明 商品 條形碼 文本 50 商品 的條形碼 商品 名稱 文本 50 商品 的名稱 價(jià)格 貨幣 貨幣 商品 的單價(jià) 數(shù)量 數(shù)字 整形 購買 的數(shù)量 合 計(jì) 貨幣 貨幣 單價(jià)和 數(shù)量的乘積 然后 利用 Set Rs = (select 密碼 from myfile where 賬號(hào) =39。 查找： 由于有時(shí)候刪除商品，或者查看 商品 信息 并不是 從下面的商品信息控件 上一個(gè)一個(gè)翻看，這是要利用 查找菜單利用激光 掃描器掃描條形碼 ， 然后按確定鍵，進(jìn)行查詢商品的信息 。 否則 提示 ： 查無此賬號(hào)，或者密碼錯(cuò)誤。 USB 它的最大特點(diǎn)是支持 帶電 插 或 拔，即插即用 ， 傳輸速度快 。 如今 在 各大領(lǐng)域都有應(yīng)用，如今 應(yīng)用 到超市收款機(jī) 中 ，這 為 軟件開發(fā)節(jié)省了許多串口 的 銜接。 [2] 激光 條形碼掃描器 選擇 與工作 原理 此次 設(shè)計(jì)主要是利用軟件實(shí)現(xiàn)，而硬件上必須選擇能夠?qū)崿F(xiàn)條形碼 的 信息獲取良好的 激光 掃描器。 [1] 而對(duì)于 CCD 掃描器最重要的兩個(gè)參數(shù) ： （ 1） 景深 由于 CCD 的成像原理 這是 基于一種 類似于 于照相機(jī)，如果要加大景深，那么 相應(yīng)的要加大透鏡 的 面積，使 CCD 體積 太大 ，不 利 于操作人員操作 。 而 開發(fā) 過程中的經(jīng)濟(jì) 可行性 也是滿足的，如在開發(fā)過程中只是利用了 Visual Basic 軟件 和 Access 軟件，就可以進(jìn)行開發(fā) 。 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機(jī)設(shè)計(jì) 5 小型超市系統(tǒng)功能分析 這小型超市系統(tǒng)開發(fā)是利用 Visual Basic 進(jìn)行開發(fā)的，那么我們需要的功能有以下幾個(gè)方面： 1） 銷售人員登錄模塊：主要功能就是防止不是銷售人員進(jìn)行操作，這對(duì)系統(tǒng)的安全進(jìn)行的門檻設(shè)計(jì)，這就像一把鑰匙，想要進(jìn)入系統(tǒng)銷售界面，就必須有這把鑰匙。 本章 總結(jié) 本章 主要 闡述 了本次設(shè)計(jì)的目的和意義 ， 同時(shí)分析了傳統(tǒng)超市收款機(jī) 系統(tǒng)的 優(yōu)缺點(diǎn) ， 從而為本次設(shè)計(jì)的重要性 作 了鋪墊 。 超市收款系統(tǒng)的發(fā)展及現(xiàn)實(shí)應(yīng)用 超市模式在我國于 20 世紀(jì) 90 年代初開始發(fā)展，而如今果斷成為我們國家零售業(yè)的一種非常重要的模式了。如老板登陸系統(tǒng)，與員工登錄系統(tǒng)是不同的界面，老板可以查詢每個(gè)員工的工作情況等。在小型超市日常管理中商品進(jìn)貨、商品銷售、商品存貨三為一體。在以前信息化不普及的時(shí)代，人們只能通過利用紙張、表格等進(jìn)行人工統(tǒng)計(jì)商品信息，在錯(cuò)誤率上總是頗高不下。 小型超市管理系統(tǒng)，從管理員登陸，商品入庫，銷售界面三個(gè)模塊進(jìn)行設(shè)計(jì)的。系統(tǒng)主要利用 Visual Basic 軟件作為系統(tǒng)開發(fā)的主要工具，和 Access 20xx作為數(shù)據(jù)庫開發(fā)主要軟件。現(xiàn)如今信息化已經(jīng)可以說相當(dāng)發(fā)達(dá)的今天，人們再也不用像以前一樣干著枯燥繁重的工作，可以利用高科技來管理這些商品信息。所以，我在我 的畢業(yè) 設(shè)計(jì)上選擇了小型超市收款 機(jī)設(shè)計(jì)，用 現(xiàn)在計(jì)算機(jī) 管理技術(shù)來 進(jìn)行 超市商品 管理，從而減少了大量的人力、物力、改善了員工的工作條件，減輕了勞動(dòng)強(qiáng)度，并且能夠迅速反映出商品的進(jìn)貨 ，銷售貨 和各種反饋信息分析，加快了超市的系統(tǒng)建立的技術(shù)基礎(chǔ)。還有商品信息的全面性，如商品的出產(chǎn)地等，都可以進(jìn)行統(tǒng)計(jì)，還可以利用商品銷售的情況來進(jìn)行進(jìn)貨，這都是傳統(tǒng)收款機(jī)系統(tǒng)的優(yōu)點(diǎn)，這些優(yōu)點(diǎn)在大型超市上面 顯現(xiàn)的淋淋盡致。超市收款系統(tǒng)的實(shí)現(xiàn)是基于計(jì)算機(jī)的發(fā)展，計(jì)算機(jī)發(fā)展史中：（ 1946~1959 年）期間是電子管計(jì)算機(jī)時(shí)代，這段時(shí)間小型數(shù)據(jù)處理系統(tǒng)還無法在計(jì)算機(jī)上進(jìn)行。 結(jié)合 現(xiàn)實(shí)生活 中 超市 收款系統(tǒng)的發(fā)展及現(xiàn)實(shí) 中的應(yīng)用等，最后進(jìn)行了課題研究的 方法 進(jìn)行介紹。 2） 后臺(tái)管理系統(tǒng)模塊：提醒用戶是進(jìn)入商品銷售界面，還是進(jìn)入商品入庫界面，或者是退出系統(tǒng)。 這樣 開發(fā) 的成本很低，有利于軟件開發(fā)的經(jīng)濟(jì)可行性的要求，系統(tǒng)開發(fā)完后進(jìn)入運(yùn)行狀態(tài)，可以提高小型超市 銷售 管理 等 方面的水準(zhǔn) ， 同時(shí)節(jié)約資源 ， 產(chǎn)生的市場經(jīng)濟(jì) 收益 往往高于它開發(fā)的投入。錯(cuò)誤 !未找到引用源。我 選擇 的 激光條形碼 掃描器的 技術(shù) 參數(shù)如下： 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機(jī)設(shè)計(jì) 8 輸入 電壓 DC5V177。 圖 RS232 串口 獲取條形碼信息 RS232 串口 是 一種 用 9 個(gè) 引腳 制作一種 用 標(biāo)準(zhǔn) 異步 通信 的 串口 調(diào)節(jié)線。 這 根 線可以 當(dāng)作 是一個(gè) 協(xié)議的轉(zhuǎn)換器 器件 ，將 計(jì)算機(jī) 的 串 口轉(zhuǎn)成一個(gè)并行總線，從而就可以完成 的產(chǎn)品設(shè)計(jì)。 圖 后臺(tái) 管理系統(tǒng) 銷售 模塊 利用賬號(hào) 密碼登陸后， 運(yùn)行到后臺(tái) 管理系統(tǒng)，點(diǎn)擊上面的菜單 ： 商品銷售界面，就進(jìn)入了商品的銷售模塊了 。 這 就 形成了一體化的查詢機(jī)制，利用 SQL 語言 中的 select 語句 進(jìn)行查詢 ， 從而 實(shí)現(xiàn)調(diào)用 硬盤上存儲(chǔ)的數(shù)據(jù)的信息。 + txtUserName + 39。 進(jìn)行 條形碼對(duì)比，查詢商品，入賬，最后按下結(jié)算按鈕，進(jìn)行結(jié)算。 這學(xué)習(xí)過程中讓我深刻體會(huì)到軟件開發(fā)中一種整體思維，這是一種不可避免的 需求 。 然而 這樣 就 形成了直接把數(shù)據(jù)庫中的數(shù)據(jù)全部顯示 到 DataGrid 控件上了，這不是我要的結(jié)果，我需要的結(jié)果是 先 不在上面顯示，而是在掃描商品的條形碼后，按鍵過后才能顯示出來，如果這樣 ，按鍵來查詢商品信息，只能進(jìn)行 單個(gè) 的商品查詢，所以這控件是一個(gè)錯(cuò)誤的 選擇 。 這 個(gè)模塊，是我一開始創(chuàng)建的模塊，因?yàn)槲乙婚_始看的 書本 上的只是是關(guān)于控件的知識(shí)， 讓我 了解了很多 Visual Basic 軟件 上 的很多控件，和使用方法 。 經(jīng)過 測試 各個(gè)模塊運(yùn)行順暢，在市場上也 具有了一定的使用價(jià)值。 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機(jī)設(shè)計(jì) 26 致 謝 時(shí)間 如流水，大四 的 最后一個(gè)學(xué)期馬上結(jié)束了， 畢業(yè) 設(shè)計(jì)讓我學(xué)到了很多專業(yè)知識(shí)， 豐富 了理論文化知識(shí)，增強(qiáng)了實(shí)踐操作能力， 提高 了軟件開發(fā)的思想 。先聲明一個(gè) conn 對(duì)象 Dim Conn As New 39。) If Then MsgBox 查無此賬號(hào) , , 登陸信息 39。定義 MSFlexGrid1 表的總行數(shù)、總列數(shù) = 102 = 5 39。串口每收到 1 字節(jié)的數(shù)據(jù)，即產(chǎn)生接收中斷 If Not .PortOpen Then 39。Persist Security Info=False = select * from Sto_Sys where 商品條形碼 =39。波特率為 XXXXX，無檢驗(yàn)， 8 位數(shù)據(jù)， 1 位停止位 .InBufferSize = 1024 .OutBufferSize = 1024 .InputMode = 0 39。串口每收到 1 字節(jié)的數(shù)據(jù)，即產(chǎn)生接收中斷 If Not .PortOpen Then 39。 Else MsgBox 請(qǐng)輸入商品號(hào) Exit Sub End If If Then MsgBox 沒有該商品 : Exit Sub With MSFlexGrid1 If .TextMatrix(1, 1) Then .AddItem , .Row + 1 .Row = .Row + 1 End If .TextMatrix(.Row, 0) = (商品條形碼 ) 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機(jī)設(shè)計(jì) 35 .TextMatrix(.Row, 1) = (商品名稱 ) .TextMatrix(.Row, 2) = (價(jià)格 ) .TextMatrix(.Row, 3) = (數(shù)量 ) .TextMatrix(.Row, 4) = (合計(jì) ) .TextMatrix(.Row, 3) = Val() temp = (價(jià)格 ) * Val() .TextMatrix(.Row, 4) = Val(temp) End With Text2 = Clear End If End Sub Private Sub Timer1_Timer() = Time End Sub 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機(jī)設(shè)計(jì) 36 商品 入庫系統(tǒng)程序 Dim GotStr As String Dim MyStr As String Private Sub bc_Click() End Sub Private Sub Command1_Click() End Sub Private Sub Find_Click() Dim Sto_Find_SP As String Sto_Find_SP = InputBox(請(qǐng)輸入條形碼： , 查找 ) 商品條形碼 =39。打開通信口 If Err Then 39。定義 MSFlexGrid1 表的固定行數(shù)、固定列數(shù) = 1 = 1 End Sub Private Sub Form_Load() = Clear = Clear = Clear = Clear 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機(jī)設(shè)計(jì) 33