縣級智能靶向?qū)崟r預(yù)警服務(wù)系統(tǒng)的設(shè)計及開發(fā)

周鵬康，丁 圣，秦金梅

(1.玉溪市江川區(qū)氣象局，云南 江川 652600；2.玉溪市氣象局，云南 玉溪 653100；3.玉溪市江川區(qū)防震減災(zāi)局，云南 江川 652600)

0 引言

云南地處北半球低緯高原，地勢起伏較大，千溝萬壑，加之氣候等造成了云南“一山分四季，十里不同天”。短時強降水的發(fā)生發(fā)展局地性很強，各地差異明顯[1-4]，增加了防災(zāi)減災(zāi)工作的復(fù)雜性與艱巨性。在氣候變暖背景下，強對流天氣具有較強的突發(fā)性，中小尺度對流系統(tǒng)往往1～2 h就有可能完成從生成到消亡的整個生命史[5]，由其引發(fā)的城市內(nèi)澇、滑坡、泥石流等災(zāi)害[6]，嚴(yán)重威脅著人們生命財產(chǎn)安全。當(dāng)前，對強降水天氣的監(jiān)測發(fā)布必須適應(yīng)“預(yù)報精準(zhǔn)、監(jiān)測精密、服務(wù)精細(xì)”的新發(fā)展要求，縣(區(qū))氣象局作為氣象部門的窗口，是和人民群眾打交道最直接的部門，是“服務(wù)精密”能有效實施的保障。傳統(tǒng)的氣象預(yù)警系統(tǒng)發(fā)布范圍不夠精準(zhǔn)，遇到需要發(fā)布預(yù)警時只能全網(wǎng)發(fā)布，形成“一人得病，集體吃藥”的通病，造成人力、物力資源浪費，有時難免出現(xiàn)“擾民”。

目前，國內(nèi)各級氣象部門都建立了信息發(fā)布系統(tǒng)[7-15]，但大多都是人工編輯信息，再通過手動選擇發(fā)布人群，這種方式在處理預(yù)警信息發(fā)布時在時效性、發(fā)布范圍上難以把控，與新時代氣象服務(wù)需求不相適應(yīng)。因此必須創(chuàng)新服務(wù)手段、細(xì)化服務(wù)方式，改變服務(wù)模式。2017年3月14日，中國氣象局劉雅鳴局長提出，要實現(xiàn)對重點區(qū)域、重點人群、重點時段預(yù)警信息的精準(zhǔn)靶向發(fā)布[16]，從此氣象“靶向”預(yù)警就應(yīng)運而生。“靶向”預(yù)警具有預(yù)警發(fā)布效率高、針對性強，這是傳統(tǒng)預(yù)警模式無法做到的，陳石定等[17]提出基于移動靶向技術(shù)，喻迎春等[18]基于微信的氣象災(zāi)害預(yù)警信息精準(zhǔn)智能推送，梁華玲等[19]網(wǎng)格化多渠道多災(zāi)種災(zāi)害性天氣自動靶向預(yù)警。然而，上述成果主要偏重于在預(yù)警信息針對所有站點，指標(biāo)單一無針對性且基于網(wǎng)格化的局部區(qū)域發(fā)布，而對于如何通過對每一個站點制定不同的預(yù)警指標(biāo)，智能生成預(yù)警信息內(nèi)容，并將預(yù)警信息通過“內(nèi)響應(yīng)、外聯(lián)動”在“點、線、面”3個層次基礎(chǔ)上融合智能網(wǎng)格預(yù)報，實現(xiàn)多渠道向防御責(zé)任人的精準(zhǔn)發(fā)布研究較少。為此，基于新時代氣象業(yè)務(wù)需求，本文研發(fā)了智能靶向氣象服務(wù)預(yù)警系統(tǒng)，實現(xiàn)預(yù)警信息靶向的多渠道(微信、短信、微博、大喇叭等)個性化發(fā)布。系統(tǒng)以縣(區(qū))級基層氣象部門為單位，以“實況+網(wǎng)格預(yù)報”預(yù)警服務(wù)模式開展靶向服務(wù)，有助于發(fā)揮決策信息的時效性及針對性，在氣象防災(zāi)減災(zāi)避災(zāi)中更好地為政府、相關(guān)部門及服務(wù)對象等提供決策依據(jù)，最大程度減輕災(zāi)害造成的損失，對主動服務(wù)和融入于地方經(jīng)濟(jì)建設(shè)具有重要意義。

