孫樹紅 劉路鋼

（中國(guó)聯(lián)合通信網(wǎng)絡(luò)有限公司哈爾濱市分公司產(chǎn)品支撐中心 黑龍江 哈爾濱 150090）

1 信鴿熱線簡(jiǎn)介

全信息報(bào)到步驟和程序?yàn)椋嘿慀潥w巢后首先刮開覆蓋在密碼上的灰墨及其明碼即顯現(xiàn)密碼，然后撥打?qū)Ｓ眯畔⑴_(tái)信鴿報(bào)到熱線，依照提示語音逐項(xiàng)輸入三項(xiàng)數(shù)碼，即依次輸入密碼、棚號(hào)、年號(hào)和足環(huán)號(hào)即可，系統(tǒng)將自動(dòng)記錄下鴿友所播打的時(shí)間和輸入的數(shù)據(jù)，并及時(shí)提交到黑龍江聲迅信息港網(wǎng)頁上，即信鴿報(bào)到成功。

2 信鴿熱線管理系統(tǒng)開發(fā)

2.1 系統(tǒng)主要應(yīng)用工具及技術(shù)

本程序主要用到了frame 控件，checkbox 控件，commandbox 控件，label 控件，StatusBar 控件、 采用ADO 操作數(shù)據(jù)庫和應(yīng)用API 函數(shù)完成全信息報(bào)到數(shù)據(jù)的下載和上傳。

2.2 開發(fā)背景

本系統(tǒng)采用ACCESS 數(shù)據(jù)庫，數(shù)據(jù)庫名為XXH.MDB，該數(shù)據(jù)庫共包含兩個(gè)數(shù)據(jù)表，”信箱號(hào)”表，”temp”表，其中“信箱號(hào)”表是用來存儲(chǔ)信箱號(hào)的，可以添加信箱號(hào)或刪除信箱號(hào)。 “TEMP”表主要是用來存儲(chǔ)數(shù)據(jù)的，在本程序中起到了主要的作用。

2.3 采用ADO 操作數(shù)據(jù)庫

本系統(tǒng)對(duì)數(shù)據(jù)庫的操作全部采用了ADO，具體用到的對(duì)象如下：

Connection 對(duì)象、Command 對(duì)象、Recordset 對(duì)象

2.4 信鴿熱線管理系統(tǒng)設(shè)計(jì)

1） 采用windows API 函數(shù)讀INI 文件

在本系統(tǒng)中， 各臺(tái)服務(wù)器的設(shè)置采用了windows API 函數(shù)讀INI 文件，INI 文件中分若干個(gè)段（Section），每個(gè)段中有若干個(gè)鍵（Key） 值（Value） 對(duì)。 一個(gè)鍵值對(duì)保存一個(gè)信息；段則將屬性類似的一些鍵值對(duì)組織在一起。 同一個(gè)段中不能出現(xiàn)兩次以上同樣的鍵，但不同的段中可以出現(xiàn)相同的鍵。

2）采用windows API 函數(shù)實(shí)現(xiàn)數(shù)據(jù)下載和上傳

在實(shí)現(xiàn)下載的過程中， 也用到了windows API 函數(shù)，主要用到了如下函數(shù)：

InternetOpen 函數(shù)，InternetConnect 函數(shù)，F(xiàn)tpGetFile 函數(shù)，F(xiàn)tpFindFirstFile 函數(shù)，InternetCloseHandle 函數(shù)。

具體實(shí)現(xiàn)方法如下：（以上所有的聲明就存儲(chǔ)在WININET.Bas 文件中）

（1）用一個(gè)InternetOpen 調(diào)用設(shè)置環(huán)境。

（2）調(diào)用InternetConnect 函數(shù)與主機(jī)連接。

（3）調(diào)用FtpFindFirstFile 函數(shù)判斷下載的文件是否存在。

（4）調(diào)用FtpGetFile 下載文件。

（5）調(diào)用FtpputFile 上傳文件。

（6）關(guān)閉第1、2 步創(chuàng)建的句柄，用InternetCloseHandle 函數(shù)。

3）程序的實(shí)現(xiàn)過程

當(dāng)啟動(dòng)程序時(shí)，在通用事件設(shè)置了一些全局變量（內(nèi)容見程序源代碼），同時(shí)在form onload 事件中，做了一些對(duì)程序的初始化設(shè)置，設(shè)置如下：

A、由于本程序是24 小時(shí)不停運(yùn)行的程序，所以每運(yùn)行完數(shù)據(jù)上傳后，就應(yīng)該刪除該程序下的數(shù)據(jù)，以便在次下載新的數(shù)據(jù)。 所以程序中加入對(duì)文件及文件夾存在的判斷。 加入方法是： 工程——引用——microsoft scripting runtime 即可。 判斷配置文件config.ini 文件是否存在。 如果不存在則程序提示后退出系統(tǒng)。

B、從配置文件config.ini 文件中讀出各臺(tái)服務(wù)器的配置參數(shù)，采用循環(huán)的方式動(dòng)態(tài)的讀出各個(gè)參數(shù)，用到的函數(shù)是Get-PrivateProfileString。

