Đang tải... (xem toàn văn)
Phát triển hệ thống thông tin quản lý lao động tiền lương tại Cty Xây dựng số 2.
Lời nói đầu Chuyên đề thực tập hoàn thành đợc bảo , hớng dẫn tận tình thầy , cô khoa Tin học Kinh tế- Trờng Đại học Kinh tế Quốc Dân , tất cô Công ty Xây dựng số thuộc Tổng công ty xuất nhập khÈu x©y dùng ViƯt Nam ( Vinaconex ) , cđa toàn thể bạn bè ngời đà mang đến hỗ trợ liên tục suốt thời gian thực tập Tôi xin chân thành bày tỏ lòng biết ơn sâu sắc đến thầy cô giáo khoa Tin học Kinh tế Trờng Đại học kinh tế Quốc Dân dạy hớng dẫn tận tình Tôi xin vô cám ơn thầy giáo Hàn Viết Thuận đà tận tình giúp đỡ , đà dùng hết tâm huyết nhà giáo , để hớng dẫn , truyền đạt , bảo tất vấn đề cốt lõi , t tởng chủ đạo cách thức triển khai nghiên cứu đề tài Nhờ mà có đủ điều kiện để hoàn thành tốt chuyên đề Tôi chân thành cảm ơn Ban lÃnh đạo toàn thể cô , Công ty xây dựng số 2- Tổng công ty xuất nhập xây dựng Việt Nam ( Vinaconex) đà quan tâm giúp đỡ , bảo tận tình , cung cấp tài liệu cho việc hoàn thiện chuyên đề Đặc biệt xin tỏ lòng biết ơn tới bác Đào Minh Chiến Trởng phòng Tổ chức Công ty đà tận tình bảo giúp đỡ từ kiến thức lý thuyết đến áp dụng thực tế chuyên đề Cuối xin đợc cảm ơn tất bạn bè , tất ngời đà quan tâm giúp đỡ thực chuyên đề Chuyên đề đợc viết với kiến thức , kinh nghiệm thời gian có hạn tất tránh khỏi thiếu sót , hạn chế nội dung nh trình bày Vì , mong nhận đợc bảo , đóng góp ý kiến phê bình quí báu từ thầy , cô toàn thể bạn bè với mong muốn rút học kinh nghiệm quí báu cho thân ngày hoàn thiện chuyên đề Hà Nội , tháng năm 2002 Sinh viên Ph¹m Quang Huy Líp : Tin 40A – KTQD Lời nói đầu Sự phát triển vũ bÃo cách mạng khoa học kỹ thuật lần thứ ba với việc đặt công nghệ thông tin , tự động hoá lên vị trí hàng đầu đà đa toàn nhân loại bíc vµo ngìng cưa cđa nỊn kinh tÕ tri thøc Tin học hoá , tự động hoá đà phơng tiện chủ chốt trang bị cho toàn giới bớc vào kỷ nguyên với bớc tiến Một xà hội thông tin hình thành phát triển đà đem lại cho ngời thành tựu đáng kể mặt , hai chữ thông tin ngày đóng vai trò chủ đạo cần thiết sống ngời Đúng nh Richard Mason giáo s công nghệ thông tin nhà t vấn cho hÃng lớn Mỹ Canada đà nhận xét : “ Ngµy x· héi chóng ta , cã nhiều nhân viên thu nhập xử lý phân phối thông tin nghề khác Hàng triệu máy tính đợc lắp đặt khắp giới nhiều triệu Km cáp quang , dây dẫn sóng sóng điện từ kết nối ngời Máy tính nh phơng tiện xử lý thông tin khác làm ngời xích lại với X· héi cđa chóng ta thùc sù lµ x· héi thông tin , thời đại thời đại thông tin Đối với Việt Nam phát triển tất yếu lịch sử , Công nghệ thông tin mục tiêu nóng bỏng hàng đầu Sự phát triển công nghệ thông tin đợc xem kim nam cho bớc phát triển , cho mục tiêu , đà trở thành phơng tiện để đất nớc ta tắt , đón đầu theo kịp nớc phát triển , hoà nhịp lốc phát triển lên toàn nhân loại Việc đa tin học vào mục tiêu quản lý doanh nghiệp toàn kinh tế muộn màng nhng đà đạt đợc thành tựu đáng kể Cùng với trình mở cưa nỊn kinh tÕ , nỊn kinh tÕ ®Êt níc theo chế thị trờng , với nhiều thành phần kinh tế , có quản lý nhà nớc theo định hớng xà hội chủ nghĩa đà ngày đợc kiểm nghiệm đắn với thực khách quan thông qua sở lý thuyết nh thực tiễn đổi thay ngày đất nớc Sự phát triển nhanh chóng tổ quốc không nhắc tới đóng góp trực tiếp gián tiếp công nghệ thông tin Hơn hết , giai đoạn hiệu quản lý doanh nghiệp phụ thuộc vào hệ thống thông tin dựa máy tính Quản lý có hiệu sở liệu hoạt động sản xuất kinh doanh doanh nghiệp mục tiêu sống doanh nghiệp , định đến thành bại doanh nghiệp chế Để đạt đợc điều , doanh nghiệp cần xây dựng hệ thống thông tin liên lạc đủ mạnh , xác , kịp thời làm sở cho định quản trị Một nguồn thông tin quan trọng phục vụ cho quản trị doanh nghiệp xuất phát từ hệ thống thông tin quản lý Nh , ngày thông tin trở thành vấn đề sống đối víi mäi lÜnh vùc ®êi sèng kinh tÕ-x· héi đặc biệt quản lý kinh tế Nó định thành công doanh nghiệp thơng trờng họ biết sử dụng thông tin nh cho hiệu Sử dụng , xử lý , lu trữ thông tin nh cho có hiệu toán đặt cho tất doanh nghiệp Lớp : Tin 40A KTQD Công ty Xây dùng sè thc Tỉng c«ng ty Xt nhËp khÈu Xây dựng Việt Nam ( Vinaconex) nh đơn vị , tổ chức doanh nghiệp khác nớc Quá trình đa hệ thống tin học vào mục tiêu quản lý diễn chậm nhng đà mang lại thành tựu đáng kể góp phần lớn vào thành công chung doanh nghiệp Ngoài phòng xử lý nghiệp vụ máy tính , doanh nghiệp có hệ thống tin học trực tiếp cho yêu cầu xử lý lu trữ liệu phòng ban Tuy nhiên hệ thống tin học công ty xây dựng số thiếu tính hệ thống Tổng công ty xuất nhập xây dựng Việt Nam ( Vinaconex ) công ty , đồng thời thiếu mối liên hệ đồng phận công ty , tồn đọng nhiều vấn đề xử lý liệu dựa máy tính Với tầm quan trọng hệ thống thông tin quản lý Công ty xây dựng số nói riêng tổ chức doang nghiệp nói chung đặc biệt hệ thống thông tin quản lý lao động tiền lơng , với kiến thức kinh nghiệm đà đợc trang bị em xin đề xuất đề tài : Phát triển hệ thống thông tin quản lý lao động tiền lơng công ty Xây dựng số nhằm đề xuất thêm phơng án , cách nhìn nhận trình ứng dụng tin học vào trình lu trữ , xử lý liệu trình quản lý lao động tiền lơng nói riêng nh hệ thống thông tin quản lý nói chung , với mục đích cốt lõi ngày xử lý tốt trình biến đổi liệu thành thông tin trình quản lý lao động tiền lơng lại công ty Đề tài gồm phần sau : Ch¬ng I : Tỉng quan chung Bao gåm : Tổng quan công ty xây dựng số , tổng quan phòng tổ chức công ty , tổng quan chung công tác lao động tiền lơng công ty , tổng quan chung công tác lao động tiền lơng v.v.v Chơng II : Phơng pháp luận Bao gồm : Từ thực tiễn khách quan từ yêu cầu nội công ty , ®ång thêi tõ lý ln chung vỊ hƯ thống thông tin quản lý bớc phân tích , thiết kế , cài đặt hệ thống thông tin quản lý nói chung Chơng III : Phân tích hệ thống thông tin quản lý lao động tiền lơng Bao gồm : Mục đích phân tích hệ thống , hệ thống thông tin vào hệ thống , mô hình hoá liệu , sơ đồ luồng thông tin , sơ đồ luồng liệu , sơ đồ cấu trúc liệu v.vv Chơng IV : Thiết kế hệ thống thông tin quản lý lao động tiền lơng Bao gồm : Phơng pháp thiết kế , lựa chọn ngôn ngữ lập trình , thiết kế File liệu , thiết kế query , thiết kế Form , thiết kế Report Chơng V: Chơng trình bày trình triển khai , bảo trì nâng cấp hệ thống thông tin quản lý lao động tiền lơng cho phù hợp với tình hình điều kiện công ty Chuyên đề đợc hoàn thành vơí giúp đỡ , hớng dẫn thầy giáo Hàn Viết Thuận thầy cô khoa Tin học Kinh tế cán Công ty Xây dựng Việt Nam Tuy nhiên , kiến thức kinh nghiệm ỏi , với hạn chế mặt thời gian nên chơng trình chắn mắc nhiều sai sót em mong đợc bảo tận tình thầy , cô Lớp : Tin 40A – KTQD khoa c¸c c¸n bé híng dẫn toàn thể bạn ngời quan tâm khác để em hoàn thành đề án đợc tốt h¬n Ch¬ng I Líp : Tin 40A – KTQD Tỉng quan chung Tỉng quan chung vỊ C«ng ty Xây dựng số Tổng công ty Xuất nhập Xây dựng Việt Nam (vinaconex) 1.1 Quá trình hình thành phát triển công ty - Tên đơn vị thực tập: công ty xây dựng số Vinaconco Tổng công ty XNKXDVN Bộ xây dựng - Công ty xây dựng số Vinaconex từ thành lập đến đà có nhiều tên gọi khác nh : Xí nghiệp liên hợp xây dựng số ngày 9/6/1995 Bộ trởng xây dựng có QĐ số 618 / BXD - TCLĐ việc đổi tên Xí nghiệp liên hợp xây dựng số thuộc tổng công ty XNKXD Việt nam thành công ty xây dựng số ngày - Trụ sở công ty: 22 Lạc Long Quân - Tây Hồ - Hà Nội - Công ty có : Xí nghiệp thành viên + Xí nghiệp XD số trụ sở Đông Ngạc- Từ liêm - Hà nội + XNXD SXVLXD thị trấn Xuân Hoà - Mê Linh - Vĩnh Phúc + Xí nghiệp bê tông xây dựng Đạo Tú huyện Tam Đảo - Vĩnh Phúc - Ba chi nhánh tỉnh + Cao Bằng - Bắc Cạn + Sơn La + Lào Cai Ngoài có 10 đội xây dựng trực thuộc, công ty quản lý điều hành Công ty xây dựng sè - Vinaconco2 , lµ Doanh nghiƯp nhµ níc hạng I theo QĐ số 2929/BXD - TCLĐ ngày 26 tháng 11 năm 1994 , với giấy phép kinh doanh xây dựng số 26 / BXD - CSXD đợc phép hoạt động lĩnh vực sau : - Xây dựng công trình công nghiệp dân dụng mäi quy m« tíi cÊp I , trang trÝ néi thất cao - Thi công công trình kỹ thuật hạ tầng đô thị khu công nghiệp - Xây lắp đờng dây trạm biến tới 35KV - Thi công mặt đờng thâm nhập nhựa Líp : Tin 40A – KTQD - Thi công hệ thống mơng máng thuỷ nông kè đá công trình thuỷ lợi - Các công tác lắp đặt , hoàn thiện xây dựng - Sản xuất cấu kiện bê kim loại - Đầu t phát triển kinh doanh nhà - Sản xuất kinh doanh vật liệu xây dựng Với quy mô hoạt động nớc liên doanh với nớc 1.2 Cơ cấu tổ chức công ty Đứng đầu lÃnh đạo công ty giám đốc phó giám đốc , dới ban lÃnh đạo hệ thống phong ban chức bao gồm : Tổng công ty Giám đốc công ty Văn phòng công ty Kế hoạch kỹ thuật thi công Lao động tiền lương Kế toán tài Đấu thầu QLDA xây dựng Hình :Sơ đồ tổ chức công ty xây dựng số 1.2.1 Văn phòng công ty Nhiệm vụ chung văn phòng tổ chức thực công tác hành quản trị , bảo vệ , quân , y tế, tiếp tân, tiếp khách công ty : Chuẩn bị thẩm tra , kiểm tra thủ tục pháp chế hành phơng án định trớc trình giám đốc định giám đốc công ty trình cấp phê chuẩn, tổ chức thực công tác văn th lu trữ giữ gìn bảo quản Lớp : Tin 40A KTQD 1.2.2 Phòng kế hoạch - kỹ thuật thi công Phòng kế hoạch - kỹ thuật thi công quan chuyên môn có nhiệm vụ tổng hợp tham mu giúp cho giám đốc công ty Để đáp ứng với vai trò phòng tham mu cho ban lÃnh đạo công ty nắm bắt đạo kịp thời với chế thị trờng , lập kế hoạch sản xuất hàng năm theo nhiệm vụ kế hoạch đợc tổng công ty giao cho , lập hồ sơ , dự án tham gia đấu thầu công trình , tổ chức thi công có hiệu công trình công ty quản lý , quản lý tốt phơng tiện xe máy phục vụ cho công tác thi công 1.2.3 Phòng đấu thầu quản lý dự án xây dựng Phòng đấu thầu quản lý dự án xây dựng đầu mối công ty công tác khai thác tìm kiếm việc làm cho công ty , tổ chức mạng lới cán chuyên viên cộng tác viên nắm bắt thông tin dự án đầu t để từ với ban lÃnh đạo công ty tham gia đấu thầu Tổ chức thực công tác tổ chức SXKD lĩnh vực xây lắp công trình công ty trúng thầu giao cho đơn vị thành viên thực Tổ chức theo dõi nắm bắt cập nhật thông tin dự án xây dựng từ giai đoạn hình thành dự án đến giai đoạn khả thi Thực hồ sơ đấu thầu công trình , qua thực tế đấu thầu thắng thầu lập hệ thống giá xây dựng để sử dụng cho công tác đấu thầu quản lý dự án Tổ chức toán công trình Lập đạo biện pháp công đặc biệt Phối hợp phòng ban chức khác công ty lập kế hoạch , tra kỹ thuật an toàn lao động 1.2.4 Phòng tổ chức lao động tiền lơng Nhiệm vụ chủ yếu phòng tổ chức lao động tiền lơng lập phơng án tổ chức sản xuất , lập tờ trình để báo cáo giám đốc công ty định việc thành lập , sát nhập , giải thể bổ xung sửa đổi cấu tổ chức công ty theo phân cấp đợc tổng công ty duyệt Thực quản lý tốt đội ngũ cán số lợng chất lợng theo phân cấp quản lý tổng công ty công ty đơn vị trực thuộc Hớng dẫn thực văn pháp quy nhà nớc công tác lao động tiền lơng , xây dựng quỹ tiền lơng báo cáo thực kế hoạch quỹ tiền lơng theo yêu cầu công ty Giải tra việc thực chế độ sách , giải thủ tục công tác hợp tác lao động níc ngoµi … Líp : Tin 40A – KTQD 1.2.5 Phòng kế toán tài Nhiệm vụ phòng thực nghiêm túc chế độ quản lý kinh tế , kế toán ghi chép ban đầu đảm sác số liệu, tổ chức công tác hạch toán kế toán theo điều lệ tổ chức kế toán nhà nớc Quản lý tập trung nguồn vốn phân giao cho đơn vị trực thc theo nhiƯm vơ s¶n xt kinh doanh Quan hệ với quan tín dụng ngân hàng để vay , trả nợ theo nhiệm vụ thi công đợc ký kết hợp đồng kinh tế Hớng dẫn kiểm tra đôn đốc toàn hoạt động tài c¸c xÝ nghiƯp , tỉ chøc kiĨm tra xÐt dut báo cáo kế toán thống kê , toán đơn vị trực thuộc Quá trình tin học hoá Công ty vào trình quản lý đà đạt đợc bớc tiến định góp phần không nhỏ vào phát triển công ty , nhiên trình tin học hoá diễn nhằm đáp ứng yêu cầu khách quan phòng ban công ty , cha mang tính đồng mang tính hệ thống công ty tổng công ty , lÃnh đạo phòng ban , phòng ban với Quá trình tin học hoá công ty tiềm lớn nhằm phục vụ cho trình quản lý , trình lao động sản xuất tất vả vấn đề cần xúc tiến khác Tổng quan chung công tác lao động tiền lơng 2.1 Tổng quan chung phòng tổ chức lao động tiền lơng Phòng tổ chức lao động tiền lơng phòng chuyên giúp việc cho giám đốc công ty Nhiệm vụ chủ yếu phòng tổ chức lao động tiền lơng + Lập phơng án tổ chức sản xuất , lập tờ trình để báo cáo giám đốc công ty định việc thành lập , giải thể , bổ sung , sửa đổi cấu tổ chức công ty theo phân cấp đợc tổng công ty dut Tỉ chøc triĨn khai thùc hiƯn c¸c qut định tổng công ty giám đốc công ty Chủ trì phối hợp với đơn vị chức đơn vị trực thuộc xây dựng chức nhiệm vụ chế độ trách nhiệm , mối quan hệ công tác theo hoạt động tổ chức Công ty Quản lý biên chế cán gián tiếp máy hoạt động công ty nguyên tắc gọn nhẹ phát huy hiệu quản lý + Thực quản lý thống đội ngũ cán số lợng , chất lợng theo phân cấp Tổng công ty- Công ty đơn vị trực thuộc Giải nghiệp vụ quản lý bao gồm : bồi dỡng , đề bạt , phân công công tác , xếp lơng , nâng lơng , khen thởng , kỷ luật v.v.v Chủ trì phối hợp phận có liên quan lập quy hoạch kế hoạch cán Nghiên cứu thực hớng dẫn thực tiêu chuẩn sách cán , bố trí sử dụng cán Thực việc thống kê nhân , báo cáo định kỳ , đột xuất với Tổng công ty- công ty với Lớp : Tin 40A KTQD quan đảng nhà nớc có liên quan Tham gia với phòng , đơn vị công tác giải khen thởng , thi đua đơn vị tập thể , cá nhân có thành tích sản xuất kinh doanh Tổ chức đào tạo đội ngũ cán công nhân viên chức công ty + Hớng dẫn thực văn pháp quy nhà nớc công tác lao đông tiền lơng Xây dựng kế hoạch quỹ tiền lơng báo cáo kế hoạch quỹ tiền lơng theo yêu cầu công ty Tổ chức đào tạo đội ngũ công nhân hợp đồng ngắn hạn , dài hạn , thời vụ theo công việc Tổ chức sát hạch thi tay nghề nâng bậc lơng theo cấp bậc giám đốc công ty duyệt Giải thực sách công nhân nh : khen thởng , kû lt , hu trÝ , mÊt søc,th«i viƯc , thuyên chuyển , tiếp nhận , điều động v.v Giúp giám đốc thực áp dụng hình thức tổ chức lao động thích hợp theo chế sản xuất để phù hợp với nhiệm vụ sản xuất kinh doanh + Giải tra việc thực khâu chế độ sách , tổ chức quản lý nội dung quy định pháp lệnh tra Thanh tra giải đơn th khiếu tố theo pháp lệnh thuộc thẩm quyền phạm vi công ty giải qut Tỉ chøc tra viƯc chÊp hµnh bé luật lao động , chế độ sách ngời lao động đơn vị đội xây dùng trùc thc Thùc hiƯn b¸o c¸o tra theo quy định Tổng công ty Bộ xây dựng + Giải thủ tục công tác hợp tác lao động nớc 2.2 Tổng quan chung công tác lao động tiền lơng 2.2.1 Khái niệm : Công tác lao động tiền lơng phần công tác tổ chức lao động tiền lơng phòng tổ chức đảm nhận nhằm quản lý hệ thống lơng cấu lao động đơn vị cho phù hợp với thực tiễn khách quan, với tình hình thực tế tổ chức với quy định hiến pháp pháp luật nhà nớc 2.2.2 Chức : Công tác lao động tiền lơng có chức giải hợp lý tiền lơng lao động tổ chức đơn vị 2.2.3 Nhiệm vụ : - Hớng dẫn thực văn pháp quy nhà nớc công tác lao đông tiền lơng - Xây dựng kế hoạch quỹ tiền lơng báo cáo kế hoạch quỹ tiền lơng theo yêu cầu công ty - Tổ chức đào tạo đội ngũ công nhân hợp đồng ngắn hạn , dài hạn , thời vụ theo công việc - Tổ chức sát hạch thi tay nghề nâng bậc lơng theo cấp bậc giám đốc công ty duyệt - Giải thực sách công nhân nh : khen thởng , kỷ luật , hu trí , sức,thôi việc , thuyên chuyển , tiếp nhận , điều động v.v - Giúp giám đốc thực áp dụng hình thức tổ chức lao động thích hợp theo chế sản xuất để phù hợp với nhiệm vụ sản xuất kinh doanh Lớp : Tin 40A – KTQD HƯ thèng th«ng tin quản lý lao động tiền lơng : 3.1 áp dụng hệ thống thông tin quản lý nói chung Công ty xây dựng số Công nghệ thông tin với phát triển mạnh mẽ đà thực tác động ®Õn mäi lÜnh vùc cña ®êi sèng x· héi Đặc biệt lĩnh vực quản lý kinh tế , công nghệ thông tin đà trở thành mục tiêu then chốt , phơng tiện để tất nghành lĩnh vực tạo đợc ổn định tạo bớc nhảy vọt Công ty xây dựng số 2-Tổng công ty Xuất nhập Xây dựng Việt Nam ( Vinaconex ) sớm ứng dụng tin học vào trình sản xuất kinh doanh đặc biệt trình quản lý kinh tế Việc ứng dụng hệ thống tin học vào trình thu thập , lu trữ , xử lý phân phối thông tin nhằm phục vụ cho mục tiêu quản lý đà đóng góp vai trò không nhỏ trình phát triển công ty 3.2 Hệ thống thông tin quản lý lao động tiền lơng : Cũng nh phận phòng ban khác Công ty , việc đa tin học trực tiếp vào trình thu thập , lu trữ , xử lý phân phối liệu vào trình xử lý nghiệp vụ phòng tổ chức lao động tiền lơng đà đợc triĨn khai tõ rÊt sím ®ã cã hƯ thèng thông tin quản lý lao động tiền lơng 3.2.1 Tính tất yếu hệ thống thông tin quản lý lao động tiền lơng Công ty xây dựng sè : NỊn kinh tÕ ®Êt níc ®ang bíc vào thời kỳ , thời kỳ công nghệ thông tin đóng vai trò chủ đạo kinh tế , trở thành phơng tiện để ta chạy tắt , đón đầu hoà với nhịp thở kinh tế toàn nhân loại Đồng thời với phát triển lớn mạnh Công ty xây dựng số đòi hỏi cần xây dựng hệ thống thu thập , lu trữ , xử lý phân phối liệu đủ sức đáp ứng yêu cầu phát triển doanh nghiệp Bởi , việc áp dụng hệ thống thông tin quản lý vào trình quản lý doanh nghiệp yêu cầu mang tính khách quan từ thực tiễn từ nội hoạt động sản xuất kinh doanh doanh nghiệp Quản lý cách có hiệu khoa học vấn đề lao động tiền lơng có tầm quan không với hoạt động lao động tiền lơng mà liên quan trực tiếp đến hoạt động khác doanh nghiệp Có hệ thống thông tin quản lý lao động tiền lơng ngày tốt : tin cậy , đầy đủ , thích hợp , dễ hiểu , đợc bảo vệ thời điểm nhằm góp phần điều hành hoạt động sản xuất kinh doanh hiệu 3.2.2 Lựa chọn phơng án tối u Trớc tầm quan trọng hệ thống thông tin quản lý lao động tiền lơng phơng án đặt nhằm giải tồn : a.Xử lý thủ công Phơng án dựa nguồn nhân lực có , thiết bị có trì công tác theo dõi , quản lý nh nhng nâng cao xuất lao động phận tổ chức lao động tiền lơng Phơng án giải vấn đề thời gian ngắn hạn chắn gặp nhiều khó khăn theo Lớp : Tin 40A – KTQD 10 Exit Sub Baoloi: MsgBox "§· vỊ ci tƯp, bÊm OK ®Ĩ tiÕp tơc" End Sub Private Sub Command29_Click() On Error GoTo Baoloi DoCmd.GoToRecord , , acPrevious Exit Sub Baoloi: MsgBox "Đà đầu tệp, bấm OK để tiÕp tôc" End Sub Private Sub Command30_Click() On Error GoTo Err_Command30_Click DoCmd.GoToRecord , , acLast Exit_Command30_Click: Exit Sub Err_Command30_Click: MsgBox Err.Description Resume Exit_Command30_Click End Sub PhÇn m· ngn cđa Form cËp nhËp t¹m øng : Private Sub Combo0_Click() List2.RowSource = "SELECT DISTINCTROW [Tinhphucap].[Macanbo], [Tinhphucap].[Hovaten], [Tinhphucap].[Donvi] FROM [Tinhphucap] where [tinhphucap].[donvi]=combo0 and [Tinhphucap].[Thang]=Combo4;" List2.Requery End Sub Private Sub Tiep_Click() On Error GoTo Err_Tiep_Click DoCmd.GoToRecord , , acNext Exit_Tiep_Click: Exit Sub Err_Tiep_Click: Líp : Tin 40A – KTQD 81 MsgBox Err.Description Resume Exit_Tiep_Click End Sub Private Sub Lui_Click() On Error GoTo Err_Lui_Click DoCmd.GoToRecord , , acPrevious Exit_Lui_Click: Exit Sub Err_Lui_Click: MsgBox Err.Description Resume Exit_Lui_Click End Sub Private Sub Command12_Click() DoCmd.OpenForm ("Tamung") End Sub Private Sub Thoat_Click() On Error GoTo Err_Thoat_Click DoCmd.Close Exit_Thoat_Click: Exit Sub Err_Thoat_Click: MsgBox Err.Description Resume Exit_Thoat_Click End Sub PhÇn m· ngn cu¶ Form CËp nhËp phơ cÊp : Private Sub Combo0_Click() List2.RowSource = "SELECT DISTINCTROW [Tinhphucap].[Macanbo], [Tinhphucap].[Hovaten], [Tinhphucap].[Donvi] FROM [Tinhphucap] where [tinhphucap].[donvi]=combo0 and [Tinhphucap].[Thang]=Combo4;" List2.Requery Líp : Tin 40A – KTQD 82 End Sub Private Sub Tiep_Click() On Error GoTo Err_Tiep_Click DoCmd.GoToRecord , , acNext Exit_Tiep_Click: Exit Sub Err_Tiep_Click: MsgBox Err.Description Resume Exit_Tiep_Click End Sub Private Sub Lui_Click() On Error GoTo Err_Lui_Click DoCmd.GoToRecord , , acPrevious Exit_Lui_Click: Exit Sub Err_Lui_Click: MsgBox Err.Description Resume Exit_Lui_Click End Sub Private Sub Command12_Click() DoCmd.OpenForm ("Batdaunhapphucap") End Sub Private Sub Thoat_Click() On Error GoTo Err_Thoat_Click DoCmd.Close Exit_Thoat_Click: Exit Sub Err_Thoat_Click: MsgBox Err.Description Líp : Tin 40A – KTQD 83 Resume Exit_Thoat_Click End Sub PhÇn m· ngn cđa Form tÝnh l¬ng : Private Sub Command8_Click() DoCmd.Close End Sub Private Sub Donvi_Click() List5.RowSource = "Tinhluong" List5.Requery End Sub Private Sub Thang_Click() Donvi.Enabled = True End Sub Private Sub Command9_Click() On Error GoTo Err_Command9_Click Dim stDocName As String stDocName = "bangluong" DoCmd.OpenReport stDocName, acPreview Exit_Command9_Click: Exit Sub Err_Command9_Click: MsgBox Err.Description Resume Exit_Command9_Click End Sub Private Sub Command10_Click() On Error GoTo Err_Command10_Click Dim stDocName As String stDocName = "bangluong" DoCmd.OpenReport stDocName, acNormal Exit_Command10_Click: Exit Sub Líp : Tin 40A – KTQD 84 Err_Command10_Click: MsgBox Err.Description Resume Exit_Command10_Click End Sub Phần mà nguồn form xem lơng : Private Sub Command8_Click() DoCmd.Close End Sub Private Sub Donvi_Click() List13.RowSource = "Select [thuclinh] from [xemluong];" List13.Requery End Sub [Macanbo],[Hovaten],[tendonvi],[chucvu], Private Sub List13_Click() DoCmd.OpenForm ("Luongchitiet") End Sub Private Sub Thang_Click() Donvi.Enabled = True End Sub Private Sub Command9_Click() On Error GoTo Err_Command9_Click Dim stDocName As String stDocName = "bangluong" DoCmd.OpenReport stDocName, acPreview Exit_Command9_Click: Exit Sub Err_Command9_Click: MsgBox Err.Description Resume Exit_Command9_Click End Sub Private Sub Command10_Click() On Error GoTo Err_Command10_Click Dim stDocName As String Líp : Tin 40A – KTQD 85 stDocName = "bangluong" DoCmd.OpenReport stDocName, acNormal Exit_Command10_Click: Exit Sub Err_Command10_Click: MsgBox Err.Description Resume Exit_Command10_Click End Sub Phần mà nguồn Form tìm kiếm hồ sơ nhân : Private Sub Command10_Click() Dim DK1 As String Dim DK As String Dim DK2 As String Dim maso As String DK1 = "SELECT DISTINCTROW [Intoanbohoso].[Macanbo], [Intoanbohoso] [Hovaten], [Intoanbohoso].[Gioi], [Intoanbohoso].[NGaysinh], [Intoanbohoso] [Diachi], [Intoanbohoso].[Chucvu], [Intoanbohoso].[Tendonvi] FROM [Intoanbohoso] where" If Len(Ma) > Then DK = "[macanbo]=""" & Ma & """" End If If Len(Ten) > Then DK = DK + "And [hovaten]=""" & Ten & """" End If If Len(CV) > Then DK = DK + "and [chucvu]=""" & CV & """" End If If Len(DV) > Then DK = DK + "and [tendonvi]=""" & DV & """" End If If Len(Ma) > Then Else DK = Trim(DK) DK = Mid(DK, 4, Len(DK) - 3) End If DK1 = DK1 + DK List13.Visible = True List13.RowSource = DK1 Líp : Tin 40A – KTQD 86 List13.Requery End Sub Private Sub Command17_Click() On Error GoTo Err_Command17_Click DoCmd.Close Exit_Command17_Click: Exit Sub Err_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End Sub Phần mà nguồn Form Tra cứu lơng : Private Sub PT_BeforeUpdate(Cancel As Integer) End Sub Private Sub Tracuu_Click() Dim DK DK = "SELECT DISTINCTROW [Tracuuluong].[Macanbo], [Tracuuluong] [Hovaten], [Tracuuluong].[Tendonvi], [Tracuuluong].[Chucvu], [Tracuuluong] [Luong] FROM [Tracuuluong] where [Tracuuluong].[luong]" & PT & Luong & ";" List8.RowSource = DK List8.Requery End Sub Private Sub Trove_Click() On Error GoTo Err_Trove_Click DoCmd.Close Exit_Trove_Click: Exit Sub Err_Trove_Click: MsgBox Err.Description Líp : Tin 40A – KTQD 87 Resume Exit_Trove_Click End Sub PhÇn m· ngn cđa Form tra cøu phô cÊp : Private Sub Tracuu_Click() Dim DK DK = "SELECT DISTINCTROW [Tracuuluong].[Macanbo], [Tracuuluong] [Hovaten], [Tracuuluong].[Tendonvi], [Tracuuluong].[Chucvu], [Tracuuluong] [Phucap] FROM [Tracuuluong] where [Tracuuluong].[Phucap]" & PT & Luong & ";" List8.RowSource = DK List8.Requery End Sub Private Sub Trove_Click() On Error GoTo Err_Trove_Click DoCmd.Close Exit_Trove_Click: Exit Sub Err_Trove_Click: MsgBox Err.Description Resume Exit_Trove_Click End Sub PhÇn m· ngn cđa Form in bảng lơng : Private Sub Command8_Click() DoCmd.Close End Sub Private Sub Donvi_Click() List5.RowSource = "Tinhluong" List5.Requery End Sub Private Sub Thang_Click() Donvi.Enabled = True End Sub Líp : Tin 40A – KTQD 88 Private Sub Command9_Click() On Error GoTo Err_Command9_Click Dim stDocName As String stDocName = "bangluong" DoCmd.OpenReport stDocName, acPreview Exit_Command9_Click: Exit Sub Err_Command9_Click: MsgBox Err.Description Resume Exit_Command9_Click End Sub Private Sub Command10_Click() On Error GoTo Err_Command10_Click Dim stDocName As String stDocName = "bangluong" DoCmd.OpenReport stDocName, acNormal Exit_Command10_Click: Exit Sub Err_Command10_Click: MsgBox Err.Description Resume Exit_Command10_Click End Sub PhÇn m· ngn cđa Form in phơ cÊp : Private Sub Donvi_Click() Danhsach.RowSource = "SELECT [Inphucap].[Macanbo], [Hovaten], [Inphucap].[tenDonvi] FROM [inphucap];" Danhsach.Requery End Sub [Inphucap] Private Sub Thoat_Click() On Error GoTo Err_Thoat_Click Líp : Tin 40A – KTQD 89 DoCmd.Close Exit_Thoat_Click: Exit Sub Err_Thoat_Click: MsgBox Err.Description Resume Exit_Thoat_Click End Sub Private Sub Command14_Click() On Error GoTo Err_Command14_Click Dim stDocName As String stDocName = "Inphucap" DoCmd.OpenReport stDocName, acPreview Exit_Command14_Click: Exit Sub Err_Command14_Click: MsgBox Err.Description Resume Exit_Command14_Click End Sub Private Sub Command15_Click() On Error GoTo Err_Command15_Click Dim stDocName As String stDocName = "Inphucap" DoCmd.OpenReport stDocName, acNormal Exit_Command15_Click: Exit Sub Err_Command15_Click: MsgBox Err.Description Resume Exit_Command15_Click End Sub Phần mà nguồn Form in tạm ứng : Líp : Tin 40A – KTQD 90 Private Sub Donvi_Click() Danhsach.RowSource = "SELECT [Intamung].[Macanbo], [Hovaten], [Intamung].[chucvu] FROM [Intamung];" Danhsach.Requery End Sub [Intamung] Private Sub Thoat_Click() On Error GoTo Err_Thoat_Click DoCmd.Close Exit_Thoat_Click: Exit Sub Err_Thoat_Click: MsgBox Err.Description Resume Exit_Thoat_Click End Sub Private Sub Command14_Click() On Error GoTo Err_Command14_Click Dim stDocName As String stDocName = "Intamung" DoCmd.OpenReport stDocName, acPreview Exit_Command14_Click: Exit Sub Err_Command14_Click: MsgBox Err.Description Resume Exit_Command14_Click End Sub Private Sub Command15_Click() On Error GoTo Err_Command15_Click Dim stDocName As String stDocName = "Intamung" DoCmd.OpenReport stDocName, acNormal Exit_Command15_Click: Líp : Tin 40A – KTQD 91 Exit Sub Err_Command15_Click: MsgBox Err.Description Resume Exit_Command15_Click End Sub Phần mà nguồn Form in báo cáo nhân sù : Private Sub Donvi_Click() Danhsach.RowSource = [Inmotphanhoso].[Hovaten], [Inmotphanhoso] ;" Danhsach.Requery End Sub "SELECT [Inmotphanhoso].[Macanbo], [Inmotphanhoso].[chucvu] FROM Private Sub Option19_GotFocus() Donvi.Enabled = True Danhsach.Enabled = True Kt = End Sub Private Sub Option21_GotFocus() Danhsach.Enabled = False Donvi.Enabled = False Kt = End Sub Private Sub Thoat_Click() On Error GoTo Err_Thoat_Click DoCmd.Close Exit_Thoat_Click: Exit Sub Err_Thoat_Click: MsgBox Err.Description Resume Exit_Thoat_Click End Sub Private Sub Command14_Click() Líp : Tin 40A – KTQD 92 Dim Mot As String Dim tat As String Mot = "Inhosotungdv" tat = "Intatcahoso" If Kt = Then DoCmd.OpenReport Mot, acPreview End If If Kt = Then DoCmd.OpenReport tat, acPreview End If End Sub Private Sub Command15_Click() Dim Mot As String Dim tat As String Mot = "Inhosotungdv" tat = "Intatcahoso" If Kt = Then DoCmd.OpenReport Mot, acViewNormal End If If Kt = Then DoCmd.OpenReport tat, acViewNormal End If End Sub PhÇn m· ngn cđa Form l¬ng chi tiÕt : Function Xemthang() Xemthang = Forms![Xemluong].Thang End Function Function XemDonvi() XemDonvi = Forms![Xemluong].Donvi.Column(1, [Xemluong].Donvi.ListIndex) End Function Function Xemluongma() Xemluongma = Forms![Xemluong].List13.Column(0, [Xemluong].List13.ListIndex + 1) End Function Forms! Forms! Function PCthang() PCthang = Forms![Inphucap].Thang End Function Function PCDV() PCDV = Forms![Inphucap].Donvi End Function Líp : Tin 40A – KTQD 93 Function InTUThang() InTUThang = Forms![Intamung].Thang End Function Function InTUDV() InTUDV = Forms![Intamung].Donvi End Function Function Indv() Indv = Forms![Inhoso].Donvi End Function Function CongDV() CongDV = Forms![Nhapngaycong].Combo13.Column(0, [Nhapngaycong].Combo13.ListIndex) End Function Function Congthang() Congthang = Forms![Nhapngaycong].Combo19 End Function Forms! PhÇn m· ngn cđa Form cËp nhËp chøc vô : Private Sub Nhapmoi_Click() On Error GoTo Baoloi List2.Requery DoCmd.GoToRecord , , acNewRec Machucvu.SetFocus Exit Sub Baoloi: MsgBox "Trïng m·, H·y nhËp l¹i" Machucvu.SetFocus End Sub Private Sub Daubang_Click() On Error GoTo Err_Daubang_Click DoCmd.GoToRecord , , acFirst Exit_Daubang_Click: Exit Sub Err_Daubang_Click: MsgBox Err.Description Resume Exit_Daubang_Click End Sub Líp : Tin 40A – KTQD 94 Private Sub Tien_Click() On Error GoTo Baoloi DoCmd.GoToRecord , , acNext Exit Sub Baoloi: MsgBox "Đà cuối,Bấm OK để tiếp tục" End Sub Private Sub Lui_Click() On Error GoTo Baoloi DoCmd.GoToRecord , , acPrevious Exit Sub Baoloi: MsgBox "Đà dầu bảng, Bấm OK ®Ĩ tiÕp tơc" End Sub Private Sub Cuoii_Click() On Error GoTo Err_Cuoii_Click DoCmd.GoToRecord , , acLast Exit_Cuoii_Click: Exit Sub Err_Cuoii_Click: MsgBox Err.Description Resume Exit_Cuoii_Click End Sub Private Sub Thoat_Click() On Error GoTo Err_Thoat_Click DoCmd.Close Exit_Thoat_Click: Exit Sub Err_Thoat_Click: MsgBox Err.Description Resume Exit_Thoat_Click End Sub Private Sub Command13_Click() On Error GoTo Err_Command13_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Exit_Command13_Click: Líp : Tin 40A – KTQD 95 ... quán thông tin hệ thống Các bớc xây dựng hệ thống thông tin quản lý Để xây dựng hệ thống thông tin quản lý phục vụ quản lý cần phải trải qua bốn bớc sau: Bớc : Nghiên cứu đặt vấn đề xây dựng hệ thống. .. trình xử lý nghiệp vụ phòng tổ chức lao động tiền lơng đà đợc triĨn khai tõ rÊt sím ®ã cã hƯ thèng thông tin quản lý lao động tiền lơng 3 .2. 1 Tính tất yếu hệ thống thông tin quản lý lao động tiền. .. thông tin nh hình vẽ sau: Nguồn thông tin Thu thập thông tin Nơi nhận thông tin Xử lý - lưu trữ thông tin Phân phát thông tin Kho liệu Hình : Mô hình hệ thống thông tin 1 .2 Phân loại hệ thống thông