為此，本文著重分析了預(yù)警信息的收集處理及優(yōu)化、針對每一個站點強降水指標(biāo)體系的建立、“內(nèi)響應(yīng)、外聯(lián)動”數(shù)字化、服務(wù)對象與服務(wù)策略銜接等。通過系統(tǒng)的研發(fā)對基層今后開展預(yù)警信息精準(zhǔn)發(fā)布工作起到推動作用。

1 系統(tǒng)結(jié)構(gòu)和功能模塊設(shè)計

系統(tǒng)通過實時通信、SQL數(shù)據(jù)庫、GIS和多媒體等技術(shù)實現(xiàn)強降水收集、預(yù)警和智能精準(zhǔn)發(fā)布。系統(tǒng)采用Client/Server(客戶機/服務(wù)器)結(jié)構(gòu)，在Windows1平臺下，模塊化程序設(shè)計，主要以VB為編程語言。系統(tǒng)實現(xiàn)了雙重加密登錄、模塊間運行狀態(tài)監(jiān)測、預(yù)警信息預(yù)提醒、各類信息的自定義存儲和提取、預(yù)警信息自動關(guān)聯(lián)服務(wù)對象、預(yù)警信息智能發(fā)布策略等。

系統(tǒng)通過對網(wǎng)格預(yù)報產(chǎn)品解析、CIMISS降水的分析，根據(jù)預(yù)設(shè)的強降水閾值和“內(nèi)響應(yīng)、外聯(lián)動”工作規(guī)范對預(yù)警信息進(jìn)行自動收集、壓縮(解壓)、預(yù)警信息與服務(wù)對象有機銜接、預(yù)警信息發(fā)布狀態(tài)及日志等。預(yù)警信息以語音和手機短信雙重警示。系統(tǒng)功能包括預(yù)警規(guī)則庫、信息收集發(fā)布和系統(tǒng)設(shè)置等3個部分構(gòu)成(圖1)。

圖1 系統(tǒng)功能結(jié)構(gòu)Fig.1 System functional structure

1.1 系統(tǒng)運行主界面

系統(tǒng)對網(wǎng)格預(yù)報產(chǎn)品解析、預(yù)警收集、預(yù)警信息的處理呈現(xiàn)等3個模塊間運行狀態(tài)相互間實時監(jiān)測，確保3個環(huán)節(jié)安全運行。登錄采用兩層加密，能更好的保證系統(tǒng)運行的安全性。第一層加密將會定位到所在監(jiān)控區(qū)域，并能識別系統(tǒng)是測試還是正式投入使用；第二層加密涉及所在區(qū)域登錄人員加密。

圖2 系統(tǒng)運行主界面Fig.2 System operation main interface

1.2 預(yù)警規(guī)則庫

1.2.1 短時強降水預(yù)警規(guī)則庫

短時強降水預(yù)警規(guī)則庫閾值指標(biāo)的提取及應(yīng)用。短時強降水閾值的制定，不僅需要一個合適閾值，還必須避免過度預(yù)警。通過研究江川區(qū)域自2005年至2018年以來全部站點連續(xù)1小時、3小時、6小時、12小時等4張時段極值分布的研究，得出了強降水極值的區(qū)域分布，表明了早期(1、3、6小時)強降水落區(qū)基本與12小時重合的結(jié)論，并結(jié)合基礎(chǔ)高程海拔數(shù)據(jù)、地質(zhì)災(zāi)害易發(fā)性分區(qū)圖(云南省江川縣地質(zhì)災(zāi)害防治規(guī)劃2011-2020年)、江川區(qū)地質(zhì)災(zāi)害活動強度趨勢預(yù)測圖、江川縣水利局山洪研究成果等，對降水引發(fā)的風(fēng)險隱患(山洪、地質(zhì)災(zāi)害點等)等的綜合考慮，制定了針對每一個站點4個等級(Ⅰ、Ⅱ、Ⅲ、Ⅳ)3個時次(1、3和6小時)預(yù)警指標(biāo)。Ⅰ為最高等級，向下兼容。系統(tǒng)最終實現(xiàn)不同的預(yù)警指標(biāo)對應(yīng)不同的預(yù)警服務(wù)對象，使面向影響區(qū)域的人及上級承擔(dān)防災(zāi)減災(zāi)職責(zé)的人能及時得到氣象預(yù)警，從而更好地服務(wù)于地方防災(zāi)減災(zāi)工作(圖3)。

