源码中小河流洪水预报系统MicrosoftVisualStudio源码

1、中小河流洪水预报系统源程序VERSION5.00Object=648A5603-2C6E-101B-82B6-000000000014#1.1#0;MSCOMM32.OCXObject=831FDD16-0C5C-11D2-A9FC-0000F8754DA1#2.0#0;MSCOMCTL.OCXBeginVB.FormStartBorderStyle=0NoneCaption=Form1ClientHeight=4515ClientLeft=0ClientTop=0ClientWidth=5610FillStyle=0SolidIcon=Start.frx:0000LinkTopic=Form

2、1LockControls=-1TrueMaxButton=0FalseMinButton=0FalsePicture=Start.frx:030AScaleHeight=4515ScaleWidth=5610ShowInTaskbar=0FalseStartUpPosition=2屏幕中心BeginMSComctlLib.ProgressBarStarProgressBarHeight=375Left=-30TabIndex=0Top=4140Width=5685_ExtentX=10028_ExtentY=661_Version=393216Appearance=1EndBeginVB.T

3、imerTimer2Enabled=0FalseInterval=2000Left=5160Top=3090EndBeginMSCommLib.MSCommMSComm1Left=4110Top=3090ExtentX=1005_ExtentY=1005_Version=393216DTREnable=-1TrueEnabled=0FalseTOC o 1-5 h zInterval=100Left=4710Top=3090EndBeginVB.ImageImage2DragMode=1AutomaticHeight=4470Left=30Picture=Start.frx:1B660Stre

4、tch=-1TrueTop=30Width=5550EndEndAttributeVBName=StartAttributeVB_GlobalNameSpace=FalseAttributeVBCreatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalseOptionExplicitPrivateSubForm_Load()ConstForReading=1,ForWriting=2,ForAppending=3ConstTristateUseDefault=-2,TristateTrue=-1,TristateFa

5、lse=0DimCounterAsIntegerDimfs,tsAsObjectDimfDimDB_P_Str,DB_P_FileAsStringDimClg_Ado_ConnAsNewADODB.ConnectionDimClg_Ado_RecordsetAsNewADODB.RecordsetDimFields_No,Com_No,Record_NoAsIntegerDimFile_PathAsStringOnErrorResumeNextClgDogPassword=508282156CallDogInitializeIfApp.PrevInstanceThenMsgBox本软件已启动,

6、vbInformation,提示信息EndEndIf载入数据库配置信息File_Path=Dir(App.Path&ini,vbDirectory)IfFile_Path=ThenMkDiriniEndIfFile_Path=Dir(App.Path&data,vbDirectory)IfFile_Path=ThenMkDirdataMkDirdatacollectMkDirdatagetMkDirdatagetbackupMkDirdatasendMkDirdatasendbackupMkDirdatargsdataMkDirdatargsdatabackupMkDirdatareportM

7、kDirlogEndIfDB_P_File=Dir(App.Path&inisccgsqs.ini)IfDB_P_File=sccgsqs.iniThenCallGet_DB_PrIfServer_NameOrDatabase_NameOrUser_NameOrUser_PwdThenIfDBConnFlag=TrueThenTimer1=TrueMe.ShowElseMe.HideMsgBox数据库访问失败，请检查数据库配置和数据库服务器及网络设备是否正常？,vbInformation,提示信息System_Setup.ShowEndIfElseMe.HideMsgBox数据库还没进行配置，

8、请配置数据库,vbInformation,提示信息System_Setup.ShowExitSubEndIfElseMe.HideMsgBox数据库还没进行配置，请配置数据库,vbInformation,提示信息System_Setup.ShowExitSubEndIfEndSubPrivateSubTimer2_Timer()DimResponseAsStringIfComFlag=TrueThenMain.ShowElseResponse=&vbCr&提示信Response&vbCr&提示信是否直接启动串口设置窗口？,vbYesNo+vbQuestion+vbDefaultButton2,

