【導(dǎo)讀】一種重要途徑了。同時，我們使用現(xiàn)有的信息技術(shù)，不停的改進(jìn)人們的生活質(zhì)量，減少人類的沉重的工作量，從而減少人們的腦力和體力勞動。這些高新的信息技。術(shù)還可以幫人們完成難以完成的任務(wù)。系統(tǒng)主要利用VisualBasic軟件作為系統(tǒng)開發(fā)的主要工具，和Access20xx. 系統(tǒng)的管理員登陸可以防止非工作人員操作系統(tǒng)；系。整個系統(tǒng)提高了小型超市信息管理的工作效率。

　　

【正文】 固定列數(shù) = 1 = 1 End Sub Private Sub Form_Load() = Clear = Clear = Clear = Clear 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機設(shè)計 33 = Clear 39。定義 MSFlexGrid1 表的總行數(shù)、總列數(shù) = 102 = 5 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。定義 MSFlexGrid1 表的固定行數(shù)、固定列數(shù) = 1 = 1 = With MSComm1 .CommPort = 2 .Settings = 9600,n,8,1 39。波特率為 XXXXX，無檢驗， 8 位數(shù)據(jù)， 1 位停止位 .InBufferSize = 1024 .OutBufferSize = 1024 .InputMode = 0 39。該任務(wù)中只用到文本，使用文本模式 .InputLen = 0 .SThreshold = 1 .OutBufferCount = 0 .InBufferCount = 0 .RThreshold = 1 39。串口每收到 1 字節(jié)的數(shù)據(jù)，即產(chǎn)生接收中斷 If Not .PortOpen Then 39。判斷通信口是否打開 On Error Resume Next .PortOpen = True 39。打開通信口 If Err Then 39。錯誤處理 MsgBox 串口被占用或此串口不存在！通信無效！ , 16, 錯誤提示 Exit Sub End If End If End With End Sub Private Sub MSComm1_OnComm() 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機設(shè)計 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)) ’判斷是否遇到結(jié)尾字符 ‘若 已 收到 結(jié)尾字符則進(jìn)行 以下 的作業(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。按回車鍵 Dim temp If Then = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from Sto_Sys where 商品條形碼 =39。 + + 39。 Else MsgBox 請輸入商品號 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é)位論文 小型 超市收款機設(shè)計 35 .TextMatrix(.Row, 1) = (商品名稱 ) .TextMatrix(.Row, 2) = (價格 ) .TextMatrix(.Row, 3) = (數(shù)量 ) .TextMatrix(.Row, 4) = (合計 ) .TextMatrix(.Row, 3) = Val() temp = (價格 ) * Val() .TextMatrix(.Row, 4) = Val(temp) End With Text2 = Clear End If End Sub Private Sub Timer1_Timer() = Time End Sub 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機設(shè)計 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(請輸入條形碼： , 查找 ) 商品條形碼 =39。 amp。 Sto_Find_SP amp。 39。 If = True Then MsgBox 對不起，沒有你查找的記錄！ End If End Sub Private Sub Form_Load() = amp。 \ = Sto_Sys With MSComm1 .CommPort = 2 .Settings = 9600,n,8,1 39。波特率為 XXXXX，無檢驗， 8 位數(shù)據(jù)， 1 位停止位 .InBufferSize = 1024 .OutBufferSize = 1024 .InputMode = 0 39。該任務(wù)中只用到文本，使用文本模式 .InputLen = 0 .SThreshold = 1 .OutBufferCount = 0 .InBufferCount = 0 .RThreshold = 1 39。串口每收到 1 字節(jié)的數(shù)據(jù)，即產(chǎn)生接收中斷 If Not .PortOpen Then 39。判斷通信口是否打開 On Error Resume Next .PortOpen = True 39。打開通信口 If Err Then 39。錯誤處理 MsgBox 串口被占用或此串口不存在！通信無效！ , 16, 錯誤提示 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機設(shè)計 37 Exit Sub End If End If End With End Sub Private Sub MSComm1_OnComm() Dim Crpos% Select Case Case EvCD Case EvCTS Case EvDSR Case EvRing Case EvReceive GotStr = GotStr + Trim() Crpos = InStr(1, GotStr, Chr(13)) If Crpos 0 Then = GotStr GotStr = End If Case EvSend End Select End Sub Private Sub qx_Click() End Sub Private Sub shanchu_Click() If MsgBox(是否刪除當(dāng)前記錄？ , vbYesNo, 確認(rèn) ) = vbYes Then End If End Sub Private Sub tc_Click() Unload Me End Sub Private Sub zengjia_Click() = End Sub 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機設(shè)計 38 附錄 4 外文 文獻(xiàn) munication method of puter and totalstation instruments of data at VB environment [Summary] this text mainly inquiry in to carried out munication between puter and the totalstation instrument data under (call VB as follows) environments. Two kinds of munication methods: the usage msm control and the function of windows API. The application that also bined a solid example to carry out their string to go munication Procedure and step. Finally carried on parison and summary to two kinds of methods. [Keyword] Visual Basic data munication the msm control All of the electronics totalstation instrument because its function is strong and operate convenience and consumedly raised an open country homework efficiency. Therefore it just and gradually replace traditional diagraph instrument and it is expanded for an application. Although making use of the system menu function of totalstation instruments can immediately plete normal regulations diagraph, monitor in the big dam safety, side the ascent transform a monitor etc. this kind of data is a little bit greatly and need solid the applied situation of processing data, it is will not satisfy demands only by function and amount of memory of instrument. The data at this time can be output a puter by the instrumental data exportation port, and the data can be processed and saved by software. Along with the extensive usage of calculator, many local open country digatial measure diagram method also need to 北方民族 大學(xué)學(xué)士學(xué)位論文 小型 超市收款機設(shè)計 39 carry out realtime transport. VB is released by the Microsoft pany