源码中小河流洪水预报系统MicrosoftVisualStudio源码.docx
- 文档编号:3924093
- 上传时间:2022-11-26
- 格式:DOCX
- 页数:90
- 大小:39.46KB
源码中小河流洪水预报系统MicrosoftVisualStudio源码.docx
《源码中小河流洪水预报系统MicrosoftVisualStudio源码.docx》由会员分享,可在线阅读,更多相关《源码中小河流洪水预报系统MicrosoftVisualStudio源码.docx(90页珍藏版)》请在冰豆网上搜索。
源码中小河流洪水预报系统MicrosoftVisualStudio源码
中小河流洪水预报系统源程序
VERSION5.00
Object="{648A5603-2C6E-101B-82B6-000000000014}#1.1#0";"MSCOMM32.OCX"
Object="{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0";"MSCOMCTL.OCX"
BeginVB.FormStart
BorderStyle
=
0'None
Caption
=
"Form1"
ClientHeight
=
4515
ClientLeft
=
0
ClientTop
=
0
ClientWidth
=
5610
FillStyle
=
0
'Solid
Icon
=
"Start.frx":
0000
LinkTopic
=
"Form1"
LockControls
=
-1
'True
MaxButton
=
0'False
MinButton
=
0
'False
Picture
=
"Start.frx":
030A
ScaleHeight
=
4515
ScaleWidth
=
5610
ShowInTaskbar
=
0
'False
StartUpPosition=
2
'
屏幕中心
BeginMSComctlLib.ProgressBarStarProgressBar
Height
=
375
Left
=
-30
TabIndex
=
0
Top
=
4140
Width
=
5685
_ExtentX
=
10028
_ExtentY
=
661
_Version
=
393216
Appearance
=
1
End
BeginVB.TimerTimer2
Enabled
=
0
'False
Interval
=
2000
Left
=
5160
Top
=
3090
End
BeginMSCommLib.MSCommMSComm1
Left
=
4110
Top
=
3090
_ExtentX
=
1005
_ExtentY
=
1005
_Version
=
393216
DTREnable
=-1'True
Enabled
=0'False
Interval
=
100
Left
=
4710
Top
=
3090
End
BeginVB.ImageImage2
DragMode
=1'Automatic
Height
=
4470
Left
=
30
Picture
=
"Start.frx":
1B660
Stretch
=
-1'True
Top
=
30
Width
=
5550
End
End
AttributeVB_Name="Start"
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=True
AttributeVB_Exposed=False
OptionExplicit
PrivateSubForm_Load()
ConstForReading=1,ForWriting=2,ForAppending=3
ConstTristateUseDefault=-2,TristateTrue=-1,TristateFalse=0DimCounterAsInteger
Dimfs,tsAsObject
Dimf
DimDB_P_Str,DB_P_FileAsString
DimClg_Ado_ConnAsNewADODB.Connection
DimClg_Ado_RecordsetAsNewADODB.Recordset
DimFields_No,Com_No,Record_NoAsInteger
DimFile_PathAsString
OnErrorResumeNext
ClgDogPassword=508282156
CallDogInitialize
IfApp.PrevInstanceThen
MsgBox"本软件已启动",vbInformation,"提示信息"
End
EndIf
'载入数据库配置信息
File_Path=Dir(App.Path&"\ini\",vbDirectory)
IfFile_Path=""Then
MkDir"ini"
EndIf
File_Path=Dir(App.Path&"\data\",vbDirectory)
IfFile_Path=""Then
MkDir"data"
MkDir"data\collect"
MkDir"data\get"
MkDir"data\get\backup"
MkDir"data\send"
MkDir"data\send\backup"
MkDir"data\rgsdata\"
MkDir"data\rgsdata\backup"
MkDir"data\report"
MkDir"log"
EndIf
DB_P_File=Dir(App.Path&"\ini\sccgsqs.ini")
IfDB_P_File="sccgsqs.ini"Then
CallGet_DB_Pr
IfServer_Name<>""OrDatabase_Name<>""OrUser_Name<>""OrUser_Pwd<>""
Then
IfDBConnFlag=TrueThen
Timer1=True
Me.Show
Else
Me.Hide
MsgBox"数据库访问失败,请检查数据库配置和数据库服务器及网络设备是否正
常?
",vbInformation,"提示信息"
System_Setup.Show
EndIf
Else
Me.Hide
MsgBox"数据库还没进行配置,请配置数据库",vbInformation,"提示信息"
System_Setup.Show
ExitSub
EndIf
Else
Me.Hide
MsgBox"数据库还没进行配置,请配置数据库",vbInformation,"提示信息"
System_Setup.Show
ExitSub
EndIf
EndSub
PrivateSubTimer2_Timer()
DimResponseAsString
IfComFlag=TrueThen
Main.Show
Else
Response=""
Response=MsgBox("串口设置与串口硬件情况不符,请检查串口配置或串口设备
"&vbCr&
_
"是否直接启动串口设置窗口?
息")
IfResponse=vbYesThen
System_Setup.Show
Else
Main.Show
EndIf
EndIf
Me.Hide
Me.Timer2=False
EndSub
",vbYesNo+vbQuestion+vbDefaultButton2,"
提示信
PrivateSubTimer1_Timer()
'载入串口参数,并进行串口初始化
IfWorkMode="采集模式"OrWorkMode="服务器"Then
STCDDot=10000
CallReadDog
CallGet_Com_Pr
CallCom_Detect
Main.Caption=Main.Caption&"--采集工作模式"
Timer2=True
Else
Me.Hide
Main.GSMPollingCMD.Visible=False
Main.StartChanTestCMD.Visible=False
Main.TimescaleCheckCMD.Visible=False
Main.Operate_M.Visible=False
Main.PollingTimer.Enabled=False
Main.StartTestTimer.Enabled=False
Main.Reg_M.Visible=False
Main.ZQR_M.Visible=False
Main.StatSmooth_M.Visible=False
Main.RR_M.Visible=False
Main.line43.Visible=False
Main.line33.Visible=False
Main.line42.Visible=False
System_Setup.COM_EDIT_CMD.Enabled=False
System_Setup.XZ_ADDNEW_CMD.Enabled=False
System_Setup.XZ_EDIT_CMD.Enabled=False
System_Setup.XZ_DEL_CMD.Enabled=False
System_Setup.RTU_ADDNEW_CMD.Enabled=False
System_Setup.RTU_EDIT_CMD.Enabled=False
System_Setup.RTU_DEL_CMD.Enabled=False
System_Setup.RV_ADDNEW_CMD.Enabled=False
System_Setup.RV_EDIT_CMD.Enabled=False
System_Setup.RV_DEL_CMD.Enabled=False
System_Setup.SavePrCMD.Enabled=False
SQirZQQuery.BatchCMD.Enabled=False
SQirZQQuery.CT_ADDNEW_CMD.Enabled=False
SQirZQQuery.CT_EDIT_CMD.Enabled=False
SQirZQQuery.CT_DEL_CMD.Enabled=False
SQirZQQuery.LJPCMD.Enabled=False
SQirZQQuery.P_ADDNEW_CMD.Enabled=False
SQirZQQuery.LJP_EDIT_CMD.Enabled=False
SQirZQQuery.P_DEL_CMD.Enabled=False
Main.Caption=Main.Caption&"--
非采集工作模式
"
Main.Show
CallComState_Display
EndIf
Timer1=False
EndSub
VERSION5.00
Object="{648A5603-2C6E-101B-82B6-000000000014}#1.1#0";"MSCOMM32.OCX"
Object="{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0";"MSCOMCTL.OCX"
Object="{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0";"MSHFLXGD.OCX"
Object="{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0";"MSWINSCK.OCX"
BeginVB.FormMain
Caption
=
"
中小河流洪水预报系统"
ClientHeight
=
10710
ClientLeft
=
60
ClientTop
=
750
ClientWidth
=
15240
FillColor
=
&H80000003&
FillStyle
=
0
'Solid
Icon
=
"Main.frx":
0000
LinkTopic
=
"Form1"
LockControls
=
-1
'True
ScaleHeight
=
10710
ScaleWidth
=
15240
WindowState
=
2'Maximized
BeginVB.FrameAlarmFrame
BorderStyle
=
0
'None
Caption
=
"Frame1"
Height
=
435
Left
=
30
TabIndex
=
26
Top
=
10260
Width
=
405
BeginVB.ImageAlarmPicture
Height
=
390
Left
=
0
Picture
=
"Main.frx":
164A
Stretch
=
-1
'True
Top
=
0
Visible
=
0
'False
Width
=
390
End
End
BeginVB.TimerAlarmListenTimer
Interval
=
30000
Left
=
630
Top
=
10260
End
BeginVB.TimerReGSMTimer0
Enabled
=
0
'False
Interval
=
20000
Left
=
11220
Top
=
0
End
BeginVB.TimerReGSMTimer1
Enabled
=
0
'False
Interval
=
2000
Left
=
11640
Top
=
0
End
BeginVB.TimerReGSMTimer2
Enabled
=
0'False
Interval
=
2000
Left
=
12060
Top
=
0
End
BeginVB.TimerSockStateTimer
Enabled
=
0'False
Interval
=
50
Left
=
14160
Top
=
9390
End
BeginMSWinsockLib.WinsocksckServer
Index
=
0
Left
=
14640
Top
=
9390
_ExtentX
=
741
_ExtentY
=
741
_Version
=
393216
Enabled
=
0'False
Interval
=
3000
Left
=
360
Top
=
0
End
BeginVB.TimerStatPTimer
Interval
=
10000
Left
=
13320
Top
=
1860
End
BeginMSCommLib.MSCommClgComm
Left
=
14520
Top
=
8760
_ExtentX
=
1005
_ExtentY
=
1005
_Version
=
393216
DTREnable
=-1'True
End
BeginMSCommLib.MSCommPSTN1
Left
=
10110
Top
=
8790
_ExtentX
=
1005
_ExtentY
=
1005
_Version
=
393216
DTREnable
=
-1'True
RTSEnable
=
-1'True
End
BeginMSCommLib.MSCommPSTN2
Left
=
11280
Top
=
8760
_ExtentX
=
1005
_ExtentY
=
1005
_Version
=
393216
DTREnable
=
-1'True
RTSEnable
=
-1'True
Left
=
11880
Top
=
8760
_ExtentX
=
1005
_ExtentY
=
1005
_Version
=
393216
DTREnable
=
-1'True
RTSEnable
=
-1'True
End
BeginMSCommLib.MSCommGSM
Left
=
12480
Top
=
8760
_ExtentX
=
1005
_ExtentY
=
1005
_Version
=
393216
DTREnable
=
-1'True
RTSEnable
=
-1'True
End
BeginMSCommLib.MSCommBD
Left
=
13080
Top
=
8760
_ExtentX
=
1005
_ExtentY
=
1005
_Version
=
393216
DTREnable
=
-1'True
RTSEnable
=
-1'True
Left
=
13650
Top
=
8760
_ExtentX
=
1005
_ExtentY
=
1005
_Version
=393216
DTREnable
=
-1'True
RTSEnable
=
-1'True
Enabled
=
0'False
Interval
=
5000
Left
=
3630
Top
=
0
End
BeginVB.TimerPSTN2HisDataGetDelay
Enabled
=
0'False
Interval
=
5000
Left
=
6960
Top
=
0
End
BeginVB.TimerPSTN3HisDataGetDelay
Enabled
=
0'False
Interval
=
5000
Left
=
10290
Top
=
0
Caption
="
生成报文"
Height
=
555
Left
=
13800
TabIndex
=2
Top
=
6960
Visible
=
0
'False
Width
=
1245
End
BeginVB.TimerHideTimer
Enabled
=0
'False
Interval
=
60000
Left
=
2400
Top
=
10260
End
BeginVB.TimerRealDataRefresh
Interval
=
20
Left
=
10740
Top
=
2460
End
BeginVB.TimerZBArriveDetectTimer
Enabled
=0'False
Interval
=
20
Left
=
10290
Top
=
2460
Interval
=
500
Left
=
1170
Top
=
10260
Caption
=
"
人工置数器"
Height
=
555
Left
=
13800
TabIndex
=5
Top
=
6360
Visible
=
0
'False
Width
=
1245
End
BeginVB.CommandButtonGetCMD
Caption
=
"
接收数据"
Height
=
555
Left
=
13800
TabIndex
=1
Top
=
5760
Visible
=
0
'False
Width
=
1245
End
BeginVB.TimerResetTimer
Enabled
=
0
'False
Interval
=
1000
Left
=
6930
Top
=
450
End
BeginVB.TimerMessageTimer
Enabled
=
0
'False
Interval
=
1000
Left
=
16290
Top
=
450
Enabled=0'False
Interval=200
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 源码 中小 河流 洪水 预报 系统 MicrosoftVisualStudio
![提示](https://static.bdocx.com/images/bang_tan.gif)