9、息)IfResponse=vbYesThenSystem_Setup.ShowElseMain.ShowEndIfEndIfMe.HideMe.Timer2=FalseEndSubPrivateSubTimer1_Timer()载入串口参数,并进行串口初始化IfWorkMode=采集模式OrWorkMode=服务器ThenSTCDDot=10000CallReadDogCallGet_Com_PrCallCom_DetectMain.Caption=Main.Caption&-采集工作模式Timer2=TrueElseMe.HideMain.GSMPollingCMD.Visible=Fals

10、eMain.StartChanTestCMD.Visible=FalseMain.TimescaleCheckCMD.Visible=FalseMain.Operate_M.Visible=FalseMain.PollingTimer.Enabled=FalseMain.StartTestTimer.Enabled=FalseMain.Reg_M.Visible=FalseMain.ZQR_M.Visible=FalseMain.StatSmooth_M.Visible=FalseMain.RR_M.Visible=FalseMain.line43.Visible=FalseMain.line

11、33.Visible=FalseMain.line42.Visible=FalseSystem_Setup.COM_EDIT_CMD.Enabled=FalseSystem_Setup.XZ_ADDNEW_CMD.Enabled=FalseSystem_Setup.XZ_EDIT_CMD.Enabled=FalseSystem_Setup.XZ_DEL_CMD.Enabled=FalseSystem_Setup.RTU_ADDNEW_CMD.Enabled=FalseSystem_Setup.RTU_EDIT_CMD.Enabled=FalseSystem_Setup.RTU_DEL_CMD.

12、Enabled=FalseSystem_Setup.RV_ADDNEW_CMD.Enabled=FalseSystem_Setup.RV_EDIT_CMD.Enabled=FalseSystem_Setup.RV_DEL_CMD.Enabled=FalseSystem_Setup.SavePrCMD.Enabled=FalseSQirZQQuery.BatchCMD.Enabled=FalseSQirZQQuery.CT_ADDNEW_CMD.Enabled=FalseSQirZQQuery.CT_EDIT_CMD.Enabled=FalseSQirZQQuery.CT_DEL_CMD.Ena

13、bled=FalseSQirZQQuery.LJPCMD.Enabled=FalseSQirZQQuery.P_ADDNEW_CMD.Enabled=FalseSQirZQQuery.LJP_EDIT_CMD.Enabled=FalseSQirZQQuery.P_DEL_CMD.Enabled=FalseMain.Caption=Main.Caption&-非采集工作模式Main.ShowCallComState_DisplayEndIfTimer1=FalseEndSubVERSION5.00Object=648A5603-2C6E-101B-82B6-000000000014#1.1#0;

14、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.OCXBeginVB.FormMain中小河流洪水预报系统Caption中小河流洪水预报系统10710ClientHeight=10710ClientLeft=60TopTop=0ClientTop=750Cl

15、ientWidth=15240FillColor=&H80000003&FillStyle=0SolidIcon=Main.frx:0000LinkTopic=Form1LockControls=-1TrueScaleHeight=10710ScaleWidth=15240WindowState=2MaximizedBeginVB.FrameAlarmFrameBorderStyle=0NoneCaption=Frame1Height=435Left=30TabIndex=26TOC o 1-5 h zTop=10260Width=405BeginVB.ImageAlarmPictureHei

16、ght=390Left=0Picture=Main.frx:164AStretch=-1TrueTop=0Visible=0FalseWidth=390EndEndBeginVB.TimerAlarmListenTimerInterval=30000Left=630Top=10260EndBeginVB.TimerReGSMTimer0Enabled=0FalseInterval=20000Left=11220Top=0EndBeginVB.TimerReGSMTimer1Enabled=0FalseInterval=2000Left=11640EndBeginVB.TimerReGSMTim

17、er2Enabled=0FalseTOC o 1-5 h zInterval=2000Left=12060Top=0EndBeginVB.TimerSockStateTimerEnabled=0FalseInterval=50Left=14160Top=9390EndBeginMSWinsockLib.WinsocksckServerIndex=0Left=14640Top=9390_ExtentX=741_ExtentY=741Version=393216Enabled=0FalseInterval=3000Left=360Top=0EndBeginVB.TimerStatPTimerInt

