Đang tải... (xem toàn văn)
Tài liệu tham khảo công nghệ thông tin Phân tích thiết kế hệ thống quản lý nhân sự- tiền lương
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.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 ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN - BỘ MÔN CÔNG NGHỆ THÔNG TIN.*** 2.1 Lược đồ cấu trúc liệu (LCD): ……………………………………………….24 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 ĐỀ 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.*** 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 CODE CỦA CHƯƠNG TRÌNH………………… ………………………… 58 LỜI MỞ ĐẦU Ngày song song với 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 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 ĐỀ 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.*** 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 đổ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 hoá 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 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 hoà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 ĐỀ 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ƯƠNG I GIỚI THIỆU VÀ KHẢO SÁT HỆ THỐNG 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 chuyên 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 để đạ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 ĐỀ 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.*** - 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 - 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 đoàn quận Hoà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 cịn 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 ĐỀ 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 đạ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: - 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 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 ĐỀ 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.*** - 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 + 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 ĐỀ 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.*** + 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ơ hoàn thuế cần + 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 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 luân 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 ĐỀ 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.*** 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ó) • 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ế tố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 10 ĐỀ 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.*** Set rec = db.OpenRecordset("hosocanbo") For i = To txthoso(i).Text = "" Next i For i = To cbohoso(i).Text = "" Next i NapNhapHSCB txthoso(0).SetFocus Case ' chän chức sửa IDMacb = InputBox(" Nhập vào mà Cán cần sửa ", "Sửa chữa") If Len(Trim(IDMacb)) = Then Exit Sub Set rec = db.OpenRecordset("SELECT * FROM HosoCanBo WHERE [MaCB]='" & IDMacb & "'") If rec.RecordCount = Then MsgBox "Không tồn mà cán lu trữ ", vbCritical, "Không thấy" txthoso(0).SetFocus Exit Sub End If Set dathoso.Recordset = rec Me.dathoso.Refresh On Error Resume Next Case ' chọn chức Ghi MsgBox " Bạn võa chän ghi" Set db = DBEngine.Workspaces(0).OpenDatabase(mypath) Set rec = db.OpenRecordset("HoSoCanBo") ' KiĨm tra Xem Da co ®đ Thong tin For k = To If cbohoso(i).Text = "" Then cbohoso(i).SetFocus End If If txthoso(i).Text = "" Then txthoso(i).SetFocus End If Next k dongsql = "Insert into hosocanbo (macb,Hoten,ngaysinh,Gioitinh,DanToc,Quequan,NoiOhiennay,Phong,ChucVu, TrinhDo,Chuyenmon,NgayvaoBienChe) Values ('" & UCase(Trim(txthoso(0).Text)) & "','" & Trim(txthoso(1).Text) & "','" & Trim(txthoso(2).Text) & "','" & Trim(cbohoso(0).Text) & "','" & Trim(cbohoso(1).Text) & "','" & Trim(txthoso(3).Text) & "','" & 71 ĐỀ 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.*** Trim(txthoso(4).Text) & "','" & Trim(cbohoso(2).Text) & "','" & Trim(cbohoso(3).Text) & "','" & Trim(cbohoso(4).Text) & "','" & Trim(cbohoso(5).Text) & "','" & Trim(txthoso(5).Text) & "')" Me.dathoso.Recordset.MoveFirst For j = To dathoso.Recordset.RecordCount - If UCase(Trim(txthoso(0).Text)) UCase(dathoso.Recordset.Fields(0).Value) Then coghi = True Else coghi = False If coghi = False Then MsgBox " Đà Có sở liệu bạn !" Exit For End If End If Me.dathoso.Recordset.MoveNext Next j If coghi = True Then db.Execute dongsql dathoso.Refresh End If db.Execute dongsql db.Execute "Insert Into Luong(macb,luong,kynhan)Values ('" & UCase(Trim(txthoso(0).Text)) & "',100,'No')" db.Close txthoso(0).SetFocus Case 'Xo¸ Set db = OpenDatabase(mypath) Set rec = db.OpenRecordset("Hosocanbo") With rec If Not EOF Or Not BOF Then xoa = MsgBox("Bạn Muốn xoá ?", vbYesNo, "Chú ý") If xoa = vbYes Then Me.dathoso.Recordset.MoveFirst Delete End If ' Update End If End With Case 4, Xem frmXemhoso.Show Case ' In Ên 72 ĐỀ 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.*** frmXemhoso.cmdchucnang_Click Case 'KÕt Thóc Unload Me End Select End Sub Private Sub dathoso_Reposition() dongxoa = Me.dathoso.Recordset.RecordCount + End Sub Private Sub DBGrid1_Click() If Not Me.dathoso.Recordset.BOF Or Not Me.dathoso.Recordset.EOF Then txthoso(0).Text = Me.dathoso.Recordset.Fields(0).Value txthoso(1).Text = Me.dathoso.Recordset.Fields(1).Value Else MsgBox "Đây la ghi cuèi råi", vbCritical, "Chó ý" End If End Sub Sub Form_Activate() Me.Width = 11100 Me.Height = 7500 Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 20 End Sub Private Sub Form_Load() mypath = "c:\qlluong\QLLuong.mdb" Form_Activate For i = To txthoso(i).Text = "" Next i For i = To cbohoso(i).Text = "" Next i Me.NapNhapHSCB HienData End Sub Private Sub txthoso_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) Select Case Index Case ' ma Can Bo If KeyCode = 13 Then If txthoso(0).Text = "" Then MsgBox "Bạn Phải nhập DL Vao !" txthoso(0).SetFocus Else 73 ĐỀ 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.*** txthoso(0).Text = Chuan(txthoso(0), 3) txthoso(1).SetFocus End If End If Case 'Ho Ten If KeyCode = 13 Then If txthoso(0).Text = "" Then MsgBox "Bạn Phải nhập DL Vao !" txthoso(1).SetFocus Else txthoso(1).Text = Chuan(txthoso(1), 1) txthoso(2).SetFocus End If End If Case 'Ngay sinh If KeyCode = 13 Then If txthoso(2).Text = "" Then MsgBox "B¹n Ph¶i nhËp DL Vao !" txthoso(2).SetFocus Else cbohoso(0).SetFocus End If KiemTraNgay (Trim(txthoso(2).Text)) End If Case ' Que quan If KeyCode = 13 Then If txthoso(3).Text = "" Then MsgBox "Bạn Phải nhập DL Vao !" txthoso(3).SetFocus Else txthoso(3).Text = Chuan(txthoso(3), 1) txthoso(4).SetFocus End If End If Case 'noi O If KeyCode = 13 Then If txthoso(4).Text = "" Then MsgBox "Bạn Phải nhập DL Vao !" txthoso(4).SetFocus Else txthoso(4).Text = Chuan(txthoso(4), 1) cbohoso(2).SetFocus End If 74 ĐỀ 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.*** End If Case If KeyCode = 13 Then If txthoso(5).Text = "" Then MsgBox "Bạn Phải nhập DL Vao !" txthoso(5).SetFocus Else txthoso(0).SetFocus If KiemTraNgayvaoBC(Trim(txthoso(5).Text)) = True Then cmdchucnang_Click (2) cmdchucnang_Click (0) Else Me.txthoso(5).SetFocus End If End If End If End Select End Sub Public Sub HienData() dathoso.DatabaseName = mypath dathoso.RecordSource = "Hosocanbo" End Sub Public Sub NapNhapHSCB() With frmhosocb.cbohoso(0) AddItem "Nam" AddItem "Nữ" End With ' Nạp Dân Tộc Set db = DBEngine.Workspaces(0).OpenDatabase(mypath) MySql = "SELECT DISTINCT [DanToc] FROM HosoCanBo" Set rec = db.OpenRecordset(MySql, dbOpenSnapshot) If rec.RecordCount Then With rec MoveLast MoveFirst Do While Not EOF frmhosocb.cbohoso(1).AddItem (.Fields(0).Value) MoveNext Loop End With End If 75 ĐỀ 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.*** 'Nap Phßng Ban Set db = DBEngine.Workspaces(0).OpenDatabase(mypath) MySql = "SELECT DISTINCT [Phong] FROM HosoCanBo" Set rec = db.OpenRecordset(MySql, dbOpenSnapshot) If rec.RecordCount Then With rec MoveLast MoveFirst Do While Not EOF frmhosocb.cbohoso(2).AddItem (.Fields(0).Value) MoveNext Loop End With End If Set db = DBEngine.Workspaces(0).OpenDatabase(mypath) MySql = "SELECT DISTINCT [ChucVu] FROM HosoCanBo" Set rec = db.OpenRecordset(MySql, dbOpenSnapshot) If rec.RecordCount Then With rec MoveLast MoveFirst Do While Not EOF frmhosocb.cbohoso(3).AddItem (.Fields(0).Value) MoveNext Loop End With End If 'Nap Trinh D« Set db = DBEngine.Workspaces(0).OpenDatabase(mypath) MySql = "SELECT DISTINCT [TrinhDO] FROM HosoCanBo" Set rec = db.OpenRecordset(MySql, dbOpenSnapshot) If rec.RecordCount Then With rec MoveLast MoveFirst Do While Not EOF frmhosocb.cbohoso(4).AddItem (.Fields(0).Value) MoveNext Loop End With End If 'Nap Chuyen Mon 76 ĐỀ 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.*** Set db = DBEngine.Workspaces(0).OpenDatabase(mypath) MySql = "SELECT DISTINCT [ChuyenMon] FROM HosoCanBo" Set rec = db.OpenRecordset(MySql, dbOpenSnapshot) If rec.RecordCount Then With rec MoveLast MoveFirst Do While Not EOF frmhosocb.cbohoso(5).AddItem (.Fields(0).Value) MoveNext Loop End With End If End Sub Sub Nhaplai(dk As Boolean) If dk = True Then txthoso(2).SetFocus Else cbohoso(1).SetFocus End If End Sub Public Function KiemTraNgayvaoBC(dong As String) As Boolean Dim ok Dim i As Integer With frmhosocb If Len(dong) 10 Then MsgBox "Bạn Nhập sai DL ngày tháng råi! H·y NhËp l¹i nh sau: dd/mm/yyyy", vbCritical, "Chó ý" txthoso(5).SetFocus ok = False End If nam1 = Val(Mid(dong, 7, 5)) dong = Format(dong, "dd/mm/yyyy") Ngay = Val(Mid(dong, 1, 2)) Thang = Val(Mid(dong, 4, 2)) Nam = Val(Mid(dong, 7, 4)) Select Case Thang Case 4, 6, 9, 11 If Ngay > 30 And Len(nam1) = Then MsgBox "B¹n nhËp sai ngày, tháng có 30 ngày!", vbCritical, "Chú ý" 77 ĐỀ 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.*** txthoso(5).SetFocus Else If (Thang = 4) Or (Thang = 6) Or (Thang = 9) Or (Thang = 11) And (Len(nam1) = 4) Then txthoso(0).SetFocus ok = False End If End If 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 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 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 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 79 ĐỀ 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.*** 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 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 80 ĐỀ 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.*** 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 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 naøy !" 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ệ !" 81 ĐỀ 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.*** 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 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 vaø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 82 ĐỀ 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.*** 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) 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 83 ĐỀ 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.*** 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 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 " 84 ĐỀ 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.*** 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) 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 " 85 ĐỀ TÀI: QUẢN LÝ CÁN BỘ TIỀN LƯƠNG GVHD: THS NGUYỄN THANH HƯƠNG ... 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... 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... NGHỆ THÔNG TIN.*** CHƯƠNG II PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG Các chức hệ thống: 1.1 >Quản lý hồ sơ : + Cập nhật hồ sơ + Lưu trữ hồ sơ 1.2 >Quản lý lương : + Chấm công cho nhân + Tính lương cho nhân
