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

ỨNG DỤNG KẾT HỢP GIS, MÃ NGUỒN MỞ POSTGRESQL VÀ ADOBE DREAMWEAVER TRONG QUẢN LÝ CÂY XANH KHU VỰC QUẬN 4, TP.HCM

35 1,1K 0

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

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

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

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

Nội dung

Việc quy hoạch quản lý cây xanh là một vấn đề phức tạp do sự không đồng bộ của các loại cây (độ tuổi, chủng loại, chất dinh dưỡng, loại đất thích hợp ..) ; diện tích phân bố rộng ; số lượng lớn …Cách quản lý thủ công cũ bằng giấy hoặc world, exel gây khó khăn trong việc kiểm tra, bổ sung, cập nhật và đồng bộ dữ liệu về thông tin địa lý để thể hiện một cách trực quan một cách toàn diện về công việc quản lý cây xanh.

BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC NÔNG LÂM TP HỒ CHÍ MINH KHOA TÀI NGUYÊN & MÔI TRƯỜNG ĐỒ ÁN GIS ĐỀ TÀI : “ ỨNG DỤNG KẾT HỢP GIS, MÃ NGUỒN MỞ POSTGRESQL VÀ ADOBE DREAMWEAVER TRONG QUẢN LÝ CÂY XANH KHU VỰC QUẬN 4, TP.HCM” GVHD: Th.S Lê Văn Phận SVTH : Trần Minh Tài Thành phố Hồ Chí Minh , tháng 10 năm 2015 13162077 Mục lục I Mở đầu : I.1 Tính cấp thiết đề tài : Tại TP.HCM, Cùng với việc kinh tế phát triền nhanh chóng kéo theo tốc độ đô thị hóa diễn ngày nhanh công tác quản lý không chặt chẽ việc không đồng ngành làm cho diện tích xanh ngày suy giảm Điều ảnh hưởng lớn đến chất lượng môi trường tăng bụi, giảm nguồn nước ngầm, xâm nhập mặn, xói mòn… Việc quy hoạch quản lý xanh vấn đề phức tạp không đồng loại (độ tuổi, chủng loại, chất dinh dưỡng, loại đất thích hợp ) ; diện tích phân bố rộng ; số lượng lớn …Cách quản lý thủ công cũ giấy world, exel gây khó khăn việc kiểm tra, bổ sung, cập nhật đồng liệu thông tin địa lý để thể cách trực quan cách toàn diện công việc quản lý xanh Cây xanh nguồn tài nguyên đặc biệt trình sinh trưởng phát triển chậm chạp xong nhu cầu xanh lớn sinh hoạt sản xuất nên diện tích xanh giảm nhanh trình phát triển kinh tế Đây hệ tất yếu phải đánh đổi : + Nghiên cứu kiện khí tượng chi tiết Sở Khí Tượng Việt Nam cho thấy vòng 30 năm qua, Việt Nam có khuynh huớng gia tăng nhiệt độ đáng kể, tỉnh Miền Bắc gia tăng nhiều Miền Nam, đặc biệt tháng mùa hè với biên độ lớn Ở Miền Bắc, vòng 30 năm (1961-1990), nhiệt độ tối thiểu trung bình mùa đông gia tăng 3°C Điện Biên, Mộc Châu; 2°C Lai Châu, 1.8°C Lạng Sơn, 1°C Hà Nội Bắc Giang Ở Miền Nam, nhiệt độ tối thiểu trung bình gia tăng hơn, tăng 1.2°C Rạch Giá Ban Mê Thuột, tăng 0.8°C Sài Gòn, tăng 0.5°C Nha Trang Nhiệt độ trung bình mùa hè không gia tăng + Riêng thành phố Sài Gòn, nhiệt độ trung bình Sài Gòn từ năm 1984 đến 2004 cho thấy ngày tăng lên Chẳng hạn, vào năm 1984, nhiệt độ trung bình Sài Gòn 27.1°C, riêng năm 2001-2005, nhiệt độ trung bình lên đến 28°C, 10 năm 1991-2000 tăng 0.4°C, mức tăng 40 năm trước Nhiệt độ cao khu vực miền Nam luôn xuất Phước Long, Ðồng Xoài Xuân Lộc Hệ thống thông tin địa lý (Geographic Information System - gọi tắt GIS) hình thành vào năm 1960 phát triển rộng rãi 10 năm GIS ngày công cụ trợ giúp định nhiều hoạt động kinh tế - xã hội, quốc phòng nhiều quốc gia giới GIS có khả trợ giúp quan phủ, nhà quản lý, doanh nghiệp, cá nhân đánh giá trạng trình, thực thể tự nhiên , kinh tế - xã hội thông qua chức thu thập, quản lý, truy vấn, phân tích tích hợp thông tin gắn với hình học quán sở tọa độ liệu đầu vào Đã có nhiều hướng tiếp cận khác với GIS vào quản lý xanh đô thị nhiên giới hạn việc quản lý sinh trưởng phát triển hệ thống xanh đô thị Để có nhìn tổng quan ứng dụng rộng rãi với GIS quy hoạch thành phố quản lý xanh khu vực quận Thủ Đức tiến hành đề tài sau : “ỨNG DỤNG KẾT HỢP GIS, MÃ NGUỒN MỞ POSTGRESQL VÀ ADOBE DREAMWEAVER TRONG QUẢN LÝ CÂY XANH KHU VỰC QUẬN 4, TP.HCM” I.2 Mục đích đề tài : Xây dựng phần mềm dựa GIS kết hợp với VBA, Adobe dreamweaver CS6 để phục vụ cho công việc quản lý xanh khu vực quận 4, TP.HCM I.2.1 Mục đích cụ thể : Chỉnh sửa liệu đầu vào Tương tác với sở liệu : cập nhật , xóa, di dời vị trí…bằng cách tạo lưu tất liệu GeoDatabase Thành lập công cụ quản lý xanh khu vực quận Phân tích hệ thống I.2.2 Đối tượng phạm vi nghiên cứu : Đối tượng nghiên cứu : xanh đô thị Khu vực nghiên cứu : khu vực quận 4, TP.HCM I.2.3 Dữ liệu thu thập: Dữ liệu thu nhập bao gồm : + Dữ liệu khu vực ( đồ hành chính, ảnh viễn thám ) + Tọa độ xanh, mật độ phân bố, tình trạng sức khỏe + Hiện trạng sử dụng đất  Tất liệu phân tích tổng hợp giúp cho việc trồng mới, chăm sóc, di chuyển quy hoạch vị trí số lượng xanh phù hợp I.2.4 Đơn vị thực tập : Đợt thực tập nghề nghiệp em xin thực tập Công ty TNHH thành viên Công Viên Cây Xanh Sau số nét công ty tình hình hoạt động Hình : công ty công viên xanh Công ty Công Viên Cây Xanh thành lập theo định số 389/QĐ-UB ngày 25/06//1977 Ủy Ban Nhân Dân Thành Phố Hồ Chí Minh chuyển sang loại hình doanh nghiệp nhà nước hoạt động công ích theo định số 174/QĐ-UB ngày 05/12/1997 Ủy Ban Nhân Dân Thành Phố Hồ Chí Minh Ngày 21/07/2010, công ty chuyển sang loại hình công ty TNHH Một Thành Viên Công Viên Cây Xanh Thành Phố Hồ Chí Minh theo định số 3195/QĐ-UBNDTP ngày 21/07/2010 Uỷ ban Nhân Dân Thành Phố Hồ Chí Minh Trụ sở số 02 Công Trường Quốc Tế, Quận 3, Thành Phố Hồ Chí Minh Chức năng, nhiệm vụ ngành nghề kinh doanh công ty: - Hoạt động công ích: quản lý, tu, cải tạo xây dựng công trình công cộng (công viên, vườn hoa, vườn thú, xanh đô thị, ) - Hoạt động kinh doanh khác: dịch vụ phục vụ khách tham quan, khai thác kinh doanh cây, hoa kiểng, hội hoa xuân Tư vấn dự án Lắp đặt hệ thống điện điện chiếu sáng công viên Đại lý kinh doanh xăng dầu Sản xuất, kinh doanh sản phẩm từ gỗ Sản xuất phân bón hữu cơ, gạch xi măng Tổ chức biểu diễn nghệ thuật chuyên nghiệp (không hoạt động trụ sở công ty) Kinh doanh vận tải hàng ô tô Dịch vụ tưới nước, rửa đường * Vốn điều lệ: 36.900.000.000 đồng Cùng với phát triển lên nước thành phố, công ty có bước tiến vượt bậc, thực tốt hoàn thành chức năng, nhiệm vụ giao Nhiều năm liền nhận khen, giấy khen cấp Đặc biệt công ty nhà nước trao tặng Huân Chương Lao Động Hạng II Hạng III cho tập thể cán công nhân viên với thành tích đạt II Tổng Quan : II.1 Tổng quan Quận : II.1.1 Vị trí địa lý: Quận quận thuộc trung tâm TP.HCM Quận cửa ngõ nối liền Quận huyện Nhà Bè để nhân dân quận huyện vào trung tâm thành phố Quận cửa ngõ để nhân dân từ hướng trung tâm thành phố di chuyển tỉnh miền Tây theo hướng Đại lộ Võ Văn Kiệt Đại lộ Nguyễn Văn Linh Cùng với phát triển mạnh mẽ mặt kinh tế năm qua hệ mặt môi trường ngập úng, ô nhiễm tiếng ồn, diện tích, số lượng xanh ngày giảm… vấn đề quản lý xanh đô thị quận dần trở nên cấp thiết Quận gồm 15 Phường: Phường Vĩnh Hội cũ: phường 1, 2, Phường Lý Nhơn cũ: phường 5, Phường Cây Bàng cũ: phường 10 Phường Xóm Chiếu cũ: phường 12, 13 14 Phường Khánh Hội cũ: phường 15, 16 18 Hình Vị trí địa lý quận II.1.2 Khí hậu : Nằm vùng nhiệt đới gió mùa cận xích đạo, Thành phố Hồ Chí Mình có nhiệt độ cao năm hai mùa mưa – khô rõ rệt Mùa mưa tháng tới tháng 11, mùa khô từ tháng 12 tới tháng năm sau Trung bình, Thành phố Hồ Chí Minh có 160 tới 270 nắng tháng, nhiệt trung bình 27 °C, cao lên tới 40 °C, thấp xuống 13,8 °C Hàng năm, thành phố có 330 ngày nhiệt độ trung bình 25 tới 28 °C Lượng mưa trung bình thành phố đạt 1.949 mm/năm, năm 1908 đạt cao 2.718 mm, thấp xuống 1.392 mm vào năm 1958 Một năm, thành phố có trung bình 159 ngày mưa, tập trung nhiều vào tháng từ tới 11, chiếm khoảng 90%, đặc biệt hai tháng Trên phạm vi không gian thành phố, lượng mưa phân bố không đều, khuynh hướng tăng theo trục Tây Nam – Ðông Bắc Các quận nội thành huyện phía Bắc có lượng mưa cao khu vực lại Thành phố Hồ Chí Minh chịu ảnh hưởng hai hướng gió gió mùa Tây–Tây Nam Bắc – Ðông Bắc Gió Tây – Tây Nam từ Ấn Độ Dương, tốc độ trung bình 3,6 m/s, vào mùa mưa Gió Gió Bắc – Ðông Bắc từ biển Đông, tốc độ trung bình 2.4 m/s, vào mùa khô Ngoài ra, có gió tín phong theo hướng Nam – Đông Nam vào khoảng tháng tới tháng 5, trung bình 3,7 m/s Có thể nói Thành phố Hồ Chí Minh thuộc vùng gió bão Cũng lượng mưa, độ ẩm không khí thành phố lên cao vào mùa mưa 80% xuống thấp khoảng 74,5% Trung bình, độ ẩm không khí đạt bình quân/năm 79,5% Tháng Trung bình cao °C (°F) Trung bình thấp °C (°F) Lượng mưa (mm) Khí hậu bình quân Thành phố Hồ Chí Minh 10 11 12 32 33 34 34 33 32 31 32 31 31 30 31 (90) (91) (93) (93) (91) (90) (88) (90) (88) (88) (86) (88) 21 22 23 24 25 24 25 24 23 23 22 22 (70) (72) (73) (75) (77) (75) (77) (75) (73) (73) (72) (72) 14 12 42 220 313 267 334 268 115 56 (0.6 ) (0.2 ) (0.5 ) (1.7 ) (8.7 ) (12 3) 12.3 ) (13 1) (10 6) (4.5 ) (2.2 ) 331 (13) (Nguồn : Phòng Tài Nguyên môi trường quận Thủ Đức) Hướng gió thay đổi rõ rệt theo mùa: + Thịnh hành từ tháng đến tháng 9, tháng 10 gió tây nam suy yếu nhiều + Tốc độ gió trung bình lớn xảy tháng đến tháng từ 3.7 m/s 4.5 m/s + Tốc độ gió trung bình nhỏ vào khoảng 2.3 m/s 2.4 m/s Số nắng: Bảng Thời gian chiếu sáng (giờ , phút) ngày tháng năm Tháng L0 11 36 10 11 12 11 49 12 04 12 21 12 34 12 42 12 37 12 27 12 10 11.5 11.4 13 Bảng Số nắng bình quân tháng năm (Trạm Tân Sơn Nhất ) Tháng 10 11 12 Giờ nắng 7.9 8.8 8.8 8.0 6.5 5.7 5.9 5.6 5.5 5.9 6.8 7.2 (Nguồn : Phòng Tài Nguyên Môi Trường quận 4) II.2 Tình hình quản lý xanh : II.2.1 Tại Việt Nam : Ở nước ta có nhiều chương trình hành động bảo vệ hệ thống xanh cổ thụ Ví dụ : + Chương trình quản lý xanh đường phố thủ đô Hà Nội, TP Hồ Chí Minh, Đà Nẵng, Nha Trang + Tổ chức Cộng đồng châu Âu tài trợ Công ty công trình đô thị Trà Vinh 237.000 euro thực dự án bảo vệ xanh trồng 20.000 xanh địa bàn thị xã Trà Vinh Thị xã Trà Vinh có 9.600 xanh với nhiều chủng loại + Chương trình quản lý xanh khu Đại Nội cung đình Huế  Có nhiều viết phản ánh tình trạng xuống cấp xanh nhiều nơi cần thiết phải có dự án bảo tồn chúng Tuy nhiên thực tế nước ta chưa có dự án bảo tồn xanh lớn mà hầu hết chương trình quản lý xanh riêng lẻ thành phố địa điểm đặc biệt Hệ quản trị sở liệu Hệ thống xanh thành phố Hà Nội xây dựng phát triển ngôn ngữ Microsoft FOXPRO phiên Verison3.0 Đây phần mềm chuyên quản trị sở liệu với khả tính toán nhanh phổ biến Việt Nam Phần mềm cho phép phát triển ứng dụng quản trị sở liệu, đặc biệt làm việc tốt với tệp tin có nhiều ghi chép Phần mềm quản lý xanh Đà Nẵng công ty xanh ( thuộc sở giao thông công TP Đà Nẵng ) phối hợp với trung tâm công nghệ phần mềm TP ĐàNẵng xây dựng triển trai thực cuối tháng 9/2006 Việc thành lập đồ số GIS cho khả truy xuất, cập nhật liên kết dự liệu xanh với đồ khác thành phố tạo thuận lợi cho công tác chăm sóc quản lý Bộ Nông nghiệp phát triển nông thông cố gắng tích hợp phần mềm FOMIS nhằm thu nhập thông tin quản lý tài nguyên rừng đạt hiệu tiết kiệm Một số quan điểm nghiên cứu nước: + Khai thác, liên kết, tích hợp giữa: hệ quản trị sở liệu PostgreSQL, ngôn ngữ lập trình Csharp, GIS để thành lập công cụ quản lý xanh (Phạm Trần Trọng Hiền, 6/2014, Đại học Nông Lâm) + Khai thác liên kết, tích hợp giữa: hệ quản trị sở liệu PostgreSQL, ngôn ngữ lập trình Csharp , GIS , kết nối liệu mở (ODBC) để thành lập công cụ quản lý xanh ( Đỗ Minh Cảnh, 6/2014, Đại học Nông Lâm) + Khai thác liên kết, tích hợp giữa: hệ quản trị sở liệu PostgreSQL, ngôn ngữ lập trình , GIS , kết nối liệu mở (ODBC) để thành lập công cụ quản lý xanh ( Nguyễn Quốc Tuấn, 6/2014, Đại học Nông Lâm) II.2.2 Trên giới : Những ứng dụng máy tính quản lý xanh đường phố xuất từ năm 1970 nhờ việc sử dụng máy tính lớn Mainframe Hoa kỳ Ứng dụng máy tính cho phép người quản lý thành phố truy nhập liệu hiệu cung cấp cách nhanh chóng tóm tắt liệu thông số cho quản lý xanh theo Miller 1987 Nhưng cần cường độ lao động cao, bảo trì thường xuyên tốn thời gian Một khó khăn máy tính phải dùng chung với ban ngành khác phủ địa phương Vào năm 1980 nhờ phát triển mạnh mẽ tin học nên tăng nhanh số người sử dụng số đợt truy nhập vào liệu xanh Những quan quản lý xanh đô thị thiết kế chương trình quản lý mua chương trình thương mại để tăng cường hiệu công việc Tuy tự phát triển phần mềm khả lập trình dễ dàng đáp ứng kịp thời nhu cầu công việc quản lý xanh tương lai Thông thường phần mềm quản lý xanh đô thị theo Smiley cần có sáu chức sau : Lưu trữ hồ sơ liệu xanh: Lưu trữ liệu xanh tạo điều kiện dễ dàng để thông tin truy cập, cập nhật, bổ sung, hay xóa bỏ chúng Lưu trữ trình công việc: Ghi nhận lưu trữ liệu hoạt động kể số lượng, thời gian yêu cầu thực tế để hoàn thành công việc, thiết bị sử dụng, ngày tháng, thông tin cá nhân thực công việc quản lý Lưu trữ kiến nghị, yêu cầu cộng đồng: đề nghị, yêu cầu người dân dịch vụ xanh, ngày tháng kiến nghị phản hồi từ quan quản lý, kể biện pháp liên quan Tổng kết kế hoạch công tác quản lý: ba chức hồ sơ liệu phân tích, tóm tắt để lập báo cáo đặt kế hoạch biện pháp quản lý, kể dự toán ngân sách Những danh sách xanh cần xử lý: bao gồm cần phải áp dụng biện pháp chăm sóc hay xử lý thành lập bảng thứ tự công việc, bao gồm cần loại bỏ lập tức, cần phải gia cố dây cáp, cần bảo trì chăm sóc đặc biệt Bản đồ vi tính: sẵn sàng hệ thống máy tính định, cho phép sản xuất đồ vị trí xanh thể đặc tính xanh Gần hơn, Wagar Smiley (1990) mô tả hệ thống máy tính có khả hỗ trợ quản lý xanh đô thị kể số phần mềm thương mại Các chức hệ thống mô tả theo thứ tự tầm quan trọng sau : Truy xuất, trình bày, kiểm tra liệu Chức nhằm tạo nên câu trả lời nhanh chóng cho yêu cầu code địa vị trí nhằm thực công việc kiểm kê cung cấp thông tin tức thời Đồng thời, nhiều nhu cầu quản lý thông tin giống cây, ngày tháng, cá nhân sở hữu hay quản lý cây, biện pháp áp dụng nhiều quan trọng Thiết lập thứ tự công việc Cần có danh sách công việc biện pháp lựa chọn để áp dụng cho xanh định vùng định hay dựa yêu cầu, kiến nghị hay phản hồi cộng đồng Tất nhiên liệu thời điểm có nhu cầu, thời gian áp dụng biện pháp hoàn thành công việc cần lưu trữ Tính toán giá trị xanh Qua việc áp dụng phương pháp tính giá trị để lưu trữ liệu giống loài, đường kính, đánh giá tình trạng vị trí, giá trị bất kỳ xanh xác định Thông tin thường hữu ích viết báo cáo ước tính kinh phí quản lý bảo trì Tổng kết thông tin Tóm tắt cung cấp thông tin nhóm hay vùng định Thông tin tóm lược hữu ích bao gồm giống loài, kích thước, giá trị tình trạng, công việc cần thiết để để áp dụng biện pháp bảo trì, số kinh phí để thực nhiệm vụ Bản đồ vị trí xanh Việc sử dụng ky thuật đo vẽ đồ cho phép tạobản đồ thể vị trí xanh Tạo đồ thị Thể thông số đồ thị tính đa dạng giống loài, phân bố có đường kính khác nhau, tình trạng xanh dạng đồ thị làm thông tin trở nên dễ hiểu, khả truyền cảm nhanh chóng thông tin có tính thuyết phục cao Theo dõi chi phí bảo quản tình trạng sinh trưởng loài khác Khả xác định kinh phí thích hợp cho nhiệm vụ bảo trì quản lý khác cần thiết quan trọng Lưu trữ đầy đủ thông tin công việc thực hiện, giá thành, nhân công cho phép dễ dàng ước tính thông số sau: kinh phí, nhu cầu, biện pháp thời gian thực 10 V.3.2.6 Tình trạng phần mềm sau thực Use case Nếu Use case thực thành công, phần mềm chuyển đến Màn hình Ngược lại, trạng thái phần mềm không thay đổi V.3.3 Tìm hiểu hiển thị Người dùng Đăng Nhập Tìm kiếm Theo thông tin thuộc tính Theo thông tin không gian V.3.3.1Tóm tắt Use case cho phép Người dùng tìm xác định vị trí xanh gần theo điều kiện mà không cần mật V.3.3.2 Dòng kiện Use case bắt đầu Người dùng chọn vào mục “Tìm kiếm” Màn hình Phần mềm hiển thị loại xanh cần tìm kiếm V.3.3.3 Các dòng kiện khác Không có V.3.3.4 Các yêu cầu đặc biệt Không có V.3.3.5 Tình trạng phần mềm trước thực Use case Người dùng phải đăng nhập mục “Đăng nhập” trước để thực Use case V.3.3.6 Tình trạng phần mềm sau thực Use case Use case thực thành công, phần mềm thể tất xanh phù hợp điều kiện Ngược lại, trạng thái phần mềm không thay đổi V.3.4 Cập nhật, chỉnh sửa Người dùng Đăng nhập Điều Cập nhật, chỉnh sửachỉnh thông tin theo thay đổi V.3.4.1 Tóm tắt Use case cho phép Người dùng cập nhật, chỉnh sửa thông tin xanh theo nhu cầu V.3.4.2 Dòng kiện Use case bắt đầu Người dùng đăng nhập account Phần mềm hiển thị thông tin chi tiết xanh chọn 21 V.3.4.3 Các dòng kiện khác Người dùng quay lại mục “Tìm kiếm” để tìm cho xanh phù hợp điều kiện V.3.4.4 Các yêu cầu đặc biệt Không có V.3.4.5 Tình trạng phần mềm trước thực Use case Người dùng phải chọn đăng nhập trước để thực Use case V.3.4.6 Tình trạng phần mềm sau thực Use case Nếu use case thực thành công, phần mềm cập nhật hiển thị thông tin xanh chọn ĐHNL Ngược lại, trạng thái phần mềm không thay đổi VI Kết thực : VI.1 Bắt đầu : Hình 4: Giao diện bắt đầu chương trình quản lý xanh Form liên kết với Form thông tin chi tiết đăng nhập Code dùng cho Form : Private Sub CommandButton1_Click() End End Sub Private Sub CommandButton2_Click() dangnhap.Show batdau.Hide End Sub 22 VI.2 Thông tin chi tiết : Hình : Giao diện Form thông tin chi tiết - Form liên kết với Form Đăng nhập Bắt đầu - Code dùng cho form: Private Sub CommandButton2_Click() End End Sub Private Sub CommandButton3_Click() Thongtin.Hide dangnhap.Show End Sub Private Sub CommandButton4_Click() Thongtin.Hide batdau.Show End Sub 23 VI.3 Đăng nhập : Hình : Giao diện form đăng nhập Form liên kết với form đăng ký tìm kiếm Code dùng cho form : Const stdbName = "E:\Quan thuduc\Database1.mdb" Dim dem As Integer Dim tam As Integer Dim db As DAO.Database Dim rs As DAO.RecordSet Dim r(100, 2) As String Private Sub CommandButton1_Click() If txt_user.Text = "" And txt_pass.Text = "" Then MsgBox "Ban chua nhap tai khoan va mat khau" Else Set db = Workspaces(0).OpenDatabase(stdbName) Dim user, pass As String user = Trim(txt_user.Text) On Error Resume Next pass = Trim(txt_pass.Text) Set rs = db.OpenRecordset("dangki") tam = Do While rs.EOF = False If rs!user = user And rs!pass = pass Then MsgBox "Ban dang nhap cong" If user = "kieu" And pass = "123456" Then 24 giaodien.cmd_2.Visible = True Else giaodien.cmd_2.Visible = False End If dangnhap.Hide tracuu.Show 'giaodien.lbl.Caption = giaodien.lbl.Caption & " Xin chào " & txt_user.Text tam = Exit Do Else tam = End If rs.MoveNext Loop ' cap nhat so lan truy cap Set db = Workspaces(0).OpenDatabase(stdbName) stSQL1 = "SELECT * from capnhat " Set rs = db.OpenRecordset(stSQL1, dbOpenDynaset) rs.AddNew rs.Fields("User") = txt_user.Text rs.Fields("Thoi_gian") = D rs.Update If tam = Then If dem < Then MsgBox "Ban dang nhap sai Password hay Username, vui lòng nhap lai !" dem = dem + Else MsgBox "Ban da dang nhap qua lan" End End End If End If End Sub Private Sub CommandButton3_Click() end End Sub Private Sub CommandButton2_Click() 25 dangnhap.Hide dangki.Show End Sub VI.4 Đăng kí : Hình 7: Giao diện Form đăng kí Form liên kết với form đăng nhập Code dùng cho form : Const stdbName = "E:\Quan 4\Database1.mdb" Dim db As DAO.Database Dim rs As DAO.RecordSet Private Sub CommandButton1_Click() If txt_user.Text = "" And txt_pass.Text = "" And txt_dt.Text = "" And txt_mail.Text = "" And txt_hoten.Text = "" Then 'MsgBox "Ban chua nhap tai khoan va mat khau" lbl_user.Caption = lbl_user.Caption & " ban phai nhap vao" Else Set db = Workspaces(0).OpenDatabase(stdbName) Set rs = db.OpenRecordset("dangky") Dim dem As Integer dem = Do While rs.EOF = False If rs!user = txt_user.Text Then dem = Exit Do 26 End If rs.MoveNext Loop If dem = Then MsgBox "Ten da ton tai" Exit Sub Else rs.AddNew rs.Fields("User") = txt_user.Text rs.Fields("Pass") = txt_pass.Text rs.Fields("Hoten") = txt_hoten.Text rs.Fields("Sodienthoai") = txt_dt.Text rs.Fields("Email") = txt_mail.Text On Error Resume Next rs.Update 'MsgBox "Ban Da Dang Ky Thanh Cong", vbOKOnly, "Thong Bao!" t = MsgBox(" b?n ban co muon dang nhap khong? ", vbYesNo, "login") If t = Then dangki.Hide dangnhap.Show End If Unload Me End If End If End Sub Private Sub CommandButton2_Click() End End Sub Private Sub CommandButton3_Click() dangnhap.Show dangki.hide End Sub 27 VI.5 Tìm kiếm : Hình : Giao diện Form tìm kiếm Form liên kết với form nhập cập nhật, chỉnh sửa Code dùng cho form : Const stdbName = "E:\Quan 4\Database1_2000.mdb" Dim stSQL As String Dim db As DAO.Database Dim rs As DAO.RecordSet Dim maso As String Dim rs1 As DAO.RecordSet Dim r(100, 4) As String Dim r2(100, 4) As String Private Sub cmb_1_Change() list1.Clear Set db = Workspaces(0).OpenDatabase(stdbName) 'thuc hien cau query select k = cmb1.List(cmb1.ListIndex) 'hinh stSQL1 = "SELECT * from Database1_2000 WHERE stt='" & k & "'" Set rs = db.OpenRecordset(stSQL1, dbOpenDynaset) 28 stSQL1 = "SELECT * from banggia WHERE Ten_quan='" & k & "'" Set rs = db.OpenRecordset(stSQL1, dbOpenDynaset) r(0, 0) = "STT " r(0, 1) = "loaicay " r(0, 3) = "tovien " i=1 Do While Not rs.EOF r(i, 0) = rs.Fields("ID") r(i, 1) = rs.Fields("loaicay") r(i, 3) = rs.Fields("tovien") rs.MoveNext i=i+1 Loop 'nap data vao listbox list1.List = r rs.Close 'rs1.Close End Sub VI.6 Cập nhật, chỉnh sửa: Hình : Giao diện Form cập nhật Form liên kết với form tìm kiếm Code dùng cho form : Const stdbName = "E:\Quan 4\Database1_2000.mdb" Dim db As DAO.Database Dim rs As DAO.RecordSet Private Sub CommandButton2_Click() 'them du lieu vao data Set db = Workspaces(0).OpenDatabase(stdbName) 29 stSQL1 = "SELECT * FROM table1" Set rs = db.OpenRecordset(stSQL1, dbOpenDynaset) rs.AddNew 'them dong moi rs.Fields("STT") = Val(txt_1.Text) 'nhap data vao table rs.Fields("x_long") = Val(txt_2.Text) rs.Fields("x_lat") = Val(txt_3.Text) rs.Fields("KV") = Val(txt_4.Text) rs.Fields("tenduong") = Val(txt_5.Text) rs.Fields("phutrach") = Val(txt_6.Text) rs.Update 'cap nhat Call CommandButton6_Click End Sub Private Sub CommandButton3_Click() 'sua du lieu vao data Set db = Workspaces(0).OpenDatabase(stdbName) stSQL1 = "SELECT * FROM table1 where id=" & maso Set rs = db.OpenRecordset(stSQL1, dbOpenDynaset) If Not rs.EOF Then rs.Edit rs.Fields("STT") = Val(txt_1.Text) 'nhap data vao table rs.Fields("x_long") = Val(txt_2.Text) rs.Fields("x_lat") = Val(txt_3.Text) rs.Fields("KV") = Val(txt_4.Text) rs.Fields("tenduong") = Val(txt_5.Text) rs.Fields("phutrach") = Val(txt_6.Text) rs.Update Call CommandButton6_Click 'cap nhat lai man hinh Else MsgBox "khong tim thay ma so " End If End Sub Private Sub CommandButton4_Click() 'xoa dong Set db = Workspaces(0).OpenDatabase(stdbName) stSQL1 = "delete FROM Database1_2000 where id=" & stt db.Execute (stSQL1) 'xoa du lieu Call CommandButton6_Click 'cap nhat lai man hinh End Sub 30 Private Sub CommandButton5_Click() End End Sub Private Sub CommandButton6_Click() 'Code tim kiem hien thi data vao listbox nhieu cot Dim r(100, 6) As String 'tim kiem du lieu vao data Set db = Workspaces(0).OpenDatabase(stdbName) 'maso = InputBox("nhap ma so ") 'maso = lst_1.List(lst_1.ListIndex) stSQL1 = "SELECT * FROM Database1_2000 where stt like '*" & txt_1.Text & "*'" Set rs = db.OpenRecordset(stSQL1, dbOpenDynaset) 'tieu de cot cua listbox r(0, 0) = "stt |" r(0, 1) = "x_long |" r(0, 2) = "x_lat |" r(0, 3) = "kv |" i=1 'nap table access vao mang chieu Do While Not rs.EOF r(i, 0) = rs.Fields("id") r(i, 1) = rs.Fields("Ho_ten") r(i, 2) = rs.Fields("Tuoi") rs.MoveNext i=i+1 Loop 'nap data vao listbox lst_1.List = r End Sub VII.1.Trang Web Gis xanh: Trang Web Gis xây dựng mapsever mã nguồn mở thầy Lê Văn Phận cung cấp Sau hoàn thiện web có chức sau : + giới thiệu thông tin xanh thông tin liên quan 31 Hình 10 Giao diện trang chủ + hiển thị đồ xanh Hình 11 Bản đồ xanh quận + chức tìm kiếm thông tin xanh 32 Hình 12 Chức tìm kiếm xanh + chức cập nhật thông tin xanh Hình 13 Chức cập nhật thông tin xanh VII.2 Worldpress xanh : Tuy có web gis để quản lý xanh web gis khó cập nhật thường xuyên thông tin xanh thông tin liên quan ( phải viết code trì sever thường xuyên ) nên em xây dựng riêng worldpress nhằm phục vụ cho việc cập nhật nhanh thông tin có liên quan đến xanh lấy ý kiến đóng góp từ người dùng Hình 14 Giao diện worldpress xanh VIII Kết luận kiến nghị : VIII.1 Kết luận : 33 Sau thời gian nghiên cứu tìm hiểu quản lý xanh khu vực quận 4, em có số kết luận sau : + Cây xanh tài sản quý giá cần bảo vệ + Việc quản lý xanh khu vực nghiên cứu chưa tốt + Việc chuyển sang từ quản lý giấy qua quản lý chương trình xanh Arcgis tiết kiệm nhiều chi phí thời gian VIII.2 Kiến nghị : Cần xây dựng hệ thống sở liệu hoàn thiện xanh khu vực quận Cần tổ chức đợt khảo sát để cập nhật kịp thời thông tin xanh Tăng cường công tác giám sát, chăm sóc xanh Tài liệu tham khảo : Ứng dụng GIS quản lý xanh phường 6, quận 3, TP.HCM – Nguyễn Quốc Tuấn – DHNL – 2011 Ứng dụng GIS quản lý xanh khu vực DHNL TP.HCM – Đỗ Minh Cảnh - DHNL – 2014 Ứng dụng GIS quản lý xanh khu vực quận , TP.HCM – Phạm Trần Trọng Hiền – DHNL - 2014 Ứng dụng GIS quản lý xanh thành phố Đà Nẵng – Nguyễn Đức Việt – DH Đà Nẵng – 2012 Nạn phá rừng hiểm họa khủng khiếp – Lam Sinh Joinstock company – 2011 Nghị định 64/ 2010/ NĐ – CP quản lý xanh đô thị Thông tư 20 / 2009 / TT – BXD Tổng quát GIS, VBA Viễn thám – Wikimedia Quyết định 5287 / QĐ – UB – QLTĐ 10 QĐ số 199/QĐ-UB: Ban hành quy định quản lý công viên xanh đô thị địa bàn TPHCM 11.QĐ số 2627/QĐ-UB: Bổ sung ngành Công ty Công Viên Cây Xanh 12 QĐ số 2830/QĐ-UB: Khống chế chiều cao thân chiều rộng tán xanh đường phố địa bàn Thành phố Hồ Chí Minh 13 QĐ số 105/QĐ-UB: Những quy định cụ thể quản lý công viên xanh đô thị 14 QĐ công ty: Bứng cây, vận chuyển, trồng cây, chăm sóc, kiểm tra nghiệm thu trồng 15 Nghị định 64/2010/NĐ-CP quản lý xanh đô thị 34 35

Ngày đăng: 10/09/2016, 21:28

TỪ KHÓA LIÊN QUAN

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

TÀI LIỆU LIÊN QUAN

w