XÂY DỰNG CƠ SỞ DỮ LIỆU ĐẤT ĐAI PHỤC VỤ CÔNG TÁC THU TIỀN SỬ DỤNG ĐẤT TẠI XÃ AN BÌNH- HUYỆN DĨ AN- TỈNH BÌNH DƯƠNG

BỘ GIÁO DỤC VÀ ĐÀ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: XÂY DỰNG CƠ SỞ DỮ LIỆU ĐẤT ĐAI PHỤC VỤ CÔNG TÁC THU TIỀN SỬ DỤNG ĐẤT TẠI XÃ AN BÌNH- HUYỆN DĨ AN- TỈNH BÌNH DƯƠNG Sinh viên thực hiện: Lê Võ Như Ngọc Mã số sinh viên: 06151052 Lớp: DH06DC Ngành: Cơng Nghệ Địa Chính -TP.Hồ Chí Minh, tháng năm 2010- LỜI CẢM ƠN Đầu tiên, xin kính lời cảm ơn sâu sắc đến ơng bà, cha mẹ, người sinh ra, nuôi dưỡng, chăm lo dạy bảo đến ngày hôm Tôi xin chân thành cảm ơn quý thầy cô trường Đại Học Nơng Lâm TP Hồ Chí Minh, đặc biệt q thầy cô khoa Quản Lý Đất Đai & Bất Động Sản Quý thầy cô truyền đạt kinh nghiệm kiến thức, tận tình dạy bảo giúp đỡ chúng em suốt thời gian học tập ghế nhà trường, trang bị cho chúng em hành trang vững bước vào đời Thầy cô tạo điều kiện cho chúng em học tập tốt suốt khoảng thời gian giảng đường Đại Học Em xin bày tỏ lòng biết ơn sâu sắc đến Nguyễn Ngọc Thy, tận tình giúp đỡ hướng dẫn em suốt thời gian thực hoàn thành luận văn tốt nghiệp Xin chân thành cảm ơn Ban lãnh đạo phòng Tài Ngun & Mơi Trường Huyện Dĩ An, đặc biệt quý anh, chị thuộc tổ Tài Nguyên văn phòng Đăng Ký quyền sử dụng đất giúp đỡ tạo điều kiện tốt cho thực tập quý quan Cuối cùng, xin chân thành cảm ơn anh chị khóa trước bạn lớp cơng nghệ địa giúp đỡ khoảng thời gian học tập thực đề tài tốt nghiệp Dù cố gắng 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 Một lần xin cảm ơn tình cảm giúp đỡ nhiệt tình người dành cho tơi TĨM TẮT Sinh viên thực hiện: Lê Võ Như Ngọc, Bộ môn Công Nghệ Địa Chính, 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: “XÂY DỰNG CƠ SỞ DỮ LIỆU ĐẤT ĐAI PHỤC VỤ CÔNG TÁC THU TIỀN SỬ DỤNG ĐẤT TẠI XÃ AN BÌNH- HUYỆN DĨ AN- TỈNH BÌNH DƯƠNG” Giáo viên hướng dẫn: Th.S Nguyễn Ngọc Thy, Bộ môn Công Nghệ Địa Chính, Khoa Quản lý Đất đai & Bất động sản, Trường Đại Học Nơng Lâm TP Hồ Chí Minh Sự đời Hệ thống thông tin địa lý (GIS) bước tiến to lớn đường đưa ý tưởng kết nghiên cứu địa lý, cách tiếp cận hệ thống theo quan điểm địa lý học đại vào sống GIS sử dụng nhiều ngành kỹ thuật có ngành địa Khoa học cơng nghệ ngành địa tập trung chủ yếu vào ba lĩnh vực là: công nghệ thu thập thông tin, công nghệ xử lý thông tin quản lý thông tin Với tình trạng biến động đất đai nay, việc quản lý đất đai sổ sách đồ giấy đáp ứng nhu cầu cập nhật thông tin biến động đất đai cách kịp thời nhằm phục vụ công tác quản lý đất đai nhanh chóng hiệu ,nhất làcơng tác quản lý tài đất đai việc tính tốn, tra cứu thơng tin tính tiền sử dụng đất Trước thực tiễn này, thực đề tài “ Xây dựng sở liệu đất đai phục vụ công tác thu tiền sử dụng đất xã An Bình- huyện Dĩ An- tỉnh Bình Dương” Trên sở chúng tơi tiến hành nghiên cứu nội dung sau:  Thực trạng công tác thu tiền sử dụng đất xã An Bình- huyện Dĩ An- tỉnh Bình Dương  Tìm hiểu phần mềm Arcview Gis 3.3  Ứng dụng Arview GIS 3.3 xây dựng đồ đơn giá đất công cụ tìm kiếm cập nhật thơng tin đất đai phục vụ cơng tác thu tiền sử dụng đất xã An Bình- huyện Dĩ An- tỉnh Bình Dương Thơng qua phương pháp nghiên cứu chủ yếu phương pháp thu thập tài liệu, phương pháp thống kê, phương pháp so sánh, phương pháp đồ, phương pháp ứng dụng Gis; đề tài đạt số kết ban đầu: _ Một số chức phần mềm Arcview Gis 3.3 _ Xây dựng đồ đơn giá đất cơng cụ tìm kiếm cập nhật thơng tin đất đai phục vụ công tác thu tiền sử dụng đất xã An Bình- huyện Dĩ An- tỉnh Bình Dương MỤC LỤC Trang PHẦN MỞ ĐẦU PHẦN TỔNG QUAN I.1 Cơ sở lý luận vấn đề nghiên cứu I.1.1 Cơ sở khoa học A- Các khái niệm B- Công nghệ GIS 10 C- Giới thiệu phần mềm Arcview ngơn ngữ lập trình Avenue 17 1) Yêu cầu cài đặt 17 2) Nội dung cài đặt 17 3) Chức 18 4) Ngôn ngữ lập trình Avenue 19 I.1.2 Cơ sở pháp lý 23 I.1.3 Cơ sở thực tiễn 23 I.2 Điều kiện tự nhiên- kinh tế xã hội địa bàn nghiên cứu 24 I.2.1.Điều kiện tự nhiên 24 1) Vị trí địa lý 25 2) Địa hình 25 3) Khí hậu 25 4) Địa chất 25 I.2.2 Tình hình kinh tế- xã hội 25 1) Thực trạng phát triển kinh tế 25 2) Thực trạng phát triển văn hóa- xã hội 26 a) Dân số 26 b) Giáo dục- đào tạo 27 c) Y tế 27 d) Thực trạng phát triển sở hạ tầng 27 I.2.3 Hiện trạng sử dụng đất xã An Bình 28 I.2.4.Thuận lợi khó khăn 28 I.3 Nội dung – Phương pháp nghiên cứu 29 I.3.1 Nội dung nghiên cứu 29 I.3.2 Phương pháp phương tiện nghiên cứu 29 I.3.3 Quy trình thực 29 PHẦN KẾT QUẢ NGHIÊN CỨU 30 II.1 Thực trạng công tác thu tiền sử dụng đất xã An Bình 30 II.2 Ứng dụng Arcview Gis xây dựng đồ đơn giá đất cơng cụ tìm kiếm, cập nhật thông tin đất đai phục vụ công tác thu tiền sử dụng đất 32 II.2.1 Đánh giá nguồn liệu 32  Dữ liệu đồ 32  Dũ liệu thuộc tính 32  Hạn chế 32 II.2.2 Chuẩn hóa chuyển đổi liệu 32 II.2.3 Thiết kế cấu trúc sở liệu 33 1) Xây dựng sở liệu 33 2) Trình bày đồ 41 II.2.4 Xây dựng công cụ tìm kiếm, cập nhật thơng tin đất đai phục vụ công tác thu tiền sử dụng đất 44 1) Tạo ứng dụng tùy biến 44 2) Lập trình giao diện 46 3) Tìm kiếm thơng tin 48 4) Cập nhật thông tin 51 5) Chạy thử nghiệm hệ thống 57 II.3 Đánh giá kết ứng dụng Arcview Gis xây dựng đồ đơn giá đất cơng cụ tìm kiếm, cập nhật thơng tin đất đai phục vụ công tác thu tiền sử dụng đất 61 Thuận lợi 61 Khó khăn 61 KẾT LUẬN VÀ KIẾN NGHỊ 63 TÀI LIỆU THAM KHẢO 65 DANH SÁCH CÁC HÌNH – BẢNG - SƠ ĐỒ- BIỂU ĐỒ DANH SÁCH CÁC SƠ ĐỒ Sơ đồ I.1 : Sơ đồ tổng quát hệ sở liệu Sơ đồ I.2 : Các mức khái niệm Sơ đồ I.3 : Sơ đồ vị trí xã An Bình 23 Sơ đồ I.4 : Quy trình thực 29 Sơ đồ II.1 : Các bước tiến hành tạo lớp thông tin 33 DANH SÁCH CÁC BIỂU ĐỒ Biểu đồ I.1 : Cơ cấu trạng sử dụng đất năm 2010 27 DANH SÁCH CÁC BẢNG BIỂU Bảng I.1: So sánh phương pháp GIS phương pháp thủ công 13 Bảng I.2 Thể động từ bắt đầu yêu cầu Avenue 19 Bảng I.3 Các công cụ điều khiển Dialog 20 Bảng I.4 Thống kê diện tích đất năm 2010 24 Bảng II.1 : Thống kê tình hình cấp GCNQSDĐ 30 Bảng II.2Thống kê tình hình chuyển mục đích sử dụng đất năm 2009 đến 31 Bảng II.3 Cấu trúc liệu thuộc tính đất theo HSĐC 36 Bảng II.4 Bảng đơn giá loại đất năm 2010 địa bàn xã 38 Bảng II.5 Cấu trúc liệu thuộc tính đất liên quan đến tiền sử dụng đất 39 Bảng II.6 Cấu trúc liệu lớp giao thông 40 Bảng II.7 Vị trí tính thuế đất xã An Bình- huyện Dĩ An- tỉnh Bình Dương 42 Bảng II.8 Các menu ứng dụng hổ trợ thông tin đất đai 47 Bảng II.9 Cơng cụ tìm kiếm thông tin 49 Bảng II.10 Các thuộc tính hộp thoại tìm thơng tin theo hồ sơ địa 50 Bảng II.11 Các Script điều khiển hộp thoại tìm thơng tin theo số thửa, số tờ đồ 50 Bảng II.12 Các thuộc tính hộp thoại hiển thị thơng tin đất 51 Bảng II.13 Công cụ cập nhật thông tin 53 Bảng II.14 Mô tả thuộc tính hộp thoại cập nhật thơng tin 54 Bảng II.15 Các Script điều khiển hộp thoại cập nhật thông tin theo HSĐC……56 DANH SÁCH CÁC HÌNH Hình I.1: Các thành phần hệ thống thông tin địa lý 11 Hình I.2:Một số lĩnh vực hoạt động GIS 16 Hình I.3: Giao diện Script Avenue 16 Hình I.4 Giao diện Dialog Avenue 20 Hình II.1:Lớp đất 35 Hình II.2:Lớp giao thơng 35 Hình II.3:Thơng tin thuộc tính lớp đất theo HSĐC 37 Hình II.4:Thơng tin thuộc tính lớp đấtcó liên quan đến tiền sử dụng đất 40 Hình II.5:Thơng tin thuộc tính lớp giao thông 41 Hình II.6:Cửa sổ trình bày đồ 41 Hình II.7:Vị trí đất xã An Bình- huyện Dĩ An- tihnr Bình Dương 43 Hình II.8:Giá đất xã An Bình- huyện Dĩ An- tỉnh Bình Dương 44 Hình II.9:Hộp thoại chỉnh sửa 45 Hình II.10:Đổi tên menu 46 Hình II.11:Gán Sript cho menu 46 Hình II.12:Cách làm việc Dialog 48 Hình II.13:Tạo Dialog Editor 48 Hình II.14: Hộp thoại tìm thơng tin theo hồ sơ địa 50 Hình II.15: Hộp thoại hiển thị thơng tin theo hồ sơ địa 52 Hình II.16: Hộp thoại tìm thơng tin theovị trí, đơn giá tiền sử dụng đất 52 Hình II.17: Hộp thoại hiển thị thơng tin tiền sử dụng đất 53 Hình II.18 : Hộp thoại tìm thơng tin cập nhật theo HSĐC 54 Hình II.19 : Hộp thoại cập nhật thông tin theo HSĐC 56 Hình II.20 : Hộp thoại tìm thơng tin cập nhật liên quan đến tiền sử dụng đất 57 Hình II.21 : Hộp thoại cập nhật thông tin liên quan đến tiền sử dụng đất 57 Hình II.22 :Giao diện chức File hệ thống 58 Hình II.23 :Tìm kiếm thơng tin đất theo HSĐC 59 Hình II.24 : Hiển thị thông tin đất theo HSĐC 59 Hình II.25 :Tìm hiển thị thơng tin đất có liên quan đến tiền sử dụng đất 60 Hình II.26 :Thơng báo kết tìm kiếm 60 Hình II.27 :Hiển thị cập nhật thông tin theo HSĐC 61 Hình II.28 :Hộp thoại cập nhật thơng tin theo HSĐC 61 Hình II.29 :Kết cập nhật thơng tin đất 62 Hình II.30 :Hiển thị cập nhật thơng tin có liên quan đến tiền sử dụng đất 62 Hình II.31 :Cập nhật thơng tin có liên quan đến tiền sử dụng đất 63 Hình II.32 : Kết cập nhật thông tin đất 63 DANH SÁCH CHỮ VIẾT TẮT GCNQSDĐ : Giấy chứng nhận quyền sử dụng đất GIS : Hệ thống thông tin địa lý HSĐC : Hồ sơ địa CSDL : Cơ sở liệu GTNT : Giao thông nông thôn TSDĐ : Tiền sử dụng đất UBND : Ủy ban nhân dân KCN : Khu cơng nghiệp Ngành Cơng Nghệ Địa Chính SVTH Lê Võ Như Ngọc PHẦN MỞ ĐẦU I - Đặt vấn đề Đất đai tài nguyên thiên nhiên vơ q giá, dạng tư liệu sản xuất đặc biệt, đất đai có ý nghĩa quan trọng hàng đầu đời sống kinh tế, trị - xã hội an ninh quốc phòng quốc gia Mác khái quát vai trò kinh tế đất đai “Đất Mẹ, sức lao động Cha, sản sinh cải, vật chất” Ngày nay, đất đai đóng vai trò quan trọng phát triển kinh tế quốc dân mà dân số ngày tăng, nhu cầu sử dụng đất ngày lớn quỹ đất bị giới hạn diện tích cố định vị trí Vì vậy, công tác quản lý đất đai phải đảm bảo việc sử dụng hợp lý, tiết kiệm hiệu vốn đất Nhà nước, bên cạnh đó, việc thu tiền sử dụng đất công tác thiếu quản lý tài đất đai Nhà nước để đảm bảo việc công sử dụng đất Căn tính thu tiền sử dụng đất diện tích đất, giá đất thời hạn sử dụng đất cấp giấy chứng nhận quyền sử dụng đất Tuy nhiên cơng tác tính thu tiền sử dụng đất thực năm vừa qua hoàn toàn theo phương pháp truyền thống, việc tính tốn, tra cứu tính tiền sử dụng đất cho hộ gia đình tổ chức thường nhiều thời gian Hiện việc áp dụng khoa học công nghệ công tác quản lý đất đai ngày phổ biến, thiết thực hiệu quả, ứng dụng kỹ thuật hệ thống thông tin địa lý ( GIS - Geography Information System) GIS công cụ mạnh, đáng tin cậy không giúp nhà quản lý lưu trữ hệ thống hố thơng tin cần thiết liệu khơng gian máy tính mà thường xun bổ sung, cập nhật, tra cứu liệu thuộc tính cách dễ dàng Huyện Dĩ An huyện có tốc độ tăng trưởng kinh tế dẫn đầu tỉnh Bình Dương, xã An Bình nơi có nhu cầu sử dụng đất phức tạp , đặc biệt công tác thu tiền sử dụng đất gặp nhiều khó khăn Trước thực tiễn này, đồng ý khoa QLDD & BĐS trường Đại Học Nơng Lâm thành phố Hồ Chí Minh Phòng Tài Ngun Mơi Trường huyện Dĩ An, tiến hành thực đề tài: “Xây dựng sở liệu đất đai phục vụ công tác thu tiền sử dụng đất xã An Bình - huyện Dĩ An - tỉnh Bình Dương” II - Mục tiêu nghiên cứu Ứng dụng phần mềm Arcview xây dựng sở liệu đất đai cơng cụ tìm kiếm, cập nhật thông tin đất đai đầy đủ, khoa học, phù hợp với yêu cầu phục vụ công tác thu tiền sử dụng đất III - Đối tượng phạm vi nghiên cứu Đối tượng nghiên cứu - Cơ sở liệu đất đai phục vụ công tác thu tiền sử dụng đất - Bảng giá đất năm 2010 địa bàn tỉnh Bình Dương - Hệ thống phần mềm liên quan : ArcView GIS 3.3 ; Mapinfo 7.5; MicroStation SE Phạm vi nghiên cứu Đề tài thực sở liệu đất đai xã An Bình, huyện Dĩ An, tỉnh Bình Dương phần mềm Arcview GIS -1- Ngành Cơng Nghệ Địa Chính SVTH Lê Võ Như Ngọc IV - Ý nghĩa việc nghiên cứu - Cung cấp thông tin giá tiền sử dụng đất đến người dân Xã An Bình - Góp phần làm sở giúp cho công tác thu tiền sử dụng đất thuận lợi cập nhật bổ sung kịp thời có thay đổi -2- Ngành Cơng Nghệ Địa Chính SVTH Lê Võ Như Ngọc 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 A – Các khái niệm  Giá quyền sử dụng đất (giá đất) Giá quyền sử dụng đất (giá đất) số tiền tính đơn vị diện tích đất Nhà nước quy định hình thành giao dịch quyền sử dụng đất Giá đất hình thành trường hợp sau (Điều 55/ Luật Đất Đai 2003) Do Ủy ban nhân dân tỉnh, thành phố trực thuộc Trung ương quy định giá theo quy định khoản khoản điều 56 Luật đất đai 2003; Do đấu giá quyền sử dụng đất đấu thầu dự án có sử dụng đất; Do người sử dụng đất thỏa thuận giá đất với người có liên quan thực quyền chuyển nhượng, cho thuê, cho thuê lại quyền sử dụng đất; góp vốn quyền sử dụng đất Giá đất Nhà nước quy định (Điều 56/ Luật Đất Đai 2003) Việc định giá đất Nhà nước phải đảm bảo nguyên tắc sau đây: a) Sát với giá chuyển nhượng quyền sử dụng đất thực tế thị trường điều kiện bình thường; có chênh lệch lớn so với giá chuyển nhượng quyền sử dụng đất thực tế thị trường phải điều chỉnh cho phù hợp; b) Các đất liền kề nhau, có điều kiện tự nhiên, kinh tế, xã hội, kết cấu hạ tầng nhau, có mục đích sử dụng tại, mục đích sử dụng theo quy hoạch mức nhau; c) Đất khu vực giáp ranh tỉnh, thành phố trực thuộc trung ương, có điều kiện tự nhiên, kết cấu hạ tầng nhau, có mục đích sử dụng , mục đích sử dụng theo quy hoạch mức Chính phủ quy định phương pháp xác định gía đất; khung giá loại đất cho vùng, theo thời gian; trường hợp phải điều chỉnh giá đất việc xử lý chênh lệch giá đất liền kề tỉnh, thành phố trực thuộc trung ương Căn vào nguyên tắc định giá đất quy định khoản điều 56 Luật đất đai, phương pháp xác định giá đất khung giá loại đất Chính phủ quy định, Ủy ban nhân dân tỉnh, thành phố trực thuộc trung ương xây dựng giá đất cụ thể địa phương trình Hội đồng nhân dân cấp cho ý kiến trước quy định Giá đất Ủy ban nhân tỉnh, thành phố trực thuộc trung ương quy định công bố công khai vào ngày 01 tháng 01 hàng năm sử dụng làm để tính thuế sử dụng đất, thuế thu nhập từ chuyển quyền sử dụng đất; tính tiền sử dụng đất tiền thuê đất giao đất, cho thuê đất không thông qua đấu giá sử dụng đất đấu thầu dự án có sử dụng đất; tính giá trị quyền sử dụng đất giao đất không thu tiền sử dụng đất, lệ phí trước bạ, bồi thường Nhà nước thu hồi đất; tính tiền bồi thường người có hành vi vi phạm pháp luật đất đai mà gây thiệt hại cho Nhà nước -3- Ngành Cơng Nghệ Địa Chính SVTH Lê Võ Như Ngọc  Cập nhật thơng tin theo vị trí, đơn giá tiền sử dụng đất Tương tự, ta cập nhật thơng tin vị trí, đơn giá tiền sử dụng đất cho đất có số hiệu đồ 8ab6 số hiệu 2230 hình sau: Hình II.30: Hiển thị cập nhật thơng tin liên quan dến tiền SDĐ Hình II.31 Hộp thoại cập nhật thông tin liên quan đến tiền SDĐ - 62 - Ngành Cơng Nghệ Địa Chính SVTH Lê Võ Như Ngọc Trước cập nhật Sau cập nhật Hình II.32 Kết cập nhật thơng tin đất liên quan đến tiền SDĐ  Cả chức File hệ thống, Tìm kiếm thơng tin, Cập nhật thông tin xây dựng với mục nhằm hỗ trợ cho công tác quản lý, tra cứu thông tin tiền sử dụng đất dễ dàng, hiệu quả, dễ sử dụng cho tất người sử dụng II.3 – Đánh giá kết ứng dụng Arcview xây dựng đồ đơn giá đất cơng cụ tìm kiếm cập nhật thông tin đất đai phục vụ công tác thu tiền sử dụng đất  Thuận lợi Việc sử dụng phần mềm ArcView xây dựng sở liệu đất đai phục vụ công tác thu tiền sử dụng đất thuận lợi ArcView có khả đọc liệu đồ họa từ phần mềm khác Mapinfo, AutoCad, Microstation… Ngồi ra, ArcView hỗ trợ đầy đủ chức hệ thống GIS: thu thập liệu, lưu trữ liệu, phân tích liệu, hiển thị/kết xuất liệu Những chức hỗ trợ thông qua hệ thống Menu, Buttons (nút lệnh), Tools (nút công cụ) Điểm hay ArcView GIS có khả mở rộng chức thông qua Extensions Giao diện dễ sử dụng có khả xây dựng đồ chuyên đề hỗ trợ tốt việc tìm kiếm thơng tin Hệ thống Menu, Buttons (nút lệnh), Tools (nút công cụ) giúp người sử dụng thực thao tác trực tiếp cách dễ dàng nhanh chóng Bên cạnh đó, bảng thuộc tính quản lý ArcView 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ữ chuyên dụng Avenue Với Avenue, người dùng thực dự án GIS vừa nhỏ với giao diện Tiếng Việt  Khó khăn Nguồn liệu khơng gian Xã An Bình phòng Tài Ngun Môi Trường Huyện Dĩ An cung cấp chủ yếu lưu trữ dạng Microstation có *.dgn Khi thực việc nghiên cứu phải chuyển đổi khuôn dạng liệu mà ArcView hỗ - 63 - Ngành Công Nghệ Địa Chính SVTH Lê Võ Như Ngọc trợ cho phép chỉnh sửa trực tiếp (shapefile) để dễ dàng chỉnh sửa, truy vấn lưu trữ… Mất nhiều thời gian cho việc nhập liệu tính Nguồn liệu thuộc tính chưa đầy đủ - 64 - Ngành Cơng Nghệ Địa Chính SVTH Lê Võ Như Ngọc PHẦN IV : KẾT LUẬN VÀ KIẾN NGHỊ Kết luận Công nghệ GIS ngày sử dụng rộng rãi lĩnh vực Thế mạnh GIS khả sử dụng liệu không gian phi không gian từ nguồn khác thực phân tích khơng gian cơng việc lập định hay nghiên cứu cụ thể Các phần mềm GIS cho phép tạo, phân tích, vẽ đồ, quản lý, chia sẻ công bố thông tin địa lý, cho phép phát triển ứng dụng riêng theo ý người sử dụng ArcView GIS phần mềm GIS dễ học, dễ sử dụng, xây dựng ứng dụng Avenue - ngôn ngữ lập trình đơn giản hiệu Việc xây dựng sở liệu đất đai phục vụ công tác thu tiền sử dụng đất công tác quản lý tài đất đai Nhà nước phù hợp với nhu cầu hoàn cảnh địa phương việc cần thiết thiết thực Vì phương pháp quản lý hồ sơ địa thông tin liên quan đến đất đai địa phương chủ yếu quản lý giấy nên chưa thể đáp ứng tốt cho nhu cầu với khối lượng thơng tin khổng lồ ngành địa Ứng dụng Arcview Gis 3.3 xây dựng đồ chuyên đề cần thiết thời đại công nghệ số nay, thuận lợi cho việc lưu trữ, truy vấn, cập nhật hiển thị thông tin chuyên đề thể đồ Bên cạnh đó, cơng cụ tìm kiếm cập nhật thơng tin đất đai liên quan đến tiền sử dụng đất xây dựng phần mềm Arcview GIS 3.3 sử dụng ngơn ngữ lập trình Avenue nhằm giúp cơng tác quản lý thông tin đất đai tốt hơn, giúp người sử dụng truy xuất thơng tin cách dễ dàng, nhanh chóng xác Kết đề tài xây dựng sở liệu đất đai phục vụ công tác thu tiền sử dụng đất sau:  Xây dựng sở liệu không gian thuộc tính phục vụ cho cơng tác thu tiền sử dụng đất Đây nguồn liệu quan trọng giúp địa phương tiến hành tin học hóa quản lý thơng tin đất đai nói chung thơng tin đất đai liên quan đến tiền sử dụng đất nói riêng  Xây dựng cơng cụ tìm kiếm, cập nhật thơng tin đất đai, giải việc thu tiền sử dụng đất đồng thời cung cấp thông tin trực quan, nhanh chóng khơng tốn nhiều thời gian cập nhật kịp thời thông tin phải điều chỉnh Như vậy, việc xây dựng sở liệu đất đai phục vụ công tác thu tiền sử dụng đất địa phương mang lại nhiều hiệu có liên quan đến cơng tác quản lý Nhà nước đất đai Hệ thống sở liệu giúp nhà quản lý định đắn, rút ngắn thời gian giải thủ tục hành chính, có chế độ báo cáo nhanh chóng, kịp thời tình hình cơng tác thu tiền sử dụng đất, đồng thời đáp ứng nhu cầu thông tin cho ngành liên quan người quan tâm Kiến nghị Để đề tài mang tính khả thi hồn thiện hơn, chúng tơi xin kiến nghị số hướng phát triển cho đề tài:  Để sử dụng hệ thống quản lý thông tin đất đai việc quản lý sở liệu cần phải đầu tư máy tính có cầu hình đủ mạnh Đào tạo đội ngũ cán có am hiểu - 65 - Ngành Công Nghệ Địa Chính SVTH Lê Võ Như Ngọc ngành địa đồng thời có kiến thức GIS biết sử dụng phần mềm ArcView GIS  Thu thập xây dựng sở liệu không gian thuộc tính hồn chỉnh  Tìm hiểu Web để đưa thơng tin đất đai đến người dân thuận tiện nhiều qua mạng Internet  Ứng dụng công nghệ bảo mật cho trang Web nhằm tăng độ an toàn cho liệu truyền tải, đồng thời ngăn chặn phá hoại từ bên - 66 - Ngành Cơng Nghệ Địa Chính SVTH Lê Võ Như Ngọc TÀI LIỆU THAM KHẢO [1] Bài giảng “Hệ thống thông tin nhà đất – LIS”, Ths Nguyễn Ngọc Thy, Khoa Quản Lý Đất Đai & Bất Động Sản, Đại học Nông Lâm TP.HCM [2] Bài giảng “Hệ thống thông tin địa lý – GIS”, Thầy Võ Thành Hưng, Khoa Quản Lý Đất Đai & Bất Động Sản, Đại học Nông Lâm TP.HCM [3] Bài giảng “Cơ sở liệu” ThS Lê Ngọc Lãm 2006 Trường Đại học Nơng Lâm Thành phố Hồ Chí Minh [4] Báo cáo thuyết minh trạng sử dụng đất năm 2010 Xã An Bình – Huyện Dĩ An – Tỉnh Bình Dương [5] Giáo trình “Hướng dẫn sử dụng Mapinfo Professional Version 7.5” Bùi Hữu Mạnh 2006 Nhà xuất Khoa Học Kỹ Thuật [6] Giáo trình “Hệ thống thơng tin địa lý - Phần mềm ArcView 3.3” TS.Nguyễn Kim Lợi - ThS Trần Thống Nhất 2007 Nhà xuất Nơng Nghiệp [7] Giáo trình “Lập trình Avenue” ThS Lê Đức Trị Trường Đại học Khoa học Tự nhiên - 67 - PHỤ LỤC Tìm thơng tin theo HSĐC dial=av.finddialog("dlgthongtin") if(dialnil)then HThi=dial.FindByName("cbxhienthi") VTri=dial.FindByName("cbxtim") if(HThi.IsSelected)then dial1=av.FindDialog("dlgthongtinthua") if(dial1nil)then theview=av.FindDoc("View1") aTheme=theView.FindTheme("Tiensdd.shp") if (aThemenil)then thetab=aTheme.GetFtab aBitmap=thetab.Getselection shbd=dial.FindByName("txlsoto1") sht=dial.FindByName("txlsothua1") expr="( [Sotobd] = """ + shbd.gettext + """) and ( [Shthua] = " + sht.gettext + ")" thetab.Query(expr,aBitmap,#VTAB_SELTYPE_NEW) thetab.UpdateSelection shbd=thetab.findfield("Sotobd") sht=thetab.findfield("Shthua") mt=thetab.findfield("Mathua") tc=thetab.findfield("Tenchu") dc=thetab.findfield("Diachi") dt=thetab.findfield("Dientich") mld=thetab.findfield("Kh2003") ng=thetab.findfield("Nguongoc") sgcn=thetab.findfield("Sogcnqsdd") sph=thetab.findfield("Sophathanh") ncg=thetab.findfield("Ngaycapgiay") gc=thetab.findfield("Ghichu") shbd1=dial1.findbyname("txtsohieubd") sht1=dial1.findbyname("txtsohieuthua") mth1=dial1.findbyname("txtmathua") csd1=dial1.findbyname("txtchusudung") dc1=dial1.findbyname("txtdiachi") dt1=dial1.findbyname("txtdientich") mld1=dial1.findbyname("txtmaloaidat") ng1=dial1.findbyname("txtnguongoc") sgcn1=dial1.findbyname("txtsogcn") sph1=dial1.findbyname("txtsophathanh") gc1=dial1.findbyname("txtghichu") myview=av.finddoc("view1") thetheme=myview.findtheme("Tiensdd.shp") thetab=thetheme.getftab shbd=thetab.findfield("Sotobd") sht=thetab.findfield("Shthua") mt=thetab.findfield("Mathua") tc=thetab.findfield("Tenchu") dc=thetab.findfield("Diachi") dt=thetab.findfield("Dientich") mld=thetab.findfield("Kh2003") ng=thetab.findfield("Nguongoc") sgcn=thetab.findfield("Sogcnqsdd") sph=thetab.findfield("Sophathanh") ncg=thetab.findfield("Ngaycapgiay") vt=thetab.findfield("Vitri") dg=thetab.findfield("Dongia") tsdd=thetab.findfield("Tiensdd") gc=thetab.findfield("Ghichu") gch=thetab.findfield("Ghichu") theView = av.GetActiveDoc dial1=av.finddialog("dlgcapnhat_thongtin") shbd1=dial1.findbyname("txlshbd") sht1=dial1.findbyname("txlsht") mth1=dial1.findbyname("txlmt") csd1=dial1.findbyname("txlcsd") dc1=dial1.findbyname("txldc") dt1=dial1.findbyname("txldt") mld1=dial1.findbyname("txlmld") ng1=dial1.findbyname("txlng") sgcn1=dial1.findbyname("txlsgcn") sph1=dial1.findbyname("txlsph") ncg1=dial1.findbyname("txlncg") vt1=dial1.findbyname("txlvt") dg1=dial1.findbyname("txldg") tsdd1=dial1.findbyname("txltsdd") gc1=dial1.findbyname("txlgc") gch1=dial1.findbyname("txlgch") shbd2=shbd1.gettext sht2=sht1.gettext mth2=mth1.gettext tc2=csd1.gettext dc2=dc1.gettext dt2=dt1.gettext mld2=mld1.gettext ng2=ng1.gettext sgcn2=sgcn1.gettext sph2=sph1.gettext ncg2=ncg1.gettext vt2=vt1.gettext dg2=dg1.gettext tsdd2=tsdd1.gettext gc2=gc1.gettext gch2=gch1.gettext thetab.seteditable(true) for each rec in thetab.getselection thetab.setvalue(shbd,rec,shbd2) thetab.setvalue(sht,rec,sht2) thetab.setvalue(mt,rec,mth2) thetab.setvalue(tc,rec,tc2) thetab.setvalue(dc,rec,dc2) thetab.setvalue(dt,rec,dt2) thetab.setvalue(mld,rec,mld2) thetab.setvalue(ng,rec,ng2) thetab.setvalue(sgcn,rec,sgcn2) thetab.setvalue(sph,rec,sph2) thetab.setvalue(ncg,rec,ncg2) thetab.setvalue(vt,rec,vt2) thetab.setvalue(dg,rec,dg2) thetab.setvalue(tsdd,rec,tsdd2) thetab.setvalue(gc,rec,gc2) thetab.setvalue(gch,rec,gch2) end thetab.seteditable(false) thetab.refresh for each rec in thetab.getselection sohieubd=thetab.returnvalue(shbd,rec) sohieuthua=thetab.returnvalue(sht,rec) mathua=thetab.returnvalue(mt,rec) chusudung=thetab.returnvalue(tc,rec) diachi=thetab.returnvalue(dc,rec) dientich=thetab.returnvalue(dt,rec) maloaidat=thetab.returnvalue(mld,rec) nguongoc=thetab.returnvalue(ng,rec) sogcn=thetab.returnvalue(sgcn,rec) sophathanh=thetab.returnvalue(sph,rec) ngaycapgiay=thetab.returnvalue(ncg,rec) end dial1=av.finddialog("dlgthongtinthua") shbd1.setlabel(sohieubd) sht1.setlabel(sohieuthua.asstring) mth1.setlabel(mathua) csd1.setlabel(chusudung) dc1.setlabel(diachi) dt1.setlabel(dientich.setformat("dd.d").asstring) mld1.setlabel(maloaidat.asstring) ng1.setlabel(nguongoc) sgcn1.setlabel(sogcn) sph1.setlabel(sophathanh) ncg1.setlabel(ngaycapgiay.setformat("dd/MM/yyyy").asstring) dial1.open else Msgbox.info("Khong tim thay theme","Thong bao") end else msgbox.info("Khong Tim Thay dialog","thong bao") end end if(Vtri.IsSelected)then theview=av.FindDoc("View1") aTheme=theView.FindTheme("Tiensdd.shp") if (aThemenil)then thetab=aTheme.GetFtab aBitmap=thetab.Getselection shbd=dial.FindByName("txlsoto1") sht=dial.FindByName("txlsothua1") expr="( [Sotobd] = """ + shbd.gettext + """) and ( [Shthua] = " + sht.gettext + ")" thetab.Query(expr,aBitmap,#VTAB_SELTYPE_NEW) thetab.UpdateSelection r = Rect.MakeEmpty for each t in theView.GetActiveThemes if (t.CanSelect) then r = r.UnionWith(t.GetSelectedExtent) ' r = r.UnionWith(t.GetSelectedExtent) end 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 else msgbox.info("Khong tim thay theme","Thong bao") end 'else 'msgbox.info("Khong Tim Thay Vi Tri Thua Dat","Thong Bao") end end Tìm thơng tin liên quan đến tiền sử dụng đất mydial=av.finddialog("dlgtimthongtintsdd") if(mydialnil)then HThi=mydial.FindByName("cbxht") VTri=mydial.FindByName("cbxvt") sohbd=mydial.FindByName("txlsohieubd") soht=mydial.FindByName("txlshthua") if(HThi.IsSelected)then dial2=av.FindDialog("dlgthongtintssd") if(dial2nil)then theview=av.FindDoc("View1") aTheme=theView.FindTheme("Tiensdd.shp") if (aThemenil)then thetab=aTheme.GetFtab aBitmap=thetab.Getselection sohbd=mydial.FindByName("txlsohieubd") soht=mydial.FindByName("txlshthua") expr="( [Sotobd] = """ + sohbd.gettext + """) and ( [Shthua] = " + soht.gettext + ")" 'msgbox.info(expr,"a") thetab.Query(expr,aBitmap,#VTAB_SELTYPE_NEW) thetab.UpdateSelection shbd=thetab.findfield("Sotobd") sht=thetab.findfield("Shthua") mt=thetab.findfield("Mathua") dt=thetab.findfield("Dientich") vt=thetab.findfield("Vitri") dg=thetab.findfield("Dongia") tsdd=thetab.findfield("Tiensdd") ttb=thetab.findfield("Thuetruocba") gc=thetab.findfield("Ghichu") shbd1=dial2.findbyname("txtshbd") sht1=dial2.findbyname("txtsht") mt1=dial2.findbyname("txtmt") dt1=dial2.findbyname("txtdt") vt1=dial2.findbyname("txtvt") dg1=dial2.findbyname("txtdg") tsdd1=dial2.findbyname("txttsdd") ttb1=dial2.findbyname("txtttb") gc1=dial2.findbyname("txtgc") for each rec in thetab.getselection shbd2=thetab.returnvalue(shbd,rec) sht2=thetab.returnvalue(sht,rec) mt2=thetab.returnvalue(mt,rec) dt2=thetab.returnvalue(dt,rec) vt2=thetab.returnvalue(vt,rec) dg2=thetab.returnvalue(dg,rec) tsdd2=thetab.returnvalue(tsdd,rec) ttb2=thetab.returnvalue(ttb,rec) gc2=thetab.returnvalue(gc,rec) end dial2=av.finddialog("dlgthongtintssd") shbd1.setlabel(shbd2) sht1.setlabel(sht2.asstring) mt1.setlabel(mt2) dt1.setlabel(dt2.asstring) vt1.setlabel(vt2) dg1.setlabel(dg2.asstring) tsdd1.setlabel(tsdd2.asstring) ttb1.setlabel(ttb2.asstring) gc1.setlabel(gc2) dial2.open else Msgbox.info("Khong tim thay theme","Thong bao") end else msgbox.info("Khong Tim Thay dialog","thong bao") end end if(Vtri.IsSelected)then theview=av.FindDoc("View1") aTheme=theView.FindTheme("Tiensdd.shp") if (aThemenil)then thetab=aTheme.GetFtab aBitmap=thetab.Getselection sohbd=mydial.FindByName("txlsohieubd") soht=mydial.FindByName("txlshthua") expr="( [Sotobd] = """ + sohbd.gettext + """) and ( [Shthua] = " + soht.gettext + ")" thetab.Query(expr,aBitmap,#VTAB_SELTYPE_NEW) thetab.UpdateSelection r = Rect.MakeEmpty for each t in theView.GetActiveThemes if (t.CanSelect) then r = r.UnionWith(t.GetSelectedExtent) end 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 else msgbox.info("Khong tim thay theme","Thong bao") end 'else 'msgbox.info("Khong Tim Thay Vi Tri Thua Dat","Thong Bao") end else msgbox.info("Khong Tim Thay csdl","Thong Bao") end Cập nhật thông tin theo HSĐC theView = av.GetActiveDoc listactivethemes=theview.getactivethemes therect=theview.returnuserrect thetheme=theview.findtheme("thua.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("dlgcapnhat") theftab=thetheme.getftab sotofield=theftab.findfield("soto") sothuafield=theftab.findfield("sothua") dientichfield=theftab.findfield("dientich") tencsdfield=theftab.findfield("tenchusohu") sonhafield=theftab.findfield("sonha") duongfield=theftab.findfield("tenconduon") phuongfield=theftab.findfield("phuong") quanfield=theftab.findfield("quan") nguongocfield=theftab.findfield("nguon goc") loaidatfield=theftab.findfield("loai_dat") idthuafield = theftab.findfield ("idthua") for each rec in theftab.getselection soto=theftab.returnvalue(sotofield,rec) sothua=theftab.returnvalue(sothuafield,rec) dientich=theftab.returnvalue(dientichfield,rec) tencsd=theftab.returnvalue(tencsdfield,rec) sonha=theftab.returnvalue(sonhafield,rec) duong=theftab.returnvalue(duongfield,rec) phuong=theftab.returnvalue(phuongfield,rec) quan=theftab.returnvalue(quanfield,rec) nguongoc=theftab.returnvalue(nguongocfield,rec) loaidat=theftab.returnvalue(loaidatfield,rec) _thuaid = theftab.returnValue(idthuafield,rec) 'bien toan cuc end txtsoto=thedlg.findbyname("txtsoto") txtsoto.settext(soto) txtsothua=thedlg.findbyname("txtsothua") txtsothua.settext(sothua) txtdientich=thedlg.findbyname("txtdientich") txtdientich.settext(dientich.asstring) txttencsd=thedlg.findbyname("txttencsd") txttencsd.settext(tencsd) txtsonha=thedlg.findbyname("txtsonha") txtsonha.settext(sonha) txtduong=thedlg.findbyname("txtduong") txtduong.settext(duong) txtphuong=thedlg.findbyname("txtphuong") txtphuong.settext(phuong) txtquan=thedlg.findbyname("txtquan") txtquan.settext(quan) txtnguongoc=thedlg.findbyname("txtnguongoc") txtnguongoc.settext(nguongoc) txtloaidat=thedlg.findbyname("txtloaidat") txtloaidat.settext(loaidat) thedlg.open Cập nhật thông tin liên quan đến tiền sử dụng đất dial=av.finddialog("Dialog1") if(dialnil)then HThi=dial.FindByName("cbxhienthi") VTri=dial.FindByName("cbxvitri") if(HThi.IsSelected)then dial1=av.FindDialog("dlgcapnhatthongtintien") if(dial1nil)then theview=av.FindDoc("View1") aTheme=theView.FindTheme("Tiensdd.shp") if (aThemenil)then thetab=aTheme.GetFtab aBitmap=thetab.Getselection sohbd=dial.FindByName("txlsotobd") soht=dial.FindByName("txlshthua") expr="( [Sotobd] = """ + sohbd.gettext + """) and ( [Shthua] = " + soht.gettext + ")" 'msgbox.info(expr,"a") thetab.Query(expr,aBitmap,#VTAB_SELTYPE_NEW) thetab.UpdateSelection shbd=thetab.findfield("Sotobd") sht=thetab.findfield("Shthua") mt=thetab.findfield("Mathua") vt=thetab.findfield("Vitri") dg=thetab.findfield("Dongia") tsdd=thetab.findfield("Tiensdd") ttb=thetab.findfield("Thuetruocba") gc=thetab.findfield("Ghichu") shbd1=dial1.findbyname("txlshbd") sht1=dial1.findbyname("txlsht") mth1=dial1.findbyname("txlmt") vt1=dial1.findbyname("txlvt") dg1=dial1.findbyname("txldg") tsdd1=dial1.findbyname("txltsdd") ttb1=dial1.findbyname("txlttb") gc1=dial1.findbyname("txlgc") for each rec in thetab.getselection sohieubd=thetab.returnvalue(shbd,rec) sohieuthua=thetab.returnvalue(sht,rec) mathua=thetab.returnvalue(mt,rec) vitri=thetab.returnvalue(vt,rec) dongia=thetab.returnvalue(dg,rec) tiensdd=thetab.returnvalue(tsdd,rec) thuetb=thetab.returnvalue(ttb,rec) ghichu=thetab.returnvalue(gc,rec) end dial1=av.finddialog("dlgcapnhatthongtintien") shbd1.settext(sohieubd) sht1.settext(sohieuthua.asstring) mth1.settext(mathua) vt1.settext(vitri) dg1.settext(dongia.asstring) tsdd1.settext(tiensdd.asstring) ttb1.settext(thuetb.asstring) gc1.settext(ghichu) dial1.open else Msgbox.info("Khong tim thay Dialog thongtinthua","Thong bao") end end else msgbox.info("Khong Tim Thay Thong Tin Thua Dat","thong bao") end if(Vtri.IsSelected)then theview=av.FindDoc("View1") aTheme=theView.FindTheme("Tiensdd.shp") if (aThemenil)then thetab=aTheme.GetFtab aBitmap=thetab.Getselection sohbd=dial.FindByName("txlsotobd") soht=dial.FindByName("txlshthua") expr="( [Sotobd] = """ + sohbd.gettext + """) and ( [Shthua] = " + soht.gettext + ")" thetab.Query(expr,aBitmap,#VTAB_SELTYPE_NEW) thetab.UpdateSelection r = Rect.MakeEmpty for each t in theView.GetActiveThemes if (t.CanSelect) then r = r.UnionWith(t.GetSelectedExtent) end 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 else msgbox.info("Khong tim thay theme","Thong bao") end else msgbox.info("Khong Tim Thay Vi Tri Thua Dat","Thong Bao") end end ... khơng gian sử dụng mơ hình quan hệ Topology dạng Shapefile, định dạng liệu ArcView Khi tạo liệu không gian ArcView, liệu lưu dạng Shapefile, có phần mở rộng *.shp Ngồi ArcView cho phép kết nối... : Hộp thoại cập nhật thông tin liên quan đến tiền sử dụng đất 57 Hình II.22 :Giao diện chức File hệ thống 58 Hình II.23 :Tìm kiếm thơng tin đất theo HSĐC 59 Hình II.24 : Hiển thị... chất” Ngày nay, đất đai đóng vai trò quan trọng phát triển kinh tế quốc dân mà dân số ngày tăng, nhu cầu sử dụng đất ngày lớn quỹ đất bị giới hạn diện tích cố định vị trí Vì vậy, cơng tác quản