BỘ TÀI NGUYÊN VÀ MÔI TRƯỜNG TRUNG TÂM KHÍ TƯỢNG THỦY VĂN QUỐC GIA BÁO CÁO TỔNG KẾT ĐỀ TÀI NGHIÊN CỨU KHOA HỌC VÀ CÔNG NGHỆ CẤP BỘ: NGHIÊN CỨU ỨNG DỤNG HỆ PHẦN MỀM XỬ LÝ SỐ LIỆU KHÍ TƯỢNG BỀ MẶT VÀ HỆ PHẦN MỀM XỬ LÝ SỐ LIỆU THUỶ VĂN VÙNG SÔNG KHÔNG ẢNH HƯỞNG TRIỀU hå s¬ kü thuËt phÇn mÒm xö lý sè liÖu khÝ t−îng bÒ mÆt 6696-1 17/12/2007 HÀ NỘI - 2007 15 CHƯƠNG TRÌNH NGUỒN Chương trình in: 1. In trang bìa BKT1: Option Explicit Option Compare Text Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdPrint_Click() If Trim(txtSTNO.Text) = "" Or Trim(txtYear.Text) = "" Or Trim(txtMonth.Text) = "" Then Exit Sub Printer.ScaleMode = vbPoints Printer.Orientation = 1 Page_BKT1_1 txtSTNO.Text, txtName.Text, CInt(txtYear.Text), CInt(txtMonth.Text) Print_BKT1_1_Data txtSTNO.Text, txtName.Text, CInt(txtYear.Text), CInt(txtMonth.Text) Printer.EndDoc End Sub Private Sub cmdSave_Click() If Trim(txtSTNO.Text) = "" Then Exit Sub Save Trim(txtSTNO.Text) End Sub Private Sub txtMonth_LostFocus() If txtSTNO.Text <> "" And txtYear.Text <> "" And txtMonth.Text <> "" Then Show_Data txtSTNO, CInt(txtYear.Text), CByte(txtMonth.Text) End If End Sub Private Sub txtSTNO_Change() If Len(txtSTNO.Text) = 5 Then If LookForSTNO(Trim(txtSTNO.Text), txtName) Then SendKeys ("{tab}") Else MsgBox "Khong co tram nay", vbInformation, "Hieu chinh khi ap ve muc tram" End If Else 16 End If End Sub Private Sub txtSTNO_GotFocus() With txtSTNO .SelStart = 0 .SelLength = Len(.Text) End With End Sub Private Sub txtSTNO_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case vbKey0 To vbKey9, 8, 47, 67, 99, 80, 112 Case 13 Case Else KeyAscii = 0 End Select End Sub Private Sub txtSTNO_LostFocus() If txtSTNO.Text <> "" And txtYear.Text <> "" And txtMonth.Text <> "" Then Show_Data txtSTNO, CInt(txtYear.Text), CByte(txtMonth.Text) End If End Sub Private Sub txtYear_Change() If Len(txtYear.Text) = 4 Then If Check_Number(Trim(txtYear.Text), "2100", "2000") Then SendKeys ("{tab}") Else MsgBox "Xem l¹i n¨m", vbInformation, "Khi tuong be mat" End If Else End If End Sub Private Sub txtYear_GotFocus() With txtYear .SelStart = 0 .SelLength = Len(.Text) End With End Sub Private Sub txtYear_KeyPress(KeyAscii As Integer) 17 Select Case KeyAscii Case vbKey0 To vbKey9, 8 Case 13 SendKeys ("{tab}") Case 43 KeyAscii = 0 SendKeys ("shift+{tab}") Case Else KeyAscii = 0 End Select End Sub Private Sub txtMonth_Change() If Len(txtMonth.Text) = 2 Then If Check_Number(Trim(txtMonth.Text), "12", "1") Then SendKeys ("{tab}") Else MsgBox "Xem l¹i th¸ng", vbInformation, "Khi tuong be mat" End If Else End If End Sub Private Sub txtMonth_GotFocus() With txtMonth .SelStart = 0 .SelLength = Len(.Text) End With End Sub Private Sub txtMonth_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case vbKey0 To vbKey9, 8 Case 13 SendKeys ("{tab}") Case 43 KeyAscii = 0 txtYear.SetFocus Case Else KeyAscii = 0 End Select End Sub Sub Delete_Data() txtProvince.Text = "" 18 txtDistrict.Text = "" txtAL.Text = "" txtLA.Text = "" txtLon.Text = "" txtLevel.Text = "" txtDry_temp_No.Text = "" txtWet_temp_No.Text = "" txtMax_temp_No.Text = "" txtMin_temp_No.Text = "" txtSoil_temp_No.Text = "" txtMax_soil_temp_No.Text = "" txtMin_Soil_temp_No.Text = "" txtAtmos_No.Text = "" txtAtmos_Type.Text = "" txtAtmos_Madein.Text = "" txtAtmosCorrection.Text = "" txtAtmosHeight.Text = "" txtVild.Text = "" txtVildHeight.Text = "" txtVild.Text = "" txtVildHeight.Text = "" txtAuto_wind_No.Text = "" txtAutoWindHeight.Text = "" txtAuto_write_wind_No.Text = "" txtAutoWriteWindHeight.Text = "" txtRain_Tank_No.Text = "" txtRain_Tank_Type.Text = "" txtPiche_No.Text = "" txtStationManeger.Text = "" txtObservator.Text = "" End Sub Sub Save(ByVal STNO As String) Dim rsStation_mas As dao.Recordset Dim strSQL As String strSQL = "" strSQL = "SELECT STATION_MAS.STNO, STATION_MAS.DayVVFocus, STATION_MAS.NightVVForcus, STATION_MAS.ReporterName, " strSQL = strSQL & "STATION_MAS.ControlerName, STATION_MAS.LastControlerName " strSQL = strSQL & "FROM STATION_MAS " strSQL = strSQL & "WHERE (((STATION_MAS.STNO)='" & STNO & "'));" Set rsStation_mas = db.OpenRecordset(strSQL) With rsStation_mas 19 If Not .EOF Then .MoveFirst .Edit If Trim(txtReporter.Text) <> "" Then !ReporterName = txtReporter.Text Else !ReporterName = Null End If If Trim(txtControler.Text) <> "" Then !ControlerName = txtControler.Text Else !ControlerName = Null End If If Trim(txtLastControler.Text) <> "" Then !LastControlerName = txtLastControler.Text Else !LastControlerName = Null End If If Trim(txtDayVV.Text) <> "" Then !DayVVFocus = txtDayVV.Text Else !DayVVFocus = Null End If If Trim(txtNightVV.Text) <> "" Then !NightVVForcus = txtNightVV.Text Else !NightVVForcus = Null End If .Update End If .Close End With Set rsStation_mas = Nothing End Sub Sub Show_Data(STNO As String, Year As Integer, Month As Integer) Dim datBgMonth As Date Dim datEnMonth As Date Dim rsStation_mas As dao.Recordset Dim rsInstruments As dao.Recordset 20 Dim rsObservator As dao.Recordset Dim strSQL As String Delete_Data strSQL = "" strSQL = strSQL & "SELECT STATION_MAS.STNO, STATION_MAS.NAME, STATION_MAS.Level, " strSQL = strSQL & "Area.AreaName , Province.ProvinceName, STATION_MAS.AL, " strSQL = strSQL & "STATION_MAS.LA, STATION_MAS.Lon, STATION_MAS.DIST, STATION_MAS.Notes, " strSQL = strSQL & "STATION_MAS.DayVVFocus, STATION_MAS.NightVVForcus, STATION_MAS.ReporterName, " strSQL = strSQL & "STATION_MAS.ControlerName, STATION_MAS.LastControlerName " strSQL = strSQL & "FROM (STATION_MAS INNER JOIN AREA " strSQL = strSQL & "ON STATION_MAS.AreaID = AREA.AreaID) " strSQL = strSQL & "INNER JOIN PROVINCE ON STATION_MAS.ProvinceID = PROVINCE.ProvinceID " strSQL = strSQL & "WHERE (((STATION_MAS.STNO)='" & STNO & "'));" Set rsStation_mas = db.OpenRecordset(strSQL) With rsStation_mas If .RecordCount > 0 Then 'If Not IsNull(!AreaName) Then rsCover!Region = !AreaName If Not IsNull(!ProvinceName) Then txtProvince.Text = !ProvinceName Else txtProvince.Text = "" End If If Not IsNull(!DIST) Then txtDistrict.Text = !DIST Else txtDistrict.Text = "" End If If Not IsNull(!AL) Then txtAL.Text = !AL & " m" Else txtAL.Text = "" End If If Not IsNull(!LA) Then txtLA.Text = !LA Else txtLA.Text = "" End If 21 If Not IsNull(!Lon) Then txtLon.Text = !Lon Else txtLon.Text = "" End If If Not IsNull(!Level) Then txtLevel.Text = !Level Else txtLevel.Text = "" End If If Not IsNull(!ReporterName) Then txtReporter.Text = !ReporterName Else txtReporter.Text = "" End If If Not IsNull(!ControlerName) Then txtControler.Text = !ControlerName Else txtControler.Text = "" End If If Not IsNull(!LastControlerName) Then txtLastControler.Text = !LastControlerName Else txtLastControler.Text = "" End If If Not IsNull(!DayVVFocus) Then txtDayVV.Text = !DayVVFocus Else txtDayVV.Text = "" End If If Not IsNull(!NightVVForcus) Then txtNightVV.Text = !NightVVForcus Else txtNightVV.Text = "" End If End If .Close End With Set rsStation_mas = Nothing strSQL = "select * from istruments " 22 strSQL = strSQL & "where stno='" & STNO & "'" Set rsInstruments = db.OpenRecordset(strSQL) With rsInstruments If .RecordCount > 0 Then .MoveFirst Do Select Case !InstrID Case 1 'nhiet ke kho txtDry_temp_No.Text = !InstrNum Case 2 'tw txtWet_temp_No.Text = !InstrNum Case 3 'Tx txtMax_temp_No.Text = !InstrNum Case 4 'Tn txtMin_temp_No.Text = !InstrNum Case 5 'Tg txtSoil_temp_No.Text = !InstrNum Case 6 'Tgx txtMax_soil_temp_No.Text = !InstrNum Case 7 'Tgn txtMin_Soil_temp_No.Text = !InstrNum Case 8 'P txtAtmos_No.Text = !InstrNum If Not IsNull(!InstrType) Then txtAtmos_Type.Text = !InstrType If Not IsNull(!InstrMadeIn) Then txtAtmos_Madein.Text = !InstrMadeIn If Not IsNull(!InstrCorr) Then txtAtmosCorrection.Text = !InstrCorr If Not IsNull(!InstrHeight) Then txtAtmosHeight.Text = !InstrHeight & " m" Case 10 'light_vild txtVild.Text = !InstrNum If Not IsNull(!InstrHeight) Then txtVildHeight.Text = !InstrHeight & " m" Case 11 'heavy_vild txtVild.Text = !InstrNum If Not IsNull(!InstrHeight) Then txtVildHeight.Text = !InstrHeight & " m" Case 12 'auto_wind txtAuto_wind_No.Text = !InstrNum If Not IsNull(!InstrHeight) Then txtAutoWindHeight.Text = !InstrHeight & " m" Case 13 'write_wind txtAuto_write_wind_No.Text = !InstrNum If Not IsNull(!InstrHeight) Then txtAutoWriteWindHeight.Text = !InstrHeight & " m" Case 14 'Tank_rain txtRain_Tank_No.Text = !InstrNum If Not IsNull(!InstrType) Then txtRain_Tank_Type.Text = !InstrType 23 Case 15 'Piche txtPiche_No.Text = !InstrNum Case 42 txtRain_Cup_No.Text = !InstrNum End Select .MoveNext Loop Until .EOF End If .Close End With Set rsInstruments = Nothing strSQL = "SELECT * FROM observators" strSQL = strSQL & " Where (STNO ='" & STNO & "')" Set rsObservator = db.OpenRecordset(strSQL) Dim strObservator As String strObservator = "" With rsObservator If Not .EOF Then .MoveFirst Do If !Position = 1 Then txtStationManeger.Text = !Name Else strObservator = strObservator & ", " & !Name End If .MoveNext Loop Until .EOF If strObservator <> "" Then txtObservator.Text = Right(strObservator, Len(strObservator) - 2) End If .Close End With Set rsObservator = Nothing End Sub [...]... Printer.Print "Bộ tài nguyên và môi tr-ờng" Printer.CurrentX = 145 Printer.CurrentY = 45 Printer.Print "Trung tâm khí t-ợng thuỷ văn quốc gia" Printer.Font.Name = ".VnTime" Printer.Font.Bold = True Printer.CurrentX = 445 Printer.CurrentY = 70 Printer.Print "BKT - 10" Printer.Font.Name = ".VnTimeH" Printer.CurrentX = 196 Printer.CurrentY = 100 Printer.Font.Size = 16 Printer.Print "Bảng số liệu khí t-ợng" Printer.CurrentX... intLeftSpace + 200 Printer.CurrentY = intY Printer.Print "Độ cao chậu khí áp trên mặt biển: " intY = intY + intRowHeight Printer.CurrentX = intLeftMargin + intLeftSpace Printer.CurrentY = intY Printer.Print "Máy gió Vild số: " Printer.CurrentX = intLeftMargin + intLeftSpace + 200 Printer.CurrentY = intY Printer.Print "Độ cao trên mặt đất: " intY = intY + intRowHeight Printer.CurrentX = intLeftMargin... Printer.Print "Máy gió tự báo số: " Printer.CurrentX = intLeftMargin + intLeftSpace + 200 35 Printer.CurrentY = intY Printer.Print "Độ cao trên mặt đất: " intY = intY + intRowHeight Printer.CurrentX = intLeftMargin + intLeftSpace Printer.CurrentY = intY Printer.Print "Máy gió tự ghi số: " Printer.CurrentX = intLeftMargin + intLeftSpace + 200 Printer.CurrentY = intY Printer.Print "Độ cao trên mặt đất: " intY = intY... intLineSpace, intBottomMargin - intLineSpace) Printer.Font.Name = ".VnTimeH" Printer.CurrentX = 190 Printer.CurrentY = 30 Printer.Print "Bộ tài nguyên và môi tr-ờng" Printer.CurrentX = 145 Printer.CurrentY = 45 Printer.Print "Trung tâm khí t-ợng thuỷ văn quốc gia" Printer.CurrentX = 450 Printer.CurrentY = 70 Printer.Font.Name = ".VnTime" Printer.Font.Bold = True Printer.Print "BKT - 1" Printer.Font.Name... Printer.CurrentY = intY Printer.Print "Khí áp kế số: " Printer.CurrentX = intLeftMargin + intLeftSpace + 200 Printer.CurrentY = intY Printer.Print "Kiểu:" Printer.CurrentX = intLeftMargin + intLeftSpace + 310 Printer.CurrentY = intY Printer.Print "N-ớc sản xuất: " intY = intY + intRowHeight Printer.CurrentX = intLeftMargin + intLeftSpace Printer.CurrentY = intY Printer.Print "Hiệu chính khí cụ:" Printer.CurrentX... Printer.Print "Thùng đo m-a số: " Printer.CurrentX = intLeftMargin + intLeftSpace + 200 Printer.CurrentY = intY Printer.Print "Kiểu: " Printer.CurrentX = intLeftMargin + intLeftSpace + 320 Printer.CurrentY = intY Printer.Print "ống đo m-a số: " intY = intY + intRowHeight Printer.CurrentX = intLeftMargin + intLeftSpace Printer.CurrentY = intY Printer.Print "ống đo bốc hơi Piche số: " intY = intY + intRowHeight... Printer.Print "Nhiệt kế khô số: " Printer.CurrentX = intLeftMargin + intLeftSpace + 250 Printer.CurrentY = intY Printer.Print "Nhiệt kế th-ờng số: " intY = intY + intRowHeight Printer.CurrentX = intLeftMargin + intLeftSpace Printer.CurrentY = intY Printer.Print "Nhiệt kế" Printer.CurrentX = intLeftMargin + intLeftSpace + 50 Printer.CurrentY = intY Printer.Print "Nhiệt kế -ớt số: " Printer.CurrentX = intLeftMargin... Printer.Print "Nhiệt kế tối cao số: " intY = intY + intRowHeight Printer.CurrentX = intLeftMargin + intLeftSpace Printer.CurrentY = intY Printer.Print "trong lều" Printer.CurrentX = intLeftMargin + intLeftSpace + 50 Printer.CurrentY = intY Printer.Print "Nhiệt kế tối cao số: " Printer.CurrentX = intLeftMargin + intLeftSpace + 200 Printer.CurrentY = intY Printer.Print "mặt đất" Printer.CurrentX = intLeftMargin... intLeftSpace + 250 Printer.CurrentY = intY Printer.Print "Nhiệt kế tối thấp số: " intY = intY + intRowHeight Printer.CurrentX = intLeftMargin + intLeftSpace + 50 Printer.CurrentY = intY Printer.Print "Nhiệt kế tối thấp số: " intY = intY + intRowHeight Printer.CurrentX = intLeftMargin + intLeftSpace Printer.CurrentY = intY Printer.Print "Đồng hồ kiểu: Để bàn Điều chỉnh theo giờ: Đài Tiếng nói Việt Nam" intY =... Printer.Print "Họ tên và nhận xét của tr-ởng trạm " intY = intY + intRowHeight intY = intY + intRowHeight Printer.CurrentX = intLeftMargin + intLeftSpace Printer.CurrentY = intY Printer.Print "Họ tên và nhận xét của kiểm soát viên: " intY = intY + intRowHeight intY = intY + intRowHeight Printer.CurrentX = intLeftMargin + intLeftSpace Printer.CurrentY = intY Printer.Print "Họ tên và nhận xét của ng-ời . NGUYÊN VÀ MÔI TRƯỜNG TRUNG TÂM KHÍ TƯỢNG THỦY VĂN QUỐC GIA BÁO CÁO TỔNG KẾT ĐỀ TÀI NGHIÊN CỨU KHOA HỌC VÀ CÔNG NGHỆ CẤP BỘ: NGHIÊN CỨU ỨNG DỤNG HỆ PHẦN MỀM XỬ LÝ SỐ LIỆU KHÍ TƯỢNG. HỆ PHẦN MỀM XỬ LÝ SỐ LIỆU KHÍ TƯỢNG BỀ MẶT VÀ HỆ PHẦN MỀM XỬ LÝ SỐ LIỆU THUỶ VĂN VÙNG SÔNG KHÔNG ẢNH HƯỞNG TRIỀU hå s¬ kü thuËt phÇn mÒm xö lý sè liÖu khÝ t−îng bÒ mÆt