BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC MỎ - ĐỊA CHẤT NGUYỄN ANH CƯỜNG ỨNG DỤNG PHẦN MỀM MAPINFO ĐỂ XÂY DWNGK VÀ KHAI THÁC THÔNG TIN ĐẤT ĐAI PHỤC VỤ QUY HOẠCH SỬ DỤNG ĐẤT HÀ NỘI - 2007 Lời cam đoan Tôi xin cam đoan công trình nghiên cứu riêng Các số liệu, kết nêu luận văn trung thực ch-a đ-ợc công bố công trình khác Hà Nội, ngày 16 tháng 08 năm 2007 Ký tên Nguyễn Anh C-ờng Mục lục Trang Trang phụ bìa Lời cam đoan Mục lục Mở đầu Ch-ơng Tổng quan Quy hoạch sử dụng đất 1.1 Khái niệm phân loại quy hoạch sử dụng đất 1.2 Yêu cầu quy hoạch sử dụng đất 1.3 Cơ sở lý luận pháp lý quy hoạch sử dụng đất 1.4 Công tác quy hoạch sử dụng đất giới Việt Nam 11 1.5 Quy hoạch sử dụng đất cấp xà 13 1.6 Các vấn đề đặt xây dựng quy hoach sử dụng đất cấp xà 15 Ch-ơng Giới thiệu chung hệ thống thông tin địa lý (GIS) phần mềm MapInfo 17 2.1 Khái niệm hệ thống thông tin địa lý (GIS) 17 2.2 Sự hình thành phát triển GIS 17 2.3 Các thành phần chức GIS 19 2.4 Tình hình ứng dụng GIS giới Việt Nam 21 2.5 PhÇn mỊm MapInfo 23 2.6 Giíi thiƯu vỊ th- viện liên kết động MapObjectLight 36 Ch-ơng Xây dựng ch-ơng trình 39 3.1 Khảo sát hệ thống 39 3.2 Ph©n tÝch thiÕt kÕ hƯ thèng 40 3.3 ThiÕt kế hệ thống 42 3.4 Xây dựng ch-ơng trình 43 3.5 Giao diện ch-ơng trình 62 3.6 Sử dụng ch-ơng trình 65 3.7 In thông tin đầu phục vụ cho quy hoạch 67 Kết luận kiến nghị 69 Tài liệu tham khảo 71 Phụ lục 73 Mở đầu 1.Tính cấp thiết đề tài Đất đai tài nguyên thiên nhiên vô quý giá, t- liệu sản xuất đặc biệt, thành phần quan trọng môi tr-ờng sống, địa bàn phân bổ dân c-, xây dựng công trình văn hoá, kinh tế, xà hội, an ninh quốc phòng Đất đai nguồn tài nguyên có giới hạn số l-ợng, có vị trí cố định không gian vô hạn thời gian sử dụng Chính lẽ mà điều 18 Hiến pháp n-ớc Cộng hoà xà hội chủ nghĩa Việt Nam ban hành năm 1992 nêu rõ: Nhà nước thống quản lý toàn đất đai theo quy hoạch pháp luật, bảo đảm sử dụng mục đích có hiệu Đối với quốc gia đất đai nguồn lực quan trọng hàng đầu cho phát triển kinh tế ®Êt n-íc Quy ho¹ch sư dơng ®Êt cã mét vai trò chức quan trọng, tạo ®iỊu kiƯn l·nh thỉ cÇn thiÕt ®Ĩ tỉ chøc sư dụng đất có hiệu cao Quy hoạch sử dụng đất có nhiệm vụ bố trí, xếp lại sản xuất nông nghiệp, công nghiệp, công trình xây dựng, khu dân c- công trình văn hoá phúc lợi hợp lý Vì Quy hoạch, kế hoạch sử dụng đất đai bảy nội dung quản lý Nhà n-ớc đất đai, đ-ợc ghi nhận điều 13 luật đất đai 1993 Đây pháp lý để Nhà n-ớc thực công tác quản lý Nhà n-ớc đất đai Trong năm gần đây, với phát triển cđa nỊn kinh tÕ ®Êt n-íc, sù bïng nỉ cđa cách mạng công nghệ thông tin điều tất yếu Công nghệ thông tin đà có tác động đến tất lĩnh vực kinh tế xà hội Trong có ứng dụng công nghệ thông tin GIS (Geographical- Information - System) vào công tác quản lý đất đai nh- quy hoạch sử dụng đất Công nghệ GIS công nghệ thông tin đặc biệt đ-ợc quan tâm nhiều ứng dụng rộng rÃi nhiều chuyên ngành khác GIS không đem lại lợi ích kinh tế, tiết kiệm thời gian, thuận tiện cho ng-ời sử dụng mà góp phần giảm nhẹ c-ờng độ lao động, nâng cao hiệu suất làm việc Không GIS giúp cã thĨ dƠ dµng tra cøu, cËp nhËt, bỉ sung hay chỉnh lý biến động cách th-ờng xuyên mà tạo nhiều thuận lợi cho việc l-u tr÷, thu thËp, xư lý sè liƯu thc tÝnh hay không gian Xuất phát từ tầm quan trọng đất đai, quy hoạch, quản lý đất đai tính -u việt công nghệ thông tin GIS, đà lựa chọn đề tài: ứng dụng phần mềm MapInfo để xây dựng khai thác thông tin đất đai phục vụ quy hoạch sử dụng đất Mc ích ca ti Trên sở khoa học quy hoạch sử dụng đất, yêu cầu thông tin đất đai phục vụ quy hoạch dựa vào khả ứng dụng công nghệ thông tin, mục đích đề tài nghiên cứu ứng dụng phần mềm MapInfo xây dựng sở liệu đồ, từ lập ch-ơng trình khai thác thông tin đất đai phục vụ quy hoạch điều chỉnh quy hoạch sử dụng đất i tng v phm vi nghiên cu 3.1 i tng nghiên cứu Bản đồ trạng, đồ quy hoạch sử dụng đất, quy định quy trình quy hoạch sử dụng đất 3.2 Phạm vi nghiên cứu Quản lý đồ trạng quy hoạch sử dụng đất cấp xà phần mềm MapInfo khai thác thông tin đất đai cách lập phần mềm ứng dụng Ni dung nghiên cứu 4.1 Tổng hợp tình hình ứng dụng GIS Việt Nam nói chung GIS quy hoạch sử dụng đất nói riêng 4.2 Nghiên cứu sở khoa học quy hoạch sử dụng đất 4.3 Nghiên cứu khả ứng dụng phần mềm MapInfo phần mềm Excel 4.4 Nghiên cứu thiết kế sở liệu đất đai phục vụ quy hoạch 4.5 Nghiên cứu sở liệu lập ch-ơng trình khai thác liệu đồ trạng quy hoạch phục vụ công tác quy hoạch đất đai cấp xà Phng pháp nghiên cứu Để đạt đ-ợc mục đích nghiên cứu trên, ph-ơng pháp nghiên cứu đ-ợc sử dụng chủ yếu: 5.1 Ph-ơng pháp điều tra khảo sát 5.2 Ph-ơng pháp thống kê 5.3 Ph-ơng pháp tính toán theo định mức 5.4 Ph-ơng pháp thử nghiệm 5.5 Ph-ơng pháp dự báo ý nghĩa nghiên cứu đề tài 6.1 ý nghĩa mặt lý thuyết Nghiên cứu ứng dụng phần mềm MapInfo để xây dựng sở liệu đồ thông tin đất đai từ xây dựng phần mềm quản lý, khai thác thông tin ®Êt ®ai phơc vơ quy ho¹ch sư dơng ®Êt 6.2 ý nghĩa mặt thực tiễn Kết nghiên cứu đề tài làm tiền đề để nghiên cứu ứng dụng công nghệ thông tin vào công tác quy hoạch sử dụng đất có hiệu cao Kết cấu luận văn Luận văn gồm ch-ơng với 141 trang Lời cảm ơn Trong trình thu thập tài liệu hoàn thành luận văn, tác giả đà nhận đ-ợc giúp đỡ Ban Giám hiệu tr-ờng Đại học Mỏ- Địa Chất, Khoa Trắc địa, Phòng Đại học Sau đại học, Bộ môn Địa chính, Sở tài nguyên môi tr-ờng tỉnh Hải D-ơng, UBND huyện Ninh Giang, UBND xà ứng Hoè Nhân dịp tác giả xin bày tỏ lòng biết ơn chân thành tới cấp lÃnh đạo quan Tác giả đặc biệt cảm ơn sâu sắc h-ớng dẫn tận tình PGS.TS Nguyễn Trọng San Trong trình thực luận văn, tác giả nhận đ-ợc động viên, giúp đỡ gia đình, bạn bè đồng nghiệp Tác giả xin chân thành cảm ơn Ch-ơng tổng quan quy hoạch sử dụng đất 1.1 Khái niệm phân loại quy hoạch sử dụng đất 1.1.1 Khái niệm quy hoạch sử dụng đất Đất đai tài nguyên có hạn nh-ng lại gắn với hầu hết hoạt động sản xuất đời sống ng-ời luôn tồn cạnh tranh chủ sử dụng đất mục đích sử dụng đất với Cùng với gia tăng dân số phát triển sản xuất cạnh tranh ngày lớn làm cho áp lực đất đai ngày tăng Vì cần phải có hoạt động nhằm dung hoà cạnh tranh đồng thời đảm bảo sử dụng đất có hiệu quả, tiết kiệm bảo vệ quỹ đất Đó quy hoạch sử dụng đất Quy hoạch sử dụng đất t-ợng kinh tế xà hội có tính chất đặc thù, nã võa mang tÝnh khoa häc, võa mang tÝnh ph¸p lý cđa mét hƯ thèng c¸c biƯn ph¸p kinh tÕ, kỹ thuật pháp chế Ph-ơng án quy hoạch sử dụng đất kết trình xử lý, phân tích tổng hợp dựa quan điểm hệ thống phân bố địa lý điều kiện tự nhiên, kinh tế, xà hội có đặc tr-ng mang tính phân dị vùng lÃnh thổ để tổ chức lại việc sử dụng đất hợp lý hiệu theo pháp luật Nhà n-ớc Quy hoạch sử dụng đất hệ thống biện pháp kinh tế, kỹ thuật pháp chế Nhà n-ớc tổ chức sử dụng đất đầy đủ, hợp lý, có hiệu cao thông qua việc phân phối tái phân phối quỹ đất n-ớc, tổ chức sử dụng đất nh- tliệu sản xuất với t- liệu sản xuất khác gắn liền với đất nhằm nâng cao hiệu sản xuất xà hội, tạo điều kiện bảo vệ đất bảo vệ môi trường 1.1.2 Phân loại quy hoạch sử dụng đất Hiện có nhiều cách phân loại quy hoạch sử dụng đất với tên gọi khác Nếu ghép nhóm lại khái quát thành loại: - Loại thứ nhất: Xác định mục đích sử dụng cho khoanh đất, khoanh đất lại có mục đích sử dụng khác ( quy hoạch sử dụng đất liên ngành ) Loại n-ớc xà hội chủ nghĩa gọi quy hoạch phân bổ đất đai, n-ớc t- chủ nghĩa gọi quy hoạch sử dụng đất - Loại thứ hai: Quy hoạch sử dụng đất bên ranh giới khoanh đất đà đ-ợc xác định rõ mục đích sử dụng Loại n-ớc xà hội chủ nghĩa gọi quy hoạch sử dụng đất nội xí nghiệp, n-ớc t- chủ nghĩa gọi quy hoạch sử dụng đất vi mô Quy hoạch phân bổ đất đai ( quy hoạch vĩ mô ) thực hình thức: Quy hoạch theo lÃnh thổ theo ngành Trong hình thức trên, vào đặc điểm phạm vi quản lý lÃnh thổ hành nh- đặc điểm sử dụng đất ngành, chúng lại chia thành dạng khác Quy hoạch phân bổ đất đai theo lÃnh thổ hành bao gồm dạng sau: - Quy hoạch phân bổ đất đai n-ớc, - Quy hoạch phân bổ đất đai cấp tỉnh, - Quy hoạch phân bổ đất đai cấp huyện, - Quy hoạch phân bổ đất đai cấp xà Quy hoạch phân bổ đất đai theo ngành bao gồm dạng sau: - Quy hoạch phân bổ đất nông nghiệp, - Quy hoạch phân bổ đất lâm nghiệp, - Quy hoạch phân bổ đất khu dân c- đô thị nông thôn, - Quy hoạch phân bổ đất chuyên dùng Trong vùng lÃnh thổ th-ờng có nhiều ngành hoạt động dạng quy hoạch phân bổ đất đai theo lÃnh thổ hành bao hàm số dạng quy hoạch theo ngành Nội dung quy hoạch phân bổ đất đai giải nội dung nh- xác định nhu cầu diện tích, cấu đất, xác định vị trí phân bố, xác định hình dạng đ-ờng ranh giới khu đất giao cho ngành, chủ sử dụng đất Nối tiếp phần quy hoạch phân bổ đất đai cần tiến hành loại hình quy hoạch thứ hai nhằm mục đích tạo hình thức tổ chức lÃnh thổ phạm vi đơn vị sử dụng đất, xây dựng kế hoạch sử dơng ®Êt ®Õn tõng khu ®Êt, thưa ®Êt, tõng chđ sư dơng phï hỵp víi viƯc tỉ chøc sư dơng t- liệu sản xuất khác có liên quan đến đất nhằm nâng cao hiệu sản xuất sử dụng đất Quy hoạch sử dụng đất phân chia dạng sau: - Quy hoạch sử dụng đất nông nghiệp - Quy hoạch sử dụng đất lâm nghiệp - Quy hoạch sử dụng đất khu dân c-, bao gồm quy hoạch sử dụng đất đô thị điểm dân c- Quy hoạch sử dụng đất chuyên dùng Kết quy hoạch đ-a đồ án quy hoạch từ tổng thể đến chi tiết Trên sở nhà n-ớc ngành tổ chức phân phối đất đai, sử dụng đất đai, quản lý kiểm tra, tra việc sử dụng đất 1.2 Yêu cầu quy hoạch sử dụng đất Quy hoạch sử dụng đất nội dung quản lý nhà n-ớc đất đai, đóng vai trò to lín viƯc ph¸t triĨn kinh tÕ x· héi Để quy hoạch sử dụng đất đạt đ-ợc mục đích đặt ra, quy hoạch sử dụng đất cần tuân theo yêu cầu sau: 1.2.1 Đảm bảo quyền sở hữu nhà n-ớc đất đai, hoàn thiện đơn vị sử dụng đất Yêu cầu vừa mang ý nghÜa kinh tÕ, võa cã ý nghÜa chÝnh trị, đảm bảo củng cố quan hệ sản xuất sở hữu nhà n-ớc đất đai, ngăn ngừa vi phạm quyền sử dụng đất tính ổn định đơn vị sử dụng đất 1.2.2 Sử dụng đất tiết kiệm, bảo vệ đất, bảo vệ môi tr-ờng Trong đồ án quy hoạch phải đảm bảo sử dụng đất tiết kiệm Biện pháp quan trọng để tiết kiệm đất sử dụng đất mục đích, bố trí hợp lý công trình có sử dụng đất, phải quan tâm đầy đủ đến giải pháp bảo vệ đất, bảo vệ môi tr-ờng nh- chống xói mòn đất, chống ô nhiễm đất nguồn n-ớc, bảo vệ thảm thực vật đồng thời phải trọng đầu t- bồi bổ đất 1.2.3 Sử dụng tài nguyên đất lợi ích kinh tế quốc dân, ngành nh-ng phải -u tiên ngành nông nghiệp Tài nguyên đất đ-ợc sử dụng để xây dựng sở hạ tầng, xây dựng xí nghiệp công nghiệp, sử dụng quỹ đất dự trữ Đặc biệt chuyển đổi từ quỹ đất nông nghiệp sang sử dụng vào mục đích khác phải tính toán hiệu sở so sánh giá trị sản phẩm thu đ-ợc tõ khu ®Êt ®· chun ®ỉi mơc ®Ých víi tỉng thiệt hại thu hồi đất chủ sử dơng 1.2.4 Tỉ chøc tèt l·nh thỉ ®Ĩ thực nhiệm vụ kế hoạch nhà n-ớc, đơn vị, nâng cao hiệu sử dụng đất Quy luật phát triển kinh tế có kế hoạch phải đảm bảo phân bố hợp lý lực l-ợng sản xuất, tính cân đối ngành, phát triển tổng hợp vùng, phát triển có kế hoạch sở sản xuất, tạo tổng giá trị sản phẩm hàng hoá lớn Quy hoạch đất đai tạo ®iỊu kiƯn vỊ tỉ chøc l·nh thỉ thn lỵi ®Ĩ đơn vị sản xuất thực tốt kế hoạch Quy hoạch đất đai tạo điều kiện thuận lợi để ứng dụng kỹ thuật vào sản xuất, nâng cao hiệu sử dụng máy móc, thiết bị giới hoá điện khí hoá sản xuất 1.2.5 Tính toán đầy đủ khoa học điều kiện tự nhiên, kinh tế, xà hội cho vùng, đơn vị sử dụng đất Các đặc điểm tự nhiên đất nh- địa hình, thổ nh-ỡng, khí hậu, thuỷ văn, ảnh h-ởng trực tiếp đến kết sản xuất nông, lâm nghiệp Các điều kiện khác nh- sở hạ tầng, điều kiện xà hội tác động đến sản xuất, đời sống Vì phải nghiên cứu chi tiết tổng hợp điều kiện để tiến hành quy hoạch đất đai đạt hiệu cao 1.3 Cơ sở lý luận pháp lý quy hoạch sử dụng đất Quy hoạch sử dụng đất nghiên cứu quy luật chức đất nh- t- liệu sản xuất chủ yếu từ đề xuất biện pháp tổ chức sử dụng đất đầy đủ, hợp lý, có hiệu cao kết hợp với bảo vệ đất môi tr-ờng tất ngành vào điều kiện tự nhiên, kinh tế, x· héi cđa tõng vïng l·nh thỉ Quy ho¹ch sư dụng đất phải dựa nguyên tắc chấp hành quyền sở hữu Nhà n-ớc đất đai, củng cố hoàn thiện đơn vị sử dụng đất Đây sở hoạt động biện pháp có liên quan tới quyền sử dụng đất, nguyên tắc quan trọng quy hoạch đất đai Nó không mang ý nghĩa đơn mà vấn đề trị quan trọng tài nguyên đất đối t-ợng thuộc sở hữu Nhà n-ớc Một nhiệm vụ trung tâm mà Đảng Nhà n-ớc đà đặt đ-ờng lối phát triển nông nghiệp nông thôn củng cố quan hệ đất ®ai x· héi chđ nghÜa, b¶o vƯ tÝnh bÊt kh¶ xâm phạm quyền sở hữu Nhà n-ớc đất đai nh-ng 104 QH_LoaidatDT(4).Dientich = LoaidatQH(6).DT_DT + LoaidatQH(7).DT_DT + LoaidatQH(8).DT_DT + LoaidatQH(9).DT_DT QH_LoaidatDT(3).Dientich = QH_LoaidatDT(4).Dientich + = QH_LoaidatDT(3).Dientich + QH_LoaidatDT(5).Dientich QH_LoaidatDT(2).Dientich QH_LoaidatDT(6).Dientich + QH_LoaidatDT(10).Dientich + QH_LoaidatDT(11).Dientich + QH_LoaidatDT(12).Dientich QH_LoaidatDT(1).Dientich = QH_LoaidatDT(2).Dientich QH_LoaidatDT(13).Dientich + QH_LoaidatDT(40).Dientich End Sub 1.7 Ch-ơng trình tạo bảng thống kê Private Sub mnuCreatReport_Click() Me.MousePointer = 10 Map1.MousePointer = moArrowHourglass Call KhoitaoBangbieu Call InitDoWrite Call InitReportHTQH01 Call InitReportHTQH02 Call InitReportHTQH03 Call InitReportHTQH04 Call InitReportHTQH05 ' Call InitReportHTQH06 ' Call InitReportHTQH07 Call InitReportHTQH08 Call InitReportQH01 Call InitReportQH02 Call InitReportQH03 Call InitReportQH04 Call InitReportQH05 Call InitReportQH06 + 105 ' Call InitReportQH07 ' Call InitReportQH08 Call InitReportQH09 ' Call InitReportQH10 Call InitReportQH11 Call InitReportQH12 ' Call InitReportQH13 ' Call InitReportQH14 Call InitReportQH15 Call FinishReportHTQH MsgBox "Xong" Me.MousePointer = Map1.MousePointer = moDefault End Sub Private Sub InitReportHTQH01() Dim i& ApExcel.Workbooks.Open Filename:=RptDest SheetName = Ws_HTQH(1) PageSetup SheetName, xlPortrait, xlPaperA4 For i = To NLoaidat If LoaidatHT(i).Dientich Then doWrite "D" & i + 5, LoaidatHT(i).Dientich End If Next End Sub Private Sub InitReportHTQH02() Dim i& SheetName = Ws_HTQH(2) PageSetup SheetName, xlPortrait, xlPaperA4 For i = To UBound(HT_LoaidatNT) 106 If HT_LoaidatNT(i).Dientich Then doWrite "D" & i + 5, HT_LoaidatNT(i).Dientich End If Next End Sub Private Sub InitReportHTQH03() Dim i& SheetName = Ws_HTQH(3) PageSetup SheetName, xlPortrait, xlPaperA4 For i = To UBound(HT_LoaidatDT) If HT_LoaidatDT(i).Dientich Then doWrite "D" & i + 5, HT_LoaidatDT(i).Dientich End If Next End Sub Private Sub InitReportHTQH04() Dim i&, Makhac As Boolean, Cot&, j& Makhac = False SheetName = Ws_HTQH(4) PageSetup SheetName, xlLandscape, xlPaperA3 For i = To NLoaidat - If LoaidatHT(i + 1).Dientich Then doWriteCell 6, i + 4, LoaidatHT(i + 1).Dientich End If Next For i = To NLoaidat - If LoaidatDK(i + 1).Dientich Then doWriteCell i + 6, 4, LoaidatDK(i + 1).Dientich End If Next 107 For i = To NLoaidat - For j = To UBound(XVungHT) If LoaidatDK(i).Ma = XVungHT(j).MaTruoc Then TimCot XVungHT(j).MaSau, Cot doWriteCell i + 5, Cot + 3, XVungHT(j).DT Makhac = True Else If Makhac Then Makhac = False: Exit For End If Next j Next i End Sub Private Sub InitReportHTQH05() Dim i& SheetName = Ws_HTQH(5) PageSetup SheetName, xlPortrait, xlPaperA4 For i = To 53 If LoaidatHT(i).Dientich Then doWrite "E" & i + 5, LoaidatHT(i).Dientich End If Next doWrite "E59", HT_TON doWrite "E60", HT_TIN For i = 54 To 64 If LoaidatHT(i).Dientich Then doWrite "E" & i + 7, LoaidatHT(i).Dientich End If Next End Sub Private Sub InitReportHTQH08() 'Chua su dung dua vao su dung 63, 64, 65 108 Dim i&, j&, Hang& SheetName = Ws_HTQH(8) PageSetup SheetName, xlPortrait, xlPaperA4 For i = 58 To 60 For j = To UBound(XVungHT) If LoaidatDK(i).Ma = XVungHT(j).MaTruoc Then TimHang MaCSDDVSD(XVungHT(j).MaSau), Hang doWriteCell Hang + 5, 5, XVungHT(j).DT End If Next j Next i End Sub Private Function MaCSDDVSD(Ma$) Dim i&, MaTmp$ MaTmp = Ma Select Case UCase(Ma) Case "LUC", "LUK", "LUN": MaTmp = "LUA" Case "RSN", "RST", "RSK", "RSM": MaTmp = "RSX" Case "RPN", "RPT", "RPK", "RPM": MaTmp = "RPH" Case "RDN", "RDT", "RDK", "RDM": MaTmp = "RDD" Case "SKK", "SKC", "SKS", "SKX": MaTmp = "CSK" Case "DGT", "DTL", "DNT", "DVH", "DYT", "DGD", "DTT", "DCH", "LDT", "RAC": MaTmp = "CCC" End Select MaCSDDVSD = MaTmp End Function Private Sub TimCot(Ma As String, Cot&) Dim i& Cot = 100 For i = To NLoaidat - 109 If Ma = LoaidatHT(i).Ma Then Cot = i Exit For End If Next End Sub Private Sub TimHang(Ma As String, Hang&) Dim i& Hang = 100 For i = To UBound(LoaidatCSDDVSD) If Ma = LoaidatCSDDVSD(i).Ma Then Hang = i Exit For End If Next End Sub Private Sub InitReportQH01() Dim i& SheetName = Ws_QH(1) PageSetup SheetName, xlPortrait, xlPaperA4 For i = To 53 If LoaidatHT(i).Dientich Then doWrite "D" & i + 4, LoaidatHT(i).Dientich End If Next doWrite "D58", HT_TON doWrite "D59", HT_TIN For i = 54 To 56 If LoaidatHT(i).Dientich Then doWrite "D" & i + 6, LoaidatHT(i).Dientich 110 End If Next For i = To 53 If LoaidatQH(i).Dientich Then doWrite "E" & i + 4, LoaidatQH(i).Dientich End If Next doWrite "E58", QH_TON doWrite "E59", QH_TIN For i = 54 To 56 If LoaidatQH(i).Dientich Then doWrite "E" & i + 6, LoaidatQH(i).Dientich End If Next End Sub Private Sub InitReportQH02() Dim i& SheetName = Ws_QH(2) PageSetup SheetName, xlPortrait, xlPaperA4 For i = To UBound(LoaidatQH) If LoaidatQH(i).Dientich Then doWrite "D" & i + 5, LoaidatQH(i).Dientich End If Next End Sub Private Sub InitReportQH03() Dim i& SheetName = Ws_QH(3) PageSetup SheetName, xlPortrait, xlPaperA4 For i = To UBound(QH_LoaidatNT) 111 If QH_LoaidatNT(i).Dientich Then doWrite "D" & i + 5, QH_LoaidatNT(i).Dientich End If Next End Sub Private Sub InitReportQH04() Dim i& SheetName = Ws_QH(4) PageSetup SheetName, xlPortrait, xlPaperA4 For i = To UBound(QH_LoaidatDT) If QH_LoaidatDT(i).Dientich Then doWrite "D" & i + 5, QH_LoaidatDT(i).Dientich End If Next End Sub Private Sub InitReportQH05() Dim i&, Makhac As Boolean, Cot&, j& Makhac = False SheetName = Ws_QH(5) PageSetup SheetName, xlLandscape, xlPaperA3 For i = To NLoaidat - If LoaidatQH(i + 1).Dientich Then doWriteCell 6, i + 4, LoaidatQH(i + 1).Dientich End If Next For i = To NLoaidat - If LoaidatHT(i + 1).Dientich Then doWriteCell i + 6, 4, LoaidatHT(i + 1).Dientich End If Next 112 For i = To NLoaidat - For j = To UBound(XVungQH) If LoaidatDK(i).Ma = XVungQH(j).MaTruoc Then TimCot XVungQH(j).MaSau, Cot doWriteCell i + 5, Cot + 3, XVungQH(j).DT Makhac = True Else If Makhac Then Makhac = False: Exit For End If Next j Next i End Sub Private Sub InitReportQH06() Dim i&, a# SheetName = Ws_QH(6) PageSetup SheetName, xlPortrait, xlPaperA4 For i = To NLoaidat - doWrite "D" & i + 5, "=if('Bieu 05 QH'!" & TenCot(i + 3) & i + & " 0,'Bieu 05 QH'!" & TenCot(i + 3) & i + & ",""""" Next End Sub Private Sub InitReportQH09() 'Chua su dung dua vao su dung 63, 64, 65 Dim i&, j&, Hang& SheetName = Ws_QH(9) PageSetup SheetName, xlPortrait, xlPaperA4 For i = 58 To 60 For j = To UBound(XVungQH) If LoaidatHT(i).Ma = XVungQH(j).MaTruoc Then TimHang MaCSDDVSD(XVungQH(j).MaSau), Hang doWriteCell Hang + 6, 4, XVungQH(j).DT 113 End If Next j Next i End Sub Private Sub InitReportQH11() Dim i& SheetName = Ws_QH(11) PageSetup SheetName, xlPortrait, xlPaperA4 For i = To NLoaidat - If LoaidatHT(i).Dientich Then doWrite "D" & i + 5, LoaidatHT(i).Dientich End If Next For i = To NLoaidat - If LoaidatQH(i).Dientich Then doWrite "F" & i + 5, LoaidatQH(i).Dientich End If Next End Sub Private Sub InitReportQH12() Dim i& SheetName = Ws_QH(12) PageSetup SheetName, xlPortrait, xlPaperA4 For i = To NLoaidat - If LoaidatHT(i).Dientich Then doWrite "D" & i + 6, LoaidatHT(i).Dientich End If Next For i = To NLoaidat - If LoaidatQH(i).Dientich Then 114 doWrite "H" & i + 6, LoaidatQH(i).Dientich doWrite "F" & i + 6, (LoaidatHT(i).Dientich + LoaidatQH(i).Dientich) / End If Next End Sub Private Sub InitReportQH15() 'Chua su dung dua vao su dung 63, 64, 65 Dim i&, j&, Hang& SheetName = Ws_QH(15) PageSetup SheetName, xlPortrait, xlPaperA4 For i = 58 To 60 For j = To UBound(XVungQH) If LoaidatHT(i).Ma = XVungQH(j).MaTruoc Then TimHang MaCSDDVSD(XVungQH(j).MaSau), Hang doWriteCell Hang + 5, 4, XVungQH(j).DT End If Next j Next i End Sub 1.8 Ch-ơng trình xem bảng biểu thống kª Private Sub XemFileExcel(SheetName$) Set Fo = CreateObject("Scripting.FileSystemObject") If Not Fo.FileExists(RptDest) Then GoTo LoiCaidat Dim Filename$ Dim XL As Object 'to Open Excel Set XL = CreateObject("Excel.Sheet") Filename = RptDest XL.Application.Visible = True On Error GoTo LoiOpen XL.Application.Workbooks.Open Filename XL.Application.ActiveWindow.WindowState = xlMaximized 115 XL.Application.Sheets(SheetName).Activate Exit Sub LoiOpen: MsgBox "TÖp Report.XLS mở bị khóa", vbCritical, "Lỗi mở tệp" Exit Sub LoiCaidat: MsgBox "Ch-ơng trình ch-a tạo đ-ợc bảng kết Report.xls thmục Report", vbCritical, "Lỗi tổng hợp kết qu¶" End Sub Private Sub mnuReportHTQH_Click(Index As Integer) XemFileExcel Ws_HTQH(Index) End Sub Private Sub mnuReportQH_Click(Index As Integer) XemFileExcel Ws_QH(Index) End Sub 116 Phơ lơc 2.1 BiĨu 01/HT-QH: HiƯn tr¹ng sử dụng đất đến năm 2005 xà ứng Hoè ( trang 118) 2.2 BiĨu 02/HT-QH: HiƯn tr¹ng sư dơng đất khu dân c- nông thôn năm 2005 x· øng H ( trang 119) 2.3 BiĨu 03/HT-QH: HiƯn trạng sử dụng đất đô thị năm 2005 x· øng H ( trang 120) 2.4 BiĨu 04/HT-QH: T×nh hình biến động sử dụng đất từ năm 2000 đến năm 2005 xà ứng Hoè ( trang 121) 2.5 Biểu 05/HT-QH: Kết thực tiêu sử dụng đất quy hoạch sử dụng đất kỳ tr-ớc cđa x· øng H ( trang 122) 2.6 BiĨu 06/HT-QH: Kết thực việc chuyển mục đích sử dụng ®Êt quy ho¹ch sư dơng ®Êt kú tr-íc cđa x· øng H ( trang 123) 2.7 BiĨu 07/HT-QH: KÕt thực việc thu hồi đất quy hoạch sư dơng ®Êt kú tr-íc cđa x· øng H ( trang 124) 2.8 BiĨu 08/HT-QH: KÕt qu¶ thùc hiƯn viƯc đ-a đất ch-a sử dụng vào sử dụng cho mục đích quy hoạch sử dụng đất kỳ tr-ớc cđa x· øng H ( trang 125) 2.9 BiĨu 01/QH: Tổng hợp nhu cầu tăng giảm diện tích sử dụng ®Êt kú quy ho¹ch sư dơng ®Êt cđa x· øng H ( trang 126) 2.10 BiĨu 02/QH: ChØ tiªu sử dụng đất đến năm 2015 xà ứng Hoè ( trang 127) 2.11 BiĨu 03/QH: ChØ tiªu sư dơng đất khu dân c- nông thôn đến năm 2015 cđa x· øng H ( trang 128) 2.12 BiĨu 04/QH: Chỉ tiêu sử dụng đất đo thị đến năm 2015 cđa x· øng H ( trang 129) 2.13 BiĨu 05/QH: Ph-ơng án chu chuyển quý đất kỳ quy hoạch đến năm 2015 xà ứng Hoè ( trang 130) 2.14 Biểu 06/QH: Diện tích không thay đổi mục ®Ých sư dơng kú quy ho¹ch cđa x· øng H ( trang 131) 117 2.15 BiĨu 07/QH: DiƯn tÝch ®Êt chun mơc ®Ých sư dơng kú quy ho¹ch cđa x· øng H ( trang 132) 2.16 BiĨu 08/QH: Diện tích đất cần thu hồi kỳ quy hoạch sư dơng ®Êt cđa x· øng H ( trang 133) 2.17 BiĨu 09/QH: DiƯn tÝch ®Êt ch-a sư dơng ®-a vào sử dụng dụng kỳ quy hoạch xà øng H ( trang 134) 2.18 BiĨu 10/QH: Danh mơc khu vực đất khoanh định theo chức mục ®Ých sư dơng kú quy ho¹ch sư dơng ®Êt cđa x· øng H ( trang 135) 2.19 BiĨu 11/QH: Diện tích, cấu sử dụng đất tr-ớc sau quy ho¹ch cđa x· øng H ( trang 136) 2.20 Biểu 12/QH: Phân kỳ tiêu sử dụng đất kú quy ho¹ch cđa x· øng H ( trang 137) 2.21 Biểu 13/QH: Phân kỳ diện tích đất chuyển mục đích sử dụng kỳ quy hoạch xà øng H ( trang 138) 2.22 BiĨu 14/QH: Ph©n kú diện tích đất thu hồi kỳ quy hoạch sử dơng ®Êt cđa x· øng H ( trang 139) 2.23 Biểu 15/QH: Phân kỳ diện tích đất ch-a sử dụng đ-a vào sử dụng kỳ quy hoạch xà øng H ( trang 140) 118 Phơ lơc B¶n đồ trạng đồ quy hoạch sử dụng ®Êt cđa x· øng H ... trọng đất đai, quy hoạch, quản lý đất đai tính -u việt công nghệ thông tin GIS, đà lựa chọn đề tài: ứng dụng phần mềm MapInfo để xây dựng khai thác thông tin đất đai phục vụ quy hoạch sử dụng đất. .. lý thuyết Nghiên cứu ứng dụng phần mềm MapInfo để xây dựng sở liệu đồ thông tin đất đai từ xây dựng phần mềm quản lý, khai thác thông tin đất đai phục vụ quy hoạch sử dụng đất 6.2 ý nghĩa mặt... sở khoa học quy hoạch sử dụng đất, yêu cầu thông tin đất đai phục vụ quy hoạch dựa vào khả ứng dụng công nghệ thông tin, mục đích đề tài nghiên cứu ứng dụng phần mềm MapInfo xây dựng sở liệu