Luận văn thạc sĩ ứng dụng công nghệ hướng đối tượng và xml để phát triển hệ thống trên nền web luận văn ths công nghệ thông tin 1 01 10

III Mục lục Lời cảm ơn I Tãm t¾t kÕt qu¶ .II Môc lôc III Bảng ký hiệu viết tắt VII Danh s¸ch hình vẽ, bảng biểu VIII Mở đầu Chơng Phân tích thiết kế hớng đối tợng hớng mẫu 1.1 T¸i sư dơng phÇn mỊm 1.1.1 Tái sử dụng phần mềm gì? 1.1.2 Khủng hoảng tái sử dụng phần mềm hớng đối tợng .3 1.1.3 Lợi ích cách tiếp cận hớng đối tợng 1.1.4 Tầm quan trọng việc tái sử dụng phần mềm .4 1.1.5 Các nguyên tắc kỹ nghệ phần mềm hớng đối tợng .5 1.1.6 Mục tiêu tái sử dụng phần mềm hớng đối tợng 1.1.7 Sự tiến triển tái sử dụng phần mềm hớng đối tợng .10 1.2 Mô hình tái sử dụng phần mềm hớng đối tợng 11 1.2.1 Nguyên lý tảng băng trôi phát triển phần mềm hớng đối tợng 11 1.2.2 Đặc điểm tái sử dụng phần mềm hớng đối tợng 12 1.2.3 Vòng đời quan trọng tái sử dụng phần mềm hớng đối tợng 20 1.3 Qui trình tái sử dụng phần mÒm .21 1.3.1 MiÒn øng dông 21 z IV 1.3.2 Ranh giíi miỊn 21 1.3.3 M«i tr−êng miỊn 21 1.3.4 KiÕn tróc miỊn thĨ 23 1.3.5 Sự phân lớp tái sử dụng phần mÒm 23 1.3.6 Các qui trình 24 Ch−¬ng XMl - Ngôn ngữ trợ giúp phát triển phần mềm web 27 2.1.1 XML gì? .27 2.1.2 Sù kh¸c XML HTML .28 2.1.3 Sư dơng XML 29 2.1.4 CÊu trúc cú pháp XML 30 2.1.5 Định nghĩa kiểu tài liÖu 32 2.2 ph¸t triĨn øng dơng víi xML 38 2.2.1 KiĨu d÷ liƯu XML 38 2.2.2 Không gian tên XML .39 2.2.3 Lợc đồ XML 42 2.3 Mô hình DOM 47 2.3.1 DOM ? 47 2.3.2 Cái lµ DOM 49 Chơng phát triển ứng dụng với toán tuyển dụng cán công chức, viên chức 51 3.2 Thực trạng công tác tuyển dụng 52 3.2.1 C¬ cÊu tỉ chøc Bộ Lao động Thơng binh X hội 52 3.2.2 Đối tợng vị trí tuyển dông .53 z V 3.2.3 Những vấn đề tồn công tác tuyển dụng 54 3.2.4 Hoạt động tun dơng .55 3.2.5 Các chức nghiệp vụ .64 3.3 Giải pháp 65 3.4 Mô hình hoá nắm bắt yêu cầu hệ thống 65 3.4.1 Xác định tác nhân hệ thống 65 3.4.2 Xác định ca sử dụng 66 3.4.3 Phát triển mô hình ca sử dụng 68 3.5 Mô tả chi tiÕt c¸c ca sư dơng 71 3.5.1 Gói ca sử dụng "Xác định chØ tiªu tun dơng" 71 3.5.2 Gói ca sử dụng "Quản lý hồ sơ dự tuyển" .74 3.5.3 Gãi ca sö dơng "S¬ tun" .77 3.5.4 Gãi ca sư dơng "Thi tun" .80 3.5.5 Gãi ca sử dụng "Ra định tuyển dụng" 81 3.6 Ph©n tÝch tõng ca sư dông 83 3.6.1 Ca sử dụng Yêu cầu báo cáo nhân 83 3.6.2 Ca sư dơng Báo cáo nhân 85 3.6.3 Ca sử dụng Tổng hợp báo cáo nhân 87 3.6.4 Ca sử dụng Phân tiêu 88 3.6.5 Ca sö dụng Thông báo tuyển dụng 90 3.6.6 Ca sư dơng “NhËn hå s¬” 91 3.6.7 Ca sư dơng “CËp nhËt kÕt qu¶ xÐt dut” 93 3.6.8 Ca sư dơng “Tỉng hợp báo cáo hồ sơ dự tuyển .95 3.6.9 Ca sư dơng “Tra cøu hå s¬” 96 z VI 3.7 Thiết kế biểu đồ lớp cho ca sư dơng 98 3.7.1 BiĨu ®å líp ca sử dụng Yêu cầu báo cáo nhân 98 3.7.2 BiĨu ®å líp ca sư dơng Báo cáo nhân 98 3.7.3 Biểu đồ lớp ca sử dụng Tổng hợp báo cáo 99 3.7.4 Biểu đồ lớp ca sử dụng Phân tiêu 99 3.7.5 BiĨu ®å líp ca sư dụng Thông báo tuyển dụng 100 3.8 Cài đặt thử nghiệp 100 3.8.1 C«ng nghƯ sư dơng 100 3.8.2 Cài đặt thử nghiệp 100 KÕt luËn 107 Tài liệu tham khảo 108 phô lôc 110 z VII Bảng ký hiệu viết tắt Từ viết tắt Viết đầy ®ñ CASE Computer Aider System Engineering CMM Capability Maturity Model CORBA Common Object Request Broker Architecture DOM Document Object Modeling DTD Document Type Definition HTML Hypertext Markup Language HTTP Hypertext Transport Protocol OMG Object Management Group SEI Software Engineering Institute SGML Standard Generalized Markup Language WML Wireless Markup Language XML eXtensible Markup Language z VIII Danh sách hình vẽ, bảng biểu Tên hình vẽ, bảng biểu Trang Hình 1.1 Khủng hoảng phát triển phần mềm .4 Hình 1.2 Giảm bớt giá thành phần cứng máy tính cách kết hợp chặt chẽ tái sử dụng thành phần với kiến trúc .5 Hình 1.3 Các mục tiêu tái sư dơng phÇn mỊm Hình 1.4 Sự tiến triển tái sử dụng phần mềm 11 Hình 1.5 Tảng băng phần mềm 12 Hình 1.6 Khái niệm trừu tợng hoá 13 H×nh 1.7 TÝnh kÕ thõa .16 Hình 1.8 Đa kế thừa 17 Hình 1.9 Các lớp kế thừa 18 H×nh 1.10 Sử dụng lại thuộc tính kế thừa 18 Hình 1.11 Sự tải nạp chồng 19 Hình 1.12 Thực thi đa hình .19 H×nh 1.13 Mối quan hệ miền, ranh giới môi tr−êng 22 H×nh 1.14 Thø bËc cđa miền, miền hệ thống 22 Hình 1.15 Tác động việc thay đổi yêu cầu 23 Hình 2.1 CÊu tróc tµi liƯu XML .30 Hình 2.2 Cấu trúc mô t¶ bëi DOM 49 Hình 3.1 Cơ cấu tổ chức Bộ Lao động Thơng binh X hội 53 Hình 3.2 Biểu đồ hoạt động tuyển dụng cán công chức, viên chức 63 Bảng 3.3 Bảng tham chiếu chức nghiệp vụ .64 Hình 3.4 Mô hình ca sử dụng mức tổng qu¸t 68 z IX Hình 3.5 Mô hình ca sử dụng mức cao 68 Hình 3.6 Mô hình gói ca sử dụng Xác định tiêu tuyển dụng 69 Hình 3.7 Mô hình gói ca sử dụng Quản lý hồ sơ dự tuyển 69 Hình 3.8 Mô hình gói ca sử dụng Sơ tuyển 70 Hình 3.9 Mô hình gói ca sử dụng Thi tuyển .70 Hình 3.10 Mô hình gói ca sử dụng Ra định tuyển dụng 71 Hình 3.11 Biểu đồ ca sử dụng Yêu cầu báo cáo nhân 83 Hình 3.12 Sơ đồ liên kết ca sử dụng Yêu cầu báo cáo nhân 85 Hình 3.13 Biểu đồ ca sử dụng Báo cáo nhân 85 Hình 3.14 Sơ đồ liên kết ca sử dụng Báo cáo nhân 86 Hình 3.15 Biểu đồ ca sử dụng Tổng hợp báo cáo nhân 87 Hình 3.16 Sơ đồ liên kết ca sử dụng Tổng hợp báo cáo .88 Hình 3.17 Biểu đồ ca sử dụng Phân tiêu 88 Hình 3.18 Sơ đồ liên kết ca sử dụng Phân tiêu .89 Hình 3.19 Biểu đồ ca sử dụng Thông báo tuyển dụng 90 Hình 3.20 Sơ đồ liên kết ca sử dụng Thông báo tuyển dụng 91 Hình 3.21 Biểu đồ ca sư dơng “NhËn hå s¬” .92 Hình 3.22 Sơ đồ liên kết ca sử dụng Nhận hồ sơ 93 Hình 3.23 Biểu đồ ca sử dụng Cập nhật kết xét duyệt .93 Hình 3.24 Sơ đồ liên kÕt ca sư dơng “CËp nhËt kÕt qu¶ xÐt dut” 94 Hình 3.25 Biểu đồ ca sử dụng Tổng hợp báo cáo hồ sơ dự tuyển 95 Hình 3.26 Sơ đồ liên kết ca sử dụng Tổng hợp báo cáo hồ sơ dự tuyển .96 Hình 3.27 Biểu đồ ca sử dụng Tra cứu hồ sơ 96 Hình 3.28 Sơ đồ liên kết ca sử dụng Tra cứu hồ sơ 97 z X H×nh 3.29 BiĨu đồ lớp ca sử dụng yêu cầu báo cáo nhân .98 Hình 3.30 Biểu đồ lớp ca sử dụng Báo cáo nhân 98 Hình 3.31 Biểu đồ lớp ca sử dụng Tổng hợp báo cáo 99 Hình 3.32 Biểu đồ lớp ca sử dụng Phân tiêu 99 Hình 3.33 Biểu đồ lớp ca sử dụng Thông báo tuyển dụng 100 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 Luận văn tốt nghiệp thạc sỹ Nguyễn Thanh Thảo Mở đầu Chúng ta sống năm đầu thể kỷ XXI, với bao thành tựu Khoa học Kỹ thuật đặc biệt Công nghệ thông tin Trên giới công nghệ thông tin đ phát triển ứng dụng mạnh mẽ từ năm 1960 thể kỷ trớc, Việt nam Công nghệ thông tin đ phát triển ứng dụng rộng ri đợc vài thập niên Tuy nhiên, phát triển ứng dụng Công nghệ thông tin nớc ta thực nh ngành kinh tế mũi nhọn vào năm cuối kỷ trớc Với vai trò to lớn mà công nghệ thông tin đem lại cho ngời, ngời ta đ nhận định kỷ XXI kỷ nguyên công nghệ thông tin Thấy đợc vai trò công nghệ thông tin, Đảng Nhà nớc ta đ có chủ trơng, sách đẩy nhanh việc tin học hoá sản xuất, kinh tế, quản lý hành Nhà nớc, Công nghệ thông tin không ngừng phát triển ngày có nhiều công nghệ đời hỗ trợ ngời việc triển khai, phát triển ứng dụng cách thuận lợi, dễ dàng Trong có công nghệ hớng đối tợng công nghệ XML đợc xem công nghệ tơng lai việc triển khai ứng dụng công nghệ thông tin Trên sở đ chọn đề tài ứng dụng công nghệ hớng đối tợng XML để phát triển hệ thống Web Mục đích thực đề tài nghiên cứu phơng pháp phân tích thiết kế hớng đối tợng từ nghiên cứu việc thiết kế mẫu để phát triển ứng dụng, sử dụng phơng pháp mô hình hoá UML phân tích thiết kế hớng đối tợng nghiên cứu công nghƯ XML viƯc biĨu diƠn, l−u tr÷ d÷ liƯu để phát triển ứng dụng Web Nội dung luận văn gồm 03 chơng: Chơng Phân tích thiết kế hớng đối tợng hớng mẫu Chơng sử dụng kết nghiên cứu phân tích thiết kế hớng đối tợng để nghiên cứu qui trình, mô hình tái sử dụng phần mềm hớng đối tợng theo hớng nghiên cứu để thiết kế mẫu Chơng XML Ngôn ngữ trợ giúp phát triển phần mềm Web Chơng nghiên cứu ngôn ngữ XML việc phát triển ứng dụng Web ứng dụng công nghệ hớng đối tợng XML để phát triển hệ thống Web 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 Luận văn tốt nghiệp thạc sỹ Nguyễn Thanh Thảo Chơng Phát triển ứng dụng với toán Tuyển dụng cán công chức, viên chức Chơng sử dụng kết đ nghiên cứu đợc để triển khai phân tích thiết kế theo phơng pháp hớng đối tợng, sử dụng phơng pháp mô hình hoá UML công cụ Rational Rose để phân tích thiết kế toán sử dụng công nghệ lập trình DotNet công nghệ XML để phát triển ứng dụng ứng dụng công nghệ hớng đối tợng XML để phát triển hệ thống Web 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 113 1 0 5 53 dv12 Cục Thương binh liệt sỹ 15 1 0 1 14 dv13 Viện Khoa học LĐXH 47 1 0 0 47 dv14 Cục Phòng chống tệ nạn 10 1 0 1 9 dv15 Thanh tra Bộ 10 1 0 0 10 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 114 Mà nguồn cho chức chơng trình a Form DanhSachDonvi Imports System.Text Imports System.Data Imports System.Collections Imports System.net Imports System.Xml Imports System.IO Public Class DonVi Inherits System.Web.UI.Page #Region " Web Form Designer Generated Code " Private Sub InitializeComponent() End Sub Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents grdDonVi As System.Web.UI.WebControls.DataGrid Protected WithEvents LinkButton1 As System.Web.UI.WebControls.LinkButton Protected WithEvents btnGuiBaoCao As System.Web.UI.WebControls.Button Protected WithEvents grdDV As System.Web.UI.WebControls.DataGrid Protected WithEvents btnThem As System.Web.UI.WebControls.Button Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then BindDonVi() End If End Sub Private Sub grdDV_PageIndexChanged(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles grdDV.PageIndexChanged grdDV.CurrentPageIndex = e.NewPageIndex BindDonVi() End Sub Private Sub grdDV_DeleteCommand(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles grdDV.DeleteCommand 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 115 Dim id As String = grdDV.DataKeys.Item(e.Item.ItemIndex) Dim i As Integer Dim strString As String Dim ds As New DataSet Dim inputXml As String Dim input2 As String Dim input1 As String Dim input3 As String Dim reader As StreamReader = New StreamReader(Server.mapath & "." & "\database\dsdonvi.xml") inputXml = reader.ReadToEnd reader.Close() Try strString = "" + id.ToString + "" input1 = inputXml.Substring(0, inputXml.IndexOf(strString)) input3 = inputXml.Substring(0, inputXml.IndexOf(strString)) input2 = inputXml.Substring(inputXml.IndexOf(strString) + strString.Length) Do While (input3.IndexOf("") > 0) input3 = input3.Substring(input3.IndexOf("") + 7) Loop input1 = input1.Substring(0, input1.Length - input3.Length) If (input2.IndexOf("") > 0) Then input2 = input2.Substring(input2.IndexOf("")) Else input2 = "" End If inputXml = input1 + input2 Dim doc As XmlDocument = New XmlDocument doc.LoadXml(inputXml) doc.Save("Server.mapath & "." & "\database\dsdonvi.xml") Catch ex As Exception Dim str As String = ex.Message End Try BindDonVi() End Sub Protected Sub ButtonRender(ByVal sender As Object, ByVal e As EventArgs) Dim Btn As LinkButton = CType(sender, LinkButton) Btn.Attributes.Item("onclick") = "return confirm('B?n có ch?c ch?n xoá don v? này?');" End Sub Private Sub BindDonVi() Try Dim ds As New DataSet 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 116 ds.ReadXml("Server.mapath & "." & "\database\dsdonvi.xml") 'lblPartID.Text = CType(ds.Tables(0).Rows(0).Item("PartID"), String) grdDV.DataSource = ds grdDV.DataBind() ds.Dispose() Catch ex As Exception Dim strError As String = ex.Message End Try End Sub Private Sub btnGuiBaoCao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuiBaoCao.Click Dim i As Integer Dim dem As Integer i=0 Dim ds As New DataSet ds.ReadXml("Server.mapath & "." & "\database\dsdonvi.xml") For i = To grdDV.Items.Count - Dim chkDelete As CheckBox chkDelete = CType(grdDV.Items(i).Cells(0).FindControl("ChkDelete"), CheckBox) If chkDelete.Checked = True Then Try ds.Tables(0).Rows(i).Item("MaDonVi") = grdDV.Items(i).Cells(1).Text ds.Tables(0).Rows(i).Item("TenDonVi") = grdDV.Items(i).Cells(2).Text ds.Tables(0).Rows(i).Item("BaoCao") = ds.WriteXml("Server.mapath & "." & "\database\dsdonvi.xml", _ XmlWriteMode.WriteSchema) Catch ex As Exception Dim err As String = ex.Message Finally ds.Dispose() End Try End If Next grdDV.DataSource = ds grdDV.DataBind() Response.Redirect("DSDonViBaoCao.aspx", True) End Sub Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click Response.Redirect("ThemDonVi.aspx?Mode=AddNew", True) End Sub 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 117 Private Sub grdDV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grdDV.SelectedIndexChanged End Sub End Class b Code form DSDonViPhaiBaocao Public Class DSDonViBaoCao Inherits System.Web.UI.Page #Region " Web Form Designer Generated Code " Private Sub InitializeComponent() End Sub Protected WithEvents grdDonVi As System.Web.UI.WebControls.DataGrid Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then BindDonVi() End If End Sub Private Sub BindDonVi() Try Dim dt As DataTable dt = New DataTable("DSDonViBaoCao") Dim MaDonVi As DataColumn = New DataColumn("MaDonVi") MaDonVi.DataType = System.Type.GetType("System.String") dt.Columns.Add(MaDonVi) Dim TenDonVi As DataColumn = New DataColumn("TenDonVi") TenDonVi.DataType = System.Type.GetType("System.String") dt.Columns.Add(TenDonVi) Dim TongSoCB As DataColumn = New DataColumn("TongSoCB") TongSoCB.DataType = System.Type.GetType("System.Int32") dt.Columns.Add(TongSoCB) Dim ds As New DataSet 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 118 ds.ReadXml("D:\temp\Data.xml") Dim i As Integer For i = To ds.Tables(0).Rows.Count - If ds.Tables(0).Rows(i).Item("BaoCao") = Then dt.ImportRow(ds.Tables(0).Rows(i)) End If Next grdDonVi.DataSource = dt grdDonVi.DataBind() ds.Dispose() Catch ex As Exception Dim strError As String = ex.Message End Try End Sub Private Sub grdDonVi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grdDonVi.SelectedIndexChanged End Sub End Class c Code form báo cáo đơn vị Public Class DonViBaoCao Inherits System.Web.UI.Page #Region " Web Form Designer Generated_u67 ?ode " Private Sub InitializeComponent() End Sub Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Label3 As System.Web.UI.WebControls.Label Protected WithEvents Label2 As System.Web.UI.WebControls.Label Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox Protected WithEvents Label4 As System.Web.UI.WebControls.Label Protected WithEvents Label5 As System.Web.UI.WebControls.Label Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox Protected WithEvents Label6 As System.Web.UI.WebControls.Label Protected WithEvents btnThoat As System.Web.UI.WebControls.Button Protected WithEvents txtMaDonVi As System.Web.UI.WebControls.TextBox Protected WithEvents txtTenDonVi As System.Web.UI.WebControls.TextBox Protected WithEvents txtTSCanBo As System.Web.UI.WebControls.TextBox Protected WithEvents txtSCBBienChe As System.Web.UI.WebControls.TextBox Protected WithEvents btnGuiBaoCao As System.Web.UI.WebControls.Button Protected WithEvents RegTongsoCB As System.Web.UI.WebControls.RegularExpressionValidator 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 119 Protected WithEvents ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary Protected WithEvents RegSoCBbienche As System.Web.UI.WebControls.RegularExpressionValidator Protected WithEvents CusTongSo As System.Web.UI.WebControls.CustomValidator Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not Page.IsPostBack Then LoadData() End If LoadErrMessages() End Sub Private Sub LoadErrMessages() RegTongsoCB.ErrorMessage = "Dữ liệu khơng hợp lệ Xin vui lịng nhập số ngun dương!" RegSoCBbienche.ErrorMessage = "Dữ liệu khơng hợp lệ Xin vui lịng nhập số nguyên dương!" End Sub Private Sub LoadData() If (Not Request.QueryString("MaDonVi") Is Nothing) Then Try Dim i As Integer Dim ds As New DataSet ds.ReadXml("D:\temp\Data.xml") For i = To ds.Tables(0).Rows.Count - If ds.Tables(0).Rows(i).Item("MaDonVi") = Request.QueryString("MaDonVi") Then txtMaDonVi.Text = Request.QueryString("MaDonVi") txtMaDonVi.ReadOnly = True txtTenDonVi.Text = ds.Tables(0).Rows(i).Item("TenDonVi") txtTenDonVi.ReadOnly = True End If Next ds.Dispose() 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 120 Catch ex As Exception Dim strError As String = ex.Message End Try End If End Sub Private Sub btnGuiBaoCao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuiBaoCao.Click Dim i As Integer Dim ds As New DataSet Try ds.ReadXml("D:\temp\Data.xml") For i = To ds.Tables(0).Rows.Count - If ds.Tables(0).Rows(i).Item("MaDonVi") = Request.QueryString("MaDonVi") Then ds.Tables(0).Rows(i).Item("MaDonVi") = txtMaDonVi.Text ds.Tables(0).Rows(i).Item("TenDonVi") = txtTenDonVi.Text ds.Tables(0).Rows(i).Item("BaoCao") = ds.Tables(0).Rows(i).Item("NhanBaoCao") = » If txtTSCanBo.Text "" Then ds.Tables(0).Rows(i).Item("TongSoCanBo") = txtTSCanBo.Text Else ds.Tables(0).Rows(i).Item("TongSoCanBo") = End If If txtSCBBienChe.Text "" Then ds.Tables(0).Rows(i).Item("SoCBBienChe") = txtSCBBienChe.Text Else ds.Tables(0).Rows(i).Item("SoCBBienChe") = End If If Integer.Parse(txtSCBBienChe.Text) > Integer.Parse(txtTSCanBo.Text) Then CusTongSo.ErrorMessage = "Số cán biên chế phải tổng số cán bộ" CusTongSo.IsValid = False Return End If ds.WriteXml("D:\temp\Data.xml", _ _u32 ?XmlWriteMode.WriteSchema) End If Next Catch ex As Exception Dim err As String = ex.Message Finally 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 121 ds.Dispose() End Try Response.Redirect("DSDonViBaoCao.aspx", True) End Sub Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click Response.Redirect("DSDonViBaoCao.aspx", True) End Sub End Class d Code cho chức thêm đơn vị vào sở liệu Imports System.Xml Imports System.Text Imports System.Net Imports System.IO Public Class ThemDonVi Inherits System.Web.UI.Page #Region " Web Form Designer Generated_u67 ?ode " Private Sub InitializeComponent() End Sub Protected WithEvents txtMaDonVi As System.Web.UI.WebControls.TextBox Protected WithEvents txtTenDonVi As System.Web.UI.WebControls.TextBox Protected WithEvents btnThem As System.Web.UI.WebControls.Button Protected WithEvents btnThoat As System.Web.UI.WebControls.Button Protected WithEvents ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary Protected WithEvents CustomValidator As System.Web.UI.WebControls.CustomValidator Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then LoadData() End If End Sub 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 122 Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click Dim i As Integer Dim strString As String Dim ds As New DataSet If (Request.QueryString("Mode") = "AddNew") Then Dim inputXml As String ds.ReadXml("D:\temp\Data.xml") For i = To ds.Tables(0).Rows.Count - If (txtMaDonVi.Text = ds.Tables(0).Rows(i).Item("MaDonVi")) Then CustomValidator.ErrorMessage = "Mã đơn vị tồn Xin vui lòng nhập mã khác!" CustomValidator.IsValid = False Return End If Next Dim reader As StreamReader = New StreamReader("D:\temp\Data.xml") inputXml = reader.ReadToEnd reader.Close() Try inputXml = inputXml.Substring(0, inputXml.IndexOf("")) strString = "" strString = strString + txtMaDonVi.Text + "" strString = strString + txtTenDonVi.Text + "0" strString = strString + "0000" inputXml = inputXml + strString + "" Dim doc As XmlDocument = New XmlDocument doc.LoadXml(inputXml) doc.Save("D:\temp\Data.xml") Catch ex As Exception Dim str As String = ex.Message End Try Else Try ds.ReadXml("D:\temp\Data.xml") For i = To ds.Tables(0).Rows.Count - If ds.Tables(0).Rows(i).Item("MaDonVi") = Request.QueryString("MaDonVi") Then ds.Tables(0).Rows(i).Item("MaDonVi") = txtMaDonVi.Text ds.Tables(0).Rows(i).Item("TenDonVi") = txtTenDonVi.Text 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 123 ds.WriteXml("D:\temp\Data.xml", _ _u32 ? XmlWriteMode.WriteSchema) End If Next Catch ex As Exception Dim err As String = ex.Message Finally ds.Dispose() End Try End If Response.Redirect("DonVi.aspx") End Sub Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click Response.Redirect("DonVi.aspx", True) End Sub Private Sub LoadData() If (Not Request.QueryString("MaDonVi") Is Nothing) Then Try Dim i As Integer Dim ds As New DataSet ds.ReadXml("D:\temp\Data.xml") For i = To ds.Tables(0).Rows.Count - If ds.Tables(0).Rows(i).Item("MaDonVi") = Request.QueryString("MaDonVi") Then txtMaDonVi.Text = Request.QueryString("MaDonVi") txtTenDonVi.Text = ds.Tables(0).Rows(i).Item("TenDonVi") End If Next ds.Dispose() Catch ex As Exception Dim strError As String = ex.Message End Try End If End Sub End Class e Code cho chức tổng hợp báo cáo Public Class TongHopBaoCao Inherits System.Web.UI.Page #Region " Web Form Designer Generated Code " 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 124 Private Sub InitializeComponent() End Sub Protected WithEvents grdBaoCao As System.Web.UI.WebControls.DataGrid Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then BindDonVi() End If End Sub Private Sub BindDonVi() Try Dim ds As New DataSet ds.ReadXml("D:\temp\Data.xml") grdBaoCao.DataSource = ds grdBaoCao.DataBind() ds.Dispose() Catch ex As Exception Dim strError As String = ex.Message End Try End Sub End Class f Code cho chức phân tiêu Public Class PhanChiTieu Inherits System.Web.UI.Page #Region " Web Form Designer Generated Code " Private Sub InitializeComponent() End Sub Protected WithEvents grdDonvi As System.Web.UI.WebControls.DataGrid Protected WithEvents btnPhanCT As System.Web.UI.WebControls.Button Protected WithEvents txtTongso As System.Web.UI.WebControls.TextBox Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 125 InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then BindDonVi() End If End Sub Private Sub BindDonVi() Try Dim tongso As Integer Dim i As Integer Dim ds As New DataSet ds.ReadXml("D:\temp\Data.xml") For i = To ds.Tables(0).Rows.Count - tongso = tongso + Integer.Parse(ds.Tables(0).Rows(i).Item("SoBienCheDG")) Next txtTongso.Text = tongso.ToString() grdDonvi.DataSource = ds grdDonvi.DataBind() ds.Dispose() Catch ex As Exception Dim strError As String = ex.Message End Try End Sub Private Sub btnPhanCT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPhanCT.Click Dim i As Integer Dim dem As Integer i=0 Dim ds As New DataSet ds.ReadXml("D:\temp\Data.xml") For i = To ds.Tables(0).Rows.Count - Try ds.Tables(0).Rows(i).Item("SoBienCheDuocGiao") = Integer.Parse(grdDonvi.Items(i).Cells(4).Text) ds.WriteXml("D:\temp\Data.xml", _ XmlWriteMode.WriteSchema) Catch ex As Exception 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 126 Dim err As String = ex.Message Finally ds.Dispose() End Try Next Response.Redirect("ThongBaoTuyenDung.aspx", True) End Sub End Class g Code cho chức thông báo tuyển dụng Public Class ThongBaoTuyenDung Inherits System.Web.UI.Page #Region " Web Form Designer Generated_u67 ?ode " Private Sub InitializeComponent() End Sub Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox Protected WithEvents grdDonvi As System.Web.UI.WebControls.DataGrid Protected WithEvents txtTongSo As System.Web.UI.WebControls.TextBox Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then BindDonVi() End If End Sub Private Sub BindDonVi() Try Dim i As Integer Dim tongso As Integer Dim ds As New DataSet ds.ReadXml("D:\temp\Data.xml") For i = To ds.Tables(0).Rows.Count - tongso = tongso + Integer.Parse(ds.Tables(0).Rows(i).Item("SoBienCheDG")) Next txtTongSo.Text = tongso.ToString() 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99 z 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.2237.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.66 37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.99