C、 本程序的最大優(yōu)點(diǎn)是可以動(dòng)態(tài)的添加服務(wù)器和信箱號(hào)。由于各個(gè)方面的限制，現(xiàn)在只能加到14 臺(tái)。 本程序預(yù)留出了一些內(nèi)容，以便動(dòng)態(tài)的改便，所以當(dāng)服務(wù)器和信箱號(hào)少于本程序的最大處理能力時(shí)，預(yù)留的控件應(yīng)該以不可見。

D、接下來，從數(shù)據(jù)庫中讀取“信箱號(hào)”，來顯示到主界面上。

E、在主界面的狀態(tài)欄中顯示當(dāng)前狀態(tài)。

StatusBar1.SimpleText = “準(zhǔn)備就緒”

到此程序的啟動(dòng)結(jié)束，等待用戶操作。

4）程序的操作

A、服務(wù)器的選擇

在主界面上動(dòng)態(tài)的列出了所有的服務(wù)器以供用戶選擇，用戶可以單擊某一個(gè)服務(wù)器選擇，也可以單擊下面的“全選”按鈕，全部選擇。 同時(shí)如果用戶要取消所做的選擇，則可以在單擊對(duì)服務(wù)器即可，也可以單擊下面的“取消”按鈕全部取消。

B、信箱號(hào)的選擇

在主界面上動(dòng)態(tài)的列出了所有的信箱號(hào),以供用戶選擇，用戶可以單擊某一個(gè)信箱號(hào)選擇，也可以單擊下面的“全選”按鈕，全部選擇。 同時(shí)如果用戶要取消所做的選擇，則可以在單擊對(duì)信箱號(hào)即可，也可以單擊下面的“取消”按鈕全部取消。

C、信箱號(hào)的添加與刪除

在程序的主界面菜單中有一個(gè)“修改信箱號(hào)”菜單，當(dāng)單擊該菜單時(shí)，出現(xiàn)“添加信箱號(hào)”和“修改信箱號(hào)”兩個(gè)下拉菜單，如單擊其中添加信息號(hào)菜單后，主窗體關(guān)閉，添加窗體載入；

實(shí)現(xiàn)方式為利用ADO 打開數(shù)據(jù)庫，從中讀出“信箱表”中的數(shù)據(jù)，然后把它加入下“Combo 控件”中，來實(shí)現(xiàn)下拉菜單的效果。

在這個(gè)頁中主要實(shí)現(xiàn)信箱號(hào)的添加，刪除。

首先，介紹一下“添加”功能，當(dāng)用戶輸入數(shù)據(jù)時(shí)，首先要判斷，用戶輸入的是不是數(shù)字，在判斷一下數(shù)據(jù)的長(zhǎng)度是不是大于5， 還要判斷數(shù)據(jù)庫中是不是已經(jīng)存在， 如果數(shù)據(jù)存在，則提示“用戶數(shù)據(jù)已經(jīng)存在，請(qǐng)選擇其它”。 所有條件都滿足了，允許向數(shù)據(jù)庫中添加數(shù)據(jù)。 添加到數(shù)據(jù)庫中后還要更新“刪除”下拉菜單下的內(nèi)容，把剛才添加的內(nèi)容加入到下拉菜單中。

接下來是信箱號(hào)的刪除功能， 同樣利用ADO 控件打開數(shù)據(jù)庫，判斷數(shù)據(jù)庫中有否有數(shù)據(jù)，如果沒有則提示“數(shù)據(jù)庫無數(shù)據(jù)，請(qǐng)?zhí)砑樱?”，否則就把所選擇的信箱號(hào)刪除。

D、主程序的運(yùn)行

在主窗口中有一運(yùn)行按鈕，當(dāng)所有的初始條件都設(shè)置好以后，就可以運(yùn)行該程序了。 為了保證程序運(yùn)行時(shí)不被修改所有應(yīng)該將所有的按鈕（除了停止按鈕以外）設(shè)置為不可用。為了保證至少一臺(tái)服務(wù)器和至少一個(gè)信箱號(hào)被選擇，用代碼來控制實(shí)現(xiàn)了該功能。 如果它們中有一個(gè)都沒有選擇的話，給出提示后，就跳出程序等侍用戶選擇。 為了保證程序運(yùn)行時(shí)不被修改所有應(yīng)該將所有的按鈕 （除了停止按鈕以外）設(shè)置為不可用。

E、關(guān)閉按鈕

這段按鈕主要是停止程序的運(yùn)行，使程序回到初便的狀態(tài)。

3 結(jié)束語

信鴿熱線管理系統(tǒng)系統(tǒng)運(yùn)行的高效、安全、穩(wěn)定，受到了用戶和各個(gè)信鴿協(xié)會(huì)的肯定，同時(shí)產(chǎn)生了很大的社會(huì)效益和經(jīng)濟(jì)效益，現(xiàn)已廣泛應(yīng)用到全省各地。S

［1］劉新民.Visual Basic 6.0 程序設(shè)計(jì)[M].清華大學(xué)出版社，2004.

［2］管麗娜，白海波.實(shí)用Visual Basic6 教程[M].清華大學(xué)出社，2001.

［3］段興.Visual Basic 數(shù)據(jù)庫實(shí)用程序設(shè)計(jì)100 例[M].人民郵電出版社.