Đang tải... (xem toàn văn)
Luận văn : Hệ Thống Chấm Công Sử Dụng Công Nghệ Thẻ sử dụng ngôn ngữ lập trình Visual Basic 6..0
Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp MỤC LỤC LỜI CẢM ƠN LỜI NÓI ĐẦU CHƯƠNG I: KHẢO SÁT HỆ THỐNG CHẤM CÔNG HIỆN TẠI 1.1 - Khảo sát hệ thống - Cơ cấu tổ chức công ty 1.1.2 - Mô tả cách chấm công 1.1.1 1.1.2.1 - Cách thức chấm công 1.1.2.2 - Cách thức tổng hợp báo cáo muộn sớm 1.1.2.3 - Cách thức tổng hợp báo cáo làm thêm 1.1.2.4 - Cách thức tổng hợp báo cáo chấm công 1.1.3 - Những hạn chế hệ thống chấm công 1.2 - Yêu cầu đặt hệ thống 10 1.3 - Đề xuất hệ thống chấm công tự động 11 - Giới thiệu công nghệ cần sử dụng 11 1.3.1 1.3.1.1 - Thẻ từ .11 1.3.1.2 1.3.2 - Đầu đọc thẻ 11 Phần mềm chấm công 12 CHƯƠNG – PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG CHẤM CÔNG 14 2.1 – Mục tiêu đạt hệ thống 14 2.2 - Các chức hệ thống 14 2.2.1– Biểu đồ phân cấp chức 15 2.2.2- Biểu đồ luồng liệu mức khung cảnh: 16 2.2.3- Biểu đồ luồng liệu mức đỉnh: 17 2.2.4- Biểu đồ luồng liệu mức đỉnh: 18 2.2.4.1 - Biểu đồ phân rã chức quản lý nhân sự: 18 2.2.4.2 - Biểu đồ phân rã chức Chấm công: 19 2.2.4.3 - Biểu đồ phân rã chức Quản lý lương: 20 Phí Xuân Nam –CNTT K7B Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp 2.3 – Mơ hình thực thể liên kết 2.3.1 – Các bảng thực thể 21 21 2.3.1.1 – Bảng hồ sơ: 21 2.3.1.2 - Bảng Phòng Ban: 21 2.3.1.3 - Bảng chức vụ: 22 2.3.1.4 - Bảng vào ra: 22 2.3.1.5 - Bảng lý nghỉ: 22 2.3.1.6 - Bảng Đăng Ký Nghỉ: 22 2.3.1.7 - Bảng Đăng Ký Làm Thêm: 23 2.3.1.8 - Bảng Người Dùng: 23 2.3.1.9 - Bảng Chức Năng: 23 2.3.1.10 - Bảng Quyền Người Dùng: 23 2.3.1.11 - Bảng Thiết Lập Cổng: 24 2.3.1.12 - Bảng Tạm Ứng: 24 2.3.1.13 - Bảng Báo Cáo Chi Tiết: 24 2.3.1.14 - Bảng Báo Cáo Giờ Vào Ra: 24 2.3.1.15 - Bảng Báo Cáo Luơng Tháng Chi Tiết: 25 2.3.1.16 - Bảng Báo Cáo Nhân Viên Vắng Mặt: 25 2.3.1.17 -Bảng Báo Cáo Số Lượng Nhân Viên Đi Làm 26 – Sơ đồ mơ hình liệu quan hệ 26 CHƯƠNG – CƠ SỞ LÝ THUYẾT VÀ CÔNG CỤ PHÁT TRIỂN 27 3.1 – Cơ sở lý thuyết 27 3.1.1– Các khái niệm 27 3.1.2- Khái niệm phụ thuộc liệu dạng chuẩn 27 3.1.3– Khái niệm dẫn khoá dẫn 28 3.1.4– Mục tiêu tính ưu việt mơ hình quan hệ 28 3.2 – Công cụ phát triển môi trường làm việc 29 2.3.2 3.2.1 – Lựa chọn công cụ phát triển môi trường làm việc 29 3.2.2 – Tổng quan hệ quản trị sở liệu MS ACCESS 30 Phí Xuân Nam –CNTT K7B Trường Đại Học Kinh Tế Quốc Dân Hà Nội 3.2.3 Đồ án thực tập tốt nghiệp – Giới thiệu tổng qt ngơn ngữ lập trình VISUAl BASIC 31 CHƯƠNG – THIẾT KẾ VÀ CÀI ĐẶT CHƯƠNG TRÌNH 37 4.1 – Danh sách Form thiết kế chương trình 37 4.2 – Mô tả giao diện chức chương trình 41 4.2.1 – Giao diện Đăng Nhập chương trình 41 4.2.2 – Giao diện Chính chương trình 42 4.2.3 –Thiết lập cổng đọc 43 4.2.4 – Sao lưu liệu 44 4.2.5 – Quản lý nhân 45 4.2.6 – Thêm Mới Hồ Sơ Nhân Viên 46 4.2.7 – Sửa Hồ Sơ Nhân Viên 46 4.2.8 – Tìm Kiếm Hồ Sơ Nhân Viên 47 4.2.9 – Quản Lý Phòng Ban 48 4.2.10 – Cập nhật vào thủ công 49 4.2.11 – Xoá vào 49 4.2.12 – Đăng kí làm thêm 50 4.2.13 – Đăng kí nghỉ 50 4.2.14 – Thay đổi tệp sở liệu 51 4.2.15 – Thông tin chương trình 51 4.2.16 – Quản lý tài khoản người dùng 52 4.2.17 – Báo cáo số lượng nhân viên làm ngày 53 4.2.18 – Báo cáo Nhân Viên Vắng Mặt 54 4.2.19 – Báo cáo Giờ Vào Ra 55 4.2.20 – Báo cáo Chấm Công Chi Tiết 56 4.2.21 – Báo cáo Lương Tháng 57 KẾT LUẬN 58 PHỤ LỤC 59 Phí Xuân Nam –CNTT K7B Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp TÀI LIỆU THAM KHẢO 59 ĐOẠN CODE CHƯƠNG TRÌNH: 60 LỜI CẢM ƠN Trong suốt trình học tập trường thời gian thực tập công ty cổ phần thương mại AZLAZ, em Thầy cô giáo anh chị công ty cung cấp truyền đạt nhiều kiến thức chuyên môn cần thiết q giá Ngồi em cịn rèn luyện tinh thần học tập làm việc độc lập sáng tạo Đây tính cách cần thiết để thành cơng bắt tay vào nghề nghiệp tương lai Đồ án thực tập hội để em áp dụng, tổng kết lại kiến thức mà học nhà trường Đồng thời rút kinh nghiệm thực tế quý giá suốt trình thực đề tài Sau thời gian thực tập, thiết kế cài đặt chương trình, em hồn thành đề tài đạt số kết định Đặc biệt nhờ hướng dẫn tận tình cô Nguyễn Thanh Hương, Thầy cô giáo khác khoa Công Nghệ Thông Tin tập thể nhân viên công ty cổ phần thương mại AZLAZ giúp đỡ em hoàn thành đề tài cách thuận lợi đạt kết khả quan Bên cạnh kết khiêm tốn mà em đạt được, chắn khơng tránh khỏi thiếu sót thực đồ án Em mong giúp đỡ thầy giáo bạn để em hồn thành tốt cơng việc thực tế sau Em xin chân thành cảm ơn! Phí Xuân Nam Phí Xuân Nam –CNTT K7B Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp LỜI NĨI ĐẦU Hiện giới nói chung nước ta nói riêng diễn trình tin học hố tồn diện lĩnh vực hoạt động kinh tế xã hội, loài người chuyển sang kỷ ngun cơng nghệ thơng tin Máy tính cơng cụ trở thành nhu cầu thiếu ngành khoa học kỹ thuật, lĩnh vực quản lý, kế tốn giảng dạy, ngành cơng nghệ chế đồ hoạ Nhờ ứng dụng công nghệ thông tin làm giảm quản lý đầy khó khăn, phức tạp giấy tờ công tác quản lý Nó có yếu tố quan trọng, định khơng nhỏ đến thành công ngành nghề, xí nghiệp, quốc gia ngày Xuất phát từ thực tiễn đó, vốn kiến thức học nhà trường nhu cầu nóng bỏng xã hội Với giúp đỡ cô giáo Nguyễn Thanh Hương thời gian thực tập cộng thêm ham mê muốn làm chương trình ứng dụng thực tiễn Em chọn đề tài: Hệ Thống Chấm Công Sử Dụng Công Nghệ Thẻ sử dụng ngôn ngữ lập trình Visual Basic 6.0 Cho dù cố gắng thời gian kinh nghiệm có hạn chương trình chắn cịn nhiều khiếm khuyết Rất mong góp ý Thầy giáo bạn để chương trình tốt Em xin chân thành cảm ơn cô giáo Nguyễn Thanh Hương Thầy cô giáo khác khoa Công Nghệ Thông Tin giúp đỡ em suốt trình thực tập để chương trình em đạt kết tốt giúp em có kiến thức vững vàng sống Hà Nội, Ngày 19 tháng 05 năm 2008 Sinh viên thực Phí Xuân Nam Phí Xuân Nam –CNTT K7B Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp CHƯƠNG I: KHẢO SÁT HỆ THỐNG CHẤM CÔNG HIỆN TẠI 1.1- Khảo sát hệ thống 1.1.1 Cơ cấu tổ chức công ty Công ty cổ phần thương mại AZLAZ công ty chuyên sản xuất, gia công phần mềm, thiết kế Web, Thương mại điện tử Số lượng cán bộ, nhân viên cơng ty 50 người chia làm phịng ban sau: GIÁM ĐỐC PHĨ GIÁM ĐỐC PHĨ GIÁM ĐỐC Phịng Nhân Sự Điều hành dự án Phịng tài Phân tích hệ thống Phịng kế tốn Phịng kinh doanh Chăm sóc khách hàng Phịng lập trình Phịng kiểm thử Phịng kỹ thuật Nhân viên làm theo hành chính, 8giờ/1ngày, tuần làm việc ngày từ thứ Hai đến thứ Bảy, năm nghỉ ngày (Ngày 30/4, 1/5, 2/9, Tết dương lịch, Tết âm lịch ) theo quy định cơng ty Phí Xuân Nam –CNTT K7B Trường Đại Học Kinh Tế Quốc Dân Hà Nội 1.1.2 Đồ án thực tập tốt nghiệp - Mô tả cách chấm công 1.1.2.1- Cách thức chấm công Hiện công tác quản lý chấm công công ty cổ phần thương mại AZLAZ thực sau: Việc chấm công nhân viên chấm công thực giấy tờ, sau kỳ chấm công, nhân viên gửi số liệu chấm công lên phận chấm công làm lương phịng Kế tốn Bộ phận chấm cơng làm lương tổng hợp lại số liệu nhận đưa bảng chấm công tháng Nhân viên chấm công làm nhiệm vụ chấm công cho nhân viên nhân viên đến làm việc (nhân viên chấm công ghi đến ngày làm nhân viên) Hiện công ty quy định nhân viên phải báo cáo tối đa lần, tối thiểu lần ngày đến nhân viên nghỉ trưa Đối với nhân viên trưa lại cơng ty cần báo cáo lần ngày Tổng số thời gian làm việc ngày 8h00 phút chưa bao gồm thời gian nghỉ trưa 1giờ 30 phút thời gian làm thêm Khi nhân viên có nhu cầu làm thêm nhân viên phải đăng ký làm thêm Thời gian làm việc nhân viên công ty: Từ thứ đến thứ 7: + Sáng: từ 7h30 đến 11h30 + Chiều: từ 13h đến 17h Nhân viên phải đăng ký làm thêm: Thời gian làm thêm ngày chủ nhật, ngày lễ, tết, Ngày thường từ thứ đến thứ thời gian làm thêm từ 17h đến tối đa 22h 1.1.2.2- Cách thức tổng hợp báo cáo muộn sớm Cuối tháng nhân viên chấm công tổng hợp nên bảng chấm công tháng Căn thời gian thực tế nhân viên làm để tổng hợp nên báo cáo muộn sớm nhân viên Việc muộn sớm thực chất phản ánh vi phạm kỷ luật người lao động làm không đủ thời gian quy định Đi muộn sớm Phí Xuân Nam –CNTT K7B Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp tính độc lập khơng có bù trừ thời gian với làm thêm, có nghĩa làm thêm tính làm thêm muộn sớm bị phạt 1.1.2.3- Cách thức tổng hợp báo cáo làm thêm Việc làm thêm nhân viên tính tốn sau: Nhân viên tính làm thêm nhân viên có đăng ký làm thêm (đăng ký thời gian cụ thể) Từ thời gian làm thêm nhân viên chấp nhận Ngược lại nhân viên không đăng ký làm thêm mà nhân viên lớn kết thúc làm việc công ty quy định nhân viên khơng tính làm thêm Làm thêm vào khoảng thời gian làm việc múi mà nhân viên đăng ký Làm thêm cộng dồn ngày vào cuối tháng quy để trả lương cho nhân viên Có dạng làm thêm là: Làm thêm ngày thường, làm thêm ngày nghỉ, làm thêm ngày Lễ Mỗi dạng tách riêng tháng để tính tốn với hệ số khác 1.1.2.4- Cách thức tổng hợp báo cáo chấm công Đối với việc tính tốn thời gian làm việc nhân viên vào thời gian có mặt nhân viên, muộn sớm mà khơng có giấy xin phép nghỉ phịng nhân đồng ý bị tính muộn sớm Thời gian làm thêm nhân viên tính 1.5 lần ngày thường, Thời gian làm thêm ngày lễ tết tính gấp 2.5 – ngày thường Chế độ nghỉ nhân viên theo quy định công ty định nghĩa thành dạng nghỉ là: Nghỉ có trả lương Nghỉ khơng trả lương Phí Xuân Nam –CNTT K7B Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp Ta có bảng sau: Các dạng nghỉ Nghỉ ốm Nghỉ thai sản Nghỉ việc riêng Nghỉ không lý Nghỉ ngày lễ Nghỉ phép Nghỉ công tác Nghỉ học … Nghỉ có trả lương khơng trả lương Có Có Khơng Khơng Có Có Có Có Dựa vào tiêu chuẩn người phụ trách việc chấm công phải tổng hợp lên bảng chấm công đầy đủ 1.1.3 - Những hạn chế hệ thống chấm công Do công tác chấm công cơng ty theo kiểu thủ cơng nên bộc lộ số hạn chế sau: − Tất thao tác chấm công cho nhân viên chủ yếu cộng trừ cách nhập toàn số đăng ký nhân viên vào bảng Excel, sau cộng trừ thời gian muộn sớm, làm thêm, thời gian thực tế làm việc tháng Như thời gian, thông thường việc chấm công cho 100 nhân viên chiếm 2.5 ngày nhân viên phòng kế toán phải tổng hợp nhiều yếu tố sau tổng hợp nên báo cáo − Do phải nhập lượng liệu lớn nên sai sót thường xuyên xảy ra, ảnh hưởng đến ngày công nhân viên − Đối với phận Kế tốn, cơng đoạn tính tiền lương, thưởng, phạt, phụ cấp, tạm ứng, làm thêm…cho tất nhân viên cơng ty, điều khơng thể tránh khỏi nhầm lẫn thời gian Phí Xuân Nam –CNTT K7B Trường Đại Học Kinh Tế Quốc Dân Hà Nội − Đồ án thực tập tốt nghiệp Khi cần báo cáo với người quản lý tình trạng làm nhân viên nhiều thời gian để tổng hợp, ảnh hưởng đến việc đề định quản lý − Khi tra cứu thời gian làm việc nhân viên thời điểm năm thời gian toàn liệu để giấy tờ − Khi số lượng nhân viên tăng thêm nhiều việc chấm cơng tiêu tốn nhiều thời gian, tính xác giảm xuống − Khơng kiểm sốt chi tiết, xác phút mà nhân viên muộn sớm Tất hạn chế làm tăng chi phí sản xuất ảnh hưởng không nhỏ đến lợi nhuận công ty 1.2- Yêu cầu đặt hệ thống − Hệ thống phải đáp ứng việc làm giảm tối đa thời gian chấm công cho nhân viên chấm công − Bất kỳ thời điểm người quản lý biết tình trạng làm của nhân viên cơng ty, kịp thời có biện pháp nhắc nhở nhân viên tích cực làm việc − Đảm bảo tính xác tổng hợp ngày cơng, số làm thêm, số phút muộn sớm tháng nhân viên − Bổ sung nhiều thông tin phục vụ cho công tác quản lý tra cứu số liệu chấm công nhân viên − Đảm bảo tính bảo mật cho chức năng, cấp quyền truy nhập cho đối tượng có chức cụ thể Phí Xuân Nam –CNTT K7B 10 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp 4.2.14 – Thay đổi tệp sở liệu Thay đổi tệp sở liệu sang thư mục Chương trình sử dụng lại tệp sở liệu lần chạy sau 4.2.15 – Thơng tin chương trình Phí Xn Nam –CNTT K7B 51 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp 4.2.16 – Quản lý tài khoản người dùng Cho phép danh sách tài khoản người dùng quyền tài khoản đó, ngồi cịn có chức thêm người dùng, gán quyền cho người dùng, sửa mật khẩu, gán quyền cho người dùng, xóa hồn tồn người dùng Phí Xn Nam –CNTT K7B 52 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp 4.2.17 – Báo cáo số lượng nhân viên làm ngày Phí Xuân Nam –CNTT K7B 53 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp 4.2.18 – Báo cáo Nhân Viên Vắng Mặt Phí Xuân Nam –CNTT K7B 54 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp 4.2.19 – Báo cáo Giờ Vào Ra Phí Xuân Nam –CNTT K7B 55 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp 4.2.20 – Báo cáo Chấm Công Chi Tiết Phí Xuân Nam –CNTT K7B 56 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp 4.2.21 – Báo cáo Lương Tháng Phí Xuân Nam –CNTT K7B 57 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp KẾT LUẬN Mặc dù việc ứng dụng tin học quản lý nước ta mẻ, công tác quản lý chấm công với hỗ trợ thiết bị thông minh phần mềm mẻ Với việc tin học hố cơng tác quản lý nhân ngày ứng dụng nhiều, việc cần thiết phải tự động hố chấm cơng điều tất yếu Với đề tài em xây dựng phạm vi hẹp hệ thống chấm cơng cho cơng ty cổ phần thương mại AZLAZ, phần đáp ứng công tác quản lý chấm công cho công ty Các cơng việc hệ thống trình bày tương đối cụ thể, từ khâu khảo sát nghiệp vụ phân tích hệ thống đến thiết kế hệ thống đảm bảo yêu cầu phân tích hệ thống Trước phân tích hệ thống hệ thống tách nhỏ dễ hiểu, để làm từ phần nhỏ lại tổng hợp thành phần lớn tất tạo thành hệ thống tương đối hoàn chỉnh Mặc dù em cố gắng để hoàn thiện đề tài xong thời gian có hạn trình độ hiểu biết thực tế chưa sâu vốn kinh nghiệm cịn nên chương trình cịn số bất cập cần bổ sung góp ý Rất mong tồn thể Thầy giáo bạn lớp bổ sung góp ý để chương trình em ngày hồn thiện Em xin chân thành cảm ơn cô giáo Nguyễn Thanh Hương tồn thể Thầy giáo khoa cơng nghệ thông tin trường ĐH Kinh tế quôc dân tập thể nhân viên công ty cổ phần thương mại AZLAZ nhiệt tình giúp đỡ em thời gian thực tập vừa qua Hà Nội, Ngày 19 tháng 05 năm 2008 Sinh viên thực Phí Xuân Nam Phí Xuân Nam –CNTT K7B 58 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp HƯỚNG PHÁT TRIỂN TRONG TƯƠNG LAI Hiện tại, hệ thống quản lý thời gian thẻ từ phần đáp ứng công tác quản lý chấm công cho công ty cổ phần thương mại AZLAZ Đề tài dừng lại phần nhỏ tồn dự án tin học hố văn phịng cơng ty Trong tương lai thị trường điện tử phát triển mạnh, việc thay đầu đọc thẻ từ chủng loại đầu đọc thông minh điều tất yếu Nhất thị trường thẻ ATM, thẻ Chíp, thẻ Thơng minh phát triển, việc tích hợp loại thẻ đại chắn nâng cao nhiều độ xác quy mô nhân công ty Phần mềm dừng lại việc ứng dụng sở liệu Access, chắn thời gian tới sở liệu chuyển sang sở liệu lớn sở liệu SQL Server Cơ sở liệu cho phép quản lý quy mô nhân lớn hơn, giúp cho việc tăng tốc độ tìm kiếm thơng tin nhân tốt PHỤ LỤC TÀI LIỆU THAM KHẢO (1) PGS-TS Đặng Minh Ất chủ biên (2007), ‘Bài giảng mơn Phân tích, thiết kế cài đặt HTTT’, Đại học kinh tế quốc dân (2) Nguyễn Thị Ngọc Mai (2000), ‘Lập Trình Cơ Sở Dữ Liệu Với Visual Basic 6.0’, Nhà xuất giáo dục (3) GS-TS Bạch Hưng Khang (1991), ’Phân tích thiết kế cài đặt hệ thống quản lý’, Viện tin học (4) By Neil FitzGerald, Ryan Marples, Naisan Geula, Bob Coates, James Edkins, Michael Voloshko, Joe Estes, Kathryn Hunt, Steve Lucas, Roger Sanborn (2004), ‘SPECIAL EDITION USING Crystal Reports® 8’, Publisher: Que (5) Julia Case Bradley Mt.San Antonio College And Irwin McGraw – Hill, ‘Avanced Programming Using Visual Basic Version 6.0’ Phí Xuân Nam –CNTT K7B 59 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp ĐOẠN CODE CHƯƠNG TRÌNH: Sử Lý Giờ Vào Ra Khi Nhân Viên Quẹt Thẻ Option Explicit Option Compare Text Dim strMaNV As String Dim strTieuDe As String Dim intSoLan As Integer Dim intTime As Integer Public intKT As Byte Dim intYN As Byte Dim NhapNhay As Boolean Dim rstSoLan As New ADODB.Recordset Dim rstGioVaoRa As New ADODB.Recordset Dim rstHienThi As New ADODB.Recordset Dim rstThietlapDauDoc As New ADODB.Recordset Private Sub NhapGioVaoRa() KetNoi RS.Open "Select MaNV from HOSO", DB, 3, RS.Find "MaNV='" & strMaNV & "'", 0, adSearchForward, If Not RS.EOF Then rstGioVaoRa.Open "Select * from GIOVAORA where Manv='" & strMaNV & "' And NgayLam=#" & Format(Date, "mm/dd/yyyy") & "#", DB, 3, If (rstGioVaoRa.EOF) Then intKT = rstSoLan.Open "select Count(MaNV) as SL from giovaora where Manv='" & strMaNV & "' And NgayLam=#" & Format(Date, "mm/dd/yyyy") & "#", DB, 3, intSoLan = If (Not rstSoLan.EOF) Then If (rstSoLan!SL = 1) Then intSoLan = If (rstSoLan!SL = 2) Then intSoLan = If (rstSoLan!SL = 3) Then intSoLan = If (rstSoLan!SL = 4) Then intSoLan = End If rstSoLan.Close 'Kiem tra xem co cong khong intYN = Phí Xuân Nam –CNTT K7B 60 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp rstHienThi.Open "Select hs.Manv,Hoten,TenPB From Hoso HS,PhongBan PB Where hs.Mapb=PB.Mapb And HS.MaNV='" & strMaNV & "'", DB, 3, If (intSoLan = 0) Then SQL = "INSERT INTO GIOVAORA(Manv,NgayLam,TGVao) VALUES('" & strMaNV & "',#" & Format(Date, "dd/mm/yyyy") & "#,#" & Format(Time(), "hh:nn") & "#)" DB.Execute SQL lblGioVaoRa.Caption = "Giờ Vào Lần 1: " & Format(Time(), "Hh:nn") & "" Else If (Not rstGioVaoRa.EOF) Then rstGioVaoRa.MoveLast If (rstGioVaoRa.Fields("TGRa") = False) Then intKT = Else intKT = End If End If If (intSoLan = 1) Then If (intKT = 1) Then If (DateDiff("s", Format(rstGioVaoRa!TGVao, "hh:nn"), Format(Time(), "Hh:Nn")) > 10) Then SQL = "UPDATE GIOVAORA set TGRa=#" & Format(Time(), "hh:nn") & "# where Manv='" & strMaNV & "' And NgayLam=#" & Format(Date, "mm/dd/yyyy") & "#" DB.Execute SQL lblGioVaoRa.Caption = "Giê Ra LÇn 1: " & Format(Time(), "Hh:nn") & "" Else FrmThongBao.lbThongBao = "Bạn quẹt thẻ" intYN = End If Else SQL = "INSERT INTO GIOVAORA(MaNV,NgayLam,TGVao) VALUES('" & strMaNV & "',#" & Format(Date, "dd/mm/yyyy") & "#,#" & Format(Time(), "hh:nn") & "#)" DB.Execute SQL lblGioVaoRa.Caption = "Giê Vào Lần 2: " & Format(Time(), "Hh:nn") & "" Phớ Xuân Nam –CNTT K7B 61 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp End If End If If (intSoLan = 2) Then If (intKT = 1) Then If (DateDiff("s", Format(rstGioVaoRa!TGVao, "hh:nn"), Format(Time(), "Hh:Nn")) > 10) Then SQL = "UPDATE GIOVAORA set TGRa=#" & Format(Time(), "hh:nn") & "# where Manv='" & strMaNV & "' And NgayLam=#" & Format(Date, "mm/dd/yyyy") & "#" DB.Execute SQL lblGioVaoRa.Caption = "Giê Ra LÇn 2: " & Format(Time(), "Hh:nn") & "" Else FrmThongBao.lbThongBao = "Bạn quẹt thẻ" intYN = End If Else SQL = "INSERT INTO GIOVAORA(MaNV,NgayLam,TGVao) VALUES('" & strMaNV & "',#" & Format(Date, "dd/mm/yyyy") & "#,#" & Format(Time(), "hh:nn") & "#)" DB.Execute SQL lblGioVaoRa.Caption = "Giê Vµo LÇn 3: " & Format(Time(), "Hh:nn") & "" End If End If If (intSoLan = 3) Then If (intKT = 1) Then If (DateDiff("s", Format(rstGioVaoRa!TGVao, "hh:nn"), Format(Time(), "Hh:Nn")) > 10) Then SQL = "UPDATE GIOVAORA set TGRa=#" & Format(Time(), "hh:nn") & "# where Manv='" & strMaNV & "' And NgayLam=#" & Format(Date, "mm/dd/yyyy") & "#" DB.Execute SQL lblGioVaoRa.Caption = "Giê Ra LÇn 3: " & Format(Time(), "Hh:nn") & "" Else FrmThongBao.lbThongBao = "Bạn quẹt thẻ" intYN = End If Else Phí Xuân Nam –CNTT K7B 62 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp SQL = "INSERT INTO GIOVAORA(MaNV,NgayLam,TGVao) VALUES('" & strMaNV & "',#" & Format(Date, "dd/mm/yyyy") & "#,#" & Format(Time(), "hh:nn") & "#)" DB.Execute SQL lblGioVaoRa.Caption = "Giờ Vào Lần 4: " & Format(Time(), "Hh:nn") & "" End If End If If (intSoLan = 4) Then If (intKT = 1) Then SQL = "UPDATE GIOVAORA set TGRa=#" & Format(Time(), "hh:nn") & "# where Manv='" & strMaNV & "' And NgayLam=#" & Format(Date, "mm/dd/yyyy") & "#" DB.Execute SQL lblGioVaoRa.Caption = "Giê Ra LÇn 4:" & Format(Time(), "Hh:nn") & "" Else FrmThongBao.lbThongBao = "Không Thành Công" intYN = End If End If End If If (intYN = 1) Then LoadAnh frmGioVaoRa txtHoTen.Text = rstHienThi!Hoten txtPhongBan.Text = rstHienThi!TenPB FrmThongBao.lbThongBao.Caption = "ThỴ " & strMaNV & " Thành Công" Else frmGioVaoRa.imgPhoto.Picture = LoadPicture() lblGioVaoRa.Caption = "" txtMaNV = "" txtHoTen = "" txtPhongBan = "" End If rstGioVaoRa.Close rstHienThi.Close Else FrmThongBao.lbThongBao = "Kh«ng có nhân viên này" frmGioVaoRa.imgPhoto.Picture = LoadPicture() Phớ Xuõn Nam –CNTT K7B 63 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp frmGioVaoRa.txtMaNV.Text = "" frmGioVaoRa.txtHoTen.Text = "" frmGioVaoRa.txtPhongBan.Text = "" frmGioVaoRa.txtMaNV.SetFocus End If 'Dat form thong bao dung vi tri FrmThongBao.Move Screen.Width / - 4300, 140, 8600, 1100 FrmThongBao.Show vbModal RS.Close DongKetNoi End Sub Private Sub Form_Load() intTime = 'Gan duong dan da thay doi DuongDan = CStr(clsReg.QueryValue(clsReg.HKEY_LOCAL_MACHINE, "Software\Xuan_Nam\Database", "Path")) ' Neu dung dan chua dang ky thi gan duong dan mac dinh If DuongDan = "" Then DuongDan = App.Path & "\Database\AZLAZ.MDB" KetNoi rstThietlapDauDoc.Open "Select * From ThietLapCong", DB, 3, On Error GoTo Port_Err With rstThietlapDauDoc If Not nlReader.PortOpen Then nlReader.PortOpen = True MoveLast If Fields("ComPort").Value = "" Then nlReader.CommPort = Fields("ComPort").Value nlReader.Track = Fields("Track").Value End If End With DongKetNoi Exit Sub Port_Err: MsgBox "Cong Com Da Su Dung Roi ", vbCritical, "Thong Bao" DongKetNoi End Sub Phí Xuân Nam –CNTT K7B 64 Trường Đại Học Kinh Tế Quốc Dân Hà Nội Đồ án thực tập tốt nghiệp Private Sub Form_Unload(Cancel As Integer) Unload Me End Sub Private Sub nlReader_OnComm() strMaNV = nlReader.Text NhapGioVaoRa strMaNV = "" End Sub Private Sub tmrChay_Timer() Dim i As Integer Dim j As Integer j=0 intTime = intTime + If (intTime
