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

《源码中小河流洪水预报系统microsoftvisualstudio源码》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、中小河流洪水预报系统源程序"MSCOMM32.OCX""MSCOMCTL.OCX"VERSION5.00Object=，z{648A5603-2C6E-101B-82B6-000000000014}#l.l#0/z;Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0〃;BeginVB.FormStartBorderStyle=0NoneCaption—"Forml"ClientHeight—4515ClientLeft=0ClicntTop=0ClicntWidth—5610FillStyle—0，SolidIcon—"St

2、art.frx，z:0000LinkTopic=〃h'orml"LockControls=-1’TrueMaxButton—0’FalseMinButton—0’FalsePicture—"Start,frx":030AScaleHeight=4515SealeWidth=5610ShowInTaskbar—0’FalseStartUpPosition—2’屏幕中心BeginMSComctlLib.ProgrcssBarStarProgressBarHeight=375Left=-30Tablndcx—0Top=4140Width—5685ExtentX=10028_Exte

3、ntY=661_Version—393216Appearance=1EndBeginVB.TinierTimer2Enabled=0’FalseInterval=2000Left=5160Top—3090EndBeginMSCommLib♦MSCommMSComm1Left=4110Top=3090ExtentX—1005_ExtentY1005_Version393216DTREnable=-1*TrueEndBeginVB.TimerTimerlEnabled=0’FalseInterval二100Left=4710Top=3090EndBeginVB.ImageImag

4、e2DragMode1*AutomaticHeight=4470Left=30Picture=〃Start.frx〃：1B660Stretch=-1JTrueTop=30Width=5550EndEndAttributeVB_Name="Start"AttributeVB_GlobalNamcSpacc=FalseAttributeVB_Creatable=FalseAttributeVB_PrcdcclarcdId=TrueAttributeVBExposed=FalseOptionExplicitPrivateSubForm_Load()ConstForRcading=1

5、，ForWriting=2，ForAppcnding=3ConstTristateUseDefault二-2，TristateTrue=一1，TristateFalse=0DimCounterAsIntegerDimfs,tsAsObjectDimfDimDB_P_Str,DB_P_FilcAsStringDimClgAdoConnAsNewADODB.ConnectionDimClg_Ado_RccordsctsNewADODB.RecordsetDimFields一No，Com一No,Record一NoAsIntegerDimFile_PathAsStringOnErr

6、orResumeNextClgDogPassword=508282156CallDoglnitializeIfApp.PrevlnstanceThenMsgBox"本软件己启动",vbInformation,〃提示信息〃EndEndIf’载入数据库配置信息FilePath=Dir(App.Path&〃ini",vbDirectory)IfFilePath=ThenMkDir"ini"EndIfFile_Path=Dir(App.Path&〃data",vbDirectory)IfFilePath=ThenMkDir"data"MkDir"datacollect"Mk

7、Dir"dataget"MkDir〃datagetbackup〃MkDir"datasencTMkDir〃datasendbackup"MkDir〃datargsdata"MkDir"datargsdatabackup"MkDir〃datareport〃MkDir"log"EndIfDBPFile=Dir(App.Path&"inisccgsqs.ini")IfDB_P_File="sccgsqs.ini"ThenCallGet_DB_PrIfServer一Name＜〉〃〃Or