Luận văn thạc sĩ VNU UET ứ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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 vµ HTML .28 2.1.3 Sư dơng XML 29 2.1.4 CÊu tróc vµ có ph¸p cđa 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 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 cđa Bé Lao động Thơng binh X hội 52 3.2.2 Đối tợng vị trí tuyển dụng .53 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 tuyển 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 c¸c 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 ca sử dụng 71 3.5.1 Gãi ca sử dụng "Xác định tiêu tuyển dụng" 71 3.5.2 Gãi ca sư dơng "Qu¶n lý hå s¬ dù tun" .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 tun 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 chØ 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ự tun” .95 3.6.9 Ca sư dơng “Tra cøu hå s¬” 96 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 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ả 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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¬ tun” 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 đồ tuần tù 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 xét duyệt 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 cđa 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 r i đợ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 sù nh− mét 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 c¸c øng dơng mét 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, lu trữ 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 xố don v? này?');" End Sub Private Sub BindDonVi() Try Dim ds As New DataSet LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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ố nguyên dương!" RegSoCBbienche.ErrorMessage = "Dữ liệu khơng hợp lệ Xin vui lịng nhập số ngun 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() LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 " LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 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() LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 127 grdDonvi.DataSource = ds grdDonvi.DataBind() ds.Dispose() Catch ex As Exception Dim strError As String = ex.Message End Try End Sub End Class LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ... 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 LUAN... 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đa 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ệ. .. tin đ phát triển ứng dụng mạnh mẽ từ năm 19 60 thể kỷ trớc, Việt nam Công nghệ thông tin đ phát triển ứng dụng rộng r i đợ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