18、erval=10000Left=13320Top=1860EndBeginMSCommLib.MSCommClgCommLeft=14520Top=8760_ExtentX=1005_ExtentY=1005_Version=393216DTREnable=-1TrueEndBeginMSCommLib.MSCommPSTN1Left=10110Top=8790ExtentX=1005EndEndTopTop=8760_ExtentY=1005_Version=393216DTREnable=-1TrueRTSEnable=-1TrueEndBeginMSCommLib.MSCommPSTN2

19、Left=11280Top=8760_ExtentX=1005_ExtentY=1005_Version=393216DTREnable=-1TrueRTSEnable=-1TrueLeft=11880Top=8760_ExtentX=1005_ExtentY=1005_Version=393216DTREnable=-1TrueRTSEnable=-1TrueEndBeginMSCommLib.MSCommGSMLeft=12480Top=8760_ExtentX=1005_ExtentY=1005_Version=393216DTREnable=-1TrueRTSEnable=-1True

20、EndBeginMSCommLib.MSCommBDLeft=13080Top=8760_ExtentX=1005_ExtentY=1005_Version=393216DTREnable=-1TrueRTSEnable=-1TrueLeft=13650_ExtentX=1005_ExtentY=1005_Version=393216DTREnable=-1TrueRTSEnable=-1TrueEnabled=0FalseInterval=5000Left=3630Top=0EndBeginVB.TimerPSTN2HisDataGetDelayEnabled=0FalseInterval=

21、5000Left=6960Top=0EndBeginVB.TimerPSTN3HisDataGetDelayEnabled=0FalseInterval=5000TOC o 1-5 h zLeft=10290Top=0Caption=Height=555Left=13800TabIndex=2Top=6960Visible=0FalseWidth=1245EndBeginVB.TimerHideTimerEnabled=0FalseInterval=60000Left=2400Top=10260EndBeginVB.TimerRealDataRefreshInterval=20Left=107

22、40Top=2460IntervalInterval200EnabledIntervalLeftTopBeginVB.TimerZBArriveDetectTimerEnabledIntervalLeftTop=0FalseTOC o 1-5 h z=20=10290=2460Interval=500Left=1170Top=10260Caption=人工置数器Height=555Left=13800TabIndex=5Top=6360Visible=0FalseWidth=1245EndBeginVB.CommandButtonGetCMDCaption=接收数据Height=555Left

23、=13800TabIndex=1Top=5760Visible=0FalseWidth=1245EndBeginVB.TimerResetTimerEnabled=0FalseInterval=1000Left=6930Top=450EndBeginVB.TimerMessageTimerEnabled=0FalseInterval=1000Left=16290Top=450Enabled=0FalseLeftTop=6510=450EndBeginVB.TimerPollingPSTN2Enabled=0FalseIntervalEnabled=0FalseInterval=200LeftT

24、opEnabled=0FalseIntervalLeftTopEnabled=0FalseInterval=300=6090=450EndBeginVB.TimerPollingTimerBLeftTopEnabled=0FalseIntervalLeftTopEnabled=0FalseInterval=200=5250=450EndBeginVB.TimerPollingPSTN1LeftTopInterval=60000LeftTopInterval=60000=5670=450EndBeginVB.TimerPollingTimerLeftTopLeftTop=4830=450EndB

25、eginVB.FrameChanFrameCaptionCaption通迅信道状态Height795Left=60TabIndex=6Top=162013065Width13065BeginVB.CommandButtonGSMPollingCMDCaption=Caption=GSMHeight=465Left=9240TabIndex=25Top=210Width=1065Enabled=0FalseInterval=100轮询TopTop=390IntervalInterval2000LeftTopLeftTop270EndBeginVB.TimerTimescaleCheckTimer

26、Enabled=0FalseTOC o 1-5 h zInterval=2000Left=12480Top=240EndCaption=北斗校时Height=465Left=10410TabIndex=18Top=210Width=1065EndBeginVB.TimerStartTestTimerInterval=2000Left=5280Top=-60EndCaption=设备测试Height=465Left=8100TabIndex=7Top=210Width=1065EndBeginVB.TimerStartChanTimerInterval=50000Left=1800Top=-90

