編制水文預報 方案過程中,需要計算某場洪水次降雨量或淨雨量,這個軟體(**)直接讀取《基礎水文資料庫》(odbc方式)中的降雨量摘錄表,計算任意時段雨量值,比如1顯示次雨量計算或者淨雨量計算。計算過程中使用算術平均法插值。
給個成果看看
2004
71716
00.3
0.4000
0.2
2004
71718
1.88.7
0.80.4
2.212.7
3.8
2004
7172020
10.2
00.1
0.8
2004
71722
6.20.810
0.320.3
3.2
2004
7180
206.6
43.1
3.915.4
9.8
2004
7182
17.2
9.35.2
3.213.5
6.210.7
2004
7184
19.6
17.1
2112.3
29.9
21.2
20.2
2004
7186
17.7
25.7
6.46.1
16.5
19.2
16.4
2004
7188
22.9
21.2
20.4
11.3
16.1
13.3
19.9
2004
71810
17.8
1232.6
14.3
14.4
9.118.6
2004
71812
8.714.7
22.6
30.7
12.8
5.615.0
2004
71814
12.3
8.64.4
12.2
4.510.5
8.5
2004
71816
1.61.3
1.62.2
0.70.4
1.4
2004
71818
5.45.9
11.1
1.90.6
3.6
2004
71820
1.20
0.1000
0.4
2004
71822
2.61.2
1.61.8
2.41.2
1.9
2004
7190
7.54.5
65.3
2.45.1
5.5
2004
7192
4.65.1
7.12
5.41.6
5.1
2004
719422
1.82
1.81.6
1.9
2004
7196
2.12.2
1.82
1.84.2
2.1
2004
7198
6.58.6
5.86.2
6.62.4
6.7
179.7
155.8
146.6
116.4
137.1
150.7
155.7
實際效果:本軟體在2023年淮河預報方案(信陽)修訂過程中,投入使用,節約了人力時間資源,軟體穩定可靠。
軟體安裝:
南方片資料整彙編軟體+本軟體
需要宣告的是:你的資料庫中要有歷史資料。
使用方法:在已經安裝南方片軟體的情況下,複製就可以使用,在使用前請配置cofig.ini檔案
1 在「預報站點分布圖」中填加雨量點比如
息縣=息縣,50220150,50220350,50220550,50220750,50220850,50221900,50222450,50225600,50222850,50223650,50223900,50225350,50224350,50224650,50224750,50225050
2 在「預報站點權重」寫上權重,比如
長台關=0.095,0.126,0.117,0.118,0.107,0.089,0.114,0.18,0.054
3 在「預報雨量摘錄場次時間」增加預報時段,也就是需要計算的時間,比如
長台關=2002,200206210800,200206231800,20020623,2002,200206270000,200206272200,20020628,2003,200307200000,200307212200,20030721,2004,200408020000,200408062200,20040805,2005,200507090800,200507102200,20050710,2005,200508280000,200508300000,20050821,2000,200006010800,200006040000,20000602
然後就可以計算了
private sub cmd_預報_場次確定_click()
dim sqltemp as string
dim strline as string
dim 臨時年份 as string
dim 臨時起月日 as string
dim 臨時止月日 as string
dim 站號列表() as string
dim ii, jj, kk as integer
dim 資料列表() as string
dim 時段雨量合計 as double
dim 極值日期(4) as string '最大日期,最大時間,最小日期,最小時間
dim 總行數 as long
dim 資料排序(5000, 5) as string
dim 權重列表() as string
dim startdatetime as date
dim enddatetime as date
on error goto errorer
sqltemp = "prex"
if len(sqltemp) < 1 then 漂浮提示 "哈哈 請選擇 表": exit sub
' sqltemp = mid(sqltemp, instr(sqltemp, "<") + 1, instr(sqltemp, ">") - instr(sqltemp, "<") - 1)
站號列表 = split(fcm_預報_站.text, ",")
'goto 900
drawprocex picture5, 1 / 100, &h800000, "連線資料庫": doevents
mnucnrsopen (0)
for i = 1 to lv_預報_場次.listitems.count 'n個場次
'drawprocex picture5, 1 / (lv_預報_場次.listitems.count), &h800000, "整理分析": doevents
next
mnursclose
mnucnclose
close #1
close #2
drawprocex picture5, 1 / 1, &h800000, "整理完成": doevents
漂浮提示 "累呀,不過還是完成了!"
exit sub
errorer:
close #1
close #2
漂浮提示 "在測站資訊中搜尋時遇到了錯誤 型別:" & str(err.number) & vbcrlf
logsmgtext = logsmgtext & "在測站資訊中搜尋時遇到了錯誤,型別:" & str(err.number) & vbcrlf
msgbox "在測站資訊中搜尋時遇到了錯誤,型別:" & err.description, vbokonly & vbcritical, "查詢資訊"
mnursclose
mnucnclose
end sub
資料庫基礎及應用
最近看了好幾本書。所以說下,看書的收穫吧。資料庫基礎及應用 人民郵電大學出版 王珊 我看這本書呢,不是通讀,因為學過資料庫的課程,只是想讀下其中的部分章節。在讀前言的時候有點小發現。這本書的第一作者寫的是王珊,第二作者是李盛恩。而這本書的內容有13章,200多頁 其中只有第6 9 12 13章是王珊...
JDBC java中資料庫的應用
異常丟擲不作說明 第0步,準備連線到資料庫的jar包 經常被忽略的乙個重要步驟 新增jar包的方法 eclipse 專案 屬性 庫 新增jar包 第1步,載入jdbc驅動程式 載入資料庫驅動到jvm class.forname con.mysql.jdbc.driver 作用 將driver類的例項...
程式中應用資料庫(Linux)
分為三大部分 第一 安裝 第二 建庫,建表 第三 程式中使用 第一部分 安裝部分 1,開啟終端,輸入 sudo apt cache search mysql server 提示輸入密碼時輸入密碼 終端顯示 在終端內輸入 sudo apt get install mysql server 5.1 等待...