【正文】 SQL serevr 20xx。 短信 接 收 的流程圖 手 機(jī) 發(fā) 送 短 信 短 信 服 務(wù) 中 心T C 3 5 模 塊C O M 1V B 界 面 顯 示數(shù) 據(jù) 庫接 收發(fā) 送自 動(dòng) 寫 入 圖 21 短信接收 通過手機(jī)終端發(fā)送短信， GSM 模塊接收信息，反饋給 VB 接收界面，通過篩選出需求信息然后解碼顯示在 VB 界面，再自動(dòng)寫入數(shù)據(jù)庫。 VB 實(shí)現(xiàn)串口通信的方式有兩種，一、利用 Windows API 函數(shù)；二、利用 MSComm 控件。鑒于 MSComm控件的方式較簡(jiǎn)單，本系統(tǒng)運(yùn)用 MSComm 控件實(shí)現(xiàn)串口通信。串行端口通信完整傳送的方法是先拆字節(jié)，然 1位 1 位傳送。接收端再 1 位 1 位地組合。 系統(tǒng)總的流程圖 首先連接 GSM 模塊、 PC 機(jī)。進(jìn)行串口驅(qū)動(dòng)、打開串口，進(jìn)行數(shù)據(jù)接收。用 AT 指令檢測(cè)是否有事件觸動(dòng)，若有則進(jìn)行下一步，否則繼續(xù)返回檢測(cè)。用 AT+CMGL語句以 PDU的方式讀取短信的用戶數(shù)，截取用戶數(shù)的字符串。把該字符串以每四個(gè)作為一組轉(zhuǎn)換成國(guó)標(biāo)字。再用 AT+CMGR 語句以 TEXT 模式進(jìn)行第二次信息讀取，從中獲取手機(jī)號(hào)碼、接收時(shí)間，不用進(jìn)行譯碼，直接讀取。再把內(nèi)容分別顯示在對(duì)應(yīng)的文本框中。當(dāng)這三個(gè)文本框都有數(shù)據(jù)時(shí)，系統(tǒng)就會(huì)自動(dòng)把 相應(yīng) 的數(shù)據(jù)寫入 SQL SERVER 數(shù)據(jù)庫，保存起來。系統(tǒng)管理員可以對(duì)數(shù)據(jù)進(jìn)行相應(yīng)的查詢，導(dǎo)出。 五邑大學(xué)本科畢業(yè)設(shè)計(jì) 10 開 始打 開 串 口 接 收 數(shù) 據(jù)判 斷 接 收 緩 沖區(qū) 是 否 有 數(shù) 據(jù)不 斷 檢 測(cè) 是 否有 A T 指 令P D U 模 式 讀 取 用 戶 數(shù) 對(duì) 用 戶 數(shù) 譯 碼顯 示 在 對(duì) 應(yīng)的 文 本 框以 文 本 模 式 進(jìn) 行 第 二 次 讀 取提 取 手 機(jī) 號(hào) 碼 、接 收 時(shí) 間寫 入 數(shù) 據(jù) 庫 保 存 記 錄系 統(tǒng) 管 理 員 進(jìn) 行查 詢 、 導(dǎo) 出 數(shù) 據(jù)結(jié) 束 圖 22 短信讀取流程 本章小結(jié) 本章主要用流程圖簡(jiǎn)要描述短信發(fā)送、接收的整個(gè)過程。以及基于 GSM 短信訂票系統(tǒng)實(shí)現(xiàn)流程 ,簡(jiǎn)要闡述實(shí)現(xiàn)的思路 ，信息的流轉(zhuǎn) 。 關(guān)于 系統(tǒng)運(yùn)用的軟硬件 進(jìn)行簡(jiǎn)單 介紹五邑大學(xué)本科畢業(yè)設(shè)計(jì) 11 第 4 章 Visual Basic 及數(shù)據(jù)庫的應(yīng)用 Visual Basic 的應(yīng)用 Visual Basic 是一門簡(jiǎn)單的開發(fā)語言 ,編程效率相當(dāng)高，并且系統(tǒng)的開發(fā)功能也相當(dāng)強(qiáng)大。 對(duì)于圖形、 GUI 的開發(fā)實(shí)現(xiàn)較容易 ， 利用 VB 的數(shù)據(jù)訪問 可簡(jiǎn)單連接數(shù)據(jù)庫。 VB 簡(jiǎn)單易懂的特 性使得 用戶較很容易就可以創(chuàng)建需要的界面 ，編寫程序即可實(shí)現(xiàn)相應(yīng)的功能。 Visual Basic 的工程建立 新建一個(gè)工程，在主窗體中加入通信的控件 MSComm用來訪問串口， 4 個(gè)文本框， 1個(gè)用來存放緩沖區(qū)接收的數(shù)據(jù)，另外 3 個(gè)分別用來存儲(chǔ)解碼后的短信內(nèi)容、手機(jī)號(hào)碼、接收時(shí)間。 2 個(gè)定時(shí)的控件， Timer1 和 Timer2，第一個(gè)時(shí)鐘是用來周期查詢串口，另一個(gè)時(shí)鐘是用來讀取、刪除信息及延時(shí)的作用。然后再建一個(gè)模態(tài)窗體，用來卸載以及重新裝載主窗體。一個(gè) ADO 控件，用來連接數(shù)據(jù)庫，當(dāng) 3 個(gè)文本框有數(shù)據(jù)更新，同時(shí) 也會(huì)更新到SQL SERVER 數(shù)據(jù)庫中。 屬性、方法、事件、內(nèi)部字符函數(shù) 屬性 窗體的屬性 能夠確定 窗體的行為。編輯屬性時(shí) 能夠 在屬性窗口中 實(shí)現(xiàn) ，也可以在代碼中 編輯 。 ⑴ Name：窗體的名稱，程序運(yùn)行時(shí)為只讀屬性。 ⑵ Caption： VB 窗體的 題目 ，可 以 根據(jù) 需求 進(jìn)行 一定的 修改。 ⑶ BorderStyle： 0 是無邊框， 1 是單線邊框，但窗體大小固定等屬性。 ⑷ MaxButton、 MinButton：窗體的最大化、最小化。 方法 方法只能對(duì)對(duì)象進(jìn)行相關(guān)的操作。不能夠響應(yīng)某一事件，是一個(gè)子程序用來完成特定的操作。 ⑴ Hide：用來隱藏窗體。 ⑵ Show：用來顯示窗體，調(diào)用 Show 可以使指定的窗體被加載。 ⑶ Refresh：用來刷新窗體 ⑷ Print：用來 展現(xiàn)內(nèi)容在 窗體中。 事件 VB 中對(duì)象與應(yīng)用程序使通過事件進(jìn)行的。當(dāng)某一事件發(fā)生被一個(gè)對(duì)象識(shí)別時(shí) ，就會(huì)響應(yīng)事件的代碼，被響應(yīng)的代碼就是事件的過程。一般程序的運(yùn)行都通過單擊事件來實(shí)現(xiàn)，但是該系統(tǒng)整個(gè)過程都是自動(dòng)完成的，所以把運(yùn)行程序直接放在 Load 事件中，窗體 可以五邑大學(xué)本科畢業(yè)設(shè)計(jì) 12 意識(shí)到 單擊、雙擊事件，計(jì)時(shí)器能夠識(shí)別 Timer 事件。 ⑴ Load：每當(dāng)窗體 被 裝載時(shí) 就 會(huì)觸發(fā) Load 程序 ，如果 代碼 中存在該事件，則執(zhí)行該事件?；蛘咴谄渌绑w中引用該事件，都會(huì)觸發(fā)。 ⑵ Unload：用來卸載 Load 事件，使用 Unload 語句即可觸發(fā)該事件。 內(nèi)部字符函數(shù) 用戶的信 息長(zhǎng)度等可以通過以下的函數(shù)截取相應(yīng)的字符長(zhǎng)度，或者進(jìn)行函數(shù)的轉(zhuǎn)換。Visual Basic 語言可以把中英文字符重新進(jìn)行排列，每?jī)蓚€(gè)字節(jié)代表一個(gè)字符。英文和漢字的長(zhǎng)度都按一個(gè)來計(jì)算。這個(gè)表中包含有類型轉(zhuǎn)換函數(shù)，能夠進(jìn)行數(shù)據(jù)類型的轉(zhuǎn)換。 表 41 函數(shù)類型 函數(shù)格式 功能 返回值的類型 Right（ L， N） 在 L 的右邊截取 N 個(gè)字符 String Left（ L， N） 在 L 的左邊截取 N 個(gè)字符 String Trim（ L） 把字符串兩邊的空格刪除 String Lcase（ L） 把 L 中的大寫字母替換成小寫字 母 String Ucase（ L) 把 L 中的小寫字母替換成大寫字母 String Len（ L） 返回字符串 L 的長(zhǎng)度或變量的字符個(gè)數(shù) Integer 或 Variant Instr（ L1， L2） 在 L1 中尋找 L2，返回 L2 在 L1 中的字符個(gè)數(shù) Integer 或 Variant Chr（ L） 把 ASCII 碼的值轉(zhuǎn)換成字符 String Val（ L） 把數(shù)字字符轉(zhuǎn)換成數(shù)值 Double Asc（ L） 將首字符轉(zhuǎn)變成 ASCII 碼 Integer Str（ L） 把數(shù)值轉(zhuǎn)變成字符串的形式 String 模態(tài)窗體 Show 方式 中能夠 展現(xiàn) 1 個(gè)窗體 格式：窗體名稱 Show 模式 模式： 0—非模態(tài)窗體 1—模態(tài)窗體 設(shè)計(jì)該系統(tǒng)時(shí)遇到一個(gè)問題，若有新的短信到來時(shí)，必須要重新關(guān)閉并開啟窗體才能接收到新的信息。經(jīng)分析了解是當(dāng)有新短信到來時(shí)，并不能重新運(yùn)行 Form_Load 事件。因?yàn)榇藭r(shí)的主窗體已經(jīng)裝載完畢。所以運(yùn)用了一個(gè)新的方法，利用模態(tài)窗體，新建一個(gè)窗體，當(dāng)主窗體的所有程序運(yùn)行完最后一條語句時(shí)，用到 1，此語句是顯示模態(tài)窗體Form1，然而 Form1 中的程序?yàn)椋? Private Sub Form_Load() Sleep (10000) Unload FrmMain ?卸載主窗體 五邑大學(xué)本科畢業(yè)設(shè)計(jì) 13 ?重新裝載主窗體 Unload Form1 ?卸載模態(tài)窗體 End Sub 這樣循環(huán)下來，每條收到的短信都能自動(dòng)獲取。這就是模態(tài)窗體的作用。 Microsoft SQL Server數(shù)據(jù)庫的應(yīng)用 Microsoft SQL Server 20xx 是 微軟公司開發(fā)的一項(xiàng)數(shù)據(jù)庫管理系統(tǒng)。 一個(gè)相對(duì)比較全面的數(shù)據(jù)平臺(tái) ，數(shù)據(jù)的存儲(chǔ)非常 可靠 。但是本系統(tǒng)只運(yùn)用 保存 、查詢 、導(dǎo)出的功能，只需構(gòu)建相對(duì)簡(jiǎn)單的一個(gè)記錄集。 Visual Basic 中的 ADO 控件 主要利用 Visual Basic 中的 ADO Data 數(shù)據(jù)控件與數(shù)據(jù)庫建立相應(yīng)的連接。然后通過數(shù)據(jù)綁定 類似 文本框這樣的控件對(duì)數(shù)據(jù)庫進(jìn)行相應(yīng)的動(dòng)作。 ADO 是 ActiceX 類的數(shù)據(jù)對(duì)象，所以通過 ADO 數(shù)據(jù)對(duì)象訪問數(shù)據(jù)庫有兩種方法。一是利用對(duì)象模型訪問數(shù)據(jù)庫，二是利用數(shù)據(jù)控件訪問數(shù)據(jù)庫。 Microsoft SQL Server 中的 SELECT 查詢操作 Select 語句可以從數(shù)據(jù)庫中訪問提取數(shù)據(jù)。也可 以進(jìn)行單表或者多表的查詢操作，例如： USE 某一數(shù)據(jù)庫 GO SELECT *(*是代表所有的內(nèi)容，也可以輸入要 查詢 的任何 信息 ) FROM 該數(shù)據(jù)庫中的表 如上語句即可查詢到數(shù)據(jù)庫中相應(yīng)的信息。 Microsoft SQL Server數(shù)據(jù)導(dǎo)出 數(shù)據(jù)庫 對(duì)數(shù)據(jù)進(jìn)行 查詢比較麻煩，所以通過導(dǎo)出數(shù)據(jù)進(jìn)行查詢相對(duì)簡(jiǎn)單些。 系統(tǒng)管理員 通過打開數(shù)據(jù)庫， 在訂票系統(tǒng)數(shù)據(jù)庫中右擊 、 選擇任務(wù) 、 選擇導(dǎo)出數(shù)據(jù)。即可把相關(guān)的訂票人員、訂票信息導(dǎo)出來。便于查詢 操作 。 五邑大學(xué)本科畢業(yè)設(shè)計(jì) 14 圖 41 數(shù)據(jù)導(dǎo)出 本章小結(jié) 本章主要介紹了 VB 與 Microsoft SQL Server 數(shù)據(jù)庫的運(yùn)用。 VB 工程的建立 ，系統(tǒng)運(yùn)用控件如何建立，如何編碼運(yùn)行。 對(duì) 控件 的 屬性、方法、事件、內(nèi)容函數(shù)的運(yùn)用 都一一進(jìn)行了介紹 。以及 VB 中一個(gè)可以實(shí)現(xiàn)重新啟動(dòng)功能的模態(tài)窗體。數(shù)據(jù)庫的運(yùn)用主要是使用VB 中的 ADO 控件進(jìn)行數(shù)據(jù)庫與 VB 控件的連接，進(jìn)行數(shù)據(jù)的寫入 、 查詢 、導(dǎo)出 等操作。 五邑大學(xué)本科畢業(yè)設(shè)計(jì) 15 第 5 章 系統(tǒng) 的設(shè)計(jì) GSM 模塊 串口 的 啟動(dòng)設(shè)置 MSComm控件在系統(tǒng)中的設(shè)置如下： 設(shè)置串口的端口號(hào)， 通信速率 ， 奇偶 校驗(yàn)位， = 1 ?設(shè) 置端口號(hào)為 1 = 9600,n,8,1 ?速率為 9600，無奇偶校驗(yàn)，數(shù)據(jù)長(zhǎng)度為 8，停止位的長(zhǎng)度為 1 = 0 = 1 = 0 = True ?打開通信端口 = ?清空接收的文本內(nèi)容 ?參數(shù)都設(shè)置好之后，檢查是否連接成果，通過如下的 AT 指令測(cè)試 = AT amp。 vbCr = AT+CMGF=0 amp。 vbCr 39。設(shè)置短信發(fā)送方式 :PDU Sleep (1000) = AT+CMGL=0 amp。 vbCr 39。用 AT+CMGL是為了把短信的內(nèi)容截取出來 39。Sleep (1000) = AT+CNMI= amp。 3,1,2,0 amp。 vbCr Sleep (1000) = AT+CPMS= amp。 SM,ME,SM amp。 vbCr 接收短信之前需要提示信息，所以就需要不斷地檢測(cè)串口是否有數(shù)據(jù)，若串口有新的信息到達(dá)時(shí)， MSComm控件中的 OnComm事件可以截取串口的信息， = 1 = 0 = True = Case EvReceive ?判斷是否觸發(fā) EvReceive 事件 每當(dāng)串口有數(shù)據(jù)即可觸發(fā)一次 OnComm事件。 五邑大學(xué)本科畢業(yè)設(shè)計(jì) 16 短信 自動(dòng)接收 雖然 VB 的事件一般是依賴單擊或者雙擊事件來實(shí)現(xiàn)，但是為了使得短信的自動(dòng)接收，把接收的代碼放在了主窗體中的 Form_Load 事件中。窗體一開始加載會(huì)先執(zhí)行 Form_Load事件，因此把讀取短信的代碼放在這里，便可以實(shí)現(xiàn)。 = AT + CMGL = 0 amp。 vbCr ， AT + CMGL = 0 這條指令，先讀取未讀短信，主要以 PDU的模式提取這條短信中的用戶數(shù)，然后調(diào)用轉(zhuǎn)國(guó)標(biāo)碼的自定義函數(shù)TOGB 來實(shí)現(xiàn)譯碼。然后再對(duì)這條短信進(jìn)行第二次讀取，用到下面的 AT + CMGR = 第二次讀取是在 Text 模式下進(jìn)行讀取，在 Text 模式下的手機(jī)號(hào)碼、接收時(shí)間正常接收，可直接從中提取出來。再以一定的格式顯示出來。 If = True Then = 39。清除接收文本框的內(nèi)容 = 39。接收顯示之前先清除每個(gè)文本框的內(nèi)容，不讓之前的內(nèi)容遺留，重寫入數(shù)據(jù)庫 = = Call AddTask(n_TaskWord, ary_strTask, 16, 11, AT + CMGF = 1 amp。 vbCr) 39。以 Text的方式讀取短信 Call AddTask(n_TaskWord, ary_strTask, 8, 12, AT + CMGR = 1 amp。 vbCr) 39。用到AT+CMGR 以文本的方式，手機(jī)號(hào)碼與時(shí)間不用解碼，截取就行了 End If PDU 模式 下 的 信息解碼 ⑴ 對(duì)接收到的用戶數(shù)進(jìn)行譯碼 UCS 8bit、 7bit 編碼，其 PDU信息中的用戶信息，簡(jiǎn)稱 TPUD 可以發(fā)送消息的最大字符數(shù)分別是 70、 1 160 。在編碼中， 1 個(gè)數(shù)據(jù)的字節(jié)或者 1 個(gè)漢字，又或者是 1個(gè)英文字母都可算 1 個(gè)字符。 以下便是對(duì)接收到的 PDU碼提取用戶數(shù)之后轉(zhuǎn)為國(guó)標(biāo)碼的自定義函數(shù)。由于編碼時(shí)是以每 4 位的十六進(jìn)制組成 1 個(gè)漢字，所以解碼的時(shí)候把它分成每 4 位一組進(jìn)行譯碼。在該開發(fā)語言中漢字和 Unicode 碼之間的轉(zhuǎn)換要用到的函數(shù)是 Chrw（）。 Chrw（）是把