27、EndBeginVB.TimerDBChanTimerEnabled=0FalseInterval=2000Left=4560Top=-90Enabled=0FalseLeftTopLeftTop=-90EndBeginVB.TimerPSTN3ChanTimerEnabled=0FalseInterval=2000Left=3720Top=-90EndBeginVB.TimerPSTN2ChanTimerEnabled=0FalseInterval=2000Left=3300Top=-90EndBeginVB.TimerPSTN1ChanTimerEnabled=0FalseInterval

28、=2000TOC o 1-5 h zLeft=2880Top=-90EndBeginVB.ImagePSTN1CANNOHeight=300Left=1170Picture=Main.frx:1BD5Stretch=-1TrueTop=330Visible=0FalseWidth=300EndBeginVB.LabelLabel6Caption=卫星信道:Height=195Left=6480TabIndex=12TOC o 1-5 h zTop=390Width=825EndBeginVB.LabelLabel7Caption=GSM信道:Height=195Left=5010TabInde

29、x=11EndEndWidth=735EndBeginVB.LabelLabel8Caption=PSTN3Height=195Left=3330TabIndex=10Top=390Width=915EndBeginVB.LabelLabel9Caption=PSTN2Height=195Left=1770TabIndex=9Top=390Width=915End信道:信道:BeginVB.LabelLabel10Caption=PSTN1Height=195Left=180TabIndex=8Top=390Width=915信道:EndBeginVB.ImagePSTN2CANNOHeigh

30、t=300Left=2790Picture=Main.frx:206AStretch=-1TrueTop=330Visible=0FalseWidth=300EndBeginVB.ImageGSMCANNOHeight=315Left=5790Picture=Main.frx:24FFStretch=-1TrueTop=330Visible=0FalseWidth=315BeginVB.ImagePSTN3CANNOHeight=315Left=4350Picture=Main.frx:2994Stretch=-1TrueTop=330Visible=0FalseWidth=315EndBeg

31、inVB.ImageBDCANNOHeight=315Left=7380Picture=Main.frx:2E29Stretch=-1TrueTop=330Visible=0FalseWidth=315EndBeginVB.ImagePSTN1CANYESHeight=300Left=1170Picture=Main.frx:32BETop=330Visible=0FalseWidth=315Height=300Left=2790Picture=Main.frx:3756Top=330Visible=0FalseWidth=315Height=300Left=5790Picture=Main.

32、frx:3BEETop=330Visible=0FalseWidth=315EndBeginVB.ImagePSTN3CANYESHeight=300LeftLeft=8490Left=4350Picture=Main.frx:4086TOC o 1-5 h zTop=330Visible=0FalseWidth=315Height=300Left=7380Picture=Main.frx:451ETop=330Visible=0FalseWidth=315EndEndBeginVB.FrameComFrameCaption=TOC o 1-5 h zHeight=795Left=60TabI

33、ndex=4Top=750Width=13065BeginVB.TimerGSMPollingTimerEnabled=0FalseInterval=200Left=8070Top=-90EndBeginVB.TimerGSMPollingTimer2Enabled=0FalseInterval=1000Left=9330Top=-90Enabled=0FalseInterval=300Left=8910Top=-90EndBeginVB.TimerGSMPollingTimer0Enabled=0FalseInterval=2000TOC o 1-5 h zTop=-90EndBeginVB

34、.ImageCommCOMNOHeight=315Left=9000Picture=Main.frx:49B6Stretch=-1TrueTop=330Visible=0FalseWidth=315EndBeginVB.ImageCommCOMYESHeight=300Left=9000Picture=Main.frx:4E4BTop=330Visible=0FalseWidth=315EndBeginVB.LabelLabel11Caption=电台串口:Height=195Left=8100TabIndex=24Top=390Width=825EndBeginVB.LabelLabel1C

35、aption=PSTN1串口:Height=195Left=180TabIndex=17Top=390Width=915EndBeginVB.LabelLabel2Caption=PSTN2串口:Height=195Left=1800TabIndex=16Top=390Width=915EndBeginVB.LabelLabel3Caption=PSTN3串口:TOC o 1-5 h zHeight=195Left=3360TabIndex=15Top=390Width=915EndBeginVB.ImageGSMCOMNOHeight=315Left=5760Picture=Main.frx

