Quản lý nhân sự lương trên hệ quản trị cơ sở dữ liệu MICROSOFT ACCESS

***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……………………………………………………………… Quá 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.Yêu cầu hệ thống khó khăn……………………………………… 15 4.Những yê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 ***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 ***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, m ột ngành khoa học kỹ thuật 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 hoá 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, 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 chuyên 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 chuyên 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 ***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 quên khuấy không yêu cầu chuyên 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 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 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ịn 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 cô bạn bè để đề tài ngày hoà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 Ngoà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 ***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 hoà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 để đạ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 ***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 chuyên 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, đoà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 ***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 toàn mặt kỹ thuật, quân 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 hoá, nguyên 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 yê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 ***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 chuyên 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 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 toà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 ***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 hoá + Tổ chức việc nhập xuất vật tư, nguyên 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, luân 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 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 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ế toá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 10 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MÔN CÔNG NGHỆ THÔNG TIN.***  Tham mưu cho giám đốc giá việc ký kết hợp đồng mua bán vật tư, hàng hoá với khách hàng  Quản lý, tổ chức sử dụng vốn mục đích hiệu  Thực tốt chế độ tài Nhà nước + Cơng tác hoạch tốn kế toán:  Thực chế độ hoạch toán, kế toán thống nhất, theo dõi sổ sách  Ghi chép tình hình cung ứng, quản lý vật tư, hàng hố cơng ty  Hoạch tốn chi phí nhập - xuất vật tư công ty đến phân xưởng sản xuất  Theo dõi việc mua sắm, sử dụng tài sản cơng ty + Phịng kỹ thuật chất lượng: tham mư u, giúp việc cho giám đốc lĩnh vực sau: - Kỹ thuật may khí - Lập kế hoạch thu mua nguyên phu liệu phục vụ cho sản xuất thùng catton, túi nilon, kế hoạch mua sắm thiết bị cần dùng cho đơn hàng sản xuất - Tính định mức kỹ thuật, định mức sử dụng nguyên phụ liệu cho đơn hàng, định mức lao động hao phí lao động - Xây dựng tiêu kỹ thuật, chất lượng sản phẩm, kiểm tra chất lượng sản phẩm đảm bảo theo yêu cầu khách hàng - Triển khai, theo dõi việc thiết kế sản xuất loại sản phẩm mẫu - Hướng dẫn theo dõi, đôn đốc giúp đỡ phân xưởng lập thực kế hoạch tu sửa thiết bị đầy đủ theo nội dụng bảo trì đ ã giám đốc phê duyệt ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG 11 ***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 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 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 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 72 ***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 73 ***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 ñieå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 74 ***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 'Duø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 75 ***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 76 ***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 77 ***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 muèn 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 78 ***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 79 ***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 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 80 ***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 81 ***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 82 ***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 "" TI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG 83 ***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 84 ***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 85 ***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 86 ... 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 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... thu nhập chung nhân đơn vị Biểu đồ phân cấp chức hệ thống quản lý nhân / lương: 2.1 Biểu đồ phân cấp chức Quản lý nhân / lương Quản lý hồ sơ Cập nhật hồ sơ Tra cứu, Tìm kiếm Quản lý lương Chấm công