圖3 強降水預(yù)警規(guī)則庫Fig.3 Heavy precipitation early warning rule base

1.2.2 “內(nèi)響應(yīng)、外聯(lián)動”規(guī)則庫

近年來氣象部門均制定了“內(nèi)響應(yīng)、外聯(lián)動”工作規(guī)范及制度，為更好落實該規(guī)范，系統(tǒng)對“內(nèi)響應(yīng)、外聯(lián)動”中強降水進(jìn)行逐條數(shù)字化，實現(xiàn)預(yù)警信號及強降水監(jiān)測工作任務(wù)得到有效分工。該預(yù)警規(guī)則被觸發(fā)時，預(yù)警信息將會自動推動給值班員，值班員確認(rèn)核對信息后，及時推送給局長、副局長、氣象臺長，做到各盡其責(zé)(圖4)。

圖4 “內(nèi)響應(yīng)、外聯(lián)動”規(guī)則庫Fig.4 “Internal response and external linkage” rule base

1.3 預(yù)警信息收集發(fā)布

預(yù)警信息收集發(fā)布包括智能預(yù)報格點分析、站點資料分析、預(yù)警信息解析、提醒信息自定義設(shè)定或自動提取、信息與服務(wù)對象自動對接等5部分組成。

根據(jù)預(yù)警需求不同劃分特定人群就是“靶向氣象服務(wù)”的靶心。要做好“靶向氣象服務(wù)”，就需要圍繞靶心，準(zhǔn)確定位，才能將預(yù)警信息分門別類服務(wù)到最需要的人群。

智能預(yù)報格點分析是應(yīng)用MATLAB獲取智能預(yù)警區(qū)域網(wǎng)格預(yù)報1小時0.05°E×0.05°N格點降水產(chǎn)品，得到每一個網(wǎng)格雨量數(shù)據(jù)，從而對網(wǎng)格內(nèi)氣象站與網(wǎng)格降雨對應(yīng)。因臨近預(yù)報對預(yù)警開展較為有利，因此主要考慮0～3 h的預(yù)測與所在格點的氣象站點建立對應(yīng)，開展短時臨近預(yù)警。

站點資料分析對省局CIMISS、市局?jǐn)?shù)據(jù)進(jìn)行融合或者單獨處理分析小時及分鐘雨量數(shù)據(jù)(分鐘雨量數(shù)據(jù)是最新整點后，在下一個時刻到來之前這段時間內(nèi)雨量值的累計，數(shù)據(jù)更新間隔一般為5分鐘)，主要處理0～6小時強降水實況監(jiān)測。以上數(shù)據(jù)都是調(diào)用指控后的CIMISS數(shù)據(jù)，預(yù)警發(fā)出前均通過多普勒雷達(dá)等產(chǎn)品人工辨別確認(rèn)信息的可信度，實時修改，確保信息準(zhǔn)確。

預(yù)警信息處理包括預(yù)警信息壓縮、解析(圖5)，從而保證形成的預(yù)警信息簡潔易讀。壓縮格式為“|預(yù)警等級%站點編號%所在鄉(xiāng)鎮(zhèn)(街道)%預(yù)警值；…|…”，同一個區(qū)域之間用“；”分隔，雨量按降序排列，“|”之間存儲的是同一個鄉(xiāng)鎮(zhèn)(街道)站點預(yù)警信息。對新增的點用“Add”，等級升高用“Update”。同一預(yù)警信息間用“%”分開。解析是以“|”為標(biāo)示，得到全局站點預(yù)警信息，“%”之間獲取全局、局部預(yù)警等級信息，以及站點服務(wù)信息。其中，遇到“Update”時表明有站點預(yù)警等級升高，遇到“Add”時表明有新增站點預(yù)警。

圖5 預(yù)警信息格式與服務(wù)對象關(guān)聯(lián)Fig.5 Alert information format is associated with the service object

