(Luận văn tốt nghiệp) xây dựng hệ thống thông tin quản lý nhân sự tại công ty cổ phần xây dựng vinaconex 1

LỜI CẢM ƠN Để hồn thiện khóa luận tốt nghiệp với đề tài “Xây dựng hệ thống thông tin quản lý nhân quản lý đào tạo cho công ty cổ phần đầu tư phát triển công nghệ Văn Lang” cố gắng thân suốt q trình học tập cịn có giúp đỡ nhiều Nhà trường, thầy cô, ban lãnh đạo cán nhân viên công ty cổ phần đầu tư phát triển công nghệ Văn Lang Trước hết em xin chân thành cảm ơn Ban giám hiệu nhà trường, thầy cô Khoa Hệ thống thơng tin kinh tế tồn thể thầy giáo Trường Đại học Thương Mại tận tình giảng dạy tạo điều kiện tốt cho em suốt thời gian học tập trường Em xin bày tỏ lòng cảm ơn sâu sắc đến Thầy PGS.TS Đàm Gia Mạnh trực tiếp hướng dẫn, giúp đỡ tận tình cho em thời gian thực khóa luận tốt nghiệp Em xin chân thành cảm ơn giúp đỡ quý báu Ban giám đốc tồn thể nhân viên, phịng ban Cơng ty cổ phần đầu tư phát triển công nghệ Văn Lang cung cấp đầy đủ thông tin tạo điều kiện giúp đỡ em suốt thời gian thực tập cơng ty để em nắm bắt kiến thức thực tế hoàn thành khóa luận tốt nghiệp Hà Nội, Ngày 03 tháng 05 năm 2013 Sinh viên thực Nguyễn Thị Tảo i Luan van MỤC LỤC LỜI CẢM ƠN i MỤC LỤC ii DANH MỤC BẢNG BIỂU, SƠ ĐỒ, HÌNH VẼ iv DANH MỤC TỪ VIẾT TẮT .vi PHẦN 1: TỔNG QUAN VỀ XÂY DỰNG HỆ THỐNG THÔNG TIN QUẢN LÝ NHÂN SỰ 1.1 Tầm quan trọng, ý nghĩa xây dựng hệ thống thông tin quản lý nhân 1.1.1 Tầm quan trọng xây dựng hệ thống thông tin quản lý nhân .1 1.1.2 Ý nghĩa xây dựng hệ thống thông tin quản lý nhân 1.2 Tổng quan vấn đề xây dựng hệ thống thông tin quản lý nhân 1.3 Mục tiêu cụ thể đặt cần giải đề tài 1.4 Đối tượng phạm vi nghiên cứu đề tài .4 1.4.1 Đối tượng 1.4.2 Phạm vi nghiên cứu .4 1.5 Phương pháp thực đề tài 1.6 Kết cấu khóa luận PHẦN 2: CƠ SỞ LÝ LUẬN VÀ THỰC TRẠNG VỀ QUẢN LÝ NHÂN SỰ TẠI CÔNG TY CP ĐẦU TƯ VÀ PHÁT TRIỂN CÔNG NGHỆ VĂN LANG 2.1 Cơ sở lý luận 2.1.1 Một số lý thuyết nguồn nhân lực, quản trị nguồn nhân lực 2.1.2 Khái quát hệ thống thông tin 2.1.3 Phương pháp phát triển hệ thống thông tin .11 2.1.4 Các yêu cầu hệ thống quản lý .12 2.1.5 Các giai đoạn xây dựng hệ thống thông tin .13 2.1.5 Công cụ xây dựng hệ thống thông tin .16 2.2 Đánh giá, phân tích thực trạng quản trị nguồn nhân lực công ty cổ phần đầu tư phát triển công nghệ Văn Lang .18 2.2.1 Giới thiệu khái quát công ty cổ phần đầu tư phát triển công nghệ Văn Lang 18 2.2.2 Khái quát hoạt động sản xuất kinh doanh công ty cổ phần đầu tư phát triển công nghệ Văn Lang 19 ii Luan van 2.2.3 Phân tích thực trạng quản trị nguồn nhân lực cơng ty cổ phần đầu tư phát triển công nghệ Văn Lang 22 2.2.4 Đánh giá thực trạng vấn đề quản trị nguồn nhân lực công ty cổ phần đầu tư phát triển công nghệ Văn Lang 30 PHẦN 3: ĐỊNH HƯỚNG PHÁT TRIỂN VÀ MỘT SỐ GIẢI PHÁP HỒN THIỆN HỆ THỐNG THƠNG TIN QUẢN LÝ NHÂN SỰ CHO CÔNG TY CP ĐẦU TƯ VÀ PHÁT TRIỂN CÔNG NGHỆ VĂN LANG 34 3.1 Định hướng phát triển hệ thống thông tin quản lý nhân quản lý đào tạo cho công ty cổ phần đầu tư phát triển công nghệ Văn Lang 34 3.2 Các đề xuất xây dựng hệ thống thông tin quản lý nhân quản lý đào tạo cho công ty cổ phần đầu tư phát triển công nghệ Văn Lang 35 3.2.1 Khảo sát 35 3.2.2 Phân tích 37 3.2.3 Mơ hình quan hệ thực thể 40 3.2.4 Thiết kế hệ thống thông tin quản lý nhân quản lý đào tạo công ty cổ phần đầu tư phát triển công nghệ Văn Lang 41 3.3 Một số kiến nghị công ty 47 KẾT LUẬN .48 TÀI LIỆU THAM KHẢO PHỤ LỤC iii Luan van DANH MỤC BẢNG BIỂU, SƠ ĐỒ, HÌNH VẼ STT Tên bảng biểu, sơ đồ, hình vẽ Trang Hình 2.1 Mối liên kết liệu, thông tin tri thức Bảng 2.1 Danh mục sản phẩm phần mềm 20 Bảng 2.2 Danh mục sản phẩm dịch vụ phần mềm, phần cứng 21 Bảng 2.3 Danh mục sản phẩm hàng hóa 21 Bảng 2.4 Kết hoạt động kinh doanh năm gần 22 công ty cổ phần đầu tư phát triển công nghệ Văn Lang Bảng 2.5 Cơ cấu lao động công ty phân theo trình độ 23 Bảng 2.6 Cơ cấu lao động công ty phân theo hợp đồng lao 23 động 10 Bảng 2.7 Cơ cấu lao động công ty phân theo giới tính 24 11 Bảng 2.8 Chính sách đào tạo định kỳ cán bộ, nhân viên 27 12 Bảng 3.1 Bảng NHANVIEN 41 13 Bảng 3.2 Bảng PHONGBAN 42 14 Bảng 3.3 Bảng CHUCVU 42 15 Bảng 3.4 Bảng LUONG 42 16 Bảng 3.5 Bảng HOSODAOTAO 42 17 Bảng 3.6 Bảng THANNHAN 43 18 Bảng 3.7 Bảng TRINHDOHV 43 19 Bảng 3.8 Bảng HESOLUONG 43 20 Hình 3.1 Biểu đồ phân cấp chức hệ thống thông tin 38 21 quản lý nhân 22 Hình 3.2 Biểu đồ luồng liệu mức ngữ cảnh hệ thống 38 23 Hình 3.3 Biểu đồ luồng liệu mức đỉnh 39 24 Hình 3.4 Biểu đồ luồng liệu mức đỉnh chức 39 25 Quản lý nhân viên Quản lý lương 26 Hình 3.5 Biểu đồ luồng liệu mức đỉnh chức 27 Quản lý đào tạo, tìm kiếm, báo cáo 28 Hình 3.6 Biểu đồ mơ hình quan hệ 41 29 Hình 3.7 Giao diện phần mềm quản lý nhân 44 iv Luan van 40 30 Hình 3.8 Form thao tác với bảng NHANVIEN 44 31 Hình 3.9 Form thao tác với bảng HOSODAOTAO 45 32 Hình 3.10 Form hợp đồng lao động 45 33 Hình 3.11 Form cập nhập hợp đồng lao động 45 34 Bảng 3.12 Form quản lý LUONG 46 35 Bảng 3.13 Form báo cáo bảng lương 46 Hình 3.14 Form nhập thông tin để in báo cáo tổng hợp 46 v Luan van DANH MỤC TỪ VIẾT TẮT STT Từ viết tắt Từ viết đầy đủ CP Cổ phần CNTT Công nghệ thông tin CSDL Cơ sở liệu HTTT Hệ thống thông tin vi Luan van PHẦN 1: TỔNG QUAN VỀ XÂY DỰNG HỆ THỐNG THÔNG TIN QUẢN LÝ NHÂN SỰ 1.1 Tầm quan trọng, ý nghĩa xây dựng hệ thống thông tin quản lý nhân 1.1.1 Tầm quan trọng xây dựng hệ thống thông tin quản lý nhân Quản trị nguồn nhân lực giữ vai trò đặc biệt quan trọng ngày nhà quản trị quan tâm nghiên cứu phân tích, xem chức cốt lõi quan trọng tiến trình quản trị Quản trị nguồn nhân lực công tác quản lý phạm vi nội tổ chức, đối sử tổ chức người lao động Nói cách khác, quản trị nhân lực chịu trách nhiệm việc đa người vào tổ chức, giúp cho họ thực công việc, thù lao cho sức lao động họ giải vấn đề phát sinh Con người yếu tố cấu thành lên tổ chức, vận hành tổ chức định thành bại tổ chức Nguồn nhân lực nguồn lực thiếu, mặt khác quản lý nguồn lực khác khơng có hiệu tổ chức không quản lý hiệu nguồn nhân lực người Nền kinh tế nước ta kinh tế thị trường có điều tiết nhà nước, đặc trưng bật tính cạnh tranh, đặc biệt trước ngưỡng cửa hội nhập kinh tế quốc tế, phải đối mặt với hàng loạt cơng ty, tập đồn lớn mạnh giới Các tổ chức nói chung doanh nghiệp nói riêng buộc phải cải thiện tổ chức, yếu tố người định Việc tìm người phù hợp để giao việc, hay cương vị vấn đề đáng quan tâm hình thức tổ chức Sự tiến khoa học kỹ thuật đại với phát triển kinh tế “mở” buộc nhà quản trị phải biết thích ứng, việc tuyển chọn, xếp, đào tạo, điều động nhân máy tổ chức nhằm đạt hiệu tốt giới quan tâm Quản trị nhân lực phận cấu thành thiếu quản trị kinh doanh Quản trị nhân lực thường nguyên nhân thành công hay thất bại hoạt động sản xuất kinh doanh doanh nghiệp Vậy câu hỏi đặt là: “Quản lý nhân cho đơn giản mà hiệu cao nhất? Quản lý phương pháp cho nhanh mà tiết kiệm chi phí?” Một hệ thống thơng tin hoàn hảo cải thiện tất băn khoăn Luan van 1.1.2 Ý nghĩa xây dựng hệ thống thông tin quản lý nhân Nghiên cứu quản trị nhân giúp cho nhà quản trị học cách giao dịch với người khác, biết lắng nghe, biết tìm ngơn ngữ chung với nhân viên, biết cách đánh giá nhân viên cách tốt nhất, biết cách lôi kéo nhân viên say mê với công việc tránh sai lầm việc tuyển chọn sử dụng lao động, nâng cao chất lượng công việc, nâng cao hiệu tổ chức Quản lý nguồn nhân lực vừa khoa học vừa nghệ thuật làm cho mong muốn doanh nghiệp mong muốn nhân viên tương hợp với đạt đến mục tiêu Quản lý tốt nguồn nhân lực cơng ty yếu tố định thành cơng kinh doanh người tạo dựng nên doanh nghiệp đạo hướng phát triển doanh nghiệp Hệ thống thông tin quản lý nhân đem lại lợi ích to lớn cho doanh nghiệp, tiết kiệm thời gian, công sức so với việc quản lý phương pháp thủ công Đơn giản hóa xác có tính tự động hóa cao việc quản lý làm việc nhân viên đoàn thể đơn vị, dễ dàng bảo trì phát triển ứng dụng, khơng giới hạn phạm vi, quy mơ phát triển đơn vị, chi phí triển khai đào tạo sử dụng thấp Hệ thống thông tin quản lý nhân công cụ tốt giúp doanh nghiệp quản lý nhân cách hiệu Nhà lãnh đạo giành thời gian để chun tâm cho cơng việc khác mang tầm chiến lược Có hệ thống thơng tin quản lý nhân hoàn hảo ban lãnh đạo dễ dàng việc quản lý thân mình, nhân viên, khách hàng, nhà cung cấp thông tin nhân cơng ty có nhu cầu tìm kiếm đơn giản, nhanh chóng, sẵn sàng cho nhu cầu mở rộng tương lai 1.2 Tổng quan vấn đề xây dựng hệ thống thông tin quản lý nhân Qua tham khảo tài liệu ngồi trường Đại Học Thương Mại, có nhiều tác giả có cơng trình nghiên cứu đóng góp khơng cho doanh nghiệp nói riêng xã hội nói chung Các cơng trình khơng đơn giá trị lý luận, học thuyết mà có giá trị thực tế có tính chất ứng dụng cụ thể, số cơng trình nghiên cứu liên quan: Chun đề tốt nghiệp Vương Ngọc Quỳnh, lớp Tin 47A, Khoa Tin Học Kinh Tế, Đại Học Kinh Tế Quốc Dân Hà Nội, 2009, với đề tài “Xây dựng hệ thống thông tin quản lý nhân công ty cổ phần xây dựng vinaconex 1” Cơng trình đưa số Luan van lý luận hệ thống thông tin, sở liệu hệ thống thơng tin trình tự phân tích hệ thống thơng tin Trên sở lý luận sâu vào phân tích thực trạng hoạt động kinh doanh tình hình cơng tác quản lý nhân công ty cổ phần xây dựng Vinaconex 1,…Từ tiến hành phân tích thiết kế hệ thống thông tin quản lý nhân công ty cổ phần xây dựng Vinaconex Nhưng cơng trình chưa tn thủ quy trình xây dựng hệ thống thơng tin quản lý, chưa xây dựng biểu đồ mơ hình hóa hệ thống thông tin dạng luồng liệu Luận văn thạc sĩ anh Nguyễn Chí Thành, Đại Học Thái Nguyên với đề tài “Xây dựng hệ thống thông tin quản lý nhân tiền lương hệ thống ERP” Cơng trình đưa trạng tổng qt ERP Việt Nam bất cập, lựa chọn phương pháp lập trình hướng đối tượng để phát triển hệ thống thông tin quản lý nhân lương sâu mô tả hoạt động nghiệp vụ biểu đồ Ucase, biểu đồ lớp sơ đồ Tuy nhiên, hệ thống quản lý nhân luận văn chủ yếu mô tả lý thuyết biểu đồ lớp, cơng trình dừng lại việc thiết kế bảng thực thể liệu, cơng trình chưa đề cập đến lý thuyết cơng cụ sử dụng lập trình, chưa thiết kế giao diện phần mềm, chưa có hình ảnh Form làm việc phần mềm Luận văn tốt nghiệp bạn sinh viên, lớp Tin 49A, Khoa Tin Học Kinh Tế, Đại Học Kinh Tế Quốc Dân Hà Nội, đề tài “Xây dựng hệ thống thông tin quản lý nhân công ty cổ phần phần mềm BRAVO” Cơng trình nêu khái qt tổ chức hoạt động cơng ty từ đưa mục tiêu đề tài Trong cơng trình nêu khái niệm thông tin, hệ thống thông tin Qua phân tích chi tiết hệ thống (biểu đồ phân cấp chức năng, biểu đồ luồng liệu mức đỉnh, biểu đồ luồng liệu mức đỉnh), thiết kế sở liệu, thiết kế phần mềm, thiết kế giao diện phần mềm, cài đặt đánh giá hệ thống Tuy nhiên, cơng trình chưa đề cập đến vấn đề phân loại hệ thống thông tin quản trị nguồn nhân lực, cơng trình chưa tn thủ quy trình xây dựng hệ thống thơng tin quản lý Nhận thức rõ tầm quan trọng việc ứng dụng công nghệ thông tin vào công tác quản lý vai trò to lớn đội ngũ cán nhân viên cơng ty Tơi nhận thấy cần có kế hoạch xây dựng hệ thống thông tin quản lý nhân Vì thời gian thực tập cơng ty, tơi tìm hiểu cách thức quản lý nhân công ty định lựa chọn đề tài: ”Xây dựng hệ thống thông tin quản lý nhân quản lý đào Luan van tạo cho công ty cổ phần đầu tư phát triển công nghệ Văn Lang” nội dung đề tài có phần trùng lặp với đề tài khóa luận tốt nghiệp, cơng trình anh chị khóa trước ngồi trường khơng có trùng lặp hồn tồn, khác thời gian khơng gian thực Tính cấp thiết, thời vấn đề liên quan sâu sắc đến tính kinh tế ngày nóng hổi địi hỏi hồn thiện Các đề tài trước hầu hết sử dụng ngôn ngữ Visual Basic 6.0 Microsoft access 2003 để lập trình, đề tài mang tính nhỏ lẻ, riêng biệt cho công ty, chưa áp dụng sâu rộng Vấn đề mà tơi lựa chọn nghiên cứu cịn khó khăn đặt nhiều thách thức cho chủ thể nghiên cứu Chính vậy, lần tơi muốn sâu nhìn nhận tìm giải pháp thực có tính ứng dụng thực tiễn để áp dụng cho công ty thực tập áp dụng rộng rãi doanh nghiệp 1.3 Mục tiêu cụ thể đặt cần giải đề tài Cụ thể với mục tiêu đề tài sau: - Hệ thống hóa quy trình xây dựng hệ thống thơng tin quản lý nhân công ty cổ phần đầu tư phát triển công nghệ Văn Lang - Đánh giá thực trạng quản lý nhân quản lý đào tạo công ty cổ phần đầu tư phát triển công nghệ Văn Lang - Đề xuất giải pháp nhằm hồn thiện hệ thống thơng tin quản lý nhân quản lý đào tạo phù hợp với yêu cầu công tác quản lý nhân công ty cổ phần đầu tư phát triển công nghệ Văn Lang - Đưa số kiến nghị với ban lãnh đạo công ty cổ phần đầu tư phát triển công nghệ Văn Lang nhằm nâng cao hiệu quản lý nhân 1.4 Đối tượng phạm vi nghiên cứu đề tài 1.4.1 Đối tượng Hệ thống thông tin, hệ thống thông tin quản lý nhân sự, phần mềm quản lý nhân quản lý đào tạo doanh nghiệp 1.4.2 Phạm vi nghiên cứu Không gian: Công ty cổ phần đầu tư phát triển công nghệ Văn Lang Thời gian: Các số liệu khảo sát từ năm 2010 đến năm 2012 Luan van txtmanhanvien.Text & "',N'" & txthoten.Text & "',N'" & txtdiachi.Text & "',N'" & txtgioitinh.Text & "','" & txtngaysinh.Text & "','" & txtMacv.Text & "','" & txtMapb.Text & "')" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach () End If End Sub Private Sub btsua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsua.Click Dim lenh As String If txtmanhanvien.Text = "" Or txthoten.Text = "" Or txtdiachi.Text = "" Or txtgioitinh.Text = "" Or txtngaysinh.Text = "" Then MsgBox(" Bạn Phải Nhập Giá Trị Cấn Sửa !!! ") Else lenh = "Update NHANVIEN set hoten = N'" & txthoten.Text & "',gioitinh = N'" & txtgioitinh.Text & "',ngaysinh = '" & txtngaysinh.Text & "',diachi = N'" & txtdiachi.Text & "' where Manv = '" & Trim(txtmanhanvien.Text) & "'" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach () End If End Sub Luan van Private Sub btxoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btxoa.Click Dim lenh As String If txtmanhanvien.Text = "" Then MsgBox(" Bạn Phải Nhập Giá Trị Cấn Xóa !!! ") Else lenh = " delete from NHANVIEN where Manv = '" & txtmanhanvien.Text & "'" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach () End If End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If MsgBox("Bạn có muốn khỏi chương trình khơng ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "THOÁT") = MsgBoxResult.No Then e.Cancel = True End If End Sub Private Sub btlamlai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btlamlai.Click txtmanhanvien.Text = "" txthoten.Text = "" txtdiachi.Text = "" txtgioitinh.Text = "" txtngaysinh.Text = "" txtMacv.Text = "" Luan van txtMapb.Text = "" End Sub Private Sub ButtonX1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click Dim mang As New ArrayList ' tim theo ma sinh vien If Not String.IsNullOrEmpty(txtmanhanvien.Text) Then mang.Add("Manv = '" & txtmanhanvien.Text & "'") End If ' tim theo ten sinh vien If Not String.IsNullOrEmpty(txthoten.Text) Then mang.Add("hoten like '" & txthoten.Text & "*'") End If If Not String.IsNullOrEmpty(txtMacv.Text) Then mang.Add("Macv = '" & txtMacv.Text & "'") End If If Not String.IsNullOrEmpty(txtgioitinh.Text) Then mang.Add("gioitinh = '" & txtgioitinh.Text & "'") End If If Not String.IsNullOrEmpty(txtngaysinh.Text) Then mang.Add("ngaysinh = '" & txtngaysinh.Text & "'") End If If Not String.IsNullOrEmpty(txtdiachi.Text) Then mang.Add("diachi = '" & txtdiachi.Text & "'") End If If Not String.IsNullOrEmpty(txtMapb.Text) Then mang.Add("Mapb = '" & txtMapb.Text & "'") Luan van End If Dim dieu_kien As String = "" For i As Integer = To mang.Count - If i = Then dieu_kien = mang(0) Else dieu_kien = dieu_kien & " and" & mang(i) End If Next Dim lenh As String = "select * from NHANVIEN" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Dim bang_doc As SqlDataReader = Bo_lenh.ExecuteReader Dim bang_nhan_vien As New DataTable("NHANVIEN") bang_nhan_vien.Load(bang_doc, LoadOption.OverwriteChanges) Ket_noi.Close() bang_nhan_vien.DefaultView.RowFilter = dieu_kien luoi.DataSource = bang_nhan_vien End Sub Private Sub ReflectionLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReflectionLabel1.Click End Sub End Class Chức Quản lý đào tạo: Public Class Form2 Private Ket_noi As SqlConnection Private bang_doc As SqlDataReader Luan van Private WithEvents danh_sach As BindingManagerBase Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Dim Chuoi_ket_noi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\ \ \data\QuanLyNhanSU.mdb" Dim Chuoi_ket_noi As String = "Data Source=M-PC\SQL2005;Initial Catalog=qly_nhansu_tienluong;Integrated Security=True" Ket_noi = New SqlConnection(Chuoi_ket_noi) Ket_noi = New SqlConnection(Chuoi_ket_noi) Xuat_danh_sach_HOSO() ' danh_sach_PositionChanged(sender, e) 'Tao_ket_noi() 'Xuat_danh_sach_HOSO() 'danh_sach_PositionChanged(sender, e) End Sub Private Sub Xuat_danh_sach_HOSO() Dim lenh As String = "select * from HOSODAOTAO" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Dim bang_doc As SqlDataReader = Bo_lenh.ExecuteReader Dim bang_HOSODAOTAO As New DataTable("HOSODAOTAO") bang_HOSODAOTAO.Load(bang_doc, LoadOption.OverwriteChanges) Ket_noi.Close() luoi.DataSource = bang_HOSODAOTAO ' danh_sach = Me.BindingContext(bang_HOSODAOTAO) Luan van End Sub Private Sub xuat_danh_sach_HOSO() txtMahs.Text = danh_sach.Current("Mahs") txtTenhs.Text = danh_sach.Current("Tenhs") txtMakh.Text = danh_sach.Current("Makh") txtMapb.Text = danh_sach.Current("Mapb") End Sub Private Sub danh_sach_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles danh_sach.PositionChanged xuat_danh_sach_HOSO() End Sub Private Sub btthem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btthem.Click Dim lenh As String If txtMahs.Text = "" Or txtTenhs.Text = "" Or txtMakh.Text = "" Or txtMapb.Text = "" Then MsgBox(" Bạn Phải Nhập Giá Trị Cấn Thêm !!! ") Else lenh = "insert into HOSODAOTAO(Mahs,Tenhs,Makh,Mapb) values(N'" & txtMahs.Text & "',N'" & txtTenhs.Text & "',N'" & txtMakh.Text & "',N'" & txtMapb.Text & "')" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach_HOSO() End If End Sub Luan van Private Sub btsua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsua.Click Dim lenh As String If txtMahs.Text = "" Or txtTenhs.Text = "" Or txtMakh.Text = "" Or txtMapb.Text = "" Then MsgBox(" Bạn Phải Nhập Giá Trị Cấn Sửa !!! ") Else lenh = "Update HOSODAOTAO set Tenhs = N'" & txtTenhs.Text & "',Makh = N'" & txtMakh.Text & "',Mapb = '" & txtMapb.Text & "' where Mahs = '" & Trim(txtMahs.Text) & "'" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach_HOSO() End If End Sub Private Sub btxoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btxoa.Click Dim lenh As String If txtMahs.Text = "" Then MsgBox(" Bạn Phải Nhập Giá Trị Cấn Xóa !!! ") Else lenh = " delete from HOSODAOTAO where Mahs = '" & txtMahs.Text & "'" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach_HOSO() End If Luan van End Sub Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If MsgBox("Bạn có muốn khỏi chương trình khơng ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "THỐT") = MsgBoxResult.No Then e.Cancel = True End If End Sub Private Sub btlamlai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btlamlai.Click txtMahs.Text = "" txtTenhs.Text = "" txtMakh.Text = "" txtMapb.Text = "" End Sub Private Sub ButtonX1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click Dim mang As New ArrayList ' tim theo ma sinh vien If Not String.IsNullOrEmpty(txtMahs.Text) Then mang.Add("Mahs = '" & txtMahs.Text & "'") End If ' tim theo ten sinh vien If Not String.IsNullOrEmpty(txtTenhs.Text) Then mang.Add("hoten like '" & txtTenhs.Text & "*'") End If If Not String.IsNullOrEmpty(txtMakh.Text) Then mang.Add("Macv = '" & txtMakh.Text & "'") Luan van End If If Not String.IsNullOrEmpty(txtMapb.Text) Then mang.Add("Mapb = '" & txtMapb.Text & "'") End If Dim dieu_kien As String = "" For i As Integer = To mang.Count - If i = Then dieu_kien = mang(0) Else dieu_kien = dieu_kien & " and" & mang(i) End If Next Dim lenh As String = "select * from HOSODAOTAO" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Dim bang_doc As SqlDataReader = Bo_lenh.ExecuteReader Dim bang_HOSODAOTAO As New DataTable("HOSODAOTAO") bang_HOSODAOTAO.Load(bang_doc, LoadOption.OverwriteChanges) Ket_noi.Close() bang_HOSODAOTAO.DefaultView.RowFilter = dieu_kien luoi.DataSource = bang_HOSODAOTAO End Sub Private Sub ReflectionLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReflectionLabel1.Click End Sub End Class Chức Quản lý lương: Public Class Form3 Luan van Private Ket_noi As SqlConnection Private bang_doc As SqlDataReader Private WithEvents danh_sach As BindingManagerBase Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Dim Chuoi_ket_noi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\ \ \data\HOCSINH.mdb" Dim Chuoi_ket_noi As String = "Data Source=M-PC\SQL2005;Initial Catalog=qly_nhansu_tienluong;Integrated Security=True" Ket_noi = New SqlConnection(Chuoi_ket_noi) Ket_noi = New SqlConnection(Chuoi_ket_noi) Xuat_danh_sach_luong() ' danh_sach_PositionChanged(sender, e) 'Tao_ket_noi() 'Xuat_danh_sach_luong() 'danh_sach_PositionChanged(sender, e) End Sub Private Sub Xuat_danh_sach_luong() Dim lenh As String = "select * from LUONG" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Dim bang_doc As SqlDataReader = Bo_lenh.ExecuteReader Dim bang_LUONG As New DataTable("LUONG") bang_LUONG.Load(bang_doc, LoadOption.OverwriteChanges) Ket_noi.Close() luoi.DataSource = bang_LUONG ' Luan van danh_sach = Me.BindingContext(bang_LUONG) End Sub Private Sub xuat_danh_sach_luong() txtMahs.Text = danh_sach.Current("Mahs") txtTenhs.Text = danh_sach.Current("Tenhs") txtMakh.Text = danh_sach.Current("Makh") txtMapb.Text = danh_sach.Current("Mapb") End Sub Private Sub danh_sach_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles danh_sach.PositionChanged xuat_danh_sach_luong() End Sub Private Sub btthem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btthem.Click Dim lenh As String If txtMahs.Text = "" Or txtTenhs.Text = "" Or txtMakh.Text = "" Or txtMapb.Text = "" Then MsgBox(" Bạn Phải Nhập Giá Trị Cấn Thêm !!! ") Else lenh = "insert into LUONG(phieuluong,luongcoban,hesoluong,phucap,thuong,Macv) values(N'" & txtphieuluong.Text & "',N'" & txtluongcoban.Text & "', N'" & txthesoluong.Text & "',N'" & txtphucap.Text & "',N'" & txtthuong.Text & "', N'" & txtMacv.Text & "')" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach_luong() End If Luan van End Sub Private Sub btsua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsua.Click Dim lenh As String If txtphieuluong.Text = "" Or txtluongcoban.Text = "" Or txthesoluong.Text = "" Or txtphucap.Text = "" Or txtthuong.Text = "" Or txtMacv.Text = "" Then MsgBox(" Bạn Phải Nhập Giá Trị Cấn Sửa !!! ") Else lenh = "Update LUONG set luongcoban = N'" & txtluongcoban.Text & "',hesoluong = N'" & txthesoluong.Text & "',phucap = '" & txtphucap.Text & "', thuong = '" & txtthuong.Text & "', Macv = '" & txtMacv.Text & "'where phieuluong = '" & Trim(txtphieuluong.Text) & "'" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach_luong() End If End Sub Private Sub btxoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btxoa.Click Dim lenh As String If txtMahs.Text = "" Then MsgBox(" Bạn Phải Nhập Giá Trị Cấn Xóa !!! ") Else lenh = " delete from LUONG where phieuluong = '" & txtphieuluong.Text & "'" Luan van Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Bo_lenh.ExecuteNonQuery() Ket_noi.Close() Xuat_danh_sach_luong() End If End Sub Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If MsgBox("Bạn có muốn khỏi chương trình khơng ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "THỐT") = MsgBoxResult.No Then e.Cancel = True End If End Sub Private Sub btlamlai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btlamlai.Click txtphieuluong.Text = "" txtluongcoban.Text = "" txthesoluong.Text = "" txtphucap.Text = "" txtthuong.Text = "" txtMacv.Text = "" End Sub Private Sub ButtonX1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click Dim mang As New ArrayList ' tim kiem theo phieu luong If Not String.IsNullOrEmpty(txtphieuluong.Text) Then mang.Add("phieuluong = '" & txtphieuluong.Text & "'") Luan van End If If Not String.IsNullOrEmpty(txtluongcoban.Text) Then mang.Add("luongcoban like '" & txtluongcoban.Text & "*'") End If If Not String.IsNullOrEmpty(txthesoluong.Text) Then mang.Add("hesoluong = '" & txthesoluong.Text & "'") End If If Not String.IsNullOrEmpty(txtphucap.Text) Then mang.Add("phucap = '" & txtphucap.Text & "'") End If If Not String.IsNullOrEmpty(txtthuong.Text) Then mang.Add("thuong = '" & txtthuong.Text & "'") End If If Not String.IsNullOrEmpty(txtMacv.Text) Then mang.Add("Macv = '" & txtMacv.Text & "'") End If Dim dieu_kien As String = "" For i As Integer = To mang.Count - If i = Then dieu_kien = mang(0) Else dieu_kien = dieu_kien & " and" & mang(i) End If Next Dim lenh As String = "select * from LUONG" Dim Bo_lenh As New SqlCommand(lenh, Ket_noi) Ket_noi.Open() Dim bang_doc As SqlDataReader = Bo_lenh.ExecuteReader Dim bang_LUONGAs New DataTable("LUONG") Luan van bang_LUONG.Load(bang_doc, LoadOption.OverwriteChanges) Ket_noi.Close() bang_LUONG.DefaultView.RowFilter = dieu_kien luoi.DataSource = bang_LUONG End Sub Private Sub ReflectionLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReflectionLabel1.Click End Sub End Class Luan van ... .vi PHẦN 1: TỔNG QUAN VỀ XÂY DỰNG HỆ THỐNG THÔNG TIN QUẢN LÝ NHÂN SỰ 1. 1 Tầm quan trọng, ý nghĩa xây dựng hệ thống thông tin quản lý nhân 1. 1 .1 Tầm quan trọng xây dựng hệ thống thông. .. hệ thống thông tin quản lý nhân quản lý đào tạo cho công ty cổ phần đầu tư phát triển công nghệ Văn Lang 34 3.2 Các đề xuất xây dựng hệ thống thông tin quản lý nhân quản lý đào tạo cho công. .. Cổ phần CNTT Công nghệ thông tin CSDL Cơ sở liệu HTTT Hệ thống thông tin vi Luan van PHẦN 1: TỔNG QUAN VỀ XÂY DỰNG HỆ THỐNG THÔNG TIN QUẢN LÝ NHÂN SỰ 1. 1 Tầm quan trọng, ý nghĩa xây dựng hệ thống