Nghiên cứu xây dựng hế thống thông tin địa lý phục vụ công tác quản lý và cấp phát thông tin tư liệu địa hình quân sự

BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC BÁCH KHOA HÀ NỘI - NGUYỄN HẢI HÀ NGHIÊN CỨU XÂY DỰNG HỆ THỐNG THÔNG TIN ĐỊA LÝ PHỤC VỤ CÔNG TÁC QUẢN LÝ VÀ CẤP PHÁT THƠNG TIN TƯ LIỆU ĐỊA HÌNH QN SỰ LUẬN VĂN THẠC SỸ KỸ THUẬT CHUYÊN NGÀNH: XỬ LÝ TÍN HIỆU VÀ TRUYỀN THƠNG Hà Nội – 2004 BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC BÁCH KHOA HÀ NỘI - NGUYỄN HẢI HÀ NGHIÊN CỨU XÂY DỰNG HỆ THỐNG THÔNG TIN ĐỊA LÝ PHỤC VỤ CÔNG TÁC QUẢN LÝ VÀ CẤP PHÁT THƠNG TIN TƯ LIỆU ĐỊA HÌNH QN SỰ LUẬN VĂN THẠC SỸ KỸ THUẬT CHUYÊN NGÀNH: XỬ LÝ TÍN HIỆU VÀ TRUYỀN THÔNG NGƯỜI HƯỚNG DẪN: TS NGUYỄN THÚC HẢI H Ni 2004 -i- Trang Mở đầu Chơng 1: hệ thống thông tin địa lý 1.1 khái niƯm vỊ hƯ thèng gis 1.1.1 Tỉng quan vỊ hệ thống GIS 1.1.2 Định nghĩa gis 1.1.3 Các lĩnh vực khoa học công nghệ liên quan đến gis 1.1.4 C¸c lÜnh vùc øng dơng gis 1.2 Các thành phần chức gis 1.2.1 Các thành phần gis 1.2.2 Các chức GIS 10 1.3 Các kiểu liệu mô hình liệu GIS 1.3.1 Các kiểu liệu GIS 10 1.3.1.1 Dữ liệu không gian 10 3.1.2 Dữ liệu thuộc tính 11 1.3.1.3 Dữ liệu ảnh 11 1.3.2 Các Mô hình liệu GIS 11 1.3.2.1 Mô hình liệu raster 12 1.3.2.2 Mô hình liệu Vector 12 13 1.4 hệ toạ độ hệ quy chiếu sử dụng GIS 1.4.1 Hệ toạ độ 14 1.4.1.1 Hệ toạ độ phẳng 14 1.4.1.2 Hệ toạ độ trái ®Êt 15 1.4.2 C¸c hƯ quy chiÕu 16 17 1.5 đồ địa hình 1.5.1 Khái quát chung 17 1.5.2 Bản đồ địa hình 18 1.5.2.1 Khái niệm chung đồ địa hình 18 A - Khái niệm, phân loại công dụng đồ địa hình 18 B - Yêu cầu đồ địa hình 19 1.5.2.2 Cơ sở toán học đồ A - Hình dạng kích thớc trái đất Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông 20 21 Nguyễn Hải Hà -iiB - Lới khống chế trắc địa quốc gia 22 C - Chiếu hình đồ 23 a Chiếu hình Gauss 24 b Chiếu hình U.T.M 25 1.5.2.3 Các hệ toạ độ đồ 26 A - Toạ độ địa lý 26 B - Toạ độ vuông góc 26 a Toạ độ vuông góc Gauss 26 b Toạ độ vuông góc U.T.M 27 1.5.2.4 Chia mảnh, đánh số đồ địa hình 29 A - Chia mảnh, đánh số đồ Gauss 29 B - Chia mảnh, đánh số đồ địa hình UTM 31 a Chia mảnh đồ địa hình tỷ lệ 1:1.000.000, 1:500.000, 1:250.000 31 b Chia mảnh, đánh số đồ địa hình UTM tỷ lệ 1:100.000, 1:50.000, 1:25.000 32 33 1.6 xử lý phân tích d÷ liƯu GIS 1.6.1 Xư lý d÷ liƯu GIS 33 1.6.2 Phân tích liệu GIS 33 1.6.2.1 Truy vÊn d÷ liƯu thc tÝnh 34 1.6.2.2 Truy vấn không gian 34 1.6.2.3 Truy vấn kết hợp 35 1.6.2.4 Một số kiểu phân tích khác GIS 35 36 1.7 sở liệu gis 1.7.1 Các khái niệm 36 1.7.1.1 Cơ sở liệu 36 1.7.1.2 Kiến trúc hệ quản trị sở liệu 37 1.7.1.3 Ngời quản trị sở liệu 39 1.7.1.4 Ngời sử dụng sở liệu 39 1.7.2 Tích hợp thông tin đồ với sở liệu 40 1.7.2.1 Ngôn ngữ truy nhập không gian 40 1.7.2.2 Cơ sở liệu GIS 40 Chơng 2: quản lý thông tin t liệu địa hình quân 2.1 thực trạng ứng dụng gis quân 2.1.1 Vai trò đồ số giai đoạn Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông 44 44 44 Nguyễn Hải Hà -iii2.1.2 Hai mô hình tổ chức liệu 44 2.1.3 Đôi nét cục đồ - tổng tham mu 45 2.1.4 Qui định chung 46 2.1.5 Qui trình công nghệ số hoá đồ 46 48 2.2 hệ thống thông tin t liệu địa hình quân 2.2.1 Thông tin T liệu địa hình quân 48 2.2.1.1 T liệu đồ 48 2.2.1.2 T liệu không ảnh 48 2.2.1.3 T liệu trắc địa 49 2.2.1.4 T liệu đồ số 49 2.2.1.5 T liệu địa hình khác 49 2.2.2 Hệ thống phần mềm ứng dụng GIS 49 2.2.2.1 CÊu tróc cđa hƯ GIS-OFFICE 49 2.2.2.2 Các thành phần modul phần mềm hệ thống GIS-OFFICE 50 2.2.3 Thu thËp d÷ liƯu gis-office 54 2.2.3.1 Dữ liệu số hoá thao tác 55 2.2.3.2 Dữ liệu vào dạng text 55 2.2.3.3 Số liệu từ đo đạc ngoại nghiệp 56 2.2.3.4 Nguồn liệu số 56 2.2.3.5 Dữ liệu hình ảnh liệu đà quét 57 2.2.3.6 Dữ liệu ảnh đo 58 2.2.4 Phân tích, xử lý liệu gis-office 58 2.2.4.1 Các phép phân tích không gian 58 2.2.4.2 Phân tích hình ảnh 59 2.2.4.3 Xử lý liệu 60 2.2.4.4 Các phân tích mô hình hoá địa hình 61 2.2.5 Cơ sở liệu GIS-OFFICE 61 2.2.5.1 Một số khả xử lý, tổng hợp sở liệu GIS-OFFICE 62 a Chức hỏi đáp 62 b Các chức thu thập liệu 63 c Các chức bảo trì liệu 63 d Các chức nhập, chèn sở liệu lớn 63 2.2.5.2 Sản phẩm GIS-OFFICE Chơng 3: Phân tích thiết kế hệ thống 3.1 phân tích hệ thống Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông 63 64 64 Nguyễn Hải Hà -iv3.1.1 Lựa chọn kiến tróc thùc hiƯn 64 3.1.2 Lùa chän c«ng thùc 66 3.1.2.1 Lựa chọn phần mềm lu trữ liệu GIS 3.2 thiết kế hệ thống 3.2.1 Những yêu cầu mục tiêu hệ thống 66 67 67 3.2.1.1 Yêu cầu hệ thống 67 3.2.1.2 Mục tiêu cđa hƯ thèng 68 3.2.2 Lùa chän c«ng thùc 68 3.2.2.1 Mô hình tổ chức hệ thống 68 3.2.2.2 Phần mềm thao tác, hiển thị liệu 69 3.2.3 Mô tả trờng thông tin sử dụng hệ thống 3.2.3.1 Các loại liệu đợc lu trữ hệ thống 69 69 Dữ liệu raster đồ địa hình quân 69 Dữ liệu vector đồ địa hình quân 71 Dữ liệu văn 72 Dữ liệu multimedia 72 3.2.3.2 Các chức phần mềm 73 Khối chức cập nhật liệu 73 Khối chức khai thác thông tin 73 Khối chức phân phối tìm kiếm thông tin 73 Khối chức hệ thống 73 Đặc điểm ngời sử dụng 74 3.2.4 Qui trình quản lý cấp phát liệu 74 3.2.4.1 Quản lý liệu 74 3.2.4.2 Cấp phát liệu 74 3.2.5 Các chức hệ thống 75 3.2.5.1 Nhóm thao tác liệu 75 3.2.5.2 Nhãm in Ên 76 3.2.5.3 Nhãm kiÓm tra 76 3.2.5.4 Nhóm quản trị hệ thống 76 3.2.5.5 Nhóm huy cấp phát 77 3.2.6 Sơ đồ quan hệ liệu thuộc tính hệ thống 77 3.2.6.1 Sơ đồ quan hệ liệu vector văn 77 3.2.6.2 Sơ đồ quan hệ liệu vector multimedia 77 Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà -v3.2.6.3 Quan hệ dạng liệu đơn vị cung cấp, lu trữ liệu 78 3.2.6.4 Sơ đồ quan hệ thuộc tính đồ hoạ liệu Vector 78 3.2.6.5 Sơ đồ quan hệ liệu văn multimedia 79 3.2.6.6 Sơ đồ quan hệ liệu vector raster 79 3.2.6.7 Sơ đồ quan hệ liệu raster multimedia 79 3.2.6.8 Sơ đồ quan hệ liệu raster văn 80 3.2.6.9 Sơ đồ quan hệ tỉ lệ đồ liệu Raster, Vector 80 3.2.6.10 Sơ đồ quan hệ thuộc tính đồ hoạ liệu Vector 80 3.2.6.11 Sơ đồ quan hệ hệ toạ độ liệu Raster, Vector 81 3.2.7 Mô tả hệ thống gis 82 3.2.7.1 Mô hình thu thập xử lý thông tin 82 3.2.7.2 Khả hƯ thèng thiÕt kÕ 83 3.2.7.3 VÊn ®Ị thu thËp thông tin 83 Chơng 4: Cài đặt thử nghiệm hệ thống 4.1 càI đặt hệ thống 85 85 4.1.1 Cài đặt SQL server 2000 85 4.1.2 Yêu cầu cấu hình cài đặt cho máy chủ quản lý File 85 4.2 Các thủ tục cài đặt chơng trình 87 4.3 thử nghiệm chơng trình 89 4.3.1 Chơng trình thử nghiệm 89 4.3.2 Một vài hình ảnh trình thử nghiƯm 89 4.4 kÕt qu¶ thư nghiƯm KÕt ln 94 95 i đánh giá kết đạt đợc 95 II phơng hớng phát triển 96 III kết luận 96 Phụ lục 97 tài liệu tham khảo 125 Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà -1- Mở đầu rong năm qua với phát triển Công nghệ Thông tin mà điển hình phát triển phần cứng nh phần mềm máy tính, việc thu thập, xử lý cập nhật thông tin trở nên nhanh chóng xác Bản đồ số với độ xác cao, kèm theo thông tin hỗ trợ đa dạng đà đợc sử dụng nhiều lĩnh vực nh: quân sự, kinh tế văn hoá xà hội vv áp dụng thành tựu tiên tiến công nghệ số, Cục Bản đồ Bộ tổng Tham mu đà cho nghiên cứu sử dụng công nghệ thành lập đồ hÃng InterGraph lĩnh vực quản lý số hoá t liệu đồ địa hình quân Sau thời gian Cục Bản đồ Bộ tổng Tham mu đà cho đời nhiều loại đồ số loại tỷ lệ đợc sử dụng nhiều lĩnh vực đặc biệt làm liệu đầu vào cho hệ thống thông tin địa lý (GIS - Geographic Information System) Một sản phẩm đáng đợc ghi nhận t liệu đồ phục vụ công tác phân định Vịnh Bắc Bộ Việt nam Trung quốc, đồ biên giới Việt nam - Lào Đây sản phẩm ứng dụng công nghệ số đại, khẳng định tiện lợi vợt trội liệu số hệ thống GIS trình quản lý, lu trữ, cập nhật khai thác thông tin đồ thông qua hệ thống mạng máy tính có T Đề tài: nghiên cứu xây dựng hệ thống thông tin địa lý phục vụ công tác quản lý cấp phát thông tin t liệu địa hình quân đợc xây dựng với mục đích sau: ã Đa khối t liệu địa hình quân vào quản lý dới dạng sở liệu, đảm bảo an toàn, xác bảo mật ã Từng bớc tự động hoá qui trình cấp phát t liệu địa hình quân theo quyền hạn ngời đăng nhập khai thác ã Chuẩn hoá quy trình quản lý t liệu địa hình quân đợc lu trữ, sản xuất đơn vị với định hớng áp dụng Công nghệ Thông tin Quốc phòng ã Cung cấp công cụ dịch vụ cấp phát t liệu, tìm kiếm thông tin, hiển thị báo cáo ã Việc cấp phát thông tin khai thác hệ thống đợc thực thông qua môi trờng mạng nội có đơn vị Ngày hệ thống thông tin địa lý đợc hiểu hệ thống không cung cấp thông tin địa lý tuý mà phơng tiện trợ giúp công tác quản lý, tìm kiếm, hiển thị phân tích liệu mà có khả trợ giúp định hữu hiệu cho ngời Việc tạo lập ứng dụng hệ thống thông tin địa lý để lu trữ, quản lý, phân tích trao đổi thông tin có ý nghĩa to lớn công phát triển kinh tế, văn hoá - xà hội, bảo vệ môi trờng sinh thái an ninh quốc gia Do đó, Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà -2việc thu thập xử lý thông tin vấn đề đà sớm đợc đặt Để có thông tin nhanh chóng, kịp thời xác ngời ta đà sử dụng máy tính điện tử gắn kết chúng với môi trờng mạng máy tính Để dễ cập nhật quản lý thông tin ngời ta thống dạng liệu qui định cách tạo lập liệu chung cho tất đơn vị, tổ chức cá nhân tham gia trình tạo lập xây dựng liệu cho hệ thống thông tin địa lý Là cán công tác Cục Bản đồ Bộ tổng Tham mu quan Bộ Quốc phòng, đơn vị tham gia vào công tác thành lập chuẩn hoá thông tin t liệu địa hình, hiểu rõ vai trò mục đích sử dựng liệu đồ số, đặc biệt vai trò thông tin t liệu địa hình quân tác chiến nh nhiệm vụ bảo vệ an ninh quốc gia Để đáp ứng tình hình nhiệm vụ Cục Bản đồ thời kỳ mới, việc xây dựng sở liệu thống nhằm quản lý, khai thác sử dụng t liệu địa hình có cho có hiệu quả, nhanh chóng, kịp thời xác; cấp phát t liệu đối tợng, sử dụng mục đích theo yêu cầu lÃnh đạo huy đơn vị cần thiết Hệ thống đợc xây dựng thành nhiều giai đoạn Giai đoạn xây dựng hệ quản trị sở liệu GIS trợ giúp công tác quản lý, cấp phát sử dụng liƯu theo qun truy nhËp hƯ thèng ViƯc hoµn thiƯn xây dựng toàn hệ thống cần nhiều thời gian công sức với phối hợp tham gia, đạo nhiều cấp lÃnh đạo huy đơn vị, đồng thời phải có hiểu biết sâu sắc lĩnh vực liên quan nh: tài nguyên môi trờng, đo đạc đồ, khí tợng thuỷ văn, tôn giáo, kính tế, văn hoá xà hội ; với kỹ thuật tiên tiến hệ thống mạng máy tính, hệ quản trị sở liệu, công nghệ đa phơng tiện vv Vì vậy, luận văn nhấn mạnh vào giai đoạn đầu tiên, nghiên cứu sở lý thuyết đề xuất thiết kế xây dựng hệ thống lu trữ cấp phát thông tin t liệu địa hình quân hệ thống GIS, khai thác quản lý liệu đồ số đà sản xuất đơn vị Với mục tiêu nh trên, luận văn trình bày nội dung nh sau: Giới thiệu hệ thống thông tin địa lý Quản lý thông tin t liệu địa hình quân Phân tích thiết kế hệ thống Cài đặt thử nghiệm hệ thống Kết luận phơng hớng Rất mong nhận đợc nhiều ý kiến đóng góp thầy giáo, cô giáo khoa Công nghệ Thông tin, Trung tâm bồi dỡng đào tạo sau đại học trờng Đại học Bách khoa Hà nội, bạn bè đồng nghiệp, lÃnh đạo huy đơn vị ngời quan tâm tới vấn đề để đề tài đợc hoàn thiện bớc đợc áp dụng thử nghiệm đơn vị thời gian tới Xin trân trọng cảm ơn giáo s tiến sỹ khoa học Nguyễn Thúc Hải khoa Công nghệ Thông tin đà tận tình hớng dẫn suốt trình thực Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà -3luận văn này, xin cảm ơn cán giảng viên thuộc Trung tâm Đào tạo Bồi dỡng sau đại học - trờng Đại học Bách khoa Hà nội, Xin chân thành cảm ơn gia đình, bạn bè đồng nghiệp đà giúp đỡ, đóng góp ý kiến, thử nghiệm chơng trình trình hoàn thành luận văn Do phạm vi ứng dụng luận văn rộng, với khả hiểu biết h¹n chÕ céng víi thêi gian thùc hiƯn cã h¹n, đạt đợc luận văn bớc đầu nội dung hình thức, chắn nhiều thiếu sót Rất mong nhận đợc nhiều ý kiến đóng góp xây dựng để hệ thống đợc chỉnh sửa bổ sung ngày hoàn thiện Xin chân thành cảm ơn Học viên thực Nguyễn Hải Hà Xí nghiệp Bản đồ - Bộ Quốc Phòng Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà - 112 Set fs = CreateObject("Scripting.FileSystemObject") If Me.txtPhienhieu.Text = "" Then MsgBox "Phiªn hiệu không đợc để trống" Exit Sub End If If Me.cboTyle.Text = "" Then MsgBox "Chọn tỷ lệ đồ tr−íc ghi" Exit Sub End If If Me.cboHetoado.Text = "" Then MsgBox "Chọn hệ toạ độ trớc ghi" Exit Sub End If If Me.cboDvcc.Text = "" Then MsgBox "Chọn đơn vị cung cấp trớc ghi" Exit Sub End If If Me.cboDvluutru.Text = "" Then MsgBox "Chọn đơn vị lu trữ trớc ghi" Exit Sub End If Screen.MousePointer = vbHourglass If themmoi = True Then ' Xu ly ten file =============================================== If Me.txtVectoPath.Text = "" Then MsgBox "Chän file Raster tr−íc ghi" Screen.MousePointer = vbDefault Exit Sub End If filevanban = fs.GetFileName(Me.txtVectoPath.Text) filevanbanbase = fs.GetBaseName(txtVectoPath.Text) fullpathfile = LoadInfo.GetRasterPath & "\" & Trim(Me.txtFileName.Text) FullPathFileDel = LoadInfo.GetRasterPath & "\" & FileNameDeleted '=========================================================== ' Kiểm tra phiên hiệu đà cã CSDL ch−a success = existphienhieu.SelectAllFields("RASTER", rsTem, "phienhieu = '" & Trim(txtPhienhieu.Text) & "'", "") If isEmptyRS(rsTem) Then Else MsgBox "phiên hiệu đà tồn sở d÷ liƯu" Screen.MousePointer = vbDefault Exit Sub End If '============================================== ' Copy file vao may chu If fs.FileExists(fullpathfile) Then MsgBox "Tên file đà có sở liệu,phải ®ỉi tªn file tr−íc ghi" Screen.MousePointer = vbDefault Exit Sub Else fs.CopyFile txtVectoPath.Text, fullpathfile, True End If '============================================== 'Ghi văn vào CSDL ngayhientai = Day(Date) & "/" & Month(Date) & "/" & Year(Date) ' FieldList = "tenvanban,mavanban,mota,iddvccdl,iddvluutru,ghichu,ngaynhap,tenfile" ' valueList = "'" & Trim(txtTenvanban.Text) & "','" & Trim(txtMavanban.Text) & "','" & Trim(Me.txtMota.Text) & "'," & Me.cboDVCCVB.Column(1) & "," & Me.cboDVLTVB.Column(1) & ",'" & Trim(txtGhichu.Text) & "'," & ngayhientai & ",'" & Trim(Me.txtFileName.Text) & "'" Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hµ - 113 FieldList = "tenmanh,phienhieu,ngayquet,idtyle,idhetoado,ngaythanhlap,ngayhieuchinh,lylichbando,iddvcc dl,iddvluutru,ghichu,nguoiscan,nguoiccdl,mucdichsd,ngaynhap,tenfile" valueList = "'" & Trim(txtTenmanh.Text) & "','" & Trim(txtPhienhieu.Text) & "','" & Trim(txtNgayquet.Text) & "'," & cboTyle.Column(1) & "," & cboHetoado.Column(1) & ",'" & Trim(txtNgaythanhlap.Text) & "','" & Trim(txtNgayhieuchinh.Text) & "','" & Trim(txtLylich.Text) & "'," & cboDvcc.Column(1) & "," & cboDvluutru.Column(1) & ", '" & Trim(txtghichu.Text) & "','" & Trim(txtNguoiScan.Text) & "','" & Trim(Me.txtNguoicungcap.Text) & "','" & Trim(txtMucdichsudung.Text) & "'," & ngayhientai & ",'" & Trim(txtFileName.Text) & "'" success = existphienhieu.InsertRecord("RASTER", FieldList, valueList) ' Refresh grid Call LoadRaster End If ' cua bien THEMMOI If themmoi = False Then If flexVanban.Row < Or flexVanban.Row > flexVanban.Rows Then MsgBox "Chọn phiên hiệu cần söa" Screen.MousePointer = vbDefault Exit Sub End If If Trim(txtPhienhieu.Text) = flexVanban.TextMatrix(flexVanban.Row, 2) Then ' OK , KO CAN kiem tra Else ' Kiểm tra phiên hiệu đà có CSDL ch−a success = existphienhieu.SelectAllFields("RASTER", rsTem, "phienhieu = '" & Trim(txtPhienhieu.Text) & "'", "") If isEmptyRS(rsTem) Then Else MsgBox "Phiªn hiệu đà tồn sở liệu" Screen.MousePointer = vbDefault Exit Sub End If End If ' Copy file vao may chu neu user chon file khac, ko chon thi bo qua If Me.txtVectoPath.Text "" Then filevanban = fs.GetFileName(Me.txtVectoPath.Text) filevanbanbase = fs.GetBaseName(txtVectoPath.Text) fullpathfile = LoadInfo.GetRasterPath & "\" & Trim(Me.txtFileName.Text) FullPathFileDel = LoadInfo.GetRasterPath & "\" & FileNameDeleted If fs.FileExists(FullPathFileDel) Then fs.DeleteFile (FullPathFileDel), True End If fs.CopyFile txtVectoPath, fullpathfile, True End If '============================================== ngayhientai = Day(Date) & "/" & Month(Date) & "/" & Year(Date) ' FieldList = ghichu,nguoiscan,nguoiccdl,mucdichsd,ngaynhap,tenfile" ' valueList = & cboTyle.Column(1) & "," & cboHetoado.Column(1) & ",'" & Trim(txtNgaythanhlap.Text) & "','" & Trim(txtNgayhieuchinh.Text) & "','" & Trim(txtLylich.Text) & "'," & cboDvcc.Column(1) & "," & cboDvluutru.Column(1) & ", '" & Trim(txtGhichu.Text) & "','" & Trim(txtNguoiScan.Text) & "','" & Trim(Me.txtNguoicungcap.Text) & "','" & Trim(txtMucdichsudung.Text) & "'," & ngayhientai & ",'" & Trim(txtFileName.Text) & "'" SetFieldList = "tenmanh ='" & Trim(txtTenmanh.Text) & "', phienhieu = '" & Trim(txtPhienhieu.Text) & "', ngayquet = '" & Trim(txtNgayquet.Text) & "',idtyle =" & cboTyle.Column(1) & ",idhetoado = " & cboHetoado.Column(1) & ",ngaythanhlap= '" & Trim(txtNgaythanhlap.Text) & "',ngayhieuchinh = '" & Trim(txtNgayhieuchinh.Text) & "',lylichbando ='" & Trim(txtLylich.Text) & "',iddvccdl= " & cboDvcc.Column(1) & ",iddvluutru= " & cboDvluutru.Column(1) & ", ghichu= '" & Trim(txtghichu.Text) & "', nguoiscan = '" & Trim(txtNguoiScan.Text) & "',nguoiccdl = '" & Trim(Me.txtNguoicungcap.Text) & "',mucdichsd = '" & Trim(txtMucdichsudung.Text) & "',ngaynhap = " & ngayhientai & ",tenfile = '" & Trim(txtFileName.Text) & "'" Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà - 114 success = existphienhieu.UpdateDB("RASTER", SetFieldList, "IDraster = " & flexVanban.ValueMatrix(flexVanban.Row, 3)) If success = True Then flexVanban.TextMatrix(flexVanban.Row, 1) = Me.txtTenmanh.Text flexVanban.TextMatrix(flexVanban.Row, 2) = Me.txtPhienhieu.Text End If End If If success = True Then lblThongbao.Caption = "Thành công" Me.cmdSave.Enabled = False Me.cmdDel.Enabled = True Me.cmdAddNew.Enabled = True Me.cmdEdit.Enabled = True ' Kho¸ c¸c textbox Call Locktext(True) End If Screen.MousePointer = vbDefault Exit Sub loi: Screen.MousePointer = vbDefault MsgBox "Không copy đợc đà đặt quyền bảo mật server (security), liên hệ với ngời quản trị hệ thống" End Sub Private Sub cmdSaveMulti_Click() Dim i As Integer cnn.Execute "Delete from RASTERMULTI where IDRaster = " & IDRasterActive For i = To flexMulti.Rows - If flexMulti.Cell(flexcpChecked, i, 1) = flexChecked Then cnn.Execute "Insert into RASTERMULTI( IDraster,idmulti) VALUES(" & IDRasterActive & "," & flexMulti.ValueMatrix(i, 5) & ") " End If Next i lblMultithongbao.Caption = "Thành công" End Sub Private Sub cmdSaveVanban_Click() Dim i As Integer cnn.Execute "Delete from VANBANRASTER where IDRaster = " & IDRasterActive For i = To faVANBAN.Rows - If faVANBAN.Cell(flexcpChecked, i, 1) = flexChecked Then cnn.Execute "Insert into VANBANRASTER( IDraster,IDVanban) VALUES(" & IDRasterActive & "," & faVANBAN.ValueMatrix(i, 5) & ") " End If Next i lblRasterthongbao.Caption = "Thành công" End Sub Private Sub cmdSaveVecto_Click() Dim i As Integer cnn.Execute "Delete from RASTERVECTO where IDRaster = " & IDRasterActive For i = To flexVecto.Rows - If flexVecto.Cell(flexcpChecked, i, 1) = flexChecked Then cnn.Execute "Insert into RASTERVECTO( IDraster,IDvecto) VALUES(" & IDRasterActive & "," & flexVecto.ValueMatrix(i, 5) & ") " End If Next i lblVectothongbao.Caption = "Thành công" End Sub Private Sub flexVanban_Click() Locktext (True) lblThongbao.Caption = "" ' Load thong tin cua van ban Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà - 115 Dim rs As New ADODB.Recordset Dim Loaddata As New DataAccess Dim sql As String Dim success As Boolean Dim rsTem As New ADODB.Recordset If flexVanban.Row < Or flexVanban.Row > flexVanban.Rows Then Exit Sub End If IDRasterActive = flexVanban.ValueMatrix(flexVanban.Row, 3) 'sql = "select * from vanban where vanban.idvanban = " & Trim(Me.flexVanban.TextMatrix(Me.flexVanban.Row, 3)) sql = " SELECT dbo.RASTER.*, dbo.DVCCDL.Tendv AS tendvcc, dbo.HETOADO.Hetoado AS hetoado, dbo.TYLE.Tyle AS tyle, dbo.DVLUUTRU.Tendv AS tendvlt " sql = sql & " FROM dbo.DVCCDL INNER JOIN dbo.RASTER ON dbo.DVCCDL.idDVCCDL = dbo.RASTER.idDVCCDL INNER JOIN " sql = sql & " dbo.DVLUUTRU ON dbo.RASTER.idDVLuutru = dbo.DVLUUTRU.IDDVluutru INNER JOIN dbo.HETOADO ON dbo.RASTER.IDHetoado = dbo.HETOADO.IDHetoado INNER JOIN dbo.TYLE ON dbo.RASTER.Idtyle = dbo.TYLE.IDTyle " sql = sql & " where idraster = " & flexVanban.ValueMatrix(flexVanban.Row, 3) rs.Open sql, cnn, adOpenStatic, adLockPessimistic If rs.RecordCount > Then Me.txtghichu.Text = rs!Ghichu Me.txtLylich.Text = rs!lylichbando Me.txtMucdichsudung.Text = rs!mucdichsd Me.txtNgayhieuchinh.Text = rs!ngayhieuchinh Me.txtNgayquet.Text = rs!ngayquet Me.txtNgaythanhlap.Text = rs!ngaythanhlap Me.txtNguoicungcap.Text = rs!nguoiccdl Me.txtNguoiScan.Text = rs!nguoiscan Me.txtPhienhieu.Text = rs!phienhieu Me.txtTenmanh.Text = rs!tenmanh Me.cboDvcc.Text = rs!tendvcc Me.cboDvluutru.Text = rs!tendvlt Me.cboHetoado.Text = rs!HETOADO Me.cboTyle.Text = rs!TYLE FileNameDeleted = rs!tenfile End If rs.Close '' Đánh dấu đà check 'success = Loaddata.SelectAllFields("VANBANRASTER", rsTem, "IDRaster =" & IDRasterActive, "") 'If rsTem.RecordCount > Then ' rsTem.MoveFirst ' Do While Not rsTem.EOF ' For i = To faVANBAN.Rows - ' Next i ' rsTem.MoveNext ' Loop 'End If ' Reset lai cac file lien quan For i = To flexVecto.Rows - flexVecto.Cell(flexcpChecked, i, 1) = flexUnchecked Next For i = To faVANBAN.Rows - faVANBAN.Cell(flexcpChecked, i, 1) = flexUnchecked Next For i = To flexMulti.Rows - flexMulti.Cell(flexcpChecked, i, 1) = flexUnchecked Next '================================================================== Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hµ - 116 ' Load Vanban sql = "select * from VANBANRASTER" sql = sql & " Where dbo.VANBANRASTER.IDRaster = " & IDRasterActive rs.Open sql, cnn, adOpenStatic, adLockPessimistic If rs.RecordCount Then rs.MoveFirst Do While Not rs.EOF For i = To faVANBAN.Rows - If faVANBAN.TextMatrix(i, 5) = rs!IDVanban Then faVANBAN.Cell(flexcpChecked, i, 1) = flexChecked End If Next i rs.MoveNext Loop End If rs.Close ' Load Multi sql = "select * from RASTERMULTI" sql = sql & " Where dbo.RASTERMULTI.idraster = " & IDRasterActive rs.Open sql, cnn, adOpenStatic, adLockPessimistic If rs.RecordCount Then rs.MoveFirst Do While Not rs.EOF For i = To flexMulti.Rows - If flexMulti.TextMatrix(i, 5) = rs!IDMulti Then flexMulti.Cell(flexcpChecked, i, 1) = flexChecked End If Next i rs.MoveNext Loop End If rs.Close ' Load VECTO sql = "select * from RASTERVECTO" sql = sql & " Where dbo.RASTERVECTO.idraster = " & IDRasterActive rs.Open sql, cnn, adOpenStatic, adLockPessimistic If rs.RecordCount Then rs.MoveFirst Do While Not rs.EOF For i = To flexVecto.Rows - If flexVecto.TextMatrix(i, 5) = rs!IDVecto Then flexVecto.Cell(flexcpChecked, i, 1) = flexChecked End If Next i rs.MoveNext Loop End If rs.Close '=============================================== Me.txtFileName.Text = "" Me.txtVectoPath.Text = "" cmdSave.Enabled = False cmdEdit.Enabled = True cmdAddNew.Enabled = True cmdDel.Enabled = True End Sub Private Sub Form_Load() Call Locktext(True) Call setblank Me.cmdAddNew.Enabled = True Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà - 117 'Me.cmdBrowse.Enabled = False Me.cmdDel.Enabled = False Me.cmdEdit.Enabled = False Me.cmdSave.Enabled = False Call LoadRaster Call LoadVecto Call LoadVanban Call LoadMulti End Sub Private Sub Locktext(locktxt As Boolean) Me.txtFileName.Locked = locktxt Me.txtghichu.Locked = locktxt Me.txtLylich.Locked = locktxt Me.txtMucdichsudung.Locked = locktxt Me.txtNgayhieuchinh.Locked = locktxt Me.txtNgayquet.Locked = locktxt Me.txtNgaythanhlap.Locked = locktxt Me.txtNguoicungcap.Locked = locktxt Me.txtNguoiScan.Locked = locktxt Me.txtPhienhieu.Locked = locktxt Me.txtTenmanh.Locked = locktxt Me.txtVectoPath.Locked = locktxt Me.cboDvcc.Locked = locktxt Me.cboDvluutru.Locked = locktxt Me.cboHetoado.Locked = locktxt Me.cboTyle.Locked = locktxt 'Me.cmdBrowse.Enabled = locktxt End Sub Private Sub setblank() Me.txtFileName.Text = "" Me.txtghichu.Text = "" Me.txtLylich.Text = "" Me.txtMucdichsudung.Text = "" Me.txtNgayhieuchinh.Text = "" Me.txtNgayquet.Text = "" Me.txtNgaythanhlap.Text = "" Me.txtNguoicungcap.Text = "" Me.txtNguoiScan.Text = "" Me.txtPhienhieu.Text = "" Me.txtTenmanh.Text = "" Me.txtVectoPath.Text = "" Me.cboDvcc.Text = "" Me.cboDvluutru.Text = "" Me.cboHetoado.Text = "" Me.cboTyle.Text = "" End Sub Private Sub LoadRaster() Dim rsTem As New ADODB.Recordset Dim Loaddata As New DataAccess Dim success As Boolean Me.flexVanban.Rows = success = Loaddata.SelectAllFields("RASTER", rsTem, "", "") If rsTem.RecordCount > Then rsTem.MoveFirst Do While Not rsTem.EOF Me.flexVanban.AddItem vbTab & rsTem!tenmanh & vbTab & rsTem!phienhieu & vbTab & rsTem!IDRaster rsTem.MoveNext Loop End If Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà - 118 ' Load combo success = Loaddata.SelectRecordsets("DVCCDL", rsTem, "tendv, iddvccdl", "", "") If rsTem.RecordCount > Then cboDvcc.Clear cboDvcc.ColumnWidths = "8000;5" cboDvcc.FillComboBoxMultiColumnRecordset rsTem End If success = Loaddata.SelectRecordsets("DVLUUTRU", rsTem, "tendv, iddvluutru", "", "") If rsTem.RecordCount > Then cboDvluutru.Clear cboDvluutru.ColumnWidths = "8000;5" cboDvluutru.FillComboBoxMultiColumnRecordset rsTem End If success = Loaddata.SelectRecordsets("HETOADO", rsTem, "hetoado, idhetoado", "", "") If rsTem.RecordCount > Then cboHetoado.Clear cboHetoado.ColumnWidths = "8000;5" cboHetoado.FillComboBoxMultiColumnRecordset rsTem End If success = Loaddata.SelectRecordsets("TYLE", rsTem, "tyle, idtyle", "", "") If rsTem.RecordCount > Then cboTyle.Clear cboTyle.ColumnWidths = "8000;5" cboTyle.FillComboBoxMultiColumnRecordset rsTem End If Dim i As Integer For i = To flexVanban.Rows - flexVanban.TextMatrix(i, 0) = i Next i End Sub Private Sub LoadMulti() Dim rsTem As New ADODB.Recordset Dim Loaddata As New DataAccess Dim success As Boolean Me.flexMulti.Rows = success = Loaddata.SelectAllFields("MultiMedia", rsTem, "", "") If rsTem.RecordCount > Then rsTem.MoveFirst Do While Not rsTem.EOF Me.flexMulti.AddItem vbTab & rsTem!tenmulti & vbTab & IIf(IsNull(rsTem!mota), "", rsTem!mota) & vbTab & IIf(IsNull(rsTem!Ghichu), "", rsTem!Ghichu) & vbTab & rsTem!IDMulti rsTem.MoveNext Loop End If Dim i As Integer For i = To flexMulti.Rows - flexMulti.TextMatrix(i, 0) = i Next i End Sub Private Sub LoadVanban() Dim rsTem As New ADODB.Recordset Dim Loaddata As New DataAccess Dim success As Boolean Me.faVANBAN.Rows = success = Loaddata.SelectAllFields("VANBAN", rsTem, "", "") If rsTem.RecordCount > Then rsTem.MoveFirst Do While Not rsTem.EOF Me.faVANBAN.AddItem vbTab & vbTab & rsTem!tenvanban & vbTab & rsTem!mavanban & vbTab & rsTem!mota & vbTab & rsTem!IDVanban LuËn văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà - 119 rsTem.MoveNext Loop End If Dim i As Integer For i = To faVANBAN.Rows - faVANBAN.TextMatrix(i, 0) = i Next i End Sub Private Sub LoadVecto() Dim rsTem As New ADODB.Recordset Dim Loaddata As New DataAccess Dim success As Boolean Me.flexVecto.Rows = success = Loaddata.SelectAllFields("VECTO", rsTem, "", "") If rsTem.RecordCount > Then rsTem.MoveFirst Do While Not rsTem.EOF Me.flexVecto.AddItem vbTab & vbTab & rsTem!tenmanh & vbTab & rsTem!phienhieu & vbTab & IIf(IsNull(rsTem!lylichbando), "", rsTem!lylichbando) & vbTab & rsTem!IDVecto rsTem.MoveNext Loop End If Dim i As Integer For i = To flexVecto.Rows - flexVecto.TextMatrix(i, 0) = i Next i End Sub Private Sub Form_Resize() ResizeForm frmRaster End Sub ‘============================================================= VI T×m kiÕm RASTER ‘============================================================= Option Explicit Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdExport_Click() vsgrid2Excel fa End Sub Private Sub cmdSearch_Click() Dim sql As String Dim rsTem As New ADODB.Recordset fa.Rows = sql = "SELECT dbo.RASTER.*, dbo.HETOADO.Hetoado AS htd, dbo.TYLE.Tyle AS tl, dbo.DVLUUTRU.Tendv AS tendvlt, dbo.DVCCDL.Tendv AS tendvcc" sql = sql & " FROM dbo.DVCCDL INNER JOIN dbo.RASTER ON dbo.DVCCDL.idDVCCDL = dbo.RASTER.idDVCCDL INNER JOIN dbo.DVLUUTRU ON dbo.RASTER.idDVLuutru = dbo.DVLUUTRU.IDDVluutru INNER JOIN " sql = sql & " dbo.HETOADO ON dbo.RASTER.IDHetoado = dbo.HETOADO.IDHetoado INNER JOIN dbo.TYLE ON dbo.RASTER.Idtyle = dbo.TYLE.IDTyle WHERE IDRASTER > " If chkTimchinhxac.Value = Then ' Tim tu chinh xac If Me.txtPhienhieu.Text "" Then sql = sql & " and phienhieu = '" & Me.txtPhienhieu.Text & "'" End If If Me.txtTenmanh.Text "" Then sql = sql & " and tenmanh = '" & Me.txtTenmanh.Text & "'" End If If Me.cboCCDL.Text "" Then sql = sql & " and raster.iddvccdl = " & Me.cboCCDL.Column(1) Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà - 120 End If If Me.cboHetoado.Text "" Then sql = sql & " and raster.idhetoado = " & Me.cboHetoado.Column(1) End If If Me.cboLTDL.Text "" Then sql = sql & " and raster.iddvluutru = " & Me.cboLTDL.Column(1) End If If Me.cboTLBD.Text "" Then sql = sql & " and raster.idtyle = " & Me.cboTLBD.Column(1) End If If Me.txtNguoicungcap.Text "" Then sql = sql & " and nguoiccdl = '" & Me.txtNguoicungcap.Text & "'" End If If Me.txtTenfile.Text "" Then sql = sql & " and tenfile = '" & Me.txtTenfile.Text & "'" End If End If ' if cua chktimchinhxac If chkTimchinhxac.Value = Then ' Tim tu chinh xac If Me.txtPhienhieu.Text "" Then sql = sql & " and phienhieu like '%" & Me.txtPhienhieu.Text & "%'" End If If Me.txtTenmanh.Text "" Then sql = sql & " and tenmanh like '%" & Me.txtTenmanh.Text & "%'" End If If Me.cboCCDL.Text "" Then sql = sql & " and raster.iddvccdl = " & Me.cboCCDL.Column(1) End If If Me.cboHetoado.Text "" Then sql = sql & " and raster.idhetoado = " & Me.cboHetoado.Column(1) End If If Me.cboLTDL.Text "" Then sql = sql & " and raster.iddvluutru = " & Me.cboLTDL.Column(1) End If If Me.cboTLBD.Text "" Then sql = sql & " and raster.idtyle = " & Me.cboTLBD.Column(1) End If If Me.txtNguoicungcap.Text "" Then sql = sql & " and nguoiccdl like '%" & Me.txtNguoicungcap.Text & "%'" End If If Me.txtTenfile.Text "" Then sql = sql & " and tenfile like '%" & Me.txtTenfile.Text & "%'" End If End If ' if cua chktimchinhxac rsTem.Open sql, cnn, adOpenStatic, adLockPessimistic Do While Not rsTem.EOF fa.AddItem vbTab & rsTem!tenmanh & vbTab & rsTem!phienhieu & vbTab & rsTem!tendvcc & vbTab & rsTem!tendvlt & vbTab & rsTem!tl & vbTab & rsTem!htd rsTem.MoveNext Loop Me.lbltotal.Caption = "Tæng sè : " & rsTem.RecordCount rsTem.Close End Sub Private Sub fa_Click() Dim i As Integer For i = To fa.Rows - fa.TextMatrix(i, 0) = i Next i End Sub Private Sub Form_Load() Dim rsTem As New ADODB.Recordset Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà - 121 Dim Loaddata As New DataAccess Dim success As Boolean Me.fa.Rows = ' Load combo success = Loaddata.SelectRecordsets("DVCCDL", rsTem, "tendv, iddvccdl", "", "") If rsTem.RecordCount > Then cboCCDL.Clear cboCCDL.ColumnWidths = "8000;5" cboCCDL.FillComboBoxMultiColumnRecordset rsTem End If success = Loaddata.SelectRecordsets("DVLUUTRU", rsTem, "tendv, iddvluutru", "", "") If rsTem.RecordCount > Then cboLTDL.Clear cboLTDL.ColumnWidths = "8000;5" cboLTDL.FillComboBoxMultiColumnRecordset rsTem End If success = Loaddata.SelectRecordsets("hetoado", rsTem, "hetoado, idhetoado", "", "") If rsTem.RecordCount > Then cboHetoado.Clear cboHetoado.ColumnWidths = "8000;5" cboHetoado.FillComboBoxMultiColumnRecordset rsTem End If success = Loaddata.SelectRecordsets("tyle", rsTem, "tyle, idtyle", "", "") If rsTem.RecordCount > Then cboTLBD.Clear cboTLBD.ColumnWidths = "8000;5" cboTLBD.FillComboBoxMultiColumnRecordset rsTem End If End Sub Private Sub Form_Resize() ResizeForm frmSearchRaster End Sub ‘============================================================= VII T×m kiÕm VECTOR ‘============================================================= Option Explicit Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdExport_Click() vsgrid2Excel fa End Sub Private Sub cmdSearch_Click() Dim sql As String Dim rsTem As New ADODB.Recordset fa.Rows = sql = " SELECT dbo.VECTO.*, dbo.HETOADO.Hetoado AS htd, dbo.TYLE.Tyle AS tl, dbo.DVLUUTRU.Tendv AS tendvlt, dbo.DVCCDL.Tendv AS tendvcc" sql = sql & " FROM dbo.DVCCDL INNER JOIN dbo.VECTO ON dbo.DVCCDL.idDVCCDL = dbo.VECTO.idDVCCDL INNER JOIN dbo.DVLUUTRU ON dbo.VECTO.idDVluutru = dbo.DVLUUTRU.IDDVluutru INNER JOIN " sql = sql & " dbo.HETOADO ON dbo.VECTO.IdHetoado = dbo.HETOADO.IDHetoado INNER JOIN dbo.TYLE ON dbo.VECTO.IDTyle = dbo.TYLE.IDTyle " If Me.chkTimchinhxac.Value = Then If Me.txtTenmanh.Text "" Then sql = sql & " and tenmanh = '" & Me.txtTenmanh.Text & "'" End If If Me.txtPhienhieu.Text "" Then sql = sql & " and phienhieu = '" & Me.txtPhienhieu.Text & "'" End If Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hµ - 122 If Me.cboCCDL.Text "" Then sql = sql & " and vecto.iddvccdl = " & Me.cboCCDL.Column(1) End If If Me.cboHetoado.Text "" Then sql = sql & " and vecto.idhetoado = " & Me.cboHetoado.Column(1) End If If Me.cboLTDL.Text "" Then sql = sql & " and vecto.iddvluutru = " & Me.cboLTDL.Column(1) End If If Me.cboTLBD.Text "" Then sql = sql & " and vecto.idtyle = " & Me.cboTLBD.Column(1) End If End If If Me.chkTimchinhxac.Value = Then If Me.txtTenmanh.Text "" Then sql = sql & " and tenmanh like '%" & Me.txtTenmanh.Text & "%'" End If If Me.txtPhienhieu.Text "" Then sql = sql & " and phienhieu like '%" & Me.txtPhienhieu.Text & "%'" End If If Me.cboCCDL.Text "" Then sql = sql & " and vecto.iddvccdl = " & Me.cboCCDL.Column(1) End If If Me.cboHetoado.Text "" Then sql = sql & " and vecto.idhetoado = " & Me.cboHetoado.Column(1) End If If Me.cboLTDL.Text "" Then sql = sql & " and vecto.iddvluutru = " & Me.cboLTDL.Column(1) End If If Me.cboTLBD.Text "" Then sql = sql & " and vecto.idtyle = " & Me.cboTLBD.Column(1) End If End If rsTem.Open sql, cnn, adOpenStatic, adLockPessimistic Do While Not rsTem.EOF fa.AddItem vbTab & rsTem!tenmanh & vbTab & rsTem!phienhieu & vbTab & rsTem!tendvcc & vbTab & rsTem!tendvlt & vbTab & rsTem!tl & vbTab & rsTem!htd rsTem.MoveNext Loop Me.lbltotal.Caption = "Tæng sè : " & rsTem.RecordCount rsTem.Close End Sub Private Sub fa_Click() Dim i As Integer For i = To fa.Rows - fa.TextMatrix(i, 0) = i Next i End Sub Private Sub Form_Load() Dim rsTem As New ADODB.Recordset Dim Loaddata As New DataAccess Dim success As Boolean Me.fa.Rows = ' Load combo success = Loaddata.SelectRecordsets("DVCCDL", rsTem, "tendv, iddvccdl", "", "") If rsTem.RecordCount > Then cboCCDL.Clear cboCCDL.ColumnWidths = "8000;5" cboCCDL.FillComboBoxMultiColumnRecordset rsTem End If LuËn văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà - 123 success = Loaddata.SelectRecordsets("DVLUUTRU", rsTem, "tendv, iddvluutru", "", "") If rsTem.RecordCount > Then cboLTDL.Clear cboLTDL.ColumnWidths = "8000;5" cboLTDL.FillComboBoxMultiColumnRecordset rsTem End If success = Loaddata.SelectRecordsets("hetoado", rsTem, "hetoado, idhetoado", "", "") If rsTem.RecordCount > Then cboHetoado.Clear cboHetoado.ColumnWidths = "8000;5" cboHetoado.FillComboBoxMultiColumnRecordset rsTem End If success = Loaddata.SelectRecordsets("tyle", rsTem, "tyle, idtyle", "", "") If rsTem.RecordCount > Then cboTLBD.Clear cboTLBD.ColumnWidths = "8000;5" cboTLBD.FillComboBoxMultiColumnRecordset rsTem End If End Sub Private Sub Form_Resize() ResizeForm frmSearchVecto End Sub ‘============================================================= VIII Tìm kiếm văn ============================================================= Option Explicit Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdExport_Click() vsgrid2Excel fa End Sub Private Sub cmdSearch_Click() Dim sql As String Dim rs As New ADODB.Recordset Dim i As Integer Dim rsTem As New ADODB.Recordset Dim Loaddata As New DataAccess Dim success As Boolean fa.Rows = If chkShow.Value = Then fa.ColHidden(5) = False fa.ColHidden(6) = False Else fa.ColHidden(5) = True fa.ColHidden(6) = True End If sql = " SELECT dbo.VANBAN.*, dbo.DVLUUTRU.Tendv AS tendvlt, dbo.DVCCDL.Tendv AS tendvcc FROM dbo.DVCCDL INNER JOIN " sql = sql & "dbo.VANBAN ON dbo.DVCCDL.idDVCCDL = dbo.VANBAN.idDVCCDL INNER JOIN dbo.DVLUUTRU ON dbo.VANBAN.idDVLuutru = dbo.DVLUUTRU.IDDVluutru where idvanban > 0" If Me.chkTimchinhxac.Value = Then If Trim(cboCCDL.Text) "" Then sql = sql & " and vanban.iddvccdl = " & cboCCDL.Column(1) End If If Trim(cboLTDL.Text) "" Then sql = sql & " and vanban.iddvluutru = " & cboLTDL.Column(1) End If If Trim(Me.txtMavanban.Text) "" Then Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà - 124 sql = sql & " and mavanban = '" & Me.txtMavanban.Text & "'" End If If Trim(Me.txtTenfile.Text) "" Then sql = sql & " and tenfile = '" & Me.txtTenfile.Text & "'" End If If Trim(Me.txtTenvanban.Text) "" Then sql = sql & " and tenvanban = '" & Me.txtTenvanban.Text & "'" End If End If If Me.chkTimchinhxac.Value = Then If Trim(cboCCDL.Text) "" Then sql = sql & " and vanban.iddvccdl = " & cboCCDL.Column(1) End If If Trim(cboLTDL.Text) "" Then sql = sql & " and vanban.iddvluutru = " & cboLTDL.Column(1) End If If Trim(Me.txtMavanban.Text) "" Then sql = sql & " and mavanban like '%" & Me.txtMavanban.Text & "%'" End If If Trim(Me.txtTenfile.Text) "" Then sql = sql & " and tenfile like '%" & Me.txtTenfile.Text & "%'" End If If Trim(Me.txtTenvanban.Text) "" Then sql = sql & " and tenvanban like '%" & Me.txtTenvanban.Text & "%'" End If End If rs.Open sql, cnn, adOpenStatic, adLockPessimistic lbltotal.Caption = "Total records : " & rs.RecordCount If rs.RecordCount > Then rs.MoveFirst Do While Not rs.EOF fa.AddItem vbTab & rs!tenvanban & vbTab & rs!mavanban & vbTab & rs!tendvcc & vbTab & rs!tendvlt & vbTab & rs!tenfile & vbTab & rs!mota rs.MoveNext Loop End If rs.Close ' Đánh STT For i = To fa.Rows - fa.TextMatrix(i, 0) = i Next i ' Đổi mà số đơn vị thµnh text 'For i = To fa.Rows - 'success = Loaddata.SelectRecordsets("DVCCDL", rsTem, "tendv", "iddvccdl =" & fa.ValueMatrix(i, 3)) 'If success = True Then 'fa.TextMatrix(i, 3) = rsTem!tendv 'End If 'Next i End Sub Private Sub fa_Click() Dim i As Integer For i = To fa.Rows - fa.TextMatrix(i, 0) = i Next i End Sub Private Sub Form_Load() Dim rsTem As New ADODB.Recordset Dim Loaddata As New DataAccess Dim success As Boolean Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hµ - 125 Me.fa.Rows = ' Load combo success = Loaddata.SelectRecordsets("DVCCDL", rsTem, "tendv, iddvccdl", "", "") If rsTem.RecordCount > Then cboCCDL.Clear cboCCDL.ColumnWidths = "8000;5" cboCCDL.FillComboBoxMultiColumnRecordset rsTem End If success = Loaddata.SelectRecordsets("DVLUUTRU", rsTem, "tendv, iddvluutru", "", "") If rsTem.RecordCount > Then cboLTDL.Clear cboLTDL.ColumnWidths = "8000;5" cboLTDL.FillComboBoxMultiColumnRecordset rsTem End If End Sub Private Sub Form_Resize() ResizeForm frmSearchVanban End Sub ============================================================= Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hà - 126 tài liệu tham khảo Tài liệu tiếng Việt [1] Đỗ Đức Thao, Xây dựng hệ thống phần mềm thao tác, hiển thị thông tin địa lý môi trờng mạng Internet, 2003 [2] Nguyễn Thúc Hải, Mạng máy tính hệ thống mở, Nhà xuất giáo dục, 1999 [3] Địa hình quân sự, Cục Bản đồ Bộ tổng Tham mu, 1998 [4] L X GaraevXkaia, Bản đồ học, Cục đo đạc đồ nhà nớc, 1979 [5] Lê Phụng Long, Nguyễn Tam Trung, Mạng bản, Nhà xuất thống kê, 2000 [6] Đặng Văn Đức, Hệ thống thông tin địa lý GIS, Nhà xuất khoa học vµ kü tht, 2001 [7] Ngun Ngäc Minh - Hoµng Đức Hải, SQL Server 2000, NXB Lao động xà hội, 2002 [8] Nguyễn Kim Anh, Nguyên lý hệ sở liệu, NXB đại học Quốc gia Hà nội, 2004 [9] Ngô Trung Việt - Nguyễn Kim ánh - Phạm Ngọc Khôi, Phơng pháp luận quản lý dự án công nghệ thông tin, NXB Khoa học kỹ thuËt, 2002 [10] PTS Ph¹m Träng M¹nh - PTS Ph¹m Vọng Thành, Cơ sở hệ thống thông tin địa lý (GIS) quy hoạch quản lý đô thị, NXB Xây dựng Hà nội, 1999 [11] Huỳnh Văn Đức, Giáo trình nhập môn UML, NXB Lao động xà hội, 2003 [12] Nguyễn Phan, Xây dựng hệ quản trị CSDL phục vụ quản lý t liệu địa hình, 2000 Tài liệu tiÕng Anh [13] Microstation User's Guide, Bently System, Incorporated, 1995 [14] IRAS B Reference Guide, Intergraph, Corporation, 1994 [15] I/RAS C Reference Guide, Intergraph, Corporation, 1994 [16] I/GEOVEC User's Guide, Intergraph, Corporation, 1994 [17] MGE Basic nucleus, Intergraph, Corporation, 1994 [18] MGE ANALYS User's Guide, Intergraph, Corporation, 1994 [19] What_Is_ArcGIS, Esri, 2001-2004 Địa Internet [20] [21] [22] [23] [24] http://giswww.kingston.ac.uk http://shiuhlin.ml.org http://www.gis.com http://www.esri.com http://www.intergraph.com Luận văn thạc sỹ - ngành Xử lý tín hiệu Truyền thông Nguyễn Hải Hµ ... dựng hệ thống thông tin địa lý phục vụ công tác quản lý cấp phát thông tin t liệu địa hình quân đợc xây dựng với mục đích sau: ã Đa khối t liệu địa hình quân vào quản lý dới dạng sở liệu, đảm... DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC BÁCH KHOA HÀ NỘI - NGUYỄN HẢI HÀ NGHIÊN CỨU XÂY DỰNG HỆ THỐNG THÔNG TIN ĐỊA LÝ PHỤC VỤ CÔNG TÁC QUẢN LÝ VÀ CẤP PHÁT THƠNG TIN TƯ LIỆU ĐỊA HÌNH QN SỰ... hệ thống thông tin t liệu địa hình quân 2.2.1 Thông tin T liệu địa hình quân 48 2.2.1.1 T liệu đồ 48 2.2.1.2 T liệu không ảnh 48 2.2.1.3 T liệu trắc địa 49 2.2.1.4 T liệu đồ số 49 2.2.1.5 T liệu