信息自定義存儲，自動快捷提取，預(yù)警信息的發(fā)布時效性較強，如果每次都需要手工錄入提醒信息，將會降低信息的發(fā)布效率且易出錯。系統(tǒng)通過提前添加網(wǎng)址、國土、水利、科普資料及綜合防災(zāi)減災(zāi)等建議文字或Office文檔信息分類入庫，在需要使用時可通過快捷鍵及時調(diào)取所需信息后只需少量修改就可以完成預(yù)警的發(fā)布。

信息與“內(nèi)響應(yīng)、外聯(lián)動”人員自動對接(圖4)。預(yù)警等級與服務(wù)對象關(guān)聯(lián)存在3種情況。第一種，預(yù)警信息中所有站點的的最高預(yù)警等級關(guān)聯(lián)低于等于該等級的全局服務(wù)對象；第二種，同一個鄉(xiāng)鎮(zhèn)(街道)最高等級關(guān)聯(lián)低于等于等級鄉(xiāng)鎮(zhèn)(街道)服務(wù)對象；第三種，站點關(guān)聯(lián)其周圍的服務(wù)對象。以上3種模式對應(yīng)8種情況，每次至少生成3條不同的預(yù)警短信。

1.4 系統(tǒng)設(shè)置

系統(tǒng)設(shè)置主要包括基礎(chǔ)設(shè)置、數(shù)據(jù)庫信息設(shè)置、站點信息設(shè)置、內(nèi)響應(yīng)人員設(shè)置、外聯(lián)動人員設(shè)置等。

基礎(chǔ)設(shè)置有3部分內(nèi)容組成，分別是預(yù)警區(qū)域的設(shè)置、信息刷新時間設(shè)置、預(yù)警收集設(shè)置。其中，預(yù)警收集設(shè)置是針對“內(nèi)響應(yīng)、外聯(lián)動”預(yù)警信息在同一時次再次發(fā)出預(yù)警雨量值間隔百分比。對網(wǎng)絡(luò)通信狀態(tài)預(yù)警、預(yù)警信息收集、值班員是否接收預(yù)警通知等設(shè)置。網(wǎng)絡(luò)通信狀態(tài)監(jiān)控應(yīng)用了Winsock的UDP協(xié)議，對格點預(yù)報處理、預(yù)警收集狀態(tài)、預(yù)警信息呈現(xiàn)等3個主要模塊之間相互通信，確保整個氣象預(yù)警服務(wù)過程預(yù)警信息收集處理做到全天候。

數(shù)據(jù)庫信息設(shè)置包括本地個性化數(shù)據(jù)庫、市局?jǐn)?shù)據(jù)庫、CIMISS登錄信息、云南省氣象信息發(fā)布系統(tǒng)接入等的設(shè)置。為確認(rèn)系統(tǒng)安全均對用戶名及密碼進(jìn)行了加密。

站點信息設(shè)置是為了保證區(qū)域站與服務(wù)對象建立一對多關(guān)系。為了預(yù)警服務(wù)順利開展，必須確保站點的地理位置，所屬鄉(xiāng)鎮(zhèn)等信息正確無誤。當(dāng)站點太多時，給預(yù)警信息的完整性造成影響，在表中還預(yù)留了“所屬片區(qū)”字段，可分片區(qū)開展預(yù)警服務(wù)，增加預(yù)警信息可讀性。

內(nèi)響應(yīng)人員設(shè)置。對預(yù)警單位內(nèi)部人員信息的錄入，明確身份，保證了“內(nèi)響應(yīng)、外聯(lián)動”工作規(guī)范落地到人。局長、副局長、氣象臺長及值班員均有不同的職責(zé)分工。

外聯(lián)動人員設(shè)置。外聯(lián)動人員設(shè)置關(guān)乎預(yù)警服務(wù)能否順利開展，“服務(wù)精密”在這里得到了體現(xiàn)。外聯(lián)動人員由于關(guān)注強降水落區(qū)及服務(wù)需求的不同，故設(shè)3種控制權(quán)限分類錄入防御責(zé)任人數(shù)據(jù)庫。第一種，全局控制，有4個等級；第二種，局部控制，有3個等級；第三種，點控制，僅有1個等級。每次發(fā)布預(yù)警短信將會對以上3種情況同時發(fā)布，且短信內(nèi)容也將根據(jù)服務(wù)及關(guān)注區(qū)域需求而不盡相同(表1)。

