Xây dựng hệ thống quản lý nhân lực mỏ than phấn mế

MỤC LỤC LỜI CẢM ƠN Error! Bookmark not defined LỜI CAM ĐOAN Error! Bookmark not defined MỤC LỤC LỜI NÓI ĐẦU .1 PHẦN MỞ ĐẦU I.1 Tính cấp thiết đề tài I.2 Mục đích xây dựng đề tài I.3 Lĩnh vực triển khai .4 I.4 Công nghệ phát triển PHẦN NỘI DUNG CHƯƠNG I: CƠ SỞ LÝ THUYẾT 1.1 Cơ sở lý thuyết phân tích thiết kế hệ thống thông tin quản lý .5 1.2 Quy trình phát triển hệ thống thông tin 1.2.1 Khảo sát trạng xác lập dự án .5 1.2.2 Phân tích hệ thống 1.2.3 Thiết kế hệ thống 1.2.4 Xây dựng 1.2.5 Cài đặt hệ thống 1.2.6 Bảo trì hệ thống CHƯƠNG II: KHẢO SÁT THỰC TRẠNG VỀ CÔNG TÁC TỔ CHỨC QUẢN LÝ NHÂN SỰ TẠI MỎ THAN PHẤN MỄ 2.1 Quá trình hình thành phát triển mỏ than Phấn Mễ 2.2 Một số đặc điểm kinh tế- kỹ thuật 10 2.2.1 Đặc điểm cấu máy tổ chức 10 2.2.2 Đặc điểm lao động 12 2.3 Khảo sát hệ thống quản lý nhân Mỏ than Phấn Mễ 15 CHƯƠNG III: PHÂN TÍCH HỆ THỐNG QUẢN LÝ NHÂN SỰ MỎ THAN PHẤN MỄ 17 3.1 Yêu cầu hệ thống 17 3.2 Thông tin hệ thống 17 3.3 Các thông tin cần quản lý hệ thống quản lý nhân 18 3.4 Thông tin đầu cần kết xuất 20 2.4.1 Sơ yếu lý lịch 20 2.4.2 Thống kê danh sách khen thưởng 22 2.4.3 Danh sách kỷ luật 22 2.4.4 Danh sách đảng viên 23 2.4.5 Danh sách nhân viên lên lương .23 2.4.6 Danh sách nhân viên hưu 24 2.4.7 Danh sách nhân viên 25 2.4.8 Danh sách nhân viên theo phòng ban(phân xưởng) .26 3.5 Phân tích hệ thống 27 3.5.1 Biểu đồ phân cấp chức năng(BDF) 27 3.5.2 Biểu đồ luồng liệu mức khung cảnh .28 3.5.3 Biểu đồ luồng liệu mức đỉnh 29 3.5.4 Biểu đồ luồng liệu mức đỉnh chức cập nhật 30 3.5.6 Biểu đồ luồng liệu mức đỉnh chức tìm kiếm 32 3.6 Chuẩn hóa liệu từ thông tin đầu vào 33 3.6.1 Danh sách thuộc tính 33 3.6.2 Dạng chuẩn 1NF 33 3.6.3 Dạng chuẩn 2NF 34 3.6.4 Dạng chuẩn 3NF 34 3.6.5 Các bảng liệu 35 3.7 Mô hình thực thể liên kết 37 3.7.1 Mô hình thực thể liên kết đơn giản 37 3.7.2 Mô hình thực thể liên kết chi tiết 38 CHƯƠNG IV: THIẾT KẾ HỆ THỐNG VÀ XÂY DỰNG CHƯƠNG TRÌNH39 4.1 Các bảng liệu chương trình quản lý nhân 39 4.2 Cài đặt chương trình 45 4.2.1 Một số form chương trình 45 4.2.2 Một số mã code chương trình 49 KẾT LUẬN 61 TÀI LIỆU THAM KHẢO 62 PHỤ LỤC 63 NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN Error! Bookmark not defined LỜI NÓI ĐẦU Bước sang kỷ XXI, thấy rõ tầm quan trọng Công nghệ thông tin, Đảng nhà nước ta đẩy mạnh chủ trương tin học hóa toàn quốc lĩnh vực, từ trường học đến công sở Trong trường học, quan, xí nghiệp vấn đề tự động hóa bước công tác quản lý cần thiết, tin học quản lý thay phương pháp quản lý thủ công, đáp ứng kịp thời phát triển xã hội Về kinh tế yếu tố thúc đẩy công nghiệp hóa, đại hóa đất nước Về giáo dục đáp ứng tốt nhu cầu tính xác, đầy đủ, nhanh chóng, cung cấp khối lượng thông tin khổng lồ giúp người nắm bắt thông tin nhanh nhiều Là sinh viên ngành công nghệ thông tin, em cố gắng học hỏi trang bị cho kỹ cần thiết tin học Với kiến thức tiếp thu vận dụng lý thuyết công việc thực tiễn xây dựng phần mềm “Quản lý nhân sự” Qua thời gian tìm hiểu, nghiên cứu bám sát thực tế công việc kết hợp với lý thuyết học được, với nhu cầu thực tế chương trình, em xây dựng chương trình quản lý nhân mỏ than Phấn Mễ ngôn ngữ Visual Basic.net Chương trình xây dựng với mục đích: Đảm bảo tính an toàn, xác liệu, dễ sử dụng cho người dùng, thông tin đầy đủ, tránh dư thừa thông tin, cung cấp xác kịp thời đầy đủ thông tin mà người quản lý yêu cầu Tiết kiệm thời gian làm việc cho cán quản lý Em xin gửi lời cám ơn chân thành đến thầy cô giáo khoa Công nghệ thông tin trang bị cho em kiến thức bổ ích đặc biệt cám ơn thầy Nguyễn Duy Minh – Bộ môn Kỹ thuật máy tính hướng dẫn tận tình giúp em hoàn thành đồ án tốt nghiệp Nhưng thời gian có hạn, với vốn kiến thức tiếp thu hạn chế kinh nghiệm lập trình chưa cao, chương trình chắn tránh thiếu sót Em mong đóng góp ý kiến nội dung hình thức thầy cô giáo bạn để chương trình em hoàn thiện Để chương trình hoàn chỉnh áp dụng thực tế PHẦN MỞ ĐẦU I.1 Tính cấp thiết đề tài Trong thực tế quan, xí nghiệp, doanh nghiệp, trường học, số lượng công nhân viên lớn Vì công tác quản lý nhân cán quản lý gặp không khó khăn vất vả Thấy điều có nhiều quan sử dụng phần mềm quản lý để hỗ trợ việc quản lý chung Qua khảo sát thực tế mỏ than Phấn Mễ từ mỏ than Làng Cẩm sát nhập vào mỏ than Phấn Mễ số lượng công nhân viên chức tăng lên nhiều, nên công tác quản lý nhân mỏ than Phấn Mễ gặp không phức tạp Chính việc nghiên cứu để xây dựng phần mềm quản lý nhân riêng phù hợp với đặc điểm tình hình mỏ than yêu cầu bách I.2 Mục đích xây dựng đề tài - Mang lại lợi ích nghiệp vụ: Tăng khả xử lý, đáp ứng yêu cầu nghiệp vụ cách tin cậy, xác, an toàn bí mật - Mang lại lợi ích kinh tế: Giảm chi phí hoạt động, giảm biên chế cán - Mang lại lợi ích sử dụng: Nhanh chóng, thuận tiện - Khắc phục khiếm khuyết hệ thống cũ I.3 Lĩnh vực triển khai Phần mềm quản lý nhân xây dựng để áp dụng cho mỏ than Phấn Mễ I.4 Công nghệ phát triển - Ngôn ngữ lập trình: Visual Basic Net - Cơ sở liệu: Access - Hệ điều hành: Windows PHẦN NỘI DUNG CHƯƠNG I: CƠ SỞ LÝ THUYẾT 1.1 Cơ sở lý thuyết phân tích thiết kế hệ thống thông tin quản lý Quản lý thuật ngữ có nhiều cách hiểu khác nhau, quản lý trình biến đổi thông tin đưa đến hành động, trình tương đương việc đưa định ( J.W.Forester) Quản lý bao gồm việc điểu hòa tài nguyên để đạt tới mục đích ( F Kasat J.Rosenweing) Dù nói cách hay cách khác nhận thấy quan điểm khác mặt khái niệm, nội dung chúng bao gồm yếu tố: - Hướng tới mục đích - Thông qua người - Sử dụng kỹ thuật - Bên tổ chức Quản lý gắn kèm với tổ chức định, tổ chức thông qua người sử dụng công cụ, phương tiện kỹ thuật tiên tiến để đạt mục đích mà tổ chức đặt 1.2 Quy trình phát triển hệ thống thông tin Quy trình phát triển hệ thống thông tin chia làm nhiều giai đoạn Tùy thuộc vào phương pháp luận quy định phương thức làm việc đơn vị, quy trình chia thành số lượng bước nhiều khác Tuy nhiên có tổng hợp chung thành bước: Khảo sát, phân tích, thiết kế, xây dưng, cài đặt bảo trì hệ thống 1.2.1 Khảo sát trạng xác lập dự án Là giai đoạn tìm hiểu quy trình hoạt động hệ thống thực, nhu cầu thông tin làm sở xác định yêu cầu, phạm vi hệ thống thông tin Việc khảo sát thường tiến hành qua giai đoạn: - Khảo sát sơ bộ: Nhằm xác định tính khả thi dự án - Khảo sát chi tiết: Nhằm xác định xác thực khẳng định lợi ích kèm theo Các yêu cầu việc khảo sát là: - Khảo sát, tìm hiểu, đánh giá hoạt động hệ thống cũ - Đề xuất yêu cầu, mục tiêu ưu tiên giải cho hệ thống - Phác họa giải pháp cân nhắc tính khả thi dự án - Lập kế hoạch cho dự án với dự trù tổng quát 1.2.2 Phân tích hệ thống Là giai đoạn xác định rõ mục tiêu quản lý cần đạt hệ thống, nhân diện cà phân định thành phần mối quan hệ hệ thống Từ xác định chức xử lý ( sơ đồ phân cấp chức BFD), sơ đồ dòng liệu ( DFD) biểu đồ cấu trúc liệu( ERD) Cách tiến hành: - Xuất phát từ hệ thống cũ nhu cầu phát triển để xây dựng hệ thống - Chuyển từ mô tả vật lý sang mô tả logic hay chuyển từ mức vật lý sang mức khái niệm Sử dụng kỹ thuật phân tích từ xuống hay từ tổng thể đến chi tiết Phân tích hệ thống thành hai giai đoạn phân tích hệ thống xử lý phân tích hệ thống liệu 1.2.3 Thiết kế hệ thống Là giai đoạn phát triển bước phân tích giai đoạn trước thành mô hình logic vật lý, thiết kế giao diện người sử dụng Trong giai đoạn này, từ khái niệm biểu diễn mô hình quan hệ thực thể sinh mô hình liệu logic Trong giai đoạn trình chuyển từ mô hình liệu chức thành thiết kế sở liệu thiết kế modul Trong giai đoạn thiết kế, có nhiều công cụ cho phép đặc tả hệ thống song tất công cụ cần phải sử dụng Người phân tích phải tự chịu trách nhiệm đánh giá để có định xem có nên dùng công cụ cho phù hợp với hệ thống cụ thể 1.2.4 Xây dựng Là giai đoạn lập trình sở phân tích, thiết kế giai đoạn trước Kết chương trình Giai đoạn bao gồm bước: - Thi công: Trên sở kết thiết kế tiến hành tích hợp, mã hóa modul chương trình Viết câu lệnh sản sinh CSDL thực câu lệnh hệ quản trị CSDL lựa chọn - Tạo CSDL kiểm tra - Kiểm thử chương trình 1.2.5 Cài đặt hệ thống - Lập tài liệu hướng dẫn sử dụng - Thực việc chuyển đổi sở liệu có yêu cầu thay đổi sang hệ thống Cơ chế chuyển đổi phải thiết kế giai đoạn thiết kế hệ thống 1.2.6 Bảo trì hệ thống Bảo trì hệ thống tính từ hệ thống thức đưa vào sử dụng Bao gồm công việc: Theo dõi việc sử dụng hệ thống, nhận thông báo lỗi, sửa đổi , nâng cấp phiên trợ giúp hiệu chỉnh sai sót số liệu CHƯƠNG II: KHẢO SÁT THỰC TRẠNG VỀ CÔNG TÁC TỔ CHỨC QUẢN LÝ NHÂN SỰ TẠI MỎ THAN PHẤN MỄ 2.1 Quá trình hình thành phát triển mỏ than Phấn Mễ Mỏ than Phấn Mễ hình thành từ thời pháp thuộc thực dân Pháp quản lý tổ chức khai thác nhiều hình thức khai thác thủ công Đến năm 1945 cách mạng, cách mạng tháng tám thành công Mỏ nhà nước tiếp quản, sở hạ tầng mỏ lúc tồi tàn lạc hậu, phương tiện vận tải thiếu thốn nhiều, dụng cụ sản xuất thô sơ, trình độ lực sản xuất người lao động nhiều hạn chế… Khó khăn chồng chất nhờ đoàn kết hăng say lao động tập thể người lao động, Mỏ đứng vững tiếp tục hoạt động Trải qua nhiều đơn vị quản lý, đến tháng năm 1979 để chủ động nguồn nguyên liệu cung cấp cho luyện kim, hội đồng Bộ trưởng định số 27/HĐBT giao mỏ cho Công ty Gang thép Thái Nguyên quản lý đạo theo văn số 254/ CL – GTg Công ty Gang thép Thái Nguyên phân cấp tài chính, vật tư kỹ thuật Với giai đoạn lịch sử, Mỏ phấn đấu hoàn thành kế hoạch giao, đến năm 1994 khai trường khai thác lộ thiên vỉa cánh theo khoáng sản than Phấn Mễ đạt đến độ sâu thiết kế đóng cửa Mỏ Để trì công ăn việc làm tận dụng nguồn lực sẵn có Mỏ than Phấn Mễ, khai trường lộ thiên Bắc Làng Cẩm thiết kế khai thác thay cho hệ thống khai thác hầm lò, khai thác vỉa than khu Âm hồn thuộc khoáng sàng than Làng Cẩm Công trường khởi công vào ngày 19/5/1994 thiết kế Viện quy hoạch thiết kế mỏ luyện kim thiết kế với công suất hàng năm: - Đất đá bốc xúc: 660.000 m3/ năm - Than khai thác: 50.000 tấn/ năm Khai trường mở gặp nhiều khó khăn, Mỏ luôn tìm giải pháp, đổi công nghệ, đầu tư mua sắm thiết bị thực công tác bốc xúc đất đá khai thác than, việc đầu tư dây truyền tuyển than có hiệu quả, chất lượng than ổn định, tốt than nhập ngoại, sản lượng nâng dần, công suất Mỏ từ vạn lên đạt 10 vạn từ năm 2003 Tỷ lệ thu hồi nhà máy tuyển đạt 80%, thiết kế với mức 66% Thực chủ trương xếp đổi doanh nghiệp Công ty thép Việt Nam, Công ty Gang thép Thái Nguyên Bắt đầu từ ngày 01/4/2006 Mỏ than Làng Cẩm sát nhập vào Mỏ than Phấn Mễ Do vậy, đến công nghệ khai thác than mỏ than Phấn Mễ bao gồm hai loại: Công nghệ khai thác lộ thiên ( Công trường Bắc Làng Cẩm) công nghệ khai thác hầm lò ( công trường Mỏ than Làng Cẩm cũ) 2.2 Một số đặc điểm kinh tế- kỹ thuật 2.2.1 Đặc điểm cấu máy tổ chức Sơ đồ cấu tổ chức Mỏ than Phấn Mễ: Hình 1: Sơ đồ cấu máy tổ chức mỏ than Phấn Mễ Bộ máy quản lý tổ chức kết hợp hai hình thức theo tuyến, chức kiểu kết hợp mà đa số doanh nghiệp mỏ áp dụng Hình thức tương đối hợp lý với đặc thù doanh nghiệp mỏ thuận lợi cho trình sản xuất việc quản lý điều hành Ở mỏ, việc quản lý sản xuất phân chia theo tuyến, thống huy, thủ trưởng, tuyến phân phòng ban, phân xưởng cụ thể có chức riêng cụ thể hóa sau: - Phòng điện: Có trách nhiệm giúp giám đốc quản lý đầu tư sửa chữa, công tác vận hành, an toàn thiết bị, chịu đạo giám đốc mỏ phòng quản lý thiết bị Công ty Gang thép Thái Nguyên - Phòng Kế hoạch kinh doanh: Có trách nhiệm giúp giám đốc mỏ: 10 Return ok End If End Function Function delete_data – form cập nhật chức vụ - Public Function delete_data(ByVal bien As String) As Boolean Dim ok As Boolean = True Me.E_batloi.Dispose() Select Case bien Case "macv" xau_delete = "delete*from chucvu where macv=@macv" Case "tencv" xau_delete = "delete*from chucvu where tencv=@tencv" Case "hesophucap" xau_delete = "delete*from chucvu where hesophucap=@hesophucap" End Select Dim command As New OleDb.OleDbCommand(xau_delete, ketnoi) Select Case bien Case "macv" command.Parameters.Add(New OleDbParameter("@macv", OleDbType.VarWChar, 50)).Value = Me.F_macv.Text Case "tencv" command.Parameters.Add(New OleDbParameter("@tencv", OleDbType.VarWChar, 50)).Value = Me.C_tenCV.Text Case "hesophucap" command.Parameters.Add(New OleDbParameter("@hesophucap", OleDbType.VarWChar, 50)).Value = Me.T_hesotrocap.Text End Select Try 50 ketnoi.Open() command.ExecuteNonQuery() Catch ex As Exception ok = False MsgBox(ex.ToString()) Finally If ketnoi.State = ConnectionState.Open Then ketnoi.Close() End If End Try Return ok End Function Function update_data – form cập nhật chức vụ Public Function update_data() As Boolean Dim ok As Boolean = True xau_update = "update chucvu set macv=@macv,tencv=@tencv,hesophucap=@hesophucap where macv=@macv" Dim command As New OleDb.OleDbCommand(xau_update, ketnoi) command.Parameters.Add(New OleDbParameter("@macv", OleDbType.VarWChar, 50)).Value = Me.F_macv.Text command.Parameters.Add(New OleDbParameter("@tencv", OleDbType.VarWChar, 50)).Value = Me.C_tenCV.Text command.Parameters.Add(New OleDbParameter("@hesophucap", OleDbType.VarWChar, 50)).Value = Me.T_hesotrocap.Text Try ketnoi.Open() command.ExecuteNonQuery() Catch ex As Exception ok = False 51 MsgBox(ex.ToString()) Finally If ketnoi.State = ConnectionState.Open Then ketnoi.Close() End If End Try Return ok End Function -Function delete_data form cập nhật hồ sơ nhân viên -Public Function delete_data(ByVal bien As String) As Boolean Dim ok As Boolean = True Select Case bien Case "tatca" xau_delete = "delete*from nhanvien" Case "manv" xau_delete = "delete*from nhanvien where manv=@manv" Case "macv" xau_delete = "delete * from nhanvien where macv=@macv" Case "maPB" xau_delete = "delete * from nhanvien where maPB=@maPB" Case "madt" xau_delete = "delete * from nhanvien where madt=@madt" Case "hodem" xau_delete = "delete * from nhanvien where hodem=@hodem" Case "ten" xau_delete = "delete * from nhanvien where ten=@ten" Case "ngaysinh" xau_delete = "delete * from nhanvien where ngaysinh=@ngaysinh" Case "matg" 52 xau_delete = "delete * from nhanvien where matg=@matg" Case "maTD" xau_delete = "delete * from nhanvien where maTD=@maTD" Case "maCM" xau_delete = "delete * from nhanvien where maCM=@maCM" Case "sdt" xau_delete = "delete * from nhanvien where sdt=@sdt" Case "soCMND" xau_delete = "delete * from nhanvien where soCMND=@soCMND" Case "maTDLLCT" xau_delete = "delete * from nhanvien where maTDLLCT=@maTDLLCT" Case "ngayvaodoan" xau_delete = "delete * from nhanvien where ngayvaodoan=@ngayvaodoan" Case "ngayvaodang" xau_delete = "delete * from nhanvien where ngayvaodang=@ngayvaodang" Case "namthoatly" xau_delete = "delete * from nhanvien where namthoatly=@namthoatly" Case "namveGT" xau_delete = "delete * from nhanvien where namveGT=@namveGT" Case "gioitinh" xau_delete = "delete * from nhanvien where gioitinh=@gioitinh" Case "" End Select Dim command As New OleDb.OleDbCommand(xau_delete, ketnoi) Dim dataapter As New OleDb.OleDbDataAdapter(command) Dim dataset As New DataSet("xau_delete") 53 Try Select Case bien Case "madt" command.Parameters.Add(New OleDbParameter("@madt", OleDbType.VarWChar, 50)).Value = Me.C_madt.SelectedItem Case "manv" command.Parameters.Add(New OleDbParameter("@manv", OleDbType.VarWChar, 50)).Value = Me.F_manv.SelectedItem Case "maPB" command.Parameters.Add(New OleDbParameter("@maPB", OleDbType.VarWChar, 50)).Value = Me.C_maphongban.SelectedItem Case "hodem" command.Parameters.Add(New OleDbParameter("@hodem", OleDbType.VarWChar, 50)).Value = Me.C_hodem.SelectedItem Case "ten" command.Parameters.Add(New OleDbParameter("@ten", OleDbType.VarWChar, 50)).Value = Me.C_ten.SelectedItem Case "gioitinh" command.Parameters.Add(New OleDbParameter("@gioitinh", OleDbType.VarWChar, 50)).Value = Trim(Me.C_gioitinh.Text) Case "ngaysinh" command.Parameters.Add(New OleDbParameter("@ngaysinh", OleDbType.Date)).Value = CDate(Me.C_thang.SelectedItem & "/" & Me.C_ngay.SelectedItem & "/" & Me.C_nam.SelectedItem) Case "macv" command.Parameters.Add(New OleDbParameter("@macv", OleDbType.VarWChar, 50)).Value = Me.C_chucvu.SelectedItem Case "matg" 54 command.Parameters.Add(New OleDbParameter("@matg", OleDbType.VarWChar, 50)).Value = Me.C_matg.SelectedItem Case "maTD" command.Parameters.Add(New OleDbParameter("@maTD", OleDbType.VarWChar, 50)).Value = Me.C_maTD.SelectedItem Case "maCM" command.Parameters.Add(New OleDbParameter("@maCM", OleDbType.VarWChar, 50)).Value = Me.C_maCM.SelectedItem Case "sdt" command.Parameters.Add(New OleDbParameter("@sdt", OleDbType.VarWChar, 50)).Value = Trim(Me.T_SDT.Text) Case "maTDLLCT" command.Parameters.Add(New OleDbParameter("@maTDLLCT", OleDbType.VarWChar, 50)).Value = Me.C_maTDLLCT.SelectedItem Case "ngayvaodoan" command.Parameters.Add(New OleDbParameter("@ngayvaodoan", OleDbType.Date)).Value = CDate(Me.C_thangdoan.SelectedItem & "/" & Me.C_ngaydoan.SelectedItem & "/" & Me.C_namdoan.SelectedItem) Case "ngayvaodang" command.Parameters.Add(New OleDbParameter("@ngayvaodang", OleDbType.Date)).Value = CDate(Me.C_thangdang.SelectedItem & "/" & Me.C_ngaydang.SelectedItem & "/" & Me.C_namdang.SelectedItem) Case "namthoatly" command.Parameters.Add(New OleDbParameter("@namthoatly", OleDbType.VarWChar, 50)).Value = Me.C_namthoatly.SelectedItem Case "namveGT" command.Parameters.Add(New OleDbParameter("@namveGT", OleDbType.VarWChar, 50)).Value = Me.C_namveGT.SelectedItem Case "soCMND" 55 command.Parameters.Add(New OleDbParameter("@soCMND", OleDbType.VarWChar, 50)).Value = Trim(Me.T_soCMND.Text) End Select ketnoi.Open() command.ExecuteNonQuery() Catch ex As Exception ok = False MsgBox("Thực thi không thành công kiểm tra lại trước thực thi công việc") Finally If ketnoi.State = ConnectionState.Open Then ketnoi.Close() End If End Try Return ok End Function -Function update_data form cập nhật hồ sơ nhân viên -Public Function update_data() As Boolean Dim ok As Boolean = True xau_update = "update nhanvien set manv=@manv,hodem=@hodem,ten=@ten,gioitinh=@gioitinh,ngaysinh=@ngaysin h,diachi=@diachi,sdt=@sdt,soCMND=@soCMND,ngayvaodoan=@ngayvaodoan,n gayvaodang=@ngayvaodang,namthoatly=@namthoatly,namveGT=@namveGT,ma dt=@madt,matg=@matg,maTD=@maTD,maCM=@maCM,maTDLLCT=@maTD LLCT,macv=@macv,maPB=@maPB where manv=@manv " Dim command As New OleDb.OleDbCommand(xau_update, ketnoi) Try command.Parameters.Add(New OleDbParameter("@manv", OleDbType.VarWChar, 50)).Value = Me.F_manv.Text 56 command.Parameters.Add(New OleDbParameter("@hodem", OleDbType.VarWChar, 50)).Value = Me.C_hodem.Text command.Parameters.Add(New OleDbParameter("@ten", OleDbType.VarWChar, 50)).Value = Me.C_ten.Text command.Parameters.Add(New OleDbParameter("@gioitinh", OleDbType.VarWChar, 50)).Value = Me.C_gioitinh.SelectedItem command.Parameters.Add(New OleDbParameter("@ngaysinh", OleDbType.Date, 50)).Value = CDate(Me.C_thang.SelectedItem & "/" & Me.C_ngay.SelectedItem & "/" & Me.C_nam.SelectedItem) command.Parameters.Add(New OleDbParameter("@diachi", OleDbType.VarWChar, 50)).Value = Me.T_diachi.Text command.Parameters.Add(New OleDbParameter("@sdt", OleDbType.VarWChar, 50)).Value = Me.T_SDT.Text command.Parameters.Add(New OleDbParameter("@soCMND", OleDbType.VarWChar, 50)).Value = Me.T_soCMND.Text command.Parameters.Add(New OleDbParameter("@ngayvaodoan", OleDbType.Date, 50)).Value = CDate(Me.C_thangdoan.SelectedItem & "/" & Me.C_ngaydoan.SelectedItem & "/" & Me.C_namdoan.SelectedItem) command.Parameters.Add(New OleDbParameter("@ngayvaodang", OleDbType.Date, 50)).Value = CDate(Me.C_thangdang.SelectedItem & "/" & Me.C_ngaydang.SelectedItem & "/" & Me.C_namdang.SelectedItem) command.Parameters.Add(New OleDbParameter("@namthoatly", OleDbType.VarWChar, 50)).Value = Me.C_namthoatly.SelectedItem command.Parameters.Add(New OleDbParameter("@namveGT", OleDbType.VarWChar, 50)).Value = Me.C_namveGT.SelectedItem command.Parameters.Add(New OleDbParameter("@madt", OleDbType.VarWChar, 50)).Value = Me.C_madt.Text command.Parameters.Add(New OleDbParameter("@matg", OleDbType.VarWChar, 50)).Value = Me.C_matg.Text 57 command.Parameters.Add(New OleDbParameter("@maTD", OleDbType.VarWChar, 50)).Value = Me.C_maTD.Text command.Parameters.Add(New OleDbParameter("@maCM", OleDbType.VarWChar, 50)).Value = Me.C_maCM.Text command.Parameters.Add(New OleDbParameter("@maTDLLCT", OleDbType.VarWChar, 50)).Value = Me.C_maTDLLCT.Text command.Parameters.Add(New OleDbParameter("@macv", OleDbType.VarWChar, 50)).Value = Me.C_chucvu.Text command.Parameters.Add(New OleDbParameter("@maPB", OleDbType.VarWChar, 50)).Value = Me.C_maphongban.Text ketnoi.Open() command.ExecuteNonQuery() Catch ex As Exception ok = False Finally If ketnoi.State = ConnectionState.Open Then ketnoi.Close() End If End Try Return ok End Function -Function insert_data form cập nhật hồ sơ nhân viên -Public Function insert_data() As Boolean If kiemtra() = False Then Me.E_batloi.SetError(F_manv, "Mã nhân viên tồn tại") Else Dim ok As Boolean = True Me.E_batloi.Dispose() 58 xau_insert = "Insert into nhanvien(manv,hodem,ten,gioitinh,ngaysinh,diachi,sdt,soCMND,ngayvaodoan,ngay vaodang,namthoatly,namveGT,madt,matg,maTD,maCM,maTDLLCT,maCV,maPB) Values(@manv,@hodem,@ten,@gioitinh,@ngaysinh,@diachi,@sdt,@soCMND,@ ngayvaodoan,@ngayvaodang,@namthoatly,@namveGT,@madt,@matg,@naTD,@ maCM,@maTDLLCT,@maCV,@maPB)" Dim command As New OleDb.OleDbCommand(xau_insert, ketnoi) Try command.Parameters.Add(New OleDbParameter("@manv", OleDbType.VarWChar, 50)).Value = Me.F_manv.Text command.Parameters.Add(New OleDbParameter("@hodem", OleDbType.VarWChar, 50)).Value = Me.C_hodem.Text command.Parameters.Add(New OleDbParameter("@ten", OleDbType.VarWChar, 50)).Value = Me.C_ten.Text command.Parameters.Add(New OleDbParameter("@gioitinh", OleDbType.VarWChar, 50)).Value = Me.C_gioitinh.SelectedItem command.Parameters.Add(New OleDbParameter("@ngaysinh", OleDbType.Date, 50)).Value = CDate(Me.C_thang.SelectedItem & "/" & Me.C_ngay.SelectedItem & "/" & Me.C_nam.SelectedItem) command.Parameters.Add(New OleDbParameter("@diachi", OleDbType.VarWChar, 50)).Value = Me.T_diachi.Text command.Parameters.Add(New OleDbParameter("@sdt", OleDbType.VarWChar, 50)).Value = Me.T_SDT.Text command.Parameters.Add(New OleDbParameter("@soCMND", OleDbType.VarWChar, 50)).Value = Me.T_soCMND.Text command.Parameters.Add(New OleDbParameter("@ngayvaodoan", OleDbType.Date, 50)).Value = CDate(Me.C_thangdoan.SelectedItem & "/" & Me.C_ngaydoan.SelectedItem & "/" & Me.C_namdoan.SelectedItem) command.Parameters.Add(New OleDbParameter("@ngayvaodang", OleDbType.Date, 50)).Value = CDate(Me.C_thangdang.SelectedItem & "/" & Me.C_ngaydang.SelectedItem & "/" & Me.C_namdang.SelectedItem) 59 command.Parameters.Add(New OleDbParameter("@namthoatly", OleDbType.VarWChar, 50)).Value = Me.C_namthoatly.SelectedItem command.Parameters.Add(New OleDbParameter("@namveGT", OleDbType.VarWChar, 50)).Value = Me.C_namveGT.SelectedItem command.Parameters.Add(New OleDbParameter("@madt", OleDbType.VarWChar, 50)).Value = Me.C_madt.Text command.Parameters.Add(New OleDbParameter("@matg", OleDbType.VarWChar, 50)).Value = Me.C_matg.Text command.Parameters.Add(New OleDbParameter("@maTD", OleDbType.VarWChar, 50)).Value = Me.C_maTD.Text command.Parameters.Add(New OleDbParameter("@maCM", OleDbType.VarWChar, 50)).Value = Me.C_maCM.Text command.Parameters.Add(New OleDbParameter("@maTDLLCT", OleDbType.VarWChar, 50)).Value = Me.C_maTDLLCT.Text command.Parameters.Add(New OleDbParameter("@macv", OleDbType.VarWChar, 50)).Value = Me.C_chucvu.Text command.Parameters.Add(New OleDbParameter("@maPB", OleDbType.VarWChar, 50)).Value = Me.C_maphongban.Text ketnoi.Open() command.ExecuteNonQuery() Catch ex As Exception ok = False Finally If ketnoi.State = ConnectionState.Open Then ketnoi.Close() End If End Try Return ok End If End Function 60 KẾT LUẬN Thời gian vừa qua thời gian cho phấn đấu học tập tự giác, nghiên cứu học hỏi thêm kiến thức ôn lại kiến thức cũ Bản thân em nhận thấy có nhiều cố gắng việc tìm hiểu xây dựng đề tài Đề tài đáp ứng việc quản lý vấn đề nhân mỏ than Phấn Mễ Tuy kinh nghiệm thân yếu, hạn chế kiến chuyên môn thời gian hạn chế nên đề tài nhiều điều hạn chế Những điều làm Xây dựng chương trình quản lý nhân mỏ than Phấn mễ Giúp cho phòng tổ chức nhân quản lý cách dễ dàng vấn đề nhân mỏ Giao diện thân thiện, giúp cho người quản lý dễ dàng nhập thông tin nhân lưu vào sở liệu chung quan Cung cấp thông tin nhân viên toàn quan ban lãnh đạo yêu cầu Cung cấp thông tin khen thưởng, kỷ luật, diễn biến lương, danh sách nhân viên đến tuổi hưu, danh sách đảng viên quan, danh sách nhân viên theo phòng ban… Hướng phát triển đề tài Hướng phát triển em đề tài tiếp tục hoàn thiện chương trình Xử lý vấn đề phức tạp để đưa chương trình vào sử dụng thực tế Cuối cùng, lần em xin chân thành cảm ơn thầy giáo NGUYỄN DUY MINH, người tận tình bảo em, hướng dẫn giúp đỡ em nhiều suốt trình làm đề tài Em xin cảm ơn thầy cô kiên nhẫn, tận tình dạy dỗ em suốt năm học vừa qua Em xin chân thành cảm ơn! 61 TÀI LIỆU THAM KHẢO Phân tích thiết kế hệ thống thông tin Nguyễn Văn Ba Từng bước học lập trình Visual Basic.net Nguyễn Bá Ngọc Tự học Visual Studio.net Nguyễn Ngọc Tuấn, Các giải pháp lập trình Visual Studio.net Nguyễn Bá Ngọc Nhập môn Cơ sở liệu quan hệ Lê Tiến Vương 62 PHỤ LỤC [1] Hình Hình 1: Sơ đồ cấu máy tổ chức mỏ than Phấn Mễ 10 Hình 2: Cơ cấu lao động theo độ tuổi .14 Hình 3: Sơ yếu lí lịch nhân .21 Hình 4: Danh sách khen thưởng 22 Hình 5: Danh sách kỷ luật 22 Hình 6: Danh sách đảng viên 23 Hình 7: Danh sách nhân viên lên lương 23 Hình 8: Danh sách nhân viên hưu 24 Hình 9: Danh sách nhân viên 25 Hình 10:Danh sách nhân viên theo phòng(phân xưởng) 26 Hình 11: Biểu đồ phân cấp chức 27 Hình 12: Biểu đồ luồng liệu mức khung cảnh 28 Hình 13: Biểu đồ luồng liệu mức đỉnh .29 Hình 14: Biểu đồ luồng liệu mức đỉnh chức cập nhật 30 Hình 15: Biểu đồ luồng liệu mức đỉnh chức thống kê báo cáo 31 Hình 16: Biểu đồ luồng liệu mức đỉnh chức tìm kiếm 32 Hình 17: Sơ đồ thực thể liên kết đơn giản .37 Hình 18: Sơ đồ thực thể liên kết chi tiết 38 Hình 19: Form đăng nhập .45 Hình 20: Form main .45 Hình 21: Form cập nhật hồ sơ nhân 46 Hình 22: form cập nhật danh mục chức vụ .47 Hình 23: Form cập nhật danh mục phòng ban .47 Hình 24: Form tìm kiếm theo chức vụ 48 63 [2] Bảng 4.1.1 Bảng nhanvien(Nhân viên) 39 4.1.2 Bảng chucvu(Chức vụ) 39 4.1.3 Bảng phong(Phòng ban) 40 4.1.4 Bảng chuyenmon(chuyên môn) .40 4.1.5 Bảng dantoc(dân tộc) 40 4.1.6 Bảng dienbienluong(diễn biến lương) 40 4.1.7 Bảng khenthuong( khen thưởng) 41 4.1.8 Bảng kyluat(kỷ luật) 41 4.1.9 Bảng ngoaingu(ngoại ngữ) 41 4.1.10 Bảng qtcongtac(Quá trình công tác) 41 4.1.11Bảng quanhe(quan hệ) 42 4.1.12 Bảng TDLLCT(trình độ lý luận trị) 43 4.1.13 Bảng tongiao(tôn giáo) 43 4.1.14 Bảng trinhdo(trình độ) 43 4.1.15 Bảng trinhdoNN(trình độ ngoại ngữ) 43 4.1.16 Bảng dangnhap(đăng nhập) 43 4.1.17 Bảng ngachluong( Ngạch lương) 44 4.1.18 Bảng HSL( Hệ số lương) 44 64