源码 中小河流洪水预报系统Microsoft Visual Studio源码.docx

源码 中小河流洪水预报系统Microsoft Visual Studio源码.docx

《源码 中小河流洪水预报系统Microsoft Visual Studio源码.docx》由会员分享，可在线阅读，更多相关《源码 中小河流洪水预报系统Microsoft Visual Studio源码.docx（102页珍藏版）》请在冰点文库上搜索。

源码中小河流洪水预报系统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

End

BeginVB.TimerTimer1

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=0

DimCounterAsInteger

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&_

"是否直接启动串口设置窗口？

",vbYesNo+vbQuestion+vbDefaultButton2,"提示信息"）

IfResponse=vbYesThen

System_Setup.Show

Else

Main.Show

EndIf

EndIf

Me.Hide

Me.Timer2=False

EndSub

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

End

BeginVB.TimerComToComTimer2

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

End

BeginMSCommLib.MSCommPSTN3

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

End

BeginMSCommLib.MSCommComToCom

Left=13650

Top=8760

_ExtentX=1005

_ExtentY=1005

_Version=393216

DTREnable=-1'True

RTSEnable=-1'True

End

BeginVB.TimerPSTN1HisDataGetDelay

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

End

BeginVB.CommandButtonCommand5

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

End

BeginVB.TimerAlarmTimer

Interval=500

Left=1170

Top=10260

End

BeginVB.CommandButtonCommand6

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

End

BeginVB.TimerPollingPSTN3

Enabled=0'False

Interval=200

Left=6510

Top=450

End

BeginVB.TimerPollingPSTN2

Enabled=0'False

Interval=200

Left=6090

Top=450

End

BeginVB.TimerPollingTimerB

Enabled=0'False

Interval=300

Left=5250

Top=450

End

BeginVB.TimerPollingPSTN1

Enabled=0'False

Interval=200

Left=5670

Top=450

End

BeginVB.TimerPollingTimer

Interval=60000

Left=4830

Top=450

End

BeginVB.FrameChanFrame

Caption="通迅信道状态"

Height=795

Left=60

TabIndex=6

Top=1620

Width=13065

BeginVB.CommandButtonGSMPollingCMD

Caption="GSM轮询"

Height=465

Left=9240

TabIndex=25

Top=210