信鴿熱線管理系統(tǒng)

孫樹紅 劉路鋼

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

1 信鴿熱線簡介

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

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

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

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

2.2 開發(fā)背景

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

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

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

Connection 對象、Command 對象、Recordset 對象

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

StatusBar1.SimpleText = “準備就緒”

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

4）程序的操作

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

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

B、信箱號的選擇

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

C、信箱號的添加與刪除

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

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

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

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

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

D、主程序的運行

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

E、關(guān)閉按鈕

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

3 結(jié)束語

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

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

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

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