Xây dựng hệ phần mềm xử lý số liệu thuỷ văn vùng sông ảnh hưởng thuỷ triều HYDTID1 0 thuyết minh kỹ thuật hệ phần mềm xử lý số liệu thuỷ văn vùng sông ảnh hưởng triều hydtid1 0

bộ tài nguyên và môi trờng trung tâm khí tợng thuỷ văn quốc gia chuyên đề 3 thuyết minh kỹ thuật hệ phần mềm xử lý số liệu thuỷ văn vùng sông ảnh hởng triều hydtid 1.0 Thuộc đề tài: Xây dựng hệ phần mềm xử lý số liệu Thuỷ văn vùng sông ảnh hởng thuỷ triều hydtid 1.0 7054-3 26/12/2008 hà nội 10-2007 mục lục Trang I Xây dựng giao diện chung chơng trình phần mềm HYDTID 1.0 (XLSLTVVT) 1 II Xây dựng giao diện chung cho các chơng trình phần mềm nhập và quản lý cọc và thuỷ chí 11 III Xây dựng giao diện cho các chơng trình phần mềm nhập và quản lý nhiệt kế đo nhiệt độ nớc và nhiệt độ không khí 31 IV Xây dựng giao diện cho các chơng trình phần mềm nhập và xử lý số liệu sổ đo sâu 64 V Xây dựng các chơng trình xử lý số liệu từ sổ gốc mực nớc vùng không ảnh hởng triều 123 VI Xây dựng các chơng trình xử lý số liệu sổ gốc đo lu lợng nớc và lu lợng chất lơ lửng 326 VII Xây dựng các chơng trình chỉnh biên lu lợng nớc 541 VIII Xây dựng chơng trình chỉnh biên lu lợng chất lơ lửng 852 IX Xây dựng chơng trình truyền số liệu thuỷ văn giữa các cơ sở dữ liệu 989 1 Thuyết minh kỹ thuật Hệ phần mềm xử lý số liệu Thuỷ văn vùng sông ảnh hởng thuỷ triều Hệ chơng trình phần mềm dùng để xây dựng Hệ XLSL Thuỷ văn bao gồm 11 thành phần chính sau: I. Xây dựng giao diện chung chơng trình phần mềm HYDTID 1.0 II. Xây dựng giao diện cho các chơng trình phần mềm nhập và quản lý cọc và thuỷ chí III. Xây dựng các chơng trình xử lý số liệu từ sổ gốc mực nớc vùng sông ảnh hởng triều IV. Xây dựng giao diện cho các chơng trình phần mềm nhập và xử lý số liệu sổ đo sâu thời kỳ ảnh hởng triều yếu V. Xây dựng giao diện cho các chơng trình phần mềm nhập và xử lý số liệu sổ đo sâu thời kỳ ảnh hởng triều mạnh VI. Xây dựng các chơng trình xử lý số liệu từ sổ gốc đo đại biểu và đo chi tiết VII. Xây dựng các chơng trình xử lý số liệu từ sổ gốc đo lu lợng nớc và lu lợng chất lơ lửng thời kỳ ảnh hởng triều yếu VIII. Xây dựng chơng trình chỉnh biên lu lợng nớc thời kỳ ảnh hởng triều mạnh IX. Xây dựng chơng trình chỉnh biên lu lợng chất lơ lửng X. Xây dựng chơng trình truyền số liệu thuỷ văn giữa các cơ sở dữ liệu XI. Chơng trình trợ giúp XLSLTVVT Sau đây là phần thuyết minh cho các thành phần của hệ phần mềm XLSLTVVT. Mỗi một thành phần (giao diện) sẽ đợc trình bày 4 phần: 1. Chức năng nhiệm vụ của thành phần 2. Giao diện của thành phần 3. Mô tả các đối tợng với các thuộc tính (Properties) của chúng 4. Mô tả các chơng trình con có trong mỗi thành phần I. Xây dựng giao diện chung chơng trình phần mềm HYDTID 1.0 (XLSLTVVT) I.1 Chức năng nhiệm vụ của giao diện chung cho các chơng trình phần mềm XLSLTVVT Giao diện chung cho các chơng trình phần mềm XLSLTVVT có tên gọi là MDIHYDTID có một loạt các (đối tợng) menu: mnuSystem: Quản lý danh sách trạm, mã trạm, các yếu tố quan trắc mnuDataProcessing: Dùng để vào các menu con XLSLTVVT mnuStakes: Dùng để nhập và quản lý cọc và thuỷ chí mnuCrossSectionProfileData: Dùng để nhập và xử lý số liệu sổ đo sâu 2 mnuWaterLevelMeasurementForTidalRegion: Dùng để nhập và xử lý số liệu sổ đo mực nớc vùng ảnh hởng triều mnuStrongAffectedTideFlow: Xử lý số liệu Q thời kỳ ảnh hởng triều mạnh mnuTidCrossectionRatingTable: Khai toán diện tích mặt cắt ngang mnuRepVelocityMeasurement: Đo vận tốc đại biểu và vận tốc chi tiết mnuADCPdataEntry: Nhập số liệu thực đo Q bằng ADCP mnuVmcVdbFitting: Xác định quan hệ Vmc=f(Vdb) và chỉnh biên Q thời kỳ ảnh hởng triều mạnh mnuWeakAffectedTideFlow: Xử lý số liệu Q thời kỳ ảnh hởng triều yếu mnuFlowMeasurement: Dùng để nhập và xử lý số liệu đo lu lợng mnuVelocityMeasurement: Dùng để nhập và xử lý số liệu đo vận tốc mnuDischargeBook: Dùng để tính toán số liệu sổ đo lu lợng mnuQRatingCurve: Dùng chỉnh biên tài liệu lu lợng nớc mnuSedimentRatingCurve: Dùng chỉnh biên tài liệu lu lợng chât lơ lửng mnuImportExportDataOfHydProcessing: Dùng Xuất/Nhập số liệu giữa các CSDL mnuHelp: Trợ giúp trực tuyến XLSLTVVT Các Menu còn lại sẽ đợc dùng trong tơng lai. I.2 Giao diện chung cho các ch ơng trình phần mềm xử lý số liệu thuỷ văn I.3 Mô tả các đối tợng với các Properties của Giao diện chung cho các chơng trình phần mềm XLSLTVVT thuỷ văn ( Xem HYDTID 1.0). Sau đây là các th viện mà hệ phần mềm đã sử dụng Type=Exe Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0# \ \ \WINDOWS\system32\stdole2.tlb#OLE Automation Reference=*\G{56BF9020-7A2F-11D0-9482- 00A0C91110ED}#1.0#0# \ \ \WINDOWS\System32\MSBIND.DLL#Microsoft Data Binding Collection Reference=*\G{00000200-0000-0010-8000-00AA006D2EA4}#2.0#0# \ \ \Program Files\Common Files\System\ado\msado20.tlb#Microsoft ActiveX Data Objects 2.0 Library 3 Reference=*\G{6B263850-900B-11D0-9484- 00A0C91110ED}#1.0#0# \ \ \WINDOWS\System32\msstdfmt.dll#Microsoft Data Formatting Object Library Reference=*\G{642AC760-AAB4-11D0-8494- 00A0C90DC8A9}#1.0#0# \ \ \WINDOWS\System32\MSDBRPTR.DLL#Microsoft Data Report Designer v6.0 Reference=*\G{BD96C556-65A3-11D0-983A-00C04FC29E30}#1.5#0# \ \ \Program Files\Common Files\System\msadc\msadco.dll#Microsoft Remote Data Services 2.1 Library Reference=*\G{00025E01-0000-0000-C000-000000000046}#5.0#0# \ \ \Program Files\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object Library Object={C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0; msmask32.ocx Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX Object={65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0; MSCHRT20.OCX Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; comdlg32.ocx Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; mscomctl.ocx Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; richtx32.ocx Object={00025600-0000-0000-C000-000000000046}#5.2#0; crystl32.ocx Object={00028C01-0000-0000-0000-000000000046}#1.0#0; DBGRID32.OCX Object={BB5C2B20-F30E-11D0-9DB6-00AA00A478BC}#3.0#0; mapx30.ocx Form=HYDTID.frm Module=Module1; TSSeries.bas Form=Stakes.frm Form=frmTinstrument.frm Module=Module2; HAverage.bas Form=frmDischargeBook.frm Form=frmDailyData.frm Form=frmQDischargeAndSediment.frm Form=frmTSEntry.frm Module=Module3; MathForHydpro.bas Form=frmStationVarCharacteristics.frm Form=frmQloopEntry.frm Module=Module4; Printer.bas Module=Module5; UserMSChart.bas Form=frmStation.frm Form=frmStdTSvar.frm Module=Module6; Users.bas Form=frmImportDataOfHydProcessing.frm Form=frmComputSedimentLoad.frm Form=frmVelocity.frm Form=frmDataSummary.frm Form=frmImportData.frm Module=Module9; HydTidSystem.bas Form=frmHYDTIDConnection.frm Form=frmHydMeasurementReport.frm Form=frmHTnTkkPmeasurement.frm Form=vbgraph.Frm Form=vbplot.frm Form=vbtMultiScalegraph.frm Module=Module8; dateconv.Bas Module=Module10; Vbgraph.bas Module=Module11; graphprinter.bas Form=frmRDS.frm Module=Module12; SPLREG.bas Module=Module13; RatingFunc.bas Form=frmUnitSediment.frm Form=frmHydCharts.frm Form=frmDocumentOfHydDataProcessing.frm Form=frmMapOfStationNetwork.frm Form=frmHTnTkkPEntry.frm 4 Form=frmHydSystemSetting.frm Form=frmTimeGraphMonthSelect.frm Form=frmSeriesStatistics.frm Form=frmSplash.frm Form=WaterLevelMeasurement.frm Form=frmImportFromTextFile.frm Form=frmExportToTextFile.frm Form=frmDailyDataReport.frm Form=frmComputQfronH.frm Form=frmVmcRatingCurve.frm Form=frmQRatingTable.frm Form=FrmLogOn.frm Form=vbtgraph.frm Form=FrmHTnTkkPForTidalRegion.frm Form=FrmHTnTkkPEntryForTidalRegion.frm Form=frmRepresentativeVelocity.frm Form=frmHydTimeSeriesGraph.frm Form=frmCrossSection.frm Module=Module7; CrossSection.bas Form=frmTidCrossSection.frm Form=frmSedimentRatingCurve.frm Form=frmQRatingCurve.frm Object={F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0; MSRDC20.OCX IconForm="MDIHydTidDB" Startup="Sub Main" HelpFile="" Title="HYDTIDDB" ExeName32="HYDTID.exe" Command32="" Name="HydTid" HelpContextID="0" Description="HydrologicalData Processing and DataBase by LXC&LMH" CompatibleMode="0" MajorVer=1 MinorVer=1 RevisionVer=0 AutoIncrementVer=0 ServerSupportFiles=0 VersionComments="Ch−¬ng tr×nh xö lý sè liÖu thuû v¨n Hydtiddb 1.1.0" VersionCompanyName="HMDC-Hydrological Divison" VersionLegalCopyright="Cã b¶n quyÒn" VersionProductName="HYDTID 1.0" CompilationType=0 OptimizationType=0 FavorPentiumPro(tm)=0 CodeViewDebugInfo=0 NoAliasing=0 BoundsCheck=0 OverflowCheck=0 FlPointCheck=0 FDIVCheck=0 UnroundedFP=0 StartMode=0 Unattended=0 Retained=0 ThreadPerObject=0 MaxNumberOfThreads=1 DebugStartupOption=0 [MS Transaction Server] 5 AutoRefresh=1 C¸c ®èi t−îng vµ Properties cña HYDTID 1.0 ®−îc liÖt kª nh− sau: VERSION 5.00 Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx" Begin VB.MDIForm MDIHydTidDB BackColor = &H8000000C& Caption = "Hydroprocessing and Database System For Tidal Region" ClientHeight = 7455 ClientLeft = 165 ClientTop = 855 ClientWidth = 8820 LinkTopic = "MDIForm1" StartUpPosition = 3 'Windows Default Begin MSComctlLib.StatusBar HYdStatusBar Align = 2 'Align Bottom Height = 345 Left = 0 TabIndex = 0 Top = 7110 Width = 8820 _ExtentX = 15558 _ExtentY = 609 _Version = 393216 BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} NumPanels = 4 BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} Object.Width = 12348 MinWidth = 12348 Text = "Action" TextSave = "Action" EndProperty BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} Object.Width = 2646 MinWidth = 2646 Text = "RecNo" TextSave = "RecNo" EndProperty BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} Object.Width = 1411 MinWidth = 1411 Text = "Ready" TextSave = "Ready" EndProperty BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} Style = 5 Object.Width = 1411 MinWidth = 1411 Text = "Time" TextSave = "15:42" EndProperty EndProperty End Begin VB.Menu mnuSystem Caption = "System" Begin VB.Menu mnuUserManager Caption = "User Manager" End 6 Begin VB.Menu mnuLogonServer Caption = "Log in" End Begin VB.Menu mnuOpenDataBase Caption = "Open DataBase" End Begin VB.Menu mnuDatabaseManager Caption = "Database Manager" Begin VB.Menu mnuStationCharacteristics Caption = "Station Characteristics" End Begin VB.Menu mnuVarCharacteristics Caption = "Variable Characteristics" End Begin VB.Menu mnuStationVarCharacteristics Caption = "Station Variable Characteristics" End End Begin VB.Menu mnuMapOfStationNetwork Caption = "Map Of Station Network" End Begin VB.Menu mnuSetting Caption = "Setting" End End Begin VB.Menu mnuData Caption = "Data" Begin VB.Menu mnuCatchmentData Caption = "Catchment Data" End Begin VB.Menu mnuHourlySeriesEntry Caption = "Hourly Series Entry" End Begin VB.Menu HTnTkkP Caption = "H_TnTkkP Entry" Enabled = 0 'False Visible = 0 'False End Begin VB.Menu HTnTkkPEntryForTidalRegion Caption = "H_TnTkkP Entry For TidalRegion" End Begin VB.Menu mnuQDischargeAndSediment Caption = "QDischarge And Sediment" End Begin VB.Menu mnuRatingTable Caption = "Rating Table Entry" End Begin VB.Menu mnuQLoopEntry Caption = "QLoop Entry" End Begin VB.Menu mnuUnitSediment Caption = "Unit Sediment Entry" End Begin VB.Menu mnuDepthEntry Caption = "Depth Entry" End Begin VB.Menu mnuTimeSeriesEntry Caption = "Time Series Entry" Begin VB.Menu mnuDailyseries 7 Caption = "Daily Series" End Begin VB.Menu mnuMonthlySeries Caption = "Monthly Series" End Begin VB.Menu mnuYearlySeries Caption = "Yearly Series" End End Begin VB.Menu mnuStageDischargeTransformation Caption = "Stage Discharge Transformation" End Begin VB.Menu mnuComputSedimentLoad Caption = "Comput SedimentLoad" Enabled = 0 'False Visible = 0 'False End Begin VB.Menu mnuExportImportData Caption = "Export/Import Data" End Begin VB.Menu mnuSaveToDatabase Caption = "Save to Database" End End Begin VB.Menu mnuDataProcessing Caption = "DataProcessing" Begin VB.Menu mnuStakes Caption = "Stakes" End Begin VB.Menu mnuTinstrument Caption = "Tinstrument" End Begin VB.Menu mnuCrossSectionProfileData Caption = "CrossSection Profile " End Begin VB.Menu mnuHTnTkkPforTidalRegion Caption = "HTnTkkP For TidalRegion" Begin VB.Menu mnuEntryHTnTkkPforTidalRegion Caption = "Entry HTnTkkP for TidalRegion " End Begin VB.Menu mnuDoubleEntryHTnTkkPforTidalRegion Caption = "DoubleEntry HTnTkkP for TidalRegion " End Begin VB.Menu mnuComputHtbTntbTkktbPtbForTidalRegion Caption = "Comput HtbTntbTkktbPtbForTidalRegion" End Begin VB.Menu mnuSelectHhourlyHpeakFoot Caption = "Select HhourlyHpeakFoot" End End Begin VB.Menu mnuWaterLevelMeasurement Caption = "WaterLevel/Temprature/Rainfall Measurement" Enabled = 0 'False Visible = 0 'False End Begin VB.Menu mnuHTnTkkPMeasurement Caption = "HTnTkkP Measurement" Enabled = 0 'False Visible = 0 'False 8 End Begin VB.Menu mnuDepthMeasurement Caption = "Depth Measurement" End Begin VB.Menu mnuStrongAffectedTideFlow Caption = "StrongAffectedTideFlow" Begin VB.Menu mnuTidCrossectionRatingTable Caption = "Tide Crossection Rating Table" End Begin VB.Menu mnuRepVelocityMeasurement Caption = "RepVelocityMeasurement" End Begin VB.Menu mnuADCPdataEntry Caption = "ADCPdataEntry" End Begin VB.Menu mnuVmcVdbFitting Caption = "Vmc= f(Vdb) fitting" End End Begin VB.Menu mnuWeakAffectedTideFlow Caption = "WeakAffectedTideFlow" Begin VB.Menu mnuFlowMeasurement Caption = "Flow Measurement" Begin VB.Menu mnuVelocityMeasurement Caption = "Velocity Measurement" End Begin VB.Menu mnuDischargeBook Caption = "Discharge Book" End Begin VB.Menu mnuStageDischargeData Caption = "Stage Discharge Data" End End Begin VB.Menu mnuQDischargeAndSedimentData Caption = "QDischarge And Sediment Data" End Begin VB.Menu mnuQRatingCurve Caption = "Rating Curve" End Begin VB.Menu mnuEntryKT3Table Caption = "Entry KT3 Table" End Begin VB.Menu mnuFloodData Caption = "Flood Data" End End Begin VB.Menu mnuExtrapolationOfRatingCurve Caption = "Extrapolation Of RatingCurve" End Begin VB.Menu mnuSedimentRatingCurve Caption = "Sediment RatingCurve And Comput R" Begin VB.Menu mnuUnitSedimentData Caption = "Unit Sediment Data" End Begin VB.Menu mnuFittingSedimentRatingCurve Caption = "Fitting Sediment RatingCurve and Comput R" End End Begin VB.Menu mnuImportExportDataofHydProcessing [...]... cọc và thuỷ chí, độ cao đầu cọc, thời đoạn sử dụng của cọc và thuỷ chí II.2 Giao diện các chơng trình phần mềm nhập và quản lý cọc và thuỷ chí 17 II.3 Mô tả các đối tợng với các Properties của giao diện các chơng trình phần mềm nhập và quản lý cọc và thuỷ chí VERSION 5 .00 Object = "{CDE57A 40- 8B86-11D0-B3C6 -00 A0C90AEA82}#1 .0# 0"; "MSDATGRD.OCX" Object = "{67397AA1-7FB1-11D0-B148 -00 A0C922E8 20} #6 .0# 0"; "MSADODC.OCX"... BeginProperty Column 00 DataField = "" Caption = "" BeginProperty DataFormat {6D8356 90- 900 B-11D0-9484 -00 A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 308 1 SubFormatType = 0 EndProperty EndProperty BeginProperty Column01 DataField = "" Caption = "" BeginProperty DataFormat {6D8356 90- 900 B-11D0-9484 -00 A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek... 'True BeginProperty HeadFont {0BE35 203 -8F91-11CE-9DE3 -00 AA 004 BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 20 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BeginProperty Font {0BE35 203 -8F91-11CE-9DE3 -00 AA 004 BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ColumnCount... " BeginProperty Font {0BE35 203 -8F91-11CE-9DE3 -00 AA 004 BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty _Version = 393216 End Begin MSDataGridLib.DataGrid grdDataGrid Align = 1 'Align Top Bindings = "frmStakes.frx" :00 00 Height = 3495 Left = 0 TabIndex = 0 Top = 0 Width = 5745 _ExtentX = 101 34 _ExtentY = 6165... 11 10 ClientTop = 345 ClientWidth = 5745 KeyPreview = -1 'True LinkTopic = "Form2" ScaleHeight = 4245 ScaleWidth = 5745 Begin VB.PictureBox picButtons Align = 2 'Align Bottom Appearance = 0 'Flat BorderStyle = 0 'None ForeColor = &H 800 000 08& 18 Height = 300 Left = 0 ScaleHeight = 300 ScaleWidth = 5745 TabIndex = 1 Top = 3615 Width = 5745 Begin VB.CommandButton cmdClose Caption = "&Close" Height = 300 ... 4675 TabIndex = 6 Top = 0 Width = 109 5 End Begin VB.CommandButton cmdRefresh Caption = "&Refresh" Height = 300 Left = 3521 TabIndex = 5 Top = 0 Width = 109 5 End Begin VB.CommandButton cmdDelete Caption = "&Delete" Height = 300 Left = 2367 TabIndex = 4 Top = 0 Width = 109 5 End Begin VB.CommandButton cmdUpdate Caption = "&Update" Height = 300 Left = 1213 TabIndex = 3 Top = 0 Width = 109 5 End Begin VB.CommandButton... = 300 Left = 59 TabIndex = 2 Top = 0 Width = 109 5 End End Begin MSAdodcLib.Adodc datPrimaryRS Align = 2 'Align Bottom Height = 3 30 Left = 0 Top = 3915 Width = 5745 _ExtentX = 101 34 _ExtentY = 582 ConnectMode = 0 CursorLocation = 3 IsolationLevel = -1 19 ConnectionTimeout= 15 CommandTimeout = 30 CursorType = 3 LockType = 3 CommandType = 8 CursorOptions = 0 CacheSize = 50 MaxRecords = 0 BOFAction = 0. .. Nhập V thuỷ trực Private Sub mnuVelocityMeasurement_Click() frmVelocity.Show End Sub Modul frmTidVmcRatingCurve Xác định Vmc, Vdb và chỉnh biên Q mùa ảnh hởng triều mạnh Private Sub mnuVmcVdbFitting_Click() frmTidVmcRatingCurve.Show End Sub II Xây dựng giao diện chung cho các chơng trình phần mềm nhập và quản lý cọc và thuỷ chí II.1 Chức năng nhiệm vụ các chơng trình nhập và quản lý cọc và thuỷ chí... Str(.Recordset.AbsolutePosition) & "/" & Str(.Recordset.RecordCount) Else Caption = "0/ 0" End If End With With DataGrid1 Columns (0) .Visible = False Columns(9).Visible = False ' Columns( 10) .Visible = False Columns(1).Width = 700 Columns(2).Width = 700 Columns(3).Width = 700 End With End Sub Chơng trình truy cập thông tin quan hệ một-nhiều của bảng lu thông tin cọc Private Sub Adodc2_MoveComplete(ByVal adReason... and Database System" If Len(HydConnectionString) = 0 Then MDIHydTidDB.Caption = MDIHYDTIDDBCaption & "-DataBase: C:\Users\cau\HYDTID\HYDTIDDB.mdb" Else MDIHydTidDB.Caption = MDIHYDTIDDBCaption & "-DataBase: " & HYDTIDPath End If MDIHydTidDB.Height = Screen.Height - 100 0 MDIHydTidDB.Width = Screen.Width - 400 MDIHydTidDB.Top = 200 MDIHydTidDB.Left = 200 MenuEnable AccessLevelOfUser IsReplication = False . Object= {00 025 600 -00 00- 000 0-C 000 -00 000 000 004 6}#5.2 #0; crystl32.ocx Object= {00 028C01 -00 00- 000 0 -00 00- 000 000 000 046}#1 .0# 0; DBGRID32.OCX Object={BB5C2B 20- F30E-11D0-9DB6 -00 AA00A478BC}#3 .0# 0; mapx 30. ocx Form=HYDTID.frm. mà hệ phần mềm đã sử dụng Type=Exe Reference=*G {00 0 204 30- 000 0 -00 00- C 000 -00 000 000 004 6}#2 .0# 0# WINDOWSsystem32stdole2.tlb#OLE Automation Reference=*G{56BF 902 0-7A2F-11D0-9482- 00 A0C91110ED}#1 .0# 0#. Reference=*G {00 025E01 -00 00- 000 0-C 000 -00 000 000 004 6}#5 .0# 0# Program FilesCommon FilesMicrosoft SharedDAOdao3 60. dll#Microsoft DAO 3.6 Object Library Object={C932BA88-4374- 101 B-A56C -00 AA 003 668DC}#1.1 #0;