Phân tích thiết kế hệ thống thông tin quản lý nhân sự tại Công ty Cổ phần Vật tư Thiết bị Xây dựng Việt Nam

LỜI CÁM ƠN Với vốn kiến thức tích lũy thời gian học tập trường Đại Học Thương Mại , giảng dạy nhiệt tình thầy cô giáo với kiến thức thực tế thu qua q trình thực tập Cơng ty cổ phần vật tư thiết bị xây dựng Việt Nam , em hồn thành khóa luận tốt nghiệp với đề tài :”Phân tích thiết kế hệ thống thơng tin quản lý nhân Công ty Cổ phần Vật tư Thiết bị Xây dựng Việt Nam” Lời em xin gửi lời cảm ơn đến nhà trường , thầy cô khoa Hệ thống thông tin kinh tế thương mại điện tử giảng dạy truyền đạt cho em kiến thức bổ ích bốn năm học qua Em xin chân thành cảm ơn giảng viên – PGS.TS.Đàm Gia Mạnh thuộc môn Công nghệ thông tin , khoa Hệ thống thông tin kinh tế thương mại điện tử hướng dẫn , bảo nhiệt tình , giúp đỡ em suốt qua trình thực tập làm khóa luận tốt nghiệp Bên cạnh , em xin gửi lời cảm ơn đến anh chị Công ty CP Vật Tư Thiết bị Xây dựng Việt Nam giúp đỡ em việc thu thập số liệu , nắm bắt thơng tin q trình hoạt động kinh doanh tình hình ứng dụng cơng nghệ thơng tin Công ty Do lực thân em hạn chế nên khó tránh khỏi thiếu sót việc hồn thành khóa luận tốt nghiệp Em mong nhận nhận xét, góp ý quý thầy cô Em xin chân thành cảm ơn! Sinh viên Nguyễn Thị Phúc i MỤC LỤC LỜI CÁM ƠN i MỤC LỤC ii DANH MỤC TỪ VIẾT TẮT iv DANH MỤC BẢNG BIỂU v DANH MỤC SƠ ĐỒ, HÌNH VẼ vi PHẦN : MỞ ĐẦU 1.1 Tính cấp thiết vấn đề nghiên cứu 1.2 Tổng quan tình hình nghiên cứu có liên quan đến đề tài 1.3 Mục tiêu nhiệm vụ nghiên cứu 1.4 Đối tượng phạm vi nghiên cứu 1.5 Phương pháp nghiên cứu 1.6 Kết cấu khóa luận .6 PHẦN 2: NỘI DỤNG CHƯƠNG : TỔNG QUAN VỀ PHÂN TÍCH THIẾT KẾ HTTT QUẢN LÝ NHÂN SỰ TẠI CÔNG TY CP VẬT TƯ THIẾT BỊ XÂY DỰNG VIỆT NAM 1.1 Một số khái niệm .7 1.2 Cơ sở lý luận vấn đề nghiên cứu 1.2.1 Các phận cấu thành HTTT 1.2.2 Chức HTTT tổ chức 1.2.3 Các giai đoạn phân tích thiết kế HTTT 1.2.4 Xây dựng HTTT hướng chức 11 CHƯƠNG 2: PHÂN TÍCH ĐÁNH GIÁ THỰC TRẠNG HTTT QUẢN LÝ NHÂN SỰ TẠI CÔNG TY CP VẬT TƯ THIẾT BỊ XÂY DỰNG VIỆT NAM 20 2.1 Tổng quan Công ty CP Vật tư Thiết bị Xây dựng Việt Nam .20 2.1.1 Giới thiệu doanh nghiệp 20 2.1.2 Kết hoạt động kinh doanh năm gần .23 2.2 Phân tích đánh giá thực trạng HTTT quản lý nhân Công ty CP Vật tư Thiết bị Xây dựng Việt Nam 23 2.2.1 Thực trạng HTTT quản lý nhân Công ty CP Vật tư Thiết bị Xây dựng Việt Nam 23 ii 2.2.2 Đánh giá thực trạng HTTT quản lý nhân Công ty CP Vật tư Thiết bị Xây dựng Việt Nam 25 3.1 Bài toán 27 3.1.1 Phát biểu toán 27 3.1.2 Các yêu cầu hệ thống .28 3.1.3 Các nhóm chức hệ thống 29 3.2 Phân tích hệ thống 30 3.2.1 Phân tích chức .30 3.2.2 Phân tích liệu .32 3.3 Thiết kế hệ thống .34 3.3.1 Thiết kế sở liệu 34 3.3.2 Thiết kế giao diện 38 3.4 Một số kiến nghị 42 KẾT LUẬN 44 TÀI LIỆU THAM KHẢO iii DANH MỤC TỪ VIẾT TẮT STT Từ viết tắt CP TT HTTT CNTT BHXH BHYT BHTN CSDL Nghĩa từ Cổ Phần Thông tin Hệ thống thông tin Công nghệ thông tin Bảo hiểm xã hội Bảo hiểm y tế Bảo hiểm thất nghiệp Cơ sở liệu iv DANH MỤC BẢNG BIỂU Tên bảng Bảng 2.1 Nội dung Cơ cấu nhân thức Cơng ty CP Vật tư Thiết bị Trang 21 Bảng 2.2 Xây dựng Việt Nam năm 2015 Kết hoạt động công ty CP vật tư thiết bị xây dựng 23 Bảng 2.3 Bảng 3.1 Bảng 3.2 Bảng 3.3 Bảng 3.4 Bảng 3.5 Việt Nam giai đoạn 2013 – 2015 (Đơn vị: VNĐ) Nhân công ty năm 2013 đến năm 2015 Bảng phòng ban nhân viên Bảng nhân viên Bảng lương nhân viên Bảng chức vụ nhân viên Bảng chấm công nhân viên 23 36 36 37 37 37 v DANH MỤC SƠ ĐỒ, HÌNH VẼ Tên sơ đồ, Nội dung Trang hình vẽ Hình 1.1 Hình 1.2 Sơ đồ 2.1 Sơ đồ tổng quát thành phần HTTT Sơ đồ chức hệ thống thông tin Cơ cấu tổ chức máy quản lý Công ty CP Vật Tư Hình 3.1 Hình 3.2 Hình 3.3 Hình 3.4 Hình 3.5 Hình 3.6 Hình 3.7 Hình 3.8 Hình 3.9 Hình 3.10 Hình 3.11 Hình 3.12 Thiết Bị Xây Dựng Việt Nam Sơ đồ phân câp chức Sơ đồ luồng liệu mức ngữ cảnh Sơ đồ luồng liệu mức 1của hệ thống Mơ hình thực thể liên kết Lược đồ quan hệ thực thể Mơ hình quan hệ Giao diện Menu Giao diện Quản lý nhân viên Giao diện Quản lý chấm công Giao diện Tính lương nhân viên Giao diện Tra cứu nhân viên Giao diện Trợ giúp vi PHẦN : MỞ ĐẦU 1.1 Tính cấp thiết vấn đề nghiên cứu Hiện cơng nghệ thơng tin có bước phát triển mạnh mẽ lĩnh vực hoạt động tồn giới Cơng nghệ thơng tin ứng dụng nhiều ngành nghề, lĩnh vực khác xã hội kinh tế, an ninh quốc phòng, trị Với việc ứng dụng cơng nghệ thơng tin giúp cho công việc quản lý dễ dàng hơn, nâng cao hiệu sản xuất, tiết kiệm thời gian sức lao động người; thông tin thu thập, xử lý, phổ biến, cách nhanh chóng, xác có hiệu dần thay cho phương pháp thủ công hiệu Việc phát triển hệ thống thông tin cung cấp cho thành viên tổ chức công cụ quản lý tốt Việc quản lý, điều hành phát triển tổ chức kinh tế có doanh nghiệp lớn hay nhỏ đòi hỏi phải có quản lý chặt chẽ từ cấp lãnh đạo đến nhân viên, từ phòng ban đến phận tổ chức kinh tế Để thực u cầu đó, khơng thể sử dụng phương thức quản lý thủ công giấy tờ trước làm có nghĩa tự đào thải khỏi guồng máy cơng nghiệp thời đại Do đó, việc áp dụng tin học vào quản lý điều cần thiết thích hợp với xu hướng chung thời đại Với trợ giúp phần mềm thích hợp, việc quản lý điều hành phát triển tổ chức kinh tế, có Cơng ty CP Vật tư Thiết bị Xây dựng Việt Nam trở nên dễ dàng Hiện Công ty CP Vật tư Thiết bị Xây dựng Việt Nam gặp phải số vấn đề khó khăn: có thay đổi hợp đồng ký được, cấp bậc, khen thưởng, kỷ luật, chức danh nhân viên phải qua bước tìm người để bổ sung sửa đổi cho phù hợp với thực tế, sau lại phải lưu vào hồ sơ, số lượng hồ sơ ngày tăng, người quản lý hồ sơ phải tăng theo dẫn đến quản lý nhân viên gặp nhiều khó khăn; hay lấy hồ sơ cán nhân viên cấp yêu cầu việc tìm kiếm gặp nhiều khó khăn tốn nhiều cơng sức thời gian; đặc biệt phải kết xuất báo cáo báo cáo lương, báo cáo theo hồ sơ nhân viên, cung cấp cho trình quản lý nhân Các vấn đề gây nhiều trở ngại, ách tắc cho cơng việc mà xảy sai sót nhầm lẫn.Vì vậy, u cầu đặt làm để lưu trữ, cập nhật, tìm kiếm hồ sơ lương nhân viên cách hiệu nhất, giúp cho nhân viên cơng ty n tâm thoải mái làm việc đạt kết cao Công ty CP Vật tư Thiết bị Xây dựng Việt Nam có nhiều thiếu sót việc kiểm sốt nắm bắt nhân viên, việc quản lý dạng tin học hóa cục chưa thống nhất, chưa hình thành rõ ràng hệ thống quản lý nhân Thực tế việc quản lý nhân công ty xây dựng quản lý Excel gây khó khăn nhiều cho cán quản lý nhân Vì vậy, việc xây dựng hệ thống quản lý nhân để nâng cao vấn đề nắm bắt người, tổ chức, nhân viên công ty cần thiết Xuất phát từ nhu cầu đó, em định lựa chọn để tài: "Phân tích thiết kế hệ thống thông tin quản lý nhân Công ty Cổ phần Vật tư Thiết bị Xây dựng Việt Nam" Đề tài nhằm mục đích sâu tìm hiểu trình quản lý nhân sự, phân tích mặt mạnh điểm yếu tồn để khắc phục, bổ sung, giúp nâng cao hiệu quản lý khai thác tối ưu nguồn nhân lực cơng ty 1.2 Tổng quan tình hình nghiên cứu có liên quan đến đề tài Một số cơng trình nghiên cứu liên quan đến phân tích thiết kế hệ thống thông tin(HTTT) quản lý nhân sự: - Một số đồ án, chuyên đề phân tích thiết kế HTTT quản lý nhân Luận văn tốt nghiệp Phạm Thị Thu Huyền, lớp Tin 45A, Khoa Tin học kinh tế, Đại học Kinh tế quốc dân, 2008, với đề tài “Phân tích thiết kế HTTT quản lý nhân Công ty phần mềm quản lý doanh nghiệp FAST” Đề tài đưa số lý luận HTTT, sở liệu HTTT trình tự phân tích HTTT Từ tiến hành phân tích thiết kế HTTT quản lý nhân Công ty phần mềm quản lý doanh nghiệp FAST Luận văn tốt nghiệp Nguyễn Thị Loan, lớp Tin 46A, Khoa Tin học kinh tế, Đại học Kinh tế quốc dân, 2009, với đề tài “Phân tích thiết kế HTTT quản lý nhân Công ty cổ phần Goldstar Việt Nam” Đề tài nêu khái quát tổ chức hoạt động Cơng ty từ đưa mục tiêu đề tài Luận văn tốt nghiệp với đề tài “Thiết kế phần mềm quản lý nhân mỏ than Cọc Sáu” Vũ Anh Quyết - lớp Tin 44C - Khoa Quản trị hệ thống thông tin kinh tế, Đại học Kinh tế quốc dân Luận văn làm rõ số lý thuyết phương pháp phát triển hệ thống thông tin quản lý quy trình phân tích thiết kế hệ thống hướng cấu trúc Luận văn hoàn thành bước phân tích thiết hệ thống thơng tin xây dựng mã chương trình Khóa luận tốt nghiệp với đề tài “Phân tích thiết kế hệ thống thơng tin quản lý nhân công ty TNHH Hưng Long” Nguyễn Hồng Đức, K55–Khoa Máy tính, Trường Đại học Bách Khoa TP Hồ Chí Minh Luận văn có ưu điểm thiết kế giao diện thân thiện, dễ sử dụng, gần gũi với hệ thống cũ, lưu trữ hoàn toàn liệu, đưa liệu xử lý xác đáp ứng phần hệ thống thực tế Tuy nhiên tồn nhược điểm CSDL hệ thống xây dựng sở hệ thống thông tin mạng, bước đầu xây dựng máy cục chức đầy đủ để quản lý hệ thống chưa hồn chỉnh Khóa luận với đề tài “Phân tích thiết kế hệ thống thông tin quản lý nhân Cơng ty TNHH TBA Việt Nam” Hồng Thế Quyền, K52 – Khoa Công nghệ thông tin, Đại học Vinh Nội dung đề tài khái quát chức cho công việc quản lý nhân chấm công, quản lý hồ sơ nhân viên,… phân tích thiết kế hệ thống thơng tin quản lý theo phương pháp hướng cấu trúc Nhưng hạn chế tác giả chưa phân tích thiết kế chức quản lý công việc nhân viên, số chức chưa thực hiệu tính lương số chức dư thừa khác Tuy nhiên đề tài tồn số vấn đề sau: Chưa nêu bật tầm quan trọng ý nghĩa đề tài, phân tích đánh giá thực trạng quản lý nhân cơng ty chung chung chưa cụ thể để làm rõ ưu điểm nhược điểm công tác quản lý nhân Cơng ty Do đó, đề tài thiếu tính thực tiễn chưa đáp ứng nhu cầu nhà quản lý quản lý nhân 1.3 Mục tiêu nhiệm vụ nghiên cứu 1.3.1 Mục tiêu nghiên cứu Thứ nhất, hệ thống hóa kiến thức số lý luận HTTT doanh nghiệp như: khái niệm, thành phần, HTTT phổ biến doanh nghiệp… Thứ hai, hệ thống hóa kiến thức lý luận quản lý nhân nói chung, Cơng ty CP Vật tư Thiết bị Xây dựng Việt Nam nói riêng Thứ ba, sở nghiên cứu thực trạng tình hình quản lý nhân cơng ty, từ đưa số đề xuất, giải pháp áp dụng, tiến hành phân tích thiết kế HTTT quản lý khách nhân cài đặt hệ quản trị CSDL cụ thể nhằm hòa thiện HTTT quản lý nhân cho phù hợp mang tính thiết thực hoạt động quản lý dự án, đem lại hiệu công việc 1.3.2 Nhiệm vụ nghiên cứu Nhiệm vụ nghiên cứu đề tài : - Thứ nhất, hệ thống hóa kiến thức số lý luận hệ thống thông tin phân tích hệ thống thơng tin hướng chức : khái niệm, phận cấu thành HTTT, giai đoạn phân tích thiết kế HTTT hướng chức Những lợi ích vai trò mơ hình mang lại cho doanh nghiệp trình kinh doanh, cạnh tranh thị trường - Thứ hai, đánh giá thực trạng ứng dụng hệ thống thông tin, khả ứng dụng phầm mềm quản lý nhân Công ty CP Vật tư Thiết bị Xây dựng Việt Nam - Thứ ba, đề xuất phần mềm quản lý nhân phù hợp giúp hoạt động kinh doanh doanh nghiệp nhanh gọn xác 1.4 Đối tượng phạm vi nghiên cứu 1.4.1 Đối tượng nghiên cứu Đối tượng: Phân tích thiết kế HTTT quản lý nhân Công ty CP Vật tư Thiết bị Xây dựng Việt Nam, hiệu vấn đề cần bổ sung, giải pháp tối ưu cho công ty 1.4.2 Phạm vi nghiên cứu Về không gian: tiến hành nghiên cứu sở lý thuyết HTTT quản lý, HTTT quản lý dự án qua giảng, tài liệu thu thập đề tài nghiên cứu khoa học xây dựng HTTT quản lý kiến thức quản lý nhân Đồng thời, tiến hành nghiên cứu Công ty CP Vật tư Thiết bị Xây dựng Việt Nam, hệ thống quản lý nhân công ty Về thời gian: Trong khoảng thời gian thực đề tài khóa luận tốt nghiệp 1.5 Phương pháp nghiên cứu  Phương pháp thu thập liệu Thu thập thông tin(TT) công đoạn q trình phân tích hệ thống Mục tiêu cơng đoạn có TT liên quan đến mục tiêu đề với độ tin cậy xác cao Phương pháp thu thập TT giai đoạn bao gồm: Phương pháp thu thập qua phiếu điều tra Phương pháp vấn Phương pháp quan sát hệ thống  Kết nối ADSL  Không truy cập Internet  Kết nối không dây  Đường truyền cáp quang Nhà cung cấp mạng:………………………………………………………………… Tốc độ mạng:………………………………………………………………………… Ngoài mạng LAN mạng Internet, doanh nghiệp sử dụng mạng khác: ………………………………………………………………………………………… Mạng cục công ty (LAN) có hệ thống an ninh mạng chưa? (tường lửa, phòng chống virus, bảo mật, v.v…):  Đã có  Chưa có Doang nghiệp sử dụng loại phần mềm sau đây: 9.1 Phần mềm hệ thống: 9.2 Phần mềm ứng dụng:  Phần mềm Văn phòng MS Office  Phần mềm tài kế tốn  Phần mềm quản lý công văn, giấy tờ  Phần mềm văn phòng khác  Phần mềm quản lý nhân  Phần mềm quản trị dự án  Phần mềm quản lý khách hàng CRM  Phần mềm chuyên ngành  Phần mềm hoạch định nguồn lực doanh nghiệp ERP  Phần mềm quản lý chuỗi cung ứng SCM  Phần mềm quản lý tri thức KWS  Một số phần mềm quản lý khác 10 Các phần mềm sử dụng có quyền hay khơng?  Có  Khơng  Không biết  Khác (mô tả)……………… 11 Phương thức thu thập số liệu doanh nghiệp  Qua liệu thứ cấp  Phương pháp định tính 12.Lưu trữ liệu doanh nghiệp  Phương pháp quan sát, điều tra  Khác (ghi rõ):…………………  Lưu trữ tập trung  Lưu trữ phân tán 13 Doanh nghiệp có phận chun trách quản trị HTTT khơng?  Có  Không 14 Đội ngũ chuyên trách quản trị HTTT có bao nghiêu người ?  10 người  10 người 15 Doanh nghiệp có xây dựng quy trình quản trị HTTT khơng?  Có  Khơng 16 Doanh nghiệp sử dụng phương pháp quản trị HTTT sau đây?  CMMi  ITIL  Cobit  Khác 17 Công ty đầu tư kinh phí cho việc trang bị máy tính thiết bị cơng nghệ thơng tin cho phòng ban năm?  Dưới 10 triệu đồng  Từ 50-80 triệu đồng  Từ 10-20 triệu đồng  Trên 80 triệu đồng  Từ 20-50 triệu đồng 18 Ước tính “tỷ lệ đầu tư” cho CNTT HTTT vòng năm gần ? phần cứng chiếm: … % phần mềm chiếm: …… % đào tạo CNTT chiếm:……………% khác chiếm:……………… … % 19 Số lượng cán có đại học, Đại học CNTT:………… nhân viên 20 Tỷ lệ nhân viên thành thạo kỹ tin học  Dưới 5%  Từ 5% - 20%  Từ 20% - 50%  Từ 50% - 80%  Trên 80% 21 Tỷ lệ nhân viên tham gia vào công việc quản trị HTTT (quản trị mạng, liệu…)  Dưới 5%  Từ 5% - 20%  Từ 20% - 50%  Từ 50% - 80%  Trên 80% 22 Cơng ty có hình thức đào tạo CNTT cho nhân viên?  Mở lớp đào tạo  Đào tạo chỗ theo nhu cầu công việc  Gửi nhân viên học  Không đào tạo PHỤ LỤC II MÃ MỘT SỐ GIAO DIỆN CHƯƠNG TRÌNH Module tạo form quản lý nhân viên Dim da As CSDL '============================================================= 'Thu tuc lay cac du lieu cho cac Combo box Private Sub AddDatatoCombox(control As ComboBox, strSQL As String) Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set rs = da.getRS(strSQL) While (Not rs.EOF) control.AddItem rs.Fields(1) rs.MoveNext Wend rs.Close End Sub Private Sub Init() Dim strSQL As String Me.dtNgaysinh.Value = Date Me.DTPickerBDCT.Value = Date Me.DTPickerKTCT.Value = Date AddDatatoCombox cboPhongban, "SELECT * FROM Phongban" AddDatatoCombox cboChucvu, "SELECT * FROM Chucvu" End Sub Private Sub cboChucvu_KeyPress(KeyAscii As Integer) KeyAscii = End Sub Else KeyAscii = End If End Sub Private Sub cboPhai_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdChapnhan_Click Else KeyAscii = End If End Sub Private Sub cboPhongban_KeyPress(KeyAscii As Integer) KeyAscii = End Sub Private Sub cmdBoqua_Click() Me.txtDiachi = "" Me.txtDienthoai = "" Me.txtManv = "" Me.txtHoten = "" Me.txtSoCMNN = "" Me.txtTrinhdo = "" Me.txtQuequan = "" Me.cboPhai.Text = "" Me.cboPhongban.Text = "" Me.cboChucvu.Text = "" Me.cboBacluong.Text = "" End Sub Function Get_ID(Tenbang As String, Tentruong As String, giatri As String) As String Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim strSQL As String strSQL = "SELECT * FROM " & Tenbang & " WHERE " & Tentruong & " ='" & giatri & "'" Set rs = da.getRS(strSQL) Get_ID = rs.Fields(0) End Function Private Sub Refresh_TPGD() Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set rs = da.getRS("SELECT * FROM tpgiadinh WHERE Manv='" & Me.txtManv & "'") Set DataTPGD.DataSource = rs End Sub Private Sub Refresh_QTCT() Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set rs = da.getRS("SELECT * FROM qtct WHERE Manv='" & Me.txtManv & "'") Set DataQTCT.DataSource = rs End Sub ++++++++++++++++++++++++++++++++++++++++++++++ 'Cập nhật thông tin bảng Nhân viên Private Sub Update_Nhanvien() On Error GoTo errhandler Dim strSQL As String If (Trim(Me.txtDiachi.Text) "") And (Me.txtQuequan "") And (Me.cboGioitinh "") Then Dim, maPhongban, machucvu, mabacluong As String End If If Trim(cboPhongban) = "" Then MsgBox "Chưa chọn Phòng ban", vbInformation SSTab.Tab = cboPhongban.SetFocus Exit Sub End If If Trim(cboChucvu) = "" Then MsgBox "Chưa chọn Chức vụ", vbInformation SSTab.Tab = cboChucvu.SetFocus Exit Sub End If If Trim(cboBacluong) = "" Then MsgBox "Chưa chọn Bậc lương", vbInformation SSTab.Tab = cboBacluong.SetFocus Exit Sub End If maPhongban = Get_ID("phongban", "Tenphongban", Me.cboPhongban.Text) machucvu = Get_ID("chucvu", "Tenchucvu", Me.cboChucvu.Text) mabacluong = Get_ID("bacluong", "Tenbacluong", Me.cboBacluong.Text) strSQL = "UPDATE Hosocanbo SET " & _ "Hoten='" & EscStr(Me.txtHoten) & "'," & _ "Diachi='" & EscStr(Me.txtDiachi) & "'," & _ "Quequan='" & EscStr(Me.txtQuequan) & "'," & _ "SoCMND='" & Me.txtSoCMNN & "'," & _ "Ngaysinh='" & Me.dtNgaysinh.Value & "'," & _ "Gioitinh='" & Me.cboGioitinh.Text & "'," & _ "Dienthoai='" & EscStr(Me.txtDienthoai) & "'," & _ "Trinhdovanhoa='" & EscStr(Me.txtTrinhdo) & "'," & _ "Maphongban='" & maPhongban & "'," & _ "Machucvu='" & machucvu & "'," & _ "Mabacluong='" & mabacluong & "' WHERE manv ='" & txtManv.Text & "'" Debug.Print strSQL da.getConnection.Execute strSQL Else MsgBox "Bạn phải nhập đầy đủ Địa chỉ, Quê quán Giới tính cho nhân viên!", vbInformation, "QLNS" End If Exit Sub errhandler: MsgBox "Error:" & Err.Description, vbCritical End Sub End Sub '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++ ' Thêm Hồ sơ Private Sub Insert_Hoso() On Error GoTo errhandler Dim strSQL As String If (Trim(Me.txtDiachi.Text) "") And (Me.txtQuequan "") And (Me.cboGioitinh "") Then Dim, maPhongban, machucvu, mabacluong As String If Trim(cboPhongban) = "" Then MsgBox "Chưa chọn Phòng ban", vbInformation SSTab.Tab = cboPhongban.SetFocus Exit Sub End If If Trim(cboChucvu) = "" Then MsgBox "Chưa chọn Chức vụ", vbInformation SSTab.Tab = cboChucvu.SetFocus Exit Sub End If maPhongban = Get_ID("phongban", "Tenphongban", Me.cboPhongban.Text) machucvu = Get_ID("chucvu", "Tenchucvu", Me.cboChucvu.Text) mabacluong = Get_ID("bacluong", "Tenbacluong", Me.cboBacluong.Text) strSQL = "INSERT INTO Hosocanbo( " & _ "Manv,Hoten,Diachi,Quequan,SoCMND,Ngaysinh,Gioitinh,Dienthoai,Trinhdo," & _ ,Maphongban," & _ "Machucvu,Mabacluong) VALUES ('" & _ EscStr(Me.txtManv) & "','" & _ EscStr(Me.txtHoten) & "','" & EscStr(Me.txtDiachi) & "','" & EscStr(Me.txtQuequan) & "','" & _ Me.txtSoCMNN & "'," & Me.dtNgaysinh.Value & ",'" & Me.cboGioitinh.Text & "','" & _ EscStr(Me.txtDienthoai) & "','" & EscStr(Me.txtTrinhdo) & "','" & _ ','" & matongiao & "','" & maPhongban & "','" & _ machucvu & "','" & mabacluong & "')" 'Debug.Print strSQL da.getConnection.Execute strSQL Else MsgBox "Bạn phải nhập đầy đủ Địa chỉ, Quê quán Giới tính cho nhân viên!", vbInformation, "QLNS" End If Exit Sub errhandler: MsgBox "Error:" & Err.Description, vbCritical End Sub ' '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++ Private Sub cmdThoat_Click() Unload Me End Sub Private Sub cmdXoa_Click() On Error GoTo errhandler If (SSTab.Tab = 0) Or (SSTab.Tab = 1) Then If MsgBox("Bạn chắn muốn xóa hết tất thơng tin nhân viên này?", vbOKCancel, "QLNS") = vbOK Then ' Xóa thơng tin bảng q trình cơng tác strSQL = "DELETE FROM qtct WHERE Manv='" & EscStr(txtManv.Text) & "'" da.getConnection.Execute strSQL ' Xóa thơng tin bảng Lương strSQL = "DELETE FROM luong WHERE Manv='" & EscStr(txtManv.Text) & "'" da.getConnection.Execute strSQL ' Xóa thơng tin bảng Bảng chấm công strSQL = "DELETE FROM Bangchamcong WHERE Manv='" & EscStr(txtManv.Text) & "'" da.getConnection.Execute strSQL ' Xóa thông tin bảng nhân viên strSQL = "DELETE FROM hosocanbo WHERE Manv='" & EscStr(txtManv.Text) & "'" da.getConnection.Execute strSQL cmdBoqua_Click End If End If If (SSTab.Tab = 2) And (Trim(txtMaQTCT) "") Then If MsgBox("Bạn chắn muốn xóa Q trình đào tạo này?", vbOKCancel, "QLNS") = vbOK Then End If Exit Sub errhandler: MsgBox "Error:" & Err.Description, vbCritical End Sub ' Thủ tục lấy tên phòng ban tên chức vụ Function TimTen(sSQL As String) As String Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set rs = da.getRS(sSQL) If rs Is Nothing Then TimTen = "" Else TimTen = rs.Fields(1).Value End If End Function Private Sub Form_Load() Set da = New CSDL Init SSTab.Tab = End Sub Private Sub SSTab_Click(PreviousTab As Integer) If SSTab.Tab = Then Refresh_QTCT End If If SSTab.Tab = Then Refresh_TPGD End If End Sub Private Sub txtDiachi_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdChapnhan_Click End If End Sub Private Sub txtDienthoai_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdChapnhan_Click End If End Sub Private Sub txtQuequan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdChapnhan_Click End If End Sub Private Sub txtSoCMNN_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdChapnhan_Click End If End Sub Private Sub txtTrinhdo_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdChapnhan_Click End If End Sub ... quan phân tích thiết kế HTTT quản lý nhân Công ty CP Vật tư Thiết bị Xây dựng Việt Nam Chương : Phân tích đánh giá thực trạng HTTT quản lý nhân công ty CP vật tư thiết bị xây dựng Việt Nam Chương... 3: Phân tích thiết kế HTTT quản lý nhân theo hướng chức Công ty CP vật tư thiết bị xây dựng Việt Nam PHẦN 2: NỘI DỤNG CHƯƠNG : TỔNG QUAN VỀ PHÂN TÍCH THIẾT KẾ HTTT QUẢN LÝ NHÂN SỰ TẠI CÔNG TY. .. Phòng kế tốn) 2.2 Phân tích đánh giá thực trạng HTTT quản lý nhân Công ty CP Vật tư Thiết bị Xây dựng Việt Nam 2.2.1 Thực trạng HTTT quản lý nhân Công ty CP Vật tư Thiết bị Xây dựng Việt Nam 