表1 預(yù)警等級與服務(wù)對象靶向發(fā)布對應(yīng)關(guān)系Tab.1 Corresponding relationship between alert level and targeted release of service object

2 系統(tǒng)子程序

系統(tǒng)由網(wǎng)格預(yù)報分析投射、預(yù)警收集分析、預(yù)警信息處理和預(yù)警短信發(fā)布端等4部分構(gòu)成。整個預(yù)警過程以語音、短信等方式實時提醒值班人員，具有信息交互性和發(fā)布過程的可視化。

網(wǎng)格預(yù)報分析投射端將從CIMISS下載“Z_NWGD_C_BABJ_……GRB2”網(wǎng)格預(yù)報文件，解析后得到網(wǎng)格與期對應(yīng)時段降雨量，實現(xiàn)氣象站所在網(wǎng)格與網(wǎng)絡(luò)預(yù)測雨量值有機結(jié)合，期間可以人工干預(yù)訂正，將作為服務(wù)人員掌握未來天氣的趨勢依據(jù)，指導(dǎo)相關(guān)服務(wù)的開展。

預(yù)警收集分析是融合市局區(qū)域站服務(wù)器和省局CIMISS服務(wù)器收集資料，也可任意切換數(shù)據(jù)源或選擇的數(shù)據(jù)源連接故障時也會自動切換到相關(guān)數(shù)據(jù)源，確保監(jiān)視無盲區(qū)。收集到的預(yù)警信息將采用壓縮的方式分區(qū)域存儲，保證信息可讀性及精簡。強降水預(yù)警信息每一種類型1小時內(nèi)僅生成1條，新增或等級變更的站點將被記錄和單獨發(fā)送，不會造成信息重復(fù)發(fā)送。

預(yù)警信息處理是對預(yù)警信息進(jìn)行解碼和發(fā)送。發(fā)送的信息可以自動生成或自定義編寫。各類信息可以通過一定的方式提前分類存儲，一鍵調(diào)用，極大地提高了信息發(fā)布的時效性。信息的自動生成將會自動關(guān)聯(lián)預(yù)警等級與服務(wù)對象，值班員需核實預(yù)警站點的數(shù)據(jù)。

預(yù)警短信發(fā)布是通過自動收集預(yù)警信息、信息發(fā)送的方式及服務(wù)人群等后，自動銜接云南省氣象信息發(fā)布系統(tǒng)完成預(yù)警信息的發(fā)送，并記錄反饋預(yù)警發(fā)送狀態(tài)。

3 系統(tǒng)實現(xiàn)部分功能代碼

3.1 智能網(wǎng)格預(yù)報分析(MATLAB自動處理)

wds1=24.21

wde2=24.52

jds1=102.58

jde1=102.91

……

%江川地區(qū)經(jīng)度范圍及步長

for i=1：1000

if grib_struct(1).gds.Lon1+0.05*i>=jds1

numjd1=i

break

end

end

jd1=grib_struct(1).gds.Lon1+0.05*numjd1

for j=1：1000

if grib_struct(1).gds.Lon1+0.05*(j+numjd1)>=jde1

numjd2=j

break

end

end

jd2=grib_struct(1).gds.Lon1+0.05*(numjd2+numjd1)

ml=num2str(grib_struct(1).stime)；

mkdir(ml)

cd (ml)

tpp1006= nan([numjd2+1，numwd2+1])

%處理了未來40個小時數(shù)

for m=1：40

for j=numjd1：numjd1+numjd2

for k=numwd1：numwd1+numwd2

gs=j-152+1

ge=k-113+1

tpp1006(gs，ge)= grib_struct(m).data(j，k)

end

end

dlmwrite([num2str(jd1)，′-′，num2str(wd1)，′-′，grib_struct(m).vtime，′.txt′]，tpp1006，′delimiter′，′ ′，′precision′，6，′newline′，′pc′)

end

end

對江川區(qū)56個格點未來40個小時的數(shù)據(jù)進(jìn)行了提取。

3.2 預(yù)警信息靶向發(fā)布

If Cmblx.Text = "強降水" Then

Frmsentmsg.VSFlexmsglb.Rows = 1

……

′局部控制--點控制

For j = 1 To VSFlexyjjx.Rows - 1

If Trim $(VSFlexyjjx.TextMatrix(j，1))<> "" Then

