Nghiên cứu bản đồ cổ và xây dựng công cụ quản lý, tra cứu thông tin bản đồ cổ

ĐẠI HỌC QUỐC GIA TP.HCM TRƯỜNG ĐẠI HỌC BÁCH KHOA ĐẶNG LÊ TRẦM HƯƠNG NGHIÊN CỨU BẢN ĐỒ CỔ VÀ XÂY DỰNG CÔNG CỤ QUẢN LÝ, TRA CỨU THÔNG TIN BẢN ĐỒ CỔ Chuyên ngành: Bản đồ, viễn thám hệ thông tin địa lý Mã số: 604476 LUẬN VĂN THẠC SĨ TP HỒ CHÍ MINH, tháng năm 2013 Cơng trình hồn thành tại: Trường Đại học Bách Khoa – ĐHQG - TP.HCM Cán hướng dẫn khoa học: TS VŨ XUÂN CƯỜNG Cán chấm nhận xét 1: TS LÊ MINH VĨNH Cán chấm nhận xét 2: TS NGUYỄN VĂN LUYỆN Luận văn thạc sĩ bảo vệ Trường Đại học Bách Khoa, ĐHQG Tp.HCM ngày 05 tháng 03 năm 2013 Thành phần hội đồng đánh giá luận văn thạc sĩ gồm: PGS.TS TRẦN TRỌNG ĐỨC - Chủ tịch hội đồng PGS.TS NGUYỄN KIM LỢI TS LÊ MINH VĨNH TS VŨ XUÂN CƯỜNG TS NGUYỄN VĂN LUYỆN Xác nhận Chủ tịch Hội đồng đánh giá luận văn Bộ môn quản lý chuyên ngành sau luận văn sửa chữa (nếu có) CHỦ TỊCH HỘI ĐỒNG BỘ MƠN ĐẠI HỌC QUỐC GIA TP.HCM 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 NHIỆM VỤ LUẬN VĂN THẠC SĨ Họ tên học viên: Đặng Lê Trầm Hương MSHV: 10100379 Ngày, tháng, năm sinh: 22/3/1987 Nơi sinh: Nha Trang, Khánh Hòa Ngành: Bản đồ, Viễn thám Hệ thông tin địa lý Mã số: 60 44 76 I TÊN ĐỀ TÀI: Nghiên cứu đồ cổ xây dựng công cụ quản lý, tra cứu thông tin đồ cổ II NHIỆM VỤ VÀ NỘI DUNG: − Hệ thống hóa kiến thức lịch sử phát triển Bản đồ học hướng nghiên cứu đồ nay, trọng sử dụng đồ − Nghiên cứu đồ cổ sử dụng đồ cổ theo đặc thù Việt Nam − Đề xuất minh họa phương án khai thác, sử dụng hiệu đồ cổ Việt Nam III NGÀY GIAO NHIỆM VỤ : 02/07/2012 IV NGÀY HOÀN THÀNH NHIỆM VỤ: 30/11/2012 V CÁN BỘ HƯỚNG DẪN: TS Vũ Xuân Cường Tp HCM, ngày tháng năm 20 CÁN BỘ HƯỚNG DẪN CHỦ NHIỆM BỘ MÔN ĐÀO TẠO (Họ tên chữ ký) (Họ tên chữ ký) TRƯỞNG KHOA KHOA KỸ THUẬT XÂY DỰNG (Họ tên chữ ký) Luận văn Thạc sĩ GVHD: TS Vũ Xuân Cường LỜI CẢM ƠN Sau thời gian học tập nghiên cứu, giúp đỡ, giảng dạy hướng dẫn tận tình thầy cô thuộc Bộ môn Địa Tin học, cô Lê Minh Vĩnh đặc biệt hướng dẫn trực tiếp TS Vũ Xn Cường, tơi hồn thành luận văn thạc sĩ: “Nghiên cứu đồ cổ xây dựng công cụ quản lý, tra cứu thông tin đồ cổ” Tơi xin bày tỏ lịng biết ơn sâu sắc đến TS Vũ Xuân Cường trực tiếp bảo, hướng dẫn thực thành công đề tài nghiên cứu Em xin trân trọng bày tỏ lòng biết ơn chân thành tới thầy cô giáo truyền thụ cho em kiến thức vơ bổ ích năm học vừa qua Em xin chân thành cảm ơn cô Lê Minh Vĩnh giảng dạy bảo, hướng dẫn giúp em hoàn thành luận văn Tôi xin chân thành cảm ơn Nhà nghiên cứu Nguyễn Đình Đầu dẫn, tư vấn, cho tơi nhiều ý kiến q báu kinh nghiệm phương pháp tiếp cận nghiên cứu đồ cổ Tôi xin gửi lời cám ơn cô Phương Nam Chi cục đo đạc đồ phía Nam giúp đỡ cho tơi nhiều lời khun bổ ích suốt thời gian em thu thập thông tin đồ cổ từ sưu tập nhà nghiên cứu Nguyễn Đình Đầu Cuối tơi xin gửi lời cám ơn đến gia đình, bạn bè ln bên tơi, động viên khuyến khích tơi suốt q trình thực đề tài luận văn Xin trân trọng cảm ơn! TP Hồ Chí Minh, ngày tháng 12 năm 2012 Đặng Lê Trầm Hương HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ GVHD: TS Vũ Xuân Cường TÓM TẮT LUẬN VĂN THẠC SĨ Nghiên cứu đồ cổ xây dựng công cụ quản lý, tra cứu thông tin đồ cổ Bản đồ minh chứng lịch sử quan trọng, đặc biệt đồ cổ Thông qua đồ này, nhận thấy dấu vết khứ, biến đổi diễn suốt chiều dài lịch sử tồn vong phát triển đất nước qua thời kỳ Qua nghiên cứu tổng quan lịch sử phát triển Bản đồ học hướng nghiên cứu đồ nay, đặc biệt hướng sử dụng đồ Chúng thấy mảng sử dụng đồ Việt nam chưa quan tâm mức Từ thực trạng kết hợp với tầm quan trọng đồ cổ, tập trung nghiên cứu phương pháp sử dụng đồ cổ Và tiến tới đề xuất phương pháp tiếp cận, khai thác thông tin từ đồ cổ theo đặc thù Việt Nam Từ kết nghiên cứu người sử dụng, hướng nghiên cứu đồ cổ theo đặc thù Việt Nam, thấy đối tượng sử dụng đồ cổ nhà nghiên cứu lịch sử, văn hóa; nhà quy hoạch phát triển đô thị; nhà nghiên cứu đồ cổ nhằm đưa minh chứng chủ quyền lãnh thổ quốc gia Bên cạnh có số lượng không nhỏ người dân quan tâm đến lĩnh vực này, đối tượng có nhu cầu tiếp cận sử dụng đồ cổ Hiện phương pháp sử dụng thích hợp đồ cổ phương pháp đọc suy giải đồ, phương pháp so sánh đồ phương pháp mơ hình hóa đồ Do tình trạng vật lý phần lớn đồ cổ xuống cấp lưu trữ phân tán nhiều quan, cá nhân; vấn đề cấp bách cần thống kê thu thập thông tin đầy đủ đồ cổ Việt Nam Đồng thời cần có hướng tiếp cận người sử dụng tìm sử dụng đồ cổ cách dễ dàng hiệu HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ GVHD: TS Vũ Xuân Cường Xuất phát từ nhu cầu trên, nghiên cứu, phân tích, thành lập sở liệu thơng tin đồ cổ xây dựng website quản lý, tra cứu thông tin đổ cổ Việt Nam Website cho phép người sử dụng tra cứu thông tin đồ cổ, tìm kiếm đồ cổ dựa việc tùy chọn tiêu chí tổ hợp tiêu chí tra cứu nhiệm vụ nghiên cứu đặt Website quản lý, tra cứu thông tin đổ cổ tảng cho việc triển khai công tác sưu tầm diện rộng, tổng hợp quản lý đồ cổ từ nhiều nguồn, nhiều sưu tập khác nhau, nước nước Dựa sở thông tin đồ cổ, người nghiên cứu dễ dàng tìm hướng tiếp cận đồ cổ, nâng cao giá trị sử dụng đồ cổ, góp phần cho công tác tuyên truyền lịch sử dân tộc, phục vụ đấu tranh bảo vệ chủ quyền lãnh thổ, lãnh hải Việt Nam HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ GVHD: TS Vũ Xuân Cường ABSTRACT Study the old maps and Construct tools to manage and look up information of the old map Map is a very important historical evidence, especially the old map Through these maps, we can see traces of the past, changes have taken place throughout history as well as the survival and development of the country over time Through research overview of the development history of cartography and current research directions on the maps, particular for direction to use the map We see that, at present, the use of maps in Vietnam has not been adequate attention From the above situation, combined with the importance of old maps, we focus to research on method to use the map and proceed to propose approaches and effective exploitation of information on old maps in particular in Vietnam From the results of research on user, directions research on old map with characteristics of Vietnam, we found that subjects to use old maps is researchers of the history and culture; urban development planning; researchers old map in order to give evidence of national sovereignty In addition it also has a considerable number of people interested in this problem, it is also an object needs to approach to and use of the old maps Currently, the method using maps suitable for old maps is the method of reading the map combines deductive and interpretation method the map, method of comparing maps and map modeling method Due to the physical condition of so many old map has been degraded and by the old maps are being distributed storage in many agencies and individuals; Therefore, it is imperative to the statistics and collect the complete information of the Viet Nam old maps At the same time, there should be a new approach so that all users can find and use the old maps more easily and efficient Derived from these needs, we have studied, analyzed, established database old maps and built the website to manage and look up information of the Việt Nam old HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ GVHD: TS Vũ Xuân Cường maps Website allows users to look up information of old maps, search for old maps based on the option criteria or a combination of search criteria set by the research tasks Website to manage, look up information the old maps which will be the foundation for the deployment of the extensive collection, synthesis and management of old maps from various sources, many different collections, both at home and abroad Based on the old map information, the researchers can more easily find approaches to old maps, enhance the value of using of the old maps, contribute to the propagation on national history, serve the struggle for sovereignty, territorial sea of Vietnam HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ GVHD: TS Vũ Xuân Cường LỜI CAM ĐOAN Tên Đặng Lê Trầm Hương, học viên lớp cao học ngành “Bản đồ, Viễn thám Hệ thông tin địa lý”, Khóa 2010 Tơi xin cam đoan tồn nội dung luận văn Thạc sĩ ”Nghiên cứu đồ cổ xây dựng công cụ quản lý, tra cứu thông tin đồ cổ” tự nghiên cứu, khảo sát thực Học viên thực luận văn Đặng Lê Trầm Hương HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ GVHD: TS Vũ Xuân Cường MỤC LỤC CHƯƠNG I: MỞ ĐẦU - 1.1 ĐẶT VẤN ĐỀ – LÝ DO CHỌN ĐỀ TÀI - 1.2 MỤC TIÊU CỦA ĐỂ TÀI - 1.3 ĐỐI TƯỢNG, PHẠM VI NGHIÊN CỨU CỦA ĐỀ TÀI - 1.4 PHƯƠNG PHÁP NGHIÊN CỨU - 1.5 NỘI DUNG ĐỀ TÀI - 1.6 Ý NGHĨA ĐỀ TÀI - CHƯƠNG II: TỔNG QUAN VỀ BẢN ĐỒ - 2.1 LỊCH SỬ PHÁT TRIỂN CỦA BẢN ĐỒ HỌC - 2.1.1 Thời kỳ cổ đại - 2.1.2 Bản đồ học thời Trung cổ (thế kỷ V đến kỷ XVII) - 2.1.3 Bản đồ học thời cận đại (nửa cuối kỷ XVII kỷ XVIII) - 12 2.1.4 Bản đồ học thời đại - 14 2.2 CÁC HƯỚNG NGHIÊN CỨU TRONG BẢN ĐỒ HỌC .- 18 2.2.1 Toán đồ - 18 2.2.2 Phương pháp thành lập đồ - 18 2.2.3 Phương pháp thể nội dung đồ - 19 2.2.4 In ấn đồ - 19 2.2.5 Sử dụng đồ - 19 2.3 SỬ DỤNG BẢN ĐỒ - 20 2.3.1 Tìm hiểu chung sử dụng đồ - 20 2.3.2 Phương pháp sử dụng đồ - 21 2.3.4 Các hình thức sử dụng đồ - 25 2.3.2 Sử dụng đồ Việt Nam - 27 CHƯƠNG III: NGHIÊN CỨU BẢN ĐỒ CỔ VIỆT NAM - 29 3.1 LỊCH SỬ PHÁT TRIỂN BẢN ĐỒ Ở VIỆT NAM .- 29 3.2 TỔNG QUAN TÌNH HÌNH NGHIÊN CỨU BẢN ĐỒ CỔ - 34 3.2.1 Ngoài nước - 34 3.2.2 Trong nước - 38 - HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ - 83 - GVHD: TS Vũ Xuân Cường PHỤ LỤC MÃ NGUỒN CHƯƠNG TRÌNH TRA CỨU THƠNG TIN BẢN ĐỒ CỔ Partial Class LookupMaps Inherits System.Web.UI.Page Protected Sub ListBox1_SelectedIndexChanged(sender System.EventArgs) Handles List1.SelectedIndexChanged As Object, e As Dim st As String : Dim chonL1 As Integer HienAnh.Text = On Error GoTo abc chonL1 = List1.SelectedValue : T1.Text = ““ : T2.Text = ““ Select Case chonL1 Case 'Khu vực st = “SELECT DISTINCT [KHU VỰC], [MKV] FROM [ban do]” & TCLG.Text & “[MKV] is not null ORDER BY [MKV]” DS2.SelectCommand = st List2.DataTextField = “KHU VỰC” List2.DataValueField = “KHU VỰC” Case st = “SELECT DISTINCT [NĂM THÀNH TCLG.Text & “[NĂM THÀNH LẬP/XUẤT LẬP/XUẤT BẢN]” DS2.SelectCommand = st List2.DataTextField = “NXB”: 'theo năm LẬP/XUẤT BẢN] AS NXB FROM [ban do]” & BẢN] is not null ORDER BY [NĂM THÀNH List2.DataValueField = “NXB” Case 'Theo Chuyên đề st = “SELECT DISTINCT [LOẠI BẢN ĐỒ] AS CD FROM [ban do] “ & _ TCLG.Text & “[LOẠI BẢN ĐỒ] is not null ORDER BY [LOẠI BẢN ĐỒ]” DS2.SelectCommand = st List2.DataValueField = “CD” List2.DataTextField = “CD”: Case 'Biển đảo If InStr(DKLG.Text, “[BIỂN ĐẢO]”, CompareMethod.Text) = Then DKL.Text = DKLG.Text & “ Chuyên đề [BIỂN ĐẢO]” TCL.Text = TCLG.Text & “NOT ([BIỂN ĐẢO]=““““ )” Else List2.Visible = True End If st = “SELECT DISTINCT [BIỂN ĐẢO], [MBD] FROM [ban do]” & TCLG.Text & “[MBD] is not null ORDER BY [MBD]” DS2.SelectCommand = st List2.DataTextField = “BIỂN ĐẢO” List2.DataValueField = “BIỂN ĐẢO” STT.SelectedIndex = HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ - 84 - GVHD: TS Vũ Xuân Cường HienAnh.Text = : Hien5A(True) : BangTTBD.SelectCommand = “SELECT * FROM [ban STT.SelectedValue & “, [ID]” 'STT: Săp thứ tự If IB1.Visible Then Exit Select L1.Visible = True : List5.Visible = True : LOC.Visible = True : LB_InfoTable.Visible = True IB1.Visible = True : BO.Visible = True : HL_XemBD.Visible = True : STT.Visible = True : FV1.Visible = True do] “ & TCL.Text & LbTT.Visible = True : BM.Visible = True : GV1.Visible = True : Case MsgBox(“Hướng tra cứu, bổ sung sau ”, 48, “LookupMaps”) Exit Sub Case st = “SELECT DISTINCT [TÁC GIẢ] AS TG FROM [ban do] “ & _ TCLG.Text & “[TÁC GIẢ] is not null ORDER BY [TÁC GIẢ]” DS2.SelectCommand = st List2.DataTextField = “TG” : List2.DataValueField = “TG” End Select List2.DataSourceID = “DS2” List_C2.Visible = False : Label2.Width = 320 : Label5.ForeColor = Label2.ForeColor : Label5.Text = “.” List2.Visible = True abc: End Sub Protected Sub List2.SelectedIndexChanged List2_SelectedIndexChanged() Handles Dim chonL1 As Integer : Dim LB2_SelectedValue As String : Dim s As String HienAnh.Text = : Hien5A(True) On Error GoTo abc chonL1 = List1.SelectedValue LB2_SelectedValue = List2.SelectedValue If LB2_SelectedValue = ““ Then LB2_SelectedValue = “is Null “ Else LB2_SelectedValue = “=“““ & LB2_SelectedValue & “““ “ End If Select Case chonL1 Case 'Khu vực If LB2_SelectedValue Like “*Toàn VN*” Or LB2_SelectedValue Like “*Miền Bắc*” Or LB2_SelectedValue Like “*Miền Nam*” Then 'Các mục chọn có cấp: List_C2.Visible = False : Label2.Width = 320 : Label5.ForeColor = Label2.ForeColor : Label5.Text = “.” HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ - 85 - GVHD: TS Vũ Xuân Cường 'Đoạn lệnh Else sau hiển thị List cấp cho mục chọn có 2cấp: Else s = “SELECT DISTINCT [ĐỊA DANH] FROM [ban do] “ & TCLG.Text & “ [KHU VỰC] “ & LB2_SelectedValue & “ ORDER BY [ĐỊA DANH]” DS3.SelectCommand = s 'DS3 Đã kết nối với List_C2 hiển thị DS tên khu vực cấp Khu vực (cấp 1) chọn List_C2.Visible = True : Label2.Width = 98 : Label5.Height = Nothing : Label5.ForeColor = Label5.BackColor Label5.Text = “KV theo địa danh nay:” End If 'Kiểm tra đk lọc có đk lọc gốc chưa, k0 có (=0) bổ sung: If InStr(DKLG.Text, “ [KHU VỰC]” & LB2_SelectedValue, CompareMethod.Text) = Then 'DKL: điều kiện lọc để hiển thị hình giúp người dùng theo dõi DKL.Text = DKLG.Text & “ [KHU VỰC]” & LB2_SelectedValue 'TCL: lưu đoạn WHERE câu lệnh SELECT TCL.Text = TCLG.Text & “ [KHU VỰC] “ & LB2_SelectedValue Else MsgBox(“Lặp điều kiện lọc”, 48, “LookupMaps”) : Exit Sub End If Case 'Năm TL/XB If InStr(DKLG.Text, “[Năm T.Lập/X.Bản]=“,CompareMethod.Text)=0 Then DKL.Text = DKLG.Text & “ [Năm T.Lập/X.Bản]” & LB2_SelectedValue TCL.Text=TCLG.Text&”[NĂM THÀNH LẬP/XUẤT BẢN]”&LB2_SelectedValue Else MsgBox(“Lặp điều kiện lọc”, 48, “LookupMaps”) : Exit Sub End If Case 'Chuyên đề If InStr(DKLG.Text, “[Loại B.Đồ]” & LB2_SelectedValue, CompareMethod.Text) = Then DKL.Text = DKLG.Text & “ [Loại B.Đồ]” & LB2_SelectedValue TCL.Text = TCLG.Text & “ [LOẠI BẢN ĐỒ] “ & LB2_SelectedValue Else MsgBox(“Lặp điều kiện lọc”, 48, “LookupMaps”) : Exit Sub End If Case 'Biển đảo If InStr(DKLG.Text, “[BIỂN ĐẢO]” & LB2_SelectedValue, CompareMethod.Text) = Then DKL.Text = DKLG.Text & “ [BIỂN ĐẢO]” & LB2_SelectedValue If LB2_SelectedValue Like “*Quảng Trị*” Then LB2_SelectedValue = “ ([BIỂN ĐẢO]=““Quảng Trị đến Quảng Ngãi”“ OR [BIỂN ĐẢO]=““Hoàng Sa”“) “ HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ - 86 - GVHD: TS Vũ Xuân Cường ElseIf LB2_SelectedValue Like “*Bình Định*” Then LB2_SelectedValue = “ ([BIỂN ĐẢO]=““Bình Định đến Ninh Thuận”“ OR [BIỂN ĐẢO]=““Trường Sa”“) “ Else : LB2_SelectedValue = “ [BIỂN ĐẢO]” & LB2_SelectedValue End If TCL.Text = TCLG.Text & LB2_SelectedValue Else MsgBox(“Lặp điều kiện lọc”, 48, “LookupMaps”) : Exit Sub End If Case 'TÁC GIẢ If InStr(DKLG.Text, “[TÁC GIẢ]” & LB2_SelectedValue, CompareMethod.Text) = Then DKL.Text = DKLG.Text & “ [TÁC GIẢ]” & LB2_SelectedValue TCL.Text = TCLG.Text & “ [TÁC GIẢ] “ & LB2_SelectedValue Else MsgBox(“Lặp điều kiện lọc”, 48, “LookupMaps”) : Exit Sub End If End Select ' STT.SelectedIndex = thứ tự ORDER BY [TÊN BẢN ĐỒ]; >0 thứ tự theo tiêu chí khác STT.SelectedIndex = 'Cập nhật Datasource: BangTTBD link với DataGridView GV1, List5 BangTTBD.SelectCommand = “SELECT * FROM [ban do] “ & TCL.Text & STT.SelectedValue & “, [ID]” 'STT: Săp thứ tự 'Sau nạp xong ListBox: List5 sub LB5_DataBound tự chạy thực lệnh NapDayAnh(0) If IB1.Visible Then Exit Sub 'Hiện tất đối tượng: DS đồ LB5, bảng TTBĐ DS LB5, TTBĐ đồ đc chọn xem FV1, ảnh lón IB1, L1.Visible = True : List5.Visible = True : LbTT.Visible = True : LOC.Visible = True : LB_InfoTable.Visible = True IB1.Visible = True : BO.Visible = True : BM.Visible = True : HL_XemBD.Visible = True STT.Visible = True : GV1.Visible = True : FV1.Visible = True abc: End Sub 'Xử lý tra cứu theo giai đoạn TL/XB cách nhập năm đầu cuối giai đoạn Protected Sub LocTheoGiaiDoan_Click() Handles LocTheoGiaiDoan.Click Dim s1, s2 As String s1 = T1.Text : s2 = T2.Text If s2 = ““ Then MsgBox(“Đến năm ?”, 48, “LookupMaps”) : Exit Sub On Error GoTo abc List1.SelectedValue = Nothing : List2.Items.Clear() : List2.Visible = False : Label2.Width = 580 HienAnh.Text = : Hien5A(True) HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ - 87 - GVHD: TS Vũ Xuân Cường If InStr(DKLG.Text, “[Năm T.Lập/X.Bản]”, CompareMethod.Text) = Then DKL.Text=DKLG.Text & “[Năm T.Lập/X.Bản] từ “&s1 & “ đến “ & s2 'TCL: đoạn WHERE câu lệnh SELECT TCL.Text = TCLG.Text & “ (val([NĂM THÀNH LẬP/XUẤT BẢN]) >= “ & Val(s1) & “)and(val([NĂM THÀNH LẬP/XUẤT BẢN]) slBDN Then 'ảnh nhỏ id_IB1 nằm cuối danh sách (id_I0: Lưu mục ListBox5 ảnh đưa vào đầu dãy ảnh nhỏ) id_anh.Text = id_IB1 – slBDN : id_I0 = id_IB1 – slBDN : id_click.Text = slBDN Else '// ngc lại: ảnh nhỏ id_IB1 nằm đầu dãy ảnh (Nạp lại dãy ảnh, ảnh có mục id_IB1) id_anh.Text = id_IB1 : id_I0 = id_IB1 : id_click.Text = End If LB5_count = LB5_File.Items.Count HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ - 89 - GVHD: TS Vũ Xuân Cường 'Nạp ảnh cho dãy nút ảnh nhỏ (ButtonImage): I0 I4 tương ứng với giá trị biến i If slBDN + id_I0 < LB5_count Then For i = To slBDN s = LB5_File.Items.Item(i + id_I0).Value.ToString s1 = LB_NamXB.Items.Item(i + id_I0).Value.ToString If s = ““ Then Hien_anh(i, “MapFiles\K0_dd.JPG”, ““) Else Hien_anh(i, s, s1) End If Next Else For i = To LB5_count – id_I0 – s = LB5_File.Items.Item(i + id_I0).Value.ToString s1 = LB_NamXB.Items.Item(i + id_I0).Value.ToString If s = ““ Then Hien_anh(i, “MapFiles\K0_dd.JPG”, ““) Else Hien_anh(i, s, s1) End If Next 'Hết ảnh CSDL: xóa ảnh đối tượng lại For i = LB5_count – id_I0 To slBDN Xoa_Anh(i) 'Để ảnh trống (xóa ảnh cũ có) Next End If aaa: 'Nổi bật viền (màu nâu) ảnh đc chọn ảnh lớn : GotFocus(Val(id_click.Text)) 'Hiện ảnh lớn đối tượng ImageButton: IB1 s = LB5_File.Items.Item(id_IB1).Value.ToString If s = ““ Then IB1.ImageUrl = “~\MapFiles\K0_dd.JPG” 'Chưa nhập đường dẫn Else IB1.ImageUrl = “~\MapFiles\” & s End If IB1.Width = 910: HL_XemBD.NavigateUrl = IB1.ImageUrl 'HienThongTinBanDo: DS1 đc kết nối với FormView1 hiển thị đầy đủ thông tin chi tiết đồ FV1.HeaderText = “THÔNG TIN BẢN ĐỒ: “ & List5.SelectedItem.Text : FV1.Visible = True DS1.SelectCommand = “SELECT * FROM [ban do] “ & “WHERE ID = “ & List5.SelectedValue & ““ Exit Sub abc: 'Xử lý nạp ảnh có lỗi đưỡng dẫn sai End Sub HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ - 90 - GVHD: TS Vũ Xuân Cường Protected Sub ListBox5_SelectedIndexChanged(sender System.EventArgs) Handles List5.SelectedIndexChanged As Object, e As Dim i As Integer i = List5.SelectedIndex LB5_File.SelectedIndex = i 'LB5 liên kết đường dẫn đến file_ban_do LB_NamXB.SelectedIndex = i NapDayAnh(i) Exit Sub End Sub 'Làm nhỏ đường viền ảnh (k0 bật) k0 đc chọn xem: ~ id_Click đc chuyển sang vị trí khác Private Sub LostFocus(id As Integer) Select Case id Case I0.BorderColor = Drawing.Color.White Case I1.BorderColor = Drawing.Color.White Case I2.BorderColor = Drawing.Color.White Case I3.BorderColor = Drawing.Color.White Case I4.BorderColor = Drawing.Color.White End Select End Sub 'Nổi bật viền (màu nâu) ảnh đc chọn ảnh lớn : ~ id_Click đc chuyển sang vị trí Private Sub GotFocus(id As Integer) Select Case id Case I0.BorderColor = Drawing.Color.Brown Case I1.BorderColor = Drawing.Color.Brown Case I2.BorderColor = Drawing.Color.Brown Case I3.BorderColor = Drawing.Color.Brown Case I4.BorderColor = Drawing.Color.Brown End Select End Sub 'Click vào I0: Protected Sub I0_Click(sender As Object, e As System.Web.UI ImageClickEventArgs) Handles I0.Click On Error GoTo abc If I0.ImageUrl = ““ Or Not List5.Visible Then Exit Sub HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ - 91 - GVHD: TS Vũ Xuân Cường 'Bỏ tiêu điểm cũ, đặt tiêu điểm I0 LostFocus(Val(id_click.Text)) id_click.Text = : I0.BorderColor = Drawing.Color.Brown 'Cập nhật mục chọn LB5 List5.SelectedIndex = Val(id_anh.Text) : LB_NamXB.SelectedIndex = Val(id_anh.Text) 'Hiện thông tin đồ DS1.SelectCommand = “SELECT * FROM [ban do] “ & “WHERE ID = “ & List5.SelectedValue & ““ FV1.HeaderText = “THÔNG TIN BẢN ĐỒ: “ & List5.SelectedItem.Text : FV1.Visible = True IB1.Width = 910 : IB1.ImageUrl = I0.ImageUrl : IB1.Visible = True : HL_XemBD.NavigateUrl = I0.ImageUrl abc: End Sub 'Click vào I1: Protected Sub I1_Click(sender As Object, e As System.Web.UI ImageClickEventArgs) Handles I1.Click If I1.ImageUrl = ““ Or Not List5.Visible Then Exit Sub LostFocus(Val(id_click.Text)) id_click.Text = : I1.BorderColor = Drawing.Color.Brown List5.SelectedIndex = + Val(id_anh.Text) : LB_NamXB.SelectedIndex = + Val(id_anh.Text) DS1.SelectCommand = “SELECT * FROM [ban do] “ & “WHERE ID = “ & List5.SelectedValue & ““ FV1.HeaderText = “THÔNG TIN BẢN ĐỒ: “ & List5.SelectedItem.Text : FV1.Visible = True IB1.Width = 910 : IB1.ImageUrl = I1.ImageUrl IB1.Visible = True : HL_XemBD.NavigateUrl = I1.ImageUrl abc: End Sub Private Sub Hien_anh(i As Integer, s As String, s1 As String) On Error GoTo abc Select Case i Case I0.ImageUrl = “~\MapFiles\” & s If s1 = “Không rõ” Then LbI0.Text = ““ Else LbI0.Text = s1 End If Case I1.ImageUrl = “~\MapFiles\” & s If s1 = “Không rõ” Then LbI1.Text = ““ Else LbI1.Text = s1 Case I2.ImageUrl = “~\MapFiles\” & s If s1 = “Không rõ” Then LbI2.Text = ““ Else LbI2.Text = s1 HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ - 92 - GVHD: TS Vũ Xuân Cường Case I3.ImageUrl = “~\MapFiles\” & s If s1 = “Không rõ” Then LbI3.Text = ““ Else LbI3.Text = s1 Case 'OpenFile(“~\MapFiles\” & s) I4.ImageUrl = “~\MapFiles\” & s If s1 = “Không rõ” Then LbI4.Text = ““ Else LbI4.Text = s1 'FileClose() End Select Exit Sub abc: End Sub Private Sub Xoa_Anh(i Select Case i Case I0.ImageUrl = Case I1.ImageUrl = Case I2.ImageUrl = Case I3.ImageUrl = Case I4.ImageUrl = End Select End Sub As Integer) ““ : LbI0.Text = ““ ““ : LbI1.Text = ““ ““ : LbI2.Text = ““ ““ : LbI3.Text = ““ ““ : LbI4.Text = ““ 'Dịch chuyển dãy ảnh nhỏ sang phải (ảnh chọn xem ảnh lớn k0 đổi) Protected Sub R_Click(sender As Object, e As System.Web.UI ImageClickEventArgs) Handles R.Click 'id_anh.Text = mục (của ảnh đầu dãy ảnh nhỏ) LB5, nhận giá trị từ đến “số ảnh – 1” 'Nếu id_anh=0 bên trái k0 có ảnh để đẩy sang phải 'Ngược lại id_anh > 0, bên trái có ảnh => thực đẩy sang phải If Val(id_anh.Text) = Then Exit Sub I4.ImageUrl = I3.ImageUrl : I3.ImageUrl = I2.ImageUrl : I2.ImageUrl = I1.ImageUrl : I1.ImageUrl = I0.ImageUrl LbI4.Text = LbI3.Text : LbI3.Text = LbI2.Text : LbI2.Text = LbI1.Text : LbI1.Text = LbI0.Text 'Nạp ảnh cho I0 Dim s, s1 As String On Error GoTo abc 'Lấy ảnh khuất bên trái (có mục id_anh – 1) nạp vào I0, I0 ln có mục = id_anh s = LB5_File.Items.Item(Val(id_anh.Text) – 1).Value.ToString s1 = LB_NamXB.Items.Item(Val(id_anh.Text) – 1).Value.ToString If s = ““ Then I0.ImageUrl = “~\MapFiles\K0_dd.JPG” : LbI0.Text = ““ Else I0.ImageUrl = “~\MapFiles\” & s End If HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ - 93 - GVHD: TS Vũ Xuân Cường 'Chuyển id_click sang phải LostFocus(Val(id_click.Text)) id_click.Text = Val(id_click.Text) + id_anh.Text = Val(id_anh.Text) – : GotFocus(Val(id_click.Text)) abc: End Sub 'Dịch chuyển dãy ảnh nhỏ sang trái (ảnh chọn xem ảnh lớn k0 đổi) Protected Sub L_Click(sender As Object, e As System.Web.UI ImageClickEventArgs) Handles L.Click If Val(id_anh.Text) + > List5.Items.Count Then Exit Sub '6 = SLảnh nhỏ+1 I0.ImageUrl = I1.ImageUrl : I1.ImageUrl = I2.ImageUrl : I2.ImageUrl = I3.ImageUrl : I3.ImageUrl = I4.ImageUrl LbI0.Text = LbI1.Text : LbI1.Text = LbI2.Text : LbI2.Text = LbI3.Text : LbI3.Text = LbI4.Text 'Nạp ảnh cho I5 Dim s As String : Dim s1 As String On Error GoTo abc s = LB5_File.Items.Item(5 + Val(id_anh.Text)).Value.ToString '5 = số lượng ảnh nhỏ s1 = LB_NamXB.Items.Item(5 + Val(id_anh.Text)).Value.ToString If s = ““ Then I4.ImageUrl = “~\MapFiles\K0_dd.JPG” : LbI4.Text = ““ Else I4.ImageUrl = “~\MapFiles\” & s If s1 = “Không rõ” Then LbI4.Text = ““ Else LbI4.Text = s1 End If 'Chuyển id_click sang trái LostFocus(Val(id_click.Text)) id_click.Text = Val(id_click.Text) – : id_anh.Text = Val(id_anh.Text) + 1: GotFocus(Val(id_click.Text)) Exit Sub abc: End Sub Protected Sub GridView1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles GV1.SelectedIndexChanged 'Đồng mục mục chọn trong: GV1, LB5, dãy ảnh Dim i As Integer i = GV1.SelectedIndex: List5.SelectedIndex = i LB5_File.SelectedIndex = i 'LB5 liên kết đường dẫn đến file_ban_do LB_NamXB.SelectedIndex = i ; NapDayAnh(i) End Sub 'Thay đổi thứ tự danh sách hiển thị kết lọc: List5, dãy ảnh, GV1 Protected Sub STT_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles STT.SelectedIndexChanged ' STT.SelectedIndex = thứ tự ORDER BY [TÊN BẢN ĐỒ]; >0 thứ tự theo tiêu chí khác Dim s As String If STT.SelectedIndex > Then HVTH: Đặng Lê Trầm Hương MSHV:10100379 Luận văn Thạc sĩ - 94 - GVHD: TS Vũ Xuân Cường 'biến s lưu đoạn câu lệnh ORDER BY s = STT.SelectedValue & “, [TÊN BẢN ĐỒ], [ID]” 'Săp thứ tự theo tiêu chí Else s = “ORDER BY [TÊN BẢN ĐỒ], [ID]” End If 'kết nối với GV1, List5, … BangTTBD.SelectCommand = “SELECT * FROM [ban do] “ & TCL.Text & s End Sub Protected Sub XOA_DIEU_KIEN_DLOC_Click(sender System.EventArgs) Handles X1.Click As Object, e As DKL.Text = “@: Đã xóa điều kiện lọc! Xin Tra cứu lại từ đầu ” : X1.Visible = False DKLG.Text = “ ĐIỀU KIỆN: “ TCLG.Text = “ WHERE “ : TCL.Text = ““ 'TCLG, TCL: Tiêu chuẩn lọc gốc (TCLG) lưu TCL hành List1.SelectedValue = Nothing : List2.Items.Clear() List2.Visible = False T1.Text = ““ : T2.Text = ““ : Label2.Width = 580 List_C2.Visible = False : Label2.Width = 580 Label5.ForeColor = Label2.ForeColor : Label5.Text = “.” 'Ẩn tất đối tượng: DS đồ LB5, bảng TTBĐ DS LB5, TTBĐ đồ đc chọn xem FV1, ảnh lón IB1, L1.Visible = False : LOC.Visible = False LB_InfoTable.Visible = False : List5.Visible = False LbTT.Visible = False : STT.Visible = False : STT.SelectedIndex = FV1.Visible = False : T1.Text = ““ : T2.Text = ““ IB1.Visible = False : BO.Visible = False : BM.Visible = False GV1.Visible = False : LostFocus(Val(id_click.Text)) HL_XemBD.NavigateUrl = ““ : HL_XemBD.Visible = False I4.ImageUrl = ““ : I3.ImageUrl = ““ : I2.ImageUrl = ““ I1.ImageUrl = ““ : I0.ImageUrl = ““ LbI4.Text = ““ : LbI3.Text = ““ : LbI2.Text = ““ LbI1.Text = ““ : LbI0.Text = ““ End Sub Protected Sub T1_TextChanged(sender As Object, e As System.EventArgs) Handles T1.TextChanged, T2.TextChanged LocTheoGiaiDoan.Focus() End Sub Protected Sub LWU_DK_LOC_Click(sender As Object, e System.Web.UI.ImageClickEventArgs) Handles DK1.Click 'Nếu gõ Enter (e.X + e.Y < 0) bỏ qua thi hành LocTheoGiaiDoan_Click: If (e.X + e.Y