Ứng dụng GIS trong quản lý số liệu thông kê kinh tế xã hội

ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH TRƯỜNG ĐẠI HỌC BÁCH KHOA BÙI THỊ HỒNG ĐÀO ỨNG DỤNG GIS TRONG QUẢN LÝ SỐ LIỆU THỐNG KÊ KINH TẾ - XÃ HỘI CHUYÊN NGÀNH: BẢN ĐỒ, VIỄN THÁM - GIS LUẬN VĂN THẠC SĨ Tp HCM, Tháng 6/2009 CƠNG TRÌNH ĐƯỢC HOÀN THÀNH TẠI TRƯỜNG ĐẠI HỌC BÁCH KHOA ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH Cán hướng dẫn khoa học : TS Trần Trọng Đức (Ghi rõ họ, tên, học hàm, học vị chữ ký) Cán chấm nhận xét : (Ghi rõ họ, tên, học hàm, học vị chữ ký) Cán chấm nhận xét : (Ghi rõ họ, tên, học hàm, học vị chữ ký) Luận văn thạc sĩ bảo vệ HỘI ĐỒNG CHẤM BẢO VỆ LUẬN VĂN THẠC SĨ TRƯỜNG ĐẠI HỌC BÁCH KHOA, ngày tháng năm 2009 Trang ii TRƯỜNG ĐẠI HỌC BÁCH KHOA Cộng hòa xã hội chủ nghĩa Việt Nam Độc lập – Tự – Hạnh phúc PHÒNG ĐÀO TẠO SAU ĐẠI HỌC TP.HCM, Ngày tháng 07 năm 2009 NHIỆM VỤ LUẬN VĂN THẠC SĨ Họ tên học viên: Bùi Thị Hồng Đào Phái : Nữ Sinh ngày : 20/11/1982 Nơi sinh : Long An Chuyên ngành : Bản đồ - Viễn thám GIS MSHV : 01007143 I Tên đề tài: Ứng dụng GIS quản lý số liệu thống kê kinh tế - xã hội II Nhiệm vụ nội dung: Tìm hiểu trạng quản lý số liệu thống kê kinh tế - xã hội thành phố Hồ Chí Minh Nghiên cứu đề xuất mơ hình quản lý Thiết kế sở liệu: Thiết kế hệ sở liệu theo chuẩn GeoDataBase phục vụ cho trình quản lý Thiết kế sở liệu phù hợp với trình quản lý số liệu theo thời gian Xây dựng sở liệu mẫu khu vực thành phố Hồ Chí Minh Nghiên cứu ngơn ngữ lập trình VBA ArcGIS để xây dựng modul khai thác sở liệu xây dựng III Ngày giao nhiệm vụ : tháng năm 2009 IV Ngày hoàn thành nhiệm vụ : tháng năm 2009 V Họ tên cán hướng dẫn : TS Trần Trọng Đức Cán hướng dẫn Bộ môn quản lý chuyên ngành Nội dung đề cương luận văn thạc sỹ hội Hội đồng chuyên ngành thông qua Tp HCM, Ngày PHÒNG ĐÀO TẠO SAU ĐẠI HỌC tháng năm 2009 KHOA QUẢN LÝ NGÀNH Trang iii TRƯỜNG ĐẠI HỌC BÁCH KHOA Cộng hòa xã hội chủ nghĩa Việt Nam Độc lập – Tự – Hạnh phúc PHÒNG ĐÀO TẠO SAU ĐẠI HỌC TP.HCM, Ngày tháng 07 năm 2009 NHIỆM VỤ LUẬN VĂN THẠC SĨ Họ tên học viên: Bùi Thị Hồng Đào Phái : Nữ Sinh ngày : 20/11/1982 Nơi sinh : Long An Chuyên ngành : Bản đồ - Viễn thám GIS MSHV : 01007143 I Tên đề tài: Ứng dụng GIS quản lý số liệu thống kê kinh tế - xã hội II Nhiệm vụ nội dung: Tìm hiểu trạng quản lý số liệu thống kê kinh tế - xã hội thành phố Hồ Chí Minh Nghiên cứu đề xuất mơ hình quản lý Thiết kế sở liệu: Thiết kế hệ sở liệu theo chuẩn GeoDataBase phục vụ cho trình quản lý Thiết kế sở liệu phù hợp với trình quản lý số liệu theo thời gian Xây dựng sở liệu mẫu khu vực thành phố Hồ Chí Minh Nghiên cứu ngơn ngữ lập trình VBA ArcGIS để xây dựng modul khai thác sở liệu xây dựng III Ngày giao nhiệm vụ : tháng năm 2009 IV Ngày hoàn thành nhiệm vụ : tháng năm 2009 V Họ tên cán hướng dẫn : TS Trần Trọng Đức Cán hướng dẫn Bộ môn quản lý chuyên ngành Nội dung đề cương luận văn thạc sỹ hội Hội đồng chuyên ngành thông qua Tp HCM, Ngày PHÒNG ĐÀO TẠO SAU ĐẠI HỌC tháng năm 2009 KHOA QUẢN LÝ NGÀNH Trang iii ỨNG DỤNG GIS TRONG QUẢN LÝ SỐ LIỆU THỐNG KÊ KT-XH GVHD: TS TRẦN TRỌNG ĐỨC LỜI CẢM ƠN Tôi xin gởi lời cảm ơn chân thành đến TS Trần Trọng Đức, người tận tình hướng dẫn, giúp đỡ suốt trình thực luận văn tạo điều kiện để hoàn thành luận văn Xin cảm ơn gia đình người bạn dành cho tình thương yêu hỗ trợ tốt Xin chân thành cảm ơn Tp Hồ Chí Minh, tháng 07 năm 2009 Bùi Thị Hồng Đào Học viên: Bùi Thị Hồng Đào Trang iv ỨNG DỤNG GIS TRONG QUẢN LÝ SỐ LIỆU THỐNG KÊ KT-XH GVHD: TS TRẦN TRỌNG ĐỨC TÓM TẮT Số liệu thống kê kinh tế - xã hội sở quan trọng trình đánh giá mức độ phát triển mặt xã hội, bên cạnh sở để nhà quản lý đề sách hợp lý thúc đẩy xã hội ngày phát triển Với tình hình đất nước ngày phát triển nay, số lượng số liệu thống kê ngày nhiều Để quản lý sử dụng số liệu thống kê cách có hiệu cần phải xây dựng mơ hình sở liệu hợp lý để tập hợp số liệu kinh tế-xã hội thành hệ thống, đảm bảo vừa phân tích, cung cấp đầy đủ số liệu đồng thời cho phép khai thác số liệu khứ phục vụ đánh giá trình phát triển kinh tế xã hội địa phương Với cơng nghệ GIS vấn đề giải cách đơn giản, dễ dàng Những khả GIS với hoàn thiện phần mềm kèm quản lý phân tích liệu việc ứng dụng quản lý số liệu thống kê KT-XH lựa chọn tối ưu CSDL xây dựng đáp ứng lưu trữ số liệu theo thời gian làm tăng giá trị sử dụng số liệu thống kê Luận văn trình bày giải pháp quản lý số liệu thống kê kinh tế - xã hội dựa tảng GIS kết hợp mơ hình lưu trữ liệu theo thời gian Cơ sở liệu xây dựng theo mơ hình GeoDatabase Chức xây dựng sử dụng ngơn ngữ lập trình ArcOjbect hoạt động phần mềm ArcGIS Chương trình có khả phân tích, cung cấp cho người sử dụng, nhà quản lý số liệu thống kê cách nhanh chóng, trực quan Học viên: Bùi Thị Hồng Đào Trang v ỨNG DỤNG GIS TRONG QUẢN LÝ SỐ LIỆU THỐNG KÊ KT-XH GVHD: TS TRẦN TRỌNG ĐỨC SUMMARY The socio-economic statiscal data is an important basic on process assessing development level in all aspects of the society Besides it is also basic for managers proposing many rational policies to impulse the society development In the pesent circumstances, the more developing the country is, the more statiscal data amount has to manage and use statiscal data effectively, we have to build a reasonable database model to gather socio-economic datum into a system It guarantees to analyze, supply the recent datum completely and to allow to exploit the past datum to serve appreciation of the socioeconomic development process in localities With GIS technology, these problems will be solved simply with the abilities of GIS along with improvement of enclosed softwares in managing and analyzing data, applying them in managing the socio-economic statiscal data is an optimal choice Database which is built to satisfy a temporal data storage is more increasing use value of statiscal data This essay presents one solution to manage the socio-economic statistic on the combination between GIS and temporal data storage model Database is built using the Geodatabase model, the function is built using the ArcObject programming language and operating on ArcGis software background The program can analyze, supply users, managers with statistic datum quickly and visually Học viên: Bùi Thị Hồng Đào Trang vi ỨNG DỤNG GIS TRONG QUẢN LÝ SỐ LIỆU THỐNG KÊ KT-XH GVHD: TS TRẦN TRỌNG ĐỨC DANH MỤC HÌNH Hình II.1: Sơ đồ tổ chức quản lý nhà nước số liệu thống kê Hình II.2: Sơ đồ mơ tả hình thức phương pháp thu thập số liệu thống kê Hình II.3: Mối quan hệ liệu khơng gian thơng tin dân số Hình II.4: Từ thơng tin dân số tìm vị trí khơng gian Hình II.5: Phân tích khơng gian theo số liệu dân số Hình II.6: Tìm bang có 45% dân số 15 tuổi Hình II.7: Tìm Bang có dân số lớn 4,5 triệu người vào năm 2010 Hình II.8: Tìm Bang có tỷ lệ dân số biết chữ cao (> 60 %) Hình II.9: Tìm Bang có tỷ lệ biết chữ 40 % dân số Hình II.10: Bản đồ phân loại theo tỷ lệ dân số nam năm 1991 Malaysia theo khoảng Hình II.11: Bản đồ phân loại thể tỷ lệ người Trung Quốc năm 1991 Kuala Lumpur theo khoảng Hình II.12: Tìm vùng có tỷ lệ người Hồi Giáo lớn 60% Hình II.13: Biểu đồ Scatter thể mối quan hệ người Hồi Giáo nơng Hình II.14: Phần trăm dân số có độ tuổi từ 0-14 Hình II.15: Phần trăm dân số có độ tuổi từ 18 trở lên Hình II.16: Mật độ dân số vùng vào năm 2025 Hình II.17: Tỷ lệ dân số người nước ngồi khu vực Hình II.18: Tỷ lệ sách mượn từ thư viện Hình II.19: Khu vực phục vụ thư viện Hình II.20: Chức cung cấp thông tin kinh tế - xã hội phần mềm CiMapT1M Hình III.1: Các bước tính tốn thuật tốn K-Means Hình III.2: Biểu diễn số liệu hình vẽ Hình III.3: Kết phân nhóm lần lặp thứ Hình III.4: Kết phân nhóm lần lặp thứ hai Hình III.5: Biểu diễn số liệu qua năm biểu đồ hình cột Hình III.6: Biểu đồ hình trịn biểu diễn cấu dân số chia theo độ tuổi Hình III.7 : Biểu diễn số liệu dân số qua năm đồ thị đường gấp khúc Hình III.8: Biểu đồ Scatter minh họa mối quan hệ biến cân nặng chiều cao Hình III.9: Kết phân loại theo phương pháp Natural Breaks Hình III.10: Kết phân loại theo phương pháp Equal Interval Hình III.11:Kết phân loại theo phương pháp Quantile Hình III.12: Kết phân loại theo phương pháp Standard deviation Hình III.13: Mơ hình thành phần ArcGis Hình III.14: modul ArcGis Desktop Học viên: Bùi Thị Hồng Đào 11 11 11 12 12 12 12 13 13 14 14 15 15 15 15 15 15 17 33 34 36 37 39 40 41 41 42 42 42 42 46 47 Trang vii ỨNG DỤNG GIS TRONG QUẢN LÝ SỐ LIỆU THỐNG KÊ KT-XH GVHD: TS TRẦN TRỌNG ĐỨC Hình III.15: Biểu tượng shape file ArcCatalog Hình III.16: Mơ hình Geodatabase Hình III.17: Thành phần GeodataBase Hình III.18: Nonspatial table Hình III.19: Minh họa mối quan hệ topology vùng điểm Hình III.20: Relationship Hình III.21: Mơ hình đối tượng thư viện Arcobject Hình IV.1: Sơ đồ tổng quát quy trình xây dựng sở liệu Hình IV.2: Các thực thể mơ hình sở liệu Hình IV.3: Các mối quan hệ CSDL Hình IV.4: Dữ liệu khơng gian thơng tin thuộc tính liên hệ thơng qua MAHC Hình IV.5: Sơ đồ sở liệu theo thời gian Hình IV.6: Sơ đồ liệu điều tra dân số Hình IV.7: Tạo GeodataBase ArcCatalog Hình IV.8: Các bước tạo lớp RG_HANHCHINH Hình IV.9: Các bước tạo lớp RG_HANHCHINH (tt) Hình IV.10: Tạo bảng Hình IV.11: Cách đưa liệu từ shapefile vào GeodataBase Hình IV.12: Cấu trúc Geodatabase mơ hình Hình V.1: Sơ đồ mơ tả chức hệ thống Hình V.2: Quy trình hiển thị số liệu thống kê hàng năm giao diện thiết kế Hình V.3: Quy trình chọn đối tượng Hình V.4: Quy trình hiển thị thông tin tổng điều tra dân số giao diện thiết kế Hình V.5: Quy trình phân loại đơn biến giao diện thiết kế Hình V.6: Quy trình phân loại kết hợp phép tốn đơn giản, giao diện thiết kế Hình V.7: Quy trình phân loại theo số bình quân nhiều chiều, giao diện thiết kế Hình V.8: Quy trình tính tốn theo số bình quân nhiều chiều Hình V.9: Quy trình phân loại thuật tốn K-Means, giao diện thiết kế Hình V.10: Quy trình chức hiển thị số liệu biểu đồ, giao diện thiết kế Hình V.11: Sơ đồ liên kết bảng chức truy xuất liệu theo thời gian Hình V.12: Quy trình thể liệu theo thời gian theo tiêu chí, giao diện thiết kế Hình V.13: Giao diện biểu diễn liệu theo thời gian kết hợp nhiều tiêu chí Hình V.14: Quy trình mơ tả chức thống kê đơn biến, giao diện thiết kế Hình V.15: Quy trình thực chức thống kê đa biến, giao diện thiết kế Hình V.16: Giao diện chương trình Học viên: Bùi Thị Hồng Đào 49 49 50 51 51 52 54 56 60 61 62 65 65 66 67 68 68 69 69 71 74 75 76 77 78 79 80 81 82 83 84 84 85 85 86 Trang viii ỨNG DỤNG GIS TRONG QUẢN LÝ SỐ LIỆU THỐNG KÊ KT-XH GVHD: TS TRẦN TRỌNG ĐỨC Hình V.17: Menu chương trình Hình V.18: Menu “Dữ liệu” Hình V.19: Menu “Quản lý số liệu thống kê KT-XH” Hình V.20: Các chức menu “Quản lý số liệu thống kê KT-XH” Hình V.21: Menu “Trợ giúp” Hình VI.1: Hình minh họa chức hiển thị thơng tin thống kê hàng năm Hình VI.2: Hiển thị thơng tin kết hợp biểu diễn số liệu qua biểu đồ Hình VI.3: Minh họa chức hiển thị thông tin tổng điều tra theo quận, kết hợp với biểu đồ Hình VI.4: Kết phân loại theo tiêu chí học sinh phổ thơng Hình VI.5: Kết phân loại theo tiêu chí (số học sinh phổ thơng/ số giáo viên phổ thơng) Hình VI.6: Kết phân loại theo số bình quân nhiều chiều theo tiêu chí Hình VI.7: Kết phân loại thể cách liệt kê theo nhóm Hình VI.8: Kết thể dạng bảng xếp hạng Hình VI.9: Phân loại đa biến theo thuật toán K-Means theo tiêu chí: trường phổ thơng, học sinh phổ thơng, giáo viên phổ thơng Hình VI.10: Kết chức biểu diễn số liệu theo thời gian qua tiêu chí số học sinh phổ thơng Hình VI.11: Kết tỷ lệ tăng học sinh phổ thơng Hình VI.12: Số liệu học sinh phổ thơng qua năm quận Gị Vấp Hình VI.13: Diện tích trồng lúa qua năm quận Thủ Đức Hình VI.14: Tổng dân số quận Gị Vấp qua năm Hình VI.15: Cơ cấu dân số theo độ tuổi biểu diễn qua biểu đồ hình trịn Hình VI.16: Thống kê diện tích trồng lúa Hình VI.17: Kết chức thống kê đa biến Học viên: Bùi Thị Hồng Đào 86 86 87 87 88 90 90 91 92 92 93 93 93 94 95 95 95 95 96 97 97 98 Trang ix PHỤ LỤC GVHD: TS TRẦN TRỌNG ĐỨC nhom = nhom & pFeature.Value(3) & "," End If Set pFeature = pCursor.NextFeature Loop chuoi = chuoi & nhom & vbCrLf Next k frm_phanloainhieuTC.txt_nhom.Value = chuoi ' Set pClassBreaksRenderer = New ClassBreaksRenderer With pClassBreaksRenderer Field = tenField '.Field = "Phan loai theo " & Val(frm_phanloainhieuTC.lbx_2.ListCount) & " tieu chi" BreakCount = Val(frm_phanloainhieuTC.txtnumber.Value) MinimumBreak = Classes(0) End With ' tao bang mau Dim pAlgoRamp As IAlgorithmicColorRamp Dim pColors As IEnumColors Set pAlgoRamp = New AlgorithmicColorRamp With pAlgoRamp Algorithm = esriCIELabAlgorithm ToColor = GetRGBColor(Rnd * 255, Rnd * 255, Rnd * 255) FromColor = GetRGBColor(Rnd * 255, Rnd * 255, Rnd * 255) size = Val(frm_phanloainhieuTC.txtnumber.Value) CreateRamp (True) End With Set pColors = pAlgoRamp.Colors Dim pFillSymbol As IFillSymbol Dim i As Integer For i = To pClassBreaksRenderer.BreakCount - Học viên: Bùi Thị Hồng Đào Trang 111 PHỤ LỤC GVHD: TS TRẦN TRỌNG ĐỨC Set pFillSymbol = New SimpleFillSymbol pFillSymbol.Color = pColors.Next pClassBreaksRenderer.Symbol(i) = pFillSymbol pClassBreaksRenderer.Break(i) = Classes(i + 1) pClassBreaksRenderer.Label(i) = "Nhom " & (i + 1) Next i Dim pGeoFeatureLayer As IGeoFeatureLayer Set pGeoFeatureLayer = pLayer Set pGeoFeatureLayer.Renderer = pClassBreaksRenderer Dim pLegendInfo As ILegendInfo Set pLegendInfo = pClassBreaksRenderer pLegendInfo.LegendGroup(0).Heading = "Phan loai Val(frm_phanloainhieuTC.lbx_2.ListCount) & " tieu chi" theo " & pMxDoc.ActiveView.PartialRefresh esriViewGeography, pLayer, Nothing pMxDoc.UpdateContents End Function ) Các hàm thực phân loại theo thuật toán K-Means Private data() 'Ma tran du lieu Private d() 'Ma tran khoang cach Private group() 'Matran nhom Private group_0() 'Matran nhom Private Centroid() 'Matran tam 'Tinh ma tran khoang cach Function tinh_MT_khoangcach(data(), Centroid(), sonhom As Integer) ReDim d(1 To sonhom + 1, To 24) ' Hang dau tien luu MAHC Dim tam As Double For i = To sonhom + For cot = To 24 tam = For hang = To frm_K_Means.lbx_tieuchichon.ListCount + Học viên: Bùi Thị Hồng Đào Trang 112 PHỤ LỤC GVHD: TS TRẦN TRỌNG ĐỨC If i = Then d(i, cot) = data(i, cot) Else tam = tam + ((data(hang, cot) - Centroid(hang - 1, i - 1)) ^ 2) End If Next hang If i Then d(i, cot) = Sqr(tam) End If Next cot Next i tinh_MT_khoangcach = d End Function 'Tinh ma tran Group Function xepnhom(d(), sonhom As Integer) ReDim group(1 To sonhom + 1, To 24) ' Hang dau tien luu MAHC For cot = To 24 group(1, cot) = d(1, cot) Next cot For nhom = To sonhom + For cot = To 24 min_cot = d(nhom, cot) For hang = To sonhom + If min_cot > d(hang, cot) Then min_cot = d(hang, cot) group(nhom, cot) = Exit For End If Next hang If min_cot = d(nhom, cot) Then group(nhom, cot) = Next cot Học viên: Bùi Thị Hồng Đào Trang 113 PHỤ LỤC GVHD: TS TRẦN TRỌNG ĐỨC Next nhom xepnhom = group End Function 'Tinh lai tam Function tinhlaitam(data(), group(), sonhom As Integer, b As Integer) 'Tinh lai tam thi ko can hang MAHC, nen so hang cua tam = so tieu chi chon ReDim Centroid(1 To b - 1, To sonhom) Dim count As Integer For hang_group = To sonhom + For hang_data = To b giatri = count = For cot_group = To 24 If group(hang_group, cot_group) = Then giatri = giatri + data(hang_data, cot_group) count = count + End If Next cot_group Centroid(hang_data - 1, hang_group - 1) = giatri / count Next hang_data Next hang_group tinhlaitam = Centroid End Function Sub phanloai_K(group(), sonhom As Integer) Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument Dim pMap As IMap Set pMap = pMxDoc.FocusMap Dim pLayer As ILayer Set pLayer = pMap.Layer(0) Học viên: Bùi Thị Hồng Đào Trang 114 PHỤ LỤC GVHD: TS TRẦN TRỌNG ĐỨC Dim pFlayer As IFeatureLayer Set pFlayer = pLayer Dim pFclass As IFeatureClass Set pFclass = pFlayer.FeatureClass Dim pTable As ITable Set pTable = pLayer Dim pCursor As ICursor Set pCursor = pTable.Search(Nothing, False) Dim pRow As IRow Set pRow = pCursor.NextRow Dim pGFlayer As IGeoFeatureLayer Set pGFlayer = pFlayer Dim pRandomColorRamp As IColorRamp Set pRandomColorRamp = New RandomColorRamp pRandomColorRamp.size = 2000 pRandomColorRamp.CreateRamp True ' Dim pColor As IColor Dim numColor As IEnumColors 'Tao mau ngau nhien Set numColor = pRandomColorRamp.Colors numColor.Reset ' Dim psym As ISimpleFillSymbol Set psym = New SimpleFillSymbol psym.Style = esriSFSSolid psym.Outline.Width = ' Dim numberField As Integer numberField = pFclass.Fields.FindField("MAHC") Dim pUniqueRender As IUniqueValueRenderer Học viên: Bùi Thị Hồng Đào Trang 115 PHỤ LỤC GVHD: TS TRẦN TRỌNG ĐỨC Set pUniqueRender = New UniqueValueRenderer ' pUniqueRender.FieldCount = pUniqueRender.Field(0) = "MAHC" pUniqueRender.DefaultSymbol = psym pUniqueRender.UseDefaultSymbol = False ' Dim codevalue As String For hang = To sonhom + codevalue = "Nhom" & hang - Set pCursor = pTable.Search(Nothing, False) Set pRow = pCursor.NextRow Set pColor = numColor.Next If pColor Is Nothing Then numColor.Reset Set pColor = numColor.Next End If Dim symx As ISimpleFillSymbol Set symx = New SimpleFillSymbol symx.Style = esriSFSSolid symx.Outline.Width = 0.4 symx.Color = pColor ' Dim chuoi1 As String chuoi1 = "" Dim count As Integer count = For cot = To 24 If group(hang, cot) = Then If count = Then chuoi1 = group(1, cot) Học viên: Bùi Thị Hồng Đào Trang 116 PHỤ LỤC GVHD: TS TRẦN TRỌNG ĐỨC pUniqueRender.AddValue group(1, cot), "", symx pUniqueRender.Label(chuoi1) = codevalue pUniqueRender.Symbol(chuoi1) = symx Else pUniqueRender.AddReferenceValue group(1, cot), chuoi1 End If count = count + End If Next cot Set pGFlayer.Renderer = pUniqueRender Next hang pMxDoc.ActivatedView.ContentsChanged pMxDoc.UpdateContents pMxDoc.ActivatedView.Refresh End Sub ) Các hàm thực biểu diễn biểu đồ Tạo biểu đồ tròn Sub Tao_bieu_do_Piechart(a As Integer) 'Khai bao bien Dim pMap As IMap Dim pDoc As IMxDocument Dim pGFlayer As IGeoFeatureLayer Set pDoc = ThisDocument Set pMap = pDoc.FocusMap Dim pLayer As ILayer Set pLayer = pMap.Layer(0) Dim pFlayer As IFeatureLayer Set pFlayer = pLayer Dim pFclass As IFeatureClass Học viên: Bùi Thị Hồng Đào Trang 117 PHỤ LỤC GVHD: TS TRẦN TRỌNG ĐỨC Set pFclass = pFlayer.FeatureClass Dim pTable As ITable Set pTable = pLayer Dim pCursor As ICursor Set pCursor = pTable.Search(Nothing, False) Dim pRow As IRow Set pRow = pCursor.NextRow 'tao mot marksym Dim pPieChartSym As IPieChartSymbol Dim pFillSym As IFillSymbol Dim pMarkerSym As IMarkerSymbol Dim pSymbolArray As ISymbolArray Dim pChartSym As IChartSymbol Dim pChartRen As IChartRenderer Dim pRenderFields As IRendererFields 'Create a new pie chart symbol Set pPieChartSym = New PieChartSymbol pPieChartSym.Clockwise = True Set pMarkerSym = pPieChartSym Set pChartSym = pPieChartSym pMarkerSym.size = 26 Set pSymbolArray = pPieChartSym 'Set up the fill symbols for the pie chart pieces Dim i As Integer For i = To a Set pFillSym = New SimpleFillSymbol 'pFillSym.Color = GetRGBColor(213, 212, 252) ' Học viên: Bùi Thị Hồng Đào Trang 118 PHỤ LỤC GVHD: TS TRẦN TRỌNG ĐỨC pFillSym.Color = GetRGBColor(Rnd * 255, Rnd * 255, Rnd * 255) pSymbolArray.AddSymbol pFillSym Next i ' -'Create a new chart renderer Set pChartRen = New ChartRenderer Set pRenderFields = pChartRen Dim STT_field As Integer Dim ten_field As String Dim pie_title As String pie_title = "Bieu do" For i = To a - STT_field = index_field(frm_thehienbieudo.lbx_tcChon.List(i)) ten_field = pTable.Fields.Field(STT_field).Name pRenderFields.AddField ten_field pie_title = pie_title & frm_thehienbieudo.lbx_tcChon.List(i) & ", " Next i Set pChartRen.ChartSymbol = pPieChartSym pChartRen.UseOverposter = False Set pFillSym = New SimpleFillSymbol pFillSym.Color = GetRGBColor(239, 228, 190) 'Tan Set pChartRen.BaseSymbol = pFillSym pChartRen.Label = pie_title pChartRen.CreateLegend Set pGFlayer = pMap.Layer(0) Set pGFlayer.Renderer = pChartRen 'Refresh the Screen Học viên: Bùi Thị Hồng Đào Trang 119 PHỤ LỤC GVHD: TS TRẦN TRỌNG ĐỨC pDoc.ActiveView.Refresh pDoc.UpdateContents End Sub Tạo biểu đồ cột Sub Tao_bieu_do_barchart(a As Integer, b As Double) Dim pMap As IMap Dim pDoc As IMxDocument Dim pGFlayer As IGeoFeatureLayer Set pDoc = ThisDocument Set pMap = pDoc.FocusMap Dim pLayer As ILayer Set pLayer = pMap.Layer(0) Dim pFlayer As IFeatureLayer Set pFlayer = pLayer Dim pFclass As IFeatureClass Set pFclass = pFlayer.FeatureClass Dim pTable As ITable Set pTable = pLayer Dim pCursor As ICursor Set pCursor = pTable.Search(Nothing, False) Dim pRow As IRow Set pRow = pCursor.NextRow ' -Dim pBarChartSymbol As IBarChartSymbol, pFillSymbol As IFillSymbol Dim pMarkerSymbol As IMarkerSymbol, pSymbolArray As ISymbolArray Dim pChartSymbol As IChartSymbol, pChartRenderer As IChartRenderer Dim pRendererFields As IRendererFields Học viên: Bùi Thị Hồng Đào Trang 120 PHỤ LỤC GVHD: TS TRẦN TRỌNG ĐỨC ' Create a new bar chart symbol Set pBarChartSymbol = New BarChartSymbol ' Set the width of each bar - units are points pBarChartSymbol.Width = 10 Set pMarkerSymbol = pBarChartSymbol ' QI to marker symbol interface Set pChartSymbol = pBarChartSymbol ' QI to chart symbol interface 'pChartSymbol.MaxValue = 263459 ' This is the biggest value of all bars pChartSymbol.MaxValue = b pMarkerSymbol.size = 40 ' This is the maximum height of the biggest bar Set pSymbolArray = pBarChartSymbol ' -Dim i As Integer For i = To a Set pFillSymbol = New SimpleFillSymbol 'pFillSymbol.Color = GetRGBColor(213, 212, 252) ' pastel green pFillSymbol.Color = GetRGBColor(Rnd * 255, Rnd * 255, Rnd * 255) pSymbolArray.AddSymbol pFillSymbol Next i ' -Set pChartRenderer = New ChartRenderer ' Create a new chart renderer ' Set up the fields that comprise the components of a chart; a bar in ' a bar chart or a slice of a pie chart Set pRendererFields = pChartRenderer Dim STT_field As Integer Dim ten_field As String Dim bar_title As String bar_title = "Bieu " Học viên: Bùi Thị Hồng Đào Trang 121 PHỤ LỤC GVHD: TS TRẦN TRỌNG ĐỨC For i = To a - STT_field = index_field(frm_thehienbieudo.lbx_tcChon.List(i)) ten_field = pTable.Fields.Field(STT_field).Name pRendererFields.AddField ten_field bar_title = bar_title & frm_thehienbieudo.lbx_tcChon.List(i) & ", " Next i ' Set the chart symbol into the renderer This could also be a stacked ' bar or pie chart Set pChartRenderer.ChartSymbol = pBarChartSymbol Set pFillSymbol = New SimpleFillSymbol pFillSymbol.Color = GetRGBColor(239, 228, 190) Set pChartRenderer.BaseSymbol = pFillSymbol ' Disable so that charts appear in polygon centers pChartRenderer.UseOverposter = False pChartRenderer.CreateLegend ' Create the legend symbols pChartRenderer.Label = bar_title Set pGFlayer = pMap.Layer(0) Set pGFlayer.Renderer = pChartRenderer 'Refresh the Screen pDoc.ActiveView.Refresh pDoc.UpdateContents End Sub Học viên: Bùi Thị Hồng Đào Trang 122 TÀI LIỆU THAM KHẢO GVHD: TS TRẦN TRỌNG ĐỨC TÀI LIỆU THAM KHẢO A TIẾNG ANH Bob Booth, Scott Crosier, Jill Clark, Andy MacDonald, Building a [1] Geodatabase, Copyright © 1999–2002 ESRI Chengming LI, Zhongjian LIN, Jie YIN, Investigation on Application of [2] GIS in Population Management, China Kang-Tsung Chang, Programming ArcObject With VBA, Copyright © 2005 [3] by CRC Press LLC [4] [5] [6] [7] [8] [9] PhD Kardi Teknomo, K-Means Clustering Tutorial, July 2007 Makoto ISHIZUKA, Tetsunari GEJO, Shigeya OOTSUKA and Yukiyasu SUMI, Integration of GIS and Multivariate Statistical Analysis in Master Plan Study on Integrated Agricultural Development in Lao PDR Marc Futtermen, Civic Technologies, Inc.; Laurel Patric, Former Director of Libraries, Glendale Public Library; Cyndy Cleary, Assistant Director of Libraries, Glendale Public Library, The Glendale Public Library Uses GIS to Plan the Future Michael Zeiler, Exploring ArcObject TM Vol 1-Application and Cartograph, Copyright © 2001ESRI Prof Olubodun O AYENI and Oluwaseun S ADEWALE, GIS Queries for Population Data Analysis and Management, Nigeria University of Manchester, Use of GIS to understand socio-demographic th and economic change: a workshop, Friday June 27 2003 B TIẾNG VIỆT [10] Cục thống kê Tp Hồ Chí Minh, Niên giám thống kê Thành phố Hồ Chí Minh 2007, Nhà xuất Thống kê, 2007 [11] Trần Trọng Đức, Lập trình GIS bản, 2008 [12] Trần Trọng Đức, Giáo trình phân tích khơng gian, 2002 [13] Đỗ Văn Huân , Chỉ số bình quân nhiều chiều, Viện KHTK [14] [15] [16] NTH (sưu tầm), Chỉ số phát triển người, Báo cáo phát triển người 2001 PGS.TS Tăng Văn Khiên, Chỉ số phát triển người, Thông tin Khoa học Thống kê - Chuyên san Các số thống kê tổng hợp Tập thể tác giả, Một số vấn đề phương pháp luận thống kê, NXB Thống kê, Hà Nội, 2001 Học viên: Bùi Thị Hồng Đào Trang 123 TÀI LIỆU THAM KHẢO GVHD: TS TRẦN TRỌNG ĐỨC C.INTERNET [17] ESRI, http://www.esri.com/ [18] Cục thống kê thành http://www.pso.hochiminhcity.gov.vn/ [19] Quỹ tiền tệ quốc tế: http://www.imf.org/external/datamapper/index.php [20] Internet GIS for Malaysian Population Analysis.htm [21] Viện khoa học thống kê: http://iss.gso.gov.vn [22] Trung tâm thông tin - Bộ Tài ngun Mơi trường: www.ciren.gov.vn phố Hồ Chí Minh: D KHÁC [23] [24] Thủ tướng Chính phủ, Quyết định số 305/2005/QĐ-TTg, Hệ thống tiêu thống kê quốc gia Thủ tướng Chính phủ, Quyết định số 144/2008/QĐ-TTg, Chương trình điều tra thống kê quốc gia Học viên: Bùi Thị Hồng Đào Trang 124 ỨNG DỤNG GIS TRONG QUẢN LÝ SỐ LIỆU THỐNG KÊ KT-XH GVHD: TS TRẦN TRỌNG ĐỨC LÝ LỊCH TRÍCH NGANG Họ tên: Bùi Thị Hồng Đào Ngày, tháng, năm sinh: 20/11/1982 Nơi sinh: Long An Địa liên lạc: 56A- Bùi Minh Trực- Phường 6- Quận 8- Tp.Hồ Chí Minh Q TRÌNH ĐÀO TẠO - Năm 2001-2006: học đại học trường đại học Bách Khoa, Tp Hồ Chí Minh - Năm 2007-nay: học cao học trường đại học Bách Khoa, Tp Hồ Chí Minh Q TRÌNH CƠNG TÁC - Năm 2006- 03/2009: làm việc Xí nghiệp Đo vẽ ảnh số Địa tin học – Cơng ty Đo đạc Địa Cơng trình Học viên: Bùi Thị Hồng Đào Trang 125 ... thống kê kinh tế xã hội hợp lý Với chức đa dạng hệ thống thông tin địa lý (GIS) , với yêu cầu việc quản lý thông tin kinh tế xã hội thành phố nay, việc ứng dụng GIS vào quản lý thông tin kinh tế xã. .. QUẢN LÝ THÔNG TIN KINH TẾ – XÃ HỘI GVHD: TS TRẦN TRỌNG ĐỨC CHƯƠNG II: QUẢN LÝ THÔNG TIN KINH TẾ - XÃ HỘI II.1 NỘI DUNG VỀ QUẢN LÝ THÔNG TIN KINH TẾ - XÃ HỘI II.1.1 Giới thiệu thông tin kinh tế. .. đồ - Viễn thám GIS MSHV : 01007143 I Tên đề tài: Ứng dụng GIS quản lý số liệu thống kê kinh tế - xã hội II Nhiệm vụ nội dung: Tìm hiểu trạng quản lý số liệu thống kê kinh tế - xã hội thành phố