xzbg = True ′有新增記錄

Exit For

End If

Next

If chkqj.Value = 1 Then ′是否選擇了主界面全局發(fā)送按鈕

′增加全局發(fā)送代碼

Call qj ′全局控制

If xzbg = True Then ′有新增記錄，只發(fā)新增加的

……

End If

Call xzkznew

Else ′否則全部點發(fā)送

……

Next

Call xzkz ′局部控制--鄉(xiāng)鎮(zhèn)控制

End If

Else

If xzbg = True Then ′有新增記錄，只發(fā)新增加的

……

Call xzkznew

Else ′否則全部點發(fā)送

Call qj ′全局控制

……

Call xzkz ′局部控制--鄉(xiāng)鎮(zhèn)控制

End If

End If

sqlsent = "update alertrecord set userzb=′" & Labzb(0).Caption & "′，userqf=′" & Labzb(1).Caption & "′，sendto=′1′ where Countyid=′" & XqBH & "′ and scntime=′" & Txtsctime.Text & "′ and yjtype=′" & Cmblx.Text & "′"

Frmsentmsg.Show，Me

Else ′"內(nèi)響應(yīng)"

r1 = MsgBox("內(nèi)響應(yīng)——預(yù)警信息即將發(fā)出，你確認(rèn)嗎？"，vbCritical + vbOKCancel，"確認(rèn)信息！")

If r1 <> 1 Then Exit Sub

For I = 1 To VSFlexyjjx.Rows - 1 ′局部控制

If VSFlexyjjx.TextMatrix(I，1)<> "" Then

If VSFlexyjjx.TextMatrix(I，4)<> "無" Then

msg1 = "內(nèi)響應(yīng)：" & VSFlexyjjx.TextMatrix(I，4)

End If

If VSFlexyjjx.TextMatrix(I，5)<> "無" Then

msg1 = msg1 & "外聯(lián)動：" & VSFlexyjjx.TextMatrix(I，5)

End If

msg1 = msgdate & VSFlexyjjx.TextMatrix(I，3)& msg1

grouptree1 = VSFlexyjjx.TextMatrix(I，1)

transmit1 = "1"

strsql = "insert INTO Msg(Countyid，sctime，msg，grouptree，transmit)values(′" & XqBH & "′，′" & Txtsctime.Text & "′，′" & msg1 & "′，′" & grouptree1 & "′，′" & transmit1 & "′)"

Call SqlReset(strsql，1)

End If

msg1 = ""

grouptree1 = ""

Next

sjk = "qxalert"

strsql = "update alertrecord set userzb=′" & Labzb(0).Caption & "′，userqf=′" & Labzb(1).Caption & "′，sendto=′1′ where Countyid=′" & XqBH & "′ and scntime=′" & Txtsctime.Text & "′ and yjtype=′" & Cmblx.Text & "′"

Call SqlReset(strsql，1)

Call TxtmessageS

End If

′寫入值班人員、簽發(fā)人員

Shell App.Path & "Msg.exe /zd" ′信息發(fā)布程序

End Sub

Sub qj()

……

For I = 1 To VSFlexyjjx.Rows - 1 ′全局控制

If Cmbgrade.Text = "" Then

MsgBox "等級不能為空！"，vbCritical

Exit Sub

End If

grouptree1 = Cmbgrade.Text

If Trim$(VSFlexyjjx.TextMatrix(I，1))= "" Then

msg1 = msg1 & VSFlexyjjx.TextMatrix(I，3)& VSFlexyjjx.TextMatrix(I，6)& "；"

End If

Next

If msg1 <> "" Then

grouptree1 = Cmbgrade.Text

transmit1 = "1"

′ strsql = "insert INTO Msg(Countyid，sctime，msg，grouptree，transmit)values(′" & XqBH & "′，′" & Txtsctime.Text & "′，′" & msg1 & "′，′" & grouptree1 & "′，′" & transmit1 & "′)"

′ Call SqlReset(strsql，1)

For k = Val(grouptree1)To 4

qjgroup1 = qjgroup1 & k & "；"

……

Next

……

Sub xzkz()′局部控制--鄉(xiāng)鎮(zhèn)控制

……

msgdate = Format(Txtsctime.Text，"MM月dd日")

For I = 1 To VSFlexyjjx.Rows - 1

