1. Trang chủ
  2. » Luận Văn - Báo Cáo

ỨNG DỤNG PHẦN MỀM ARCGIS XÂY DỰNG CHƯƠNGTRÌNH QUẢN LÝ HỆ THỐNG THÔNG TIN CƠ SỞ HẠ TẦNGTHÀNH PHỐ VŨNG TÀU – TỈNH BÀ RỊA – VŨNG TÀU

129 98 0

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 129
Dung lượng 3,19 MB

Nội dung

Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương TRƯỜNG ĐẠI HỌC NÔNG LÂM TP.HCM KHOA QUẢN LÝ ĐẤT ĐAI VÀ BẤT ĐỘNG SẢN BÁO CÁO TỐT NGHIỆP ĐỀ TÀI: “ỨNG DỤNG PHẦN MỀM ARCGIS XÂY DỰNG CHƯƠNG TRÌNH QUẢN LÝ HỆ THỐNG THÔNG TIN CƠ SỞ HẠ TẦNG THÀNH PHỐ VŨNG TÀU – TỈNH BÀ RỊA – VŨNG TÀU” SVTH MSSV LỚP KHOA NGÀNH : NGUYỄN DUY PHƯƠNG : 06151057 : : DH06DC : 2006 – 2010 : Công Nghệ Địa Chính - TP Hồ Chí Minh, tháng 08 năm 2010- Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương TRƯỜNG ĐẠI HỌC NÔNG LÂM TP.HCM KHOA QUẢN LÝ ĐẤT ĐAI VÀ BẤT ĐỘNG SẢN TRƯỜNG ĐẠI HỌC NƠNG LÂM TP HỒ CHÍ MINH KHOA QUẢN LÝ ĐẤT ĐAI & BẤT ĐỘNG SẢN NGÀNH QUẢN LÝ ĐẤT ĐAI  NGUYỄN DUY PHƯƠNG “ỨNG DỤNG ARCGIS XÂY DỰNG HỆ THỐNG QUẢN LÝ THÔNG TIN CƠ SỞ HẠ TẦNG THÀNH PHỐ VŨNG TÀU – TỈNH BÀ RỊA – VŨNG TÀU” Giáo viên hướng dẫn: Ths Trần Duy Hùng Địa quan: Trường Đại Học Nơng Lâm Tp Hồ Chí Minh Ký tên: ………………………………………… - Tháng 08, năm 2010 - Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương - Tháng 07 năm 2010LỜI CẢM ƠN -o0o - Em xin gửi lời cảm ơn chân thành đến quý thầy cô khoa Quản Lý Đất Đai Thị Trường Bất Động Sản, trường Đại Học Nông Lâm Thành Phố Hồ Chí Minh cho em thật nhiều kinh nghiệm kiến thức quý báu suốt thời gian em học tập trường Con xin cảm ơn cha mẹ người thân gia đình nuôi dưỡng, dạy dỗ nên người cho môi trường học tập thật tốt Em xin cảm ơn thầy Trần Duy Hùng tận tình bảo, giúp đỡ em hoàn thành luận văn tốt nghiệp Em xin cảm ơn cô chú, anh chị Phòng Quản Lý Đơ Thị Tài Ngun & Mơi Trường thành phố Vũng Tàu nhiệt tình giúp đỡ em trình em thực tập quan Cuối em xin cảm ơn tất bạn lớp DH06C trao đổi, hỗ trợ em suốt thời gian học việc hoàn thành luận văn tốt nghiệp TP Hồ Chí Minh, ngày 16 tháng 08 năm 2010 Sinh viên thực Nguyễn Duy Phương Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương MỤC LỤC Trang tựa …… .i Lời cảm ơn …… .ii Mục lục …… iii Tóm tắt …… vi Danh sách chữ viết tắt …… viii ĐẶT VẤN ĐỀ MỤC ĐÍCH - YÊU CẦU ĐỐI TƯỢNG - PHẠM VI PHẦN I: TỔNG QUAN NGHIÊN CỨU I.1 Khái quát hệ thống thông tin địa lý (GIS) I.1.1 Định nghĩa GIS I.1.2 Các thành phần GIS I.1.3 Đặc điểm chung I.2 Phần mềm ArcGIS – Ngơn ngữ lập trình ARCOBJECTS I.2.1 Giới thiệu phần mềm ArcGIS I.2.2 Giới thiệu ngơn ngữ lập trình ARCOBJECTS I.3 Các vấn đề thông tin CSHT 12 I.4 Khái quát địa bàn nghiên cứu 13 I.4.1 Điều kiện tự nhiên – kinh tế xã hội 13 A.Điều kiện tự nhiên 13 B.Điều kiện kinh tế - xã hội 15 I.4.2 Hiện trạng hệ thống hạ tầng kĩ thuật 16 I.4.2.1 Giao thông 16 I.4.2.2 Cấp điện 17 I.4.2.3 Cấp – thoát nước 17 I.4.3 Hiện trạng nhà cơng trình 18 I.4.4 Quy hoạch sở hạ tầng đô thị TP Vũng Tàu 2020 19 I.5 Nội dung - Phương pháp nghiên cứu 26 Ngành Công Nghệ Địa Chính SVTH: Nguyễn Duy Phương I.5.1 Nội dung nghiên cứu 26 I.5.2 Phương pháp nghiên cứu 26 PHẦN II: KẾT QUẢ NGHIÊN CỨU 28 II.1 Đánh giá trạng hạ tầng kĩ thuật 28 II.2 Đánh giá nguồn tài liệu đồ 32 II.3 Khảo sát trạng liệu 33 II.3.1 Đánh giá cấu trúc liệu 34 II.3.2 Đánh giá chất lượng liệu dùng để xây dựng CSDL 35 II.3.3 Chuẩn hóa CSDL thơng tin sỏ hạ tầng 35 II.3.3.1 Phân lớp liệu 35 II.3.3.2 Chuẩn hóa liệu không gian 36 II.3.3.2.1 Biên tập, chuẩn hóa đồ hệ thống giao thông & xanh 36 II.3.3.2.2 Biên tập, chuẩn hóa đồ cấp nước 38 II.3.3.2.3 Biên tập, chuẩn hóa đồ nước 39 II.3.3.2.4 Biên tập, chuẩn hóa đồ hệ thống điện 40 II.3.3.2.5 Biên tập, chuẩn hóa đồ cáp viễn thơng & trạm BTS 41 II.3.3.2.6 Biên tập, chuẩn hóa đồ hệ thống chiếu sáng 42 II.4 Xây dựng công cụ hổ trợ cho công tác quản lý thông tin CSHT 46 II.4.1 Chương trình quản lý thơng tin giao thơng & xanh 46 II.4.2 Chương trình quản lý thông tin cấp nước 53 II.4.3 Chương trình quản lý thơng tin thoát nước 59 II.4.4 Chương trình quản lý thơng tin lưới điện 65 II.4.5 Chương trình quản lý thông tin cáp viễn thông 71 II.4.6 Chương trình quản lý thơng tin chiếu sáng 77 II.5 Đánh giá hiệu việc sử dụng hệ thống phần mềm ArcGIS - Công cụ hổ trợ xây dựng quản lý thông tin CSHT 82 II.5.1 Hiệu mặt thời gian 82 II.5.2 Hiệu mặt kỹ thuật 83 II.5.3 Một số hạn chế 83 KẾT LUẬN - KIẾN NGHỊ 84 Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương TÀI LIỆU THAM KHẢO 86 Phụ lục 87 Ngành Công Nghệ Địa Chính SVTH: Nguyễn Duy Phương TĨM TẮT LUẬN VĂN Sinh viên thực hiện: Nguyễn Duy Phương, Khoa Quản lý Đất đai & Bất động sản, Trường Đại Học Nông Lâm TP Hồ Chí Minh Đề tài: “ỨNG DỤNG PHẦN MỀM ARCGIS XÂY DỰNG CHƯƠNG TRÌNH QUẢN LÝ HỆ THỐNG THÔNG TIN CƠ SỞ HẠ TẦNG THÀNH PHỐ VŨNG TÀU – TỈNH BÀ RỊA – VŨNG TÀU” Giáo viên hướng dẫn: ThS Trần Duy Hùng Hệ thống thông tin địa lý công cụ hỗ trợ đắc lực, hiệu làm sở cho lãnh đạo địa phương hoạch định sách, định cách xác, nhanh chóng sở hệ thống liệu tự nhiên kinh tế - xã hội lưu trữ, cập nhật Trong lĩnh vực quản lý thị cơng cụ đắc lực cho phép phân tích, đánh giá đầy đủ trạng hiệu cở sở hạ tầng để từ định hướng khai thác, quản lý hiệu quả, tiết kiệm nguồn lực ArcGIS phần mềm việc quản lý sở liệu không gian sở liệu thuộc tính Cho phép người dùng nắm bắt thông tin chinh xác sở hạ tầng truy xuất liệu phục vụ cho công tác liên quan Nhằm đáp ứng yêu cầu công tác quản lý Nhà nước đô thị ngày đại thời gian tới đảm bảo định hướng phát triển, ứng dụng GIS vào công tác quản lý thông tin sở hạ tầng quản lý hiệu địa bàn, dễ dàng kiểm sốt biến động cập nhật thơng tin sở hạ tầng Từ yêu cầu thực tế nêu trên, em “ỨNG DỤNG PHẦN MỀM ARCGIS XÂY DỰNG CHƯƠNG TRÌNH QUẢN LÝ HỆ THỐNG THƠNG TIN CƠ SỞ HẠ TẦNG THÀNH PHỐ VŨNG TÀU – TỈNH BÀ RỊA – VŨNG TÀU” giải phần bất cập công tác quản lý thông tin đô thị Các phương pháp sử dụng: - Phương pháp so sánh, phân tích, tổng hợp - Phương pháp điều tra: Nghiên cứu, xây dựng tổng hợp tài liệu có liên quan đến vấn đề nghiên cứu - Phương pháp thống kê: Áp dụng việc phân tích, đánh giá chất lượng liệu đầu vào, sử dụng kèm với phần mềm Microsofl Excel - Phương pháp đồ: Sử dụng loại đồ để đối chiếu, so sánh liệu đầu vào Áp dụng công tác cập nhật chỉnh lý biến động - Phương pháp chuyên gia: Tham khảo ý kiến đóng góp người am hiểu lỉnh vực thông tin quản lý đô thị tin học Ngành Công Nghệ Địa Chính SVTH: Nguyễn Duy Phương Chương trình đạt kết quả: - Xây dựng mơ hình liệu khơng gian thuộc tính cho đối tượng: đường giao thơng, cấp – nước, điện, viễn thơng, chiếu sáng tương đối đầy đủ hợp lý - Xây dựng cơng cụ tiện ích quản lý thơng tin sở hạ tầng Ngành Công Nghệ Địa Chính SVTH: Nguyễn Duy Phương DANH SÁCH CÁC CHỮ VIẾT TẮT QHTT : Quy hoạch tổng thể VKTTĐPN : Vùng kinh tế trọng điểm phía Nam UBND : Ủy Ban nhân dân TEU : Sức chứa côngtenơ TP : Thành Phố DWT : đơn vị đo lực vận tải an tồn tàu thủy tính GIS : Hệ thống thông tin địa lý VBA : Visual Basic for Application CSDL : Cơ sở liệu CSHT : Cơ sở hạ tầng TBS : Trạm phát sóng TCVN : Tiêu chuẩn Việt Nam CRT : Chất rắn sinh hoạt Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương ĐẶT VẤN ĐỀ Ngày với phát triển không ngừng nước, tốc độ đô thị hóa làm thay đổi nhanh chóngbộ mặt đất nước Cơ sở hạ tầng nâng cấp tín hiệu lạc quan thời điểm nước ta đà hội nhập kinh tế giới Đường xá mở mang khang trang, hệ thống lưới điện phủ khắp nước, hệ thống cấp thoát nước đáp ứng nhu cầu sinh hoạt nhân dân Tuy nhiên với phát triển đặt khơng khó khăn cho quan quản lý nhằm sử dụng hợp lý để mang lại hiệu cao Thành phố Vũng Tàu thành phố loại 2, trực thuộc tỉnh Bà Rịa Vũng Tàu, mặt địa giới hành thành phố gồm bán đảo (Vũng Tàu) đảo Long Sơn, tổng diện tích tự nhiên 15001 với đặc điểm địa hình phức tạp bao gồm núi, đồng bằng, bãi cát ven biển rừng ngập mặn ven biển Về mặt phát triển kinh tế, thành phố Vũng Tàu nằm vùng tam giác phát triển kinh tế miền Đông Nam Bộ, trung tâm công nghiệp khai thác, chế biến dầu khí lớn nước, đồng thời mười trung tâm du lịch lớn Việt Nam trung tâm khai thác, chế biến hải sản xuất lớn miền Đông Nam Bộ Với vị kinh tế quan trọng tốc độ tăng trưởng GDP hàng năm thành phố vào hạng cao nước thực đẩy nhanh việc thị hố thành phố Do UBND tỉnh Bà Rịa Vũng Tàu UBND thành phố Vũng Tàu quan tâm nên công tác quy hoạch chung xây dựng đô thị triển khai sớm: Quy hoạch chung thành phố TL 1/10.000 giai đoạn 1993-2010 Thủ tuớng Chính phủ phê duyệt, đồng thời quy hoạch chi tiết TL 1/2.000 hoàn thành phê duyệt làm cho việc thực dự án đầu tư sở hạ tầng chung thành phố thực tốt Năm 2005, Thành phố thực xong đo đạc đồ địa chính quy địa quy hoạch chung xây dựng Thành phố Vũng Tàu đến năm 2020 làm sở cho cơng tác quản lý thị có vấn đề quản lý sở hạ tầng đô thị Tuy nhiên tốc độ phát triển công nghiệp, dân cư kinh tế xã hội nhanh; thời điểm, địa bàn có nhiều dự án xây dựng triển khai, nhiều chủ đầu tư quản lý, nhiều đơn vị tư vấn thực khảo sát, thiết kế nhiều đơn vị thi cơng; có cơng trình hồn thành đưa vào sử dụng khơng chuyển giao hồ sơ thiết kế, hồn cơng đầy đủ,đồng thời có nhiều cơng trình dở dang khơng báo cáo nên quan quản lý hạ tầng kỹ thuật chung thành phố (Phòng Quản lý đô thị) chưa nắm đầy đủ trạng, quy hoạch, thiết kế cơng trình hạ tầng kỹ thuật thành phố để thực trách nhiệm quản lý , lập kế hoạch đầu tư tu bổ, bảo dưỡng , sửa chửa xây dựng mới, nhằm bảo đảm hệ thống cơng trình hạ tầng kỹ thuật chung phát triển đồng bộ, kỹ thuật phục vụ tốt cho việc xây dựng cơng trình phục vụ sản xuất kinh doanh, khu đô thị cơng trình phục vụ cơng cộng có hiệu 10 Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương Phụ lục 6: Các control sử dụng giao diện Tổng hợp thơng tin (Ví dụ:Tổng hợp giao thơng) Caption Control Name Tổng hợp thông tin giao thông Form Form_tonghop_giaothong Tên tuyến Label Label1 Combobox Cbtentuyen Label Label2, Label3, Label4 Listbox lsthienthi Tìm CommandButton CommandButton1 Xuất thơng tin CommandButton CommandButton2 Thốt CommandButton CommandButton3 Số lượng thơng tin Label Label5 TextBox txtsoluong FID, Điểm đầu, Điểm cuối 115 Ngành Công Nghệ Địa Chính SVTH: Nguyễn Duy Phương Phụ lục 7: Code sử dụng thực Tổng hợp thông tin (xuất thông tin dạng Excel) Dim pFeature As IFeature Private Sub CommandButton1_Click() Dim pMap As IMap Dim pActiveView As IActiveView Dim pFeature As IFeature Dim pMxDoc As IMxDocument Set pMxDoc = Application.Document Set pActiveView = pMxDoc.FocusMap Dim pQuery As IQueryFilter Dim pFeatureLayer As IFeatureLayer Dim pFeatureClass As IFeatureClass Dim pFeatureCursor As IFeatureCursor Dim ShapeFieldName As String Dim pLayer As ILayer Set pMap = pActiveView Set pLayer = TimLop("giaothong_qh_region") Set pFeatureLayer = pLayer Set pFeatureClass = pFeatureLayer.FeatureClass Set pQuery = New QueryFilter Dim Max As String Max = form_tonghop_giaothong.cbtentuyen pQuery.WhereClause = "TEN_DUONG = '" & Max & "'" Set pFeatureCursor = pFeatureClass.Search(pQuery, False) Set pFeature = pFeatureCursor.NextFeature lsthienthi.Clear lsthienthi.ColumnCount = While Not pFeature Is Nothing 116 Ngành Công Nghệ Địa Chính SVTH: Nguyễn Duy Phương lsthienthi.AddItem pFeature.Value(pFeature.Fields.FindField("FID")), lsthienthi.List(0, 1) = pFeature.Value(pFeature.Fields.FindField("DIEMDAU")) lsthienthi.List(0, 2) = pFeature.Value(pFeature.Fields.FindField("DIEMCUOI")) Set pFeature = pFeatureCursor.NextFeature Wend txttong = lsthienthi.ListCount If lsthienthi.ListCount = Then MsgBox "Bạn chọn chưa tuyến!", vbApplicationModal, "Thông báo" End If Dim pFeatureSelection As IFeatureSelection Set pFeatureSelection = pFeatureLayer pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing pFeatureSelection.SelectFeatures pQuery, esriSelectionResultNew, False pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing End Sub Private Sub CommandButton5_Click() Unload Me End Sub Private Sub CommandButton6_Click() Dim pMap As IMap Dim pActiveView As IActiveView Dim pFeature As IFeature Dim pMxDoc As IMxDocument Set pMxDoc = Application.Document Set pActiveView = pMxDoc.FocusMap Dim pQuery As IQueryFilter Dim pFeatureLayer As IFeatureLayer Dim pFeatureClass As IFeatureClass Dim pFeatureCursor As IFeatureCursor Dim ShapeFieldName As String 117 Ngành Công Nghệ Địa Chính SVTH: Nguyễn Duy Phương Dim pLayer As ILayer Set pMap = pActiveView Set pLayer = TimLop("giaothong_qh_region") Set pFeatureLayer = pLayer Set pFeatureClass = pFeatureLayer.FeatureClass Set pQuery = New QueryFilter Dim Max As String Max = form_tonghop_giaothong.cbtentuyen pQuery.WhereClause = "TEN_DUONG = '" & Max & "'" Set pFeatureCursor = pFeatureClass.Search(pQuery, False) Set pFeature = pFeatureCursor.NextFeature lsthienthi.Clear lsthienthi.ColumnCount = While Not pFeature Is Nothing lsthienthi.AddItem pFeature.Value(pFeature.Fields.FindField("TEN_DUONG")), lsthienthi.List(0, 1) = pFeature.Value(pFeature.Fields.FindField("FID")) lsthienthi.List(0, 2) = pFeature.Value(pFeature.Fields.FindField("DIEMDAU")) lsthienthi.List(0, 3) = pFeature.Value(pFeature.Fields.FindField("DIEMCUOI")) form_tonghop_giaothong.IMG.Picture = LoadPicture(pFeature.Value(pFeature.Fields.FindField("MAT_CAT"))) Set pFeature = pFeatureCursor.NextFeature Wend Dim pFeatureSelection As IFeatureSelection Set pFeatureSelection = pFeatureLayer 'QI pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing pFeatureSelection.SelectFeatures pQuery, esriSelectionResultNew, False pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing End Sub Private Sub lsthienthi_Click() Dim pMap As IMap 118 Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương Dim pActiveView As IActiveView Dim pFeature As IFeature Dim pMxDoc As IMxDocument Set pMxDoc = Application.Document Set pActiveView = pMxDoc.FocusMap Dim pQuery As IQueryFilter Dim pFeatureLayer As IFeatureLayer Dim pFeatureClass As IFeatureClass Dim pFeatureCursor As IFeatureCursor Dim ShapeFieldName As String Dim pLayer As ILayer Set pMap = pActiveView Set pLayer = TimLop("giaothong_qh_region") Set pFeatureLayer = pLayer Set pFeatureClass = pFeatureLayer.FeatureClass Set pQuery = New QueryFilter Dim st As String st = form_tonghop_giaothong.cbtentuyen pQuery.WhereClause = "FID = " & lsthienthi.List(lsthienthi.ListIndex) & "" Set pFeatureCursor = pFeatureClass.Search(pQuery, False) Set pFeature = pFeatureCursor.NextFeature If Not pFeature Is Nothing Then pMxDoc.ActiveView.Extent = pFeature.Extent pMxDoc.ActiveView.Refresh Else End If Dim pFeatureSelection As IFeatureSelection Set pFeatureSelection = pFeatureLayer 'QI pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing pFeatureSelection.SelectFeatures pQuery, esriSelectionResultNew, False 119 Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương pActiveView.PartialRefresh esriViewGeoSelection, Nothing, Nothing End Sub Private Sub UserForm_Activate() cbtentuyen.AddItem ("") cbtentuyen.AddItem ("30-4") cbtentuyen.AddItem ("3-2") cbtentuyen.AddItem ("51A") cbtentuyen.AddItem ("51B") cbtentuyen.AddItem ("51C") cbtentuyen.AddItem ("A 3") cbtentuyen.AddItem ("A 4") cbtentuyen.AddItem ("A1") cbtentuyen.AddItem ("A2") cbtentuyen.AddItem ("A3") cbtentuyen.AddItem ("A4") cbtentuyen.AddItem ("A5") cbtentuyen.AddItem ("A8") cbtentuyen.AddItem ("B 48") cbtentuyen.AddItem ("B2") cbtentuyen.AddItem ("BA CU") cbtentuyen.AddItem ("BA HUYEN THANH QUAN") cbtentuyen.AddItem ("BA TRIEU") cbtentuyen.AddItem ("BIET CHINH") cbtentuyen.AddItem ("BINH GIA") cbtentuyen.AddItem ("CAO TOC BIEN HOA") cbtentuyen.AddItem ("CAO TOC BIEN HOA_VUNG TAU") cbtentuyen.AddItem ("CAU CHAY") cbtentuyen.AddItem ("CAU CHAY 3") cbtentuyen.AddItem ("CHU MANH TRINH") cbtentuyen.AddItem ("CO BAC") 120 Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương cbtentuyen.AddItem ("CO GIANG") cbtentuyen.AddItem ("CONG CHANH") cbtentuyen.AddItem ("D 12") cbtentuyen.AddItem ("D 2") cbtentuyen.AddItem ("D 23") cbtentuyen.AddItem ("D 4") cbtentuyen.AddItem ("D 7") cbtentuyen.AddItem ("D 8") cbtentuyen.AddItem ("D10") cbtentuyen.AddItem ("D11") cbtentuyen.AddItem ("D17") cbtentuyen.AddItem ("D19") cbtentuyen.AddItem ("D20") cbtentuyen.AddItem ("D21") cbtentuyen.AddItem ("D22") cbtentuyen.AddItem ("D23") cbtentuyen.AddItem ("D3") cbtentuyen.AddItem ("D4") cbtentuyen.AddItem ("D5") cbtentuyen.AddItem ("D6") cbtentuyen.AddItem ("D8") cbtentuyen.AddItem ("D9") cbtentuyen.AddItem ("DI CAU CUA LAP") cbtentuyen.AddItem ("DINH TIEN HOANG") cbtentuyen.AddItem ("DO CHIEU") cbtentuyen.AddItem ("DOAN THI DIEM") cbtentuyen.AddItem ("DOI CAN") cbtentuyen.AddItem ("DONG DA") cbtentuyen.AddItem ("DONG KHOI") cbtentuyen.AddItem ("DUONG VAN NGA") 121 Ngành Công Nghệ Địa Chính SVTH: Nguyễn Duy Phương cbtentuyen.AddItem ("DUY TU") cbtentuyen.AddItem ("HAI DANG 2") cbtentuyen.AddItem ("HAI DANG 3") cbtentuyen.AddItem ("HAI DANG 4") cbtentuyen.AddItem ("HANG DIEU") cbtentuyen.AddItem ("HANG DIEU 14") cbtentuyen.AddItem ("HANG DIEU 24") cbtentuyen.AddItem ("HANG DIEU 4") cbtentuyen.AddItem ("HO QUI LY") cbtentuyen.AddItem ("HOANG DIEU") cbtentuyen.AddItem ("HOANG HOA THAM") cbtentuyen.AddItem ("HOANG VAN THU") cbtentuyen.AddItem ("HUNG VUONG") cbtentuyen.AddItem ("HUYEN TRAN CONG CHUA") cbtentuyen.AddItem ("KY CON") cbtentuyen.AddItem ("KY DONG") cbtentuyen.AddItem ("LE HONG PHONG") cbtentuyen.AddItem ("LE LAI") cbtentuyen.AddItem ("LE LOI") cbtentuyen.AddItem ("LE NGOC HAN") cbtentuyen.AddItem ("LE PHUNG HIEU") cbtentuyen.AddItem ("LE QUY DON") cbtentuyen.AddItem ("LE THE VINH") cbtentuyen.AddItem ("LE VAN LOC") cbtentuyen.AddItem ("LUONG THE VINH") cbtentuyen.AddItem ("LUONG VAN CAN") cbtentuyen.AddItem ("LY THUONG KIET") cbtentuyen.AddItem ("LY TU TRONG") cbtentuyen.AddItem ("MAC DINH CHI") cbtentuyen.AddItem ("N 1") 122 Ngành Công Nghệ Địa Chính SVTH: Nguyễn Duy Phương cbtentuyen.AddItem ("N 11") cbtentuyen.AddItem ("N 6") cbtentuyen.AddItem ("N 7") cbtentuyen.AddItem ("N10") cbtentuyen.AddItem ("N13") cbtentuyen.AddItem ("N14") cbtentuyen.AddItem ("N15") cbtentuyen.AddItem ("N2") cbtentuyen.AddItem ("N3") cbtentuyen.AddItem ("NAM KY KHOI NGHIA") cbtentuyen.AddItem ("NGO DUC KE") cbtentuyen.AddItem ("NGO QUYEN") cbtentuyen.AddItem ("NGUYEN AN NINH") cbtentuyen.AddItem ("NGUYEN BINH KHIEM") cbtentuyen.AddItem ("NGUYEN DU") cbtentuyen.AddItem ("NGUYEN THAI BINH") cbtentuyen.AddItem ("NGUYEN TRAI") cbtentuyen.AddItem ("NGUYEN TRI PHUONG") cbtentuyen.AddItem ("NGUYEN TRUNG TRUC") cbtentuyen.AddItem ("NGUYEN TRUONG TO") cbtentuyen.AddItem ("NGUYEN VAN CU") cbtentuyen.AddItem ("NGUYEN VAN TROI") cbtentuyen.AddItem ("PHAM HONG THAI") cbtentuyen.AddItem ("PHAM NGOC THACH") cbtentuyen.AddItem ("PHAM THE HIEN") cbtentuyen.AddItem ("PHAN BOI CHAU") cbtentuyen.AddItem ("PHAN CHU TRINH") cbtentuyen.AddItem ("QUAN SU") cbtentuyen.AddItem ("QUANG TRUNG") cbtentuyen.AddItem ("SO 6") 123 Ngành Công Nghệ Địa Chính SVTH: Nguyễn Duy Phương cbtentuyen.AddItem ("SO 7") cbtentuyen.AddItem ("THANG NHI") cbtentuyen.AddItem ("THONG NHAT") cbtentuyen.AddItem ("THONG NHAT NOI DAI") cbtentuyen.AddItem ("THONG NHHAT") cbtentuyen.AddItem ("THUY VAN") cbtentuyen.AddItem ("TRAN BINH TRONG") cbtentuyen.AddItem ("TRAN HUNG DAO") cbtentuyen.AddItem ("TRAN PHU") cbtentuyen.AddItem ("TRIEU VIET VUONG") cbtentuyen.AddItem ("TRUONG CONG DINH") cbtentuyen.AddItem ("TRUONG VAN BANG") cbtentuyen.AddItem ("VIBA") cbtentuyen.AddItem ("VO THI SAU") cbtentuyen.AddItem ("XO VIET NGHE TINH") cbtentuyen.AddItem ("YEN BAI") cbtentuyen.ListIndex = End Sub Private Sub CommandButton2_Click() Dim pMap As IMap Dim pActiveView As IActiveView Dim pFeature As IFeature Dim pMxDoc As IMxDocument Set pMxDoc = Application.Document Set pActiveView = pMxDoc.FocusMap Dim pQuery As IQueryFilter Dim pFeatureLayer As IFeatureLayer Dim pFeatureClass As IFeatureClass Dim pFeatureCursor As IFeatureCursor Dim ShapeFieldName As String 124 Ngành Công Nghệ Địa Chính SVTH: Nguyễn Duy Phương Dim pLayer As ILayer Set pMap = pActiveView Set pLayer = TimLop("giaothong_qh_region") Set pFeatureLayer = pLayer Set pFeatureClass = pFeatureLayer.FeatureClass Set pQuery = New QueryFilter Dim st As String st = form_tonghop_giaothong.cbtentuyen pQuery.WhereClause = "FID = " & lsthienthi.List(lsthienthi.ListIndex) & "" Set pFeatureCursor = pFeatureClass.Search(pQuery, False) Set pFeature = pFeatureCursor.NextFeature If Not pFeature Is Nothing Then Set MyExcelApp = New Excel.Application Set MyExcelApp = CreateObject("Excel.Application") Set ExcelChuongTrinh = MyExcelApp.Workbooks.Add ExcelChuongTrinh.Application.Cells.Select ExcelChuongTrinh.Application.Range("D2").Select With ExcelChuongTrinh.Application.Selection.Font Name = "Arial" size = 20 Strikethrough = False Superscript = False Subscript = False OutlineFont = False Shadow = False Underline = xlUnderlineStyleNone ColorIndex = xlAutomatic End With ExcelChuongTrinh.Application.Selection.Font.Bold = True 125 Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = "Báo Cáo Thông tin chi tiết" ExcelChuongTrinh.Application.Range("A3").Select ExcelChuongTrinh.Application.Range("A3").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = "Tên Tuyến" ExcelChuongTrinh.Application.Range("A4").Select ExcelChuongTrinh.Application.Range("A4").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = pFeature.Value(pFeature.Fields.FindField("TEN_DUONG")) ExcelChuongTrinh.Application.Range("B3").Select ExcelChuongTrinh.Application.Range("B3").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = "Điểm Đầu " ExcelChuongTrinh.Application.Range("B4").Select ExcelChuongTrinh.Application.Range("B4").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = pFeature.Value(pFeature.Fields.FindField("DIEMDAU")) ExcelChuongTrinh.Application.Range("c3").Select ExcelChuongTrinh.Application.Range("c3").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = "Điểm cuối" ExcelChuongTrinh.Application.Range("c4").Select ExcelChuongTrinh.Application.Range("c4").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = pFeature.Value(pFeature.Fields.FindField("DIEMCUOI")) ExcelChuongTrinh.Application.Range("d3").Select ExcelChuongTrinh.Application.Range("D3").ColumnWidth = 126 Ngành Công Nghệ Địa Chính SVTH: Nguyễn Duy Phương ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = "Chiều dài" ExcelChuongTrinh.Application.Range("D4").Select ExcelChuongTrinh.Application.Range("D4").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = pFeature.Value(pFeature.Fields.FindField("CHIEU_DAI")) ExcelChuongTrinh.Application.Range("E3").Select ExcelChuongTrinh.Application.Range("E3").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = "Chiều rộng" ExcelChuongTrinh.Application.Range("E4").Select ExcelChuongTrinh.Application.Range("E4").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = pFeature.Value(pFeature.Fields.FindField("CHIEU_RONG")) ExcelChuongTrinh.Application.Range("F3").Select ExcelChuongTrinh.Application.Range("F3").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = "Lộ giới" ExcelChuongTrinh.Application.Range("F4").Select ExcelChuongTrinh.Application.Range("F4").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = pFeature.Value(pFeature.Fields.FindField("LO_GIOI")) ExcelChuongTrinh.Application.Range("G3").Select ExcelChuongTrinh.Application.Range("G3").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = "Vỉa hè" ExcelChuongTrinh.Application.Range("G4").Select ExcelChuongTrinh.Application.Range("G4").ColumnWidth = 127 Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = pFeature.Value(pFeature.Fields.FindField("VIA_HE")) ExcelChuongTrinh.Application.Range("h3").Select ExcelChuongTrinh.Application.Range("h3").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = "FID" ExcelChuongTrinh.Application.Range("h4").Select ExcelChuongTrinh.Application.Range("h4").ColumnWidth = ExcelChuongTrinh.Application.Selection.Font.Bold = True ExcelChuongTrinh.Application.ActiveCell.FormulaR1C1 = pFeature.Value(pFeature.Fields.FindField("FID")) MyExcelApp.Visible = True End If End Sub 128 ... SVTH: Nguyễn Duy Phương TÀI LIỆU THAM KHẢO 86 Phụ lục 87 Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương TÓM TẮT LUẬN VĂN Sinh viên thực hiện: Nguyễn Duy Phương, Khoa... viên hướng dẫn: Ths Trần Duy Hùng Địa quan: Trường Đại Học Nơng Lâm Tp Hồ Chí Minh Ký tên: ………………………………………… - Tháng 08, năm 2010 - Ngành Công Nghệ Địa Chính SVTH: Nguyễn Duy Phương - Tháng 07 năm... nghiệp TP Hồ Chí Minh, ngày 16 tháng 08 năm 2010 Sinh viên thực Nguyễn Duy Phương Ngành Cơng Nghệ Địa Chính SVTH: Nguyễn Duy Phương MỤC LỤC Trang tựa …… .i Lời cảm ơn ……

Ngày đăng: 16/03/2019, 11:11

TỪ KHÓA LIÊN QUAN

TÀI LIỆU CÙNG NGƯỜI DÙNG

TÀI LIỆU LIÊN QUAN

w