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

1、源码 中小河流洪水预报系统Microsoft Visual Studio源码中小河流洪水预报系统源程序VERSION 5.00Object = 648A5603-2C6E-101B-82B6-000000000014#1.1#0; MSCOMM32.OCXObject = 831FDD16-0C5C-11D2-A9FC-0000F8754DA1#2.0#0; MSCOMCTL.OCXBegin VB.Form Start BorderStyle = 0 None Caption = Form1 ClientHeight = 4515 ClientLeft = 0 ClientTop = 0 C

2、lientWidth = 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 屏幕中心 Begin MSComctlLib.ProgressBar StarProgressBar He

3、ight = 375 Left = -30 TabIndex = 0 Top = 4140 Width = 5685 _ExtentX = 10028 _ExtentY = 661 _Version = 393216 Appearance = 1 End Begin VB.Timer Timer2 Enabled = 0 False Interval = 2000 Left = 5160 Top = 3090 End Begin MSCommLib.MSComm MSComm1 Left = 4110 Top = 3090 _ExtentX = 1005 _ExtentY = 1005 _Ve

4、rsion = 393216 DTREnable = -1 True End Begin VB.Timer Timer1 Enabled = 0 False Interval = 100 Left = 4710 Top = 3090 End Begin VB.Image Image2 DragMode = 1 Automatic Height = 4470 Left = 30 Picture = Start.frx:1B660 Stretch = -1 True Top = 30 Width = 5550 EndEndAttribute VB_Name = StartAttribute VB_

5、GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Form_Load()Const ForReading = 1, ForWriting = 2, ForAppending = 3Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0Dim Counter As IntegerDim f

6、s, ts As ObjectDim fDim DB_P_Str, DB_P_File As StringDim Clg_Ado_Conn As New ADODB.ConnectionDim Clg_Ado_Recordset As New ADODB.RecordsetDim Fields_No, Com_No, Record_No As IntegerDim File_Path As StringOn Error Resume NextClgDogPassword = 508282156Call DogInitializeIf App.PrevInstance Then MsgBox 本

7、软件已启动, vbInformation, 提示信息 EndEnd If载入数据库配置信息File_Path = Dir(App.Path & ini, vbDirectory)If File_Path = Then MkDir iniEnd IfFile_Path = Dir(App.Path & data, vbDirectory)If File_Path = Then MkDir data MkDir datacollect MkDir dataget MkDir datagetbackup MkDir datasend MkDir datasendbackup MkDir datarg

8、sdata MkDir datargsdatabackup MkDir datareport MkDir logEnd IfDB_P_File = Dir(App.Path & inisccgsqs.ini)If DB_P_File = sccgsqs.ini Then Call Get_DB_Pr If Server_Name Or Database_Name Or User_Name Or User_Pwd Then If DBConnFlag = True Then Timer1 = True Me.Show Else Me.Hide MsgBox 数据库访问失败，请检查数据库配置和数据

9、库服务器及网络设备是否正常？, vbInformation, 提示信息 System_Setup.Show End If Else Me.Hide MsgBox 数据库还没进行配置，请配置数据库, vbInformation, 提示信息 System_Setup.Show Exit Sub End IfElse Me.Hide MsgBox 数据库还没进行配置，请配置数据库, vbInformation, 提示信息 System_Setup.Show Exit SubEnd IfEnd SubPrivate Sub Timer2_Timer()Dim Response As StringIf

10、ComFlag = True Then Main.ShowElse Response = Response = MsgBox(串口设置与串口硬件情况不符，请检查串口配置或串口设备 & vbCr & _ 是否直接启动串口设置窗口？, vbYesNo + vbQuestion + vbDefaultButton2, 提示信息) If Response = vbYes Then System_Setup.Show Else Main.Show End IfEnd IfMe.HideMe.Timer2 = FalseEnd SubPrivate Sub Timer1_Timer()载入串口参数,并进行

11、串口初始化If WorkMode = 采集模式 Or WorkMode = 服务器 Then STCDDot = 10000 Call ReadDog Call Get_Com_Pr Call Com_Detect Main.Caption = Main.Caption & -采集工作模式 Timer2 = TrueElse Me.Hide Main.GSMPollingCMD.Visible = False Main.StartChanTestCMD.Visible = False Main.TimescaleCheckCMD.Visible = False Main.Operate_M.V

12、isible = 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_

13、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_C

14、MD.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 SQi

15、rZQQuery.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 Call ComState_DisplayEnd IfTimer1 = FalseEnd SubVERSION 5.00Object = 648A5603-2C6E-101B-82B6-000000

16、000014#1.1#0; MSCOMM32.OCXObject = 831FDD16-0C5C-11D2-A9FC-0000F8754DA1#2.0#0; MSCOMCTL.OCXObject = 0ECD9B60-23AA-11D0-B351-00A0C9055D8E#6.0#0; MSHFLXGD.OCXObject = 248DD890-BB45-11CF-9ABC-0080C7E7B78D#1.0#0; MSWINSCK.OCXBegin VB.Form Main Caption = 中小河流洪水预报系统 ClientHeight = 10710 ClientLeft = 60 Cl

17、ientTop = 750 ClientWidth = 15240 FillColor = &H80000003& FillStyle = 0 Solid Icon = Main.frx:0000 LinkTopic = Form1 LockControls = -1 True ScaleHeight = 10710 ScaleWidth = 15240 WindowState = 2 Maximized Begin VB.Frame AlarmFrame BorderStyle = 0 None Caption = Frame1 Height = 435 Left = 30 TabIndex