If VSFlexyjjx.TextMatrix(I，1)= "" Then

xzname1(I)= VSFlexyjjx.TextMatrix(I，4)

Else

xzname1(I)= ""

End If

Next

For j = 1 To VSFlexyjjx.Rows - 1

temp1 = VSFlexyjjx.TextMatrix(j，4)

If xzname1(j)<> "" And VSFlexyjjx.TextMatrix(j，1)= "" Then

msg1 = msgdate & Txtyjsd.Text & "："

msg1 = msg1 & VSFlexyjjx.TextMatrix(j，3)& VSFlexyjjx.TextMatrix(j，6)& "；"

If VSFlexyjjx.TextMatrix(j，5)< grade1 Then grade1 = VSFlexyjjx.TextMatrix(j，5)

grouptree1 = VSFlexyjjx.TextMatrix(j，4)& grade1

For I = j + 1 To VSFlexyjjx.Rows - 1 ′只有1行時 不運行

If xzname1(I)<> "" And VSFlexyjjx.TextMatrix(I，1)= "" Then

If temp1 = xzname1(I)Then

……

End If

Next

End If

If Cmbgrade.Text = "" Then

MsgBox "等級不能為空！"，vbCritical

Exit Sub

End If

If msg1 <> "" Then

transmit1 = "1"

……

qjgroup1 = Right(grouptree1，1)

For k = qjgroup1 To 4

strgroup1 = strgroup1 & Left(grouptree1，Len(grouptree1)- 1)& k & "；"

Next

Frmsentmsg.VSFlexmsglb.TextMatrix(1，3)= strgroup1

strgroup1 = ""

msg1 = ""

grouptree1 = ""

End If

Next

End Sub

Sub xzkznew()′局部控制--鄉(xiāng)鎮(zhèn)控制 針對新增點及變更站點

……

For I = 1 To VSFlexyjjx.Rows - 1

If VSFlexyjjx.TextMatrix(I，1)<> "" Then

xzname1(I)= VSFlexyjjx.TextMatrix(I，4)

Else

xzname1(I)= ""

End If

Next

For j = 1 To VSFlexyjjx.Rows - 1

temp1 = VSFlexyjjx.TextMatrix(j，4)

If xzname1(j)<> "" And VSFlexyjjx.TextMatrix(j，1)<> "" Then

msg1 = sgdate & Txtyjsd.Text & "："

msg1 = msg1 & VSFlexyjjx.TextMatrix(j，3)& VSFlexyjjx.TextMatrix(j，6)& "；"

If VSFlexyjjx.TextMatrix(j，5)< grade1 Then grade1 = VSFlexyjjx.TextMatrix(j，5)

grouptree1 = VSFlexyjjx.TextMatrix(j，4)& grade1

For I = j + 1 To VSFlexyjjx.Rows - 1

If xzname1(I)<> "" And VSFlexyjjx.TextMatrix(I，1)= "" Then

If temp1 = xzname1(I)Then

xzname1(I)= ""

msg1 = msg1 & VSFlexyjjx.TextMatrix(I，3)& VSFlexyjjx.TextMatrix(I，6)& "；"

If VSFlexyjjx.TextMatrix(j，5)< grade1 Then grade1 = VSFlexyjjx.TextMatrix(j，5)

If VSFlexyjjx.TextMatrix(j，5)< grade1 Then grade1 = VSFlexyjjx.TextMatrix(j，5)

grouptree1 = VSFlexyjjx.TextMatrix(j，4)& grade1

End If

End If

Next

End If

If Cmbgrade.Text = "" Then

MsgBox "等級不能為空！"，vbCritical

Exit Sub

End If

If msg1 <> "" Then

transmit1 = "1"

′ strsql = "insert INTO Msg(Countyid，sctime，msg，grouptree，transmit)values(′" & XqBH & "′，′" & Txtsctime.Text & "′，′" & msg1 & "′，′" & grouptree1 & "′，′" & transmit1 & "′)"

intmsgsum = intmsgsum + 1

Frmsentmsg.VSFlexmsglb.AddItem ""，1

Frmsentmsg.VSFlexmsglb.TextMatrix(1，0)= j

Frmsentmsg.VSFlexmsglb.TextMatrix(1，1)= Txtsctime.Text

Frmsentmsg.VSFlexmsglb.TextMatrix(1，2)= msg1

