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

  1. MỤC LỤC
    LỜI MỞ ĐẦU……………………………………………………………………… … three CHƯƠNG one : GIỚI THIỆU VÀ KHẢO SÁT HỆ THỐNG ……… ………………………. five I.Giới thiệu về công ty……………………………………………………………… .. five one. Quá trình hình thành và phát triển…………………………… ………………………….. five two. Chức năng, nhiệm vụ của các phòng ban………………………………………….6 two. Khảo sát hệ thống ……………………………………………………………… .. fourteen 1.Tổng quan về hệ thống quản lý ………………………………………………… … fourteen 2.Chức năng và nhiệm vụ của hệ thống quản lý nhân sự ………………………… … fourteen 3.Yêu cầu của hệ thống và những khó khăn……………………………………… … fifteen 4.Những yêu cầu đặt radium đối với hệ thống mới……………………………………….15 CHƯƠNG two : PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG. ……………………… .. sixteen one. Các chức năng cơ bản của hệ thống : …………………………………………… .. sixteen 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ê …………………………………………………………… .. sixteen two. Biểu đồ phân cấp chức năng của hệ thống quản lý nhân sự/ lương : …………… … seventeen 2.1 Biểu đồ phân cấp chức năng…………………………………………………….17 2.2 Biểu đồ luồng dữ liệu mức khung cảnh…………………………………………17 2.3 Biểu đồ luồng dữ liệu mức đỉnh…………………………………………………18 2.3.1 Chức năng quản lý hồ sơ………………………………………………………19 2.3.2 Chức năng quản lý lương : …………………………………………………… .. nineteen 2.3.3 Chức năng tra cứu tìm kiếm : ………………………………………………… .. nineteen 2.3.4 Chức năng báo cáo, thống kê : …………………………………………………20 2.4 Biểu đồ luồng dữ liệu mức dưới đỉnh tổng hợp…………………………………21 CHƯƠNG three : XÂY DỰNG CƠ SỞ DỮ LIỆU CỦA CHƯƠNG TRÌNH…………22 1.Cơ sở dữ liệu………………………………………………………………………22 two. Sử dụng Microsoft access để tạo cơ sở dữ liệu cho chương trình……………….23 2.1 Lược đồ cấu trúc dữ liệu ( liquid crystal display ) : ……………………………………………….24
  2. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. two 2.2 Thiết kế các charge dữ liệu…………………………………………………………25 2.2.1 Bảng HoSoCanBo lưu trữ thông tin về nhân sự trong một cơ quan………… .. twenty-five 2.2.2 Bảng lương lưu trữ thông canister về quá trình lao động của nhân sự…………….26 2.2.3 Bảng HesoLuong lưu trữ thông tin về hệ số lương của công ty………………27 2.2.4 Bảng Thưởng lưu trữ thông tin về hệ số lương của công ty………………… .. twenty-seven 2.2.5 Bảng HesoLuong lưu trữ thông can về hệ số lương của công ty………………27 three. Dùng Microsoft access để tạo bộ cơ sở dữ liệu………………………………….28 3.1 Mối quan hệ cho các bảng dữ liệu trong chương trình………………………….28 3.2 relationship phân hệ Quản lý nhân sụ-tiền lương…………………………… .. twenty-eight 4.Thiết kễ module : ………………………………………………………………… .. twenty-nine 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 : ……………………………………………………………………… .. thirty 4.1.5 Thống kê báo cáo : …………………………………………………………… .. thirty-one 4.2 Đặc tả module : …………………………………………………………………31 4.2.1 Cập nhật hồ sơ : ……………………………………………………………… .. thirty-one 4.2.2 Tra cứu, Tìm kiếm : …………………………………………………………….32 CHƯƠNG four : SỬ DỤNG NGÔN NGỮ LẬP TRÌNH ocular basic ĐỂ THIẾT KẾ CHƯƠNG TRÌNH. ……………………………………………… … thirty-three 1.Ngôn ngữ lập trình ocular Basic………………………………………………… .. thirty-three 2.Các đối tượng truy cập dữ liệu…………………………………………………….34 three. Sử dụng các đối tượng truy cập dữ liệu trong chương trình…………………… … thirty-five four. Các điều khiển giao diện người sử dụng………………………………………….39 five. Sử dụng các câu truy vấn ( SQL ) ……………………………………………………….40 six. Cài đặt và chạy chương trình…………………………………………………… .. forty-four 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……………………………………… .. fifty-six TÀI LIỆU THAM KHẢO………………………………………………………… .. fifty-seven PHỤ LỤC……………………………………………………………………………58
  3. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. three code CỦA CHƯƠNG TRÌNH………………… .. ………………………… ……….. fifty-eight LỜI MỞ ĐẦU. Ngày nay sung song với quá trình phát triển công nghệ khoa học và kỹ thuật thì nghành khoa học tính toán đã đóng vai trò quan trọng, nó đã đạt được những thành tựu khoa học kỹ thuật rực rỡ với những bước tiến nhảy vọt.Việc áp dụng các công nghệ khoa học kỹ thuật vào lĩnh vực đời sống của con người ngày càng tăng và không ngừng can thiệp vào hầu hết các công việc trong đời sống. Công nghệ thông tin là một trong những ngành khoa học đó. Đi đôi với sự phát triển của công nghệ chế tạo các thiết bị máy tính thì việc các sản phẩm phần mềm ứng dụng radium đời có tính chất quyết định đối với việc áp dụng ngành khoa học này. Trên thế giới cũng như ở Việt Nam, công nghệ thông tin đã trở thành một ngành công nghiệp mũi nhọn, nó là một ngành khoa học kỹ thuật không thể thiếu trong việc áp dụng vào các hoạt động xã hội như : Quản lý, kinh tế, thông tin … Ở nước tantalum hiện nay, việc áp dụng united states virgin islands tính hoá trong việc quản lý tại các cơ quan, xí nghiệp đang rất phổ biến và trở nên cấp thiết. Nhưng một vấn đề đặt right ascension trong việc quản lý là làm thế nào để chuẩn hoá cách xử lý dữ liệu ở các cơ quan, xí nghiệp, bởi trăm xí nghiệp, trăm cơ quan là trăm cách xử lý khác nhau, ở đây chúng tôi muốn đề cập tới tầm quan trọng của việc phân tích vấn đề trong quản lý ứng dụng vào six tính. Đó cũng là một vấn đề còn nhiều hạn chế của đội ngũ nhân viên trong việc quản lý tại các cơ quan, xí nghiệp của tantalum. Một thực trạng dang diễn ra là các công ty thường mời các chuyên viên phần mềm six tính về viết chương trình, nhưng họ không hiểu chương trình được viết như thế nào, hoặc ứng dụng được phân tích ra sao. Họ không biết làm gì ngoài việc ấn nút theo sự hướng dẫn của công ty phần mềm chi sử dụng chương trình họ viết. chi muốn thay đổi nho nhỏ trong chương trình lại phải mời chuyên viên, vì người điều hành chỉ biết ấn nút mà thôi, mà những thay
  4. ***TRƯỜNG ĐẠI HỌC

    KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. four đổi này có thể chi phân tích vấn đề không artificial insemination để ý hoặc khách hàng quên khuấy không yêu cầu chuyên viên khắc phục trong chương trình. Sự hạn chế trong việc phân tích vấn đề, quản lý đã không phát huy hết tác dụng của máy tính. Với mong muốn giúp các bạn hiểu được tầm quan trọng của việc phân tích thiết kế một hệ thống thông tin tự động hoá trong lĩnh vực quản lý. em đã cố gắng và mạnh dạn đưa radium một phương pháp phân tích thiết kế hệ thống trong bài toán quản lý nhân sự-lương trên hệ quản trị cơ sở dữ liệu MICROSOFT access, đây cũng chỉ là một phương pháp trong nhiều phương pháp, nó có thể chưa được hoàn thiện nhưng cũng phần nào đấy giúp các bạn hiểu được vai trò của việc phân tích thiết kế trong bài toán quản lý nói chung. Mặc dù rất cố gắng để hoàn thành công việc, xong thời gian có hạn và 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 được bổ xung. Vì vậy, vitamin e mong nhận được ý kiến đóng góp của thầy cô và bạn bè để đề tài ngày càng hoàn thiện hơn. Cuối cùng, em xin chân thành cảm ơn thursday. Nguyễn Thanh Hương giảng viên bộ môn công nghệ thông tin Trường Đại Học Kinh Tế Quốc Dân đã tận tình chỉ bảo hướng dẫn em hoàn thành đề tài này. Ngoài radium, e xin chân thành cám ơn quý công ty TNHH Minh Trí đã tạo điều kiện cho vitamin e thực tập tại công ty để e có thể hoàn thành được đề tài này.

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

  5. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG canister. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. five CHƯƠNG one GIỚI THIỆU VÀ KHẢO SÁT HỆ THỐNG I. Giới thiệu về công ty 1.Quá trình hình thành và 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 quyết định thành lập công ty TNHH Minh Trí. Là một công ty whitethorn thêu chuyên sản xuất và xuất khẩu các mặt hàng whitethorn mặc bằng vải dệt kim. Sản phẩm của công ty đã có mặt ở khắp các thị trường trên thế giới như thị trường european union, canada, Đức, Tiệp, Đài loanword, Nhật Bản, Hồng Kông, Trung Quốc, … đặc biệt là thị trường Mỹ. Trong thirteen năm qua, công ty đã không ngừng hoàn thiện về cơ cấu tổ chức và bộ máy quản lý nhằm đáp ứng nhu cầu sản xuất của cán bộ công nhân viên trong công ty để luôn đạt mức tăng trưởng và kim ngạch xuất khẩu 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 bộ 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 restrict 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 Hoàng Mai – Tp. Hà Nội – Hình thức hoạt động : sản xuất kinh doanh – Sản phẩm của công ty : chủ yếu là các sản phẩm từ vải dệt kim bao gồm quần, áo các loại. Có two dòng sản phẩm là : hàng cao cấp và hàng đại trà .
  6. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. six – Kim ngạch xuất khẩu đạ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 : sixty-seven tỷ đồng – Số máy may:570 – Số dàn máy thêu : four – Thành tích đạt được : + Thành tích xuất khẩu make Bộ Thương mại tặng năm 2004 + Bằng khen của Liên đoàn quận Hoàng Mai về công tác tốt + Bằng khen của Sở yttrium tế Hà Nội về VSATTP và chăm sóc sức khoẻ bachelor of arts in nursing đầu cho người lao động. + … cùng nhiều bằng khen về công tác associate in nursing 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 not trẻ nhưng công ty TNHH Minh Trí đã và đang khẳng định mình trên bunco đường hội nhập kinh tế quốc tế nói chung và ngành dệt whitethorn Việt Nam nòi riêng. 2.Chức năng, nhiệm vụ của các phòng ban trong 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 và pháp luật về tất cả các hoạt động sản xuất kinh doanh của công ty. – Điều hành chung mọi hoạt động của các phòng banish trong công ty. – Chịu trách nhiệm chỉ đạo, bồi dưỡng và nâng cao chuyên môn, kỹ thuật và cải thiện đời sống cho cán bộ công nhân viên. – Kết hợp chặt chẽ với các phòng chức năng, các phòng nghiệp vụ của công ty tạo điều kiện cho các tổ chức, đoàn thể hoạt động theo đúng quy chế .
  7. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. seven – Trực tiếp phụ trách công tác cán bộ. + Phó giám đốc : Là trợ lý của giám đốc – điều hành công ty trong từng lĩnh vực : – Chịu trách nhiệm toàn bộ về mặt kỹ thuật, quân sự tự vệ, phụ trách về đào tạo kế hoạch tác nghiệp, theo dõi, đôn đốc sản xuất hàng trong các phân xưởng, theo dõi hiện 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 cùng 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 chính – Tham mưu giúp việc cho giám đốc trong lĩnh vực tổ chức cán bộ, đào tạo lao động tiền lương, các chế độ chính sách quản lý hành chính, phục vụ và bảo vệ. – Nghiên cứu, đề xuất biện pháp giúp giám đốc công ty chỉ đạo, hướng dẫn, kiểm tra, đôn đốc các đơn vị trong công ty thực hiện các chủ trương của giám đốc. – Tổng hợp, phân tích, báo cáo, thống kê các hoạt động thuộc lĩnh vực phòng quản lý để phục vụ công tác chung trong toàn công ty. – Nhiệm vụ : + Nghiên cứu, đề xuất các phương án tổ chức bộ máy quản lý, các đơn vị cho phù hợp với yêu cầu sản xuất kinh doanh, với cơ chế quản lý trong từng thời kỳ .
  8. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. eight + Phối hợp với các đơn vị liên quan tổng hợp các văn bản quy định chức năng, nhiệm vụ của các đơn vị. + Xây dựng nội quy, quy chế quản lý thuộc lĩnh vực quản lý và lao động để trình duyệt với giám đốc và banish hành trong công ty. + Hướng dẫn, đôn đốc các đơn vị thực hiện đúng nội quy, quy chế. + Quản lý hồ sơ, số lượng cán bộ công nhân viên trong toàn công ty, quản lý mọi 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 trong công cuộc xây dựng chương trình kế hoạch đào tạo, bồi dưỡng, nâng cao trình độ về mọi mặt cho đội ngũ cán bộ quản lý, cán bộ kỹ thuật chuyên môn nghiệp vụ 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 bộ đị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 hiện đầy đủ, đúng quy định các vấn đề tổ chức cán bộ. + Giải quyết các thủ tục tuyển sinh, học nghề, tuyển dụng, ký kết hợp đồng lao động mới ; các thủ tục cho cán bộ công nhân viên chuyển công tác hoặc thôi việc sau chi đã xin ý kiến của giám đốc. + Theo dõi, tổng hợp hợp đồng ký kết, armed islamic group hạn hợp đồng lao động cho cán bộ công nhân viên trong toàn công ty. + Công tác tiền lương : xây dựng và ban hành các nội quy, quy chế tiền lương thu nhập, chế độ bảo hiểm xã hội, thực hiện chính sách cho người lao động đúng quy định. + Thực hiện tốt công tác vệ sinh lao động, vệ sinh môi trường. + Thực hiện các công tác bảo vệ associate in nursing ninh, trật tự associate in nursing toàn, xây dựng lực lượng tự vệ vững mạnh .
  9. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. nine + Khám và phát hiện bệnh nghề nghiệp cho cán bộ công nhân viên mắc phải tại công ty, có kế hoạch phòng bệnh và đ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ế chi cần. + Xây dựng và tổ chức thực hiện 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 và xuất vật tư, nguyên phụ liệu từ kho đến các đơn vị liên quan đảm bảo đầy đủ, đúng quy định của công ty. + Thực hiện 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 và tiếp nhận đơn hàng. – Dịch đơn hàng, sau đó gửi lên các phòng bachelor of arts in nursing sản xuất. + Phòng kế toán tài chính : – Chức năng : tham mưu, giúp việc cho giám đốc trong công tác kế toán tài chính nhằm sử dụng vốn hợp lý, đúng mục đích, đúng chế độ, đảm bảo cho quá trình sản xuất kinh doanh của công ty được duy trì liên tục và đạt hiệu quả kinh tế cao. – Nhiệm vụ : + Ghi chép, tính toán, phản ánh số liệu hiện có về tình hình luân chuyển và sử dụng tài sản, vật tư, vốn của công ty. Tình hình sử dụng các nguồn vốn phải phản ánh các chi tiết trong quá trình sản xuất và hoạt động sản xuất kinh doanh của công ty. Kiểm tra tình hình thực hiện kế hoạch sản xuất kinh doanh, kế hoạch thu qi tài chính .
  10. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. ten + Công tác tài chính :  Lập và chịu trách nhiệm trước giám đốc về số liệu báo cáo kế toán với cơ quan Nhà nước và cấp trên theo hệ thống mẫu biểu do Nhà nước quy định.  Lập kế hoạch tài chính, tính toán hiệu quả kinh tế do các dự án đầu tư ( nếu có ).  Tham mưu cho giám đốc về giá cả trong 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 đúng mục đích và hiệu quả.  Thực hiện tốt chế độ tài chính của Nhà nước. + Công tác hoạch toán kế toán :  Thực hiện 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 hoá của công ty.  Hoạch toán qi phí nhập – xuất vật tư trong công ty đến các phân xưởng sản xuất.  Theo dõi việc mua sắm, sử dụng tài sản trong công ty. + Phòng kỹ thuật chất lượng : tham mưu, giúp việc cho giám đốc trong các lĩnh vực sau : – Kỹ thuật whitethorn cơ khí. – Lập kế hoạch thu mua nguyên phu liệu phục vụ cho sản xuất như thùng catton, túi nilon, … kế hoạch mua sắm các thiết bị cần dùng cho các đơ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 và hao phí lao động .
  11. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. eleven – Xây dựng các chỉ 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 đúng yêu cầu của khách hàng. – Triển khai, theo dõi việc thiết kế và sản xuất các loại sản phẩm mẫu. – Hướng dẫn theo dõi, đôn đốc và giúp đỡ các phân xưởng lập và thực hiện kế hoạch tu sửa thiết bị đầy đủ theo nội dụng bảo trì đã được giám đốc phê duyệt. – Tuyên truyền, giáo dục sức khoẻ trong lao động và sinh hoạt, chủ động phòng chống bệnh dịch theo mùa, phối hợp với các trung tâm y tế xử lý các ổ dịch được phát hiện và kịp thời báo cáo với cấp trên. – Khám và chữa bệnh, cấp phát thuốc điều trị tại chỗ cho cán bộ công nhân viên trong toàn công ty theo quy định của Bộ y tế ban hành, giải quyết cấp cứu tại chỗ cho cán bộ công nhân viên trong công ty. – Nghiên cứu đề right ascension các biện pháp, sáng kiến nhằm tiếp cận với phương pháp quản lý chất lượng tiên tiến, tác động kịp thời tới sản xuất, điều hành các đơn vị trong công ty về lĩnh vực kỹ thuật để thực hiện các nhiệm vụ giám đốc yêu cầu. + Phòng kế hoạch kinh doanh – xuất nhập khẩu : – Xây dựng và điều hành việc thực hiện kế hoạch sản xuất của công ty trong các kho do phòng quản lý theo dõi và quản lý vật tư, sản phẩm armed islamic group công ở các đơn vị khác. – Công tác tiêu thụ sản phẩm trong và ngoài nước, tiêu thụ phế liệu – Công tác nhập khẩu nguyên phụ liệu, máy móc, trang thiết bị, phụ tùng, … phục vụ sản xuất, đồng thời xuất khẩu các sản phẩm right ascension nước ngoài. – Căn cứ vào kế hoạch sản xuất hàng năm và các hợp đồng cụ thể đã ký kết, giao dịch nhận đơn hàng của khách hàng về số lượng, giá cả và thời gian giao nhận hàng .
  12. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. twelve – Xây dựng kế hoạch sản xuất hàng tháng kể cả sản phẩm armed islamic group công trình giám đốc duyệt. – Xây dựng và tổ chức kế hoạch mua sắm nguyên phụ liệu cho sản xuất, đảm bảo đầy đủ, kịp thời nguyên phụ liệu phục vụ cho sản xuất, cho các đơn đặt hàng. Các mặt hàng mua về phải đảm bảo số lượng, chất lượng, giá cả. – Công tác nhập khẩu : trên cơ sở yêu cầu nhập khẩu nguyên phụ liệu của các đơn hàng được giám đốc phê duyệt, phòng kế hoạch kinh doanh – xuất nhập khẩu tiến hành giao dịch báo cáo và chuẩn bị hợp đồng nhập khẩu trình giám đốc. – Công tác nhập khẩu : thông báo kế hoạch sản xuất đến các đơn vị có liên quan, thường xuyên liên hệ với các phòng chức năng, các đơn vị khác theo dõi tiến độ sản xuất và giao hàng. – Xây dựng tiêu chuẩn cấp bậc công nhân các ngành nghế, tham armed islamic group tạo điều kiện, kiểm tra thi tay nghề cho các loại bậc thợ của công nhân theo quy định. Xây dựng các chỉ tiêu thi thợ giỏi của các ngành nghề trong toàn công ty. – Tổ chức khảo sát, xây dựng, ban hành các quy định về sử dụng vật tư nguyên liệu, các vật tư sử dụng có tính thường xuyên. Theo dõi việc thực hiện định mức của các đơn vị để có giải pháp và cùng với các đơn vị khắc phục các yếu kém trong quản lý định mức. – Công tác quản đốc : + Kiểm tra chất lượng nguyên phụ liệu chuẩn bị đưa vào sản xuất. Kiểm tra đánh dấu các mẫu chào hàng của khách hàng làm cơ sở ký kết hợp đồng mua bán nguyên phụ liệu với các phòng ban chức năng tạo cơ sở cho việc thiết kế công nghệ .
  13. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG canister. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. thirteen + Thông báo đầy đủ, kịp thời các chỉ tiêu chất lượng đã đề radium, ghi dấu kiểm tra chất lượng đạt tiêu chuẩn chưa hoặc không đạt tiêu chuẩn cho các sản phẩm. + Quyết định bán thành phẩm lỗi, loại bỏ sản phẩm lỗi, hỏng, xấu chi right ascension khỏi chuyền sản xuất. + Tổ chức bồi dưỡng nghiệp vụ, nâng cao tay nghề cho công nhân thu hoá, nhân viên kilohertz. Qua khảo sát và đánh giá được các chức năng, nhiệm vụ của từng bộ phận phòng prohibition, einsteinium đã cố gắng xây dựng chương trình Quản lý cán bộ tiền lương để hỗ trợ cán bộ nghiệp vụ tiền lương trong công tác quản lý được thuận lợi. two. Khảo sát hệ thống. 1.Tổng quan về hệ thống quản lý Quản lý là cách biểu hiện một ý chí muốn biến đổi và thuần phục một tổng thể các hiện tượng. Đó là việc tạo ra các sự kiện, thay vì để cho các sự kiện xảy ra bộc phát. Đây không phải là sự lắp ráp các nhiệm vụ rời rạc mà là hoạt động phân biệt rõ ràng với các chức năng khác của tổ chức. Trong những năm trước đây chi máy tính chưa được sử dụng rộng rãi trong các hệ thống quản lý, các hệ thống quản lý này đều phải thực hiện theo phương pháp thủ công và hệ thống quản lý nhân sự cũng nằm trong số đó. 2.Chức năng và nhiệm vụ của hệ thống quản lý nhân sự Hệ thống quản lý nhân sự có chức năng thường xuyên thông báo cho ban lãnh đạo về các mặt công tác : tổ chức lao động, tiền lương, thi đua, chấm công, khen thưởng, kỷ luật … hệ thống này được đặt dưới sự chỉ đạo trực tiếp của giám đốc .
  14. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. fourteen Với chức năng như vậy, hệ thống quản lý nhân sự có nhiệm vụ luôn cập nhật hồ sơ cán bộ công nhân viên theo quy định, thường xuyên bổ xung những thông canister thay đổi trong quá trình công tác của cán bộ công nhân viên, việc theo dõi và quản lý lao động để chấm công và thanh toán lương cũng là nhiệm vụ quan trọng của hệ thống. Ngoài radium, công tác thống kê báo cáo tình hình theo yêu cầu của ban giám đốc cũng là nhiệm vụ không thể thiếu trong hệ thống quản lý cán bộ. 3.Yêu cầu của hệ thống và những khó khăn Trước một khối lượng lớn nhân viên cũng như các yêu cầu đặt radium thì việc quản lý theo phương pháp thủ công sẽ không thể đáp ứng được, dress đó gặp rất nhiều khó khăn. Nó đòi hỏi phải có nhiều nhân lực, nhiều thời gian và công sức, mỗi nhân sự của cơ quan thì có một hồ sơ cho nên việc lưu trữ, tìm kiếm, bổ sing, sửa đổi để đáp ứng yêu cầu không phải là dễ dàng. Từ những nhược điểm trên tantalum thấy cần thiết phải có một hệ thống tin học hoá cho việc quản lý nhân sự cũng như các hệ thống quản lý khác. 4.Những yêu cầu đặt ra đối với hệ thống mới Cùng với sự phát triển của xã hội, công tác tổ chức quản lý cũng cần được đầu tư và phát triển để có thể đáp ứng tốt đuợc yêu cầu cũng như giúp cấp lãnh đạo thực hiện tốt các chủ trương chính sách đối với cán bộ công nhân viên chức. Trước hết để quản lý được một khối lượng nhân viên của một cơ quan, phải tổ chức tốt hệ thống lưu trữ hồ sơ để có thể đáp ứng được những yêu cầu : tiết kiệm chỗ, dễ tìm kiếm, dễ bổ xung sửa đổi. Hệ thống quản lý mới phải khắc phục được những nhược diểm của hệ thống cũ, ngoài radium hệ thống mới phải có khả năng phát hiện lỗi và xử lý kiểm tra tính đúng đắn của dữ liệu ngay từ chi cập nhật .
  15. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG canister. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. fifteen CHƯƠNG two PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG one. Các chức năng cơ bản của 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 sự. + Tính lương cho nhân sự dựa trên bảng chấm công. 1.3 > Tra cứu, Tìm kiếm : + Tra cứu theo hồ sơ lý lịch. + Tra cứu theo lương. + Tra cứu theo các số liệu tổng hợp. 1.4 > Báo cáo, Thống kê + Thống kê Báo cáo về trình độ người lao động trong đơn vị. + Thống kê Báo cáo về mức thu nhập chung của nhân sự trong đơn vị. two. Biểu đồ phân cấp chức năng của hệ thống quản lý nhân sự / lương :
  16. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. sixteen 2.1 Biểu đồ phân cấpchức năng 2.2 Biểu đồ luồng dữ liệu mức khung cảnh Biểu đồ luông dữ liệu mức khung cảnh cho tantalum cái nhìn khái quát về quá trình hoạt động của hệ thống. Giải thích sơ bộ : Tác nhân ngoài Nhân sự sẽ đưa thông canister của bản thân vào cho hệ thống cập nhật và xử lý. Tác nhân ngoài ban lãnh đạo đưa các yêu cầu cho hệ thống và nhận được các báo cáo và kết quả trả lời từ hệ thống. Hệ thống quản lý nhân sự /lương Thông can yêu cầu Biểu Báo Thông can cá nhân Nhân sự prohibition Lãnh Đạo Quản lý nhân sự / lương Quản lý hồ sơ Quản lý lương Tra cứu, Tìm kiếm Báo cáo, Thống kê Cập nhật hồ sơ Lưư trữ hồ sơ Chấm công Tính lương Tổng hợp lương Tra cứu theo lý lịch Tra cứu theo shining path tổng hợp Tra cứu theo lương Trình độ Mức thu nhập
  17. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. seventeen 2.3 Biểuđồ luồng dữ liệumức đỉnh Báo cáo, Thống kê Nhân sự Tra cứu, Tìm kiếm prohibition lãnh đạo Hồ sơ Lương Quản lý lương Quản lý hồ sơ Hồ sơ lưu Chấm công Yêu cầu Báo biểu Yêu cầu Báo cáo Ngày công Mức lương Thông tin nhân sựThông tin nhân sự Lưu trữ Thông can cá nhân Lưu trữ Cập nhật Cấp thông can Thông can nitrogen
  18. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. eighteen Giải thích : – chi thông tin về nhân sự được chuyển vào hệ thống, chức năng Quản lý hồ sơ sau chi phân loại và xử lý sẽ đưa thông can vào kho Hồ sơ và Hồ sơ lưu. Chức năng Quản lý lưong thực việc chấm công và tình lương cho nhân sự sau đó đưa thông tin về kho bảng lương, bảng chấm công. Chức năng Tra cứu, Tìm kiếm nhận các thông tin yêu cầu đòi hỏi từ hệ thống và tác nhân ngoài ban lãnh đạo, nó tiến hành xử lý và tìm kiếm trong các kho dữ liệu và trả về kết quả. Chức năng Báo cáo, thống kê nhận yêu cầu từ tác nhân ngoài ban lãnh đạo sau chi xử lý nó đưa right ascension các báo biểu. 2.3.1 Chức năng quản lý hồ sơ Giải thích : – Thông tin của nhân sự được đưa vào hệ thống chức năng Quản lý hồ sơ sẽ phân loại : + Nếu đó là thông can thông báo nhân sự nghỉ hưu, chết hoặc lý doctor of osteopathy nào đó không làm việc trong cơ quan nữa nhưng có những thông tin liên quan đến đơn vị, thì chuyến cho chức năng Lưu trữ hồ sơ đưa thông can về kho Hồ sơ lưu. +Các thông tin khác chuyển cho chức năng Cập nhật hồ sơ xử lý sau đó đưa thông tin về kho Hồ sơ. Nếu như thông tin thông báo về hồ sơ của Nhân sự Thông can cá nhân Lưu trữ Cập nhật hồ sơ Hồ sơ lưu 1.1 Lưu trữ hồ sơ 1.2 Hồ sơ Cập nhật
  19. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. nineteen một nhân sự trong hệ thống có sự thay đổi thì sửa đổi cho phù hợp, sau chi sửa đổi cho phù hợp sẽ được đưa về kho “ hồ sơ ”. 2.3.2 Chức năng quản lý lương : Giải thích : – Chức năng Chấm công sẽ thực hiện việc chấm công cho nhân sự theo tháng và nó nhận được một số thông tin từ tác nhân ngoài Nhân sự như : Đơn xin nghỉ, Quết định công tác.v.v … Chức năng Tính lương lấy số liệu từ kho Chấm công và kho Hồ sơ để tính lương cho Nhân sự theo từng tháng, sau đó đưa vào kho Lương. 2.3.3 Chức năng tra cứu tìm kiếm : Giải thích : – Chức năng Tra cứu, Tìm kiếm sẽ nhận được các thông tin yêu cầu từ hệ thống và tác nhân ngoài ban lãnh đạo. Nó thực hiện phân loại thông tin. Tuỳ thuộc vào thông tin yêu cầu về hồ sơ lý lịch, lương … nó sẽ tiến hành tra cứu tìm kiếm trong các kho tương ứng. Ngày công Nhân sự Chấm công Đơn xin nghỉ 2.1 Tính lương Lương 2.2 Bảng chấm công Hồ sơ Thông can về nhân sự prohibition lãnh đạo Hồ sơ lưu Hồ sơ Bảng lương Mức lương Các yêu cầu Tra cứu, tìm kiếm
  20. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. twenty 2.3.4 Chức năng báo cáo, thống kê : Giải thích : chi nhận được các thông canister yêu cầu, chức năng Báo cáo thống kê sẽ tiến hành phân loại thông canister và xác định lấy dữ liệu ở kho nào để xử lý. Sau đó nó đưa ra các Báo Biểu 2.4 Biểu đồ luồng dữ liệu mức dưới đỉnh tổng hợp Báo cáo, thống kê ban lãnh đạo Hồ sơ lưu Hồ sơ Bảng lương Mức lương Các yêu cầu Báo biểu Cập nhật hồ sơ Chấm công Tính Lương Hồ sơ Bảng lươngBảng chấm côngNhân sự Đơn xin nghỉ. quyết định công tác … Thông tin về normality Cập nhật Thông tin cá nhân Thông tin tiền lương Lưu trữ Mức lương Ngày công Cấp thông tin Thông canister nitrogen Thông tin n
  21. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. twenty-one CHƯƠNG three XÂY DỰNG CƠ SỞ DỮ LIỆU CỦA CHƯƠNG TRÌNH one. Cơ sở dữ liệu Cơ sở dữ liệu là một kho chứa thông tin, có nhiều loại cơ sở dữ liệu, trong đó phổ biến nhất hiện nay là CSDL quan hệ. Một CSDL quan hệ  Chứa dữ liệu trong các bảng, được cấu tạo bởi các dòng ( mẫu tin ), cột ( trường ).  Cho phép lấy về ( hay truy vấn ) các tập hợp dữ liệu con từ bảng.  Cho phép nối các bảng với nhau cho mục đích truy cập các mẫu can liên quan với nhau chứa trong các bảng khác nhau. Bộ máy ( locomotive ) cơ sở dữ liệu Chức năng cơ bản của một CSDL được cung cấp bởi một bộ máy CSDL, là hệ thống chương trình quản lý cách thức chứa và trả về dữ liệu. Bảng và trường Báo cáo, thống kê Lưu trữ hồ sơ Tra cứu tìm kiếm ban lãnh đạoHồ sơ lưu Lưu trữ Thông canister nhân sự Báo biểu Yêu cầu Yêu cầu Thông tin nhân sự
  22. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. twenty-two Các CSDL được cấu tạo từ các bảng dùng thể hiện các phân nhóm dữ liệu. Bảng chứa các mẫu can là các mẫu dữ liệu riêng rẽ bên trong phân nhóm dữ liệu. Mẫu tin chứa các trường, mỗi trường thể hiện một bộ phận dữ liệu trong một mẫu tin. RecordSet chi tạo bảng cần nắm được cách thao tác với các bảng. Thao tác với các bảng liên quan đến việc nhập và lấy về dữ liệu từ các bảng khác cũng như việc kiểm tra và sữa đổi cấu trúc bảng. Thao tác dữ liệu trong một bảng tantalum dùng Recordset. RecordSet là một cấu trúc dữ liệu thể hiện một tập hợp memorize các mẫu can lấy về từ CSDL. Mối quan hệ Khóa chính : một trường được chỉ ra là khóa chính của bảng phục vụ cho việc xác định duy nhất mẫu can. Khóa ngoại : là khóa trong bảng liên quan chứa bản sao của khóa chính của bản chính. Mối quan hệ : là một cách định nghĩa chính thức hai bảng liên hệ với nhau như thế nào. chi định nghĩa một mối quan hệ, tức đã thông báo với bộ máy CSDL rằng hai trường trong hai bảng liên quan được nối với nhau. Hai trường liên quan với nhau trong một mối quan hệ là khóa chính và khóa ngoại. Ngoài việc ghép các mẫu tin liên quan trong những bảng riêng biệt, mối quan hệ còn tận dụng thế mạnh của tính toàn vẹn tham chiếu, một thuộc tính của bộ máy CSDL duy trì các dữ liệu trong một CSDL nhiều bảng luôn luôn nhất quán. chi tính toàn vẹn tham chiếu tồn tại trong một CSDL, bộ máy CSDL sẽ ngăn cản chi xóa một mẫu tin chi có các mẫu can khác tham chiếu đến nó trong CSDL .
  23. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. twenty-three Hồ sơHesoluong Lương sơ LoaiThuong two. Sử dụng Microsoft access để tạo cơ sở dữ liệu cho chương trình Microsoft access có giao diện tinh xảo và dễ dùng để tạo các đối tượng CSDL. 2.1 Lược đồ cấu trúc dữ liệu ( liquid crystal display ) : PhuCap MucPhuCap TienPhuCap Heso TienTuongUng Macb Họ tên Ngày sinh Nơi sinh Giới tính Quê quán Dân tộc Trình độ Chức vụ Hệ số lương Ngày vào biên chế Macb Hesoluong LoaiThuong MucPhucap SongayNghi Luong Tạm ứng Conlai KyNhan Heso TienTuongUng
  24. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. twenty-four 2.2 Thiết kế các file dữ liệu 2.2.1 Bảng HoSoCanBo lưu trữ thông tin về nhân sự trong một cơ quan : STT Tên trường Kiểu Độ rộng Giải thích one man text ten Mã nhân sự two HoTen text thirty Họ và tên nhân sự three NgaySinh textbook ten Ngày sinh four NoiSinh textbook twenty Nơi sinh five GioiTinh textbook five Giới tính six DanToc textbook twenty Dân tộc seven NoiOHienNay textbook thirty Nơi ở hiện nay eight Phong text fifteen phòng nine ChucVu text fifteen chức vụ ten TrinhDo textbook fifteen Trình độ eleven ChuyenMon text twenty-five Chuyên môn twelve NgayBC date eight Ngày biên chế 2.2.2 Bảng lương lưu trữ thông tin về quá trình lao động của nhân sự :
  25. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. twenty-five Stt Tên trường Kiểu Độ rộng Giải thích one Macb text ten Mã nhân sự two Hesoluong currantcy four Tháng lao động three LoaiThuong textbook fifteen Loại thưởng của cán bộ four MucPhuCap text fifteen Mức phụ cấp five SoNgayNghi number two Số ngày nghỉ trong tháng six Luong currentcy ten Số ngày nghỉ trong tháng seven TamUng currentcy ten Tiền đã tạm ứng eight ConLai currentcy ten Số Lương còn lại six KyNhan text five Ký nhận đã nhận đủ 2.2.3 Bảng HesoLuong lưu trữ thông canister về hệ số lương của công ty :
  26. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. twenty-six STT Tên trường Kiểu Độ rộng Giải thích one Heso Currentcy six Hệ số lương two TienTuongUng Currentcy ten Tiênd tương ứng với hệ số 2.2.4 Bảng Thưởng lưu trữ thông tin về hệ số lương của công ty : STT Tên trường Kiểu Độ rộng Giải thích one Loaithuong Currentcy six Loại thưởng two TienThuong Currentcy ten Tiền thưởng tương ứng 2.2.5 Bảng HesoLuong lưu trữ thông tin về hệ số lương của công ty : STT Tên trường Kiểu Độ rộng Giải thích one MụchuCap text ten Mức phụ cấp two TienTuongUng Currentcy ten Tiền phụ cấp tương ứng three. Dùng Microsoft access để tạo bộ cơ sở dữ liệu
  27. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. twenty-seven Cơ sở dữ liệu cho chương trình Quản lý nhân sự-tiền lương. 3.1 Mối quan hệ cho các bảng dữ liệu trong chương trình 3.2 relationship phân hệ Quản lý nhân sụ-tiền lương 4.Thiết kễ module : 4.1 Xây dựng lược đồ cấu trúc chương trình LCT : 4.1.1 Chỉnh sửa hồ sơ :
  28. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. twenty-eight 4.1.2 Chấm công 4.1.3 Tính lương : 4.1.4 Tra cứu : Cập nhật hồ sơ Xác định chức năng Ghi lại Thêm hồ sơ Lưu hồ sơ Sửa đổi hồ sơ Thông tin nhân sự Thông canister nhân sựThông canister nhân sự Thông tin nhân sự Chấm công Ngày công được chấm Quy radium công Công hưởng lương thời gian Công hưởng % lương Công hưởngBHXH Tính lương Tính lương cơ bản Lên bảng lương Tính lương phụ cấp Ngày công LPC LCB LCB Tên LPC LCB
  29. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. twenty-nine 4.1.5 Thống kê báo cáo : 4.2 Đặc tả module : 4.2.1 Cập nhật hồ sơ : Tra cứu, Tìm kiếm Xác định câu hỏi vào Kết quả Tra cứu theo hồ sơ Tra cứu theo lương Tra cứu theo số liệu thorium Yêu cầu YC Kết quả KQ YC KQ KQ YC Kết quả remark : thông tin về nhân sự Dời khỏi cơ quan ? Lưu hồ sơ Mới vào cơ begin y yttrium nitrogen Thống kê báo cáo Thống kê về trình độ Báo BiểuThống kê về mức lương
  30. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. thirty 4.2.2 Tra cứu, Tìm kiếm : input : Các thông can yêu cầu Yêu cầu terrestrial time về nitrogen ? Tìm câu trả lời trong kho hồ sơ Hỏi về lương ? Tìm câu trả lời trong kho lương Tìm câu trả lời trong các kho còn lại Kết quả end get down y y normality newton
  31. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. thirty-one CHƯƠNG four : SỬ DỤNG NGÔN NGỮ LẬP TRÌNH ocular basic ĐỂ THIẾT KẾ CHƯƠNG TRÌNH one. Ngôn ngữ lập trình ocular basic ocular basic có rất nhiều tính năng mới. Các điều khiển mới cho phép viết các chương trình ứng dụng kết hợp giao diện, cách xử lý và tính năng của Microsoft agency ninety-seven và trình duyệt world wide web internet explorer, không nhất thiết phải có một bản sao của điều khiển trên biểu mẫu. ocular basic cho phép :  Lập trình để thêm điều khiển vào đề án tự động và có thể tạo radium các điều khiển Activex hiệu chỉnh.  Viết các chương trình ứng dụng phía máy chủ ( waiter side ) dùng hypertext markup language động nhúng kết nối với các thư viện liên kết động của internet information server.  Một vài cải tiến cho phép làm việc với các ứng dụng truy cập dữ liệu ở tầm cỡ vĩ mô liên quan đến hàng trăm, hàng nghìn người sử dụng qua mạng hay qua internet. ocular basic cung cấp các đối tượng dữ liệu Activex cho phép kết nối với các tập tin cơ sở dữ liệu. Ngoài các điều khiển Activex ocular basic còn có một bộ công cụ và kỹ thuật mới giúp truy cập dữ liệu dễ dàng hơn. Trình thiết kế môi trường dữ liệu cho phép xem xét và thao tác dữ liệu trong CSDL khác
  32. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. thirty-two nhau. Bởi vì bản thân môi trường dữ liệu là những đối tượng, có thể sử dụng chúng như một điều khiển dữ liệu. Thậm chí có thể gắn nó với các điều khiển khác. ocular basic cung cấp một vài điều khiển dữ liệu mới cho phép tận dụng các thế mạnh của điều khiển dữ liệu bustle. Điều khiển DataGrid cho phép xem dữ liệu dưới dạng bảng gồm các dòng và cột. DataList và DataCombo tương tự như DBList và DBCombo, có thể dùng chúng để lấy một danh sách dữ liệu từ điều khiển bustle trong cấu hình hộp danh sách ( ListBox ) hoặc hộp kết hợp ( ComboBox ). ocular basic mở rộng khả năng báo cáo với trình báo cáo dữ liệu cho phép tạo, xem trước, và in các báo cáo trong ocular basic tương tự như access và có thể lấy các điều khiển báo cáo từ hộp công cụ báo cáo dữ liệu mới và đưa vào biểu mẫu báo cáo dữ liệu. two. Các đối tượng truy cập dữ liệu dynamic data rally ( DDE ) : Trao đổi dữ liệu động Cho phép các các ứng dụng chia sẽ thông tin với nhau trong lúc thi hành. Cớ chế giao tiếp là một ứng dụng sẽ gửi dữ liệu vào một vùng được quy định sẵn bởi một ứng dụng khác. Tuy nhiên, người lập trình phải thiết lập mọi thứ cho giao tiếp trao đổi dữ liệu nên cách thực hiện theo DDE rất phức tạp. object connect and embed ( OLE ) : Nhúng và kết nối đối tượng OLE tuân thủ triết lý của window ( chink chuột, kéo và thả ). OLE có thể kéo dữ liệu từ ứng dụng này và thả vào ứng dụng khác. OLE có hai kỹ thuật :  Khởi động tại chổ ( In-place activation ) : Một dữ liệu được tạo right ascension bởi ứng dụng one và được thả vào ứng dụng two. Nhấn double click chuột lên dữ liệu ở ứng dụng two nó sẽ hoạt động giống như ở ứng dụng one .
  33. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG canister. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. thirty-three  Tự động hóa ( automation ) : áp dụng khả năng tái sử dụng đối tượng và tận dụng triệt để các thế mạnh của các đối tượng. Activex Activex là thế hệ sau của OLE. Nên Activex chứa đựng tất cả tính năng của OLE và được bổ spill the beans thêm nhiều chức năng khác như cho phép việc sử dụng các đoạn chương trình có sẵn mà không cần quan tâm chúng có nguồn gốc từ đâu hay hoạt động như thế nào. three. Sử dụng các đối tượng truy cập dữ liệu trong chương trình Điều khiển DAO ( datum access aim ) Cho phép thi hành các câu truy vấn, cập nhật giá trị trong các bảng cơ sở dữ liệu và tạo cấu trúc cơ sở dữ liệu bao gồm các bảng, các câu truy vấn chứa sẵn và mối quan hệ giữa các bảng. Ưu điểm : Giao diện lập trình của DAO vô cùng mạnh mẽ và dễ sử dụng. Với các cơ sở dữ liệu jet của Microsoft, DAO cho phép truy cập các tính năng không có sẵn trong SQL hay bustle ( Đối tượng dữ liệu Activex – Activex data object ). DAO có thể sử dụng để truy cập các cơ sở dữ liệu trên máy cá nhân hay Client/Server. Khuyết điểm : Mô hình đối tượng DAO khá phức tạp Thông qua các tập hợp sở hữu đối tượng database có thể thao tác trên dữ liệu và cấu trúc của một cơ sở dữ liệu, tạo các đối tượng cơ sở dữ liệu mới, kiểm tra cấu trúc và dữ liệu chứa trong một cơ sở dữ liệu. Trong lập trình DAO, có một tập hợp cốt lõi gồm các kỹ thuật thông dụng được sử dụng gần như cho mọi chương trình, bao gồm :  Thi hành câu truy vấn choice để lấy về các dữ liệu từ cơ sở dữ liệu.  Duyệt qua từng mẫu tin trong một RecordSet
  34. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. thirty-four  Thi hành câu truy vấn hành động ( bao gồm các câu truy vấn update, erase, append )  Sữa đổi cấu trúc cơ sở dữ liệu  Xử lý lỗi phát sinh bởi truy cập cơ sở dữ liệu. Điều khiển ADODC ( Microsoft bustle data control 6.0 ( OLEDB ) ) ocular basic cung cấp các đối tượng dữ liệu ActiveX ( ActiveX data aim – bustle ). bustle tổng hợp và thay thế việc truy cập dữ liệu của DAO ( Đối tượng truy cập dữ liệu – datum access object ) và RDO ( Đối tượng dữ liệu từ xa – distant data object ). bustle là công nghệ truy cập cơ sở dữ liệu hướng đối tượng tương tự như DAO và RDO, ø giao diện dựa trên đối tượng cho công nghệ dữ liệu OLEDB. Ngoài radium, bustle dễ sử dụng và có tầm hoạt động rộng hơn dùng để kết nối với các tập can cơ sở dữ liệu và có thể truy cập dữ liệu từ xa. bustle được xem là kỹ thuật để truy cập cơ sở dữ liệu từ web server. Bởi vì bustle được cung cấp dưới dạng thư viện Activex server ( tương tự DAO và RDO ), nên rất thuận lợi dùng trong ứng dụng ocular basic. Trong thực tế, bằng nhiều cách đã chứng minh rằng sử dụng bustle để làm việc với cơ sở dữ liệu Client/Server thì dễ hơn các kỹ thuật khác. Phần lớn các nhà lập trình ocular basic không tương tác trực tiếp với OLEDB. Thay vào đó, họ lập trình với bustle, mô hình đối tượng cung cấp giao diện với OLEDB. chi dùng bustle thì chỉ cần lập trình với phần giao diện người sử dụng ở phía client. Bởi vì việc truy cập dữ liệu trên cả trình duyệt wed và ứng dụng ocular basic được chuyển hết về phía Activex server nên logic chương trình luôn nhất quán, bất kể loại ứng dụng nào đang được sử dụng. client application distant data object Activex datum object node workstation
  35. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. thirty-five node application Activex data object OLEDB ODBC provider ODBC driver client workstation ODBC driver coach
  36. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG canister. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. thirty-six Cấu trúc này cho phép dùng thành phần lập trình Activex thông dụng trên cả trình duyệt wednesday và ứng dụng node ocular basic. four. Các điều khiển giao diện người sử dụng  Điều khiển nội tại ( Hoạt động với mọi ấn bản của ocular basic ) Các điều khiển này đều có thể trực tiếp nối kết với một trường trong một cơ sở dữ liệu thông qua một điều khiển dữ liệu hoặc nguồn dữ liệu khác như trình thiết kế DataEnvironment. Kết nối vớichứa Kết nối vớiBiểu mẫu VB Các thuộc tính DataSource, DataField của điều khiển ràng buộc dữ liệu Các thuộc tính ConnectionString, RecordSource của điều khiển bustle data Cơ sở dữ liệu Cách thức của điều khiển bustle datum kết nối với cơ sở dữ liệu trong ứng dụng
  37. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. thirty-seven Nhập dữ liệu với điều khiển TEXTBOX : Dùng sữa đổi dữ liệu kiểu chuỗi và kiểu số từ một cơ sở dữ liệu. Ràng buộc vào trình thiết kế DataEnvironment : Là khả năng tạo một giao diện người sử dụng ràng buộc dữ liệu. Bởi vì có thể chia sẽ trình thiết kế DataEnvironment qua nhiều biểu mẫu và nhiều ứng dụng, điều này sẽ cho tất cả các tính năng và sự dễ dàng lập trình trong một ứng dụng ràng buộc dữ liệu bởi vì không cần ràng buộc từng điều khiển riêng rẽ với nguồn dữ liệu. Truy cập giá trị boolean với điều khiển CHECKBOX : dùng CheckBox để hiển thị một giá trị truthful hay false từ một trường trong một cơ sở dữ liệu. Sử dụng điều khiển LISTBOX để hiển thị dữ liệu : dùng ListBox để hiển thị các phần tử trong một danh sách chọn lựa dành cho người sử dụng. Nhưng chi sử dụng ListBox để hiển thị dữ liệu từ một cơ sở dữ liệu vẫn có một số hạn chế về lượng dữ liệu dùng để chứa và hiển thị. TabControl : Làm cho các chức năng của chương trình nằm gọn trên một form.  Điều khiển Activex ( Là những thành phần bổ spill the beans cho bản professional và enterprise của ocular basic ) Khác với các điều khiển giao diện người sử dụng, các điều khiển này không được cung cấp bởi hệ điều hành. Thay vào đó, tantalum phải phân phát điều khiển bổ sing vào các máy tính của người sử dụng để ứng dụng có thể sử dụng chúng. Sử dụng điều khiển DataGrid : DataGrid có khả năng hiển thị dữ liệu dưới dạng dòng, cột chi ràng buộc với điều khiển bustle data hay trình thiết kế DataEnvironment. Sử dụng điều khiển DataList và DataCombo : Điều khiển DataList và DataCombo là những điều khiển sao chép lại các chức năng của điều khiển DBList. DataList cung cấp danh sách các chọn lựa, DataCombo dùng nối kết
  38. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. thirty-eight dữ liệu nhập vào điều khiển với một trường trong cơ sở dữ liệu, cả hai đều tương thích với DAO datum và bustle datum mới. five. Sử dụng các câu truy vấn ( SQL ) Một câu truy vấn là một lệnh cơ sở dữ liệu để lấy về các mẩu canister. Sử dụng câu truy vấn, có thể lấy dữ liệu từ một hoặc nhiều trường trong một hay nhiều bảng. Ngoài right ascension, còn có thể ép các dữ liệu lấy về theo một hoặc nhiều ràng buộc, gọi là các tiêu chí để hạn chế số lượng dữ liệu lấy về. SQL là giải pháp chuẩn để thao tác với cơ sở dữ liệu. Nó được thực hiện theo nhiều dạng khác nhau trong các hệ thống cơ sở dữ liệu quan hệ, bao gồm access và SQL waiter Các câu truy vấn SQL cho khả năng lấy về các mẩu can từ một bảng cơ sở dữ liệu, đối chiếu các dữ liệu quan hệ với nhau trong nhiều bảng và thao tác với cấu trúc của cơ sở dữ liệu. Các kiểu truy vấn SQL nhất định có thể điền dữ liệu vào một điều khiển dữ liệu. Trong chương trình, các câu truy vấn SQL được dùng chi thao tác với các cơ sở dữ liệu thông qua sử dụng mô hình đối tượng DAO, RDO và bustle. Lợi ích chi dùng SQL Theo kinh nghiệm trong ocular basic, bất cứ chổ nào dùng một tham chiếu đến một bảng, đều có thể thay thế bằng cách sử dụng một câu lệnh SQL hoặc một tham chiếu đến một truy vấn đã lưu trữ nhưng bản thân nó vẫn dựa vào một câu lệnh SQL. Nơi thích hợp nhất để đặt một câu lệnh SQL, dựa trên các kỹ thuật truy cập dữ liệu, là thuộc tính RecordSource của một điều khiển dữ liệu. Vì vậy, thay vì chỉ ra thuộc tính RecordSource là tên của một bảng, có thể đổi thuộc tính này thành tên của một câu truy vấn chứa sẵn hay một câu lệnh SQL như : choose * FROM TEN_BANG order aside key. Điều này cho tantalum sự linh hoạt đáng kể chi chọn lựa một nguồn mẩu can.
  39. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG canister. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. thirty-nine Sử dụng câu lệnh SQL trong các ngữ cảnh khác nhau của chương trình  Tham số beginning của phương thức OpenRecordSet của đối tượng database của DAO được sử dụng phổ biến nhất chi truy vấn các mẩu can từ một cơ sở dữ liệu entree.  Sử dụng thuộc tính reference của một đối tượng RecordSet của bustle. Sử dụng câu lệnh choice để lấy về các mẩu tin Câu lệnh blue-ribbon là cốt lõi của mọi truy vấn lấy về dữ liệu. Nó thông báo cho bộ máy cơ sở dữ liệu những trường nào sẽ được lấy về. Dạng thông dụng nhất của câu lệnh choice là : choice * Mệnh đề có ý nghĩa là “ trả về tất cả các trường tìm thấy trong nguồn mẩu tin chỉ định ”. Dạng lệnh này rất tiện dụng vì không cần biết tên của trường để lấy chúng về từ một bảng. Tuy nhiên, lấy về tất cả các cột trong một bảng có thể không hiệu quả, nhất là trong trường hợp mà tantalum chỉ cần two cột mà truy vấn của tantalum trả về quá nhiều. Vì vậy, ngoài việc thông báo cho bộ máy cơ sở dữ liệu để trả về tất cả các trường trong nguồn mẩu canister, tantalum còn có khả năng chỉ ra chính xác trường nào cần lấy về. Hiệu ứng lọc bớt này cải tiến hiệu quả của một truy vấn, nhất là trên bảng lớn có nhiều trường trong chương trình, bởi vì trong chương trình tantalum chỉ cần lấy về trường nào cần thiết. Sử dụng mệnh đề FROM để chỉ nguồn mẩu can Mệnh đề FROM làm việc với câu lệnh choose để trả về các mẩu tin trong bảng, ví dụ : blue-ribbon * FROM TEN_BANG. Vì một câu truy vấn blue-ribbon FROM không xếp theo thứ tự nên thứ tự trả về là không xác định. Để câu truy vấn có hiệu quả, cần phải giới hạn số trường lấy về bằng cách sử dụng mệnh đề WHERE. Sử dụng mệnh đề WHERE để chỉ right ascension tiêu chí lọc
  40. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. forty Mệnh đề WHERE thông báo với bộ máy cơ sở dữ liệu để giới hạn số mẩu tin trả về theo một hay nhiều tiêu chí lọc perform người lập trình cung cấp. Kết quả trả về của tiêu chí lọc là TRUE/FALSE. six. Cài đặt và chạy chương trình Frm.MDImain : Màn hình giao diện chính của chương trình
  41. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. forty-one Frm.phucap : Màn hình nhập thông tin phụ cấp
  42. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. forty-two Frm.nhapheso : Màn hình nhập hệ số lương
  43. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. forty-three Frm.thuong : Màn hình nhập loại thưởng
  44. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. forty-four Frm.hosocb : Màn hình nhập hồ sơ cán bộ
  45. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. forty-five Frm.luong : Màn hình nhập lương cho cán bộ
  46. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG canister. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. forty-six Frm.tracuucb : Màn hình tra cứu cán bộ
  47. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. forty-seven Frm.xemhoso : Màn hình hiện thị xem hồ sơ cán bộ
  48. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. forty-eight Frm.tracuuluong : Màn hình tra cứu lương cán bộ
  49. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. forty-nine Frm.xemluong : Màn hình hiển thị xem lương cán bộ CHƯƠNG five : ĐÁNH GIÁ VÀ PHÁT TRIỂN ĐỀ TÀI Quá trình khảo sát, thực hiện và hoàn thành đề tài, thì chương trình đã cho chúng tantalum có được cái nhìn tổng quát về hệ thống quản lý cán bộ tiền lương
  50. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. fifty của một doanh nghiệp. Chương trình đã giúp rất nhiều cho cán bộ nghiệp vụ nhân sự, tiền lương trong việc cập nhập, chỉnh sửa, tính lương, quản lý, tìm kiếm, đưa right ascension các báo cáo, báo biểu về thông tin cán bộ rất dễ dàng và chính xác .. Nhưng act thời gian có hạn và kiến thức còn hạn hẹp nên chương trình không tránh khỏi những thiếu xót .. như chương trình chưa đưa ra được phần quản trị hệ thống, phân quyền cho cho người sử dụng, chưa đưa right ascension được một quy trình quản lý sao lưu backup dữ liệu…Trong thời gian tới, e sẽ cố gắng hoàn thiện chương trình và phát triển chương trình thêm nhiều faculty nữa .. như xây dựng hệ thống chấm công tự động, hệ thống quản lý đơn hàng .. tạo dựng database chung cho chương trình để chương trình ngày một ưu việt. Cuối cùng, em xin chân thành cảm ơn thorium. Nguyễn Thanh Hương giảng viên bộ môn Công nghệ thông can Trường Đại Học Kinh Tế Quốc Dân đã tận tình chỉ bảo hướng dẫn em hoàn thành đề tài này.Cám ơn quý công ty TNHH Minh Trí đã tạo điều kiện cho e khảo sát và thực tập tại công ty để east có thể hoàn thành được đề tài này. NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN ………………………………………………………………………………… ………………………………………………………………………………… …………………………………………………………………………………
  51. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. fifty-one ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… XÁC NHẬN CỦA CƠ QUAN THỰC TẬP ………………………………………………………………………………… ………………………………………………………………………………… …………………………………………………………………………………
  52. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. fifty-two ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… KÝ VÀ ĐÓNG DẤU TÀI LIỆU THAM KHẢO one. Cơ Sở Dữ Liệu Quan Hệ Lê Tiến Vương two. Phân Tích & Thiết Kế Hệ Thống Ngô Trung Việt
  53. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG canister. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. fifty-three three. Cơ Sở Dữ Liệu & Phân Tích Thiết Kế Hệ Thống Thông can Quản Lý Nguyễn Hữu Trọng four. Tự Học Lập Trình Cơ Sở Dữ Liệu ocular basic 6.0 tập one & two Nguyễn Đình Tê ( chủ biên ) five. Những Bài Thực Hành Cơ Sở Dữ Liệu Cơ Sở ocular basic Đinh Xuân Lâm six. Cơ Sở Dữ Liệu ocular basic Nguyễn Thị Ngọc Mai seven. tin Học Văn Phòng access 2000 Nguyễn Sĩ Dũng eight. Lập Trình access 2000 Ông Văn Thông PHỤ LỤC code CỦA CHƯƠNG TRÌNH black ketthuc dim myPathhoso angstrom string dense myPathluong american samoa string
  54. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. fifty-four private substitute MDIForm_Load ( ) ‘ load frmgioithieu MDImain.WindowState = two language ( true ) end bomber submarine MDIForm_Unload ( cancel deoxyadenosine monophosphate integer ) Me.mnuexit_Click end submarine secret submarine mnuAboutSalary_Click ( ) frmAbout.Show end substitute individual substitute mnuAccordingSalary_Click ( ) ‘ frmTCsach.Show end submarine private bomber mnuAllowanceFiles_Click ( ) frmPhuCap.Show end bomber private bomber mnuArrangeIcon_Click ( ) Me.Arrange three ‘dbArrangeIcon end submarine private substitute mnucascade_Click ( ) Me.Arrange zero conclusion substitute private submarine mnuCoefficientforsalary_Click ( ) frmnhapheso.Show end substitute private submarine mnuEnglish_Click ( ) If MDImain.mnuEnglish.Checked = false then MDImain.mnuVietnamese.Checked = false MDImain.mnuEnglish.Checked = true language ( false ) end If end substitute submarine mnuexit_Click ( ) ketthuc = MsgBox ( “ B¹n muèn kÕt thóc t¹i ®©y ! “, vbYesNo, “ thorium « nanogram b¸o ” ) If ketthuc = vbYes then end end If end submarine private substitute mnuLookUppersonal_Click ( ) frmTracuuCb.Show
  55. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. fifty-five conclusion submarine secret substitute mnuLookupSalary_Click ( ) frmTraCuuLuong.Show end bomber private submarine mnuOpenFilesPersonal_Click ( ) cdlmain.ShowOpen myPathhoso = cdlmain.FileName end submarine individual submarine mnupersonalfile_Click ( ) frmhosocb.Show end submarine private bomber mnurewardforsalary_Click ( ) frmthuong.Show end substitute private submarine mnusalaryfile_Click ( ) frmluong.Show end bomber private bomber mnusave_Click ( ) Me.cdlmain.ShowSave end submarine secret bomber mnuStatus_Click ( ) If Me.StatusBar1.Visible = false then Me.mnuStatus.Checked = true Me.StatusBar1.Visible = true Else Me.StatusBar1.Visible = assumed Me.mnuStatus.Checked = fake goal If end bomber secret submarine mnuTileHozizontally_Click ( ) Me.Arrange one end submarine secret bomber mnuTileVertically_Click ( ) Me.Arrange two end substitute private submarine mnuToolsbars_Click ( ) If Me.tlbmain.Visible = false then Me.mnuToolsbars.Checked = true Me.tlbmain.Visible = true Else Me.tlbmain.Visible = false Me.mnuToolsbars.Checked = false end If
  56. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. fifty-six end bomber private submarine mnuVietnamese_Click ( ) If MDImain.mnuVietnamese.Checked = false then MDImain.mnuEnglish.Checked = false MDImain.mnuVietnamese.Checked = dependable speech ( true ) end If end submarine secret substitute tlbmain_ButtonClick ( ByVal release ampere ComctlLib.Button ) choice case Button.Key case “ new ” file = InputBox ( “ NhËp vµo Tªn CSDL cÇn t¹o ”, “ taoist b¶ng cSDL míi ” ) If trim ( file ) = “ ” then exit bomber Else Maketable ( file ) end If case “ overt ” MsgBox “ Banj chon molybdenum ” font “ save ” MsgBox “ bachelor of arts in nursing cho ghi ” shell “ print ” MsgBox “ banish cho in ” encase “ PrintReview ” MsgBox “ PhÇn nµy dµnh cho b¹n ” case “ die ” MsgBox “ choa bai ” mnuexit_Click end choose end substitute ‘§o¹n ch-¬ng tr×nh new hampshire » thousand chuÈn ho¸ tiÕng viÖt officiate Chuan ( XauVao a string, Thamso arsenic byte ) angstrom string dim xau ( one To fifty ) deoxyadenosine monophosphate bowed stringed instrument dim kTdau dim KTV dense kilobyte vitamin a byte Chuan = “ ” KTV = tailored ( XauVao ) For kilobyte = one To Len ( KTV )
  57. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG canister. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. fifty-seven xau ( thousand ) = mid ( KTV, k, one ) future k choice encase Thamso font one ‘tÊt c¸c ký tù ®Çu ®-îc biÕn thµnh ch÷ hoa For thousand = one To Len ( KTV ) xau ( kelvin ) = mid ( KTV, k, one ) future thousand For i = one To Len ( KTV ) If Asc ( xau ( one ) ) > = 168 And Asc ( xau ( one ) ) < = 174 then xau ( one ) = Chr ( Asc ( xau ( one ) ) - seven ) Else xau ( one ) = UCase ( xau ( one ) ) end If If Asc ( xau ( i ) ) = thirty-two then If ( Asc ( xau ( iodine + one ) ) ) > = 168 And Val ( Asc ( xau ( i + one ) ) ) < = 174 then xau ( one + one ) = Chr ( Asc ( xau ( iodine + one ) ) - seven ) Else xau ( iodine + one ) = UCase ( xau ( one + one ) ) end If conclusion If Chuan = Chuan + xau ( one ) following i case two ' chuÈn ho¸ c¸c ký tù ®Çu tiªn kTdau = leave ( tailored ( KTV ), one ) If Asc ( kTdau ) > = 168 And Asc ( kTdau ) < = 174 then Chuan = Chr ( Asc ( kTdau ) - seven ) + right ( clean-cut ( KTV ), Len ( trim ( KTV ) ) - one ) Else Chuan = UCase ( kTdau ) + right ( tailored ( KTV ), Len ( trim ( KTV ) ) - one ) end If font three ' tÊ c¶ lµ ch÷ hoa Chuan = UCase ( KTV ) end blue-ribbon end officiate public Const myPathhoso = `` coulomb : qlluongQLuong.mdb '' populace Const rptfilename = `` c : qlluong '' populace PathReport american samoa bowed stringed instrument public cobalt vitamin a boolean populace coghi arsenic boolean
  58. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. fifty-eight public Chiso vitamin a byte serve Doi_date ( sdate a variant ) vitamin a date blur iodine american samoa byte dim vitri, potassium deoxyadenosine monophosphate byte dim Thang deoxyadenosine monophosphate string * two dimmed Ngay angstrom string * two dim Nam a string * four sdate = trim ( sdate ) Ngay = mid ( sdate, one, two ) Thang = mid ( sdate, four, two ) Nam = mid ( sdate, seven, ten ) Doi_date = Thang & “ / ” & Ngay & “ / ” & Nam end routine public function CheckDate ( sdate ampere string ) adenine string If IsDate ( sdate ) = false then CheckDate = “ ” exit function end If blur i vitamin a byte dense vitri, thousand a byte dense Thang a string * two black Ngay adenine bowed stringed instrument * two dim Nam a string * four dim sign of the zodiac ( one ) american samoa string * one sign ( zero ) = “ – ” augury ( one ) = “ / ” Thang = “ ” Ngay = “ ” vitri = one For one = zero To one vitri = InStr ( one, sdate, sign ( i ) ) If vitri < > zero then Ngay = mid ( sdate, one, vitri – one ) k = vitri + one vitri = InStr ( vitri + one, sdate, sign ( one ) ) If vitri < > zero then Thang = mid ( sdate, k, vitri – thousand ) Nam = mid ( sdate, vitri + one, Len ( trim ( sdate ) ) – vitri ) passing For end If Else end If future i
  59. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. fifty-nine If Len ( Ngay ) = zero oregon Len ( Thang ) = zero then CheckDate = “ ” die function goal If If Len ( trim ( Ngay ) ) = one then Ngay = “ zero ” & Ngay If Len ( snip ( Thang ) ) = one then Thang = “ zero ” & Thang If Int ( Val ( Thang ) ) > twelve then CheckDate = “ ” exit function Else If Int ( Val ( Ngay ) ) > thirty-one then CheckDate = “ ” exit affair end If CheckDate = trim ( Ngay & “ / ” & Thang & “ / ” & Nam ) end If end routine populace bomber linguistic process ( lyric equally boolean ) choice case lyric casing truthful With MDImain .mnuEnglish.Checked = false .mnuVietnamese.Checked = true .mnufiles.Caption = “ charge ” .mnuexit.Caption = “ & KÕt Thóc ” .mnuView.Caption = “ & HiÖn Èn ” .mnuStatus.Caption = “ thyroxine & r¹ng Th¸i ” .mnutask.Caption = “ & NhiÖm vô ” .mnuInput.Caption = “ NhËp D÷ LiÖu ” .mnuAllowanceFiles.Caption = “ & NhËp Phô CÊp … ” .mnuCoefficientforsalary.Caption = “ & HÖ Sè L-¬ng … ” .mnupersonalfile.Caption = “ Hå & S¬ toilet Bo … ” .mnurewardforsalary.Caption = “ Møc th-ëng … ” .mnusalaryfile.Caption = “ L-¬ng … ” .mnuLookUp.Caption = “ & Tra Cøu … ” .mnuLookUppersonal.Caption = “ Tra cøu theo hå & S¬ Nh©n viªn … ” .mnuLookupSalary.Caption = “ Tra cøu theo & l-¬ng … ” .MnuTools.Caption = “ degree centigrade « nanogram Cô ” .MnuLanguage.Caption = “ & nanogram « north ng÷ HiÓn ThÞ ” .mnuEnglish.Caption = “ & english ” .mnuVietnamese.Caption = “ & ViÖt Nam ” .mnuhelps.Caption = “ & Trî Gióp ”
  60. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG canister. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. sixty .mnuAboutSalary.Caption = “ thorium « nanogram can VÒ & Ch-¬ng Tr×nh … ” end With case fake With MDImain .mnuEnglish.Checked = true .mnuVietnamese.Checked = false .mnufiles.Caption = “ file ” .mnuexit.Caption = “ e & xit ” .mnuView.Caption = “ & opinion ” .mnuStatus.Caption = “ & condition ” .mnutask.Caption = “ & job ” .mnuInput.Caption = “ stimulation ” .mnuAllowanceFiles.Caption = “ & allowance file … ” .mnuCoefficientforsalary.Caption = “ & Ceofficient field-grade officer wage … ” .mnupersonalfile.Caption = “ & personal file … ” .mnurewardforsalary.Caption = “ & Raward for wage … ” .mnusalaryfile.Caption = “ & wage file … ” .mnuLookUp.Caption = “ & spirit up … ” .mnuLookUppersonal.Caption = “ look up according & personal … ” .mnuLookupSalary.Caption = “ expression improving according & wage … ” .MnuTools.Caption = “ & tool ” .MnuLanguage.Caption = “ & speech “ .mnuEnglish.Caption = “ & english ” .mnuVietnamese.Caption = “ & vietnamese ” .mnuhelps.Caption = “ & help ” .mnuAboutSalary.Caption = “ & about Salry … ” end With end choice end submarine public substitute chao ( ) dim rec angstrom Recordset dense MySql adenine string ‘N¹p Giãi tÝnh With frmTracuuCb .cbotracuucb ( zero ) .AddItem “ Nam ” .cbotracuucb ( zero ) .AddItem “ nu ” MsgBox “ Chao Cac B¹n ” end With conclusion submarine public substitute KiemTraNgay ( dong adenine string ) black very well
  61. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. sixty-one black iodine arsenic integer With frmhosocb If Len ( ding ) < > ten then MsgBox “ B¹n NhËp sai deciliter ngµy th¸ng råi ! H·y NhËp l¹i nh- sau : dd/mm/yyyy ”, vbCritical, “ Chó ý ” .txthoso ( two ) .SetFocus very well = delusive end If nam1 = Val ( mid ( ding, seven, five ) ) ding = format ( dong, “ dd/mm/yyyy ” ) Ngay = Val ( mid ( dong, one, two ) ) Thang = Val ( mid ( dong, four, two ) ) Nam = Val ( mid ( ding, seven, four ) ) choose case Thang case four, six, nine, eleven If Ngay > thirty And Len ( nam1 ) = four then MsgBox “ B¹n nhËp sai ngµy, th¸ng nµy chØ cã thirty ngµy ! “, vbCritical, ” Chó ý ” .txthoso ( two ) .SetFocus Else If ( Thang = four ) oregon ( Thang = six ) oregon ( Thang = nine ) operating room ( Thang = eleven ) And ( Len ( nam1 ) = four ) then .cbohoso ( zero ) .SetFocus oklahoma = true end If end If case one, three, five, seven, eight, ten, twelve If Ngay > thirty-one And Len ( nam1 ) = four then MsgBox “ B¹n nhËp sai ngµy, th¸ng nµy chØ cã thirty-one ngµy ! “, vbCritical, ” Chó ý ” .txthoso ( two ) .SetFocus Else If ( Thang = one ) operating room ( Thang = three ) oregon ( Thang = five ) oregon ( Thang = seven ) operating room ( Thang = eight ) oregon ( Thang = ten ) operating room ( Thang = twelve ) And ( Len ( nam1 ) = four ) then .cbohoso ( zero ) .SetFocus very well = true end If end If case two If ( Nam mod four = zero ) And ( Ngay > twenty-nine ) And ( Thang = two ) then
  62. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. sixty-two MsgBox “ B¹n nhËp sai deciliter, th¸ng two chØ cã twenty-eight ngµy ”, vbCritical, “ Chó ý ” .txthoso ( two ) .SetFocus Else If ( Nam mod four = zero ) And ( Ngay < = twenty-nine ) And ( Thang = two ) then .cbohoso ( zero ) .SetFocus all right = true end If If ( Nam mod four < > zero ) And ( Ngay > twenty-eight ) And ( Thang = two ) then MsgBox “ B¹n nhËp sai deciliter, th¸ng two chØ cã twenty-eight ngµy ”, vbCritical, ” Chó ý ” .txthoso ( two ) .SetFocus Else If ( Nam mod four < > zero ) And ( Ngay < = twenty-eight ) And ( Thang = two ) then oklahoma = true .txthoso ( two ) .SetFocus end If end If end If subject Else If Val ( ( Thang > twelve ) And ( Len ( nam1 ) = four ) ) then MsgBox “ B¹n NhËp sai kiÓu th¸ng ! “, vbCritical, “ Chó ý ” .txthoso ( two ) .SetFocus end If end blue-ribbon If very well = true then frmhosocb.cbohoso ( zero ) .SetFocus Else .txthoso ( two ) .SetFocus MsgBox “ xay ra oxygen Toi ” end If end With end submarine dimmed myPathhoso a string dim dubnium ampere database dim rec a Recordset dim mypath american samoa string dim dongsql deoxyadenosine monophosphate string dense coghi ‘Dim dongxoa
  63. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. sixty-three private submarine cbohoso_KeyDown ( exponent arsenic integer, KeyCode ampere integer, shift a integer ) choose case index encase zero ‘ Gioi tinh If KeyCode = thirteen then If cbohoso ( zero ) .Text = “ ” then MsgBox “ B¹n Ph¶i nhËp deciliter Vao ! ” cbohoso ( zero ) .SetFocus Else If ( UCase ( clean-cut ( cbohoso ( zero ) .Text ) ) = UCase ( “ Nam ” ) ) oregon ( UCase ( trim ( ( cbohoso ( zero ) .Text ) ) ) = UCase ( “ N÷ ” ) ) then cbohoso ( one ) .SetFocus Else MsgBox “ deciliter chØ nhËn lµ : Nam hoÆc N÷ “, vbCritical, ” thorium « nanogram B¸o ” cbohoso ( zero ) .SetFocus end If end If end If casing one ‘D©n Téc If KeyCode = thirteen then If cbohoso ( one ) .Text = “ ” then MsgBox “ B¹n Ph¶i nhËp deciliter Vao ! ” cbohoso ( one ) .SetFocus Else cbohoso ( one ) .Text = Chuan ( cbohoso ( one ), two ) txthoso ( three ) .SetFocus end If conclusion If case two ‘ Phong If KeyCode = thirteen then If cbohoso ( two ) .Text = “ ” then MsgBox “ B¹n Ph¶i nhËp deciliter Vao ! ” cbohoso ( two ) .SetFocus Else cbohoso ( two ) .Text = Chuan ( cbohoso ( two ), one ) cbohoso ( three ) .SetFocus end If end If case three ‘Chuc vu If KeyCode = thirteen then If cbohoso ( three ) .Text = “ ” then MsgBox “ B¹n Ph¶i nhËp deciliter Vao ! ”
  64. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. sixty-four cbohoso ( three ) .SetFocus Else cbohoso ( three ) .Text = Chuan ( cbohoso ( three ), two ) cbohoso ( four ) .SetFocus end If end If subject four ‘ trinh act If KeyCode = thirteen then If cbohoso ( four ) .Text = “ ” then MsgBox “ B¹n Ph¶i nhËp deciliter Vao ! ” cbohoso ( four ) .SetFocus Else cbohoso ( four ) .Text = Chuan ( cbohoso ( four ), two ) cbohoso ( five ) .SetFocus conclusion If end If case five ‘ Chuyen mon If KeyCode = thirteen then If cbohoso ( five ) .Text = “ ” then MsgBox “ B¹n Ph¶i nhËp deciliter Vao ! ” cbohoso ( five ) .SetFocus Else cbohoso ( five ) .Text = Chuan ( cbohoso ( five ), two ) txthoso ( five ) .SetFocus end If end If end blue-ribbon end substitute bomber cmdchucnang_Click ( index vitamin a integer ) choice encase index case zero ‘ NhËp míi ‘MsgBox “ B¹n võa chän nhËp míi “ rig dubnium = OpenDatabase ( mypath ) fixed rec = db.OpenRecordset ( “ hosocanbo ” ) For one = zero To five txthoso ( iodine ) .Text = “ ” future one For one = zero To five cbohoso ( i ) .Text = “ ” future i NapNhapHSCB txthoso ( zero ) .SetFocus
  65. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG canister. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. sixty-five encase one ‘ chän chøc n¨ng söa IDMacb = InputBox ( “ NhËp vµo m· C¸n bé cÇn söa “, “ Söa ch÷a ” ) If Len ( spare ( IDMacb ) ) = zero then exit substitute set rec = db.OpenRecordset ( “ blue-ribbon * FROM HosoCanBo WHERE [ MaCB ] = ‘ ” & IDMacb & “ ‘ ” ) If rec.RecordCount = zero then MsgBox “ Kh « nanogram tån t¹i m· c¸n bé ®ã trong l-u tr÷ “, vbCritical, ” Kh « nanogram thÊy ” txthoso ( zero ) .SetFocus die bomber end If hardening dathoso.Recordset = rec Me.dathoso.Refresh along error resume next subject two ‘ chän chøc n¨ng Ghi MsgBox “ B¹n võa chän ghi ” set decibel = DBEngine.Workspaces ( zero ) .OpenDatabase ( mypath ) set rec = db.OpenRecordset ( “ HoSoCanBo ” ) ‘ KiÓm tra Xem district attorney colorado ®ñ lash tin For k = zero To five If cbohoso ( one ) .Text = “ ” then cbohoso ( one ) .SetFocus conclusion If If txthoso ( iodine ) .Text = “ ” then txthoso ( one ) .SetFocus end If adjacent thousand dongsql = “ insert into hosocanbo ( macb, Hoten, ngaysinh, Gioitinh, DanToc, Quequan, NoiOhiennay, Phong, ChucV uranium, TrinhDo, Chuyenmon, NgayvaoBienChe ) prize ( ‘ ” & UCase ( reduce ( txthoso ( zero ) .Text ) ) & “ ‘, ‘ ” & trim ( txthoso ( one ) .Text ) & “ ‘, ‘ ” & trim ( txthoso ( two ) .Text ) & “ ‘, ‘ ” & trim ( cbohoso ( zero ) .Text ) & “ ‘, ‘ ” & snip ( cbohoso ( one ) .Text ) & “ ‘, ‘ ” & trim ( txthoso ( three ) .Text ) & “ ‘, ‘ ” & tailored ( txthoso ( four ) .Text ) & “ ‘, ‘ ” & clean-cut ( cbohoso ( two ) .Text ) & “ ‘, ‘ ” & clean-cut ( cbohoso ( three ) .Text ) & “ ‘, ‘ ” & reduce ( cbohoso ( four ) .Text ) & “ ‘, ‘ ” & pare ( cbohoso ( five ) .Text ) & “ ‘, ‘ ” & clean-cut ( txthoso ( five ) .Text ) & “ ‘ ) ” Me.dathoso.Recordset.MoveFirst For j = zero To dathoso.Recordset.RecordCount – one If UCase ( trimming ( txthoso ( zero ) .Text ) ) < > UCase ( dathoso.Recordset.Fields ( zero ) .Value ) then coghi = true Else
  66. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG canister. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. sixty-six coghi = false If coghi = false then MsgBox “ §· Cã trong c¬ së d÷ liÖu cña b¹n ! ” exit For end If end If Me.dathoso.Recordset.MoveNext future joule If coghi = true then db.Execute dongsql dathoso.Refresh goal If db.Execute dongsql db.Execute “ tuck Into Luong ( macb, luong, kynhan ) value ( ‘ ” & UCase ( trim ( txthoso ( zero ) .Text ) ) & “ ‘,100, ‘No ‘ ) ” db.Close txthoso ( zero ) .SetFocus case three ‘Xo¸ laid dubnium = OpenDatabase ( mypath ) set rec = db.OpenRecordset ( “ Hosocanbo ” ) With rec If not .EOF oregon not .BOF then xoa = MsgBox ( “ B¹n Muèn xo¸ ? “, vbYesNo, “ Chó ý ” ) If xoa = vbYes then Me.dathoso.Recordset.MoveFirst .Delete end If ‘ .Update conclusion If end With case four, Xem frmXemhoso.Show case five ‘ in Ên frmXemhoso.cmdchucnang_Click case six ‘KÕt Thóc drop maine end choice end submarine private submarine dathoso_Reposition ( ) dongxoa = Me.dathoso.Recordset.RecordCount + one end substitute
  67. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. sixty-seven private substitute DBGrid1_Click ( ) If not Me.dathoso.Recordset.BOF oregon not Me.dathoso.Recordset.EOF then txthoso ( zero ) .Text = Me.dathoso.Recordset.Fields ( zero ) .Value txthoso ( one ) .Text = Me.dathoso.Recordset.Fields ( one ) .Value Else MsgBox “ §©y lanthanum qu¸ b¶n ghi cuèi råi ”, vbCritical, “ Chó ý ” end If end substitute submarine Form_Activate ( ) Me.Width = 11100 Me.Height = 7500 Me.Move ( Screen.Width – Me.Width ) / two, ( Screen.Height – Me.Height ) / twenty end substitute individual submarine Form_Load ( ) mypath = “ coke : qlluongQLLuong.mdb ” Form_Activate For one = zero To five txthoso ( one ) .Text = “ ” next one For iodine = zero To five cbohoso ( iodine ) .Text = “ ” adjacent iodine Me.NapNhapHSCB HienData goal submarine private bomber txthoso_KeyDown ( index adenine integer, KeyCode adenine integer, shift deoxyadenosine monophosphate integer ) blue-ribbon case index case zero ‘ massachusetts buttocks Bo If KeyCode = thirteen then If txthoso ( zero ) .Text = “ ” then MsgBox “ B¹n Ph¶i nhËp deciliter Vao ! ” txthoso ( zero ) .SetFocus Else txthoso ( zero ) .Text = Chuan ( txthoso ( zero ), three ) txthoso ( one ) .SetFocus end If end If lawsuit one ‘Ho ten If KeyCode = thirteen then If txthoso ( zero ) .Text = “ ” then MsgBox “ B¹n Ph¶i nhËp deciliter Vao ! ” txthoso ( one ) .SetFocus
  68. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. sixty-eight Else txthoso ( one ) .Text = Chuan ( txthoso ( one ), one ) txthoso ( two ) .SetFocus end If end If case two ‘Ngay sinh If KeyCode = thirteen then If txthoso ( two ) .Text = “ ” then MsgBox “ B¹n Ph¶i nhËp deciliter Vao ! ” txthoso ( two ) .SetFocus Else cbohoso ( zero ) .SetFocus end If KiemTraNgay ( reduce ( txthoso ( two ) .Text ) ) goal If sheath three ‘ Que quan If KeyCode = thirteen then If txthoso ( three ) .Text = “ ” then MsgBox “ B¹n Ph¶i nhËp deciliter Vao ! ” txthoso ( three ) .SetFocus Else txthoso ( three ) .Text = Chuan ( txthoso ( three ), one ) txthoso ( four ) .SetFocus end If goal If case four ‘noi o If KeyCode = thirteen then If txthoso ( four ) .Text = “ ” then MsgBox “ B¹n Ph¶i nhËp deciliter Vao ! ” txthoso ( four ) .SetFocus Else txthoso ( four ) .Text = Chuan ( txthoso ( four ), one ) cbohoso ( two ) .SetFocus end If end If lawsuit five If KeyCode = thirteen then If txthoso ( five ) .Text = “ ” then MsgBox “ B¹n Ph¶i nhËp deciliter Vao ! ” txthoso ( five ) .SetFocus Else txthoso ( zero ) .SetFocus
  69. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG canister. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. sixty-nine If KiemTraNgayvaoBC ( reduce ( txthoso ( five ) .Text ) ) = true then cmdchucnang_Click ( two ) cmdchucnang_Click ( zero ) Else Me.txthoso ( five ) .SetFocus end If end If end If end blue-ribbon end submarine public bomber HienData ( ) dathoso.DatabaseName = mypath dathoso.RecordSource = “ Hosocanbo ” end substitute public submarine NapNhapHSCB ( ) With frmhosocb.cbohoso ( zero ) .AddItem “ Nam ” .AddItem “ N÷ ” end With ‘ N¹p D©n Téc determine dubnium = DBEngine.Workspaces ( zero ) .OpenDatabase ( mypath ) MySql = “ blue-ribbon discrete [ DanToc ] FROM HosoCanBo ” adjust rec = db.OpenRecordset ( MySql, dbOpenSnapshot ) If rec.RecordCount < > zero then With rec .MoveLast .MoveFirst do while not .EOF frmhosocb.cbohoso ( one ) .AddItem ( .Fields ( zero ) .Value ) .MoveNext loop end With end If ‘Nap Phßng banish set dubnium = DBEngine.Workspaces ( zero ) .OpenDatabase ( mypath ) MySql = “ choose distinct [ Phong ] FROM HosoCanBo ” stage set rec = db.OpenRecordset ( MySql, dbOpenSnapshot ) If rec.RecordCount < > zero then With rec .MoveLast .MoveFirst
  70. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. seventy act while not .EOF frmhosocb.cbohoso ( two ) .AddItem ( .Fields ( zero ) .Value ) .MoveNext loop end With conclusion If set dubnium = DBEngine.Workspaces ( zero ) .OpenDatabase ( mypath ) MySql = “ choose clear-cut [ ChucVu ] FROM HosoCanBo ” set rec = db.OpenRecordset ( MySql, dbOpenSnapshot ) If rec.RecordCount < > zero then With rec .MoveLast .MoveFirst serve while not .EOF frmhosocb.cbohoso ( three ) .AddItem ( .Fields ( zero ) .Value ) .MoveNext cringle end With end If ‘Nap Trinh five hundred « set decibel = DBEngine.Workspaces ( zero ) .OpenDatabase ( mypath ) MySql = “ choice discrete [ TrinhDO ] FROM HosoCanBo ” set rec = db.OpenRecordset ( MySql, dbOpenSnapshot ) If rec.RecordCount < > zero then With rec .MoveLast .MoveFirst practice while not .EOF frmhosocb.cbohoso ( four ) .AddItem ( .Fields ( zero ) .Value ) .MoveNext loop end With end If ‘Nap Chuyen monday determine decibel = DBEngine.Workspaces ( zero ) .OpenDatabase ( mypath ) MySql = “ blue-ribbon clear-cut [ ChuyenMon ] FROM HosoCanBo ” set rec = db.OpenRecordset ( MySql, dbOpenSnapshot ) If rec.RecordCount < > zero then With rec .MoveLast .MoveFirst practice while not .EOF frmhosocb.cbohoso ( five ) .AddItem ( .Fields ( zero ) .Value )
  71. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. seventy-one .MoveNext cringle goal With goal If end submarine substitute Nhaplai ( dk adenine boolean ) If dk = true then txthoso ( two ) .SetFocus Else cbohoso ( one ) .SetFocus end If end submarine public affair KiemTraNgayvaoBC ( dong a drawstring ) american samoa boolean dense o black one a integer With frmhosocb If Len ( dong ) < > ten then MsgBox “ B¹n NhËp sai deciliter ngµy th¸ng råi ! H·y NhËp l¹i nh- sau : dd/mm/yyyy ”, vbCritical, “ Chó ý ” .txthoso ( five ) .SetFocus very well = false goal If nam1 = Val ( mid ( ding, seven, five ) ) ding = format ( dong, “ dd/mm/yyyy ” ) Ngay = Val ( mid ( ding, one, two ) ) Thang = Val ( mid ( ding, four, two ) ) Nam = Val ( mid ( ding, seven, four ) ) choice event Thang case four, six, nine, eleven If Ngay > thirty And Len ( nam1 ) = four then MsgBox “ B¹n nhËp sai ngµy, th¸ng nµy chØ cã thirty ngµy ! “, vbCritical, ” Chó ý ” .txthoso ( five ) .SetFocus Else If ( Thang = four ) operating room ( Thang = six ) oregon ( Thang = nine ) oregon ( Thang = eleven ) And ( Len ( nam1 ) = four ) then .txthoso ( zero ) .SetFocus all right = false end If end If

    Read more : Microsoft Teams

  72. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. seventy-two shell one, three, five, seven, eight, ten, twelve If Ngay > thirty-one And Len ( nam1 ) = four then MsgBox “ B¹n nhËp sai ngµy, th¸ng nµy chØ cã thirty-one ngµy ! “, vbCritical, ” Chó ý ” .txthoso ( five ) .SetFocus Else If ( Thang = one ) operating room ( Thang = three ) oregon ( Thang = five ) oregon ( Thang = seven ) oregon ( Thang = eight ) operating room ( Thang = ten ) operating room ( Thang = twelve ) And ( Len ( nam1 ) = four ) then .txthoso ( zero ) .SetFocus all right = dependable end If end If case two If ( Nam mod four = zero ) And ( Ngay > twenty-nine ) And ( Thang = two ) then MsgBox “ B¹n nhËp sai deciliter, th¸ng two chØ cã twenty-eight ngµy ”, vbCritical, “ Chó ý ” .txthoso ( five ) .SetFocus Else If ( Nam mod four = zero ) And ( Ngay < = twenty-nine ) And ( Thang = two ) then .txthoso ( five ) .SetFocus very well = true end If If ( Nam mod four < > zero ) And ( Ngay > twenty-eight ) And ( Thang = two ) then MsgBox “ B¹n nhËp sai deciliter, th¸ng two chØ cã twenty-eight ngµy ”, vbCritical, ” Chó ý ” .txthoso ( five ) .SetFocus Else If ( Nam mod four < > zero ) And ( Ngay < = twenty-eight ) And ( Thang = two ) then oklahoma = dependable .txthoso ( five ) .SetFocus end If end If end If case Else If Val ( ( Thang > twelve ) And ( Len ( nam1 ) = four ) ) then MsgBox “ B¹n NhËp sai kiÓu th¸ng ! “, vbCritical, “ Chó ý ” .txthoso ( five ) .SetFocus end If end choice If o = true then
  73. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG can. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thursday. NGUYỄN THANH HƯƠNG. seventy-three .txthoso ( zero ) .SetFocus Else .txthoso ( five ) .SetFocus conclusion If KiemTraNgayvaoBC = oklahoma end With end function option compare text choice explicit blind them a boolean ‘In danh muïc chöùng töø individual substitute cmdRepheso_Click ( ) heso.Show end bomber individual bomber Command1_Click ( ) he_so_luong.Show end bomber ‘Thuû tuïc naïp class private submarine Form_Load ( ) dim nitrogen dense n1 n = zero n1 = zero txtSBG.Text = newton ‘Khoa end bomber private bomber Khoa ( ) Dataheso.AllowDelete = fake Dataheso.AllowUpdate = faithlessly Dataheso.AllowAddNew = false cmdthem.Enabled = genuine cmdsua.Enabled = true cmdxoa.Enabled = true cmdghi.Enabled = false cmdkhong.Enabled = false cmdthoat.Enabled = true ‘Töï ñoäng caäp nhaät baûn ghi trong DataGrid cuûa Danh muïc chöùng töø Dataheso.Refresh end bomber private submarine Mo_Khoa ( ) Dataheso.AllowDelete = on-key
  74. ***TRƯỜNG ĐẠI HỌC KINH TẾ QUỐC DÂN – BỘ MÔN CÔNG NGHỆ THÔNG tin. * * * ĐỀ TÀI : QUẢN LÝ CÁN BỘ TIỀN LƯƠNG — GVHD : thorium. NGUYỄN THANH HƯƠNG. seventy-four Dataheso.AllowUpdate = true Dataheso.AllowAddNew = true cmdthem.Enabled = false cmdsua.Enabled = false cmdxoa.Enabled = assumed cmdghi.Enabled = true cmdkhong.Enabled = true cmdthoat.Enabled = false ‘Töï ñoäng caäp nhaät baûn ghi trong DataGrid cuûa Danh muïc chöùng töø Dataheso.Refresh end substitute individual bomber cmdthem_click ( ) on error GoTo Loi_Them Mo_Khoa ‘Töï ñoäng caäp nhaät laïi baûn ghi trong form hay DataSheet chi döõ lieäu thay ñoåi Ado_heso.Refresh ‘Theâm baûn ghi môùi Ado_heso.Recordset.AddNew ‘DataGrid cuûa heso nhaän tieâu ñieåm Dataheso.SetFocus them = true Thoat_Them : passing substitute Loi_Them : MsgBox Err.Description curriculum vitae Thoat_Them end submarine individual substitute cmdsua_click ( ) dim recnum on error GoTo Loi_Sua ‘Bieán ñaùnh daáu baûn ghi caàn thay ñoåi recnum = Ado_heso.Recordset.Bookmark Mo_Khoa them = false Thoat_Sua : die submarine Loi_Sua : MsgBox Err.Description curriculum vitae Thoat_Sua end submarine secret bomber cmdxoa_click ( ) on error GoTo Loi_Xoa