36、:52E3Stretch=-1TrueTop=330Visible=0FalseWidth=315EndBeginVB.LabelLabel4Caption=GSM串口:Height=195Left=4980TabIndex=14Top=390Width=735EndBeginVB.LabelLabel5Caption=卫星串口:Height=195Left=6450TabIndex=13Top=390Width=825EndBeginVB.ImagePSTN1COMNOHeight=300Left=1170Picture=Main.frx:5778Stretch=-1TrueTop=330V

37、isible=0FalseWidth=300EndBeginVB.ImagePSTN3COMNOHeight=315Left=4320Picture=Main.frx:5C0DStretch=-1TrueTop=330Visible=0FalseWidth=315Height=315Left=7350Picture=Main.frx:60A2Stretch=-1TrueTop=330Visible=0FalseWidth=315EndBeginVB.ImagePSTN2COMNOHeight=300Left=2730Picture=Main.frx:6537Stretch=-1TrueTop=

38、330Visible=0FalseWidth=300Height=300Left=2730Picture=Main.frx:69CCTop=330Visible=0FalseWidth=315EndBeginVB.ImageBDCOMYESHeight=300Left=7350Picture=Main.frx:6E64Top=330Visible=0FalseWidth=315EndBeginVB.ImagePSTN3COMYESHeight=300Left=4320PictureMain.frx:72FCEndEnd=330=0=330=0FalseVisibleWidth=315Heigh

39、t=300Left=5760Picture=Main.frx:7794Top=330Visible=0FalseWidth=315EndBeginVB.ImagePSTN1COMYESHeight=300Left=1170Picture=Main.frx:7C2CTOC o 1-5 h zTop=330Visible=0FalseWidth=315EndCaption=Height=7485Left=60TabIndex=3Top=2490Width=10200BeginMSHierarchicalFlexGridLib.MSHFlexGridRealData1Height=6825Left=

40、90TabIndex=19Top=270Width=10000_ExtentX=17648_ExtentY=12039_Version=393216Cols=4FixedCols=3BackColorFixed=-2147483629_NumberOfBands=1_Band(0).Cols=4EndBeginVB.TimerCollectGSMTxtTimerInterval=10000Left=15840Top=0EndBeginVB.TimerGSMTxtTimerEnabled=0FalseInterval=1000TOC o 1-5 h zLeft=16290Top=0Enabled

41、=0FalseInterval=1000Left=3180Top=0EndBeginVB.TimerPSTN3Timer6Enabled=0FalseInterval=5000Left=9870Top=0EndBeginVB.TimerPSTN2Timer6Enabled=0FalseInterval=1000Left=6510Top=0EndBeginVB.TimerPSTN3Timer5Enabled=0FalseInterval=1000Left=9450Top=0EndBeginVB.TimerPSTN2Timer5Enabled=0FalseInterval=1000Left=609

42、0Top=0Enabled=0FalseInterval=1000LeftTopLeftTop=0EndBeginVB.TimerPSTN3Timer2Enabled=0FalseTOC o 1-5 h zInterval=1000Left=8220Top=0EndBeginVB.TimerPSTN3Timer1Enabled=0FalseInterval=200Left=7800Top=0EndBeginVB.TimerPSTN3Timer4Enabled=0FalseInterval=1000Left=9030Top=0Enabled=0FalseInterval=1500Left=861

43、0Top=0EndBeginVB.TimerPSTN2Timer2Enabled=0FalseInterval=1000Left=4860Top=0EndBeginVB.TimerPSTN2Timer1Enabled=0FalseInterval=200Left=4440Top=0EndBeginVB.TimerPSTN2Timer4Enabled=0FalseInterval=1000Left=5670Top=0EndBeginVB.TimerPSTN2Timer3Enabled=0FalseInterval=1500Left=5250TOC o 1-5 h zTop=0EndBeginVB

44、.TimerPSTN1Timer3Enabled=0FalseInterval=1500Left=1920Top=0EndBeginVB.TimerPSTN1Timer4Enabled=0FalseInterval=1000Left=2340TOC o 1-5 h zTop=0EndBeginVB.TimerBDTimerEnabled=0FalseInterval=2000Left=14820Top=0EndBeginVB.TimerPSTN1Timer1Enabled=0FalseInterval=200Left=1110Top=0Enabled=0FalseInterval=500Lef