18、 = 26 Top = 10260 Width = 405 Begin VB.Image AlarmPicture Height = 390 Left = 0 Picture = Main.frx:164A Stretch = -1 True Top = 0 Visible = 0 False Width = 390 End End Begin VB.Timer AlarmListenTimer Interval = 30000 Left = 630 Top = 10260 End Begin VB.Timer ReGSMTimer0 Enabled = 0 False Interval =

19、20000 Left = 11220 Top = 0 End Begin VB.Timer ReGSMTimer1 Enabled = 0 False Interval = 2000 Left = 11640 Top = 0 End Begin VB.Timer ReGSMTimer2 Enabled = 0 False Interval = 2000 Left = 12060 Top = 0 End Begin VB.Timer SockStateTimer Enabled = 0 False Interval = 50 Left = 14160 Top = 9390 End Begin M

20、SWinsockLib.Winsock sckServer Index = 0 Left = 14640 Top = 9390 _ExtentX = 741 _ExtentY = 741 _Version = 393216 End Begin VB.Timer ComToComTimer2 Enabled = 0 False Interval = 3000 Left = 360 Top = 0 End Begin VB.Timer StatPTimer Interval = 10000 Left = 13320 Top = 1860 End Begin MSCommLib.MSComm Clg

21、Comm Left = 14520 Top = 8760 _ExtentX = 1005 _ExtentY = 1005 _Version = 393216 DTREnable = -1 True End Begin MSCommLib.MSComm PSTN1 Left = 10110 Top = 8790 _ExtentX = 1005 _ExtentY = 1005 _Version = 393216 DTREnable = -1 True RTSEnable = -1 True End Begin MSCommLib.MSComm PSTN2 Left = 11280 Top = 87

22、60 _ExtentX = 1005 _ExtentY = 1005 _Version = 393216 DTREnable = -1 True RTSEnable = -1 True End Begin MSCommLib.MSComm PSTN3 Left = 11880 Top = 8760 _ExtentX = 1005 _ExtentY = 1005 _Version = 393216 DTREnable = -1 True RTSEnable = -1 True End Begin MSCommLib.MSComm GSM Left = 12480 Top = 8760 _Exte

23、ntX = 1005 _ExtentY = 1005 _Version = 393216 DTREnable = -1 True RTSEnable = -1 True End Begin MSCommLib.MSComm BD Left = 13080 Top = 8760 _ExtentX = 1005 _ExtentY = 1005 _Version = 393216 DTREnable = -1 True RTSEnable = -1 True End Begin MSCommLib.MSComm ComToCom Left = 13650 Top = 8760 _ExtentX =

24、1005 _ExtentY = 1005 _Version = 393216 DTREnable = -1 True RTSEnable = -1 True End Begin VB.Timer PSTN1HisDataGetDelay Enabled = 0 False Interval = 5000 Left = 3630 Top = 0 End Begin VB.Timer PSTN2HisDataGetDelay Enabled = 0 False Interval = 5000 Left = 6960 Top = 0 End Begin VB.Timer PSTN3HisDataGe

25、tDelay Enabled = 0 False Interval = 5000 Left = 10290 Top = 0 End Begin VB.CommandButton Command5 Caption = 生成报文 Height = 555 Left = 13800 TabIndex = 2 Top = 6960 Visible = 0 False Width = 1245 End Begin VB.Timer HideTimer Enabled = 0 False Interval = 60000 Left = 2400 Top = 10260 End Begin VB.Timer

26、 RealDataRefresh Interval = 20 Left = 10740 Top = 2460 End Begin VB.Timer ZBArriveDetectTimer Enabled = 0 False Interval = 20 Left = 10290 Top = 2460 End Begin VB.Timer AlarmTimer Interval = 500 Left = 1170 Top = 10260 End Begin VB.CommandButton Command6 Caption = 人工置数器 Height = 555 Left = 13800 Tab

27、Index = 5 Top = 6360 Visible = 0 False Width = 1245 End Begin VB.CommandButton GetCMD Caption = 接收数据 Height = 555 Left = 13800 TabIndex = 1 Top = 5760 Visible = 0 False Width = 1245 End Begin VB.Timer ResetTimer Enabled = 0 False Interval = 1000 Left = 6930 Top = 450 End Begin VB.Timer MessageTimer

28、Enabled = 0 False Interval = 1000 Left = 16290 Top = 450 End Begin VB.Timer PollingPSTN3 Enabled = 0 False Interval = 200 Left = 6510 Top = 450 End Begin VB.Timer PollingPSTN2 Enabled = 0 False Interval = 200 Left = 6090 Top = 450 End Begin VB.Timer PollingTimerB Enabled = 0 False Interval = 300 Lef

29、t = 5250 Top = 450 End Begin VB.Timer PollingPSTN1 Enabled = 0 False Interval = 200 Left = 5670 Top = 450 End Begin VB.Timer PollingTimer Interval = 60000 Left = 4830 Top = 450 End Begin VB.Frame ChanFrame Caption = 通迅信道状态 Height = 795 Left = 60 TabIndex = 6 Top = 1620 Width = 13065 Begin VB.CommandButton GSMPollingCMD Caption = GSM轮询 Height = 465 Left = 9240 TabIndex = 25 Top = 210