源码中小河流洪水预报系统MicrosoftVisualStudio源码Word文档格式.docx
《源码中小河流洪水预报系统MicrosoftVisualStudio源码Word文档格式.docx》由会员分享,可在线阅读,更多相关《源码中小河流洪水预报系统MicrosoftVisualStudio源码Word文档格式.docx(90页珍藏版)》请在冰豆网上搜索。
LinkTopic
LockControls
-1
True
MaxButton
False
MinButton
Picture
030A
ScaleHeight
ScaleWidth
ShowInTaskbar
StartUpPosition=
2
屏幕中心
BeginMSComctlLib.ProgressBarStarProgressBar
Height
375
Left
-30
TabIndex
Top
4140
Width
5685
_ExtentX
10028
_ExtentY
661
_Version
393216
Appearance
1
End
BeginVB.TimerTimer2
Enabled
Interval
2000
5160
3090
BeginMSCommLib.MSCommMSComm1
4110
1005
DTREnable
=-1'
=0'
100
4710
BeginVB.ImageImage2
DragMode
=1'
Automatic
4470
30
1B660
Stretch
-1'
5550
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,"
提示信息"
EndIf
载入数据库配置信息
File_Path=Dir(App.Path&
\ini\"
vbDirectory)
IfFile_Path="
Then
MkDir"
ini"
\data\"
data"
data\collect"
data\get"
data\get\backup"
data\send"
data\send\backup"
data\rgsdata\"
data\rgsdata\backup"
data\report"
log"
DB_P_File=Dir(App.Path&
\ini\sccgsqs.ini"
)
IfDB_P_File="
sccgsqs.ini"
CallGet_DB_Pr
IfServer_Name<
>
OrDatabase_Name<
OrUser_Name<
OrUser_Pwd<
Then
IfDBConnFlag=TrueThen
Timer1=True
Me.Show
Else
Me.Hide
数据库访问失败,请检查数据库配置和数据库服务器及网络设备是否正
常?
System_Setup.Show
数据库还没进行配置,请配置数据库"
ExitSub
EndSub
PrivateSubTimer2_Timer()
DimResponseAsString
IfComFlag=TrueThen
Main.Show
Response="
Response=MsgBox("
串口设置与串口硬件情况不符,请检查串口配置或串口设备
&
vbCr&
_
是否直接启动串口设置窗口?
息"
IfResponse=vbYesThen
Me.Timer2=False
vbYesNo+vbQuestion+vbDefaultButton2,"
提示信
PrivateSubTimer1_Timer()
载入串口参数,并进行串口初始化
IfWorkMode="
采集模式"
OrWorkMode="
服务器"
STCDDot=10000
CallReadDog
CallGet_Com_Pr
CallCom_Detect
Main.Caption=Main.Caption&
--采集工作模式"
Timer2=True
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
--
非采集工作模式
CallComState_Display
Timer1=False
{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"
MSHFLXGD.OCX"
{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"
MSWINSCK.OCX"
BeginVB.FormMain
中小河流洪水预报系统"
10710
60
750
15240
FillColor
&
H80000003&
Main.frx"
WindowState
2'
Maximized
BeginVB.FrameAlarmFrame
Frame1"
435
26
10260
405
BeginVB.ImageAlarmPicture
390
164A
Visible
BeginVB.TimerAlarmListenTimer
30000
630
BeginVB.TimerReGSMTimer0
20000
11220
BeginVB.TimerReGSMTimer1
11640
BeginVB.TimerReGSMTimer2
12060
BeginVB.TimerSockStateTimer
50
14160
9390
BeginMSWinsockLib.WinsocksckServer
Index
14640
741
3000
360
BeginVB.TimerStatPTimer
10000
13320
1860
BeginMSCommLib.MSCommClgComm
14520
8760
BeginMSCommLib.MSCommPSTN1
10110
8790
RTSEnable
BeginMSCommLib.MSCommPSTN2
11280
11880
BeginMSCommLib.MSCommGSM
12480
BeginMSCommLib.MSCommBD
13080
13650
=393216
5000
3630
BeginVB.TimerPSTN2HisDataGetDelay
6960
BeginVB.TimerPSTN3HisDataGetDelay
10290
="
生成报文"
555
13800
=2
1245
BeginVB.TimerHideTimer
=0
60000
2400
BeginVB.TimerRealDataRefresh
20
10740
2460
BeginVB.TimerZBArriveDetectTimer
500
1170
人工置数器"
=5
6360
BeginVB.CommandButtonGetCMD
接收数据"
=1
5760
BeginVB.TimerResetTimer
1000
6930
450
BeginVB.TimerMessageTimer
16290
Enabled=0'
Interval=200