45、t=13680Top=0EndBeginVB.TimerGSMTimer3Enabled=0FalseInterval=500Left=13260Top=0EndBeginVB.TimerGSMTimer5Enabled=0FalseTOC o 1-5 h zInterval=300Left=14100Top=0EndBeginVB.TimerPSTN1Timer2Enabled=0FalseInterval=1000TOC o 1-5 h zLeft=1530Top=0Enabled=0FalseInterval=100Left=12840Top=0EndBeginVB.TimerRefre

46、sh_TimeInterval=500Left=1800Top=10260EndBeginMSComctlLib.StatusBarStatusBar1Align=2AlignBottomHeight=495Left=0TabIndex=0Top=10215Width=15240_ExtentX=26882_ExtentY=873_Version=393216BeginPropertyPanels8E3867A5-8586-11D1-B16A-00C0F0283628NumPanels=3BeginPropertyPanel18E3867AB-8586-11D1-B16A-00C0F02836

47、28Alignment=1Object.Width=1764MinWidth=1764EndPropertyBeginPropertyPanel28E3867AB-8586-11D1-B16A-00C0F0283628Alignment=1Object.Width=2MinWidthEndPropertyColsCols=4BeginPropertyPanel38E3867AB-8586-11D1-B16A-00C0F0283628Alignment=1Object.Width=1764MinWidth=1764Caption=公告信息TOC o 1-5 h zHeight=585Left=6

48、0TabIndex=20Top=60Width=11865BeginVB.LabelInformationHeight=255Left=270TabIndex=21Top=270Width=4155EndEndBeginVB.FrameRealDFrameCaption=最新数据TOC o 1-5 h zHeight=7485Left=10350TabIndex=22Top=2490Width=10395BeginVB.TimerRealData1RefreshInterval=20Left=1290Top=-30Height=6825Left=90TabIndex=23Top=270Widt

49、h=10215_ExtentX=18018_ExtentY=12039_Version=393216FixedCols=3-2147483629BackColorFixed=-2147483629HighLight=2_NumberOfBands=1_Band(0).Cols=4EndEndBeginVB.MenuFile_MCaption=文件(&F)WindowList=-1TrueBeginVB.MenuReg_MCaption=用户管理(&R)EndBeginVB.MenuLongin_MCaption=更换用户(&D)EndBeginVB.MenuLogout_MCaption=退出

50、登录(&Q)EndBeginVB.MenuModify_PW_MCaption=修改密码(&E)EndBeginVB.Menuline11Caption=-EndBeginVB.MenuMSG_MCaption=原始信息(&Y)EndBeginVB.MenuLogShow_MCaption=日志查询(&C)EndBeginVB.Menuline12Caption=-EndBeginVB.MenuPreUserCaption=无用户登录EndBeginVB.Menuline13Caption=-EndBeginVB.MenumnuhideCaption=隐藏(&H)EndBeginVB.Menu

51、line14EEndCaption=-EndBeginVB.MenuExit_MCaption=退出(&X)EndEnd操作(&O)操作(&O)数据召测(&Z)参数操作(&R)Caption=BeginVB.MenuZhaoche_MCaption=EndBeginVB.MenuRTU_MCaption=RTUEndBeginVB.Menuline21Caption=-EndBeginVB.MenuGPRSMonitorC_MCaption=GPRS监控操作(&G)EndEndBeginVB.MenuSystem_MCaption=系统(&S)BeginVB.MenuSystemSetup_M

52、Caption=EndBeginVB.Menuline31CaptionBeginVB.MenuSystemSetup_MCaption=EndBeginVB.Menuline31Caption=-EndBeginVB.MenuSQSINF_MCaption=EndBeginVB.MenuRTUPre_MCaption=RTUEndBeginVB.MenuCode_MCaption=EndBeginVB.Menuline32Caption=-EndBeginVB.MenuRTUCP_MCaption=RTU系统设置管理(&S)水情测站信息管理(&T)参数管理(&U)测站编码转换设置(&C)通信

