Header Page of 146 ĐỀ TÀI: Quản lý nhân sự-lương hệ quản trị sở liệu MICROSOFT ACCESS Footer Page of 146 Header Page of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** MỤC LỤC LỜI MỞ ĐẦU……………………………………………………………………… CHƯƠNG I : GIỚI THIỆU VÀ KHẢO SÁT HỆ THỐNG ……… I.Giới thiệu cơng ty……………………………………………………………… Q trình hình thành phát triển…………………………… Chức năng, nhiệm vụ phòng ban………………………………………….6 II Khảo sát hệ thống ……………………………………………………………… 14 1.Tổng quan hệ thống quản lý ………………………………………………… 14 2.Chức nhiệm vụ hệ thống quản lý nhân ………………………… 14 3.u cầu hệ thống khó khăn……………………………………… 15 4.Những u cầu đặt hệ thống mới……………………………………….15 CHƯƠNG II : PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG ……………………… 16 Các chức hệ thống: …………………………………………… 16 1.1> Quản lý hồ sơ :…………………………………………………………………16 1.2> Quản lý lương …………………………………………………………………16 1.3> Tra cứu,Tìm kiếm :…………………………………………………………….16 1.4> Báo cáo,Thống kê …………………………………………………………… 16 Biểu đồ phân cấp chức hệ thống quản lý nhân sự/ lương:…………… 17 2.1 Biểu đồ phân cấp chức năng…………………………………………………….17 2.2 Biểu đồ luồng liệu mức khung cảnh…………………………………………17 2.3 Biểu đồ luồng liệu mức đỉnh…………………………………………………18 2.3.1 Chức quản lý hồ sơ………………………………………………………19 2.3.2 Chức quản lý lương:…………………………………………………… 19 2.3.3 Chức tra cứu tìm kiếm:………………………………………………… 19 2.3.4 Chức báo cáo, thống kê:…………………………………………………20 2.4 Biểu đồ luồng liệu mức đỉnh tổng hợp…………………………………21 CHƯƠNG III: XÂY DỰNG CƠ SỞ DỮ LIỆU CỦA CHƯƠNG TRÌNH…………22 1.Cơ sở liệu………………………………………………………………………22 Sử dụng Microsoft Access để tạo sở liệu cho chương trình……………….23 2.1 Lược đồ cấu trúc liệu (LCD): ……………………………………………….24 ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page of 146 Header Page of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** 2.2 Thiết kế file liệu…………………………………………………………25 2.2.1 Bảng HoSoCanBo lưu trữ thơng tin nhân quan………… 25 2.2.2 Bảng lương lưu trữ thơng tin q trình lao động nhân sự…………….26 2.2.3 Bảng HesoLuong lưu trữ thơng tin hệ số lương cơng ty………………27 2.2.4 Bảng Thưởng lưu trữ thơng tin hệ số lương cơng ty………………… 27 2.2.5 Bảng HesoLuong lưu trữ thơng tin hệ số lương cơng ty………………27 Dùng Microsoft Access để tạo sở liệu………………………………….28 3.1 Mối quan hệ cho bảng liệu chương trình………………………….28 3.2 Relationships phân hệ Quản lý nhân sụ-tiền lương…………………………… 28 4.Thiết kễ Module:………………………………………………………………… 29 4.1 Xây dựng lược đồ cấu trúc chương trình LCT:…………………………………29 4.1.1 Chỉnh sửa hồ sơ:………………………………………………………………29 4.1.2 Chấm cơng…………………………………………………………………….29 4.1.3 Tính lương:……………………………………………………………………30 4.1.4 Tra cứu:……………………………………………………………………… 30 4.1.5 Thống kê báo cáo:…………………………………………………………… 31 4.2 Đặc tả Module:…………………………………………………………………31 4.2.1 Cập nhật hồ sơ:……………………………………………………………… 31 4.2.2 Tra cứu,Tìm kiếm:…………………………………………………………….32 CHƯƠNG IV: SỬ DỤNG NGƠN NGỮ LẬP TRÌNH VISUAL BASIC ĐỂ THIẾT KẾ CHƯƠNG TRÌNH ……………………………………………… 33 1.Ngơn ngữ lập trình Visual Basic………………………………………………… 33 2.Các đối tượng truy cập liệu…………………………………………………….34 Sử dụng đối tượng truy cập liệu chương trình…………………… 35 Các điều khiển giao diện người sử dụng………………………………………….39 Sử dụng câu truy vấn (SQL)……………………………………………………….40 Cài đặt chạy chương trình…………………………………………………… 44 CHƯƠNG V: ĐÁNH GIÁ VÀ PHÁT TRIỂN ĐỀ TÀI ……………………………54 NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN……………………………………55 XÁC NHẬN CỦA CƠ QUAN THỰC TẬP……………………………………… 56 TÀI LIỆU THAM KHẢO………………………………………………………… 57 PHỤ LỤC……………………………………………………………………………58 ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page of 146 Header Page of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** CODE CỦA CHƯƠNG TRÌNH………………… ………………………… 58 LỜI MỞ ĐẦU Ngày song song với q trình phát triển cơng nghệ khoa học kỹ thuật nghành khoa học tính tốn đóng vai trò quan trọng, đạt thành tựu khoa học kỹ thuật rực rỡ với bước tiến nhảy vọt.Việc áp dụng cơng nghệ khoa học kỹ thuật vào lĩnh vực đời sống người ngày tăng khơng ngừng can thiệp vào hầu hết cơng việc đời sống Cơng nghệ thơng tin ngành khoa học Đi đơi với phát triển cơng nghệ chế tạo thiết bị máy tính việc sản phẩm phần mềm ứng dụng đời có tính chất định việc áp dụng ngành khoa học Trên giới Việt Nam , cơng nghệ thơng tin trở thành ngành cơng nghiệp mũi nhọn, ngành khoa học kỹ thuật khơng thể thiếu việc áp dụng vào hoạt động xã hội như: Quản lý, kinh tế, thơng tin Ở nước ta , việc áp dụng vi tính hố việc quản lý quan, xí nghiệp phổ biến trở nên cấp thiết Nhưng vấn đề đặt việc quản lý làm để chuẩn hố cách xử lý liệu quan, xí nghiệp, trăm xí nghiệp, trăm quan trăm cách xử lý khác nhau, chúng tơi muốn đề cập tới tầm quan trọng việc phân tích vấn đề quản lý ứng dụng vào vi tính Đó vấn đề nhiều hạn chế đội ngũ nhân viên việc quản lý quan, xí nghiệp ta Một thực trạng dang diễn cơng ty thường mời chun viên phần mềm vi tính viết chương trình, họ khơng hiểu chương trình viết nào, ứng dụng phân tích Họ khơng biết làm ngồi việc ấn nút theo hướng dẫn cơng ty phần mềm sử dụng chương trình họ viết Khi muốn thay đổi nho nhỏ chương trình lại phải mời chun viên,vì người điều hành biết ấn nút mà thơi, mà thay ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page of 146 Header Page of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** đổi phân tích vấn đề khơng để ý khách hàng qn khuấy khơng u cầu chun viên khắc phục chương trình Sự hạn chế việc phân tích vấn đề, quản lý khơng phát huy hết tác dụng máy tính Với mong muốn giúp bạn hiểu tầm quan trọng việc phân tích thiết kế hệ thống thơng tin tự động hố lĩnh vực quản lý Em cố gắng mạnh dạn đưa phương pháp phân tích thiết kế hệ thống tốn quản lý nhân sự-lương hệ quản trị sở liệu MICROSOFT ACCESS, phương pháp nhiều phương pháp, chưa hồn thiện phần giúp bạn hiểu vai trò việc phân tích thiết kế tốn quản lý nói chung Mặc dù cố gắng để hồn thành cơng việc, xong thời gian có hạn kinh nghiệm kiến thức chưa nhiều nên việc phân tích thiết kế có nhiều thiếu xót cần bổ xung Vì vậy, e mong nhận ý kiến đóng góp thầy bạn bè để đề tài ngày hồn thiện Cuối cùng, em xin chân thành cảm ơn Ths Nguyễn Thanh Hương giảng viên mơn cơng nghệ thơng tin Trường Đại Học Kinh Tế Quốc Dân tận tình bảo hướng dẫn em hồn thành đề tài Ngồi ra, e xin chân thành cám ơn q cơng ty TNHH Minh Trí tạo điều kiện cho e thực tập cơng ty để e hồn thành đề tài CHƯƠNG I GIỚI THIỆU VÀ KHẢO SÁT HỆ THỐNG ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page of 146 Header Page of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** I Giới thiệu cơng ty 1.Q trình hình thành phát triển Ngày 22/06/1995 UBND thành phố Hà Nội cấp giấy phép số 1906GP/UB định thành lập cơng ty TNHH Minh Trí Là cơng ty may thêu chun sản xuất xuất mặt hàng may mặc vải dệt kim Sản phẩm cơng ty có mặt khắp thị trường giới thị trường EU, Canada, Đức, Tiệp, Đài Loan, Nhật Bản, Hồng Kơng, Trung Quốc, đặc biệt thị trường Mỹ Trong 13 năm qua, cơng ty khơng ngừng hồn thiện cấu tổ chức máy quản lý nhằm đáp ứng nhu cầu sản xuất cán cơng nhân viên cơng ty để ln đạt mức tăng trưởng kim ngạch xuất cao Đồng thời tạo cơng ăn việc làm cho hàng nghìn lao động, nâng cao chất lượng đời sống cán cơng nhân viên Giới thiệu cụ thể: - Tên cơng ty: Cơng ty trách nhiệm hữu hạn Minh Trí - Tên giao dịch: Minh Tri Limited Company - Tên viết tắt: Minh Tri co.lmt - Trụ sở chính: Khu cơng nghiệp Vĩnh Tuy - Quận Hồng Mai – Tp Hà Nội - Hình thức hoạt động: sản xuất kinh doanh - Sản phẩm cơng ty: chủ yếu sản phẩm từ vải dệt kim bao gồm quần, áo loại Có dòng sản phẩm là: hàng cao cấp hàng đại trà - Kim ngạch xuất đạt: 24.344.000 USD (2006) - Sản lượng sản xuất đạt: 5.993.000 sản phẩm (2006) - Doanh thu đạt: 67 tỷ đồng ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page of 146 Header Page of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** - Số máy may:570 - Số dàn máy thêu: - Thành tích đạt được: + Thành tích xuất Bộ Thương mại tặng năm 2004 + Bằng khen Liên đồn quận Hồng Mai cơng tác tốt + Bằng khen Sở Y tế Hà Nội VSATTP chăm sóc sức khoẻ ban đầu cho người lao động + nhiều khen cơng tác an ninh trật tự, cơng tác phòng cháy chữa cháy, bảo hiểm xã hội, Tuy non trẻ cơng ty TNHH Minh Trí khẳng định đường hội nhập kinh tế quốc tế nói chung ngành dệt may Việt Nam nòi riêng 2.Chức năng, nhiệm vụ phòng ban cơng ty + Giám đốc: Là người đứng đầu cơng ty: - Chịu trách nhiệm trước Nhà nước pháp luật tất hoạt động sản xuất kinh doanh cơng ty - Điều hành chung hoạt động phòng ban cơng ty - Chịu trách nhiệm đạo, bồi dưỡng nâng cao chun mơn, kỹ thuật cải thiện đời sống cho cán cơng nhân viên - Kết hợp chặt chẽ với phòng chức năng, phòng nghiệp vụ cơng ty tạo điều kiện cho tổ chức, đồn thể hoạt động theo quy chế - Trực tiếp phụ trách cơng tác cán + Phó giám đốc: Là trợ lý giám đốc - điều hành cơng ty lĩnh vực: ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page of 146 Header Page of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** - Chịu trách nhiệm tồn mặt kỹ thuật, qn tự vệ, phụ trách đào tạo kế hoạch tác nghiệp, theo dõi, đơn đốc sản xuất hàng phân xưởng, theo dõi trạng máy móc, thiết bị sản xuất - Ký kết hợp đồng nội địa - Liên doanh ký kết - Mua bán vật tư, hàng hố, ngun vật liệu chính, phụ tùng thiết bị - Kết hợp phòng tài vụ kinh doanh thành phẩm, phế liệu, sửa chữa nhà xưởng - Liên hệ điều tiết máy móc + Phòng tổ chức lao động hành - Tham mưu giúp việc cho giám đốc lĩnh vực tổ chức cán bộ, đào tạo lao động tiền lương, chế độ sách quản lý hành chính, phục vụ bảo vệ - Nghiên cứu, đề xuất biện pháp giúp giám đốc cơng ty đạo, hướng dẫn, kiểm tra, đơn đốc đơn vị cơng ty thực chủ trương giám đốc - Tổng hợp, phân tích, báo cáo, thống kê hoạt động thuộc lĩnh vực phòng quản lý để phục vụ cơng tác chung tồn cơng ty - Nhiệm vụ: + Nghiên cứu, đề xuất phương án tổ chức máy quản lý, đơn vị cho phù hợp với u cầu sản xuất kinh doanh, với chế quản lý thời kỳ + Phối hợp với đơn vị liên quan tổng hợp văn quy định chức năng, nhiệm vụ đơn vị + Xây dựng nội quy, quy chế quản lý thuộc lĩnh vực quản lý lao động để trình duyệt với giám đốc ban hành cơng ty ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page of 146 Header Page of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** + Hướng dẫn, đơn đốc đơn vị thực nội quy, quy chế + Quản lý hồ sơ, số lượng cán cơng nhân viên tồn cơng ty, quản lý vấn đề liên quan đến cơng tác tuyển dụng, bố trí, sử dụng, bổ nhiệm, đề bạt, miễn nhiệm, nâng bậc, khen thưởng, kỷ luật + Giúp lãnh đạo cơng ty cơng xây dựng chương trình kế hoạch đào tạo, bồi dưỡng, nâng cao trình độ mặt cho đội ngũ cán quản lý, cán kỹ thuật chun mơn nghiệp vụ cơng nhân + Giúp giám đốc cơng ty tổ chức việc nhận xét, đánh giá cán định kỳ, bỏ phiếu tín nhiệm, thăm dò ý kiến cán bộ, cơng nhân viên, thực đầy đủ, quy định vấn đề tổ chức cán + Giải thủ tục tuyển sinh, học nghề, tuyển dụng, ký kết hợp đồng lao động mới; thủ tục cho cán cơng nhân viên chuyển cơng tác thơi việc sau xin ý kiến giám đốc + Theo dõi, tổng hợp hợp đồng ký kết, gia hạn hợp đồng lao động cho cán cơng nhân viên tồn cơng ty + Cơng tác tiền lương: xây dựng ban hành nội quy, quy chế tiền lương thu nhập, chế độ bảo hiểm xã hội, thực sách cho người lao động quy định + Thực tốt cơng tác vệ sinh lao động, vệ sinh mơi trường + Thực cơng tác bảo vệ an ninh, trật tự an tồn, xây dựng lực lượng tự vệ vững mạnh + Khám phát bệnh nghề nghiệp cho cán cơng nhân viên mắc phải cơng ty, có kế hoạch phòng bệnh điều trị - Các cơng tác khác: + Cơng tác thống kê kế hoạch báo cáo + Cơng tác hình thức, chuẩn bị đầy đủ hồ sơ hồn thuế cần ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page of 146 Header Page 10 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** + Xây dựng tổ chức thực kế hoạch quản lý hệ thống kho tàng, bảo quản hàng hố + Tổ chức việc nhập xuất vật tư, ngun phụ liệu từ kho đến đơn vị liên quan đảm bảo đầy đủ, quy định cơng ty + Thực chế độ cấp phát sổ sách, ln chuyển giao nhận: chứng từ, chế độ kiểm kê, báo cáo + Phòng quản lý đơn hàng: - Xây dựng tiếp nhận đơn hàng - Dịch đơn hàng, sau gửi lên phòng ban sản xuất + Phòng kế tốn tài chính: - Chức năng: tham mưu, giúp việc cho giám đốc cơng tác kế tốn tài nhằm sử dụng vốn hợp lý, mục đích, chế độ, đảm bảo cho q trình sản xuất kinh doanh cơng ty trì liên tục đạt hiệu kinh tế cao - Nhiệm vụ: + Ghi chép, tính tốn, phản ánh số liệu có tình hình ln chuyển sử dụng tài sản, vật tư, vốn cơng ty Tình hình sử dụng nguồn vốn phải phản ánh chi tiết q trình sản xuất hoạt động sản xuất kinh doanh cơng ty Kiểm tra tình hình thực kế hoạch sản xuất kinh doanh, kế hoạch thu chi tài + Cơng tác tài chính: Lập chịu trách nhiệm trước giám đốc số liệu báo cáo kế tốn với quan Nhà nước cấp theo hệ thống mẫu biểu Nhà nước quy định Lập kế hoạch tài chính, tính tốn hiệu kinh tế dự án đầu tư (nếu có) ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 10 of 146 10 Header Page 72 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** Case 1, 3, 5, 7, 8, 10, 12 If Ngay > 31 And Len(nam1) = Then MsgBox "B¹n nhËp sai ngµy, th¸ng nµy chØ cã 31 ngµy!", vbCritical, "Chó ý" txthoso(5).SetFocus Else If (Thang = 1) Or (Thang = 3) Or (Thang = 5) Or (Thang = 7) Or (Thang = 8) Or (Thang = 10) Or (Thang = 12) And (Len(nam1) = 4) Then txthoso(0).SetFocus ok = True End If End If Case If (Nam Mod = 0) And (Ngay > 29) And (Thang = 2) Then MsgBox "B¹n nhËp sai DL, th¸ng chØ cã 28 ngµy", vbCritical, "Chó ý" txthoso(5).SetFocus Else If (Nam Mod = 0) And (Ngay 28) And (Thang = 2) Then MsgBox "B¹n nhËp sai DL, th¸ng chØ cã 28 ngµy", vbCritical, "Chó ý" txthoso(5).SetFocus Else If (Nam Mod 0) And (Ngay 12) And (Len(nam1) = 4)) Then MsgBox "B¹n NhËp sai kiĨu th¸ng !", vbCritical, "Chó ý" txthoso(5).SetFocus End If End Select If ok = True Then ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 72 of 146 72 Header Page 73 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** txthoso(0).SetFocus Else txthoso(5).SetFocus End If KiemTraNgayvaoBC = ok End With End Function Option Compare Text Option Explicit Dim them As Boolean 'In danh mục chứng từ Private Sub cmdRepheso_Click() heso.Show End Sub Private Sub Command1_Click() he_so_luong.Show End Sub 'Thủ tục nạp Form Private Sub Form_Load() Dim n Dim n1 n=0 n1 = txtSBG.Text = n 'Khoa End Sub Private Sub Khoa() Dataheso.AllowDelete = False Dataheso.AllowUpdate = False Dataheso.AllowAddNew = False cmdthem.Enabled = True cmdsua.Enabled = True cmdxoa.Enabled = True cmdghi.Enabled = False cmdkhong.Enabled = False cmdthoat.Enabled = True 'Tự động cập nhật ghi DataGrid Danh mục chứng từ Dataheso.Refresh End Sub Private Sub Mo_Khoa() Dataheso.AllowDelete = True ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 73 of 146 73 Header Page 74 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** Dataheso.AllowUpdate = True Dataheso.AllowAddNew = True cmdthem.Enabled = False cmdsua.Enabled = False cmdxoa.Enabled = False cmdghi.Enabled = True cmdkhong.Enabled = True cmdthoat.Enabled = False 'Tự động cập nhật ghi DataGrid Danh mục chứng từ Dataheso.Refresh End Sub Private Sub cmdthem_click() On Error GoTo Loi_Them Mo_Khoa 'Tự động cập nhật lại ghi Form hay DataSheet liệu thay đổi Ado_heso.Refresh 'Thêm ghi Ado_heso.Recordset.AddNew 'DataGrid heso nhận tiêu điểm Dataheso.SetFocus them = True Thoat_Them: Exit Sub Loi_Them: MsgBox Err.Description Resume Thoat_Them End Sub Private Sub cmdsua_click() Dim recnum On Error GoTo Loi_Sua 'Biến đánh dấu ghi cần thay đổi recnum = Ado_heso.Recordset.Bookmark Mo_Khoa them = False Thoat_Sua: Exit Sub Loi_Sua: MsgBox Err.Description Resume Thoat_Sua End Sub Private Sub cmdxoa_click() On Error GoTo Loi_Xoa ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 74 of 146 74 Header Page 75 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** Dim traloi traloi = MsgBox("Bạn muốn xóa chứng từ " + Ado_heso.Recordset.Fields("heso") + " ?", 48 + 4, "Thông báo") 'Nếu chọn YES If traloi = Then 'Xóa ghi Ado_heso.Recordset.Delete Ado_heso.Recordset.Clone Ado_heso.Recordset.Requery Ado_heso.Recordset.MoveNext If Ado_heso.Recordset.EOF Then Ado_heso.Recordset.MoveLast End If End If 'Dùng phương thức Refresh đối tượng Adodc để cập nhật lại liệu Ado_heso.Refresh Thoat_Xoa: Exit Sub Loi_Xoa: MsgBox "Không thể xóa mẫu tin !" Resume Thoat_Xoa End Sub Private Sub cmdghi_click() On Error GoTo Loi_Ghi Ado_heso.Recordset.UpdateBatch adAffectAll Khoa cmdthem.SetFocus them = False Thoat_Ghi: Dataheso.SetFocus Exit Sub Loi_Ghi: MsgBox "Dữ liệu không hợp lệ !" MsgBox "Mã chứng từ có tối 10 ký tự số !" Resume Thoat_Ghi End Sub Private Sub cmdkhong_click() If them Then Ado_heso.Refresh 'Dùng phương thức CancelUpdate để bỏ qua việc cập nhật liệu Ado_heso.Recordset.CancelUpdate ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 75 of 146 75 Header Page 76 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** End If Khoa cmdthem.SetFocus them = False Ado_heso.Refresh End Sub Private Sub cmdthoat_click() Ado_heso.Refresh Unload Me End Sub 'Khi click vào DataGrid heso đồng thời đếm số ghi 'đánh dấu ghi hành Private Sub Dataheso_click() Dim n Dim n1 n=0 n1 = n = Ado_heso.Recordset.RecordCount If (Ado_heso.Recordset.EOF = False) And (Ado_heso.Recordset.BOF = False) Then n1 = Ado_heso.Recordset.Bookmark End If txtBGHH.Text = n1 txtSBG.Text = n End Sub Dim db As Database Dim rec As Recordset Dim sql As String Private Sub CBoTC_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer) Select Case Index Case 'hä tªn If KeyCode = 13 Then If Not Trim(CBoTC(0).Text) = "" Then CBoTC(0).Text = Chuan(CBoTC(0).Text, 1) End If CBoTC(1).SetFocus End If Case ' thoe ma If KeyCode = 13 Then If Not Trim(CBoTC(1).Text) = "" Then CBoTC(1).Text = Chuan(CBoTC(1).Text, 3) ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 76 of 146 76 Header Page 77 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** End If CBoTC(2).SetFocus End If Case 'theo he so luong If KeyCode = 13 Then If Not Trim(CBoTC(2).Text) = "" Then If Len(Trim(CBoTC(2).Text)) Then CBoTC(2).Text = Chuan(Trim(CBoTC(2).Text), 2) End If End If txtTC(0).SetFocus End If Case ' theo phu cap If KeyCode = 13 Then If Not Trim(CBoTC(3).Text) = "" Then CBoTC(3).Text = Chuan(CBoTC(3).Text, 2) End If CBoTC(4).SetFocus End If Case ' theo laoi thuong If KeyCode = 13 Then If Not Trim(CBoTC(4).Text) = "" Then CBoTC(4).Text = Chuan(CBoTC(4).Text, 2) End If CBoTC(5).SetFocus End If Case ' lao If KeyCode = 13 Then If Not Trim(CBoTC(5).Text) = "" Then CBoTC(5).Text = Chuan(CBoTC(5).Text, 2) End If Me.cmdTCLuong.SetFocus End If End Select End Sub Private Sub CBoTC_LostFocus(Index As Integer) Select Case Index Case CBoTC(0).Text = Chuan(CBoTC(0).Text, 1) Case CBoTC(1).Text = Chuan(CBoTC(1).Text, 3) Case ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 77 of 146 77 Header Page 78 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** CBoTC(2).Text = Chuan(CBoTC(2).Text, 2) Case CBoTC(3).Text = Chuan(CBoTC(3).Text, 2) Case CBoTC(4).Text = Chuan(CBoTC(4).Text, 2) Case CBoTC(5).Text = Chuan(CBoTC(5).Text, 2) End Select End Sub Private Sub cmdexit_Click() Unload Me End Sub Private Sub cmdInLuong_Click() MsgBox "b¹n mn In" End Sub Private Sub cmdTCLuong_Click() Dim db As Database Dim rec As Recordset Dim IDMacb As String, IDHoTen As String Dim IDHSL As String, IDMPC As String Dim IDLT As String, IDLuong As String Dim IDConLai As String, IDDnd As String Dim pheptoan1 As String, pheptoan2 As String Dim sql As String, i As Byte sql = "SELECT DISTINCTROW HosoCanBo.macb, HosoCanBo.HoTen, HosoCanBo.Ngaysinh, HosoCanBo.Phong, HosoCanBo.Chucvu, HosoCanBo.NgayVaoBienChe, Luong.hesoluong, Luong.Loaithuong, Luong.MucPhuCap, Luong.SoNgayNghi, Luong.Luong, Luong.TamUng, Luong.Conlai " sql = sql & " FROM Luong INNER JOIN HosoCanBo ON Luong.Macb = HosoCanBo.macb WHERE " IDHoTen = Chuan(Trim(CBoTC(0).Text), 1) IDMacb = Chuan(Trim(CBoTC(1).Text), 3) IDHSL = (Trim(CBoTC(2).Text)) IDMPC = Trim(CBoTC(3).Text) IDLT = Trim(CBoTC(4).Text) IDDnd = Trim(CBoTC(5).Text) ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 78 of 146 78 Header Page 79 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** pheptoan1 = Mid(Trim(txtTC(0).Text), 1, 2) IDLuong = Mid((Trim(txtTC(0).Text)), 3, Len(Trim(txtTC(0).Text))) pheptoan2 = Mid(Trim(txtTC(1).Text), 1, 2) IDConLai = Mid((Trim(txtTC(1).Text)), 3, Len(Trim(txtTC(1).Text))) 'MsgBox IDHSL Select Case Me.OptAND.Value Case True If Len(IDHoTen) > Then sql = sql & " HosoCanBo.[HoTen] LiKe '" & IDHoTen & "' And " If Len(IDMacb) > Then sql = sql & " HosoCanBo.[Macb] LiKe '" & IDMacb & "' And " If Len(IDHSL) > Then sql = sql & " Luong.[Hesoluong] Like '" & IDHSL & "' And " If Len(IDMPC) > Then sql = sql & " Luong.[MucPhuCap] LiKe '" & IDMPC & "' And " If Len(IDLT) > Then sql = sql & " Luong.[LoaiThuong] LiKe '" & IDLT & "' And " If Len(IDDnd) > Then sql = sql & " Luong.[KyNhan] LiKe '" & IDDnd & "' And " If Len(IDLuong) > Then sql = sql & " val(Luong.[Luong]) " & pheptoan1 & " " & Val(IDLuong) & " And " If Len(IDConLai) > Then sql = sql & " val(Luong.[ConLai]) " & pheptoan2 & " " & Val(IDConLai) & " And " MsgBox sql sql = sql & " HosocanBo.[Macb]=luong.[Macb] ORDER BY HosoCanBo.[HoTen]" 'MsgBox sql Case False If Len(IDHoTen) > Then sql = sql & " HosoCanBo.[HoTen] LiKe '" & IDHoTen & "' or " If Len(IDMacb) > Then sql = sql & " HosoCanBo.[Macb] LiKe '" & IDMacb & "' or " If Len(IDHSL) > Then sql = sql & " Luong.[Hesoluong] Like '" & IDHSL & "' Or " If Len(IDMPC) > Then sql = sql & " Luong.[MucPhuCap] LiKe '" & IDMPC & "' OR " If Len(IDLT) > Then sql = sql & " Luong.[LoaiThuong] LiKe '" & IDLT & "' OR " If Len(IDDnd) > Then sql = sql & " Luong.[KyNhan] LiKe '" & IDDnd & "' OR " If Len(IDLuong) > Then sql = sql & " val(Luong.[Luong]) " & pheptoan1 & " " & Val(IDLuong) & " OR " ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 79 of 146 79 Header Page 80 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** If Len(IDConLai) > Then sql = sql & " val(Luong.[ConLai]) " & pheptoan2 & " " & Val(IDConLai) & " OR " sql = Mid(sql, 1, Len(Trim(sql)) - 2) MsgBox sql sql = sql & " AND HosocanBo.[Macb]=luong.[Macb] ORDER BY HosoCanBo.[HoTen]" End Select Set db = OpenDatabase("c:\Qlluong\Qlluong.mdb") Set rec = db.OpenRecordset(sql, dbOpenSnapshot) If rec.RecordCount = Then MsgBox " Kh«ng cã c¸n bé tho¶ m·n th«ng tin t×m kiÕm", vbCritical, "Th«ng b¸o" Exit Sub End If Set DatTCLuong.Recordset = rec Me.DbgTCLuong.Refresh Me.txtTong.Text = Me.DatTCLuong.Recordset.RecordCount Me.DbgTCLuong.SetFocus End Sub Private Sub cmdview_Click() LUONG.Show End Sub Sub Form_Activate() Me.Width = 11000 Me.Height = 7500 Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 200 'NapDK End Sub Private Sub Form_Load() Dim rec As Recordset Dim sql As String Me.OptAND.Value = True Me.OptOR.Value = False Me.Frame1.Enabled = False mypath = "c:\QLluong\Qlluong.mdb" For k = To Me.CBoTC(k).Text = "" Next k Me.txtTC(0).Text = "" Me.txtTC(1).Text = "" Me.DatTCLuong.RecordSource = mypath ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 80 of 146 80 Header Page 81 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** Me.DbgTCLuong.Columns(0).DataField = "HoTen" sql = "SELECT DISTINCTROW HosoCanBo.macb, HosoCanBo.HoTen, HosoCanBo.Ngaysinh, HosoCanBo.Phong, HosoCanBo.Chucvu, HosoCanBo.NgayVaoBienChe, Luong.hesoluong, Luong.Loaithuong, Luong.MucPhuCap, Luong.SoNgayNghi, Luong.Luong, Luong.TamUng, Luong.Conlai " sql = sql & " FROM HosoCanBo,Luong WHERE " sql = sql & "HosoCanBo.[Macb]=Luong.[Macb] ORDER BY HosoCanBo.[Hoten]" Set db = DBEngine.Workspaces(0).OpenDatabase("c:\QLluong\Qlluong.mdb") Set rec = db.OpenRecordset(sql, dbOpenSnapshot) If rec.RecordCount = Then MsgBox " Kh«ng cã ®Çu s¸ch tho¶ m·n th«ng tin t×m kiÕm", vbCritical, "Th«ng b¸o" Exit Sub End If Set Me.DatTCLuong.Recordset = rec 'Me.DatTCLuong.Refresh With Me.DatTCLuong Me.DbgTCLuong.Columns(0).DataField = Recordset.Fields(1).Name Me.DbgTCLuong.Columns(0).Width = 3000 ' Refresh Me.DbgTCLuong.Refresh TxtTCLuong(0).DataField = "Macb" For i = To 12 Step TxtTCLuong(i).DataField = Recordset.Fields(i).Name Next i Me.DbgTCLuong.Refresh End With Me.txtTong.Text = Me.DatTCLuong.Recordset.RecordCount NapDK End Sub Public Sub NapDK() 'n¹p Th«ng Tin Ho tªn For i = To Me.CBoTC(i).Clear Next i mypath = "c:\QLluong\Qlluong.mdb" frmTraCuuLuong.CBoTC(0).AddItem "" Set db = DBEngine.Workspaces(0).OpenDatabase(mypath) ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 81 of 146 81 Header Page 82 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** MySql = "SELECT DISTINCT [Hoten] FROM HosoCanBo ORDER BY HosoCanBo.[HoTen]" Set rec = db.OpenRecordset(MySql, dbOpenSnapshot) If rec.RecordCount Then With rec MoveLast MoveFirst Do While Not EOF frmTraCuuLuong.CBoTC(0).AddItem (.Fields(0).Value) MoveNext Loop End With frmTraCuuLuong.CBoTC(0).AddItem "" End If 'n¹p Th«ng Tin MaCB frmTraCuuLuong.CBoTC(1).AddItem "" Set db = DBEngine.Workspaces(0).OpenDatabase(mypath) MySql = "SELECT DISTINCT [Macb] FROM Luong ORDER BY Luong.[Macb]" Set rec = db.OpenRecordset(MySql, dbOpenSnapshot) If rec.RecordCount Then With rec MoveLast MoveFirst Do While Not EOF frmTraCuuLuong.CBoTC(1).AddItem (.Fields(0).Value) MoveNext Loop End With ' frmTraCuuLuong.CBoTC(1).AddItem "" End If 'n¹p Th«ng Tin HƯ sè l¬ng Set db = DBEngine.Workspaces(0).OpenDatabase(mypath) MySql = "SELECT DISTINCT [Heso] FROM HesoLuong ORDER BY HesoLuong.[Heso]" Set rec = db.OpenRecordset(MySql, dbOpenSnapshot) If rec.RecordCount Then With rec MoveLast MoveFirst Do While Not EOF ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 82 of 146 82 Header Page 83 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** frmTraCuuLuong.CBoTC(2).AddItem (.Fields(0).Value) MoveNext Loop End With frmTraCuuLuong.CBoTC(2).AddItem "" End If 'n¹p Th«ng Tin Møc phơ cÊp Set db = DBEngine.Workspaces(0).OpenDatabase(mypath) MySql = "SELECT DISTINCT [MucPhucap] FROM PhuCap ORDER BY PhuCap.[MucPhuCap]" Set rec = db.OpenRecordset(MySql, dbOpenSnapshot) If rec.RecordCount Then With rec MoveLast MoveFirst Do While Not EOF frmTraCuuLuong.CBoTC(3).AddItem (.Fields(0).Value) MoveNext Loop End With frmTraCuuLuong.CBoTC(3).AddItem "" End If 'n¹p Th«ng Tin Lo¹i thëng Set db = DBEngine.Workspaces(0).OpenDatabase(mypath) MySql = "SELECT DISTINCT [LoaiThuong] FROM Thuong" ' ORDER BY Thuong.[LoaiThuong]" Set rec = db.OpenRecordset(MySql, dbOpenSnapshot) If rec.RecordCount Then With rec MoveLast MoveFirst Do While Not EOF frmTraCuuLuong.CBoTC(4).AddItem (.Fields(0).Value) MoveNext Loop End With frmTraCuuLuong.CBoTC(4).AddItem "" End If 'n¹p Th«ng Tin §a nh©n frmTraCuuLuong.CBoTC(5).AddItem "" ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 83 of 146 83 Header Page 84 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** Set db = DBEngine.Workspaces(0).OpenDatabase(mypath) MySql = "SELECT DISTINCT [KyNhan] FROM Luong ORDER BY Luong.[KyNhan]" Set rec = db.OpenRecordset(MySql, dbOpenSnapshot) If rec.RecordCount Then With rec MoveLast MoveFirst Do While Not EOF Me.CBoTC(5).AddItem (.Fields(0).Value) MoveNext Loop End With ' frmTraCuuLuong.CBoTC(5).AddItem "" End If End Sub Private Sub OptAND_Click() Me.OptAND.Value = True Me.OptOR.Value = False End Sub Private Sub OptOR_Click() Me.OptOR.Value = True Me.OptAND.Value = False End Sub Private Sub txtTC_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer) Select Case Index Case If KeyCode = 13 Then txtTC(1).SetFocus End If Case If KeyCode = 13 Then CBoTC(3).SetFocus End If End Select End Sub Private Sub Command1_Click() Unload Me End Sub Sub cmdchucnang_Click() outputdestination = ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 84 of 146 84 Header Page 85 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** rptxemhoso.Destination = outputdestination rptxemhoso.DataFiles(0) = mypath rptxemhoso.ReportFileName = rptfilename + "hscb.rpt" rptxemhoso.Action = End Sub Sub Form_Activate() Me.Width = 11900 Me.Height = 7500 With DBGXemHoso Top = frmXemhoso.Top - 100 Left = frmXemhoso.Left - 200 Width = Me.Width - 100 Height = Me.Height - 1500 End With Me.Move (Screen.Width - Me.Width) / 200, (Screen.Height - Me.Height) / 200 Me.Frame1.Top = Me.Height - 1500 Me.Frame1.Left = Me.Left + 100 Me.Frame1.Width = Me.Width - 400 Me.datxemhoso.Visible = False 'Form_Load End Sub Sub Form_Load() mypath = "c:\QLluong\qlluong.mdb" datxemhoso.DatabaseName = mypath datxemhoso.RecordSource = "HoSoCanBo" Me.DBGXemHoso.Font.Name = ".vntime" Me.DBGXemHoso.Font.Size = 12 Form_Activate HienTieuDe End Sub Public Sub HienTieuDe() With Me.DBGXemHoso Columns(0).Caption = "M· C¸n Bé" Columns(0).DataField = "Macb" Columns(0).Width = 1000 Columns(1).Caption = "Hä Tªn" Columns(1).DataField = "Hoten" Columns(1).Width = 2500 Columns(2).Caption = "Ngµy Sinh" Columns(2).DataField = "Ngaysinh" Columns(2).Width = 1500 Columns(3).Caption = "Giíi TÝnh" ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 85 of 146 85 Header Page 86 of 146 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MƠN CƠNG NGHỆ THƠNG TIN.*** Columns(3).DataField = "Gioitinh" Columns(3).Width = 1000 Columns(4).Caption = "D©n Téc" Columns(4).DataField = "DanToc" Columns(4).Width = 1200 Columns(5).Caption = "Quª Qu¸n" Columns(5).DataField = "QueQuan" Columns(5).Width = 2000 Columns(6).Caption = "N¬i ë " Columns(6).DataField = "noioHienNay" Columns(6).Width = 2000 Columns(7).Caption = "Phßng" Columns(7).DataField = "Phong" Columns(7).Width = 2000 Columns(8).Caption = "Chøc Vơ" Columns(8).DataField = "ChucVu" Columns(8).Width = 2000 Columns(9).Caption = "Tr×nh §é" Columns(9).DataField = "trinhDO" Columns(10).Caption = "Chuyªn M«n" Columns(10).DataField = "ChuyenMon" Columns(11).Caption = "Ngµy Vµo biªn chÕ" Columns(11).DataField = "Ngayvaobienche" End With End Sub ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG Footer Page 86 of 146 86 ... chưa sử dụng rộng rãi hệ thống quản lý, hệ thống quản lý phải thực theo phương pháp thủ công hệ thống quản lý nhân nằm số 2.Chức nhiệm vụ hệ thống quản lý nhân Hệ thống quản lý nhân có chức thường... thiết kế hệ thống toán quản lý nhân sự-lương hệ quản trị sở liệu MICROSOFT ACCESS, phương pháp nhiều phương pháp, chưa hoàn thiện phần giúp bạn hiểu vai trò việc phân tích thiết kế toán quản lý nói... QUỐC DÂN - BỘ MÔN CÔNG NGHỆ THÔNG TIN.*** Cơ sở liệu cho chương trình Quản lý nhân sự-tiền lương 3.1 Mối quan hệ cho bảng liệu chương trình 3.2 Relationships phân hệ Quản lý nhân sụ-tiền lương 4.Thiết