2024年1月6日发(作者：)
中小河流洪水预报系统源程序
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-}#1.1#0"; ""
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; ""
Begin Start
BorderStyle
=
0 'None
Caption
=
"Form1"
ClientHeight
=
4515
ClientLeft
=
0
ClientTop
=
0
ClientWidth
FillStyle
Icon
=
5610
=
0
'Solid
=
"":0000
LinkTopic
=
"Form1"
LockControls
=
-1
'True
MaxButton
MinButton
Picture
ScaleHeight
ScaleWidth
=
0 'False
=
0
'False
=
4515
=
5610
=
"":030A
ShowInTaskbar
=
0
'False
StartUpPosition =
2
'
Height
Left
Top
Width
=
375
屏幕中心
Begin ssBar StarProgressBar
=
-30
TabIndex
=
=
0
4140
=
10028
=
661
=
393216
=
1
=
5685
_ExtentX
_ExtentY
_Version
Appearance
End
Begin Timer2
Enabled
=
0
'False
Interval
=
2000
Left
Top
End
Left
Top
=
5160
=
3090
Begin MSComm1
=
4110
=
3090
=
1005
_ExtentX
_ExtentY
_Version
=
1005
=
393216
= -1 'True
DTREnable
Enabled
Interval
Left
Top
End
= 0 'False
=
100
=
4710
=
3090
Begin Image2
DragMode
Height
Left
Picture
Stretch
Top
Width
= 1 'Automatic
=
4470
=
30
=
"":1B660
=
-1 'True
=
30
=
5550
End
End
Attribute VB_Name = "Start"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim Counter As Integer
Dim fs, ts As Object
Dim f
Dim DB_P_Str, DB_P_File As String
Dim Clg_Ado_Conn As New tion
Dim Clg_Ado_Recordset As New set
Dim Fields_No, Com_No, Record_No As Integer
Dim File_Path As String
On Error Resume Next
ClgDogPassword = 508282156
Call DogInitialize
If stance Then
MsgBox "
本软件已启动
", vbInformation, "
提示信息 "
End
End If
' 载入数据库配置信息
File_Path = Dir( & "ini", vbDirectory)
If File_Path = "" Then
MkDir "ini"
End If
File_Path = Dir( & "data", vbDirectory)
If File_Path = "" Then
MkDir "data"
MkDir "datacollect"
MkDir "dataget"
MkDir "datagetbackup"
MkDir "datasend"
MkDir "datasendbackup"
MkDir "datargsdata"
MkDir "datargsdatabackup"
MkDir "datareport"
MkDir "log"
End If
DB_P_File = Dir( & "")
If DB_P_File = "" Then
Call Get_DB_Pr
If Server_Name <> "" Or Database_Name <> "" Or User_Name <> "" Or User_Pwd <> ""
Then
If DBConnFlag = True Then
Timer1 = True
Else
MsgBox "
常？ ", vbInformation, "
System_
End If
Else
MsgBox "
Exit Sub
End If
Else
MsgBox "
数据库还没进行配置，请配置数据库
", vbInformation, "
提示信息 "
数据库还没进行配置，请配置数据库
", vbInformation, "
提示信息 "
System_
数据库访问失败，请检查数据库配置和数据库服务器及网络设备是否正
提示信息 "
System_
Exit Sub
End If
End Sub
Private Sub Timer2_Timer()
Dim Response As String
If ComFlag = True Then
Else
Response = ""
Response
= MsgBox(" 串口设置与串口硬件情况不符，请检查串口配置或串口设备
_
"
是否直接启动串口设置窗口？
", vbYesNo + vbQuestion + vbDefaultButton2, "息")
If Response = vbYes Then
System_
Else
End If
End If
2 = False
End Sub
Private Sub Timer1_Timer()
' 载入串口参数 , 并进行串口初始化
If WorkMode = "
采集模式 " Or WorkMode = "
服务器 " Then
STCDDot = 10000
Call ReadDog
Call Get_Com_Pr
Call Com_Detect
n = n & "--
采集工作模式
"
Timer2 = True
Else
e = False
e = False
e = False
e_e = False
d = False
d = False
_e = False
" & vbCr &
提示信
_e = False
ooth_e = False
_e = False
e = False
e = False
e = False
System__EDIT_d = False
System__ADDNEW_d = False
System__EDIT_d = False
System__DEL_d = False
System__ADDNEW_d = False
System__EDIT_d = False
System__DEL_d = False
System__ADDNEW_d = False
System__EDIT_d = False
System__DEL_d = False
System_d = False
d = False
_ADDNEW_d = False
_EDIT_d = False
_DEL_d = False
d = False
SQirZQQuery.P_ADDNEW_d = False
_EDIT_d = False
SQirZQQuery.P_DEL_d = False
n = n & "--
非采集工作模式
"
Call ComState_Display
End If
Timer1 = False
End Sub
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-}#1.1#0"; ""
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; ""
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; ""
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; ""
Begin Main
Caption
=
"
10710
中小河流洪水预报系统 "
ClientHeight
=
ClientLeft
=
60
ClientTop
ClientWidth
FillColor
FillStyle
Icon
LinkTopic
ScaleHeight
ScaleWidth
WindowState
BorderStyle
Caption
Height
Left
TabIndex
Top
Width
=
750
=
15240
=
&H80000003&
=
0
'Solid
=
"":0000
=
"Form1"
-1
'True
=
10710
=
15240
=
2 'Maximized
=
0
'None
=
"Frame1"
=
435
=
30
LockControls
=
Begin AlarmFrame
=
26
=
10260
=
405
=
390
=
0
=
"":164A
=
-1
'True
=
0
=
0
'False
=
390
Begin AlarmPicture
Height
Left
Picture
Stretch
Top
Visible
Width
End
End
Interval
Left
Top
End
Begin AlarmListenTimer
=
30000
=
630
=
10260
Begin ReGSMTimer0
Enabled
Interval
Left
Top
End
=
0
'False
=
20000
=
11220
=
0
Begin ReGSMTimer1
Enabled
Interval
Left
Top
=
0
'False
=
2000
=
11640
=
0
End
Begin ReGSMTimer2
Enabled
Interval
Left
Top
End
=
0 'False
=
2000
=
12060
=
0
Begin SockStateTimer
Enabled
Interval
Left
Top
=
0 'False
=
50
=
14160
=
9390
End
Index
Left
Top
Begin k sckServer
=
0
=
14640
=
9390
=
741
=
741
=
393216
_ExtentX
_ExtentY
_Version
Enabled
Interval
Left
Top
End
Interval
Left
Top
End
=
0 'False
=
3000
=
360
=
0
Begin StatPTimer
=
10000
=
13320
=
1860
Begin ClgComm
Left
Top
_ExtentX
_ExtentY
_Version
End
Left
Top
_ExtentX
=
14520
=
8760
=
1005
=
1005
=
393216
DTREnable
= -1 'True
Begin PSTN1
=
10110
=
8790
=
1005
_ExtentY
_Version
=
1005
=
393216
DTREnable
=
-1 'True
RTSEnable
=
-1 'True
End
Begin PSTN2
Left
Top
_ExtentX
_ExtentY
_Version
=
11280
=
8760
=
1005
=
1005
=
393216
DTREnable
=
-1 'True
RTSEnable
=
-1 'True
Left
Top
_ExtentX
_ExtentY
_Version
=
11880
=
8760
=
1005
=
1005
=
393216
DTREnable
=
-1 'True
RTSEnable
=
-1 'True
End
Left
Top
_ExtentX
_ExtentY
_Version
Begin GSM
=
12480
=
8760
=
1005
=
1005
=
393216
DTREnable
=
-1 'True
RTSEnable
=
-1 'True
End
Begin BD
Left
Top
_ExtentX
_ExtentY
_Version
=
13080
=
8760
=
1005
=
1005
=
393216
DTREnable
=
-1 'True
RTSEnable
=
-1 'True
Left
Top
=
13650
=
8760
_ExtentX
_ExtentY
_Version
DTREnable
=
=
1005
1005
= 393216
=
-1 'True
=
-1 'True
RTSEnable
Enabled
Interval
Left
Top
End
=
=
0 'False
5000
=
3630
=
0
Begin PSTN2HisDataGetDelay
Enabled
Interval
Left
Top
End
=
=
0 'False
5000
=
6960
=
0
Begin PSTN3HisDataGetDelay
Enabled
Interval
Left
=
=
=
0 'False
5000
0
=
10290
Top
Caption
Height
Left
TabIndex
Top
Visible
Width
End
= "
=
555
=
13800
= 2
=
6960
=
0
'False
=
1245
生成报文 "
Begin HideTimer
Enabled
Interval
Left
Top
End
= 0
'False
=
60000
=
2400
=
10260
Begin RealDataRefresh
Interval
Left
Top
End
=
20
=
10740
=
2460
Begin ZBArriveDetectTimer
Enabled
Interval
Left
Top
=
= 0 'False
20
=
10290
=
2460
Interval
Left
=
500
=
1170
=
10260
Top
Caption
Height
Left
TabIndex
Top
Visible
Width
End
Caption
Height
Left
TabIndex
Top
Visible
Width
End
=
"
=
555
=
13800
= 5
=
6360
=
0
'False
=
1245
人工置数器 "
Begin dButton GetCMD
=
"
=
555
=
13800
= 1
=
5760
=
0
'False
=
1245
接收数据 "
Begin ResetTimer
Enabled
Interval
Left
Top
End
Enabled
Interval
Left
=
0
'False
=
1000
=
6930
=
450
Begin MessageTimer
=
0
'False
=
1000
=
16290
=
450
Top
Enabled
Interval
= 0 'False
= 200
Left
Top
End
Enabled
Interval
Left
Top
End
=
6510
=
450
Begin PollingPSTN2
=
0
'False
=
200
=
6090
=
450
Begin PollingTimerB
Enabled
Interval
Left
Top
End
=
0
'False
=
300
=
5250
=
450
Begin PollingPSTN1
Enabled
Interval
Left
Top
End
Interval
Left
Top
End
Caption
Height
Left
TabIndex
Top
Width
=
0
'False
=
200
=
5670
=
450
Begin PollingTimer
=
60000
=
4830
=
450
Begin ChanFrame
=
"
=
795
=
60
=
6
=
1620
=
13065
通迅信道状态 "
Begin dButton GSMPollingCMD
Caption
Height
Left
TabIndex
Top
=
"GSM
=
465
=
9240
=
25
=
210
轮询 "
Width
=
1065
Enabled
Interval
= 0 'False
=
100
Left
Top
End
=
12030
=
270
Begin TimescaleCheckTimer
Enabled
= 0 'False
Interval
=
2000
Left
=
12480
Top
=
240
End
Caption
= "
Height
=
465
Left
=
10410
TabIndex
=
18
Top
=
210
Width
=
1065
End
Begin StartTestTimer
Interval
=
2000
Left
=
5280
Top
=
-60
End
Caption
= "
Height
=
465
Left
=
8100
TabIndex
= 7
Top
=
210
Width
=
1065
End
Begin StartChanTimer
Interval
=
50000
Left
=
1800
Top
=
-90
End
Begin DBChanTimer
Enabled
= 0
'False
Interval
=
2000
Left
=
4560
Top
=
-90
Enabled
= 0 'False
Interval
=
2000
北斗校时 "
设备测试 "
Left
=
4140
=
-90
Top
End
Begin PSTN3ChanTimer
Enabled
=
0
'False
Interval
=
2000
Left
=
3720
Top
=
-90
End
Begin PSTN2ChanTimer
Enabled
=
0
'False
Interval
=
2000
Left
=
3300
Top
=
-90
End
Begin PSTN1ChanTimer
Enabled
=
0
'False
Interval
=
2000
Left
=
2880
Top
=
-90
End
Begin PSTN1CANNO
Height
=
300
Left
=
1170
Picture
=
"":1BD5
Stretch
=
-1 'True
Top
=
330
Visible
=
0 'False
Width
=
300
End
Begin Label6
Caption
Height
Left
TabIndex
Top
= "
=
195
=
6480
= 12
=
390
=
825
卫星信道 :"
Width
End
Begin Label7
Caption
Height
Left
TabIndex
Top
=
"GSM
=
=
195
11
=
5010
信道 :"
=
390
Width
=
735
End
Begin Label8
Caption
= "PSTN3
Height
=
195
Left
=
3330
TabIndex
= 10
Top
=
390
Width
=
915
End
Begin Label9
Caption
= "PSTN2
Height
=
195
Left
=
1770
TabIndex
= 9
Top
=
390
Width
=
915
End
Begin Label10
Caption
= "PSTN1
Height
=
195
Left
=
180
TabIndex
= 8
Top
=
390
Width
=
915
End
Begin PSTN2CANNO
Height
=
300
Left
=
2790
Picture
=
"":206A
Stretch
=
-1 'True
Top
=
330
Visible
=
0 'False
Width
=
300
End
Begin GSMCANNO
Height
=
315
Left
=
5790
Picture
=
"":24FF
Stretch
=
-1 'True
Top
=
330
Visible
=
0 'False
Width
=
315
End
信道 :"
信道 :"
信道 :"
Begin PSTN3CANNO
Height
Left
Picture
Stretch
Top
Visible
Width
End
=
315
=
4350
=
"":2994
=
-1 'True
=
330
=
0 'False
=
315
Begin BDCANNO
Height
Left
Picture
Stretch
Top
Visible
Width
End
Height
Left
Picture
Top
Visible
=
315
=
7380
=
"":2E29
=
-1 'True
=
330
=
0 'False
=
315
Begin PSTN1CANYES
=
300
=
1170
=
"":32BE
=
330
=
0 'False
=
315
Width
Height
Left
Picture
Top
Visible
=
300
=
2790
=
"":3756
=
330
=
0 'False
=
315
Width
Height
Left
Picture
Top
Visible
Width
End
=
300
=
5790
=
"":3BEE
=
330
=
0 'False
=
315
Begin PSTN3CANYES
Height
=
300
Left
Picture
Top
Visible
=
4350
=
"":4086
=
330
=
0 'False
=
315
Width
Height
Left
Picture
Top
Width
End
End
=
300
=
7380
=
"":451E
=
330
=
0 'False
=
315
Visible
Begin ComFrame
Caption
Height
Left
TabIndex
Top
Width
=
"
=
795
=
60
=
4
=
750
通迅端口状态 "
=
13065
Begin GSMPollingTimer
Enabled
Interval
Left
Top
End
=
0
'False
=
200
=
8070
=
-90
Begin GSMPollingTimer2
Enabled
Interval
Left
=
0
'False
=
1000
=
9330
=
-90
Top
Enabled
Interval
Left
Top
End
=
0
'False
=
300
=
8910
=
-90
Begin GSMPollingTimer0
Enabled
Interval
Left
=
0
'False
=
2000
=
8490
Top
End
=
-90
Begin CommCOMNO
Height
Left
Picture
Stretch
Top
Visible
=
315
=
9000
=
"":49B6
=
-1 'True
=
330
=
0
'False
Width
=
315
End
Begin CommCOMYES
Height
=
300
Left
=
9000
Picture
=
"":4E4B
Top
=
330
Visible
=
0
'False
Width
=
315
End
Begin Label11
Caption
= "
Height
=
195
Left
=
8100
TabIndex
=
24
Top
=
390
Width
=
825
End
Begin Label1
Caption
= "PSTN1
Height
=
195
Left
=
180
TabIndex
=
17
Top
=
390
Width
=
915
End
Begin Label2
Caption
= "PSTN2
Height
=
195
Left
=
1800
TabIndex
=
16
Top
=
390
Width
=
915
End
Begin Label3
:"
串口 :"
串口 :"
电台串口
Caption
Height
Left
TabIndex
Top
Width
End
Height
= "PSTN3
=
195
串口 :"
=
3360
=
15
=
390
=
915
Begin GSMCOMNO
=
315
Left
=
5760
Picture
=
"":52E3Stretch
=
-1 'True
Top
=
330
Visible
=
0
'False
Width
=
315
End
Begin Label4
Caption
= "GSM
Height
=
195
Left
=
4980
TabIndex
=
14
Top
=
390
Width
=
735
End
Begin Label5
Caption
= "
Height
=
195
Left
=
6450
TabIndex
=
13
Top
=
390
Width
=
825
End
Begin PSTN1COMNO
Height
=
300
Left
=
1170
Picture
=
"":5778
Stretch
=
-1 'True
Top
=
330
Visible
=
0
'False
Width
=
300
End
Begin PSTN3COMNO
Height
=
315
Left
=
4320
串口 :"
卫星串口 :"
Picture
Stretch
Top
Visible
=
"":5C0D
=
-1 'True
=
330
=
0 'False
=
315
Width
Height
Left
Picture
Stretch
Top
Visible
Width
End
=
315
=
7350
=
"":60A2
=
-1 'True
=
330
=
0 'False
=
315
Begin PSTN2COMNO
Height
Left
Picture
Stretch
Top
Visible
=
300
=
2730
=
"":6537
=
-1 'True
=
330
=
0 'False
=
300
Width
Height
Left
Picture
Top
Visible
Width
End
=
300
=
2730
=
"":69CC
=
330
=
0 'False
=
315
Begin BDCOMYES
Height
Left
Picture
Top
Visible
Width
End
Height
Left
Picture
=
300
=
7350
=
"":6E64
=
330
=
0 'False
=
315
Begin PSTN3COMYES
=
300
=
4320
=
"":72FC
Top
Visible
=
330
=
0 'False
=
315
Width
Height
Left
Picture
Top
Visible
Width
End
=
300
=
5760
=
"":7794
=
330
=
0 'False
=
315
Begin PSTN1COMYES
Height
Left
Picture
Top
Visible
Width
=
300
=
1170
=
"":7C2C
=
330
=
0 'False
=
315
End
Caption
Height
Left
TabIndex
Top
Width
Height
Left
TabIndex
Top
Width
=
"
=
7485
=
60
=
3
最新数据 "
=
2490
=
10200
=
6825
=
90
=
19
Begin xGrid RealData1
=
270
=
10000
=
17648
=
12039
_ExtentX
_ExtentY
_Version
Cols
=
393216
=
4
FixedCols
=
3
BackColorFixed = -2147483629
_NumberOfBands =
1
_Band(0).Cols = 4
End
End
Begin CollectGSMTxtTimer
Interval
Left
Top
End
=
10000
=
15840
=
0
Begin GSMTxtTimer
Enabled
Interval
Left
= 0 'False
=
1000
=
16290
=
0
Top
Enabled
Interval
Left
Top
End
=
=
=
0
'False
1000
0
=
3180
Begin PSTN3Timer6
Enabled
Interval
Left
Top
End
=
=
=
0
'False
5000
0
=
9870
Begin PSTN2Timer6
Enabled
Interval
Left
Top
End
=
=
=
0
'False
1000
0
=
6510
Begin PSTN3Timer5
Enabled
Interval
Left
Top
End
=
=
0
'False
1000
=
9450
=
0
Begin PSTN2Timer5
Enabled
Interval
Left
=
=
=
0
'False
1000
0
=
6090
Top
Enabled
Interval
= 0 'False
=
1000
Left
Top
End
=
2760
=
0
Begin PSTN3Timer2
Enabled
Interval
Left
Top
End
= 0
'False
=
1000
=
8220
=
0
Begin PSTN3Timer1
Enabled
Interval
Left
Top
End
= 0
'False
=
200
=
7800
=
0
Begin PSTN3Timer4
Enabled
Interval
Left
= 0
'False
=
1000
=
9030
=
0
Top
Enabled
Interval
Left
Top
End
=
0
'False
=
1500
=
8610
=
0
Begin PSTN2Timer2
Enabled
Interval
Left
Top
End
=
0
'False
=
1000
=
4860
=
0
Begin PSTN2Timer1
Enabled
Interval
Left
Top
End
=
0
'False
=
200
=
4440
=
0
Begin PSTN2Timer4
Enabled
Interval
Left
Top
=
0
'False
=
1000
=
5670
=
0
End
Begin PSTN2Timer3
Enabled
Interval
Left
Top
End
=
0
'False
=
1500
=
5250
=
0
Begin PSTN1Timer3
Enabled
Interval
Left
Top
End
=
0
'False
=
1500
=
1920
=
0
Begin PSTN1Timer4
Enabled
Interval
Left
Top
End
=
0
'False
=
1000
=
2340
=
0
Begin BDTimer
Enabled
Interval
Left
Top
End
=
0
'False
=
2000
=
14820
=
0
Begin PSTN1Timer1
Enabled
Interval
Left
=
0
'False
=
200
=
1110
=
0
Top
Enabled
Interval
Left
Top
End
=
0
'False
=
500
=
13680
=
0
Begin GSMTimer3
Enabled
Interval
Left
=
0
'False
=
500
=
13260
=
0
Top
End
Begin GSMTimer5
Enabled
Interval
Left
Top
End
=
0
'False
=
300
=
14100
=
0
Begin PSTN1Timer2
Enabled
Interval
Left
=
0
'False
=
1000
=
1530
=
0
Top
Enabled
Interval
Left
Top
End
Interval
Left
Top
End
=
0
'False
=
100
=
12840
=
0
Begin Refresh_Time
=
500
=
1800
=
10260
Begin Bar StatusBar1
Align
Height
Left
TabIndex
Top
Width
_ExtentX
_ExtentY
_Version
=
2
'Align Bottom
=
495
=
0
=
0
=
10215
=
15240
=
26882
=
873
=
393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels
Alignment
MinWidth
=
3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
=
1
= 1764
=
1764
EndProperty
Alignment = 1
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
= 2
= 2
MinWidth
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
= 1764
= 1764
MinWidth
Caption
Height
Left
TabIndex
Top
Width
Height
Left
TabIndex
Top
=
"
=
=
585
20
公告信息 "
=
60
=
60
=
=
=
11865
255
21
4155
Begin Information
=
270
=
270
Width
End
End
=
Begin RealDFrame
Caption
Height
Left
TabIndex
Top
Width
=
=
"
=
7485
=
10350
=
22
2490
最新数据 "
=
10395
Begin RealData1Refresh
Interval
Left
=
20
=
1290
Top
=
-30
Height
Left
TabIndex
Top
Width
_ExtentX
_ExtentY
_Version
Cols
=
6825
=
90
=
23
=
270
=
10215
=
18018
=
12039
=
393216
=
4
FixedCols
HighLight
= 3
= 2
BackColorFixed = -2147483629
_NumberOfBands =
1
_Band(0).Cols = 4
End
End
Begin File_M
Caption
= "
文件 (&F)"
WindowList
= -1 'True
Begin Reg_M
Caption
= "
End
Begin Longin_M
Caption
= "
End
Begin Logout_M
Caption
=
"
End
Begin Modify_PW_M
Caption
=
"
End
Begin line11
Caption
=
"-"
End
Begin MSG_M
Caption
=
"
End
Begin LogShow_M
Caption
=
"
End
Begin line12
Caption
=
"-"
End
Begin PreUser
Caption
=
"
End
Begin line13
Caption
=
"-"
End
Begin mnuhide
Caption
=
"
End
Begin line14
用户管理
(&R)"
更换用户
(&D)"
退出登录 (&Q)"
修改密码 (&E)"
原始信息 (&Y)"
日志查询 (&C)"
无用户登录 "
隐藏 (&H)"
Caption
End
=
"-"
Begin Exit_M
Caption
End
End
Caption
Caption
End
Caption
End
Caption
End
Caption
End
End
Caption
Caption
End
Caption
End
=
"
退出 (&X)"
Begin Operate_M
= "
=
"
操作 (&O)"
数据召测 (&Z)"
Begin Zhaoche_M
Begin RTU_M
=
"RTU
参数操作 (&R)"
Begin line21
=
"-"
Begin GPRSMonitorC_M
=
"GPRS
监控操作 (&G)"
Begin System_M
= "
=
"
系统 (&S)"
系统设置管理 (&S)"
Begin SystemSetup_M
Begin line31
=
"-"
Begin SQSINF_M
Caption
End
=
"
水情测站信息管理 (&T)"
Begin RTUPre_M
Caption
End
Caption
End
Caption
End
Caption
End
=
"RTU
参数管理 (&U)"
Begin Code_M
=
"
测站编码转换设置 (&C)"
Begin line32
=
"-"
Begin RTUCP_M
=
"RTU
通信协议设置 (&C)"
Begin line33
Caption
End
=
"-"
Begin ZQR_M
Caption
=
"
End
Begin ZVARL_M
Caption
=
"
End
End
Begin FDFSPre_M
Caption
=
"
Begin FSDR_M
Caption
=
"
End
Begin ZQRL_M
Caption
=
"
Visible
=
0
'False
End
Begin FDFSLine_M
Caption
=
"-"
Visible
=
0
'False
End
Begin INSTCD_M
Caption
=
"
End
End
Begin FDFS_M
Caption
=
"
Begin RNFL_M
Caption
=
"
End
Begin RIVER_M
Caption
=
"
End
End
Begin Data_M
Caption
=
"
Begin RealData_M
Caption
=
"
End
Begin line41
Caption
=
"-"
End
水位流量关系 (&R)"
库 ( 湖 ) 容曲线 (&Z)"
洪水预报参数管理 (&M)"
洪水传播时间管理 (&M)"
典型洪水水位流量关系
(&R)"
水文预报发布单位编码
"
洪水预报 (&H)"
降水量预报 (&P)"
河道水情预报 (&Z)"
信息检索查询 (&D)"
刷新实时数据 (&R)"
Begin SQirPQuery_M
Caption
End
Begin SQirZQQuery_M
Caption
= "
河道水情信息查询
(&S)"
= "
降水量信息查询
(&P)"
Caption
End
=
"
水库水情信息查询 (&Z)"
Begin GKirQuery_M
Caption
End
=
"
工况信息查询 (&G)"
Begin line42
Caption
End
=
"-"
Begin InfoSortD_M
Caption
End
Caption
=
"
信息分类处理 (&S)"
Begin StatSmooth_M
=
"
畅通率统计 (&C)"
Caption
End
End
= "
人工置数处理
(&Z)"
Begin About
Caption
Caption
End
= "
= "
关于 (&B)"
Begin About_m
关于 (&A)"
Caption
Visible
Caption
End
= "Popup"
= 0 'False
= "
Begin mnuTrayRestore
显示 (&R)"
Begin popmnuhide
Caption
Visible
End
= "
= 0 'False
隐藏 (&H)"
Begin mnuTrayMove
Caption
= "
= 0 'False
Visible
End
Begin mnuTraySize
Caption
= "
= 0 'False
移动 (&M)"
大小 (&S)"
Visible
End
Begin mnuTrayMinimize
Caption
= "
最小化
(&I)"
End
Begin mnuTrayMaximize
Caption
= "
= 0 'False
最大化
(&A)"
Visible
End
Begin mnuTraySep
Caption
End
Begin mnuTrayClose
Caption
= "
= "-"
关闭 (&C)"
End
End
End
Private Sub WQirQuery_M_Click()
End Sub
Private Sub WQSINF_M_Click()
End Sub
Private Sub WRDFAG_M_Click()
End Sub
Private Sub WRirsAQQuery_M_Click()
End Sub
Private Sub WRirsFWQTQuery_M_Click()
End Sub
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; ""
Begin FSDR
Caption
=
"
洪水传播时间 "
ClientHeight
=
7815
ClientLeft
=
60
ClientTop
=
450
ClientWidth
=
13215
Icon
LinkTopic
=
"Form1"
LockControls
ScaleHeight
=
-1
'True
=
7815
MaxButton
=
0
'False
=
"":0000
ScaleWidth
=
13215
StartUpPosition =
2
'
屏幕中心
Begin ox RCHLENCom
Height
Left
List
Style
Top
Width
End
=
300
ItemData
=
"":164A
=
8520
=
"":164C
=
1
'Simple Combo
TabIndex
=
=
10
105
=
1455
Begin ox DWSTCDCom
Height
Left
List
Top
=
300
ItemData
=
"":164E
=
4650
=
"":168B
TabIndex
=
=
9
105
Width
=
2775
Height
ItemData
Left
List
Style
TabIndex
Top
=
300
=
"":1727
=
4260
=
"":1729
=
1
'Simple Combo
=
8
=
555
=
885
Width
End
Begin ox MXTRTMCom
Height
ItemData
Left
List
Style
TabIndex
Top
Width
End
Height
ItemData
Left
List
Style
TabIndex
Top
Width
End
Caption
Height
Left
TabIndex
Top
=
300
=
"":172B
=
6420
=
"":172D
=
1
'Simple Combo
=
7
=
555
=
1005
Begin ox AVTRTMCom
=
300
=
"":172F
=
8700
=
"":1731
=
1
'Simple Combo
=
6
=
555
=
1275
=
"
=
=
400
5
修改 "
=
11100
=
505
=
1000
Width
Caption
Height
Left
TabIndex
Top
=
"
=
=
400
4
新增 "
=
10050
=
505
=
1000
Width
Caption
Height
Left
TabIndex
Top
=
"
=
400
删除 "
=
12150
=
=
3
1000
=
505
Width
End
Begin ox SFTQCom
Height
ItemData
Left
List
Style
TabIndex
Top
Width
End
Height
ItemData
Left
List
TabIndex
Top
Width
End
=
300
=
"":1733
=
11550
=
"":1735
=
1
'Simple Combo
=
2
=
105
=
1575
Begin ox UPSTCDCom
=
300
=
"":1737
=
930
=
"":17D1
=
1
=
105
=
2775
Begin ox QMGNCom
Height
ItemData
Left
List
Style
TabIndex
Top
Width
End
=
300
=
"":18CF
=
1530
=
"":18D1
=
1
'Simple Combo
=
0
=
555
=
1455
Begin ew FSDRListView
Height
Left
TabIndex
Top
Width
_ExtentX
_ExtentY
LabelEdit
LabelWrap
=
6795
=
30
=
11
=
975
=
13125
=
23151
=
11986
=
1
=
-1
'True
'False
HideSelection
= 0
GridLines
_Version
ForeColor
FullRowSelect = -1 'True
=
-1
'True
=
393217
=
-2147483640
BackColor
=
-2147483643
BorderStyle
=
1
Appearance
=
1
NumItems
=
0
End
Begin CZLabel
Caption
= "
Height
=
255
Index
=
13
Left
=
7470
TabIndex
=
19
Top
=
135
Width
=
1005
Caption
=
"
Height
=
255
Index
=
0
Left
=
3750
TabIndex
=
18
Top
=
135
Width
=
825
End
Begin CZLabel
Caption
=
"
Height
=
255
Index
=
1
Left
=
3030
TabIndex
=
17
Top
=
578
Width
=
1185
End
Begin CZLabel
Caption
=
"
Height
=
255
Index
=
2
Left
=
5190
TabIndex
=
16
Top
=
578
Width
=
1185
End
Begin CZLabel
Caption
= "
Height
=
255
河段长 (km):"
下游站码 :"
最小传播时间 :"
最大传播时间 :"
平均传播时间
:"
Index
Left
TabIndex
Top
=
3
=
7470
= 15
=
578
=
1185
Width
Caption
Height
Index
Left
TabIndex
Top
Width
End
=
"
=
255
=
8
=
10050
=
14
=
135
=
1455
安全泄量 (m^3/s):"
Begin CZLabel
Caption
Height
Index
Left
TabIndex
Top
=
"
=
255
=
10
=
60
=
13
=
128
=
825
上游站码 :"
Width
Caption
Height
Index
Left
TabIndex
Top
= "
=
255
=
11
=
30
=
12
流量量级 (m^3/s):"
=
578
=
1455
Width
End
End
Attribute VB_Name = "FSDR"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Function Refresh_Display()
Dim Clg_listItem As ListItem
Dim Clg_Ado_Conn As New tion
Dim Clg_Ado_Recordset As New set
Dim Counter, Fields_No, Com_No, Record_No, Pre_Counter As Integer
'User-Pwd 是用户密码； User_Name是用户名； Database_Name是数据库名； server_name 是服务器
名
Select Case SQDB_Type
Case "SQL Server"
Clg_Ado_tionString = "Provider=SQLOLEDB.1;Password=" & User_Pwd &
";Persist
Security Info=True;User
ID=" & User_Name & ";Initial
Catalog="
& Database_Name
& ";Data Source=" & Server_Name
Case "Oracle"
Clg_Ado_tionString = "Provider=.1;Password=" &
User_Pwd & ";Persist Security Info=True;User ID=" & User_Name & ";Data Source="
& Server_Name
Case Else
Exit Function
End Select
Clg_Ado_
Clg_Ado_ "select * from ST_FSDR_B", Clg_Ado_Conn, adOpenKeyset,
adLockOptimistic
If Clg_Ado_ = False Then
Clg_Ado_rst
End If
For Record_No = 0 To Clg_Ado_Count - 1
Set Clg_listItem = ()
Clg_ms(1) = Format(Trim(Record_No), "000")
If Not IsNull(Trim(Clg_Ado_("UPSTCD"))) Then
Clg_ms(2) = Trim(Clg_Ado_("UPSTCD"))
End If
If Not IsNull(Trim(Clg_Ado_("DWSTCD"))) Then
Clg_ms(3) = Trim(Clg_Ado_("DWSTCD"))
End If
If Not IsNull(Trim(Clg_Ado_("RCHLEN"))) Then
Clg_ms(4) = Trim(Clg_Ado_("RCHLEN"))
End If
If Not IsNull(Trim(Clg_Ado_("SFTQ"))) Then
Clg_ms(5) = Trim(Clg_Ado_("SFTQ"))
End If
If Not IsNull(Trim(Clg_Ado_("QMGN"))) Then
Clg_ms(6) = Trim(Clg_Ado_("QMGN"))
End If
If Not IsNull(Trim(Clg_Ado_("MNTRTM"))) Then
Clg_ms(7) = Trim(Clg_Ado_("MNTRTM"))
End If
If Not IsNull(Trim(Clg_Ado_("MXTRTM"))) Then
Clg_ms(8) = Trim(Clg_Ado_("MXTRTM"))
End If
If Not IsNull(Trim(Clg_Ado_("AVTRTM"))) Then
Clg_ms(9) = Trim(Clg_Ado_("AVTRTM"))
End If
Clg_Ado_xt
Next Record_No
Clg_Ado_
Set Clg_Ado_Recordset = Nothing
Clg_Ado_
End Function
Private Sub Form_Load()
Dim Clg_Ado_Conn As New tion
Dim Clg_Ado_Recordset As New set, CLG_ST_STBPRP_B As New
set Dim Fields_No, Record_No, Counter As Integer
'
最后关闭记录集，释放记录集变量
Dim Clg_listItem As ListItem
Dim Ret As String, NC As Long, STCD As String, STNM As
String On Error Resume Next
' 加载测站配置信息
Clg_Ado_tionString = "Provider=SQLOLEDB.1;Password=" & User_Pwd &
";Persist
Security Info=True;User
ID=" & User_Name & ";Initial
Catalog="
& Database_Name
& ";Data Source=" & Server_Name
Case "Oracle"
Clg_Ado_tionString = "Provider=.1;Password=" &
User_Pwd & ";Persist Security Info=True;User ID=" & User_Name & ";Data Source="
& Server_Name
Case Else
Exit Sub
Clg_Ado_ "select * from ST_STBPRP_B ORDER BY STCD", Clg_Ado_Conn,
adOpenKeyset, adLockOptimistic
If Clg_Ado_ = False Then
Clg_Ado_rst
For Record_No = 0 To Clg_Ado_Count - 1
' 加载 Rv的站点选择信息
(Trim(Clg_Ado_("STCD").Value)
& Space(1)
m
& Trim(Clg_Ado_("STNM").Value))
m
Clg_Ado_xt
(Trim(Clg_Ado_("STCD").Value)
& Space(1)
& Trim(Clg_Ado_("STNM").Value))
Next Record_No
End If
Clg_Ado_
Set Clg_Ado_Recordset = Nothing
Clg_Ado_
, , "", * 1 / 100
, , "
, , "
, , "
, , "
, , "
, , "
, , "
, , "
, , "
= lvwReport
Call Refresh_Display
End Sub
序号 ", * 1 / 20
'
最后关闭记录集，释放记录集变量
上游站码 ", * 1 / 10
下游站码 ", * 1 / 10
河段长 (km)", * 1 / 10
安全泄量 (m^3/s)", * 1 / 8
流量量级 (m^3/s)", * 1 / 8
最小传播时间
", * 1 / 10
最大传播时间
", * 1 / 10
平均传播时间
", * 1 / 10
Private Sub FSDRListView_Click()
Dim Counter As Integer
On Error Resume Next
If <> 0 Then
= bItems(2).Text
= bItems(3).Text
= bItems(4).Text
= bItems(5).Text
= bItems(6).Text
= bItems(7).Text
= bItems(8).Text
= bItems(9).Text
End If
End Sub
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; ""
Begin INSTCD
Caption
= "
水文预报发布单位编码
"
ClientHeight =
7245
ClientLeft
ClientTop
ClientWidth
Icon
LinkTopic
LockControls
MaxButton
ScaleHeight
ScaleWidth
=
60
=
450
=
12765
=
"Form1"
=
-1
'True
=
0
'False
=
7245
=
12765
=
"":0000
StartUpPosition =
2
'
Height
=
300
屏幕中心
Begin ox INSTNMCom
ItemData
Left
List
TabIndex
Top
Width
End
=
"":164A
=
4650
=
5
=
90
=
4725
=
"":164C
Begin ox RLSINSTCDCom
Height
Left
List
TabIndex
Top
Width
End
Height
Left
List
TabIndex
Top
Width
=
300
=
1350
=
4
=
90
=
2265
ItemData
=
"":164E
=
"":1650
Begin ox ADMAUTHCom
=
300
=
10410
ItemData
=
"":1652
=
"":1654
=
3
=
90
=
2265
End
Caption
Height
Left
=
"
=
=
400
2
修改 "
=
10620
=
510
=
1000
TabIndex
Top
Width
End
Begin dButton RTUCP_ADDNEW_CMD
Caption
Height
Left
TabIndex
Top
=
"
=
=
=
400
1
1000
新增 "
=
9540
=
510
Width
Caption
Height
Left
TabIndex
Top
=
"
=
400
删除 "
=
11700
=
=
0
1000
=
510
Width
Height
Left
TabIndex
Top
Width
_ExtentX
_ExtentY
LabelEdit
LabelWrap
=
6195
=
0
=
6
=
990
=
12705
=
22410
=
10927
=
1
=
-1
'True
HideSelection
=
0
'False
FullRowSelect = -1 'True
GridLines
_Version
ForeColor
BackColor
BorderStyle
NumItems
End
Caption
Height
Index
Left
TabIndex
Top
=
-1
'True
=
393217
=
-2147483640
=
-2147483643
=
1
=
0
Appearance
=
1
Begin CZLabel
=
"
=
225
=
13
=
3720
=
9
=
135
单位名称 :"
Width
End
=
825
Begin CZLabel
Caption
Height
Index
Left
TabIndex
Top
= "
=
255
=
0
=
60
=
8
=
120
=
1185
发布单位代码 :"
Width
Caption
Height
Index
Left
TabIndex
Top
Width
= "
=
255
=
1
=
9510
=
7
=
120
=
管理机构 :"
825
End
End
Attribute VB_Name = "INSTCD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Function Refresh_Display()
Dim Clg_listItem As ListItem
Dim Clg_Ado_Conn As New tion
Dim Clg_Ado_Recordset As New set
Dim Counter, Fields_No, Com_No, Record_No, Pre_Counter As Integer 'User-Pwd 是用户密码；
User_Name是用户名； Database_Name是数据库名； server_name 是服务器名
Select Case SQDB_Type
Case "SQL Server"
Clg_Ado_tionString = "Provider=SQLOLEDB.1;Password=" & User_Pwd &
";Persist
Security Info=True;User
ID=" & User_Name & ";Initial
Catalog="
& Database_Name
& ";Data Source=" & Server_Name
Case "Oracle"
Clg_Ado_tionString = "Provider=.1;Password=" &
User_Pwd & ";Persist Security Info=True;User ID=" & User_Name & ";Data Source="
& Server_Name
Case Else
Exit Function
End Select
Clg_Ado_
Clg_Ado_ "select * from ST_INSTCD_B", Clg_Ado_Conn, adOpenKeyset,
adLockOptimistic
If Clg_Ado_ = False Then
Clg_Ado_rst
End If
For Record_No = 0 To Clg_Ado_Count - 1
Set Clg_listItem = ()
Clg_ms(1) = Format(Trim(Record_No), "000")
If Not IsNull(Trim(Clg_Ado_("RLSINSTCD"))) Then
Clg_ms(2) = Trim(Clg_Ado_("RLSINSTCD"))
End If
If Not IsNull(Trim(Clg_Ado_("INSTNM"))) Then
Clg_ms(3) = Trim(Clg_Ado_("INSTNM"))
End If
If Not IsNull(Trim(Clg_Ado_("ADMAUTH"))) Then
Clg_ms(4) = Trim(Clg_Ado_("ADMAUTH"))
End If
Clg_Ado_xt
Next Record_No
Clg_Ado_ ' 最后关闭记录集，释放记录集变量 Set Clg_Ado_Recordset
= Nothing
Clg_Ado_
End Function
Private Sub Form_Load()
, , "", * 1 / 100
, , "
, , "
, , "
, , "
= lvwReport
Call Refresh_Display
End Sub
Private Sub INSTCDListView_Click()
Dim Counter As Integer
On Error Resume Next
If <> 0 Then
= bItems(2).Text
= bItems(3).Text
序号 ", * 1 / 10
发布单位代码
", * 1 / 6
单位名称 ", * 1 / 2
管理机构 ", * 1 / 6
= bItems(4).Text
Else
= ""
= ""
= ""
End If
End Sub
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; ""
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; ""
Begin RNFL
Caption
=
"
降水量预报 "
ClientHeight
=
7215
ClientLeft
=
60
ClientTop
=
450
ClientWidth
Icon
=
12645
=
"":0000
=
-1
'True
=
=
0
'False
12645
屏幕中心
数据查询 "
=
7215
LinkTopic
=
"Form1"
LockControls
MaxButton
ScaleHeight
ScaleWidth
StartUpPosition =
2
'
Begin Frame9
Caption
Height
Left
Top
Width
=
"
=
2685
=
30
TabIndex
=
=
0
60
=
4875
=
"
=
2325
测站选择 "
Begin Frame1
Caption
Height
Index
Left
=
1
=
120
TabIndex
Top
=
8
2265
=
240
=
Width
Begin x CXList
Height
Left
Style
=
1530
=
90
=
1
'Checkbox
TabIndex
=
10
Top
Width
End
Caption
Height
Left
TabIndex
Top
Width
=
630
=
2025
Begin ox CXlistCheck
= "
=
255
=
150
=
9
=
300
=
1035
所有站点 "
End
BackColor
BorderStyle
Height
Left
TabIndex
Text
Top
Width
End
=
&H8000000F&
=
0
'None
=
240
=
2610
=
7
=
"
=
780
=
825
起始时间 :"
Begin x Text4
BackColor
BorderStyle
Height
Left
TabIndex
Text
Top
Width
End
=
&H8000000F&
=
0
'None
=
240
=
2610
=
6
=
"
=
1230
=
765
结束日期 :"
Begin x Text5
BackColor
BorderStyle
Height
Left
TabIndex
Text
Top
Width
End
=
&H8000000F&
=
0
'None
=
240
=
2610
=
5
=
"
=
1680
=
765
结束时间 :"
Begin x Text2
BackColor
=
&H8000000F&
BorderStyle
Height
Left
TabIndex
Text
Top
=
=
0 'None
240
=
2610
=
4
=
"
=
330
=
855
起始日期 :"
Width
Caption
Height
Left
TabIndex
Top
=
"
=
430
=
2610
=
2
查询 "
=
2130
=
1000
Width
End
Caption
Height
Index
Left
TabIndex
Top
Width
End
Begin dButton OutPutCMD
=
"EXCEL
=
430
=
3
=
3720
=
1
=
2130
=
1000
导出 "
Begin er CXEndTime
Height
Left
TabIndex
Top
Width
_ExtentX
_ExtentY
_Version
Format
CurrentDate
End
Height
Left
TabIndex
Top
Width
_ExtentX
=
360
=
3420
=
11
=
1620
=
1305
=
2302
=
635
=
393216
=
21364738
= 39731.3333333333
Begin er CXEndDate
=
300
=
3420
=
12
=
1200
=
1305
=
2302
_ExtentY
=
529
_Version
=
393216
Format
End
=
21364737
CurrentDate
=
39731
Begin er CXStartTime
Height
Left
Top
Width
=
360
=
3450
=
720
=
1305
TabIndex
=
13
_ExtentX
=
2302
_ExtentY
=
635
_Version
=
393216
Format
=
21364738
UpDown
=
-1 'True
CurrentDate
End
Height
Left
Top
Width
=
39731.3333333333
Begin er CXStartDate
=
300
=
3480
=
300
=
1305
TabIndex
=
14
_ExtentX
=
2302
_ExtentY
=
529
_Version
=
393216
Format
End
=
21364737
CurrentDate
=
39731
Height
Left
TabIndex
Top
Width
_ExtentX
_ExtentY
LabelEdit
Sorted
MultiSelect
LabelWrap
=
4335
=
0
=
3
=
2820
=
12585
=
22199
=
7646
=
1
=
-1
'True
=
-1
'True
=
-1
'True
HideSelection
=
0
'False
FullRowSelect = -1 'True
GridLines
_Version
ForeColor
BackColor
BorderStyle
Appearance
NumItems
End
End
Attribute VB_Name = "RNFL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CXlistCheck_Click()
Dim Counter As Integer
If = 1 Then
For Counter = 0 To unt - 1
ed(Counter) = True
Next Counter
Else
For Counter = 0 To unt - 1
ed(Counter) = False
Next Counter
End If
End Sub
Private Sub Form_Load()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim Counter As Integer
=
-1 'True
= 393217
=
-2147483640
=
-2147483643
=
1
=
1
=
0
Dim fs, ts As Object
Dim f
Dim DB_P_Str, DB_P_File As String
Dim Clg_Ado_Conn As New tion
Dim Clg_Ado_Recordset As New set
Dim Fields_No, Com_No, Record_No As Integer
Dim File_Path As String
On Error Resume Next
' 加载测站配置信息
Select Case SQDB_Type
Case "SQL Server"
Clg_Ado_tionString = "Provider=SQLOLEDB.1;Password=" & User_Pwd &
";Persist
Security Info=True;User
ID=" & User_Name & ";Initial
Catalog="
& Database_Name
& ";Data Source=" & Server_Name
Case "Oracle"
Clg_Ado_tionString = "Provider=.1;Password=" &
User_Pwd & ";Persist Security Info=True;User ID=" & User_Name & ";Data Source="
& Server_Name
Clg_Ado_ "select * from ST_STBPRP_B ORDER BY STCD", Clg_Ado_Conn,
adOpenKeyset, adLockOptimistic
' 加载 RTU的站点选择信息
m Trim(Clg_Ado_(0)) & Space(1) &
Trim(Clg_Ado_(1))
Clg_Ado_xt
Next Record_No
End If
Clg_Ado_
Set Clg_Ado_Recordset = Nothing
Clg_Ado_
'
最后关闭记录集，释放记录集变量
, , "", * 1 / 100
, , "
, , "
, , "
, , "
, , "
, , "
, , "
, , "
, , "
, , "
, , "
= lvwReport
序号 ", * 1 / 20
预报区域代码
", * 1 / 8
测站名称 ", * 1 / 8
发生时间 ", * 1 / 6
预报降水量 (mm)", * 1 / 8
预报降水历时
(h)", * 1 / 8
预报降雨趋势
", * 1 / 8
预报水情发生日
", * 1 / 6
发布时间 ", * 1 / 6
发布单位代码
", * 1 / 8
根据时间 ", * 1 / 6
= Date
= Date
End Sub
Private Sub ZCDataBrowseCMD_Click()
Dim Clg_Ado_Conn As New tion
Dim Clg_Ado_Recordset As set, Clg_Ado_Recordset1 As New set
Dim Fields_No, Com_No, Record_No, Counter As Integer
Dim Clg_listItem As ListItem
Dim SelectStr, STCDSTR As String, FAREACD As String, STNM As String, INTV As String,
STTDRCD As String, TM As String
'On Error Resume Next
'User-Pwd 是用户密码； User_Name是用户名； Database_Name是数据库名； server_name 是服务器
名
Select Case SQDB_Type
Case "SQL Server"
Clg_Ado_tionString = "Provider=SQLOLEDB.1;Password=" & User_Pwd &
";Persist
Security Info=True;User
ID=" & User_Name & ";Initial
Catalog="
& Database_Name
& ";Data Source=" & Server_Name
Case "Oracle"
Clg_Ado_tionString = "Provider=.1;Password=" &
User_Pwd & ";Persist Security Info=True;User ID=" & User_Name & ";Data Source="
& Server_Name
Case Else
Exit Sub
End Select
Clg_Ado_
STCDSTR = ""
SelectStr = ""
For Counter = 0 To unt - 1
If ed(Counter) = True Then
If STCDSTR = "" Then
STCDSTR = STCDSTR & "'" & Trim(Mid((Counter), 1,
InStr((Counter), " ") - 1)) & "'"
Else
STCDSTR = STCDSTR & ",'" & Trim(Mid((Counter), 1,
InStr((Counter), " ") - 1)) & "'"
End If
End If
Next Counter
If STCDSTR <> "" Then
发布评论