Chuyên đề thực tập tốt nghiệp “phân tích thiết kế hệ thống thông tin quản lý hồ sơ cán bộ công nhân viên

Chuyên đề thực tập tốt nghiệp “phân tích thiết kế hệ thống thông tin quản lý hồ sơ cán bộ công nhân viên

Chuyên đề thực tập tốt nghiệp Lời mở đầu Chúng ta biết công nghệ thông tin ngày phát triển vũ bão toàn cầu Ở tồn giói nói chung Việt Nam nói riêng công nghệ thông tin sử dụng rộng rãi hoạt động kinh tế xã hội Công nghệ thông tin trở thành nghành quan trọng công phát triển kinh tế quốc gia Cục Doanh nghiệp nhỏ vừa(DNNVV) thuộc kế hoạch đầu tư nơi ứng dụng nghành công nghệ thông tin hoạt động cục.Tất phòng cục trang bị đầy đủ máy vi tính để thực công việc thuận tiện dặc biệt thuận tiện cơng tác quản lí Qua thời gian thực tập tìm hiểu cách thức làm việc cục DNNVV e định chọn đề tài: “Phân tích thiết kế hệ thống thơng tin quản lý hồ sơ cán công nhân viên” E hy vọng đề tài giúp cho cục DNNVV quản lí h sơ cán cơng nhân viên thuận tiện Cũng nhân viên tìm kiếm thơng tin xác thân phải làm hồ sơ hay báo cáo cho lãnh đạo cách nhanh gọn xác Em xin cám ơn thầy giáo Phùng Tiến Hải anh chị cục DNNVV giúp em hoàn thành đề tài này! SV: Nhâm Anh Đào Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp Chương 1: Giới thiệu chung cục Doanh nghiệp nhỏ vừa thuộc kế hoạch đầu tư đề tài “Quản lí hồ sơ cán công nhân viên cục doanh nghiệp nhỏ vừa thuộc kế hoạch đầu tư” Cơ cấu tổ chức cục doanh nghiệp nhỏ vừa(DNNVV) 1.1 Giới thiệu chung cục DNNVV 1.1.1 Chức Cục Phát triển DNNVV thuộc Bộ Kế hoạch Đầu tư, giúp Bộ trưởng thực chức quản lý xúc tiến phát triển doanh nghiệp nhỏ vừa, đăng ký kinh doanh, khuyến khích đầu tư xếp, đổi phát triển doanh nghiệp nhà nước 1.1.2 Nhiệm vụ - Xây dựng kế hoạch phát triển DNN&V, hướng dẫn địa phương xây dựng kế hoạch hỗ trợ giúp phát triển DNN&V - Xây dựng chương trình trợ giúp Nhà nước, hướng dẫn, theo dõi việc thực chương trình hỗ trợ sau duyệt - Theo dõi việc thực sách hỗ trợ giúp DNN&V bộ, ngành địa phương Định kỳ sáu tháng, tổng hợp báo cáo việc phát triển DNN&V đề xuất giải pháp cần thiết để - Phối hợp với quan,để cung cấp thông tin cần thiết xúc tiến trợ giúp DNN&V việc tư vấn kỹ thuật tiếp cận công nghệ, trang thiết bị mới, hướng dẫn, đào tạo vận hành, quản lý kỹ thuật quản lý doanh nghiệp Bộ máy tổ chức cục - Cục trưởng - Các phòng ban - Phòng hợp tác quốc tế - Trung tâm thong tin doanh nghiệp - Phòng xúc tiến DNNVV - Trung tâm hỗ trợ DNNVV(Hà Nội, Đà Nẵng, TP Hồ Chí Minh) SV: Nhâm Anh Đào Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp -Văn phòng cục - Phịng đăng kí kinh doanh - Phịng tổng hợp khuyến khích đầu tư nước - Phịng xếp đổi doanh nghiệp nhỏ vừa - Sơ đồ tổ chức máy cục Chức phòng 1.2.1 Văn phòng cục Chỉ đạo hoạt động cục 1.2.2 Phòng hợp tác quốc tế 1.2.2.1.Chức Phịng Hợp tác quốc tế có trách nhiệm giúp Lãnh đạo Cục lĩnh vực hợp tác quốc tế thuộc chức nhiệm vụ Cục 1.2.2.2 Nhiệm vụ Quan hệ đối ngoại Phịng có nhiệm tổ chức hoạt động đối ngoại liên quan đến quảng bá vai trò Cục tăng cường hợp tác với nhà tài trợ đơn vị chủ trì/ điều phối thực gặp gỡ, hội thảo quốc tế Cục; có thực nhiệm vụ khác ví dụ hoạt động ngoại giao, tổ chức chuyến đào tạo, nước Lên kế hoạch triển khai, giám sát hoạt động hợp tác quốc tế SV: Nhâm Anh Đào Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp Phòng đơn vị đầu mối hoạt động hợp tác quốc tế Cục bao gồm việc đầu mối hoạt động DNNVV liên quan đến ASEAN – APEC, tổ chức song phương đa phương Phịng chịu có phân tích tính hiệu việc tài trợ quốc tế, theo dõi xu hướng nhà tài trợ hoạt động việc phát triển DNNVV tư nhân nước Phòng hỗ trợ quan, hiệp hội, doanh nghiệp quan địa phương thông qua việc đánh giá nhu cầu họ phát triển DNNVV lượng hóa nhu cầu hỗ trợ giúp quốc tế cần thiết 1.2.3 Trung tâm thông tin doanh nghiệp Chức Trung tâm thông tin doanh nghiệp đơn vị cung cấp thơng tin ĐKKD doanh nghiệp tồn quốc Nhiệm vụ -Quản trị cổng thông tin doanh nghiệp Cổng thông tin doanh nghiệp cung cấpcác thông tin hữu ích cho nhà đầu tư nước quốc tế, cho doanh nghiệp, đặc biệt cho DNNVV kinh doanh có kế hoạch kinh doanh Việt Nam -Quản trị Mạng thông tin doanh nghiệp quốc gia gồm có 64 Phịng ĐKKD cấp tỉnh/TP có 10 tỉnh kết nối NBIN NBIN hệ thống bao gồm thông tin ĐKKD DN Việt nam hoạt động theo Luật Doanh nghiệp -Tham gia việc phát triển chương trình thơng tin cho DNNVV -Tham gia công việc xây dựng lực thông tin cho thể chế sở hạ tầng hỗ trợ DNNVV cấp quốc gia cấp tỉnh 1.2.4 Phòng xúc tiến DNNVV 1.2.4.1 Chức Phòng Xúc tiến phát triển doanh nghiệp thuộc Cục Phát triển DNNVV thực chức điều phối, chuẩn bị sách chương trình xúc tiến, phát triển DNNVV Việt Nam SV: Nhâm Anh Đào Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp 1.2.4.2 Nhiệm vụ -Đóng góp vào dự thảo cấu sách pháp lý liên quan đến q trình xúc tiến phát triển DNNVV -Theo dõi tình hình thực thể chế, sách hỗ trợ phát triển DNNVV cấp bộ, cấp ngành cấp địa phương, xây dựng kế hoạch chiến lược phát triển DNNVV -Điều phối, hướng dẫn, theo dõi công việc thực việc trợ giúp Chính phủ DNNVV -Tạo dự thảo thực kế hoạch xây dựng lực đội ngũ cán cấu hỗ trợ DNNVV - Thực việc điều phối ngànhvà quyền địa phương để thiết lập vươn ươm doanh nghiệp -Thực cơng việc phối hợp với Phịng Hợp tác quốc tế xây dựng kế hoạch, chương trình hợp tác quốc tế xúc tiến việc phát triển DNNVV bao gồm dự thảo báo cáo đánh giá sáng kiến xúc tiến, phát triển DNNVV.; -Luôn cập nhật nội dung lời khuyên cho DNNVV cho Cổng thông tin doanh nghiệp Việt Nam -Và thực việc theo dõi giúp Lãnh đạo Cục đạo hoạt động 03 Trung tâm Hỗ trợ kỹ thuật DNNVV -Chỉ đạo hoạt động cục Hướng dẫn nghiệp vụ thủ tục đăng ký kinh doanh , - Thực việc quy định chế độ báo cáo kiểm tra, theo dõi, tổng hợp tình hình thực việc đăng ký kinh doanh sau đăng ký kinh doanh doanh nghiệp địa phương nước, phối hợp xử lý vi phạm, việc thực đăng ký kinh doanh thuộc quyền Bộ -Xây dựng quản lý hệ thống thông tin doanh nghiệp phạm vi nước cung cấp thông tin doanh nghiệp cho quan có liên quan theo định kỳ, cung cấp thông tin cần thiết cho doanh nghiệp SV: Nhâm Anh Đào Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp -Và phát hành tin công bố thông tin doanh nghiệp doanh nghiệp thành lập phá sản, nội đung thay đổi đăng ký kinh doanh văn quy phạm pháp luật có liên quan đến hoạt động kinh doanh doanh nghiệp 1.2.5 Trung tâm hỗ trợ DNNVV 1.2.5.1 Chức -Có Trung tâm hỗ trợ kỹ thuật Hà Nội, Đà Nẵng TP Hồ Chí Minh thiết lập nhằm trợ giúp DNNVV nâng cao công nghệ, cải thiện chất lượng sản phẩm 1.2.5.2 Nhiệm vụ -Ba trung tâm hỗ trợ kỹ thuật DNNVV cung cấp hỗ trợ kỹ thuật tư vấn lĩnh vực đầu tư, nâng cấpcông nghệ, xúc tiến, ứng dụng thiết bị,công nghệ mới, nâng chất lượng sản phẩm -Ba trung tâm hoạt động cung cấp thơng tin lời khuyên cho DNNVV công nghệ dựa vào nhà tư vấn va nhà cung cấp công nghệ để đáp ứng nhu cầu Ba trung tâm tổ chức đào tạo thay đổi khóa học với chủ đề liên quan đến cơng nghệ xúc tiến hợp tác DNNVV với doanh nghiệp quy mô lớn hướng dẫn họ công việc chọn lựa, trì vận hành cơng nghệ 1.2.6 Phịng tổng hợp khuyến khích đầu tư nước 1.2.6.1 Chức -Phòng Tổng hợp khuyến khích đầu tư nước chịu trách nhiệm tổng hợp vấn đề chung Cục quản lý nhà nước khuyến khích đầu tư nước 1.2.6.2 Nhiệm vụ -Tổng hợp lập dự thảo báo cáo năm, kế hoạch hành động cho Cục trợ giúp Cục trưởng với vai trò Thư ký hợp tác với đơn vị khác -Trong năm 2005, Phòng đơn vị chủ đạo điều phối để lập Kế hoạch phát triển DNNVV giai đoạn 2006-2010 Phòng thực nhiệm vụ liên SV: Nhâm Anh Đào Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp quan đến hội nhập quốc tế, gia nhập Tổ chức Thương mại giới, chống độc quyền Khuyến khích đầu tư nước Tiến hành cơng việc theo dõi tình hình thực kết thực khuyến khích đầu tư nước, hợp tác với địa phương ngành liên quan để đưa quy chế thủ tục giải tư vấn để bổ sung chỉnh sửa luật quy định 1.2.7 Phòng xếp đổi Doanh nghiệp nhà nước 1.2.7.1 Chức -Phòng Sắp xếp, Đổi Doanh nghiệp nhà nước có cơng việc tham mưu giúp Lãnh đạo Cục thực chức quản lý nhà nước cấp Trung ương 1.2.7.2.Nhiệm vụ -Phòng Sắp xếp, Đổi DNNN đơn vị thuộc Cục Phát triển DNNVV có trách nhiệm xây dựng chiến lược chương trình kế hoạch xếp đổi nâng cao hiệu DNNN Phòng làm đầu mối phối hợp với đơn vị liên quan thẩm định đề án thành lập, tổ chức lại -Phòng tham gia xây dựng mục tiêu, nhiệm vụ chiến lược định hướng chiến lược phát triển, đầu tư vốn, bổ sung them vốn trình hoạt động Tổng công ty Thủ tướng định thành lập tham gia để thực Đề án thực mơ hình Cơng ty mẹ- Cơng ty con, tham gia ý kiến vào Đề án xây dựng mơ hình Tập đồn kinh tế theo dõi tham gia thực chuyển đổi DN sang cơng ty TNHH có thành viên -Phịng cịn chủ trì tham gia với đơn vị khác thực nghiên cứu, tư vấn soạn thảo văn quy phạm pháp luật chế sách DNNN liên quan đến hoạt động thành lập, sáp nhập, hợp giải thể NDNN thành lập quản lý đơn vị phụ thuộc, tổ chức quản lý chuyển DNNN thành công ty trách nhiệm hữu hạn thành viên theo Luật Doanh nghiệp, quy định đa sở hữu Phòng phối hợp với đơn vị liên quan thực Chương trình cổ phần hóa , tổng công ty nhà nước giai đoạn 2007-2010 theo Quyết định số 1729/QĐ-TTg ngày 29 tháng 12 năm 2006 Thủ tướng Chính phủ tham gia soạn thảo văn SV: Nhâm Anh Đào Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp quy phạm pháp luật theohướng dẫn chuyển đổi công ty nhà nước sang tổ chức hoạt động theo Luật Doanh nghiệp năm 2005 Công việc cần thiết mục tiêu phương pháp công việc xây dựng đề tài “quản lí hồ sơ cán cơng nhân viên 2.1 Thực tế việc quản lí hồ sơ cán cuă cục DNNVV Cục DNNVV quan thuộc Bộ kế hoạch phát triển với nhiều cán phịng ban Mỗi phịng ban lại có nhiệm vụ chức rieng công việc quản lí Và cơng việc quản lí hồ sơ cán công nhân viên cơng việc đóng vai trị quan trọng là; -Nhận hồ sơ cán nhân viên vừa tuyển dụng vào kho hồ sơ cục DNNVV -Kiểm tra thong tin cán từ kho hồ sơ có thiếu sót sửa chữa -Cập nhật thong tin kịp thời cán nghỉ hưu chuyển công tác làm việc đến quan khác -Dị tìm hồ sơ cán cơng nhân viên để sửa chữa thông tin để đáp ứng yêu cầu cấp -Cung cấp báo cáo danh sách cán công nhân viên theo tiêu chí định -Cung cấp danh sách tiền lương cán công nhân viên cục -Cung cấp danh sách báo cáo lao động quỹ quỹ tiền lương trích để nộp bảo hiểm xã hộ -Cung cấp danh sách cán công nhân viên có đủ thời gian để nâng lương, cán nâng lương -Cung cấp danh sách cán nghỉ hưu - SV: Nhâm Anh Đào Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp 2.2 Công việc ứng dụng tin học công tác quản lí cần thiết mục tiêu việc xây dựng đề tài “Quản lí hồ sơ cán công nhân viên “ cục Hiện phòng ban cục hầu hết trang bị đủ thiết bị máy tính.Qua cơng việc khảo sát việc ứng dụng tin học công việc quản lý thấy việc quản lý cục cịn số việc làm thủ cơng chưa tận dụng hết ứng dụng sẵn có tin học, cục áp dụng phần mềm Window, Word,Excel…để phục vụ công tác nghiên cứu Trong thời gian vừa qua cục đầu tư mua số phần mềm kế tốn nhằm giúp cho phịng tài kế tốn hoạch tốn nghiệp vụ quản lý thu chi cách xác, hiệu Tuy vậy, vấn đề quản lý hồ sơ cán cục chưa sử dụng tính tin học để ứng dụng công quản lý Các việc nhận hồ sơ cán thực cách thủ công sử dụng kho lưu trữ hồ sơ cồng kềnh, tốn nhiều diện tích Mỗi có u cầu cấp hồ sơ cán lại tốn nhiều cơng sức cơng việc tìm kiếm Do mà việc quản lý hồ sơ cục diễn phức tạp, không tránh khỏi nhầm lẫn hiệu tìm kiếm khơng cao Đứng trước tình em thấy phải cần thiết xây dựng đề tài để phục vụ cơng việc quản lí hồ sơ cán cục Mục tiêu hệ thống là: -Giúp nhập hồ sơ, sửa chữa hồ sơ huỷ bỏ hay lưu trư hồ sơ cán công nhân viên -Thực việc cập nhật kịp thời thong tin can nghỉ có lí -Tìm kiếm thong tin trực tiếp đến đối tượng -Thống kê danh sách -các nhân viên theo điều kiện định -Đưa báo cáo để trình lên lãnh đạo hay phịng bên có liên quan dên 2.3 Các công cụ để phục vụ đề tài SV: Nhâm Anh Đào Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp Cơ sở để viết chương trình Foxpro chương trình đánh giá cao chiếm ưu nay.Hiện nhờ ưu mà trở thành công cụ đắc lực để giúp quan tổ chức quản lí tốt cơng việc mình.các nhà quản lí liệu phải nhận biết quan mọt xã hộ thu nhỏ phải kịp thời nắm bắt đựoc thành tựu công nghệ thong tin Đây điều kiện để quản lí liệu thành công Trong hệ thống thong tin nhà quản lí lưu trữ liệu kho liệu.Đó nơi cất trữ liệu cách có hệ thống giúp cho việc tìm kiếm thuận tiện nhanh chóng Nếu mà liệu đặt nhớ máy tính điện tử cơng việc trở nên thuận lợi Do mà ngân hàng liệu hệ thống dung máy tính điện tử để quản lí lưu trữ nhiều người để sử dụng với nhiều mục đích quản lí khác nhau.và kho liệu với phương tiện để trì hoạt động tạo hệ thống quản lí.Vìvậy mà quản lí liệu đóng vai trò quan trọng.Hệ quản trị sở liệu cua fổp đảm nhận yêu cầu sau: -Chia sẻ: Có thể nhiều người tiếp cận lúc -Vận chuyển: Thuận tiện chuyển đến cho người định -Có thể Bảo mật: Có thể ngăn ngừa phá hoại khơng cho ké không đáng tin cậy sử dung -Rất kịp thời : Được cập nhật thường xuyên -Rất phù hợp: Đặc biệt cần thiết cho việc định Công việc thiết kế hệ thống thong tin quản lí nhân dựa hệ sở liệu foxpro phương pháp thiết kế phổ biến.Việc tạo lập mơ hình liệu phần q trình thiét kế sở liệu sở liệu thiết kếphải thoả mãn yêu cầu ban quản lí 10 SV: Nhâm Anh Đào 10 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp 3.19 Màn hình danh mục trình độ văn hố ầ 3.20 Màn hình danh mục tỉnh 59 SV: Nhâm Anh Đào 59 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp 3.21 Màn hình danh mục loại hợp đồng 3.22 Màn hình danh mục loại hợp đồng tình trạng hôn nhân 60 SV: Nhâm Anh Đào 60 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp 3.23 Màn hình danh mục phụ cấp 3.24 Màn hình danh mục hồ sơ phụ cấp 61 SV: Nhâm Anh Đào 61 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp 3.25 Màn hình danh mục hệ số lương 62 SV: Nhâm Anh Đào 62 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp KẾT LUẬN Trong thời đại công nghệ thông tin phát triển vũ bão hiên sản phẩm công nghệ thông tin tạo cho người suất lao động cao cho q trình phát triển giới.Chính mà vừa hội vừa thách thức doanh nghiệp đưa lựa chọn ứng dụng công nghệ thông tin việc phát triển doanh nghiệp.Việc doanh nghiệp ứng dụng xây dựng phần mềm quản ls lợi chối cãi, mang lại cho doanh nghiệp mặt khác hẳn với việc trước chưa sử dụng công nghệ thông tin.Trong thời đại doanh nghiệp phải có máy hoạt động gọn nhẹ có thẻ tiết kiệm tối đa khoản chi phí đưa phương hướng phát triển máy doanh nghiệp cách hài hồ với tình hình thực tế doanh nghiệp Nhận thức đựoc tầm quan nên có nhièu lĩnh vực khơng ngừng phát triển phần mềm quản lý nhân để đáp ứng đươcj yêu cầu phát triển công ty Tuy nhiên thời gian thực tập trình độ có hạn nên phạm vi đề tài cịn hạn chế,trong thời gian tới em khắc phục hạn chế Trong thời gian học tập trường với long biết ơn sâu sắc e xin chân thành cám ơn thầy giáo trưịng Đại Hoạc Kinh tế Quốc Dân nói chung thày giáo khoa tin học kinh tế nói riêng tận tình giảng dạy tạo điều kiện cho chúng em suốt thời gian học tập trường Em xin chân thành cám ơn thầy giáo PHÙNG TIẾN HẢI tận tình hướng dẫn chúng em hoàn thành tốt chuyên đề thực tập tốt nghiệp 63 SV: Nhâm Anh Đào 63 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp MỘT SỐ MÃ NGUỒN CHÍNH CỦA CHƯƠNG TRÌNH *************************Startup********************************* ENDPRO * FUNCTION QuickGet * Tim nhanh theo ten FUNCTION QuickGet PARAMETER _Nguon, _Ten, _Ma, _Dich, _Mess * _Nguon : File co chua truong ten can tim * _Ten : Truong de tim theo ten * _Ma : Bien tra ve Ma cua Ten tim duoc * _Dich : Ten file chua cac ban ghi thoa man dieu kien ve Ten tim duoc * _Mess : Message cua man hinh brow PRIVATE M.Ma, M.Ten, _Inselect, _Order _InSelect = SELECT() _Order = ORDER() STORE "" TO M.Ma, M.Ten M.Opt = M.Nhan_Huy1=1 SELE &_Nguon PUSH KEY CLEAR DO FORM (K_Screen + "SMQuickget") IF M.Nhan_Huy1 # SELECT (_InSelect) POP KEY RETURN ENDIF M.Ten = ALLTRIM(UPPER(M.Ten)) IF EMPTY(M.Ten) SELECT (_InSelect) POP KEY RETURN 64 SV: Nhâm Anh Đào 64 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp ENDIF _Key_F5 = ".T." IF !EMPTY(M.Ten) IF M.Opt # IF !("%" $ M.Ten) OR !("_" $ M.Ten) M.Ten = M.Ten + "%" ENDIF _Key_F5 = _Key_F5 + ".AND." + "(UPPER(" + _Ten + ") LIKE M.Ten)" ELSE _Key_F5 = _Key_F5 + ".AND." + "(M.Ten $ UPPER(" + _Ten + "))" ENDIF ENDIF SELECT * FROM &_Nguon WHERE &_Key_F5 INTO TABLE (K_Tmp + _Dich) ON KEY LABEL ENTER DO Quick_Get_Chon WITH _Nguon, _Ma SELE (_Dich) BROWSE ; FONT M_Font_Name, M_Font_Size; NOAPPEND NOMODIFY NODELETE WINDOW M_WinBrw ; TITLE IIF(m_Lan = 'V', "Loc ", ECode2String('SMLIB0045')) + STUFF(_Mess, 1, 1, LOWER(LEFT(_Mess,1))) +IIF(m_Lan = 'V', " Enter-Chon, Esc-Quay ra", ECode2String('SMLIB0046')) USE IN (_Dich) ON KEY LABEL ENTER SELECT (_InSelect) SET ORDER TO &_Order POP KEY RETURN * PROCEDURE Quick_Get_Chon * SubProcedure of Quick_Get PROCEDURE Quick_Get_Chon 65 SV: Nhâm Anh Đào 65 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp PARAMETER _Nguon, _Ma PRIVATE M.Ma, oldOrder oldOrder = SET("ORDER") M.Ma = &_Ma SELE &_Nguon SET ORDER TO &_Ma SEEK(M.Ma) IF USED("K_PhTmp") KEYBOARD CHR(23) &&Ctrl+W ENDIF KEYBOARD CHR(23) SET ORDER TO &oldOrder RETURN &_Ma * PROCEDURE PgUpDn_Ct * Chuyen len , xuong, ve dau, ve cuoi file chung tu PROCEDURE PgUpDn_Ct PARAMETER _Step * _Step: 1: Chuyen xuong chung tu * -1: Chuyen len chung tu * TOP: Chuyen ve chung tu dau tien * BOTTOM: Chuyen den chung tu cuoi cung PRIVATE Arr, i, nPro, _Value *Visible=0,Order=96,Caption=Sl td3,English=Free,Width=60,Carry=0,Post=0 nPro = ALINES(Arr, StrPro, ",") FOR i = TO nPro _pro = ALLTRIM(LEFT(Arr[i], AT('=', Arr[i]) - 1)) IF UPPER(_Pro) == UPPER(Cpro) _value = ALLTRIM(RIGHT(Arr[i], LEN(Arr[i]) - AT('=', Arr[i]))) RETURN _Value ENDIF ENDFOR RETURN '' * - Procedure I_Lookup PROCEDURE I_Lookup PARAMETER _Obj, _Alias, _Field 66 SV: Nhâm Anh Đào 66 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp PRIVATE _Len, S IF INLIST(LASTKEY(), 7, 127, 32) && Del va BackSpace RETURN ENDIF IF NOT USED('&_Alias') RETURN ENDIF s = UPPER(ALLTRIM(_Obj.Value)) _Len = LEN(s) SELECT (_ALias) LOCATE FOR LEFT(&_Field, _Len) == s IF FOUND() _Obj.Value = &_Field _Obj.selstart = _Len _Obj.sellength = LEN(ALLTRIM(_Obj.Value)) - _Obj.selstart ENDIF RETURN * - Procedure I_History PROCEDURE I_History PARAMETERS _Form, _Obj PRIVATE _Len, S,_StrForm, _StrSeek s = ALLTRIM(_Obj.Value) _Len = LEN(s) IF INLIST(LASTKEY(), 7, 127, 32) &&OR _Len < && Del va BackSpace RETURN ENDIF _strform = UPPER(JUSTFNAME(SYS(1271, _Form))) _strform = LEFT(_strform, AT('.', _strform) - 1) _strSeek = PADR(_strform, FSIZE('Form', 'M_History')) SELECT M_History SEEK _StrSeek LOCATE REST WHILE Form = _StrSeek FOR LEFT(Value, _Len) == s IF FOUND() _Obj.Value = Value _Obj.selstart = _Len _Obj.sellength = LEN(ALLTRIM(_Obj.Value)) - _Obj.selstart ENDIF RETURN * - Procedure U_History -PROCEDURE U_History PARAMETERS _Form, _Obj 67 SV: Nhâm Anh Đào 67 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp PRIVATE _Len, S,_StrForm, _StrSeek s = ALLTRIM(_Obj.Value) _Len = LEN(s) _strform = UPPER(JUSTFNAME(SYS(1271, _Form))) _strform = LEFT(_strform, AT('.', _strform) - 1) _strSeek = PADR(_strform, FSIZE('Form', 'M_History')) SELECT M_History SEEK _StrSeek LOCATE REST WHILE Form = _StrSeek FOR LEFT(Value, _Len) == s IF FOUND() RETURN ENDIF APPEND BLANK REPLACE Form WITH _StrForm, Value WITH s RETURN * - Procedure D_History PROCEDURE D_History PARAMETERS _Form, _Obj PRIVATE _Len, S,_StrForm, _StrSeek s = ALLTRIM(_Obj.Value) _Len = LEN(s) _strform = UPPER(JUSTFNAME(SYS(1271, _Form))) _strform = LEFT(_strform, AT('.', _strform) - 1) _strSeek = PADR(_strform, FSIZE('Form', 'M_History')) SELECT M_History SEEK _StrSeek LOCATE REST WHILE Form = _StrSeek FOR LEFT(Value, _Len) == s IF FOUND() DELETE ENDIF RETURN * Procedure Dien_giai_Key PROCEDURE Dien_Giai_key PARAMETERS _Form, _Obj, nKeyCode, nShiftAltCtrl DO CASE CASE nKeyCode = 85 and nShiftAltCtrl = &&Shift F2 DO U_History WITH _Form, _Obj CASE nKeyCode = 91 and nShiftAltCtrl = &&Shift F8 DO D_History WITH _Form, _Obj ENDCASE RETURN * Function Num2Word2 FUNCTION Num2Words 68 SV: Nhâm Anh Đào 68 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp LPARAMETERS nNumber LOCAL ix, cDecimals, cResult, cBuffer LOCAL cDigits, cTens, cScale LOCAL nScale, nInteger, nHundreds, nTens, nDigit m.cDigits = 'Zero One Two Three Four Five Six Seven Eight Nine Ten Eleven Twelve Thirteen Fourteen Fifteen Sixteen SeventeenEighteen NineTeen ' m.cTens = 'Ten Twenty Thirty Forty Fifty Sixty Seventy Eighty Ninety ' m.cScale = ' Thousand Million Billion Trillion *********' m.nInteger = INT(m.nNumber) m.cDecimals = ' and '+PADL(LTRIM(STR(ROUND(MOD(m.nNumber, 1), 2)*100)), 2, '0')+'/100' m.cResult = '' m.ix = DO WHILE m.nInteger>0 m.nScale = MOD(m.nInteger, 1000) m.nInteger = INT(m.nInteger/1000) m.nHundreds = INT(m.nScale/100) m.nTens = MOD(m.nScale, 100) m.cBuffer = '' IF m.nHundreds>0 m.cBuffer = TRIM(SUBSTR(m.cDigits, m.nHundreds*9+1, 9))+' Hundred ' ENDIF DO CASE CASE m.nTens=0 CASE m.nTens0 m.cBuffer = m.cBuffer+' '+TRIM(SUBSTR(m.cDigits, m.nDigit*9+1, 9)) ENDIF ENDCASE IF m.ix>0 m.cResult = TRIM(TRIM(m.cBuffer)+' '+TRIM(SUBSTR(m.cScale, m.ix*9+1, 9))+' '+m.cResult) ELSE m.cResult = TRIM(m.cBuffer) 69 SV: Nhâm Anh Đào 69 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp ENDIF m.ix = m.ix+1 ENDDO IF EMPTY(m.cResult) m.cResult = TRIM(LEFT(m.cDigits, 9)) ENDIF RETURN m.cResult+m.cDecimals ENDFUNC * Function ChkRights PROCEDURE ChkRights PARAMETERS _Status PRIVATE Kq Kq = T DO CASE CASE _Status = [M] IF !(M_Menu_id $ M_R_Add) Kq = F _Mess = IIF(M_Lan =[V], "Không đợc thêm mơc nµy !",; "Can not add new, you may have not permission") Msgbox(_Mess, 64) ENDIF CASE _Status = [S] IF !(M_Menu_id $ M_R_Edit) Kq = F _Mess = IIF(M_Lan =[V], "Không đợc thêm mục !",; "Can not add new, you may have not permission") Msgbox(_Mess, 64) ENDIF CASE _Status = [X] IF !(M_Menu_id $ M_R_Del) Kq = F _Mess = IIF(M_Lan =[V], "Không đợc thêm mơc nµy !",; "Can not add new, you may have not permission") Msgbox(_Mess, 64) ENDIF ENDCASE RETURN Kq 70 SV: Nhâm Anh Đào 70 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp FUNCTION ECode2String PARAMETERS _ID _OldAlias = SELECT() USE (K_Tran + [Tranlan]) ORDER ID ALIAS Tranlan NOUPDATE IN SELECT Tranlan IF SEEK(_Id) _string = ALLTRIM(Tranlan.EsTring) ELSE _string = [] ENDIF USE IN Tranlan SELECT(_OldAlias) RETURN _string PROCEDURE SetItemhead M.Ma_vv = M.Ma_vv_i M.Ma_Phi = M.Ma_Phi_i M.Ma_Ku = M.Ma_Ku_i M.Ma_Ctr = M.Ma_Ctr_i M.Ma_Hm = M.Ma_Hm_i M.Ma_Dsx = M.Ma_Dsx_I M.Ma_Bpht = M.Ma_Bpht_i M.Ma_Hd = M.Ma_Hd_i M.Ma_SP = M.Ma_SP_i *+ M.Ma_Td = M.Ma_Td_i M.Ma_Td2 = M.Ma_Td2_i M.Ma_Td3 = M.Ma_Td3_i M.Ma_Td4 = M.Ma_Td4_I M.Ma_Td5 = M.Ma_Td5_i M.SL_Td M.Sl_Td2 M.Sl_Td3 M.Sl_Td4 M.Sl_Td5 = M.SL_Td_i = M.SL_Td2_i = M.SL_Td3_i = M.SL_Td4_I = M.SL_Td_i M.Ngay_Td = M.Ngay_Td_i M.Ngay_Td2 = M.Ngay_Td2_i M.Ngay_Td3 = M.Ngay_Td3_i M.Ngay_Td4 = M.Ngay_Td4_i M.Ngay_Td5 = M.Ngay_Td5_i M.GC_Td 71 SV: Nhâm Anh Đào = M.GC_TD_i 71 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp M.GC_Td2 M.GC_Td3 M.GC_Td4 M.GC_Td5 = M.GC_TD2_i = M.GC_TD3_i = M.GC_TD4_i = M.GC_TD5_i RETURN *!* -*!* FUNCTION FHe_so_luong *!* FUNCTION FHe_so_luong PARAMETERS _ngay_ct PRIVATE _use_dm, _inselect, _He_so _inselect = SELECT() _use_dm = F IF !USED("M_Dmhsluong") USE (K_cod + [Dmhsluong]) ORDER Ngay_hl ALIAS M_Dmhsluong IN _use_dm = T ENDIF SELECT M_Dmhsluong SET ORDER TO Ngay_hl DESC SEEK DTOS(_ngay_ct) _He_so = M_Dmhsluong.He_so IF _use_dm USE IN M_Dmhsluong ENDIF SELECT(_inselect) RETURN _He_so 72 SV: Nhâm Anh Đào 72 Lớp: Tin 46A Chuyên đề thực tập tốt nghiệp TÀI LIỆU THAM KHẢO -Ts.TRƯƠNG Văn Tú -TS Trần Thị Song Minh Giáo trình Hệ thống thông tin quản lý, NXB thống kê Hà Nộ 2000 -PGS.TS Hàn Viết Thuận Bài giảng công nghệ phần mềm -Trần Cơng Uẩn Giáo trình Cơ sở liệu SQL, ACCES,NXB thống kê,Hà Nội.2000 73 SV: Nhâm Anh Đào 73 Lớp: Tin 46A ... danh mục Hồ sơ nhân viên Thông tin nhân viên Thông tin nhân viên Nhân viên Các báo cáo Thông tin bổ xung Thông tin tìm kiếm Hồ sơ công tác Thông tin danh mục Yêu cầu tìm kiếm Hồ sơ công tác Phòng... đề thực tập tt nghip 2.3 Sơ đồ luồng liệu Quản lý nhân Bộ phận quản lý nhân viên LÃnh đạo Các Phòng ban khác Hồ sơ nhân viên Thông tin bổ xung Thông tin bổ xung Thông tin nhân viên Nhân viên Yêu... Đào 20 Lớp: Tin 46A Chuyên đề thực tt nghip Chơng Phân tích thiết kế hệ thống thông tin quản lý h S CáN Bộ CÔNG NHÂN VIÊN CụC DOANH NGHIệP NHỏ Và VừA THUộC Bộ Kế HOạCH & ĐầU TƯ PHÂN TíCH Mục đích