ỨNG DỤNG PHẦN MỀM ARCVIEW GIS 3.3CẬP NHẬT, QUẢN LÝ BIẾN ĐỘNG ĐẤT ĐAIXÃ BÌNH AN, HUYỆN DĨ AN,TỈNH BÌNH DƯƠNG

BỘ GIÁO DỤC & ĐÀO TẠO TRƯỜNG ĐẠI HỌC NÔNG LÂM TP.HỒ CHÍ MINH KHOA QUẢN LÝ ĐẤT ĐAI & BẤT ĐỘNG SẢN BÁO CÁO TỐT NGHIỆP ĐỀ TÀI: ỨNG DỤNG PHẦN MỀM ARCVIEW GIS 3.3 CẬP NHẬT, QUẢN LÝ BIẾN ĐỘNG ĐẤT ĐAI XÃ BÌNH AN, HUYỆN DĨ AN, TỈNH BÌNH DƯƠNG SVTH : Lê Ngọc Trà My MSSV : 06151051 Lớp : DH06DC Khóa : 2006 – 2010 Ngành : Công Nghệ Đòa Chính - TP Hồ Chí Minh, tháng năm 2010 Trang TRƯỜNG ĐẠI HỌC NÔNG LÂM TP HỒ CHÍ MINH KHOA QUẢN LÝ ĐẤT ĐAI & BẤT ĐỘNG SẢN    LÊ NGỌC TRÀ MY ỨNG DỤNG PHẦN MỀM ARCVIEW GIS 3.3 CẬP NHẬT, QUẢN LÝ BIẾN ĐỘNG ĐẤT ĐAI XÃ BÌNH AN, HUYỆN DĨ AN, TỈNH BÌNH DƯƠNG Giáo viên hướng dẫn: TS NGUYỄN VĂN TÂN (Địa cô quan: Trường Đại Học Nông Lâm TP Hồ Chí Minh) Ký tên: ………………………………………………………… - TP Hồ Chí Minh, tháng năm 2010 Trang LỜI CẢM ƠN Đầu tiên xin gửi đến Ba, Mẹ gia đình – người tạo điều kiện cho đến ngày hôm – với tất lòng biết ơn kính trọng! Em xin chân thành cảm ơn: Ban Giám hiệu trường Đại học Nông lâm TPHCM, quý thầy cô khoa Quản lý đất đai & Bất động sản tận tâm truyền đạt kiến thức quý báu cho chúng em suốt thời gian học tập trường Đặc biệt với lòng biết ơn sâu sắc em xin gởi đến : TS Nguyễn Văn Tân tận tình hướng dẫn, bảo giúp đỡ em suốt trình thực luận văn tốt nghiệp Tồn thể anh chị Phòng Tài ngun & Mơi trường huyện Dĩ An tận tình giúp đỡ, cung cấp tài liệu truyền đạt kinh nghiệm quý báu, tạo điều kiện tốt để em hồn thành luận văn tốt nghiệp Tơi xin cảm ơn bạn sinh viên lớp Cơng nghệ Địa khóa 32 động viên giúp đỡ tơi suốt trình học tập thực luận văn tốt nghiệp Dù cố gắng hiểu biết hạn chế khơng thể tránh khỏi sai sót Rất mong nhận đóng góp ý kiến quý thầy cô bạn Chân thành cám ơn! Sinh viên Lê Ngọc Trà My Trang TÓM TẮT Sinh viên thực hiện: Lê Ngọc Trà My, 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 thực hiện: Ứng dụng phần mềm ArcviewGIS 3.3 cập nhật, quản lý biến động đất đai xã Bình An, Huyện Dĩ An, Tỉnh Bình Dương Giáo viên hướng dẫn: TS Nguyễn Văn Tân, Trưở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 đai có vai trò quan trọng nghiệp phát triển kinh tế - xã hội đất nước Đất đai tư liệu sản xuất trực tiếp điạ bàn để phát triển ngành kinh tế khác Hệ thống quản lý đất đai chặt chẽ sách đất đai phù hợp có tác động tích cực giải vấn đề kinh tế - xã hội, xây dựng xã hội công bằngvăn minh, tăng nguồn thu cho ngân sách quốc gia Nhằm đáp ứng công tác quản lý Nhà nước tài nguyên môi trường ngày đại thời gian tới đảm bảo định hướng phát triển khoa học cơng nghệ, q trình sử dụng đất tình hình biến động đất đai diễn phức tạp khó kiểm sốt Điều tạo trở ngại lớn công tác quản lý Nhà nước đất đai nước nói chung địa phương nói riêng Xuất phát từ tình hình thực tế trên, ứng dụng phần mềm Arcview vào công tác quản lý thông tin đất đai quản lý hiệu địa bàn, dễ dàng kiểm soát biến động cập nhật thông tin đất Arcview 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 xác đất truy xuất liệu phục vụ cho công tác liên quan giải phần bất cập công tác quản lý thông tin đất đai Nội dung nghiên cứu: - Nguồn liệu - Tìm hiểu ngơn ngữ lập trình Avenue - Xử lý liệu khơng gian - Xây dựng sở liệu thuộc tính - Xây dựng công cụ hỗ trợ cập nhật, quản lý biến động - Truy vấn thông tin Kết nghiên cứu: - Xây dựng mơ hình liệu khơng gian liệu thuộc tính cho đất xã Bình An tương đối đầy đủ hợp lý - Xây dựng công cụ hỗ trợ cập nhật, quản lý biến động đất đai Trang MỤC LỤC Trang ĐẶT VẤN ĐỀ PHẦN I: TỔNG QUAN I.1 Cơ sở lí luận vấn đề nghiên cứu I.1.1 Cơ sở khoa học I.1.2 Cơ sở pháp lí I.1.3 Cơ sở thực tiễn I.2 Khái quát địa bàn nghiên cứu I.2.1 Điều kiện tự nhiên I.2.2 Thực trạng phát triển kinh tế xã hội I.3 Nội dung, phương pháp quy trình thực 12 I.3.1 Nội dung nghiên cứu 12 I.3.2 Phương pháp nghiên cứu 12 I.3.3 Phương tiện nghiên cứu 13 I.3.4 Quy trình thực đề tài 18 PHẦN II: KẾT QUẢ NGHIÊN CỨU 19 II.1 Nguồn liệu 19 II.2 Tìm hiểu ngơn ngữ lập trình Avenue 21 II.2.1 Phương thức cách gọi phương thức Avenue 21 II.2.2 Các kiểu liệu Avenue 22 II.2.3 Toán tử Avenue 23 II.2.4 Phát biểu 23 II.3 Xử lý liệu không gian 24 II.3.1 Quy trình xử lý liệu không gian 24 II.3.2 Thao tác ghép mảnh Microstation 24 II.3.3 Chuẩn hóa liệu từ Microstation sang ArcGIS 26 II.3.4 Chuẩn hóa liệu từ ArcGIS sang Arcview 29 II.4 Xây dựng sở liệu thuộc tính 30 II.5 Xây dựng công cụ hỗ trợ cập nhật, quản lý biến động 34 II.5.1 Một số công cụ xây đựng đề tài 34 II.5.2 Xây dựng ứng dụng hỗ trợ cập nhật, quản lý biến động đất đai 35 II.6 Truy vấn thông tin 39 II.6.1 Sử dụng công cụ phần mềm Arcview 39 II.6.2 Sử dụng công cụ đề tài xây dựng 41 II.7 Nhận xét kết đạt 53 PHẦN III: KẾT LUẬN VÀ KIẾN NGHỊ 55 Kết luận 55 Kiến nghị 55 Tài liệu tham khảo 56 Trang DANH SÁCH CÁC HÌNH – BẢNG - SƠ ĐỒ- CHỮ VIẾT TẮT DANH SÁCH CÁC HÌNH Hình 1: Các thành phần GIS Hình 2: Vị trí địa bàn Hình 3: Giao diện ArcMap 14 Hình 4: Giao diện ArcToolbox 15 Hình 5: Giao diện Arcview GIS 3.3 16 Hình 6: Giao diện Microstation 25 Hình 7: Hộp thoại Reference Files 25 Hình 8: Hộp thoại Preview Reference 25 Hình 9: Hộp thoại Attach Reference Files 25 Hình 10: Thơng báo 26 Hình 11: Giao diện ArcMap sau Add đồ 26 Hình 12: Hộp thoại select by Attributes 27 Hình 13: Các lớp đồ chọn 27 Hình 14: Hộp thoại Export Data 27 Hình 15: Lớp thủy văn tách 28 Hình 16: Lớp giao thơng tách 28 Hình 17: Lớp đất sau xuất sang ArcCatalog 29 Hình 18: Lớp đất sau sửa lỗi, tạo vùng 29 Hình 19: Giao diện Arcview sau chuẩn hóa 30 Hình 20: Tạo trường liệu ArcMap 31 Hình 21: Nhập thuộc tính cho lớp đất 32 Hình 22: Tạo trường liệu ArcView 32 Hình 23: Nhập thơng tin cho lớp đất 33 Hình 24: Bảng thuộc tính lớp thủy văn 33 Hình 25: Bảng thuộc tính lớp giao thơng 34 Hình 26: Giao diện Arcview 36 Hình 27: Hộp thọai chỉnh sửa 36 Hình 28: Giao diện Arcview sau tạo Menu 36 Hình 29: Hộp thoại xác định Script cho Menu 37 Hình 30: Giao diện viết code cho Scrip 37 Hình 31: Hộp thoại Extension 37 Hình 32: Tạo Dialog Editor 38 Hình 33: Truy vấn liệu công cụ Identify 39 Hình 34: Truy vấn liệu công cụ Find 40 Hình 35: Truy vấn liệu xây dựng biểu thức truy vấn 40 Hình 36: Kết truy vấn liệu xây dựng biểu thức truy vấn 40 Hình 37: Menu tìm theo số thửa, số tờ đồ 41 Trang Hình 38: Giao diện tìm kiếm 41 Hình 39: Giao diện tìm theo số tờ đồ số 42 Hình 40: Giao diện thơng báo 42 Hình 41: Menu tìm tên chủ sử dụng 43 Hình 42: Giao diện tìm kiếm 43 Hình 43: Giao diện tìm theo tên chủ sử dụng đất 43 Hình 44: Giao diện thơng báo 44 Hình 45: Menu thống kê theo mã loại đất 44 Hình 46: Giao diện thống kê theo mã loại đất 45 Hình 47: Giao diện kết thống kê theo mã loại đất 45 Hình 48: Giao diện thơng báo 45 Hình 49: Cơng cụ cập nhật 46 Hình 50: Menu cập nhật biến động 47 Hình 51: Giao diện chuyển quyền sử dụng đất 47 Hình 52: Giao diện thơng báo 47 Hình 53: Menu cập nhật biến động 49 Hình 54: Giao diện chuyển mục đích SDĐ 49 Hình 55: Giao diện thông báo 49 Hình 56: Thanh cơng cụ tiện ích điều khiển khung nhìn 50 Hình 57: Menu hệ thống 51 Hình 58: Giao diện thêm/ xóa lớp 52 DANH SÁCH CÁC BẢNG BIỂU Bảng 1: Diện tích, suất, sản lượng số trồng Bảng 2: Thực trạng phát triển dân số 2002-2006 10 Bảng 3: Hiện trạng giao thơng xã Bình An 11 Bảng 4: Số liệu biến động đất đai theo mục đích sử sụng đất 19 Bảng 5: Các động từ bắt đầu yêu cầu dùng ngôn ngữ Avenue 22 Bảng 6: Tạo trường liệu cho lớp đất 31 Bảng 7: Trường liệu cho lớp đất 32 Bảng 8: Trường liệu cho lớp thuỷ văn 34 Bảng 9: Trường liệu cho lớp giao thông 34 Bảng 10: Danh sách Menu 35 Bảng 11: Các điều khiển Dialog 38 Bảng 12: Các thuộc tính giao diện tìm theo số thửa, số tờ đồ .42 Bảng 13: Các Script điều khiển Dialog tìm kiếm theo số thửa, số tờ đồ 42 Bảng 14: Thuộc tính giao diện tìm theo tên chủ sử dụng đất 44 Bảng 15: Các Script điều khiển Dialog tìm theo tên chủ sử dụng 44 Bảng 16: Thuộc tính giao diện thống kê theo mã loại đất 45 Trang Bảng 17: Các Script điều khiển Dialog thống kê theo mã loại đất 46 Bảng 18: Các Script điều khiển Dialog công cụ cập nhật 46 Bảng 19: Thuộc tính giao diện chuyển quyền sử dụng đất 48 Bảng 20: Các Script điều khiển Dialog cập nhật chuyển quyền sử dụng đất 48 Bảng 21: Thuộc tính giao diện chuyển mục đích sử dụng đất 49 Bảng 22: Các Script điều khiển Dialog chuyển mục đích SDĐ 50 Bảng 23: Thuộc tính Dialog cơng cụ tiện ích 51 Bảng 24: Các Script điều khiển Dialog công cụ tiện ích 51 Bảng 25: Bảng thuộc tính giao diện thêm/xóa lớp 52 Bảng 26: Các Script điều khiển Dialog thêm/xóa lớp 52 DANH SÁCH CÁC SƠ ĐỒ Sơ đồ 1: Quy trình thực đề tài 20 Sơ đồ 2: Quy trình xử lý liệu khơng gian 28 Sơ đồ 3: Tạo ứng dụng tùy biến 39 DANH SÁCH CÁC CHỮ VIẾT TẮT QH TT TCĐC NĐ_CP BTNMT CMND CN CSD BĐĐC HSĐC UBND : : : : : : : : : : : Quốc Hội Thơng Tư Tổng Cục Địa Chính Nghị Định_ Chính Phủ Bộ Tài ngun & Mơi trường Chứng minh nhân dân Chuyển Nhượng Chủ sử dụng Bản đồ địa Hồ sơ địa Uỷ ban nhân dân Trang ĐẶT VẤN ĐỀ Đất đai thành phần tất yếu, khơng thể thiếu để hình thành nên quốc gia Bởi vậy, việc quản lý đất đai đặt lên hàng đầu Việt Nam ta ln hồ chung vào phát triển giới, tiếp thu tiến văn minh nhân loại Đặc biệt phát triển công nghệ thông tin diễn mạnh mẽ, có sức lan toả vào tất ngành, lĩnh vực sâu vào khía cạnh sống Với ưu điểm đó, năm qua nhiều lĩnh vực cơng nghệ tiên tiến áp dụng có hiệu vào công tác quản lý nhà nước đất đai nước ta Điều khơng nằm ngồi mục tiêu nâng cao lực, hiệu hoạt động hệ thống quan quản lý nhà nước công nghệ Với liên quan hầu hết tới lĩnh vực kinh tế - xã hội, nên tình hình sử dụng đất đai có nhiều biến động Chịu tác động trực tiếp từ kinh tế thị trường, trình cơng nghiệp hố đại hố đất nước tạo nên Chính vậy, q trình sử dụng đất tình hình biến động đất đai diễn phức tạp khó kiểm sốt Điều tạo trở ngại lớn công tác quản lý Nhà nước đất đai nước nói chung địa phương nói riêng Để quản lý đất đai có hiệu đòi hỏi việc nắm bắt, cập nhật thông tin đầy đủ phản ánh thực trạng thông qua đăng ký, chỉnh lý, cập nhật biến động đất đai đồ địa Việc cập nhật thay đổi để làm sở bảo hộ quyền lợi nghĩa vụ hợp pháp chủ thể có liên quan, tạo điều kiện để nhà nước hoạch định sách quản lý phát triển Xuất phát từ thực tế với hướng dẫn T.S Nguyễn Văn Tân em xin thực đề tài: Ứng dụng phần mềm ArcviewGIS 3.3 cập nhật, quản lý biến động đất đai xã Bình An, Huyện Dĩ An, Tỉnh Bình Dương MỤC TIÊU ĐỀ TÀI NGHIÊN CỨU - Chuyển đổi, xây dựng hệ thống sở liệu, cơng cụ hỗ trợ truy xuất, cập nhật biến động đất đai - Xây dựng chương trình cập nhật, quản lý biến động tiếng Việt dự ngơn ngữ lập trình Avenue chạy ArcView 3.3 giúp sử dụng dễ dàng YÊU CẦU ĐỀ TÀI NGHIÊN CỨU Yêu cầu thông tin đất đai - Các thơng tin cập nhật phải đảm bảo tính xác, cụ thể, thống nhất, kịp thời, đáp ứng nhiệm vụ cập nhật biến động - Thông tin cập nhật liệu khơng gian, liệu thuộc tính phải đồng Yêu cầu phần mềm ứng dụng - Phải đảm bảo nhập liệu, quản lý, cập nhật đầy đủ nội dung thông tin đất đai dễ sử dụng - Thuận tiện, nhanh chóng cho việc khai thác thông tin đất chủ sử dụng đất - Đảm bảo tính tương thích với phần mềm khác Trang đai ĐỐI TƯỢNG, PHẠM VI ĐỀ TÀI NGHIÊN CỨU Đối tượng nghiên cứu - Tìm hiểu sở để ứng dụng ArcviewGIS 3.3 quản lý nhà nước đất + Tìm hiểu cơng tác quản lý nhà nước đất đai, đặc biệt quản lý biến động đất đai + Tìm hiểu khả ứng dụng phần mềm Arcview xây dựng số công cụ cập nhật quản lý biến động đất đai - Chuẩn hóa liệu khơng gian - Xây dựng sở liệu thuộc tính - Tạo cơng cụ hỗ trợ góp phần bước đại hóa cơng tác quản lý, cập nhật biến động đất đai Phạm vi nghiên cứu - Tất thông tin đất đồ địa bàn phải chuẩn hoá dạng chuẩn - Ứng dụng phần mềm Arcview công cụ hỗ trợ dựa sở liệu xã Bình An, Huyện Dĩ An, Tỉnh Bình Dương Trang 10 b Mở Project Chức cho phép người sử dụng mở liệu khác Khi ta kích chọn Menu Hệ thống/ Mở Project Xuất hộp thoại chọn đường dẫn cần lưu liệu Chọn OK c Lưu Project Trong làm việc để đảm bảo an toàn liệu ta thực tao tác lưu liệu Vào menu Hệ thống / Lưu Project Chương trình tự động thực lệnh lưu thay đổi liệu trình làm việc d Lưu lại với tên khác Được sử dụng muốn lưu chương trình làm việc lại thành tên khác Khi ta kích chọn Menu Hệ thống / Lưu lại với tên khác Xuất hộp thoại chọn đường dẫn cần lưu liệu Chọn OK II.7 NHẬN XÉT KẾT QUẢ ĐẠT ĐƯỢC AcrViewGIS phần mềm có khả phân tích khơng gian cao, trao đổi nguồn sở liệu khơng gian thuộc tính với nhiều phần mềm GIS khác ArcGIS, Microstation SE, Autocad,… Ngồi ra, ArcView GIS có khả mở rộng chức thơng qua Extensions Vì ArcView GIS hỗ trợ gần đầy đủ chức phân tích GIS sử dụng thơng thạo phát triển nghiên cứu ứng dụng GIS lớn Bên cạnh đó, bảng thuộc tính quản lý ArcViewGIS thuận lợi cho công tác lập, quản lý, truy xuất, hiển thị liệu Mặc khác, ArcView hỗ trợ mơi trường lập trình tốt, cho phép lập trình dạng Script thơng qua ngơn ngữ lập trình Avenue, người dùng thực dự án GIS vừa nhỏ với giao diện Tiếng Việt Đề tài xây dựng chương trình quản lý, cập nhật biến động địa bàn xã Bình An, Huyện Dĩ An, Tỉnh Bình Dương Từ liệu thơ thơng qua q trình xử lý, chuẩn hoá liệu, xây dựng sở liệu tập trung bao gồm thông tin không gian thơng tin thuộc tính Chương trình xây dựng số ứng dụng giúp hỗ trợ cho việc tìm kiếm cập nhật thơng tin đất thuận tiện, nhanh chóng - Xây dựng menu “Tìm kiếm” giúp cho người quản lý truy cập tra cứu thông tin cách dễ dàng, nhanh chóng Thơng qua menu “Tìm kiếm” giúp ta tìm theo đất, theo chủ sử dụng - Xây dựng menu “Thống kê theo loại đất” giúp cho công tác thống kê loại đất dễ dàng nhằm phục vụ có hiệu cho cơng tác thống kê, kiểm kê đất đai - Xây dựng menu “cập nhật” với hai tool cơng cụ “Chuyển mục đích SDĐ” “Chuyển quyền SDĐ” giúp cho công cập nhật biến động dễ dàng nhanh chóng Trang 61 - Xây dựng cơng cụ “Tiện ích” cơng cụ “Hệ thống “ giúp người sử dụng thao tác dễ dàng mà khơng theo cơng cụ sẳn có Arcview  Ưu điểm - Giao diện làm việc tiếng Việt, chức thiết kế đơn giản thuận tiện cho người sử dụng - Phần mềm dễ cài đặt sử dụng - Cơ sở liệu thuộc tính tập trung, thể đầy đủ thuộc tính đất - Hệ thống có chức cập nhật nhằm điều chỉnh thơng tin đất - Các cơng cụ tìm kiếm xây dựng dựa vào điều kiện, nhu cầu cần thiết người sử dụng nên khả ứng dụng thực tế cao - Ngồi ra, chương trình có số cơng cụ tiện ích nhằm hỗ trợ nhà quản lý, người sử dụng muốn tìm kiếm hay quan sát dễ dàng thơng tin mà muốn tìm  Nhược điểm - Tốc độ, khả linh hoạt chương trình khơng cao Do nguồn liệu thuộc tính chưa xác, đầy đủ thơng tin thuộc tính đất - Chương trình đội lúc tự lỗi hệ thống - Có nhiều hình thức biến động đất đai, phạm vi đề tài chủ yếu nghiên cứu hai hình thức biến động: chuyển quyền sử dụng đất, chuyển mục đích sử dụng đất Trang 62 KẾT LUẬN - KIẾN NGHỊ KẾT LUẬN Hệ thống quản lý, cập nhật biến động đất đai xây dựng phần mềm AcrView GIS 3.3 sử dụng ngôn ngữ lập trình Avenue nhằm giúp cho cơng tác quản lý, cập nhật biến động tốt Thông qua hệ thống, người sử dụng truy xuất thơng tin cách dễ dàng, nhanh chóng xác Việc xây dựng sở liệu đồ chủ yếu dựa vào đồ địa Bản đồ khơng có gắn kết liệu không gian phi không gian nên việc chuẩn hoá liệu chưa thật xác, đầy đủ với tình hình biến động đất đai Sử dụng ngôn ngữ Avenue thông qua lập trình Script tạo hệ thống quản lý, cập nhật biến động có số chức như: tìm kiếm thơng tin, thống kê, cập nhật biến động làm cho việc truy cập dễ dàng Với mục tiêu ứng dụng phần mềm Arcview cập nhật, quản lý biến động đất đai xã Bình An, huyện Dĩ An, tỉnh Bình Dương đạt kết sau: + Xây dựng hệ thống sở liệu khơng gian liệu thuộc tính cho lớp đối tượng: đất, đường giao thông, thủy văn + Xây dựng công cụ hỗ trợ + Cập nhật thơng tin thuộc tính đối tượng Như vậy, nói tin học hố, ứng dụng cơng nghệ thơng tin vào cơng tác quản lý đất đai cấp thiết, phù hợp với nhu cầu phát triển Nếu quan tâm đầu tư giúp cho công tác quản lý đất đai xác, kịp thời, giải nhiều bất cập tạo nhiều thuận lợi thay đổi công tác quản lý nhà nước đất đai KIẾN NGHỊ Tuy nhiên, thời gian lực người thực luận văn giới hạn quản lý đất đai đặc biệt quản lý thông tin biến động rộng phức tạp Vì số hạn chế việc nghiên cứu xây dựng ứng dụng theo mục tiêu đề tài Các thơng tin thuộc tính đồ phải cập nhật xác Nguồn liệu thuộc tính phải thường xuyên cập nhật, thống với sở liệu không gian Cần phải trang bị đầy đủ thiết bị lẫn nhân lực nhằm hỗ trợ cho việc điều chỉnh biến động đồ ngồi thực tế có gắn kết với Cán đảm nhiệm phải am hiểu, thông thạo phần mềm quản lý đất đai Microstation SE, ArcGIS, ArcviewGIS để khai thác triệt để hệ thống Trang 63 TÀI LIỆU THAM KHẢO Bài giảng môn Bản đồ địa chính, Thầy Đặng Quang Thịnh, Trường Đại học Nông Lâm TP.HCM Bài giảng môn Đăng ký thống kê đất đai, ThS Ngô Minh Thụy, Trường Đại học Nông Lâm TP.HCM Báo cáo thuyết minh tổng hợp quy hoạch sử dụng đất chi tiết đến năm 2010 kế hoạch sử dụng đất chi tiết đến năm 2010 xã Bình An Bài giảng “ Tin học ứng dụng”, ThS Lê Ngọc Lãm, Trường Đại học Nơng Lâm TP Hồ Chí Minh Báo cáo tốt nghiệp “Xây dựng liệu đồ huyện Cần Giờ, Tp Hồ Chí Minh phục vụ cho cơng tác cấp giấy chứng nhận quyền sử dụng đất” Võ Thị Minh Thơ, Lớp DH05DC Báo cáo tốt nghiệp “Ứng dụng hệ thống thông tin địa lý (GIS) quản lý thông tin quy hoạch sử dụng đất thị trấn Phước Bửu - huyện Xuyên Mộc- tỉnh Bà Rịa-Vũng Tàu” Nguyễn Văn Nhàng, Lớp DH05DC Giáo trình “ArcGIS bản”, ThS Lê Đức Trị, Trường Đại học Khoa học Tự nhiên Giáo trình “Lập trình GIS”, ThS Lê Đức Trị, Trường Đại học Khoa học Tự nhiên Trang 64 PHỤ LỤC  Script thống kê theo mã loại đất: theView = av.GetactiveDoc thedlg = av.finddialog("dlgthongketheoloaidat") thetheme = theview.findtheme("chuyen_sang_arcview.shp") theftab = thetheme.getftab thetext1 = thedlg.findbyname("txlmld") maloaidat = thetext1.gettext if (maloaidat ="") then msgbox.info(" Ban chua nhap ma loai dat"," Thong bao") end if (maloaidat "") then theexpr = "([kh2003] = """+ maloaidat + """)" end thebitmap = theftab.getselection theftab.query(theexpr,thebitmap,#vtab_seltype_new) theftab.updateselection thelist = thedlg.findbyname("lbxcacthuadatthongkeduoc") a1=theftab.findfield("objectid") a2=theftab.findfield("so_to_bd") a3=theftab.findfield("so_hieu_th") a4=theftab.findfield("dttd") a5=theftab.findfield("ten_csd") a6=theftab.findfield("diachi_csd") a7=theftab.findfield("kh2003") lsf={a1,a2,a3,a4,a5,a6,a7} thelist.DefineFromVTab(theftab,lsf, true) thetll = thedlg.findbyname("lbxketquathongke") thefield = theftab.findfield("kh2003") thebitmap = theftab.getselection thetll.settext("Tong so thua dat la:" ++ thebitmap.count.asstring ++ " thua dat")  Script thêm lớp đồ: Trang 65 myView = av.GetProject.FindDoc ("View1") thedlg = av.Finddialog ("dlg_THEM/XOA LOP") thecbx1 = thedlg.FindByName ("chxthuadat") thecbx2 = thedlg.FindByName ("chxthuyvan") thecbx3 = thedlg.FindByName ("chxgiaothong") theSrcName1 = SrcName.Make ("C:\du lieu\LENGOCTRAMY-06151051\Du lieu tu arcgis\chuyen_sang_arcview.shp") theSrcName2 = SrcName.Make ("C:\du lieu\LENGOCTRAMY-06151051\Du lieu tu arcgis\thuyvan-binhan.shp") theSrcName3 = SrcName.Make ("C:\du lieu\LENGOCTRAMY-06151051\Du lieu tu arcgis\giaothong_binhan.shp") if (theSrcName1 = nil) then Msgbox.Info ("Khong ton tai lop thua dat","Thong bao") Exit end if (theSrcName2 = nil) then Msgbox.Info ("Khong ton tai lop thuy van","Thong bao") Exit end if (theSrcName3 = nil) then Msgbox.Info ("Khong ton tai lop giao thong","Thong bao") Exit end if (thecbx1.IsSelected) then theTheme = theme.Make (theSrcName1) myView.Addtheme(theTheme) theTheme.SetVisible (true) theTheme.SetActive (true) end if (thecbx2.IsSelected) then theTheme = theme.Make (theSrcName2) myView.Addtheme(theTheme) theTheme.SetVisible (true) theTheme.SetActive (true) end if (thecbx3.IsSelected) then Trang 66 theTheme = theme.Make (theSrcName3) myView.Addtheme(theTheme) theTheme.SetVisible (true) theTheme.SetActive (true) end  Script tìm theo tên chủ sử dụng đất: theView = av.GetActivedoc thedlg = av.finddialog("dlg_csd") thetext = thedlg.findbyname("Txlcsd") tenchusudung = thetext.gettext thetheme = theview.findtheme("chuyen_sang_arcview.shp") theftab = thetheme.getftab if (tenchusudung="") then msgbox.info("ban chua nhap ten chu su dung dat","thong bao") else thebitmap = theftab.getselection theexpr = "([ten_csd]=""" + tenchusudung + """)" theftab.query(theexpr,thebitmap,#vtab_seltype_new) theftab.updateselection end thelist=thedlg.findbyname("lbxcacthuadattimduoc") a1=theftab.findfield("objectid") a2=theftab.findfield("so_to_bd") a3=theftab.findfield("so_hieu_th") a4=theftab.findfield("dttd") a5=theftab.findfield("ten_csd") a6=theftab.findfield("diachi_csd") a7=theftab.findfield("cmnd") a8=theftab.findfield("kh2003") lsf={a1,a2,a3,a4,a5,a6,a7,a8} thelist.DefineFromVTab(theftab,lsf, true) av.GetProject.SetModified(true) theView = av.GetActiveDoc r = Rect.MakeEmpty for each t in theView.GetActiveThemes if (t.CanSelect) then r = r.UnionWith(t.GetSelectedExtent) end Trang 67 end if (r.IsEmpty) then return nil elseif ( r.ReturnSize = (0@0) ) then theView.GetDisplay.PanTo(r.ReturnOrigin) else theView.GetDisplay.SetExtent(r.Scale(1.1)) end  Script tìm kiếm đất theo số tờ đồ, số hiệu thửa: theView = av.GetActivedoc thedlg = av.finddialog("dlg_soto_sothua") thetheme = theview.findtheme("chuyen_sang_arcview.shp") theftab = thetheme.getftab thetext1 = thedlg.findbyname("txlsotobando") soto1 = thetext1.gettext thetext2 = thedlg.findbyname("txlsothua") sothua1 = thetext2.gettext thebitmap = theftab.getselection if((soto1="") and (sothua1"")) then theexpr = "([Sthua]=""" + sothua1 + """)" end if((soto1"") and (sothua1="")) then theexpr = "([So_to]=""" + soto1 + """)" end if((soto1"") and (sothua1"")) then theexpr = "(([So_to]=""" + soto1 + """) and ([Sthua]="""+ sothua1+"""))" end if((soto1="") and (sothua1="")) then msgbox.info(" Ban phai nhap so to ban va so thua", "thong bao") end theftab.query(theexpr,thebitmap,#vtab_seltype_new) theftab.updateselection Trang 68 thelist=thedlg.findbyname("lbxcacthuadattimduoc") a1=theftab.findfield("Objectid") a2=theftab.findfield("So_to") a3=theftab.findfield("Sthua") a4=theftab.findfield("Dttd") a5=theftab.findfield("Ten_csd") a6=theftab.findfield("Diachi_csd") a7=theftab.findfield("Kh2003") a8=theftab.findfield("Cmnd") lsf={a1,a2,a3,a4,a5,a6,a7,a8} thelist.DefineFromVTab(theftab,lsf, true)  Script cập nhật biến động chuyển nhượng QSDĐ theView=av.GetActiveDoc theTheme=theView.FindTheme("chuyen_sang_arcview.shp") theFtab=theTheme.GetFtab thedlg=av.FindDialog("dlgchuyenquyensudungdat") tencsdmoi1 =thedlg.FindByName("txltencsdmoi") tencsdmoi=theftab.findfield("ten_csd") socmnd1=thedlg.findByName("txlsocmnd") socmnd= theftab.findfield("cmnd") diachi1=thedlg.findbyname("txldiachi") diachi =theFtab.FindField("diachi_csd") giatricn1=thedlg.FindByName("txlgiatricn") giatricn=theFtab.FindField("giatri_cn") sotobd1=theDlg.FindByName("txlsotobando") sotobd=theFtab.FindField("so_to") shthua1=theDlg.FindByName("txlsohieuthua") shthua=theFtab.FindField("sthua") dcthuadat1=theDlg.FindByName("txldiachithuadat") dcthuadat=theFtab.FindField("diachi_thu") sovaoso1=theDlg.FindByName("txlsovaoso") sovaoso2=theFtab.FindField("sovaoso") Trang 69 sophathanh1=theDlg.FindByName("txlsophathanh") sophathanh2=theFtab.FindField("sophathanh") namsinh1=theDlg.FindByName("txlnamsinh") namsinh=theFtab.FindField("nam_sinh") dtcn1=theDlg.FindByName("txldientichcn") dtcn =theFtab.FindField("dtich_cn") theftab.seteditable(true) for each rec in theftab.getselection theftab.setvalue(tencsdmoi,rec,tencsdmoi1.gettext) theftab.SetValue(socmnd,rec,socmnd1.GetText) theftab.setvalue(diachi,rec,diachi1.gettext) theftab.setvalue(giatricn,rec,giatricn1.gettext) theftab.setvalue(sotobd,rec,sotobd1.gettext) theftab.setvalue(dcthuadat,rec,dcthuadat1.gettext) theftab.setvalue(sovaoso2,rec,sovaoso1.gettext) theftab.setvalue(sophathanh2,rec,sophathanh1.gettext) theftab.setvalue(namsinh,rec,namsinh1.gettext) theftab.setvalue(dtcn,rec,dtcn1.gettext) theftab.setvalue(shthua,rec,shthua1.gettext) end theftab.seteditable(false) theftab.refresh msgbox.info ("Ban Da Cap Nhat Thanh Cong", "Thong Bao")  Script Tool cập nhật chuyển quyền sử dụng đất: theView = av.GetActiveDoc ListActiveThemes=theView.GetActiveThemes theRect=theView.ReturnUserRect theTheme=theview.Findtheme("chuyen_sang_arcview.shp") if (therect.isnull) then thepoint=theview.getdisplay.returnuserpoint thetheme.selectbypoint(thepoint,#vtab_seltype_new) else thetheme.selectbyrect(therect,#vtab_seltype_new) end thedlg=av.finddialog("dlgchuyenquyensudungdat") theftab=thetheme.getftab Trang 70 tencsdmoifield=theftab.findfield("ten_csd") socmndfield=theftab.findfield("cmnd") namsinhfield=theftab.findfield("nam_sinh") diachifield = theFtab.FindField ("diachi_csd") giatricnfield=theftab.findfield("giatri-cn") sotobdfield=theftab.findfield("so_to") shthuafield=theftab.findfield("sthua") dcthuadatfield = theFtab.FindField ("diachi_thu") sovaosofield = theFtab.FindField ("sovaoso") sophathanhfield = theFtab.FindField ("sophathanh") ngaycapfield = theFtab.FindField ("ngaycap") ghichufield = theFtab.FindField ("ghi_chu") dtcnfield = theFtab.FindField ("dtich_cn") for each rec in theftab.getselection tencsdmoi=theftab.returnvalue(tencsdmoifield,rec) socmnd=theftab.returnvalue(socmndfield,rec) diachi=theftab.returnvalue(diachifield,rec) giatricn=theftab.returnvalue(giatricnfield,rec) sotobd = theFtab.ReturnValue (sotobdfield,rec) shthua=theftab.ReturnValue (shthuafield,rec) dcthuadat=theftab.Returnvalue (dcthuadatfield,rec) sovaoso2 = theFtab.Returnvalue (sovaosofield,rec) sophathanh2 = theFtab.Returnvalue (sophathanhfield,rec) ngaycap2 = theFtab.Returnvalue (ngaycapfield,rec) ghichu2 = theFtab.Returnvalue (ghichufield,rec) namsinh = theFtab.Returnvalue (namsinhfield,rec) dtcn = theFtab.ReturnValue (dtcnfield,rec) end dtcn1 = thedlg.FindByName ("txldientichcn") dtcn1.settext(dtcn) tencsdmoi1=thedlg.findbyname("txltencsdmoi") tencsdmoi1.settext(tencsdmoi) socmnd1=thedlg.findbyname("txlsocmnd") socmnd1.settext(socmnd.asstring) diachi1=thedlg.findbyname("txldiachi") diachi1.settext(diachi) giatricn1=thedlg.findbyname("txlgiatricn") Trang 71 giatricn1.settext(giatricn.asstring) sotobd1=thedlg.findbyname("txlsotobando") sotobd1.settext(sotobd) shthua1=thedlg.findbyname("txlsohieuthua") shthua1.settext(shthua) ghichu1=thedlg.findbyname("txlghichu") ghichu1.settext(ghichu2) dcthuadat1 = thedlg FindByName ("txldiachithuadat") dcthuadat1 settext (dcthuadat) sovaoso1 = thedlg FindByName ("txlsovaoso") sovaoso1 settext(sovaoso2.asstring) sophathanh1 = thedlg FindByName ("txlsophathanh") sophathanh1 settext (sophathanh2) ngaycap1 = thedlg FindByName ("txlngaycapso") ngaycap1 settext (ngaycap2) namsinh1 = thedlg FindByName ("txlnamsinh") namsinh1 settext (namsinh.asstring) thedlg.open  Script Tool cập nhật chuyển mục đích sử dụng đất: theView = av.GetActiveDoc ListActiveThemes=theView.GetActiveThemes theRect=theView.ReturnUserRect theTheme=theview.Findtheme("chuyen_sang_arcview.shp") if (therect.isnull) then thepoint=theview.getdisplay.returnuserpoint thetheme.selectbypoint(thepoint,#vtab_seltype_new) else thetheme.selectbyrect(therect,#vtab_seltype_new) end thedlg=av.finddialog("dlgchuyenmucdich") theftab=thetheme.getftab Trang 72 tencsdmoifield=theftab.findfield("ten_csd") socmndfield=theftab.findfield("cmnd") namsinhfield=theftab.findfield("nam_sinh") diachifield = theFtab.FindField ("diachi_csd") sotobdfield=theftab.findfield("so_to") shthuafield=theftab.findfield("sthua") dcthuadatfield = theFtab.FindField ("diachi_thu") ghichufield = theFtab.FindField ("ghi_chu") mdsdmoifield = theFtab.FindField ("mdsd Moi") for each rec in theftab.getselection tencsdmoi=theftab.returnvalue(tencsdmoifield,rec) socmnd=theftab.returnvalue(socmndfield,rec) diachi=theftab.returnvalue(diachifield,rec) sotobd = theFtab.ReturnValue (sotobdfield,rec) shthua=theftab.ReturnValue (shthuafield,rec) dcthuadat=theftab.Returnvalue (dcthuadatfield,rec) ghichu2 = theFtab.Returnvalue (ghichufield,rec) namsinh = theFtab.Returnvalue (namsinhfield,rec) mdsdmoi2 = theFtab.Returnvalue (mdsdmoifield,rec) end tencsdmoi1=thedlg.findbyname("txltenchusudung") tencsdmoi1.settext(tencsdmoi) socmnd1=thedlg.findbyname("txlsocmnd") socmnd1.settext(socmnd.asstring) diachi1=thedlg.findbyname("txldiachithuongtru") diachi1.settext(diachi) sotobd1=thedlg.findbyname("txlsotobando") sotobd1.settext(sotobd) shthua1=thedlg.findbyname("txlsohieuthua") shthua1.settext(shthua) ghichu1=thedlg.findbyname("txlghichu") ghichu1.settext(ghichu2) dcthuadat1 = thedlg FindByName ("txldiachithuadat") dcthuadat1 settext (dcthuadat) Trang 73 namsinh1 = thedlg FindByName ("txlnamsinh") namsinh1 settext (namsinh.asstring) mdsdmoi1 = thedlg FindByName ("txlmdsdmoi") mdsdmoi1 settext (mdsdmoi2) thedlg.open  Script cập nhật chuyển mục đích sử dụng đất: tencsdmoi=theftab.findfield("ten_csd") socmnd1=thedlg.findByName("txlsocmnd") socmnd= theftab.findfield("cmnd") diachi1=thedlg.findbyname("txldiachithuongtru") diachi =theFtab.FindField("diachi_csd") sotobd1=theDlg.FindByName("txlsotobando") sotobd=theFtab.FindField("so_to") shthua1=theDlg.FindByName("txlsohieuthua") shthua=theFtab.FindField("sthua") dcthuadat1=theDlg.FindByName("txldiachithuadat") dcthuadat=theFtab.FindField("diachi_thu") namsinh1=theDlg.FindByName("txlnamsinh") namsinh=theFtab.FindField("nam_sinh") ghichu1=theDlg.FindByName("txlghichu") ghichu2 =theFtab.FindField("ghi_chu") mdsdmoi1=theDlg.FindByName("txlmdsdmoi") mdsdmoi2 =theFtab.FindField("mdsd moi") theftab.seteditable(true) for each rec in theftab.getselection theftab.setvalue(tencsdmoi,rec,tencsdmoi1.gettext) theftab.SetValue(socmnd,rec,socmnd1.getText) theftab.setvalue(diachi,rec,diachi1.gettext) theftab.setvalue(ghichu2,rec,ghichu1.gettext) theftab.setvalue(sotobd,rec,sotobd1.gettext) theftab.setvalue(dcthuadat,rec,dcthuadat1.gettext) theftab.setvalue(mdsdmoi2,rec,mdsdmoi1.gettext) Trang 74 theftab.setvalue(namsinh,rec,namsinh1.gettext) theftab.setvalue(shthua,rec,shthua1.gettext) end theftab.seteditable(false) theftab.refresh msgbox.info ("Ban Da Cap Nhat Thanh Cong", "Thong Bao")  Mẫu quản lý thông tin SỔ ĐỊA CHÍNH File Excel  Mẫu quản lý thơng tin biến động File Excel có tên CAPNHATMOI Trang 75 ... nước quản lý đất đai theo pháp luật Hình thức sổ Sổ gồm 200 trang, kích thước (297x420) mm gồm có: trang hướng dẫn, trang nội dung, trang phụ lục Nội dung - Tên địa người sử dụng đất - Thông tin... ghi hết đất để cách số trang 1/3 số trang ghi cho tờ đó, ghi đối tượng theo tuyến, sau vào sổ cho tờ đồ địa - Cách ghi cụ thể kí hiệu loại đất hướng dẫn sau trang bìa sổ Trang 14 d Sổ theo dõi... nhận đóng góp ý kiến q thầy bạn Chân thành cám ơn! Sinh viên Lê Ngọc Trà My Trang TÓM TẮT Sinh viên thực hiện: Lê Ngọc Trà My, Khoa Quản lý Đất đai & Bất động sản, Trường Đại Học Nơng Lâm TP Hồ