Phân tích thiết kế hệ thống thông tin quản lý nhân sự tại công ty sản xuất thức ăn chăn nuôi công nghệ cao minh tâm

GVHD: TS Nguyễn Thị Thu Thủy LỜI CẢM ƠN Với vốn kiến thức tích lũy thời gian học tập mái trường Đại Học Thương Mại thân yêu, giảng dạy nhiệt tình thầy cô giáo với kiến thức thực tế thu qua trình thực tập Công ty sản xuất thức ăn chăn nuôi Công nghệ cao Minh Tâm, em hoà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 sản xuất thức ăn chăn nuôi Công nghệ cao Minh Tâm” Trước hết, 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ế 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 - TS Nguyễn Thị Thu Thủy thuộc môn Tin học, khoa Hệ thống thông tin kinh tế hướng dẫn, bảo nhiệt tình, giúp đỡ em suốt trình thực tập làm khóa luận tốt nghiệp Cuối em xin gửi lời cảm ơn đến anh chị Công ty sản xuất thức ăn chăn nuôi Công nghệ cao Minh Tâm tạo điều kiện, giúp đỡ em trình thực tập công ty Em xin chân thành cảm ơn! Sinh viên Tống Thị Ngọc Bích 1 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy MỤC LỤC 2 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy DANH MỤC BẢNG BIỂU Tên bảng Bảng 2.1 Bảng 2.2 Bảng 3.1 Bảng 3.2 Bảng 3.3 Bảng 3.4 Bảng 3.5 Nội dung Trang Cơ cấu nhân thức Công ty sản xuất 24 thức ăn chăn nuôi CNC Minh Tâm năm 2012 Nhân công ty năm 2009 đến năm 2012 24 Bảng phòng ban nhân viên 42 Bảng nhân viên 43 Bảng lương nhân viên 43 Bảng chức vụ nhân viên 44 Bảng chấm công nhân viên 44 3 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy DANH MỤC SƠ ĐỒ, HÌNH VẼ Tên sơ đồ, hình vẽ Hình 2.1 Hình 2.2 Hình 2.3 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 Hình 3.13 Hình 3.14 Nội dung Sơ đồ tổng quát thành phần hệ thống thông tin Sơ đồ chức hệ thống thông tin Sơ đồ khối cấu máy Công ty sản xuất thức ăn chăn nuôi CNC Minh Tâm 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 Giao diện Chức quản lý nhân viên Giao diện Chức tính lương nhân viên 4 SVTH: Tống Thị Ngọc Bích Trang 11 12 24 34 35 36 37 38 40 44 45 46 47 48 49 GVHD: TS Nguyễn Thị Thu Thủy DANH MỤC TỪ VIẾT TẮT STT Từ viết tắt CNC TT HTTT CNTT BHXH BHYT Nghĩa từ Công nghệ cao 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ế 5 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy LỜI MỞ ĐẦU Trong điều kiện bùng nổ tri thức thông tin, tải thông tin trở thành gánh nặng để tìm thông tin cần thiết cho việc định giải vấn đề khó, tốn nhiều thời gian công sức cho tất người, công nghệ thông tin trở thành phần thiếu chiến lược cạnh tranh doanh nghiệp quốc gia Ứng dụng công nghệ thông tin quản lý trở nên phổ biến mặt như: quản lý công văn đến, quản lý tài liệu- hồ sơ, quản lý tài – kế toán, quản lý nhân sự, quản lý khách hàng, quản lý thiết bị - vật tư, quản lý bán hàng,… Trong hệ thống thông tin quản lý nhân doanh nghiệp thương mại quan tâm nhiều Hệ thống thông tin quản lý nhân đời phục vụ cho công tác nghiệp vụ người làm giảm thiểu tối đa vất vả công việc ví dụ hồ sơ trước phải lưu trữ nhiều kho chứa cần máy tính nhỏ gọn lưu trữ kho hồ sơ công ty Em mong muốn tìm hiểu phần nhỏ kho tàng phát triển công nghệ thông tin, em vào tìm hiểu cách thức tổ chức hoạt động Công ty sản xuất thức ăn chăn nuôi Công nghệ caoMinh Tâm để từ xây dựng phần “ Phân tích thiết kế Hệ thống thông tin quản lý nhân Công ty sản xuất thức ăn chăn nuôi Công nghệ cao Minh Tâm” nhằm phục vụ cho lợi ích công ty Do lực có hạn thời gian không cho phép, khóa luận em thực có thiếu sót, em mong góp ý quý thầy cô, em xin chân thành cảm ơn! 6 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy Chương I TỔNG QUAN VỀ PHÂN TÍCH THIẾT KẾ HỆ THỐNG THÔNG TIN QUẢN LÝ NHÂN SỰ 1.1 Tầm quan trọng ý nghĩa đề tài Quản lý nhân vấn đề then chốt công ty Quản lý nhân không tốt dẫn đến nhiều vấn đề bất cập công ty: có thay đổi hợp đồng ký được, cấp bậc, khen thưởng, kỷ luật, chức danh cán tổ chức 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ý cá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, 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 yên tâm thoải mái làm việc đạt kết cao Công ty có nhiều thiếu sót việc kiểm soá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 sản xuất thức ăn chăn nuôi công nghệ cao Minh Tâm" Đề 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 nghiên cứu đề 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 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy 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 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 - Một số phần mềm quản lý bán hàng cung cấp thị trường Hiện thị trường có nhiều sản phẩm phần mềm quản lý bán hàng như: Bizzone, MisaHRM.NET, OrangeHRM, WaypointHR, Open Applicant, Latric Tuy nhiên, Công ty sản xuất thức ăn chăn nuôi Công nghệ cao ( CNC) Minh Tâm doanh nghiệp kinh doanh quy mô vừa, đà mở rộng phát triển hoàn thiện, nghiệp vụ phát sinh yêu cầu quản lý có nhiều nét riêng, sử dụng phần mềm đóng gói sẵn có thị trường dẫn đến không phù hợp, cần phải phân tích thiết kế HTTT quản lý nhân sở nghiên cứu thực trạng quy trình quản lý nhân để hệ thống phù hợp với đơn vị, đem lại hiệu cao quản lý 1.3 Mục tiêu đề tài Việc phân tích thiết kế HTTT quản lý nhân Công ty sản xuất thức ăn chăn nuôi CNC Minh Tâm nhằm mục đích sau: - Quản lý hồ sơ cán - Cung cấp HTTT phản ánh có hệ thống, khái quát chi tiết vấn đề có liên quan đến đội ngũ nhân phòng ban công ty SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy Trên sở thông tin(TT) nhân phòng ban, cán quản lý thực công việc sau: - Phân tích, thiết kế hệ thống chương trình lưu trữ, tra cứu nhanh TT với độ xác, tin cậy cao thời gian nhanh - Cung cấp nhanh chóng, đầy đủ xác TT theo yêu cầu cán quản lý, cấp lãnh đạo có liên quan - Các đơn vị gửi báo cáo lên thông qua nhiều công văn giấy tờ mà cần đĩa mềm hệ thống lưu trữ số liệu sau gửi lên trên, hệ thống tự động xử lý in báo cáo Mỗi đề tài có điểm mạnh điểm yếu riêng, vấn đề mà ưu tiên chọn lựa đề tài phân tích thiết kế hệ thống quản lý nhân đưa mẫu quản lý nhân sự: dễ sử dụng, mô hình hóa cách tổng quát vấn đề đặt thực tế, có khả áp dụng cho lớp toán phục vụ quản lý có khả chuyển thành chương trình sử dụng thực tế nhanh 1.4 Đối tượng phạm vi nghiên cứu Đối tượng Trong khuôn khổ phạm vi khóa luận tốt nghiệp, đối tượng nghiên cứu đề tài cán nhân viên Công ty sản xuất thức ăn chăn nuôi CNC Minh Tâm nhằm phân tích, thiết kế HTTT quản lý nhân phù hợp Phạm vi nghiên cứu: Đánh giá thực trạng công tác quản lý nhân Công ty sản xuất thức ăn chăn nuôi CNC Minh Tâm từ năm 2009 – 2012 Phương pháp thực phân tích thiết kế hệ thống theo hướng chức 1.5 Phương pháp nghiên cứu thực đề tài  Phương pháp thu thập liệu Thu thập TT công đoạn 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 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy Phương pháp thu thập liệu thứ cấp Phương pháp phân tích xử lý liệu  Phương pháp định lượng Dữ liệu sau thu thập đưa phân tích thông qua việc sử dụng phần mềm excel để xử lý TT sơ cấp thông qua bảng câu hỏi thiết kế sẵn, đánh giá liệu thu thập được, rút số đánh giá thực trạng công tác quản lý nhân tình hình HTTT quản lý nhân công ty Phương pháp định tính Tiến hành chọn lọc, phân tích, tổng hợp liệu thu thập thông qua câu hỏi vấn chuyên sâu liệu, TT thu thập từ nguồn khác (như Internet ) nhằm chọn TT phù hợp với mục đích sử dụng nội dung nghiên cứu Công cụ sử dụng để thực đề tài  Lựa chọn ngôn ngữ lập trình đóng vai trò quan trọng thành công chương trình Việc lựa chọn ngôn ngữ lập trình dựa nhiều yếu tố khách quan, chủ quan khả người sử dụng, thói quen người sử dụng, yều cầu môi trường phần cứng, phần mềm… Chương trình quản lý nhân công ty la lập trình ngôn ngữ Foxpro khả bảo mật thông tin Do với đề tài em định sử dụng ngôn ngữ lập trình Microsoft Visual Basic 6.0 kết hợp với hệ quản trị sở liệu Access 2000 - Với hệ quản trị sở liệu Access 2000 giúp ta tạo trì bảng liệu gọi Table Nhờ Access ta tổ chức sở liệu gồm nhiều bảng khác nhau, đồng thời tạo mối liên kết bảng thông qua thuộc tính khoá ngoại lai, từ trích rút thao tác sở liệu cách xác, mô hình hệ thống quản trị liệu quan hệ Một nhóm Table có liên quan - với quản lý Database Sử dụng ngôn ngữ lập trình Visual Basic để thiết kế form viết phần mã lệnh Khi lập trình qua Visual Basic thấy qua thao tác giao diện chương trình thực Đồng thời Visual Basic cho phép ta chỉnh sửa cách nhanh chóng, đơn giản kích thước màu sắc, hình dáng đối tượng có ứng dụng thiết kế liệu cho ứng dụng 10 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy Việc lưu giữ DL công ty A Lưu giữ máy tính nhập liệu C Lưu giữ hệ máy tính từ xa B Lưu giữ máy tính từ xa Mức đầu tư cho hoạt động quản trị HTTT công ty STT Thành phần Quản trị mạng Quản trị CSDL Quản trị hệ thống phần mềm Quản trị rủi ro Quản trị hoạt động hoạch định, đưa chiến lược SVTH: Tống Thị Ngọc Bích Mức đầu tư Số nhân viên GVHD: TS Nguyễn Thị Thu Thủy PHỤ LỤC 2: PHIẾU PHỎNG VẤN VẤN ĐỀ TÁI CẤU TRÚC CƠ SỞ DỮ LIỆU Lưu ý: • Phiếu dùng mục đích khảo sát tổng hợp tình hình công ty để phục vụ viết báo cáo thực tập khóa luận • Tình hình vấn: người I TT người vấn Họ tên:……………………………………………………………………………… Chức vụ công tác:………………… Bộ phận:………………………………………… II Hoạch định CSDL công ty ( câu hỏi vấn trưởng phòng kỹ thuật) Xin ông cho biết mục tiêu dài hạn năm tới quý công ty? Dự báo nhu cầu CSDL phục vụ cho mục tiêu đó? Để thực mục tiêu trên, hệ thống CSDL có đáp ứng không, xin ông đánh giá ưu nhược điểm hệ thống tại? Để khắc phục nhược điểm đó, theo ông công ty cần định hướng phát triển, tái cấu trúc theo hướng nào? (Công ty định hướng bổ sung thêm chức hay nâng cấp hệ quản tri CSDL?) Những yêu cầu hệ thống CSDL mới? Những chức cần điều chỉnh sao? (Thống quan điểm CSDL; nhu cầu chép DL quản trị; chi phí quản lí dự kiến; đào tạo nhân lực; chi phí chuyển đổi hệ thống) Chi phí mà công ty dự kiến đầu tư cho việc tái cấu trúc CSDL, chuyển đổi hệ thống? Xin chân thành cảm ơn ông dành thời gian cho vấn này! SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy 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 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy 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 = SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy 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) SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy 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 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy 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) SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy 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: SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy 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 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy 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" SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy 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 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 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy 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 Quá trình đào tạo này?", vbOKCancel, "QLNS") = vbOK Then End If Exit Sub errhandler: MsgBox "Error:" & Err.Description, vbCritical End Sub SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy ' 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 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy 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 SVTH: Tống Thị Ngọc Bích GVHD: TS Nguyễn Thị Thu Thủy 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 SVTH: Tống Thị Ngọc Bích ... cách thức tổ chức hoạt động Công ty sản xuất thức ăn chăn nuôi Công nghệ caoMinh Tâm để từ xây dựng phần “ Phân tích thiết kế Hệ thống thông tin quản lý nhân Công ty sản xuất thức ăn chăn nuôi Công. .. 2.1 Phân tích, đánh giá thực trạng Hệ thống thông tin quản lý nhân Công ty sản xuất thức ăn chăn nuôi CNC Minh Tâm Giới thiệu Công ty sản xuất thức ăn chăn nuôi CNC Minh Tâm Tên công ty: Công ty. .. SỞ LÝ LUẬN VÀ THỰC TRẠNG QUẢN LÝ NHÂN SỰ TẠI CÔNG TY SẢN XUẤT THỨC ĂN CHĂN NUÔI CNC MINH TÂM 2.1 Cơ sở lý luận 2.1.1 Khái niệm thông tin, hệ thống thông tin Khái niệm thông tin Thông tin tin