【正文】 ；100ma（最大峰值）光源可視激光650nm靜電防護(hù)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串口，觸發(fā)方式手動(dòng)，自動(dòng)連續(xù)掃描，紅外自動(dòng)掃描外觀尺寸長*寬*高：**重量135g電纜標(biāo)準(zhǔn)直線2m接口類型RJ45外殼材質(zhì)ABS+PC+PVC工作溫度10℃到60℃儲(chǔ)存溫度20℃到60℃操作濕度095%語言支持多國語言激光條形掃描器顧名思義就是以光束掃描貨物的條形碼來獲得相應(yīng)的字符串。 RS232串口本次設(shè)計(jì)也是用上圖所示的DB9型號的9個(gè)引腳的。第4章 軟件設(shè)計(jì) Basic 1991年，微軟公司推出的軟件開發(fā)工具Visual Basic（簡稱VB），VB是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級程序設(shè)計(jì)語言，可用來開發(fā)windows操作系統(tǒng)下的各類應(yīng)用程序，這不需要寫大量代碼就能實(shí)現(xiàn)界面的顯示，實(shí)現(xiàn)相應(yīng)的功能只需要進(jìn)行少量代碼編寫就能實(shí)現(xiàn)，這給程序開發(fā)人員減輕了不少的編寫相同代碼的負(fù)擔(dān)。和賬單顯示控件。 Access軟件 Access軟件簡介Access是微軟出的辦公軟件office套件中的一種數(shù)據(jù)庫制作工具，Access數(shù)據(jù)庫管理系統(tǒng)是Microsoft office套件的重要組成部分。不是銷售人員不能進(jìn)入這系統(tǒng)的后臺(tái)管理系統(tǒng)，和系統(tǒng)銷售界面，進(jìn)行商品的銷售。第5章 開發(fā)過程中問題與總結(jié)開始銷售人員用戶名、密碼檢測賬號和密碼 否 是登陸進(jìn)入后臺(tái)管理系統(tǒng)界面 登陸模塊中可以根據(jù)數(shù)據(jù)庫中myfile表中的登陸賬號，登陸密碼來進(jìn)行登錄。當(dāng)你輸入數(shù)據(jù)庫中存在的條形碼時(shí)候，那么你輸入需要的數(shù)量過后，按上enter鍵后，就會(huì)在下面的數(shù)據(jù)顯示控件上進(jìn)行商品信息的例舉出來，然后當(dāng)你輸入完畢過后，輸入顧客給的金額也就是實(shí)收金額，然后按結(jié)算按鈕就能夠自動(dòng)進(jìn)行商品的總價(jià)和合計(jì)的計(jì)算，也就是說應(yīng)收金額，然后進(jìn)行一個(gè)減法運(yùn)算，從而得到應(yīng)該找給顧客的錢，也就是應(yīng)找金額。其實(shí)在這個(gè)界面中存在另外一個(gè)很大的問題，當(dāng)時(shí)困擾我將近三個(gè)星期多，這是我整個(gè)設(shè)計(jì)中存在的最大問題。這是一個(gè)軟件開發(fā)者必須學(xué)會(huì)的。我一開始也是滿頭霧水，在盛老師的不厭其煩解說下，雖然開始老師說啥也不知道，但是我還是按照老師的說的方式在學(xué)習(xí)，這一兩個(gè)月的時(shí)間內(nèi)我學(xué)習(xí)了一門計(jì)算機(jī)語言。我在這里衷心的向所有曾經(jīng)幫助過我的任課老師表示感謝，尤其是盛老師在對我畢業(yè)設(shè)計(jì)的不辭辛勞的幫助下，我成功的完成了我的畢業(yè)設(shè)計(jì)。Data Source= amp。密碼正確Unload Me 39。定義MSFlexGrid1表的固定行數(shù)、固定列數(shù) = 1 = 1 End SubPrivate Sub Form_Load() = Clear = Clear = Clear = Clear = Clear39。打開通信口If Err Then 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) = (商品條形碼) .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 IfEnd SubPrivate Sub Timer1_Timer() = TimeEnd Sub商品入庫系統(tǒng)程序Dim GotStr As StringDim MyStr As StringPrivate Sub bc_Click()End SubPrivate Sub Command1_Click()End SubPrivate Sub Find_Click()Dim Sto_Find_SP As StringSto_Find_SP = InputBox(請輸入條形碼：, 查找) 商品條形碼=39。串口每收到1字節(jié)的數(shù)據(jù)，即產(chǎn)生接收中斷If Not .PortOpen Then 39。Input: from receive buffer area to read data。the constitution string go a municationThe MS CommlSettings=39。t suitable for our requests. We can use Windows at this time API provides of munication function to carry out can transplant sex strong string of line of munication procedure with writing. Windows 98 correspondence the system provided the string of an improvement line application the procedure pick up a people API to use to carry on handing over type string with each other line correspondence. Among them, string the and other correspond by letter an equipments is a document to carry on the processed, open, close, reading of string and write in the function used similar to the function of the operation document.Before adjusting to use APIA function, have to the first essentials pronouncement change to measure and function.Dim dcb As DCBDim ofstructl As OFSTRUCTDim operport As LongOpen an API text to originally look into a machine in the V B wreath territory bottom, open Win32. Txt document, atpronouncementing can the options win election in OpenFilc and Setup Cornm, Setup CommState and ReadFile, WriteFile, CIoscHand, le etc. function, in type can the options win election in DCB, OVERLAPPED etc. structure, in constant can the options win election in ODDPARITY, EVRXCHAR etc. often quantity, then choose a replication, make duplicate them to the scrapbook, and glue to stick application procedure code in. Adjust to carry on a string of line munication with API in the VB timeses:1,adjust to use CreateFile line munication first carry on a beginning to start to turn to the string. CreateFile function for read an interview or write an interview to beatOpen a string of, return to that string of sentence handle after opening successfully, then adjust to use SetComm function is in a string of line allotment buffer area size, provide to read and write a string of usage, immediately after use DCB the structure change to measure a constitution to need to change the munication parameter of lacking the string line of saving the value, such as wave especially rate, strange accidentally the school check a , data, stop.2,adjust to use Write File, the Read File function carries on reading and writing an operation to the string line. Carry on a data to send out with Write File, for synchronous I/O operation, its last parameter can be NULL, but tread an I/O operation to the difference, its last parameter musts be a direction OVERLAPPED structure of point needle, make reading and writing of data the operation carry on in the backstage and pass this OVERLAPPED39。( hComDev, amp。send outResultRead File(hComDev, 1 pinBuffer, 1, dwBytesRead, NULIJ39。cb)39。2400, , IP139。Out Buffer Size: send out the size of buffer area。打開通信口If Err Then 39。 Sto_Find_SP amp。按回車鍵Dim tempIf Then = Provider=。定義MSFlexGrid1表的列寬和表頭信息 s = Array(1400, 2800, 900, 1400, 1000, 1000) Y = Array(商品條形碼, 商品名稱, 價(jià)格, 數(shù)量, 合計(jì)) For i = 0 To 4 (i) = s(i) (0, i) = Y(i) Next i 39。密碼不正確End IfEnd IfSet Rs = NothingSet Conn = NothingEnd Sub取消按鈕：Private Sub cmdCancel_Click()EndEnd Sub后臺(tái)管理系統(tǒng)程序Private Sub Form_Unload(Cancel As Integer)Dim strMsg As StringDim rt As VbMsgBoxResultstrMsg = 你想退出么？rt = MsgBox(strMsg, vbQuestion + vbOKCancel + vbDefaultButton1, 你想退出后臺(tái)管理系統(tǒng)嗎？)If rt = vbOK Then Cancel = False EndElse Cancel = TrueEnd IfEnd SubPrivate Sub rkjm_Click() 1End SubPrivate Sub xsjm_Cli