XÂY DỰNG HỆ THỐNG THÔNG TIN QUẢN LÝ ĐƯỜNG PHỐ, SỐ NHÀ PHƯỜNG THẮNG TAM, THÀNH PHỐ VŨNG TÀU, TỈNH BÀ RỊA VŨNG TÀU

XÂY DỰNG HỆ THỐNG THÔNG TIN QUẢN LÝ ĐƯỜNG PHỐ, SỐ NHÀ PHƯỜNG THẮNG TAM, THÀNH PHỐ VŨNG TÀU, TỈNH BÀ RỊA VŨNG TÀU

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 HỆ THỐNG THÔNG TIN QUẢN LÝ ĐƯỜNG PHỐ, SỐ NHÀ PHƯỜNG THẮNG TAM, THÀNH PHỐ VŨNG TÀU, TỈNH BÀ RỊA-VŨNG TÀU SVTH MSSV LỚP KHÓA NGÀNH : : : : : NGUYỄN ANH QUÝ 07151022 DH07DC 2007 – 2011 CƠNG NGHỆ ĐỊA CHÍNH -TP.Hồ Chí Minh, tháng năm 2011- 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Ộ MƠN CƠNG NGHỆ ĐỊA CHÍNH NGUYỄN ANH Q ĐỀ TÀI : XÂY DỰNG HỆ THỐNG THÔNG TIN QUẢN LÝ ĐƯỜNG PHỐ, SỐ NHÀ PHƯỜNG THẮNG TAM, THÀNH PHỐ VŨNG TÀU, TỈNH BÀ RỊA-VŨNG TÀU Giáo viên hướng dẫn: Th.S NGUYỄN NGỌC THY (Địa 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 2011- LỜI CẢM ƠN Lời xin chân thành gởi lời biết ơn đến ba mẹ, người dày công sinh thành, nuôi dưỡng, dạy dỗ nên người có kết ngày hơm Bên cạnh đó, em xin gửi lời cảm ơn đến q Thầy, Cơ Bộ mơn Cơng nghệ địa chính, thuộc 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ậ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 Đặc biệt với lòng biết ơn sâu sắc, em xin chân thành cám ơn Cô Nguyễn Ngọc Thy tận tình hướng dẫn, giúp đỡ bảo tận tình em suốt trình thực luận văn tốt nghiệp Em xin gửi lời cám ơn chân thành đến UBND Phường Thắng Tam anh Võ Văn Phúc, cán địa Phường Thắng Tam, TP.Vũng Tàu nhiệt tình giúp đỡ, tạo điều kiện thuận lợi cho em suốt thời gian thực tập quan thực đề tài Tôi xin cảm ơn bạn sinh viên lớp Cơng Nghệ Địa Chính khóa 33 độ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 tránh khỏi sai sót Rất mong nhận đóng góp ý kiến q thầy bạn Chân thành cám ơn! Tháng 8/2011 Sinh viên Nguyễn Anh Quý TÓM TẮT Sinh viên thực hiện: Nguyễn Anh Quý, 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 HỆ THỐNG THÔNG TIN QUẢN LÝ ĐƯỜNG PHỐ, SỐ NHÀ PHƯỜNG THẮNG TAM, THÀNH PHỐ VŨNG TÀU, TỈNH BÀ RỊA-VŨNG TÀU Giáo viên hướng dẫn: Th.S Nguyễn Ngọc Thy Hệ thống thông tin địa lý (GIS) cơng cụ mạnh, có khả tích hợp thơng tin mật độ cao, cập nhật thông tin dễ dàng, giúp nhà quản lý lưu trữ hệ thống hóa thơng tin cần thiết liệu khơng gian máy tính thường xuyên bổ sung, cập nhật, tra cứu, quản lý… liệu thuộc tính cách dễ dàng Do vậy, ứng dụng công nghệ GIS quản lý thông tin đường phố, số nhà giải pháp hữu hiệu, đóng vai trò quan trọng việc đáp ứng cập nhật thông tin khổng lồ lĩnh vực quản lý đất đai Với trình cơng nghiệp hóa – đại hóa đất nước, hàng loạt đô thị nước ta mọc lên, di dân đô thị ngày lớn nhu cầu nhà ngày tăng, gây khó khăn cho cơng tác quản lý nhà nước đất đai, nhà Chính vậy, việc ứng dụng phát triển phần mềm quản lý thông tin đường phố, số nhà quan trọng, cần thiết tất yếu khách quan nhằm mục đích phục vụ tốt cơng tác quản lí đất đai, nhà ở đô thị, phương pháp điều tra thực địa, phương pháp thu thập nghiên cứu tài liệu, phương pháp đồ, phương pháp phân tích phương pháp ứng dụng công nghệ GIS, nghiên cứu thực nội dung sau:  Phân tích, đánh giá trạng sở liệu có địa bàn Phường Thắng Tam làm sở để xây dựng sở liệu hoàn thiện cho hệ thống thông tin đường phố, số nhà  Xây dựng hệ thống sở liệu với sở liệu khơng gian phi khơng gian (dữ liệu thuộc tính) hệ thống thông tin đường phố, số nhà  Ứng dụng phần mềm Arcview GIS 3.3 sử dụng ngơn ngữ lập trình Avenue xây dựng cơng cụ tiện ích quản lý thông tin nhà đất thông tin đường phố với chức năng: tìm kiếm thơng tin, cập nhật thông tin địa bàn nghiên cứu MỤC LỤC Trang ĐẶT VẤN ĐỀ PHẦN TỔNG QUAN I.1 CƠ SỞ LÍ LUẬN CỦA VẤN ĐỀ NGHIÊN CỨU I.1.1 Cơ sở khoa học I.1.1.1 Khái quát hệ thống thông tin địa lý (GIS) I.1.1.2 Khái quát hệ thống thông tin đất đai (LIS) I.1.1.3 Các phần mềm ứng dụng I.1.2 Cơ sở pháp lý 11 I.1.3 Cơ sở thực tiễn 12 I.2 KHÁI QUÁT ĐỊA BÀN NGHIÊN CỨU 12 I.2.1 Điều kiện tự nhiên 12 I.2.2 Điều kiện kinh tế - xã hội 14 I.2.3 Tình hình quản lý nhà đất địa bàn nghiên cứu 17 I.3 NỘI DUNG - PHƯƠNG PHÁP NGHIÊN CỨU - QUY TRÌNH THỰC HIỆN 17 I.3.1 Nội dung nghiên cứu 17 I.3.2 Phương pháp phương tiện nghiên cứu 18 I.3.3 Quy trình thực đề tài nghiên cứu 19 PHẦN KẾT QUẢ NGHIÊN CỨU 20 II.1 THU THẬP VÀ ĐÁNH GIÁ NGUỒN DỮ LIỆU 20 II.1.1 Đánh giá nguồn liệu không gian 20 II.1.2 Đánh giá nguồn liệu phi không gian (dữ liệu thuộc tính) 20 II.1.3 Các nguồn liệu khác 20 II.1.4 Đánh giá chung 20 II.2 XÂY DỰNG HỆ THỐNG CƠ SỞ DỮ LIỆU 21 II.2.1 Dữ liệu không gian 21 II.2.2 Dữ liệu phi khơng gian (dữ liệu thuộc tính) 27 II.3 THIẾT KẾ - XÂY DỰNG GIAO DIỆN QUẢN LÝ, THỐNG KÊ, CẬP NHẬT THÔNG TIN NHÀ ĐẤT 32 II.3.1 Quản lý thông tin 32 II.3.1.1 Xây dựng hệ thống 32 II.3.1.2 Truy vấn thông tin 36 II.3.2 Thống kê đất đai 44 II.3.3 Cập nhật thông tin 49 II.4 XÂY DỰNG MENU “HỆ THỐNG” 55 II.5 XÂY DỰNG MENU “CƠNG CỤ TIỆN ÍCH” 56 II.6 ĐÁNH GIÁ KHẢ NĂNG SỬ DỤNG CƠ SỞ DỮ LIỆU CỦA HỆ THỐNG 57 II.6.1 Nhận xét chung hệ thống quản lý thông tin nhà đất 57 II.6.2 Ưu điểm, nhược điểm hệ thống quản lý thông tin nhà đất 57 KẾT LUẬN-KIẾN NGHỊ 59 TÀI LIỆU THAM KHẢO 61 PHỤ LỤC DANH SÁCH CÁC CHỮ VIẾT TẮT GIS LIS CSDL : Hệ thống thông tin địa lý : Hệ thống thông tin đất đai : Cơ sở liệu DANH SÁCH CÁC BẢNG BIỂU Bảng 1.1: Thực trạng mức sống Phường Thắng Tam 15 Bảng 1.2: Hiện trạng dân tộc tôn giáo phường Thắng Tam 15 Bảng 1.3: Hiện trạng tuyến giao thơng địa bàn phường Thắng Tam 15 Bảng 1.4: Thống kê trạng giáo dục phường Thắng Tam năm 2010 16 Bảng 1.5: Tình hình cấp GCNQSDĐ địa bàn phường Thắng Tam 17 Bảng 2.1 Cấu trúc liệu lớp Nhà .27 Bảng 2.2 Cấu trúc liệu lớp Thửa đất .29 Bảng 2.3 Cấu trúc liệu lớp Giao thông 31 Bảng 2.4 Cấu trúc liệu lớp Thủy Văn .32 Bảng 2.4 Danh sách Menu Và Item (Menu con) 33 Bảng 2.5 Các công cụ điều khiển Dialog 35 Bảng 2.6 Các Item Menu “Hệ thống” 55 DANH SÁCH CÁC SƠ ĐỒ Sơ đồ 1.1 Các hệ thống thông tin đất đai Sơ đồ 1.2 Thông tin đất đai(LIS) thông tin liên quan đến đất đai(GIS) Sơ đồ 1.3 Quy trình thực đề tài 19 Sơ đồ 2.1 Quy trình xử lý liệu không gian 22 DANH SÁCH CÁC HÌNH VẼ Hình 1.1 Các thành phần GIS Hình 1.2 Một số lĩnh vực ứng dụng GIS Hình 1.3 Giao diện ArcView Hình 1.4 Đặt tên cho Script 11 Hình 1.5 Giao diện Script Avenue 11 Hình 1.6 Sơ đồ vị trí địa lý Phường Thắng Tam 12 Hình 2.1 Chuyển đồ địa sang file (*.tab) .22 Hình 2.2 Bản đồ địa phường Thắng Tam xuất sang Mapinfo 23 Hình 2.3 Chọn đối tượng tạo ranh nhà theo thuộc tính 23 Hình 2.4 Hình ảnh lớp nhà phường Thắng Tam 24 Hình 2.5 Hình ảnh lớp đất phường Thắng Tam 25 Hình 2.6 Hình ảnh lớp giao thơng phường Thắng Tam .25 Hình 2.7 Hình ảnh lớp thủy văn phường Thắng Tam 26 Hình 2.8 Chuyển lớp liệu sang Arcview 26 Hình 2.9 Các lớp liệu sau chuyển sang Arcview 27 Hình 2.10 Tạo trường liệu cho lớp Nhà 28 Hình 2.11 Kích chọn nhập thơng tin thuộc tính cho nhà 28 Hình 2.12 Nhập thơng tin thuộc tính lớp Nhà Mapinfo 29 Hình 2.13 Bảng thơng tin thuộc tính lớp Nhà 29 Hình 2.14 Nhập thơng tin thuộc tính lớp đất Mapinfo 30 Hình 2.15 Bảng thơng tin thuộc tính lớp đất 30 Hình 2.16 Nhập thơng tin thuộc tính lớp Giao thơng Mapinfo .31 Hình 2.17 Bảng thơng tin thuộc tính lớp Giao thơng 31 Hình 2.18 Nhập thơng tin thuộc tính lớp Thủy Văn Mapinfo 32 Hình 2.19 Bảng thơng tin thuộc tính lớp Thủy văn .32 Hình 2.20 Cửa sổ tạo ứng dụng 34 Hình 2.21 Giao diện Dialog tạo .35 Hình 2.22 Truy vấn liệu công cụ Identify 36 Hình 2.23 Truy vấn liệu công cụ Find 36 Hình 2.24 Truy vấn liệu xây dựng biểu thức truy vấn 37 Hình 2.25 Kết truy vấn liệu biểu thức truy vấn .37 Hình 2.26 Giao diện tìm đất theo tên chủ sử dụng .38 Hình 2.27 Hộp thoại nhập tên chủ sử dụng đất 38 Hình 2.28 Kết tìm đất theo tên chủ sử dụng 38 Hình 2.29 Thơng báo bạn chưa nhập tên chủ sử dụng đất .39 Hình 2.30 Giao diện tìm đất theo số tờ, số 39 Hình 2.31 Kết tìm đất theo số tờ, số 39 Hình 2.32 Giao diện tìm nhà theo tên chủ sở hữu 40 Hình 2.33 Hộp thoại nhập tên chủ sở hữu nhà .40 Hình 2.34 Kết tìm nhà theo tên chủ sở hữu 40 Hình 2.35 Giao diện tìm nhà theo số nhà .41 Hình 2.36 Kết tìm nhà theo số nhà 41 Hình 2.37 Giao diện tìm nhà theo địa 42 Hình 2.38 Kết tìm nhà theo địa 42 Hình 2.39 Giao diện tìm nhà theo tên đường .42 Hình 2.40 Kết tìm nhà theo tên đường 43 Hình 2.41 Giao diện tìm đường theo tên đường 43 Hình 2.42 Kết tìm đường theo tên đường 43 Hình 2.43 Giao diện thống kê đất đai theo mã loại đất 44 Hình 2.44 Hộp thoại nhập mã loại đất 44 Hình 2.45 Kết thống kê đất đai theo mã loại đất 45 Hình 2.46 Giao diện thống kê đất đai theo diện tích 45 Hình 2.47 Kết thống kê đất đai theo diện tích .45 Hình 2.48 Giao diện thống kê đất đai theo đối tượng sử dụng 46 Hình 2.49 Kết thống kê đất đai theo đối tượng sử dụng đất 46 Hình 2.50 Giao diện thống kê nhà theo kết cấu 47 Hình 2.51 Kết thống kê nhà theo kết cấu 47 Hình 2.52 Giao diện thống kê nhà theo tên đường .47 Hình 2.53 Kết thống kê nhà theo tên đường 48 Hình 2.54 Giao diện thống kê nhà theo cấp nhà 48 Hình 2.55 Kết thống kê nhà theo cấp nhà 48 Hình 2.56 Giao diện cơng cụ cập nhật thông tin đất, thông tin nhà thông tin đường 49 Hình 2.57 Kết tìm đất cần cập nhật theo tên chủ sử dụng .50 Hình 2.58 Sử dụng cơng cụ “Cập nhật thơng tin đất” kích chọn đất cân thay đổi thông tin 50 Hình 2.59 Kết thơng tin đất trước cập nhật .50 Hình 2.60 Kết thơng tin đất sau cập nhật 51 Hình 2.61 Thơng báo bạn cập nhật thành cơng 51 Hình 2.62 Kết tìm nhà cần cập nhật theo tên chủ sở hữu .52 Hình 2.63 Cơng cụ cập nhật thông tin nhà 52 Hình 2.64 Kết thơng tin nhà trước cập nhật 52 Hình 2.65 Kết thơng tin nhà sau cập nhật 53 Hình 2.66 Kết tìm đường cần cập nhật theo tên đường 54 Hình 2.67 Công cụ cập nhật thông tin đường .54 Hình 2.68 Kết thông tin đường trước cập nhật 54 Hình 2.69 Kết thơng tin đường sau cập nhật 55 Hình 2.70 Giao diện Menu “Hệ thống” Item (Menu con) 56 Hình 2.71 Giao diện Item “Thanh cơng cụ tiện ích” 56 Ngành: Công Nghệ Địa Chính SVTH: Nguyễn Anh Quý ĐẶT VẤN ĐỀ Ngày nay, với phát triển nhanh chóng cơng nghệ thơng tin đời nhiều phần mềm ứng dụng thay cho thao tác thủ công đem lại nhiều hiệu cao Trong lĩnh vực đất đai, khối lượng thơng tin vơ lớn, u cầu cần phải quản lý cung cấp thông tin xác cho nhà quản lý người sử dụng Cơ sở hạ tầng giao thông nhà ngày nhiều biến động bao gồm nâng cấp, mở rộng làm đường, thông tin đăng ký số nhà, hình dạng, vị trí đất,… Nên cần phải đảm bảo xác cao, tìm kiếm nhanh chóng dễ dàng Hệ thống thông tin địa lý (GIS) công cụ mạnh, đáng tin cậy, chứng tỏ khả ưu việt hẵn hệ thống thông tin đồ truyền thống nhờ khả tích hợp thơng tin mật độ cao, cập nhật thông tin dễ dàng khả phân tích, tính tốn nó, không giúp nhà quản lý lưu trữ hệ thống hóa thơng tin cần thiết liệu khơng gian máy tính mà thường xuyên bổ sung, cập nhật, tra cứu, quản lý… liệu thuộc tính cách dễ dàng Do vậy, ứng dụng công nghệ GIS quản lý thông tin đường phố, nhà giải pháp hữu hiệu, đóng vai trò quan trọng việc đáp ứng cập nhật lượng lớn thông tin lĩnh vực quản lý thị Cùng với q trình cơng nghiệp hóa – đại hóa đất nước, tốc độ thị hóa nước ta diễn nhanh thành phố lớn Do đó, việc phát triển sở hạ tầng giao thông nhu cầu nhà lớn Dẫn đến khó khăn cơng tác quản lý đô thị Nhà nước Phường Thắng Tam phường nằm giáp với trung tâm thành phố Vũng Tàu, lại giáp với biển tiềm thương mại du lịch, nơi tập trung nhiều dự án cơng trình lớn khách sạn, khu chung cư, hệ thống giao thơng… Chính việc ứng dụng phát triển phần mềm quản lý thông tin giao thông, nhà quan trọng, nhằm phục vụ tốt công tác quản lý nhà đô thị, sở hạ tầng giao thông Xuất phát từ yêu cầu thực tế cho phép Khoa Quản Lý Đất Đai & Bất Động Sản, thực đề tài : “ Xây dựng hệ thống thông tin quản lý đường phố, số nhà phường Thắng Tam, thành phố Vũng Tàu, tỉnh Bà Rịa – Vũng Tàu” Mục tiêu nghiên cứu: Ứng dụng công nghệ thông tin xây dựng hệ thống thông tin quản lý đường phố, số nhà phường Thắng Tam, thành phố Vũng Tàu – tỉnh Bà Rịa – Vũng Tàu nhằm phục vụ tốt cho công tác quản lý đô thị Đối tượng nghiên cứu: − Thông tin tuyến đường, thông tin địa đất nhà − Phần mềm Mapinfo Arcview GIS 3.3 Phạm vi nghiên cứu: − Cơ sở liệu phường Thắng Tam, thành phố Vũng Tàu − Hệ thống quản lý thông tin đường phố, số nhà phường Thắng Tam, thành phố Vũng Tàu -Trang -  Phụ lục 14: Cập nhật thông tin đất a Viết Tools (nút công cụ) để kết nối với cửa sổ Dialog cập nhật thuộc tính đất: theView = av.GetActiveDoc ListActiveThemes = theView.GetActiveThemes theRect = theView.ReturnUserRect thetheme = theview.Findtheme("thuadat.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("DLG_CAPNHAT_THUADAT") theftab = thetheme.getftab tencsdfield = theftab.findfield("ten_csd") diachifield = theftab.findfield("diachi_csd") dientichfield = theftab.findfield("dien_tich") dtsdfield = theftab.findfield("dtg_sd") maldfield = theftab.findfield("ma_loaidat") sotofield = theftab.findfield("so_tobd") sothuafield = theftab.findfield("so_hthua") idthuafield = theftab.findfield("id_thua") for each rec in theftab.getselection tencsd = theftab.returnvalue(tencsdfield,rec) diachi = theftab.returnvalue(diachifield,rec) dientich = theftab.returnvalue(dientichfield,rec) dtsd = theftab.returnvalue(dtsdfield,rec) mald = theftab.Returnvalue(maldfield,rec) soto = theftab.ReturnValue(sotofield,rec) sothua = theftab.ReturnValue(sothuafield,rec) idthua = theFtab.ReturnValue(idthuafield,rec) end tletencsd = thedlg.findbyname("TLE_CAPNHAT_CSD") tletencsd.settext(tencsd) tlediachi = thedlg.findbyname("TLE_CAPNHAT_DIACHI") tlediachi.settext(diachi) tledientich = thedlg.findbyname("TLE_CAPNHAT_DIENTICH") tledientich.settext(dientich.asstring) tledtsd = thedlg.findbyname("TLE_CAPNHAT_DTSD") tledtsd.settext(dtsd) tlemald = thedlg.findbyname("TLE_CAPNHAT_MALD") tlemald.settext(mald) tlesoto = thedlg.findbyname("TLE_CAPNHAT_SOTO") tlesoto.settext(soto.asstring) tlesothua = thedlg.findbyname("TLE_CAPNHAT_SOTHUA") tlesothua.settext(sothua.asstring) tleidthua = thedlg.FindByName ("TLE_CAPNHAT_IDTHUA") tleidthua.settext(idthua.asstring) thedlg.open b Viết Buttons (nút lệnh) “Cập nhật”: theView = av.GetActiveDoc theTheme = theView.FindTheme("thuadat.shp") theFtab = theTheme.GetFtab thedlg = av.FindDialog("DLG_CAPNHAT_THUADAT") tletencsd = thedlg.findbyname("TLE_CAPNHAT_CSD") tencsd = theftab.findfield("ten_csd") tlediachi = thedlg.findbyname("TLE_CAPNHAT_DIACHI") diachi = theftab.findfield("diachi_csd") tledientich = thedlg.findbyname("TLE_CAPNHAT_DIENTICH") dientich = theftab.findfield("dien_tich") tledtsd = thedlg.findbyname("TLE_CAPNHAT_DTSD") dtsd = theftab.findfield("dtg_sd") tlemald = thedlg.findbyname("TLE_CAPNHAT_MALD") mald = theftab.findfield("ma_loaidat") tlesoto = thedlg.findbyname("TLE_CAPNHAT_SOTO") soto = theftab.findfield("so_tobd") tlesothua = thedlg.findbyname("TLE_CAPNHAT_SOTHUA") sothua = theftab.findfield("so_hthua") tleidthua = thedlg.FindByName ("TLE_CAPNHAT_IDTHUA") idthua = theftab.findfield("id_thua") theftab.seteditable(true) for each rec in theftab.getselection theftab.setvalue(tencsd,rec,tletencsd.gettext) theftab.SetValue(diachi,rec,tlediachi.gettext) theftab.setvalue(dientich,rec,tledientich.gettext) theftab.setvalue(dtsd,rec,tledtsd.gettext) theftab.setvalue(mald,rec,tlemald.gettext) theftab.setvalue(soto,rec,tlesoto.gettext) theftab.setvalue(sothua,rec,tlesothua.gettext) theftab.setvalue(idthua,rec,tleidthua.gettext) end theftab.seteditable(false) theftab.refresh msgbox.info("Ban da cap nhat cong !","thong bao")  Phụ lục 15: Cập nhật thông tin nhà : a Viết Tools (nút công cụ) để kết nối với cửa sổ Dialog cập nhật thuộc tính nhà: theView = av.GetActiveDoc ListactiveThemes = theView.GetActiveThemes theRect = theView.ReturnUserRect theTheme = theview.Findtheme("lop_nha.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("DLG_CAPNHAT_NHA") theftab = thetheme.getftab tencshfield = theftab.findfield("ten_csh") diachicshfield = theftab.findfield("diachi_csh") diachinhafield = theftab.findfield("diachi_nha") sonhafield = theftab.findfield("so_nha") tenduongield = theftab.findfield("ten_duong") dtxdfield = theftab.findfield("xd") ketcaufield = theftab.findfield("ketcau_nha") capnhafield = theftab.findfield("cap_nha") sotangfield = theftab.findfield("so_tang") sotobdfield = theftab.findfield("so_tobd") shthuafield = theftab.findfield("so_hthua") ttrangplyfield = theftab.findfield("ttrang_ply") idnhafield = theftab.findfield("id_nha") for each rec in theftab.getselection tencsh = theftab.returnvalue(tencshfield,rec) diachicsh = theftab.returnvalue(diachicshfield,rec) diachinha = theftab.Returnvalue(diachinhafield,rec) sonha = theftab.returnvalue(sonhafield,rec) tenduong = theftab.returnvalue(tenduongield,rec) dtxd = theftab.ReturnValue(dtxdfield,rec) ketcau = theftab.ReturnValue(ketcaufield,rec) capnha = theftab.ReturnValue(capnhafield,rec) sotang = theftab.ReturnValue(sotangfield,rec) sotobd = theftab.ReturnValue(sotobdfield,rec) shthua = theftab.ReturnValue(shthuafield,rec) ttrangply = theftab.returnvalue(ttrangplyfield,rec) idnha = theFtab.ReturnValue(idnhafield,rec) end tletencsh = thedlg.findbyname("TLE_TENCSH") tletencsh.settext(tencsh) tlediachicsh = thedlg.findbyname("TLE_DIACHICSH") tlediachicsh.settext(diachicsh) tlediachinha = thedlg.findbyname("TLE_DIACHINHA") tlediachinha.settext(diachinha) tlesonha = thedlg.findbyname("TLE_SONHA") tlesonha.settext(sonha.asstring) tletenduong = thedlg.findbyname("TLE_TENDUONG") tletenduong.settext(tenduong) tledtxd = thedlg.findbyname("TLE_DTXD") tledtxd.settext(dtxd.asstring) tleketcau = thedlg.findbyname("TLE_KETCAU") tleketcau.settext(ketcau) tlecapnha = thedlg.findbyname("TLE_CAPNHA") tlecapnha.settext(capnha) tlesotang = thedlg.findbyname("TLE_SOTANG") tlesotang.settext(sotang.asstring) tlesotobd = thedlg.findbyname("TLE_SOTO") tlesotobd.settext(sotobd.asstring) tleshthua = thedlg.findbyname("TLE_SOTHUA") tleshthua.settext(shthua.asstring) tlettrangply = thedlg.findbyname("TLE_TTPL") tlettrangply.settext(ttrangply) tleidnha = thedlg.FindByName ("TLE_IDNHA") tleidnha.settext(idnha.asstring) thedlg.open b Viết Buttons (nút lệnh) “Cập nhật”: theView = av.GetActiveDoc theTheme = theView.FindTheme("lop_nha.shp") theFtab = theTheme.GetFtab thedlg = av.FindDialog("DLG_CAPNHAT_NHA") tletencsh = thedlg.findbyname("TLE_TENCSH") tencsh = theftab.findfield("ten_csh") tlediachicsh = thedlg.findbyname("TLE_DIACHICSH") diachicsh = theftab.findfield("diachi_csh") tlediachinha = thedlg.findbyname("TLE_DIACHINHA") diachinha = theftab.findfield("diachi_nha") tlesonha = thedlg.findbyname("TLE_SONHA") sonha = theftab.findfield("so_nha") tletenduong = thedlg.findbyname("TLE_TENDUONG") tenduong = theftab.findfield("ten_duong") tledtxd = thedlg.findbyname("TLE_DTXD") dtxd = theftab.findfield("xd") tleketcau = thedlg.findbyname("TLE_KETCAU") ketcau = theftab.findfield("ketcau_nha") tlecapnha = thedlg.findbyname("TLE_CAPNHA") capnha = theftab.findfield("cap_nha") tlesotang = thedlg.findbyname("TLE_SOTANG") sotang = theftab.findfield("so_tang") tlesotobd = thedlg.findbyname("TLE_SOTO") sotobd = theftab.findfield("so_tobd") tleshthua = thedlg.findbyname("TLE_SOTHUA") sothua = theftab.findfield("so_hthua") tlettrangply = thedlg.findbyname("TLE_TTPL") ttrangply = theftab.findfield("ttrang_ply") tleidnha = thedlg.FindByName ("TLE_IDNHA") idnha = theftab.findfield("id_nha") theftab.seteditable(true) for each rec in theftab.getselection theftab.setvalue(tencsh,rec,tletencsh.gettext) theftab.SetValue(diachicsh,rec,tlediachicsh.gettext) theftab.setvalue(diachinha,rec,tlediachinha.gettext) theftab.setvalue(sonha,rec,tlesonha.gettext) theftab.setvalue(tenduong,rec,tletenduong.gettext) theftab.setvalue(dtxd,rec,tledtxd.gettext) theftab.setvalue(ketcau,rec,tleketcau.gettext) theftab.setvalue(capnha,rec,tlecapnha.gettext) theftab.setvalue(sotang,rec,tlesotang.gettext) theftab.setvalue(sotobd,rec,tlesotobd.gettext) theftab.setvalue(sothua,rec,tleshthua.gettext) theftab.setvalue(ttrangply,rec,tlettrangply.gettext) theftab.setvalue(idnha,rec,tleidnha.gettext) end theftab.seteditable(false) theftab.refresh msgbox.info("Ban da cap nhat cong","thong bao")  Phụ lục 16: Cập nhật thông tin đường a Viết Tools (nút công cụ) để kết nối với cửa sổ Dialog cập nhật thuộc tính đường: theView = av.GetActiveDoc ListActiveThemes = theView.GetActiveThemes theRect = theView.ReturnUserRect thetheme = theview.Findtheme("lop_giaothong.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("DLG_CAPNHAT_DUONG") theftab = thetheme.getftab tenduongfield = theftab.findfield("ten_duong") tudoanfield = theftab.findfield("tu_doan") dendoanfield = theftab.findfield("den_doan") chieudaifield = theftab.findfield("c_dai") logioifield = theftab.findfield("lo_gioi") dientichfield = theftab.findfield("dien_tich") ketcaufield = theftab.findfield("ket_cau") viahefield = theftab.findfield("via_he") madgtfield = theftab.findfield("ma_dgt") for each rec in theftab.getselection tenduong = theftab.returnvalue(tenduongfield,rec) tudoan = theftab.returnvalue(tudoanfield,rec) dendoan = theftab.returnvalue(dendoanfield,rec) chieudai = theftab.returnvalue(chieudaifield,rec) logioi = theftab.Returnvalue(logioifield,rec) dientich = theftab.ReturnValue(dientichfield,rec) ketcau = theftab.ReturnValue(ketcaufield,rec) viahe = theFtab.ReturnValue(viahefield,rec) madgt = theFtab.ReturnValue(madgtfield,rec) end tletenduong = thedlg.findbyname("TLE_TENDUONG") tletenduong.settext(tenduong) tletudoan = thedlg.findbyname("TLE_TUDOAN") tletudoan.settext(tudoan) tledendoan = thedlg.findbyname("TLE_DENDOAN") tledendoan.settext(dendoan) tlechieudai = thedlg.findbyname("TLE_CDAI") tlechieudai.settext(chieudai.asstring) tlelogioi = thedlg.findbyname("TLE_LOGIOI") tlelogioi.settext(logioi.asstring) tledientich = thedlg.findbyname("TLE_DIENTICH") tledientich.settext(dientich.asstring) tleketcau = thedlg.findbyname("TLE_KETCAU") tleketcau.settext(ketcau) tleviahe = thedlg.FindByName ("TLE_VIAHE") tleviahe.settext(viahe.asstring) tlemadgt = thedlg.FindByName ("TLE_MADGT") tlemadgt.settext(madgt.asstring) thedlg.open b Viết Buttons (nút lệnh) “Cập nhật”: theView = av.GetActiveDoc theTheme = theView.FindTheme("lop_giaothong.shp") theFtab = theTheme.GetFtab thedlg = av.FindDialog("DLG_CAPNHAT_DUONG") tletenduong = thedlg.findbyname("TLE_TENDUONG") tenduong = theftab.findfield("ten_duong") tletudoan = thedlg.findbyname("TLE_TUDOAN") tudoan = theftab.findfield("tu_doan") tledendoan = thedlg.findbyname("TLE_DENDOAN") dendoan = theftab.findfield("den_doan") tlechieudai = thedlg.findbyname("TLE_CDAI") chieudai = theftab.findfield("c_dai") tlelogioi = thedlg.findbyname("TLE_LOGIOI") logioi = theftab.findfield("lo_gioi") tledientich = thedlg.findbyname("TLE_DIENTICH") dientich = theftab.findfield("dien_tich") tleketcau = thedlg.findbyname("TLE_KETCAU") ketcau = theftab.findfield("ket_cau") tleviahe = thedlg.findbyname("TLE_VIAHE") viahe = theftab.findfield("via_he") tlemadgt = thedlg.FindByName ("TLE_MADGT") madgt = theftab.findfield("ma_dgt") theftab.seteditable(true) for each rec in theftab.getselection theftab.setvalue(tenduong,rec,tletenduong.gettext) theftab.SetValue(tudoan,rec,tletudoan.gettext) theftab.setvalue(dendoan,rec,tledendoan.gettext) theftab.setvalue(chieudai,rec,tlechieudai.gettext) theftab.setvalue(logioi,rec,tlelogioi.gettext) theftab.setvalue(dientich,rec,tledientich.gettext) theftab.setvalue(ketcau,rec,tleketcau.gettext) theftab.setvalue(viahe,rec,tleviahe.gettext) theftab.setvalue(madgt,rec,tlemadgt.gettext) end theftab.seteditable(false) theftab.refresh msgbox.info("Ban da cap nhat cong !","thong bao")  Phụ lục 17: Mở liệu theProject = av.GetProject if (nil theProject) then if (theProject.IsModified) then if (av.Run("Project.CheckForEdits",nil).Not) then return nil end res = MsgBox.SaveChanges("Ban muon luu Project " + theProject.GetName + "?", "ArcView", true) if (nil = res) then return nil end if (res) then av.Run("Project.Save", nil) if (theProject.IsModified)then return nil end end end end theFName = FileDialog.Show("*.apr", "Project (*.apr)", "Mo Project") if (nil theFName) then if (nil theProject) then theProject.Close end theProject = nil av.ClearGlobals av.DelayedRun("Project.OpenPart2", theFName, 0) end  Phụ lục 18: Đóng liệu theProject = av.GetProject if (nil theProject) then if (theProject.IsModified) then if (av.Run("Project.CheckForEdits",nil).Not) then return nil end res = MsgBox.SaveChanges("Ban muon dong du lieu " + theProject.GetName + "?", "ArcView", true) if (nil = res) then return nil end if (res) then av.Run("Project.Save", nil) if (theProject.IsModified) then return nil end end end theProject.Close theProject = nil end  Phụ lục 19: Lưu liệu theProject = av.GetProject theFileName = theProject.GetFileName if (theFileName = nil) then av.Run("Project.SaveAs", nil) else if (av.Run("Project.CheckForEdits",nil).Not) then return nil end if (theProject.Save) then av.ShowMsg("Project saved to '" + theFileName.GetBaseName + "'") if (System.GetOS = #SYSTEM_OS_MAC) then Script.Make("MacClass.SetDocInfo(SELF, Project)").DoIt(theFileName) end end end  Phụ lục 20: Lưu liệu với tên khác theProject = av.GetProject if (av.Run("Project.CheckForEdits",nil).Not) then return nil end defName = theProject.GetFileName if (defname = nil) then if ((System.GetEnvVar("HOME") nil) File.IsWritable("$HOME".AsFileName)) then defName = FileName.Make("$HOME").MakeTmp("proj", "apr") else defName = FileName.Make("proj1.apr") end end and theFName = FileDialog.Put(defName, "*.apr", "Ban se luu chuong trinh voi ten moi?") if (nil theFName) then theProject.SetFileName(theFName) if (theProject.Save) then av.ShowMsg( "Project saved to '"+theProject.GetFileName.GetBaseName+"'") if (System.GetOS = #SYSTEM_OS_MAC) then realFName = theProject.GetFileName if (nil realFName) then Script.Make("MacClass.SetDocInfo(SELF, Project)").DoIt(realFName) end end end end  Phụ lục 21: Thêm lớp đồ myView = av.GetProject.Finddoc("View1") thedlg = av.finddialog("DLG_THEMLOPDL") thecbx1 = thedlg.findbyname("CBX_TDAT") thecbx2 = thedlg.findbyname("CBX_NHA") thecbx3 = thedlg.findbyname("CBX_GT") thecbx4 = thedlg.findbyname("CBX_TV") theSrcName1 = SrcName.Make("d:\detaitotnghiep\dulieushapefile\lop_thuadat\thuadat.shp") theSrcName2 = SrcName.Make("d:\detaitotnghiep\dulieushapefile\lop_nha\lop_nha.shp") theSrcName3 = SrcName.Make("d:\detaitotnghiep\dulieushapefile\lop_giaothong\lop_giaothong.shp") theSrcName4 = SrcName.Make("d:\detaitotnghiep\dulieushapefile\lop_thuyvan\lop_thuyvan.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 Nha","Thong bao") exit end if (theSrcName3 = nil) then msgbox.info("Khong ton tai lop Giao thong","Thong bao") exit end if (theSrcName4 = nil) then msgbox.info("Khong ton tai lop Thuy van","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 theTheme = theme.Make(theSrcName3) myView.addtheme(theTheme) theTheme.SetVisible (true) theTheme.SetActive (true) end if (thecbx4.IsSelected) then theTheme = theme.Make(theSrcName4) myView.addtheme(theTheme) theTheme.SetVisible (true) theTheme.SetActive (true) end  Phụ lục 22: Xóa lớp đồ myview = av.GetProject.FindDoc ("View1") thetheme1 = myView FindTheme ("thuadat.shp") thetheme2 = myView.FindTheme ("lop_nha.shp") thetheme3 = myview.findTheme ("lop_giaothong.shp") thetheme4 = myview.findTheme ("lop_thuyvan.shp") thedlg = av.Finddialog ("DLG_XOALOPDL") thecbx1 = thedlg.FindByName ("CBX_TDAT") thecbx2 = thedlg.FindByName ("CBX_NHA") thecbx3 = thedlg.FindByName ("CBX_GT") thecbx4 = thedlg.FindByName ("CBX_TV") if (thecbx1.IsSelected) then if (thetheme1nil) then xacnhan1 = MsgBox.YesNo ("ban thuc su muon xoa theme " + thetheme1.asstring + "?", "Xoa theme", TRUE) if (xacnhan1 = true) then myView.Deletetheme (thetheme1) end end end if (thecbx2.IsSelected) then if (thetheme2nil) then xacnhan2 = MsgBox.YesNo ("ban thuc su muon xoa theme " + thetheme2.asstring + "?", "Xoa theme", TRUE) if (xacnhan2 = true) then myView.Deletetheme (thetheme2) end end end if (thecbx3.IsSelected) then if (thetheme3nil) then xacnhan3 = MsgBox.YesNo ("ban thuc su muon xoa theme " + thetheme3.asstring + "?", "Xoa theme", TRUE) if (xacnhan3 = true) then myView.Deletetheme (thetheme3) end end end if (thecbx4.IsSelected) then if (thetheme4nil) then xacnhan4 = MsgBox.YesNo ("ban thuc su muon xoa theme " + thetheme4.asstring + "?", "Xoa theme", TRUE) if (xacnhan4 = true) then myView.Deletetheme (thetheme4) end end end  Phụ lục 23: Thoát chương trình theProject = av.GetProject if (nil theProject) then if (theProject.IsModified) then if (av.Run("Project.CheckForEdits",nil).Not) then return nil end res = MsgBox.SaveChanges("Ban muon luu" + theProject.GetName + "?", "ArcView", true) if (nil = res) then return nil end if (res) then av.Run("Project.Save", nil) if (theProject.IsModified) then return nil end end end theProject.Close end av.Quit  Phụ lục 24: Tool Phóng to av.GetProject.SetModified(true) theView = av.GetActiveDoc r = theView.ReturnUserRect d = theView.GetDisplay if (r.IsNull) then d.ZoomIn(125) d.PanTo(d.ReturnUserPoint) else d.ZoomToRect(r) end  Phụ lục 25: Tool Thu nhỏ av.GetProject.SetModified(true) theView = av.GetActiveDoc r = theView.ReturnUserRect d = theView.GetDisplay if (r.IsNull.not) then ext = d.ReturnExtent ext.Scale(ext.GetWidth / r.GetWidth) d.ZoomToRect(ext) else d.ZoomOut(125) d.PanTo(d.ReturnUserPoint) end  Phụ lục 26: Button Phóng to av.GetProject.SetModified(true) theView = av.GetActiveDoc theView.GetDisplay.ZoomIn(125)  Phụ lục 27: Button Thu nhỏ av.GetProject.SetModified(true) theView = av.GetActiveDoc theView.GetDisplay.ZoomOut(125)  Phụ lục 28: Tool Di chuyển av.GetProject.SetModified(true) theView = av.GetActiveDoc theView.GetDisplay.Pan  Phụ lục 29: Tool Chọn đối tượng vùng theView = av.GetActiveDoc r = theView.ReturnUserRect theThemes = theView.GetActiveThemes if (r.IsNull) then p = theView.GetDisplay.ReturnUserPoint if (System.IsShiftKeyDown) then op = #VTAB_SELTYPE_XOR else op = #VTAB_SELTYPE_NEW end for each t in theThemes if (t.CanSelect) then t.SelectByPoint(p, op) end end else if (System.IsShiftKeyDown) then op = #VTAB_SELTYPE_OR else op = #VTAB_SELTYPE_NEW end for each t in theThemes if (t.CanSelect) then t.SelectByRect(r, op) end end end av.GetProject.SetModified(true) ... đai(LIS) thông tin liên quan đến đất đai(GIS) Sơ đồ 1.3 Quy trình thực đề tài 19 Sơ đồ 2.1 Quy trình xử lý liệu không gian 22 DANH SÁCH CÁC HÌNH VẼ Hình 1.1 Các thành phần GIS ... con) 56 Hình 2.71 Giao diện Item “Thanh cơng cụ tiện ích” 56 Ngành: Cơng Nghệ Địa Chính SVTH: Nguyễn Anh Quý ĐẶT VẤN ĐỀ Ngày nay, với phát triển nhanh chóng cơng nghệ thơng tin đời nhiều... Chính SVTH: Nguyễn Anh Quý Các thành phần GIS Hệ thống thơng tin địa lý (GIS) có thành phần bao gồm: phần cứng, phần mềm, sở liệu, người quy trình (trong đó: sở liệu, người quy trình gọi thành