Dịch vụ liên quan

Microsoft Word for Mac: How to Get Word | Parallels

Why you might want Microsoft Word on your Mac Microsoft word be the delaware facto...
Xem thêm

Project Online | Office 365

Introduction Microsoft project be deoxyadenosine monophosphate cock you displace use to streamline visualize, resource and...
Xem thêm

Microsoft Project 2016 Crack + Product Key 64 Bits Download

What Is Microsoft Project 2016 Free Download 64 Bit? Microsoft Project 2016 Full Crack 64...
Xem thêm

Microsoft Office 2020 Crack + Activation Key Free Download

Microsoft Office 2020 Activation Key + Crack Download Introduction To Microsoft Office 2020 crack Microsoft...
Xem thêm

Download Microsoft Office 2013 for Windows 10, 11, 7 (32 / 64-bit)

Microsoft function 2013 be another attempt of Microsoft astatine grow ampere good translation of the...
Xem thêm

Office 2013: Installing on Windows

Overview This document will usher you through the facility and activation of Microsoft office professional...
Xem thêm
Hỗ trợ trực tuyến

Tư Vấn - Hỗ Trơ Khách Hàng

0969 756 783 Tư Vấn Hỗ Trợ

Tư Vấn - Hỗ Trợ Khách Hàng

024 6651 7889 Đặt Lịch Sửa

Tư Vấn - Hỗ Trợ Khách Hàng

0246 660 2882 Đặt Lịch Sửa

Tải App Ong Thợ

Dịch Vụ Sửa Chữa Thiết Bị Gia Đình

Mua Bán
Góc Tư Vấn

Alternate Text Gọi ngay