【正文】 ssageDispDebug(_T(串口未打開!))。 return (FALSE)。 } ClearCommError(hCOM, amp。dwErrorFlags, amp。statTest)。 /* 清除串口錯(cuò)誤 */ WriteFile(hCOM, pucSendBuf, dwLength, amp。dwActLen, NULL)。 /* 發(fā)送數(shù)據(jù) */ return (TRUE)。}接收串口數(shù)據(jù)使用epcSerialRcvDataTread函數(shù)，其采用的是線程方式，在建立數(shù)據(jù)庫接收線程之前應(yīng)該先確認(rèn)當(dāng)前串口串口沒有被占用，然后再設(shè)置接收參數(shù)，如接收數(shù)據(jù)個(gè)數(shù)，讀數(shù)據(jù)總超時(shí)常量，其詳細(xì)代碼如程序清單 。程序清單 串口控制類的的接收數(shù)據(jù)方法BOOL CCeSerial::epcSerialRcvDataTread (DWORD dwLength, DWORD dwOutTime, PFUN_COMRCV pfunOnComRcv, LPVOID pvUserParam){ DWORD dwThreadID。 COMMTIMEOUTS ctoTimeOut。 if ( (dwLength 1) || (pfunOnComRcv == NULL) ) { return (FALSE)。 } if (dwLength (1024*8)) { dwLength = 1024*8。 } if (dwOutTime 10) { dwOutTime = 10。 } if (hCOM == INVALID_HANDLE_VALUE) { __messageDispDebug(_T(串口未打開!))。 return (FALSE)。 } if (hRcvThread != NULL) { __messageDispDebug(_T(串口接收線程已建立過!))。 return (FALSE)。 } GetCommTimeouts(hCOM, amp。ctoTimeOut)。 = dwOutTime。 * 接收字符間最大時(shí)間間隔 */ = 1。 = dwOutTime。 * 讀數(shù)據(jù)總超時(shí)常量 */ SetCommTimeouts(hCOM, amp。ctoTimeOut)。 dwRcvLength = dwLength。 pfunRcvOnComRcv = pfunOnComRcv。 pvRcvUserParam = pvUserParam。 hExitThreadEvent = CreateEvent(NULL, TRUE, FALSE, NULL)。 /* 創(chuàng)建串口接收線程退出事件 */ hRcvThread = CreateThread(0, 0, epcSerialComRcvTread, this, 0, amp。dwThreadID)。 if (hRcvThread == NULL) { CloseHandle(hExitThreadEvent)。 /* 關(guān)閉線程退出事件句柄 */ __messageDispDebug(_T(創(chuàng)建接收線程失敗!))。 return (FALSE)。 } return (TRUE)。} ，但是自身功能有限,。微軟提供了兩種方式來增強(qiáng)VB的功能,一種是調(diào)用COM組件,另一種就是調(diào)用Dll函數(shù)。,首先在類中使用Declare函數(shù)聲明要調(diào)用的動(dòng)態(tài)鏈接庫和函數(shù)名，本設(shè)計(jì)中主要調(diào)用了打開串口關(guān)閉串口發(fā)送數(shù)據(jù)和接受數(shù)據(jù)四個(gè)函數(shù)其詳細(xì)的代碼清單如程序清單 。程序清單 聲明調(diào)用動(dòng)態(tài)鏈接庫‘聲明調(diào)用打開串口函數(shù)Public Declare Function epcSerialOpen1 Lib epcSerial Alias epcSerialOpen1 (ByVal ucPort As Byte, ByVal ucBaudRate As Byte, ByVal ucDataBit As Byte, ByVal ucStopBit As Byte, ByVal ucParity As Byte) As Integer‘聲明調(diào)用關(guān)閉串口函數(shù)Public Declare Function epcSerialClose Lib epcSerial Alias epcSerialClose (ByVal ucPort As Byte) As Boolean‘聲明調(diào)用發(fā)送數(shù)據(jù)函數(shù)Public Declare Function epcSerialSendData Lib epcSerial Alias epcSerialSendData (ByVal ucPort As Byte, ByVal pucSendBuf As Byte(), ByVal dwLength As UInteger) As Boolean‘聲明調(diào)用接收數(shù)據(jù)函數(shù)Public Declare Function epcSerialClose Lib epcSerial Alias epcSerialRcvData (ByVal ucPort As Byte, ByVal pucRcvBuf As Byte(), ByVal dwLength As Integer, ByVal dwOutTime As Integer, ByVal bClrComBuf As Boolean) As Integer 打印機(jī)驅(qū)動(dòng)模塊本設(shè)計(jì)中使用的打印機(jī)屬于微型的串口打印機(jī)，這種打印機(jī)的優(yōu)點(diǎn)是不需要編寫特定的驅(qū)動(dòng)程序，打印機(jī)內(nèi)部自帶了控制器，用戶只需要通過目標(biāo)系統(tǒng)的標(biāo)準(zhǔn)RS232接口與打印機(jī)連接。然后按照廠家提供的打印指令表，即可控制打印機(jī)打印各種文字或圖形。由上一節(jié)可知道，系統(tǒng)的串口API已經(jīng)被封裝成一個(gè)串口類，并且打包成以標(biāo)準(zhǔn)C語言為導(dǎo)出函數(shù)的動(dòng)態(tài)鏈接庫，控制打印機(jī)的操作只需要調(diào)用串口類然后發(fā)送相應(yīng)的指令和編輯好的數(shù)據(jù)，其策劃年供需流程圖如圖 。圖 打印功能模塊程序流程圖 本地?cái)?shù)據(jù)庫訪問模塊設(shè)計(jì)在Visual 2005 中， 來編寫SQL Server Mobile 數(shù)據(jù)庫應(yīng)用程序，而 命名空間提供了從運(yùn)行在支持的設(shè)備上的托管應(yīng)用程序?qū)?SQL Server Mobile 數(shù)據(jù)庫進(jìn)行編程訪問的能力。 創(chuàng)建和組裝本地?cái)?shù)據(jù)庫SQL Server Mobile數(shù)據(jù)庫引擎是用于存儲(chǔ)、處理和保護(hù)數(shù)據(jù)的核心技術(shù)。通過使用 SQL Server Mobile 數(shù)據(jù)庫引擎，可以在支持的設(shè)備上創(chuàng)建、訪問和修改 SQL Server Mobile 數(shù)據(jù)庫。數(shù)據(jù)庫引擎還提供了受控訪問和快速事務(wù)處理功能，可以滿足的企業(yè)內(nèi)需要使用大量數(shù)據(jù)的應(yīng)用程序的要求。， Server Mobile 引擎對(duì)象。由前面的程序流程圖可知道，無論是管理員客戶機(jī)還是普通工作人員客戶機(jī)，在正常工作前都需要在本地建立一個(gè)數(shù)據(jù)庫，所以本設(shè)計(jì)中使用了SQL Server Mobile 引擎對(duì)象SqlCeEngine的CreateDatabase方法創(chuàng)建本地?cái)?shù)據(jù)庫文件，詳細(xì)方法如程序清單 。程序清單 創(chuàng)建本地?cái)?shù)據(jù)庫函數(shù)Public Function Creat_DB(ByVal strDataBasePath As String, ByVal strDataBasePassWord As String) As Boolean Dim bsuccess As Boolean = True ‘創(chuàng)建SQL Server CE 引擎對(duì)象 Dim engine As New SqlCeEngine(Data Source= amp。 strDataBasePath amp。 。 Password = amp。 strDataBasePassWord) Try ‘創(chuàng)建新的數(shù)據(jù)庫 () MsgBox(創(chuàng)建數(shù)據(jù)庫成功！) Catch ex As Exception MsgBox() bsuccess = False Exit Function Finally () Creat_DB = bsuccess End TryEnd Function 與目標(biāo)數(shù)據(jù)庫建立連接 命名空間中在代碼和容納數(shù)據(jù)的數(shù)據(jù)存儲(chǔ)之間提供了基本連接的是Connection類。Connection 對(duì)象表示與數(shù)據(jù)源的唯一會(huì)話。在打開 Connection 對(duì)象之前，必須定義有關(guān)數(shù)據(jù)源和連接類型的某些信息。Connection 對(duì)象 Open 方法的 ConnectionString 參數(shù)，或 Connection 對(duì)象上的 ConnectionString 屬性通常包含多數(shù)這樣的信息。連接字符串是定義數(shù)量不等的參數(shù)的字符串。這些參數(shù)（某些參數(shù)是 所需的，但另一些參數(shù)要視具體提供者而定）包含 Connection 對(duì)象完成其任務(wù)所必需的信息。連接數(shù)據(jù)庫時(shí)首先創(chuàng)建一個(gè)SqlCeConnection對(duì)象然后再調(diào)用該對(duì)象的Open()方法，其實(shí)現(xiàn)如程序清單 。程序清單 創(chuàng)建SQL Server Mobile連接對(duì)象 Dim conn As New SqlCeConnection(Data Source= amp。 strDataBasePath amp。 。 Password = amp。 strDataBasePassWord) () 對(duì)記錄集的添加、刪除、查找和修改連接到數(shù)據(jù)源后，需要執(zhí)行對(duì)數(shù)據(jù)源的請(qǐng)求，以獲取結(jié)果集。 將這一類型的命令功能封裝在 Command 對(duì)象中。 命名空間中對(duì)應(yīng)的是SqlCeCommand 類。可使用 Command 對(duì)象向提供者請(qǐng)求任何類型的操作，條件是提供者能夠正確解釋命令字符串。數(shù)據(jù)提供者的常用操作是查詢數(shù)據(jù)庫，并將記錄返回到 Recordset 對(duì)象中。Recordset 將在本章的后面部分和其他章中詳細(xì)論述；就現(xiàn)在而言，可以把它們看作是用來保持和查看結(jié)果集的工具。與許多 ，在引用某些 Command 集合、方法或?qū)傩詴r(shí)可能會(huì)產(chǎn)生錯(cuò)誤，這取決于提供者的功能。表 ：表 四種執(zhí)行SQL語句的方式項(xiàng)說明ExecuteReader執(zhí)行返回行的命令。ExecuteNonQuery執(zhí)行SQL命令，如INSERT、DELETE和UPDATE語句。ExecuteScalar從數(shù)據(jù)庫中檢索單個(gè)值（例如一個(gè)聚合值）。ExecuteResultSet執(zhí)行命令并返回結(jié)果集。一般情況下，對(duì)于不需要返回記錄的SQL語句都應(yīng)該使用ExecuteNonQuery方法，在本設(shè)計(jì)中刪除記錄，添加記錄，修改記錄都使用SqlCeCommand 的ExecuteNonQuery方法。倉庫管理系統(tǒng)中對(duì)本司數(shù)據(jù)庫的操作都要經(jīng)過幾個(gè)相同的步驟：創(chuàng)建引擎對(duì)象，創(chuàng)建連接對(duì)象并與目標(biāo)數(shù)據(jù)庫建立連接，創(chuàng)建SQL語句執(zhí)行對(duì)象并添加要執(zhí)行的SQL語句。在刪除，添加和修改這三個(gè)基本操作中都不需要返回值，這三個(gè)過程可以抽象成一個(gè)通用的函數(shù)，函數(shù)代碼如程序清單 ，型參strSQL代表執(zhí)行的SQL語句，strDataBasePath代表目標(biāo)數(shù)據(jù)庫路徑和名稱，strDataBasePassWord代表目標(biāo)數(shù)據(jù)庫訪問密碼。程序清單 執(zhí)行SQL語言的通用函數(shù) Public Sub Execute_SQL(ByVal strSQL As String, ByVal strDataBasePath As String, ByVal strDataBasePassWord As String) ‘創(chuàng)建SQL Server Mobile連接對(duì)象 Dim conn As New SqlCeConnection(Data Source= amp。 strDataBasePath amp。 。 Password = amp。 strDataBasePassWord)‘創(chuàng)建SQL語句執(zhí)行對(duì)象 Dim cmd As New SqlCeCommand Try ‘打開本地?cái)?shù)據(jù)庫 () Catch ex As SqlCeException MsgBox(()) () Exit Sub End Try = conn = strSQL Try ‘執(zhí)行SQL 語句 () Catch ex As SqlCeException MsgBox(()) () () Exit Sub End Try () () End Sub在成功連接到數(shù)據(jù)源后，接著要做的是組裝數(shù)據(jù)庫，因?yàn)槭褂脭?shù)據(jù)庫引擎建立的只是一個(gè)空的數(shù)據(jù)庫文件，里面沒有任何表格或數(shù)據(jù)。所以我們可以調(diào)用Exe