Frmsentmsg.VSFlexmsglb.TextMatrix(1，3)= grouptree1

msg1 = ""

grouptree1 = ""

End If

Next

End Sub

4 系統(tǒng)特點

4.1 預(yù)警信息收集主動及時

能主動第一時間收集轄區(qū)內(nèi)已經(jīng)發(fā)生或?qū)?個小時內(nèi)發(fā)生的災(zāi)害性預(yù)警信息。期間未來3小時預(yù)測信息可以是網(wǎng)格預(yù)報產(chǎn)品，也可以是融合的預(yù)報產(chǎn)品，還可以是上級或本地化預(yù)測更加精準(zhǔn)的產(chǎn)品，只要預(yù)測信息流進(jìn)入接口就可供系統(tǒng)調(diào)用，極大簡化了基層對預(yù)警信息感知，為服務(wù)人員在未來一段時間開展氣象服務(wù)工作提供依據(jù)。

4.2 “內(nèi)響應(yīng)、外聯(lián)動”工作機制得到有效銜接和充分發(fā)揮

“內(nèi)響應(yīng)、外聯(lián)動”工作規(guī)范細(xì)則數(shù)字化，實現(xiàn)預(yù)警信號及強降水監(jiān)測工作任務(wù)得到有效分工，權(quán)責(zé)清晰，并及時通知到相關(guān)責(zé)任人員。強降水閾值的制定針對每一個站點，服務(wù)做到了精細(xì)。

4.3 智慧“靶向”服務(wù)

通過“實況+預(yù)報”的模式監(jiān)測預(yù)警信息，并對達(dá)到預(yù)警指標(biāo)的站點，及時啟動服務(wù)策略，將信息發(fā)布到面向影響區(qū)域的人及上級承擔(dān)防災(zāi)減災(zāi)職責(zé)的人，實現(xiàn)預(yù)警準(zhǔn)確率和時間提前量的穩(wěn)步提升，精準(zhǔn)命中“靶心”。

4.4 針對每一個站點建立報警閾值

針對每一個區(qū)站氣象站點設(shè)定4個等級3個時次的閾值，不同等級對應(yīng)不同服務(wù)對象，開展具有針對性的氣象預(yù)警服務(wù)工作。實現(xiàn)預(yù)警準(zhǔn)確率和時間提前量的穩(wěn)步提升，目標(biāo)用戶篩選更加合理。但在使用過程中根據(jù)實際情況需要不斷完善站點閾值的設(shè)定完善。

4.5 預(yù)警信息短信壓縮規(guī)則

預(yù)警短信都做了特定的壓縮處理。用戶查看時都按照一定的規(guī)則在進(jìn)行解壓顯示，可以修改，但所有信息發(fā)送后將存儲于其它數(shù)據(jù)表，不會影響原始壓縮預(yù)警信息，確保信息安全。用戶發(fā)送預(yù)警過程，不用考慮服務(wù)對象選擇，計算機會根據(jù)預(yù)警信息自動處理，完成發(fā)布。

5 結(jié)語

系統(tǒng)以降水實況與網(wǎng)格預(yù)報的有機相接，融合“內(nèi)響應(yīng)、外聯(lián)動”工作機制規(guī)則庫和4級預(yù)警3個時次閥值規(guī)則庫等2個規(guī)則庫獲取預(yù)警信息，及時提醒用戶處理預(yù)警信息并核準(zhǔn)發(fā)布到不同區(qū)域不同點的服務(wù)對象，系統(tǒng)將監(jiān)測預(yù)警信息傳遞到需要的防御責(zé)任人。實現(xiàn)了玉溪市江川區(qū)強降雨監(jiān)測的“早、準(zhǔn)、快”，在突發(fā)性、局地性等災(zāi)害性短時強降水天氣發(fā)生過程中，江川區(qū)氣象局能精準(zhǔn)、快速通過“靶向”預(yù)警系統(tǒng)面向即將影響區(qū)域開展“點、線、面”3個層次的信息發(fā)布，為公眾采取有效防御措施爭取時間，保障人民生命財產(chǎn)安全，進(jìn)一步強化部門合作和應(yīng)急聯(lián)動，夯實氣象防災(zāi)減災(zāi)“第一道防線”，助力防災(zāi)減災(zāi)救災(zāi)。