1引言
雷電災(zāi)害是"聯(lián)合國(guó)國(guó)際減災(zāi)十年"公布的最嚴(yán)重的十種自然災(zāi)害之一，全世界平均每分鐘發(fā)生雷暴二千次，每年因雷擊造成的人員傷亡超過(guò)一萬(wàn)人，導(dǎo)致火災(zāi)、爆炸、信息系統(tǒng)癱瘓等事故頻繁發(fā)生，每年因雷擊造成的直接經(jīng)濟(jì)損失達(dá)二十億美元以上。防雷減災(zāi)作為中國(guó)氣象系統(tǒng)業(yè)務(wù)重要工作之一，已在全國(guó)范圍內(nèi)深入開(kāi)展，國(guó)家相關(guān)法律法規(guī)要求各級(jí)氣象主管機(jī)構(gòu)應(yīng)建立和完善雷電災(zāi)害調(diào)查鑒定制度，負(fù)責(zé)本地區(qū)的雷電災(zāi)害調(diào)查鑒定工作。但如何收集整理雷電災(zāi)害調(diào)查資料，對(duì)重大雷電災(zāi)害事故進(jìn)行現(xiàn)場(chǎng)調(diào)查、勘察和技術(shù)鑒定，如何分析和研究雷電災(zāi)害發(fā)生原因，并形成技術(shù)報(bào)告等是我們開(kāi)展這項(xiàng)工作必須面對(duì)極為重要的課題，本系統(tǒng)將極大地促進(jìn)這方面工作的開(kāi)展。
2編程原理及程序結(jié)構(gòu)
2.1編程原理
Delphi是Borland公司推出的一種可視化、方便快捷的Windows應(yīng)用程序開(kāi)發(fā)工具。Delphi的語(yǔ)言基礎(chǔ)是對(duì)象（Object）Pascal，它既具有VC的強(qiáng)大功能和高效性，同時(shí)又具備VB編程的方便性，因此推出后就受到用戶的廣泛歡迎。本系統(tǒng)使用的是小型數(shù)據(jù)庫(kù)Paradox，它是Borland公司歷史悠久的一個(gè)數(shù)據(jù)庫(kù)類型，與Delphi兼容性較好，且使用簡(jiǎn)單、便于操作，適用于數(shù)據(jù)量不是很大的程序應(yīng)用。BDE（Borland Database Engine）是Borland公司開(kāi)發(fā)的數(shù)據(jù)庫(kù)引擎，它提供訪問(wèn)各種數(shù)據(jù)庫(kù)的API應(yīng)用程序接口函數(shù)，并且提供基于BDE技術(shù)的VCL組件，實(shí)現(xiàn)對(duì)系統(tǒng)底層的調(diào)用，訪問(wèn)數(shù)據(jù)庫(kù)的機(jī)制非常成熟可靠。Delphi編程語(yǔ)言+Paradox文件數(shù)據(jù)庫(kù)+BDE數(shù)據(jù)連接引擎這三者的組合，兼容性、穩(wěn)定性都比較高，可以編寫(xiě)出高效實(shí)用的小型數(shù)據(jù)庫(kù)應(yīng)用程序。
2.2系統(tǒng)結(jié)構(gòu)
“雷電災(zāi)害調(diào)查管理系統(tǒng)”共分為23個(gè)模塊和1個(gè)公共變量文件：
系統(tǒng)導(dǎo)入畫(huà)面（uLoading.dfm）、
用戶登錄（uLogin.dfm）、
主界面（Main.dfm）、
受理登記（uLightningItemsDJ.dfm）、
受理查詢（uLightningItemsCX.dfm）、
調(diào)查評(píng)估（uLightningAssessment.dfm）、
評(píng)估介紹（uIntroduct.dfm）、
事件選擇（uEventSelect.dfm）、
氣象因素調(diào)查（uMeteor.dfm）、
環(huán)境因素調(diào)查（uSurrounding.dfm）、
歷史因素調(diào)查（uHistory.dfm）、
建筑物及設(shè)備因素1（uBuilding1.dfm）、
建筑物及設(shè)備因素2（uBuilding2.dfm）、
建筑物及設(shè)備因素3（uBuilding3.dfm）、
建筑物及設(shè)備因素4（uBuilding4.dfm）、
現(xiàn)場(chǎng)因素（uSite.dfm）、
調(diào)查分析綜合報(bào)告（uAnalysis.dfm）、
文檔管理（uLightningTestGL.dfm）、
文檔查詢（uLightningTestCX.dfm）、
權(quán)限設(shè)置與管理（uRightSetting.dfm）、
數(shù)據(jù)備份（uDataBackup.dfm）、
系統(tǒng)使用說(shuō)明（uSystemExplain.dfm）、
Word操作（uUseWord.dfm）、
公共變量（uPublic.pas）源文件
如圖所示，這是本系統(tǒng)的主要模塊功能樹(shù)結(jié)構(gòu)。
說(shuō)明：
（1）由于對(duì)資料信息的錄入后形成Word報(bào)表文檔使用的是預(yù)置在軟件安裝文件夾Database內(nèi)Word模板的宏操作，所以在程序中編寫(xiě)了一個(gè)不可見(jiàn)的通用的Word操作（uUseWord.dfm）模塊。
（2） 公共變量（uPublic.pas）沒(méi)有窗體，只是便于在程序中各個(gè)模塊引用。
（3） 調(diào)查評(píng)估（uLightningAssessment.dfm）模塊包含的多個(gè)子模塊均在調(diào)查評(píng)估模塊內(nèi)的固定框架中顯示。
3程序功能：
3.1程序界面及主要模塊功能介紹
3.1.1系統(tǒng)導(dǎo)入畫(huà)面（uLoading.dfm）
3.1.2用戶登錄模塊（uLogin.dfm）
模塊主要功能：
用戶共分為三種類型：超級(jí)用戶、管理員用戶、讀者用戶，權(quán)限依次遞減。
通過(guò)下拉用戶名選項(xiàng)，選擇用戶，輸入密碼驗(yàn)證后，進(jìn)入主頁(yè)面并賦予該用戶類型對(duì)應(yīng)的權(quán)限。
3.1.3主界面（Main.dfm）
各個(gè)模塊的功能按鈕均在主界面上，點(diǎn)擊“退出系統(tǒng)”可退出本軟件。點(diǎn)擊窗體右上角關(guān)閉按鈕則進(jìn)入系統(tǒng)任務(wù)欄托盤(pán)程序。
3.1.4受理登記模塊（uLightningItemsDJ.dfm）
⑴ 當(dāng)用戶選擇數(shù)據(jù)表中的每個(gè)項(xiàng)目時(shí)，上欄會(huì)對(duì)應(yīng)顯示這個(gè)項(xiàng)目的所有信息明細(xì)，并將這個(gè)項(xiàng)目所有信息導(dǎo)入制成word報(bào)表。
⑵ 登記新項(xiàng)目：由于登記編號(hào)是事件的唯一標(biāo)識(shí)，所以每次登記新項(xiàng)目時(shí)都必須“驗(yàn)證編號(hào)唯一性”。根據(jù)流程提示，一步步完成信息輸入，其中紅色項(xiàng)為必填項(xiàng)。
⑶ 修改已有項(xiàng)目：根據(jù)流程提示，修改已有項(xiàng)目的信息。其中登記編號(hào)是不可修改的（唯一性），紅色項(xiàng)也是必填項(xiàng)，不可為空。
⑷ 數(shù)據(jù)表下設(shè)置導(dǎo)航條，有“最前條、前條、后條、最后條、刷新、刪除”6個(gè)功能按鈕。數(shù)據(jù)表下設(shè)置提示信息，并統(tǒng)計(jì)數(shù)據(jù)庫(kù)中已有事件的數(shù)量。
⑸ 刪除信息時(shí)，該事件相關(guān)的Word調(diào)查報(bào)告文件也將一同被刪除。
3.1.5受理查詢模塊（uLightningItemsCX.dfm）
模塊主要功能：
⑴ 本模塊支持模糊查詢功能：勾選 “模糊查詢”選項(xiàng)后，只需輸入關(guān)鍵字，就能有效地在數(shù)據(jù)表中查詢自己需要的內(nèi)容。模塊主要功能：
⑵ 點(diǎn)擊刷新后，數(shù)據(jù)欄中將顯示所有事件。
⑶ 排序功能：點(diǎn)擊數(shù)據(jù)表標(biāo)題對(duì)事件信息進(jìn)行升序、降序2鐘排序。
⑷ 數(shù)據(jù)表下設(shè)置了統(tǒng)計(jì)查詢數(shù)量、查詢關(guān)鍵字顯示，并能將查詢結(jié)果導(dǎo)入制成Excel報(bào)表。
3.1.6調(diào)查評(píng)估模塊（uLightningAssessment.dfm）
模塊主要功能：
⑴ 根據(jù)規(guī)范性文件，利用幾種鑒定方法分各個(gè)因素對(duì)雷擊事件進(jìn)行分析。
⑵ 事件選擇采用了主從表一對(duì)多的模式。當(dāng)用戶選擇主表中的每條事件信息時(shí)，下欄從表會(huì)對(duì)應(yīng)顯示這事件所有的調(diào)查內(nèi)容信息，并能通過(guò)超鏈接查看每個(gè)內(nèi)容文檔信息。
⑶ 在事件選擇項(xiàng)下欄點(diǎn)擊“對(duì)該事件進(jìn)行各個(gè)因素調(diào)查分析評(píng)估”激活各因素調(diào)查選項(xiàng)和調(diào)查分析綜合報(bào)告。
⑷ 通過(guò)各因素調(diào)查并生成相應(yīng)報(bào)表，用戶可以在調(diào)查分析綜合報(bào)告中獲得該事件的相關(guān)信息，并可以判斷出該事件是否為雷電災(zāi)害事件，如果是的話判斷出其類型和等級(jí)，并將結(jié)果反饋到該事件登記表中。最后生成該事件綜合報(bào)告。
3.1.7文檔管理模塊（uLightningTestGL.dfm）
模塊主要功能：
⑴ 模塊上半部分：引用Windows操作系統(tǒng)的API函數(shù)，通過(guò)樹(shù)狀節(jié)點(diǎn)結(jié)構(gòu)，顯示本機(jī)內(nèi)所有文件及文件夾，還可以進(jìn)入資源管理器進(jìn)行操作，方便用戶查看所有自己需要的文件。
⑵ 模塊下半部分：構(gòu)建一個(gè)數(shù)據(jù)庫(kù)表，通過(guò)勾選“更新并顯示資料庫(kù)內(nèi)容”，數(shù)據(jù)表能實(shí)時(shí)顯示出用戶保存到軟件安裝目錄Files文件夾的所有資料（支持Word、Excel、txt、bmp、jpg等各種文件格式），并且用戶可以在數(shù)據(jù)表內(nèi)編輯每個(gè)文件的類型和文件說(shuō)明。通過(guò)數(shù)據(jù)庫(kù)表中表下超鏈接，用戶可以直接點(diǎn)擊查看各種報(bào)表及資料文件。
3.1.8文檔查詢模塊（uLightningTestCX.dfm）
模塊主要功能：
⑴ 本模塊支持模糊查詢功能：勾選 “模糊查詢”選項(xiàng)后，只需輸入關(guān)鍵字，就能有效地在數(shù)據(jù)表中查詢自己需要的內(nèi)容。
⑵ 點(diǎn)擊刷新后，數(shù)據(jù)欄中將顯示所有事件。
⑶ 通過(guò)數(shù)據(jù)庫(kù)表下超連接，用戶可以直接點(diǎn)擊查看文件。
⑷ 數(shù)據(jù)表下設(shè)置了統(tǒng)計(jì)查詢數(shù)量、查詢關(guān)鍵字顯示，并能將查詢結(jié)果導(dǎo)入制成Excel報(bào)表。
3.1.9權(quán)限設(shè)置與管理模塊（uRightSetting.dfm）
模塊主要功能：
該模塊負(fù)責(zé)操作人員基本信息的管理，以及對(duì)操作人員的權(quán)限進(jìn)行基本維護(hù)，不同權(quán)限的操作人員可以使用的模塊范圍不一樣。模塊主要功能：
⑴ 增加新的操作人員：指定“新建用戶”選擇框?yàn)檫x擇狀態(tài)，輸入用戶名稱、用戶口令和權(quán)限的類別，確認(rèn)操作，完成對(duì)數(shù)據(jù)庫(kù)中操作人員表的相應(yīng)操作。
⑵ 編輯操作人員權(quán)限：在“用戶列表”中選擇需要編輯的用戶，輸入新的用戶口令和權(quán)限的類別，確認(rèn)操作，完成對(duì)數(shù)據(jù)庫(kù)中操作人員表的相應(yīng)操作
⑶ 刪除指定操作人員：指定“用戶列表”中某一操作人員，刪除操作，完成對(duì)數(shù)據(jù)庫(kù)中操作人員表的相應(yīng)操作。
3.1.10數(shù)據(jù)備份模塊（uDataBackup.dfm）
模塊功能：
⑴ 首先要勾選“確認(rèn)要進(jìn)行數(shù)據(jù)備份”這個(gè)選項(xiàng)（以防止誤操作）。
⑵ 選擇要備份的數(shù)據(jù)文件夾及備份目的地進(jìn)行數(shù)據(jù)備份，整個(gè)過(guò)程在窗體下方有進(jìn)度條顯示。
3.1.11系統(tǒng)使用說(shuō)明（uSystemExplain.dfm）
該模塊主要用于向用戶介紹系統(tǒng)軟件各個(gè)模塊的功能。系統(tǒng)幫助手冊(cè)則可以幫助用戶盡快上手操作。
3.2軟件擴(kuò)展功能：
（1）程序利用互斥對(duì)象的方法防止程序的多個(gè)實(shí)例同時(shí)運(yùn)行操作，保證程序不會(huì)被重復(fù)打開(kāi)和執(zhí)行。
（2）當(dāng)把信息導(dǎo)入Word或Excel做報(bào)表前，刪除Word報(bào)表時(shí)，為防止文件出錯(cuò)，軟件會(huì)自動(dòng)判斷該文件是否正被打開(kāi)或使用。
（3）在受理登記模塊中信息輸入和修改時(shí)因部分關(guān)鍵數(shù)據(jù)項(xiàng)為必填項(xiàng)，所以須屏蔽空格鍵。
（4）為保證主界面控件布局不隨各系統(tǒng)的分辨率改變而變亂，程序運(yùn)行時(shí)強(qiáng)制系統(tǒng)分辨率調(diào)到設(shè)計(jì)狀態(tài)（1024×768），在軟件退出時(shí)恢復(fù)至系統(tǒng)原先分辨率。
（5）利用EasyCHM軟件制作本程序的使用手冊(cè)，方便用戶操作。
3.3系統(tǒng)軟件的其他一些說(shuō)明：
（1）軟件的數(shù)據(jù)目錄為軟件安裝目錄下的Database文件夾，這個(gè)文件夾內(nèi)的內(nèi)容是不能隨意改變的，數(shù)據(jù)備份時(shí)可以將里面的數(shù)據(jù)文件進(jìn)行備份。
（2）軟件的資料目錄為軟件安裝目錄下的Files文件夾，所有生成的word、excel報(bào)表及各種文檔資料都存放在里面，管理者可以打開(kāi)查閱。
（3）軟件報(bào)表運(yùn)用了word的宏操作，如果用戶在word安裝過(guò)程中未安裝宏或控件的支持功能，當(dāng)系統(tǒng)提示宏禁止時(shí)，請(qǐng)將word的“工具”選項(xiàng)“宏”的安全性調(diào)至中或低即可。如還不行請(qǐng)安裝Word帶宏支持的完整版。
（4）考慮到兼容性問(wèn)題， 因多種殺毒軟件和防火墻軟件升級(jí)版本后對(duì)exe可執(zhí)行文件的安裝和運(yùn)行采取隔離和自動(dòng)防護(hù)刪除操作，可能會(huì)造成本軟件無(wú)法正常安裝和運(yùn)行，所以在安裝前請(qǐng)先關(guān)閉殺毒軟件，在運(yùn)行前將本軟件可執(zhí)行文件uLightningGS.exe列入可信任文件列表或文件不監(jiān)控名單中。
4軟件運(yùn)行環(huán)境：
4.1 使用平臺(tái)：Windows9X/NT/ME/2000/XP
4.2硬件支持：處理器：Inter Pentium 500 MX 或更高
內(nèi)存：64 MB以上
硬盤(pán)空間：500MB以上
顯卡：SVGA顯示適配器或更高
系統(tǒng)分辨率：能達(dá)到1024×768像素
4.3軟件支持：安裝Word97-2003版本和 Excel97-2003版本
（后續(xù)將支持Word和Excel 2007以上新核心技術(shù)版本）。
5軟件打包安裝程序
利用小穎安裝制作軟件把本程序執(zhí)行文件、數(shù)據(jù)資料文件及數(shù)據(jù)引擎BDE進(jìn)行打包制作成安裝程序。
6結(jié)束語(yǔ)
本軟件在具體使用過(guò)程中以提示性方式引導(dǎo)操作人員輸入、勾選、點(diǎn)擊相關(guān)功能鍵，并對(duì)操作人員輸入的數(shù)據(jù)進(jìn)行合理性判斷，可操作性強(qiáng)；軟件采用模塊化設(shè)計(jì)，輸出報(bào)表及數(shù)據(jù)文件結(jié)構(gòu)統(tǒng)一，保存至固定資料文件夾內(nèi)，方便用戶查閱分析打印，可擴(kuò)展性強(qiáng)；軟件未用到任何第三方控件，程序可移植性強(qiáng)。經(jīng)在我單位內(nèi)部幾個(gè)月的調(diào)試及改進(jìn)，試用下來(lái)效果良好，希望能夠給于廣大同行以啟迪和幫助。
本文系作者原創(chuàng)，并經(jīng)作者授權(quán)發(fā)布，轉(zhuǎn)載請(qǐng)注明出處。
聯(lián)系客服