53、协议设置(&C)BeginVB.Menuline33Caption=-EndBeginVB.MenuZQR_MCaption=水位流量关系(&R)EndBeginVB.MenuZVARL_MCaption=库(湖)容曲线(&Z)EndEndBeginVB.MenuFDFSPre_MCaption=洪水预报参数管理(&M)BeginVB.MenuFSDR_MCaption=洪水传播时间管理(&M)EndBeginVB.MenuZQRL_MCaption=典型洪水水位流量关系(&R)Visible=0FalseEndBeginVB.MenuFDFSLine_MCaption=-Visible=0F

54、alseEndBeginVB.MenuINSTCD_MCaption=水文预报发布单位编码EndEndBeginVB.MenuFDFS_MCaption=洪水预报(&H)BeginVB.MenuRNFL_MCaption=降水量预报(&P)EndBeginVB.MenuRIVER_MCaption=河道水情预报(&Z)EndEndBeginVB.MenuData_MCaption=信息检索查询(&D)BeginVB.MenuRealData_MCaption=刷新实时数据(&R)EndBeginVB.Menuline41Caption=-BeginVB.MenuSQirPQuery_MCapt

55、ion降水量信息查询(&P)EndBeginVB.MenuSQirZQQuery_MCaption降水量信息查询(&P)EndBeginVB.MenuSQirZQQuery_MCaption=河道水情信息查询(&S)Caption=EndBeginVB.MenuGKirQuery_MCaptionCaption=EndBeginVB.MenuGKirQuery_MCaption=EndBeginVB.Menuline42Caption=-EndBeginVB.MenuInfoSortD_MCaption=EndBeginVB.MenuStatSmooth_MCaption=水库水情信息查询(&

56、Z)工况信息查询(&G)信息分类处理(&S)畅通率统计(&C)CaptionCaption=人工置数处理(&Z)EndEndBeginVB.MenuAboutCaption=关于(&B)BeginVB.MenuAbout_mCaption=关于(&A)EndCaption=PopupVisible=0FalseBeginVB.MenumnuTrayRestoreCaption=显示(&R)EndBeginVB.MenupopmnuhideCaption=隐藏(&H)Visible=0FalseEndSubEndSubBeginVB.MenumnuTrayMoveCaption=移动(&M)Vi

57、sible=0FalseEndBeginVB.MenumnuTraySizeCaption=大小(&S)Visible=0FalseEndBeginVB.MenumnuTrayMinimizeCaption=最小化(&I)EndBeginVB.MenumnuTrayMaximizeCaption=最大化(&A)Visible=0FalseEndBeginVB.MenumnuTraySepCaption=-EndBeginVB.MenumnuTrayCloseCaption=关闭(&C)EndEndEndPrivateSubWQirQuery_M_Click()WQirQuery.ShowEnd

58、SubPrivateSubWQSINF_M_Click()WQSINF.ShowEndSubPrivateSubWRDFAG_M_Click()WRDFAG.ShowEndSubPrivateSubWRirsAQQuery_M_Click()WRirsAQQuery.ShowEndSubPrivateSubWRirsFWQTQuery_M_Click()WRirsFWQTQuery.ShowEEndVERSION5.00Object=831FDD16-0C5C-11D2-A9FC-0000F8754DA1#2.0#0;MSCOMCTL.OCXBeginVB.FormFSDRCaption=洪水

59、传播时间ClientHeight=7815ClientLeft=60ClientTop=450ClientWidth=13215Icon=FSDR.frx:0000LinkTopic=Form1LockControls=-1TrueMaxButton=0FalseScaleHeight=7815ScaleWidth=13215StartUpPosition=2屏幕中心BeginVB.ComboBoxRCHLENComHeight=300ItemData=FSDR.frx:164ALeft=8520List=FSDR.frx:164CStyle=1SimpleComboTabIndex=10To

60、p=105Width=1455EndBeginVB.ComboBoxDWSTCDComHeight=300ItemData=FSDR.frx:164ELeft=4650List=FSDR.frx:168BTabIndex=9Top=105Width=2775Height=300ItemData=FSDR.frx:1727Left=4260List=FSDR.frx:1729Style=1SimpleComboTabIndex=8Top=555Width=885BeginVB.ComboBoxMXTRTMComHeight=300ItemData=FSDR.frx:172BLeft=6420Li