Giới thiệu chung
Tên công ty
Chi Nhánh Công ty TNHH Dịch vụ và Đầu tư Vinh Hạnh
Giám đốc Chi Nhánh Công ty TNHH Dịch vụ và Đầu tư Vinh Hạnh 2 1.1.3 Địa chỉ
Bà : Trần Thị Lan Hương.
1.1.3 Địa chỉ Đường 430, Vạn Phúc, Hà Đông, Hà Nội. Điện thoại : 04.33553225
Chi Nhánh Công ty có tài khoản tại : Ngân hàng Đầu tư và Phát triển chi nhánh Hà Tây.
Cơ sở pháp lý của Chi Nhánh Công ty
Chi Nhánh Công ty TNHH Dịch vụ và Đầu tư Vinh Hạnh được thành lập theo quyết định số 48/2006/QĐ – BT ngày 14/09/2006 của bộ trưởng BTC. Đăng kí kinh doanh số: 045797 ngày 17/03/1995.
Chi Nhánh Công ty có bộ máy tổ chức riêng, có tài khoản riêng, con dấu riờng, cú bộ máy kế toán riêng, hạch toán theo phương thức độc lập.
Loại hình doanh nghiệp
Với số vốn điều lệ 4.900.000.000 đồng do 3 thành viên góp vốn chính thức:
- Bà Trần Thị Lan Hương với tổng số vốn góp là 75%.
- Ông Trần Quang Vinh với số vốn góp 22.5%
- Bà Trần Thị Thúy Phượng với số vốn góp 2.5%
Hình thức sở hữu vốn : Công ty TNHH
Chức năng, nhiệm vụ của Chi Nhánh Công ty TNHH Dịch vụ và Đầu tư Vinh Hạnh
+ Sản xuất gia công đồ chơi trẻ em bằng nhựa có sơn màu và có vỏ bọc. + Sản xuất các mô hình máy bay đồ chơi.
- Nhiệm vụ : Chi Nhánh Công ty Dịch vụ và Đầu tư Vinh Hạnh có tư cách pháp nhân hạch toán kinh tế độc lập, có con dấu riêng Chi Nhánh Công ty có nghĩa vụ và trách nhiệm trước bộ phận chủ quản cũng như cỏc bờn liên quan về toàn bộ hoạt động của mình Với tư cách pháp nhân của mình Chi Nhánh Công ty có thể đứng ra vay vốn, ký kết hợp dồng với khách hàng Hoàn thành các đơn hàng với khách hàng đúng thời hạn.
Lịch sử phát triển của Chi Nhánh Công ty qua các thời kỳ
Được thành lập từ năm 1995 trên mảnh đất quê lụa truyền thống với diện tích 4.229m 2 với vị trí trung tâm quận Hà Đông công ty có nhiều thuận lợi để tiến hành sản xuất , đã đang và sẽ là niềm tự hào của ngành công nghiệp nhẹ Hà Đông nói riêng và của Việt Nam nói chung Với nhiệm vụ chính là sản xuất gia công đồ chơi bằng nhựa cho trẻ em và học đường Toàn bộ sản phẩm xuất sang các nước Đông Âu, Tây Âu, Nhật Bản, Hồng Kụng… Mặt hàng con giống bằng nhựa được bọc chocolate, thực sự đáp ứng nhu cầu sưu tầm của trẻ em trên khắp thế giới đặc biệt ở các nước Phương Tây, nó có mặt ở hầu hết các cửa hàng miễn thuế ở sân bay Quốc tế.
Năm 1997 sau 2 năm thành lập công ty còn gặp nhiều khó khăn cơ sở vật chất kỹ thuật còn yếu kém song nhờ sự lỗ lực không ngừng của cán bộ công nhân viên trong công ty mà chỉ đến năm 2000 công ty đã khẳng định vị trí của mỡnh trờn thị trường quốc tế Năng suất lao động của công ty đạt 60 triệu sản phẩm một năm tạo nguồn thu đáng kể cho ngân sách nhà nước.
Năm 2005 là năm đánh dấu sự phát triển mạnh mẽ của công ty, trải qua 10 năm xây dựng và phát triển công ty ngày càng lớn mạnh các đơn đặt hàng ngày càng nhiều tạo công ăn việc làm cho hơn 1.000 lao động trong và ngoài tỉnh đặc biệt công nhân còn được chăm lo từ bữa ăn giữa ca đến nơi ở, những công nhân ở xa được cung cấp nhà tập thể cách công ty 200m.
Kể từ khi thành lập công ty luôn phát triển mở rộng quy mô sản xuất mặc dù khủng hoảng ở khu vực Châu Áá và sức mua giảm đáng kể ở khu vực Châu Âu song công ty vẫn phát triển và phát triển hơn nữa đó cũng là nhờ chất lượng sản phẩm và uy tín của doanh nghiệp
TỔ CHỨC BỘ MÁY QUẢN LÝ CỦA CHI NHÁNH CÔNG TY TNHH DỊCH VỤ VÀ ĐẦU TƯ VINH HẠNH
Sơ đồ tổ chức bộ máy quản lý
Để đảm bảo quá trình hoạt động, Chi Nhánh Công ty tổ chức bộ máy quản lý sản xuất kinh doanh theo mô hình trực tuyến đứng đầu là Giám đốc công ty là người chịu trực tiếp điều hành các hoạt động phòng ban.
Chức năng, nhiệm vụ từng phòng ban
1.2.2.1 Ban giám đốc a Giám đốc
Là người điều hành và đại diện pháp nhân của Chi Nhánh Công ty, là người chịu trách nhiệm cao nhất về toàn bộ kết quả hoạt động trong kinh doanh của Chi Nhánh Công ty Giám đốc điều hành Chi Nhánh Công ty theo chế độ thủ trưởng, có quyền quyết định cơ cấu bộ máy quản lý của Chi Nhánh Công ty theo nguyên tắc tinh giảm gọn nhẹ và có hiệu quả.
Là người chịu trách nhiệm bảo toàn và phát triển vốn cũng như đời sống của cán bộ công nhân viên trong Chi Nhánh Công ty.
Giúp việc cho giám đốc là hai phó giám đốc điều hành theo sự phân công và ủy quyền của Giám đốc. b Phó giám đốc
Phân xưởng hàn, dập,phun
Phòng Tài chính kế toán
Phòng kỹ Thuật Kiểm tra chất lượng
- Phó giám đốc điều hành sản xuất:
Là người giúp đỡ giám đốc chỉ đạo các công tác kiểm tra, giám sát, theo dõi về hoạt động sản xuất kinh doanh của Chi Nhánh Công ty, lập kế hoạch sản xuất trong tương lai.
- Phó giám đốc nội chính : Thực hiện công việc theo sự phân công của Ban Giám đốc.
Chịu trách nhiệm trước giám đốc về tình hình tài chính, các kế hoạch đầu tư, đơn đặt hàng, và giám sát nhân sự trong Chi Nhánh Công ty.
Phó giám đốc là trưởng ban an toàn lao động trong Chi Nhánh Công ty, trực tiếp soạn thảo các tài liệu về an toàn lao động trong thi công và tổ chức huấn luyện bước 1 về an toàn lao động cho người lao động tại hiện trường, kiểm tra đánh giá kết quả sau khi huấn luyện.
1.2.2.2 Phòng tổ chức hành chính
Là phòng nghiệp vụ giúp việc, tham mưu cho giám đốc trong việc tuyển dụng bố trí nhân lực, quản lý hồ sơ nhân lực, tổ chức điều hành sản xuất.
Quản lý, xây dựng các hợp đồng kinh tế xây dựng, mua bán vật tư, hợp đồng lao động Có nhiệm vụ xây dựng và hoàn thiện bộ máy Chi Nhánh Công ty phù hợp với yêu cầu tổ chức kinh doanh, xây dựng và tổ chức thực hiện các kế hoạch về lao động tiền lương, giải quyết chính sách cho người lao động.
Phân công theo dõi kiểm tra quá trình thực hiện các hợp đồng kinh tế, báo cáo kịp thời cho Giám đốc nắm bắt kịp thời chỉ đạo hoạt động sản xuất kinh doanh.
Kết hợp với phòng Kế toán tổ chức kiểm kê định kì 6 tháng, 1 năm đối với các tài sản thiết bị của Chi Nhánh Công ty Đề xuất phương án xử lý với các vật tư, sản phẩm kém phẩm chất, chất lượng Xây dựng cơ chế tiền lương tiền thưởng.
Quản lý lưu trữ hồ sơ tài sản của văn phòng Chi Nhánh Công ty Phục vụ hành chính văn phòng Chi Nhánh Công ty.
Soạn thảo các nội quy, quy chế, các văn bản của Chi Nhánh Công ty, đánh máy in ấn tài liệu Quản lý con dấu văn bản theo nghị định của Chính phủ và thông tư hướng dẫn về việc sử dụng con dấu Quản lý công văn giấy tờ sổ sách hành chính, vào sổ đánh số các văn bản phát hành, chuyển giữ các văn bản đến nơi nhận thực hiện công tác lưu trũ tài liệu của Chi Nhánh Công ty.
Theo dõi và thực hiện các chế độ, chính sách của Nhà nước để đảm bảo quyền lợi và nghĩa vụ của người lao động.
Giải quyết các thủ tục về tuyển dụng, hợp đồng lao động, bổ nhiệm, chuyển nhượng, miễn nhiệm, thôi việc trong Chi Nhánh Công ty Giải quyết các chính sách BHXH, BHYT, nghỉ việc, tai nạn, hưu trí, mất sức.
Giám sát chế độ thực hiện bảo hộ lao động, khám sức khỏe định kỳ cho cán bộ công nhân viên.
Kết hợp với phòng Kĩ thuật thi nâng bậc cho công nhân viên.
Làm thường trực Hội đồng thi đua khen thưởng, kỷ luật, nâng lương, nâng bậc cho cán bộ công nhân viên Thực hiện quan hệ với các cơ quan quản lý Nhà nước theo chức năng.
Thừa ủy quyền của Giám đốc Chi Nhánh Công ty kí lệnh điều xe phục vụ cho công tác của Chi Nhánh Công ty, ký lệnh sản xuất đối với nhân viên trong phòng và chịu trách nhiệm trước sự ủy quyền đó.
1.2.2.3 Phòng Tài chính Kế toán
Có nhiệm vụ khai thác và tiếp cận các đơn hàng và hợp đồng kinh tế, theo dõi và đôn đốc kế hoạch thực hiện từ đó thiết lập và búc tỏch bản vẽ, triển khai xuống từng phân xưởng.
Tham mưu cho Giám đốc về công tác tài chính kế toán đảm bảo phản ánh kịp thời, chính xác các nghiệp vụ kinh tế phát sinh trong hoạt động kinh doanh sản xuất của Chi Nhánh Công ty.
Hướng dẫn, chỉ đạo, giám sát công tác quản lý, sử dụng vốn đầu tư.
Mở sổ theo dõi và tổ chức hạch toán kinh tế về hoạt động sản xuất kinh doanh của Chi Nhánh Công ty theo đúng luật kế toán.
Mở sổ theo dõi hạch toán chi tiết tài sản cố định, vật tư, tiền vốn của Chi Nhánh Công ty và quyết toán công trình.
Làm thủ tục ứng vốn, thanh quyết toán vốn Quản lý toàn bộ hồ sơ liên quan đến hoạt động sản xuất kinh doanh của Chi Nhánh Công ty và lưu trữ chứng từ, hồ sơ theo quy định.
Quản lý thu, chi, thanh quyết toán Quản lý quỹ, kiểm kê quỹ theo định kỳ.
Theo dõi công nợ, phản ánh đề xuất kế hoạch thu chi và các khoản thanh toán khác.
Lập báo cáo tài chính định kỳ để báo cáo lãnh đạo Chi Nhánh Công ty, cơ quan có chức năng.
Kê khai nộp thuế và các khoản nộp khác của Chi Nhánh Công ty với ngân sách nhà nước.
Chủ trì tổ chức kiểm kê quý, 6 tháng, 1 năm Tổng hợp các báo cáo và đề xuất xử lý tài sản hư hỏng, vật tư mất phẩm chất và làm các thủ tục thanh lý tài sản.
Thực trạng ứng dụng công nghệ thông tin trong Chi Nhánh Công ty
Ngày nay ngành công nghệ phần mềm đang phát triển nhanh và ngày càng được mở rộng, khoa học công nghệ thực sự đã và đang mang đến những hiệu quả to lớn cho nền kinh tế xã hội cho các doanh nghiệp tổ chức kinh doanh trong nền kinh tế thị trường, đặc biệt là nâng cao hiệu quả trong quản lý.
Trong bất kỳ tổ chức doanh nghiệp kinh doanh nào thì vấn đề quản lý nhân sự luôn luôn là bài toán quản lý đầu tiên, vì vậy việc ra đời những bài toán quản lý nói chung và bài toán quản lý nhân sự nói riêng là một điều tất yếu khách quan.
Có thể nói rằng với xu hướng tin học hóa hiện nay rộng khắp trong xã hội thì việc quản lý thủ công không còn phù hợp Ta có thể nhận thấy những yếu kém trong việc quản lý theo phương pháp thủ công như: Thông tin về đối tượng nghèo nàn, lạc hậu rời rạc và không được cập nhật thường xuyên; Với khối lượng thông tin lớn, chồng chất, việc lưu trữ bảo quản gặp rất nhiều khó khăn, thông tin lưu trũ trong đơn vị không nhất quán, dễ bị trùng lặp giữa các bộ phận… Đặc biệt là mất rất nhiều thời gian và công sức để thống kê, để phân tích đưa ra các thông tin để phục vụ cho quyết định cũng như nắm bắt thông tin Do đó quá trình tin học hóa trong hầu hết các hoạt động của Chi Nhánh Công ty là một vấn đề thiết yếu, việc áp dụng các thành tựu của công nghệ thông tin trong hoạt động quản lý ngày càng trở lên phổ biến và rộng rãi và mang lại hiệu quả cao, khắc phục được những nhược điểm của hệ thống thông tin quản lý cũ, các bài toán quản lý được đưa vào máy tính và được tin học hóa ngày càng tối ưu, giúp cho quá trình xử lý, tính toán, thu thập thông tin được giảm bớt rất nhiều về thời gian cũng như chi phí, mang lại hiệu quả lớn cho doanh nghiệp.
Đề tài lựa chọn
Tính cấp thiết của đề tài
Chi Nhánh Công ty TNHH Dịch vụ và Đầu tư Vinh Hạnh với thế mạnh và kinh nghiệm trong lĩnh vực kinh doanh thì vấn đề quản lý nhân sự của Chi Nhánh Công ty cũng được chú trọng và nâng cao Với hệ thống tổ chức Công ty rộng khắp việc quản lý con người sẽ giúp ban quản lý dễ dàng hơn trong việc sắp xếp, phát triển nhân sự phù hợp Chi Nhánh Công ty còn có nhiều thiếu xót trong việc kiểm soát cũng như nắm bắt nhân viên Vì vậy, việc xây dựng trương chình quản lý nhân sự để nâng cao việc quản lý con người, tổ chức, nhân viên của Chi Nhánh Công ty là cần thiết Đây là việc không những Chi Nhánh Công ty TNHH Dịch vụ và Đầu tư Vinh Hạnh cần làm mà tất cả các công ty đều phải làm trong một tương lai gần
Hiện nay theo khảo sát Chi Nhánh Công ty vẫn chưa có phần mềm quản lý nhân sự chuyên dụng, việc quản lý vẫn ở dạng tin học hóa cục bộ được thể hiện nhưChi Nhánh Công ty có một khối lượng nhân viên lớn thì việc quản lý thủ công không thể đáp ứng được, do đó 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 viên trong Chi Nhánh Công ty có một hồ sơ riờng nờn việc lưu trữ, tìm kiếm, bổ sung, sửa đổi để đáp ứng yêu cầu không phải là dễ dàng Thông tin về các nhân viên trong cỏc phũng ban chưa thống nhất, trùng lặp, chưa hình thành rõ ràng một hệ thống quản lý nhân sự
Cỏc phòng ban trong Chi nhánh Công ty đều được trang bị máy tính nhưng cấu hình máy thấp dung lượng RAM chỉ có 216MB, dung lượng ổ cứng là 40GB rất khó khăn trong việc lưu trữ dữ liệu, chưa có tính tương thích cao với các phần mềm hiện tại Chi nhánh Công ty đang sử dụng Thông tin trờn cỏc báo cáo chưa dầy đủ theo yêu cầu của nhà quản lý.
Ngoài ra, Chi Nhánh Công ty chưa có sự áp dụng hệ thống máy tính với những phần mềm rất hữu dụng trong quản lý mà hiện nay công ty vẫn đang quản lý, lưu trữ hồ sơ cán bộ trên sổ sách giấy tờ, và sự truyền tải thông tin dùng nhiều bằng con đường qua lại giữa các phòng ban với sự trợ giúp của máy điện thoại nên gặp nhiều bất cập trong công tác quản lý và đánh giá về kỹ năng hay sở thích, trình độ của nhân viên để có đánh giá sát thực, sắp xếp công việc hợp lý cho mỗi nhân viên.
Theo hướng phát triển của Chi Nhánh Công ty về lâu dài chúng ta nên xây dựng một “Hệ thống thông tin quản lý nhân sự” Hệ thống này sẽ cho thấy tính hiệu quả của nó trong việc quản lý và định hướng trong sự phát triển của Chi Nhánh Công ty Vì vậy em lựa chọn đề tài quản: “ Xây dựng hệ thống thông tin quản lý nhân sự tại Chi Nhánh Công ty TNHH Dịch vụ và Đầu tư Vinh Hạnh ”.
Công cụ cần thiết để thực hiện đề tài: Hệ quản trị CSDL Microsoft Access
2003 và ngôn ngữ lập trình Visual Basic 6.0 là 2 công cụ chính để làm phần mềm. Trong đó để đáp ứng nhu cầu lưu trữ, xử lý và phân tích dữ liệu cho hệ thống xử lý dữ liệu doanh nghiệp.
Mục tiêu lựa chọn đề tài
Hệ thống thông tin quản lý nhân sự là hoàn toàn khách quan và cần thiết nó đem lại mục đích lâu dài cho Chi Nhánh Công ty, để đạt được điều đó hệ thống cần đạt được các mục đích sau:
- Quản lý hồ sơ nhân viên: Cập nhật hồ sơ nhân viên, sửa hồ sơ nhân viên, xóa hồ sơ nhân, tìm kiếm các thông tin về nhân viên khi được yêu cầu
- Quản lý các danh mục: Danh mục phòng ban, danh mục chức vụ, danh mục chuyên môn.
- Báo cáo: Tổng hợp dữ liệu, báo cáo định kỳ theo tháng, quý, năm, yêu cầu
Phạm vi của đề tài
Hệ thống thông tin quản lý nhân sự được sử dụng cho các đối tượng như:
- Phòng hành chính thì sử dụng hệ thống thông tin quản lý nhân sự để có thể biờt được số lượng nhân viên hiện có trong chi nhánh Công ty, số lượng nhân viên nghỉ việc, về hưu, điều chuyển công tác.
- Phòng kế toán: Sử dụng hệ thống với mục đích chấm công, tính lương, hoàn thành nghĩa vụ của từng công nhân viên của chi nhánh Công ty với nhà nước.
- Ban lãnh đạo: Sử dụng hệ thống với mục đích kiểm tra, giám sát công việc của mình.
- Các bộ phận khác có thể sử dụng hệ thống với mục đích quản lý riêng của mình.
Phương pháp nghiên cứu đề tài
- Dùng phương pháp tiếp cận hệ thống.
- Phương pháp xây dựng : Phương pháp thiết kế từ trên xuống ( Top Down Design).
- Phương pháp thu thập thông tin: Nghiên cứu tài liệu hệ thống.
CƠ SỞ PHƯƠNG PHÁP LUẬN ĐỂ THỰC HIỆN ĐỀ TÀI 1 LÝ THUYẾT CHUNG VỀ HỆ THỐNG THÔNG TIN 12 1.1 Khái niệm hệ thống thông tin
Hệ thống thông tin trong một tổ chức
1.2.1 Phân loại hệ thống thông tin theo mục đích phục vụ của thông tin đầu ra
- HTTT xử lý giao dịch (TPS – Transaction Processing System): Thu thập, xử lý giao dịch đến từ bên trong và bên ngoài hệ thống Hệ thống xử lý các dữ liệu đến từ giao dịch mà tổ chức thực hiện với khách hàng, với nhà cung cấp, những người cho vay hoặc với nhân viên của nó.
- Hệ thống thông tin quản lý MIS – Management Information System: Trợ giúp các hoạt động quản lý trong tổ chức doanh nghiệp Là những hệ thống quản lý các hoạt động của tổ chức, các hoạt động này nằm ở mức điều khiển tác nghiệp, điều khiển quản lý hoặc lập kế hoạch chiến lược Chúng dựa chủ yếu vào các cơ sở dữ liệu được tạo ra bởi hệ xử lý giao dịch cũng như từ các nguồn ngoài tổ chức.
- Hệ trợ giúp quyết định DSS – Decision System: Trợ giúp ra các hoạt động quyết định Được thiết kế dựa vào mục đích rõ ràng là trợ giúp ra quyết định Quá trình ra quyết định thường được mô tả như một quy trình Nó được tạo thành từ ba giai đoạn chính: Xác định vấn đề, xây dựng và đánh giá các phương án giải quyết và lựa chọn một phương án Về nguyên tắc, một hệ thống trợ giúp ra quyết định thì phải cung cấp thông tin cho người ra quyết định, xác định rõ tình hình mà một quyết định cần phải ra.
- Hệ chuyên gia ES – Expert System: Biểu diễn tri thức của các chuyên gia bằng công cụ tin học Là hệ thống cơ sở trí tuệ, có nguồn gốc từ trí tuệ nhân tạo trong đó có sự biểu diễn bằng các công cụ tin học những tri thức của một chuyên gia về một lĩnh vực nào đó.
- Hệ thống thông tin tăng cường cạnh tranh ISCA – Information System for Competitive Advantage: Được xây dựng cho đối tượng bên ngoài tổ chức, tạo điều kiện thuận lợi trong giao dịch, dành ưu thế cạnh tranh Được sử dụng như một trợ giúp chiến lược Khi nghiên cứu hệ thống thông tin mà không tính đến lý do dẫn đến sự cài đặt nó hoặc không tính đến môi trường trong đó nó được phát triển, ta nghĩ rằng đó chỉ đơn giản là một hệ thống xử lý giao dịch, hệ thống thông tin quản lý, hệ trợ giúp ra quyết định hoặc một hệ chuyên gia.
1.2.2 Ba mô hình của hệ thống thông tin
Mô tả hệ thống làm gì: dữ liệu mà nó thu thập, xử lý mà nó thực hiện, các kho để chứa các kết quả hoặc dữ liệu để lấy ra cho các xử lý và những thông tin mà hệ thống sản sinh ra Mô hình này trả lời câu hỏi: Cái gì? Và Để làm gì? Nó không quan tâm tới phương tiện được sử dụng cũng như thời điểm hoặc địa điểm mà sữ liệu được xử lý Mô hình của hệ thống gắn ở quầy tự động dịch vụ khách hàng do giám đốc dịch vụ mô tả thuộc mô hình logic này.
- Mô hình vật lý ngoài:
Mô hình ổn định nhất
Mô hình hay thay đổi nhất
Mô hình logic ( Góc nhìn quản lý)
Mô hình vật lý ngoài (Góc nhìn sử dụng)
Mô hình vật lý trong (Góc nhìn kĩ thuật)
Cái gì? Để làm gì?
Chú ý tới những khía cạnh nhìn thấy được của hệ thống như là các vật mang dữ liệu và vật mang kết quả cũng như hình thức đầu vào và đầu ra, phương tiện để thao tác với hệ thống, những dịch vụ, bộ phận, con người và vị trí công tác trong hoạt động xử lý, các thủ tục thủ công cũng như những yếu tố về địa điểm thực hiện xử lý dữ liệu, loại màn hình và loại bàn phím được sử dụng Mô hình này cũng chú ý tới mặt thời gian của hệ thống, nghĩa là về những thời điểm mà các hoạt động xử lý dữ liệu khác nhau xảy ra Nó trả lời câu hỏi: Cái gì? Ai? Ở đâu? Một khách hàng nhìn hệ thống thông tin ở quầy giao dịch rút tiền ngân hàng theo mô hình này.
- Mô hình vật lý trong:
Liên quan tới những khía cạnh vật lý của hệ thống tuy nhiên không phải là cái nhìn của người sử dụng mà là của nhân viên kỹ thuật Chẳng hạn, thông tin liên quan tới một loạt trang thiết bị được dùng để thực hiện hệ thống, dung lượng kho lưu trữ và tốc độ xử lý của thiết bị, tổ chức vật lý của dữ liệu trong kho chứa, cấu trúc của các chương trình và ngôn ngữ thể hiện Mô hình giải đáp câu hỏi: Như thế nào? Giám đốc khai thác tin học mô tả hệ thống tự động hóa ở quầy giao dịch theo mô hình vật lý trong này.
1.3 Phương pháp phát triển HTTT Quản lý
Phát triển hệ thống thông tin là một quá trình lặp Tùy theo kết quả của mỗi giai đoạn có thể và đôi khi là cần thiết, phải quay về giai đoạn trước để tìm cách khắc phục những sai sót Một số nhiệm vụ được thực hiện trong suốt quá trình; đó là việc lập kế hoạch cho mỗi giai đoạn tới kiểm soát những nhiệm vụ đã hoàn thành, đánh giá dự án và lập tài liệu về hệ thống và về dự án.
1.3.1 Lý do phát triển hệ thống thông tin quản lý
Có nhiều lý do dẫn đến việc phát triển hệ thống thông tin, nhưng gộp lại ta đưa ra bốn nguyên nhân sau:
- Những thay đổi về vấn đề quản lý.
- Những yêu cầu mới của nhà quản lý.
- Sự thay đổi công nghệ
- Thay đổi sách lược chính trị.
Những yêu cầu mới của nhà quản lý có thể dẫn đến sự cần thiết của một dự án phát triển một hệ thống thông tin quản lý mới, ví dụ việc chính phủ ban hành một luật mới, hay hành động mới của doanh nghiệp cạnh tranh cũng là một nguyên nhân dẫn đến sự phát triển của hệ thống thông tin quản lý.
Việc xuất hiện các công nghệ mới cũng có thể dẫn đến việc một tổ chức phải xét lại những thiết bị hiện có trong hệ thống thông tin của mình Chẳng hạn khi xuất hiện những hệ quản trị cơ sở dữ liệu mới buộc một tổ chức doanh nghiệp phải rà soát lại các hệ thống thông tin của họ để quyết định những gì họ phải cài đặt khi muốn sử dụng công nghệ mới này.
Những thách thức về chính trị cũng là một nguyên nhân dẫn đến sự phát triển một hệ thống thông tin Đôi khi, hệ thống thông tin được phát triển chỉ vì người quản lý biết rằng sự phát triển của hệ thống sẽ đem lại quyền lực và nhiều lợi ích khác cho họ.
1.3.2 Các bước phát triển hệ thống thông tin quản lý.
Phương pháp phát triển hệ thống thông tin gồm có 7 giai đoạn Mỗi giai đoạn bao gồm một dãy các công đoạn và cuối mỗi giai đoạn là phải kèm theo việc ra quyết định về việc tiếp tục hay chấm dứt sự phát triển hệ thống Quyết định này được trợ giúp dựa vào nội dung báo cáo mà phân tích viên hoặc nhóm phân tích viên trình bày cho các nhà sử dụng Phát triển hệ thống thông tin là một quá trình lặp Tùy theo kết quả của một giai đoạn có thể, và đôi khi là cần thiết, phải quay về giai đoạn trước để tìm cách khắc phục những sai sót Một số nhiệm vụ được thực hiện trong suốt quá trình, đó là việc lập kế hoạch cho giai đoạn tới, kiểm soát những nhiệm vụ đã hoàn thành, đánh giá dự án, lập tài liệu về hệ thống và về dự án
Thiết kế vật lý ngoài
Thiết kế logic Phân tích chi tiết Đánh giá yêu cầu
Mô hình phát triển của hệ thống thông tin
Dưới đây là mô tả sơ lược các giai đoạn phát triển của một hệ thống thông tin.
Giai đoạn 1 : Đánh giá yêu cầu Đánh giá yêu cầu có mục đích cung cấp cho lãnh đạo tổ chức hoặc hội đồng giám đốc những dữ liệu đích thực hiện để ra quyết định về thời cơ, tính khả thi và hiệu quả của một dự án phát triển hệ thống Giai đoạn này được thực hiện tương đối nhanh và không đòi hỏi chi phí lớn Nó bao gồm các công đoạn sau:
1.1 Lập kế hoạch đánh giá yêu cầu.
1.3 Đánh giá khả năng thực thi.
1.4 Chuẩn bị và trình bày báo cáo đánh giá yêu cầu.
Giai đoạn 2 : Phân tích chi tiết
Phân tích chi tiết được tiến hành sau khi có sự đánh giá thuận lợi về yêu cầu. Những mục đích chính của phân tích chi tiết là hiểu rõ các vấn đề của hệ thống đang nghiên cứu, xác định rõ nguyên nhân đích thực của vấn đề đó, xác định những đòi hỏi và những ràng buộc áp đặt với hệ thống và xác định mục tiêu mà hệ thống thông tin mới cần đạt được Trên cơ sở nội dung báo cáo phân tích chi tiết sẽ quyết định tiếp tục tiến hành hay thôi phát triển hệ thống mới Để làm những việc đó giai đoạn phân tích chi tiết bao gồm các công đoạn sau:
2.1 Lập kế hoạch phân tích chi tiết.
2.2 Nghiên cứu môi trường của hệ thống đang tồn tại.
2.3 Nghiên cứu hệ thống thực tại.
2.4 Đưa ra chẩn đoán và xác định yếu tố giải pháp.
2.5 Đánh giá lại tính khả thi.
2.6 Thay đổi đề xuất của dự án.
2.7 Chuẩn bị và trình bày báo cáo chi tiết.
Giai đoạn 3 : Thiết kế logic
TỔNG QUAN VỀ HỆ THỐNG THÔNG TIN QUẢN LÝ NHÂN SỰ
2.1 Khái niệm HTTT quản lý nhân sự
Hệ thống thông tin quản lý nhân sự là một hệ thống thông tin dùng để thu thập, lưu trữ, truyền đạt, phân phối các thông tin có liên quan đến nguồn nhân lực trong tổ chức để hỗ trợ cho việc ra quyết định Hệ thống thông tin quản lý nhân sự có vai trò quan trọng trong hoạt động của cơ quan, các thông tin do hệ thống mang lại có vai trò quan trọng trong việc ra quyết định liên quan đến nhân sự tại cơ quan.
Trong hệ thống thông tin nhân sự các yếu tố đầu vào (Inputs) của hệ thống được lấy từ nguồn (Sources) được xử lý với các dữ liệu lưu trước trong hệ thống. Các kết quả này được gọi là đầu ra (Outputs) và được chuyển đến đích (Destination) hay cập nhật vào các kho dữ liệu (Storage) của hệ thống.
Nếu ta ứng dụng tin học vào công tác quản lý nhân sự thì dữ liệu của hệ thống thông tin quản lý nhân sự tại cơ quan sẽ được lưu trữ và bảo quản trờn cỏc phương tiện nhớ của máy tính điện tử, các chương trình quản lý nhân sự cho phép ta lưu, sắp xếp, tìm kiếm thông tin về nhân sự một cách nhanh, thuận lợi.
2.2 Phân loại hệ thống thông tin quản lý nhân sự
Theo từng cấp độ ta có thể phân loại hệ thống thông tin quản lý nhân sự thành ba mức: mức tác nghiệp, mức sách lược và chiến lược.
2.2.1 Các hệ thống thông tin ở mức tác nghiệp
Các thông tin ở mức tác nghiệp cung cấp thông tin hỗ trợ cho việc ra quyết định có tính chất thủ tục, lặp lại Có rất nhiều hệ thống thông tin nhân sự ở mức tác nghiệp.
- Hệ thống thông tin quản lý lương:
Xử lý Phân phối Đích
Các dữ liệu liên quan
Trong hệ thống thông tin quản lý tài chính, phân hệ quản lý tiền lương thự hiện thu nhập, báo cáo về nhân lực trong doanh nghiệp.
Các tệp về lương chứa một số lượng lớn các thông tin về người lao động như: hệ số lương, hệ số phụ cấp, ngày tiền lương Với hệ quản trị cơ sở dữ lieu người ta có thể thực hiện lưu trữ dữ liệu với sự giảm thiểu tối đa sự trùng lặp vì thế không có sự trùng lặp giữa hệ thống quản lý lương và hệ thống quản lý nhân sự, nhưng vẫn đảm bảo tương thích về mặt dữ liệu giữa hai hệ thống này, đảm bảo cung cấp các báo cáo tầm sách lược từ dữ liệu của hệ thống này.
- Hệ thống thông tin quản lý việc làm: Định kỳ hệ thống thông tin quản lý việc làm sẽ cung cấp các danh mục các vị trí việc làm theo ngành nghề, theo từng bộ phận, theo nội dung công việc hoặc yêu cầu công việc cùng danh mục vị trí việc làm còn thiếu nhân lực Những danh mục liệt kê vị trí việc làm còn thiếu rất có ý nghĩa cho bộ phận quản trị nhân sự trong công ty trong việc ra quyết định tuyển người Hệ thống thông tin quản lý vị trí làm việc cũng cung cấp rất nhiều thông tin hữu ích giúp cho các nhà quản trị viên hệ thống phát hiện ra các vấn đề liên quan đến nguồn nhân lực để từ đó ra quyết định sách lược phù hợp.
- Hệ thống thông tin quản lý người lao động:
Phòng tổ chức hành chính phải duy trì thông tin về tất cả nhân sự của doanh nghiệp để phục vụ nhiều mục tiêu báo cáo khác nhau Một phần của hệ thống này thông tin cho người quản lý người lao động là tệp nhân sự Tệp này chứa dữ liệu về bản thân người lao động và các thông tin liên quan đến tổ chức như: họ tên, giới tính, quan hệ gia đình, tình trạng hôn nhân, sức khỏe, trình độ học vấn, kinh nghiệm, nghề nghiệp, … Một phần khác của hệ thống thông tin quản lý người lao động là danh mục kĩ năng chứa các thông tin về kinh nghiệm làm việc, sở thích, các khả năng khác của người lao động Danh mục này có thể giúp cho các nhà quản trị nhân lực xác định được năng lực của người lao động và sắp xếp đúng người đúng việc đạt hiệu quả cao nhất, đồng thời danh mục này cũng sử dụng để đề bạt, đào tạo hay thuyên chuyển công tác, nhằm kích thích người lao động hăng say làm việc.
- Hệ thống thông tin đánh giá tình hình thực hiện công việc và con người: Đành giá tình hình thực hiện công việc là quá trình so sánh tình hình thực hiện công việc với yêu cầu đề ra Đối với công nhân sản xuất làm theo mức lao động có thể căn cứ vào phần trăm thực hiện mức lao động, chất lượng sản phẩm,…
Những đánh giá do hệ thống thông tin đánh giá tình hình thực hiện công việc và con người cung cấp gọi là đánh giá biều hiện Dữ liệu phục vụ cho các đánh giá biểu hiện được thu thập bằng mẫu đánh giá người lao động phát tới cấp trên trực tiếp của người lao động hoặc phát tới người cùng làm việc, tới bản thân người lao động.
Thông tin đánh giá tình hình thực hiện công việc có thể dẫn tới hàng loạt các quyết định tác nghiệp như sẽ giữ nguyên vị trí làm việc, thuyên chuyển hay buộc thôi việc người lao động.
Thông tin đánh giá tình hình thực hiện công việc cũng được sử dụng để xác định các nguồn đáng tin cậy, tránh tuyển dụng nhân lực từ các nguồn không đảm bảo chất lượng Cũng như các thông tin này đặt ra cho tổ chức nhu cầu phát triển một chương trình đào tạo bổ sung dành cho người lao động.
- Hệ thống thông tin báo cáo lên cấp trên:
Dữ liệu của hệ thống thông tin quản lý lương, quản lý người lao động và hệ thống thông tin đánh giá tình hình thực hiện công việc có thể sử dụng để lên báo cáo theo yêu cầu lãnh đạo doanh nghiệp, của luật quy định.
- Hệ thống thông tin tuyển chọn nhân viên và sắp xếp công việc:
Sau khi xác định các công việc và yêu cầu với những công việc đó Sauk hi tuyển chọn nhân viên công việc tiếp theo là sàng lọc, đánh giá, lựa chọn, sắp xếp những người lao động vào các vị trớ cũn trống Để chắc chắn phù hợp với luật định của nhà nước, các thủ tục phải được lập hồ sơ và tiến hành một cách có cấu trúc Số liệu thu được qua phỏng vấn, sát hạch phải được thu thập và lưu trữ lại theo đúng yêu cầu của luật định, phục vụ mục đích sau này.
2.2.2 Các hệ thống ở mức sách lược
- Hệ thống thông tin phân tích và thiết kế công việc:
Phân tích và thiết kế công việc bao gồm mô tả các công việc cần thiết của một doanh nghiệp một tổ chức, những năng lực, phẩm chất nhân viên thực hiện công việc đó Mỗi công việc phải đặc tả được mục đích trách nhiệm và nghĩa vụ của mỗi công việc cùng với các điều kiện và chuẩn mực để thực hiện nghĩa vụ và trách nhiệm này Một đặc tả công việc mô tả các kỹ năng, trình độ, kinh nghiệm và các phẩm chất khác cần thiết với người lao động để có thể sắp xếp vào vị trí như đã mô tả. Đầu vào của hệ thống thông tin phân tích và thiết kế công việc là các dữ liệu thu được qua phỏng vấn những người phụ trách, những người lao động và các bản hướng dẫn Thông tin thu từ môi trường của tổ chức cũng là đầu vào với hệ thống thông tin kiểu này. Đầu ra của hệ thống thông tin phân tích và thiết kế công việc là các mô tả và các đặc điểm công việc Các thông tin tạo cơ sở cho các nhà quản lý ra quyết định sách lược.
Thông tin thu được từ hệ thống phân tích và thiết kế công việc có thể sử dụng để tăng tính mềm dẻo của việc triển khai nguồn nhân lực trong cơ quan doanh nghiệp Thông tin phân tích và thiết kế công việc có thể kết nối với hệ thống thông tin quản lý vị trí việc làm, vỡ nú hỗ trợ rất nhiều quyết định sách lược liên quan đến việc phân bổ nguồn nhân lực trong tổ chức.
- Hệ thống thông tin tuyển chọn nhân lực:
Giới thiệu về công cụ lập trình
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ệ.
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 tin liên quan với nhau chứa trong các bảng khác nhau.
Bộ máy (Engine) 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.
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 tin 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.
Khi 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 ta dùng Recordset.
RecordSet là một cấu trúc dữ liệu thể hiện một tập hợp con các mẫu tin lấy về từ CSDL.
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 tin.
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 Khi đị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 Khi 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 khi xóa một mẫu tin khi cú cỏc mẫu tin khác tham chiếu đến nó trong CSDL.
3.2 Giới thiệu về ngôn ngữ Visual Basic 6.0
Visual 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 Office 97 và trình duyệt 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
Lập trình để thêm điều khiển vào đề án tự động và có thể tạo ra 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ủ (Server side) dùng HTML độ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.
Visual 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 Visual 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 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.
Visual 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 ADO Đ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 ADO trong cấu hình hộp danh sách (ListBox) hoặc hộp kết hợp (ComboBox)
Visual 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 Visual 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
3.2.1 Các đối tượng truy cập dữ liệu
Dynamic Data Exchange (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 Linking and Embedding (OLE) : Nhúng và kết nối đối tượng
OLE tuân thủ triết lý của Windows (Click 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 ra bởi ứng dụng 1 và được thả vào ứng dụng 2 Nhấn Double click chuột lên dữ liệu ở ứng dụng 2 nó sẽ hoạt động giống như ở ứng dụng 1.
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 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ổ sung 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.
3.2.2 Sử dụng các đối tượng truy cập dữ liệu trong chương trình Điều khiển DAO (Data Access Objects)
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 ADO (Đố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 SELECT để 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
Thi hành câu truy vấn hành động (bao gồm cỏc cõu truy vấn Update, Delete, 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 ADO Data Control 6.0 (OLEDB) )
XÁC ĐỊNH YÊU CẦU CỦA HTTT QUẢN LÝ NHÂN SỰ
1.1 Yêu cầu về mặt hệ thống
Chương trình này xây dựng nhằm mục đích tổ chức quản lý nhân sự, quản lý hồ sơ nhân sự, quản lý việc tuyển dụng nhân viên cho công ty, quản lý luân chuyển công tác, chế độ phụ cấp khen thưởng, kỷ luật cho nhân viên công ty.
Về tính bảo mật thông tin:
Mỗi người sử dụng đều có một UserName, gọi tên là người dùng và PassWord để tránh truy nhập trái phép Mật khẩu cần được mã hóa Tập trung quản lý thống nhất cơ sở dữ liệu và chương trình, thực hiện phân chia quyền hạn hợp lý nhằm cho hệ thống không bị rối loạn.
Với tư cách là người sử dụng cụ thể, tùy theo các quyền mà người quản trị cung cấp, người dùng đó được phép truy nhập đến các thông tin nhất định Ví dụ, nếu người dùng không đăng nhập hệ thống thì chỉ được cung cấp các thông tin chung nhất hay các báo cáo thống kê không quan trọng do bộ phận đưa ra.
Nếu người sử dụng hệ thống đăng nhập vào hệ thống thì ngoài những thông tin chung mà hệ thống đưa ra cũn cú them một số thông tin khác cần thiết cung cấp cho họ và mức độ chia sẻ thông tin tùy thuộc vào người đăng nhập hệ thống là ai.
- Nếu là lãnh đạo thì sẽ xem được thông tin mà hệ thống đưa ra và các báo cáo chi tiết ở tất cả các bộ phận.
- Nếu là nhân viên của một bộ phận nào đó thì chỉ được xem thông tin và các báo cáo của bộ phận mình mà thôi, ngoài ra có trách nhiệm cập nhật vào hệ thống và là một phần bộ phận đảm đương.
Hệ thống phải được thiết kế mềm dẻo, thông minh để thuận tiện cho việc cải tiến sau này.
Cần có những thông báo cần thiết trong quá trình làm việc để người sử dụng biết mình đang thao tác gì, trạng thái của hệ thống ra sao Chương trình phải có những tính năng tra cứu cần thiết để cung cấp thêm các thông tin cho người sử dụng một cách nhanh chóng.
Ngoài ra, các báo cáo sao kê theo quy định, chương trình cho phép người sử dụng tra cứu nhưng thông tin cần thiết như: Lịch công tác, phụ cấp, tiền lương cơ bản do chính phủ quy định, hay mức lạm phỏt,…
- Giao diện phải đẹp gây thiện cảm cho người sử dụng và thuận tiện cho các thao tác nhập liệu vào.
- Kiểm tra các bước nhập một cách chặt chẽ nhằm tránh việc sai sót ngoài ý muốn.
- Tự động điền những tham số cần thiết.
- Giảm thiểu các sai sót không đáng có ( Tự động chuyển sang phần khác khi nhập xong một phần).
Về mặt truy cập thông tin:
- Khả năng truy cập các thông tin linh hoạt hơn.
- Đảm bảo truy cập thông tin nhanh chóng an toàn.
- Tận dụng khả năng in ấn trong Windows với nhiều loại máy in, font chữ.
- Có khả năng xem trước khi ín.
1.2 Yêu cầu về mặt nghiệp vụ
Những nguyên tắc trong quản trị nhân lực: Đối với mỗi doanh nghiệp, trong mỗi thời kỳ kinh doanh khác nhau có thể vận dụng phương pháp, hình thức quản lý thích hợp, song phải tuân thủ các nguyên tắc sau:
- Đảm bảo cung cấp đủ số lượng và chất lượng lao động cho doanh nghiệp trong mỗi thời kỳ.
- Đảm bảo chuyên môn hóa kết hợp với trang thiết bị hiện đại.
- Phối hợp giữa hợp tác lao động và phân công lao động.
- Sử dụng lao động phải kết hợp với thù lao lao động hợp lý.
- Sử dụng lao động phải dựa trên cơ sở đào tạo, bồi dưỡng để nâng cao trình độ lao động.
- Kết hợp thưởng, phạt vật chất với kỷ luật lao động.
Từ những nguyên tắc trên chúng ta có thể xác định được hệ thống thông tin quản lý nhân sự phải đáp ứng được các yêu cầu nghiệp vụ sau:
1.2.1 Quản lý nhân sự trong Chi nhánh Công ty:
Sau mỗi chu kỳ hoạt động Chi nhánh Công ty có nhu cầu mở rộng thị trường, gia tăng thị phần, bổ xung hoàn chỉnh đội ngũ nhân viên, do đó phải tuyển thêm nhân lực cho Chi nhánh Công ty.
- Đăng tuyển nhân viên thông qua mạng Internet và các mối quan hệ với tổ chức đào tạo nhân lực mà Chi nhánh Công ty tiến hành gửi các thông báo đăng tuyển nhân viên.
- Nhận hồ sơ dự tuyển: Nhận hồ sơ dự tuyển của người xin việc.
- Lưu hồ sơ dự tuyển: Sau hi đã nhận đủ hồ sơ dự tuyển ta tiến hành lưu hồ sơ dự tuyển vào cơ sở dữ liệu.
- Lọc và phân loại hồ sơ: Với những hồ sơ đạt tiêu chuẩn do Chi nhánh Công ty đề ra thì tiến hành phân loại riêng, với mỗi tiêu chí từ trên xuống dưới.
- Tiến hành phỏng vấn, kiểm tra thí sinh dự tuyển do giám đốc và trưởng phòng tiến hành.
- Nhận vào làm việc với những thí sinh đạt tiêu chuẩn, tiến hành lưu vào CSDL nhân viên của Chi nhánh Công ty.
- Tiến hành thông báo cho những thí sinh còn lại và trả lại hồ sơ.
1.2.2 Chuyển và đi công tác: Đối với những trường hợp đi công tác xa hoặc đi làm nhiệm vụ, chúng ta cần xem ai phù hợp nhất, để làm được việc đó chúng ta căn cứ vào đặc điểm của công việc và chọn trong hệ thống nhân sự những người phù hợp nhất với công việc để đi. Ngoài ra còn phải điều chuyển nhân viên từ phòng này sang phũng khỏc và từ trụ sở này sang trụ sở khác.
1.2.3 Đề bạt: Đây cũng là một nghiệp vụ quan trọng, yêu cầu của nghiệp vụ này là tìm trong hệ thống nhân sự ai có kinh nghiệm nhất để đảm đương được nhiệm vụ được giao, hay ai có nhiều tuổi nhất,….
1.2.4 Đánh giá nhân viên: Đây cũng là một nghiệp vụ phức tạp và cần có sự chính xác cao Mỗi tháng hay mỗi kỳ cần có một phiếu đánh giá cho từng nhân viên trong Chi nhánh Công ty. Mục đích là để xem mỗi nhân viên có những tích cực và những nhược điểm gì để từ đó có thể ra quyết định đề bạt.
1.2.5 Phòng quản trị nhân lực:
PHÂN TÍCH, THIẾT KẾ HỆ THỐNG THÔNG TIN QUẢN LÝ NHÂN SỰ TẠI CHI NHÁNH CÔNG TY TNHH DỊCH VỤ VÀ ĐẦU TƯ VINH HẠNH
Sơ đồ chức năng (BFD) của hệ thống thông tin quản lý nhân sự
Tra cứu theo mã nhân viên
Tra cứu theo số liệu tổng hợp
Quản lý hồ sơ Tìm kiếm
2.2 Sơ đồ luồng thông tin (IFD) của hệ thống thông tin quản lý nhân sự:
Nhân sự Phòng nhân sự Giám đốc
Sơ đồ luồng thông tin (IFD) của hệ thống thông tin quản lý nhân sự
Thông tin ban đầu của nhân sự khi vào làm việc tại cơ quan
Thông tin ban đầu của nhân sự khi vào làm việc tại cơ quan Nhập hồ sơ nhân sự
Kho hồ sơ nhân viên
Sau thời gian làm việc có những TT khác liên quan
Kho hồ sơ nhân viên
Thông tin đã xử lý
Cán bộ, công nhân viên
Hệ quản lý nhân sự
Ban giám đốc Thông tin phản hồi
2.4 Sơ đồ luồng dữ liệu (DFD – Phân rã mức 0)
Sơ đồ luồng dữ liệu (DFD – Phân rã mức 0)
Yêu cầu tìm kiếm cá nhân
Yêu cầu tìm kiếm cá nhân Báo cáo
2.5 Sơ đồ DFD mức 1 của chức năng quản lý hồ sơ
Sơ đồ DFD mức 1 của chức năng quản lý hồ sơ 2.5.2 Sơ đồ DFD cho chức năng tìm kiếm
Sơ đồ DFD cho chức năng tìm kiếm
Nhân sự Thông tin cá nhân
Thông tin về nhân sự
Các yêu cầu Tra cứu, tìm kiếm
2.5.3 Sơ đồ DFD cho chức năng báo cáo
Sơ đồ DFD cho chức năng báo cáo 3.5 Thông tin đầu ra và đầu vào của hệ thống thông tin quản lý nhân sự
3.5.1 Thông tin đầu vào của hệ thống
Luồng thông tin đầu vào của hệ thống bao gồm:
- Hồ sơ cán bộ công nhân viên: Thông tin đầu vào này do chính cán bộ công nhân viên của (CBCNV) cơ quan cung cấp thông qua hồ sơ của mỗi công nhân viên.
- Danh sỏch phòng ban: Đây là thông tin về phòng ban do lãnh đạo của Chi nhánh Công ty cung cấp.
- Danh sách chức vụ: Là thông tin về các vị trí quản lý trong cơ quan.
Thông tin này được cung cấp bởi lãnh đạo của Chi nhánh Công ty.
- Danh sách cán bộ CBCNV trong từng phòng: Cho biết các thông tin về số lượng CBCNV trong mỗi phòng ban với họ tên,, chức vụ và một số thông tin khác đi kèm Thông tin này được cung cấp từ cỏc phũng ban trong cơ quan.
- Ngoài ra còn một số thông tin đầu vào khác phục vụ cho hệ thống.
3.5.2 Thông tin đầu ra của hệ thống
Thông tin ra là những thông tin đã xử lý và tổng hợp từ các thông tin vào. Thông tin ra chính là kết quả hoạt động của hệ thống Nó phục vụ cho nhu cầu về thông tin của những người sử dụng hệ thống này và đáp ứng nhu cầu của cơ quan. Thông tin ra càng có chất lượng cao tức là đáp ứng tốt nhu cầu về thông tin của người sử dụng, nâng cao hiệu quả quản lý thì càng chứng tỏ hệ thống hoạt động tốt. Trong hệ thống thông tin phục vụ quản lý nhân sự cho cơ quan, thỡ cỏc thông tin đầu ra giúp cho ban lãnh đạo của doanh nghiệp theo dõi được các thông tin về cán bộ công nhân viên chức trong từng phòng ban, số lượng công nhân viên, chuyên môn, trình độ, lý lịch, kinh nghiệm làm việc, của từng cán bộ công nhân viên.
Từ các thông tin đầu vào qua quá trình xử lý thu được các thông tin đầu ra:
* Thống kê số lượng CBCNV.
STT Mã nhân viên Họ tên Ngày sinh Giới tính Địa chỉ liên lạc Điện thoại
* Báo cáo Theo dõi tình hình tăng giảm nhân viên :
STT Ngày Cập nhật Họ tên Phòng ban Chức vụ Lý do
Từ các thông tin đầu ra giúp cho giám đốc đưa ra các quyết định mang tính chiến lược của công ty:
- Lên kế hoạch phát triển nguồn nhân lực trong doanh nghiệp.
- Đào tạo bồi dưỡng nhân lực.
- Các chế độ đãi ngộ.
- Chế độ bảo hiểm xã hội và bảo hiểm y tế cho người lao động.
- An toàn lao động và điều kiện việc làm.
THIẾT KẾ CSDL TỪ CÁC THÔNG TIN ĐẦU RA
4.1 Các thực thể trong cơ sở dữ liệu
Mỗi kỡ cỏc nhà quản trị cần xem các báo cáo về tình hình chung của nhân viên trong công ty cũng như những tình hình riêng với từng nhân viên.
STT Filed Type Width Description
1 manv Text 20 Mã nhân viên
2 tennv Text 50 Tên nhân viên
6 macv Text 10 Mã chức vụ
8 madt Text 10 Mã dân tộc
12 matp Text 10 Mã thành phố
16 giadinh Text 10 Tình trạng gia đình
18 macm Text 10 Mã chuyên môn
19 matg Text 10 Mã tôn giáo
20 matd Text 10 Mã trình độ
21 ngaybatdau Date 10 Ngày bắt đầu
23 phucapcv Numberic 10 Phụ cấp chức vụ
25 ngayhd Date 10 Ngày hợp đồng
26 sohd Text 10 Số hợp đồng
27 mahd Text 10 Mã hợp đồng
28 HKTT Text 100 Hộ khẩu thường trú
STT Filed Type Width Description
1 macv Text 10 Mã chức vụ
2 tencv Text 50 Tên chức vụ
STT Filed Type Width Description
1 Macm Text 10 Mã chuyên môn
2 Tencm Text 50 Tên chuyên môn
STT Filed Type Width Description
1 Mahd Text 10 Mã hợp đồng
2 Tenhd Text 50 Tên hợp đồng
STT Filed Type Width Description
1 Mann Text 10 Mã ngoại ngữ
2 Tennn Text 50 Tên ngoại ngữ
STT Filed Type Width Description
STT Filed Type Width Description
1 Matp Text 10 Mã thành phố
2 Tentp Text 50 Tên thành phố
STT Filed Type Width Description
1 Matd Text 10 Mã trình độ
2 Tentd Text 50 Tên trình độ
STT Filed Type Width Description
4.2 Mô hình quan hệ giữa các thực thể
Một số giao diện chính của chương trình
5.1 From đăng nhập hệ thống
Người dùng khi đăng nhập vào hệ thống bắt buộc phải điền đầy đủ các thong tin về người dùng và mật khẩu thì chương trình mới cho đăng nhập.
Sau khi đăng nhập thành công Người dùng có thể làm các công việc như cập nhật, tìm kiếm hoặc tra cứu thông tin Và có thể in ra các báo cáo cần thiết, giúp lãnh đạo có thể đưa ra quyết định chính xác mang lại lợi ích cho chi nhánh Công ty.
Khi trong Công ty có them phòng ban mới, đổi tên phòng ban, hoặc gộp phòng ban, người dùng có thể xử lý thờm cỏc thông tin như cập nhật, thêm, sửa, xúa mó phũng ban và tờn phũng ban.
Người dùng có thể cập nhật các thông tin cơ bản của nhân viên mới, sửa chữa thông tin không dung về nhan viờn, xúa những nhân viên không còn làm việc với chi nhánh công ty.
Người dùng có thể cập nhật các thông tin cơ bản của nhân viên mới, sửa chữa thông tin về trình độ học vấn của nhân viên trong chi nhánh Công ty.
From Tìm kiếm dùng để tìm kiếm danh sách nhân viên trong chi nhánh Công ty một cách nhanh chóng dễ dàng khi có yêu cầu.
5.7 Báo cáo danh sách nhân viên
5.8 Một số đoạn code trong chương trình
Sub MDIForm_Unload(Cancel As Integer)
Private Sub mnuAboutSalary_Click() frmAbout.Show
Private Sub mnuAllowanceFiles_Click() frmPhuCap.Show
Private Sub mnuCoefficientforsalary_Click() frmnhapheso.Show
If MDImain.mnuEnglish.Checked = False Then
Sub mnuexit_Click() ketthuc = MsgBox("Bạn muốn kết thúc tại đây! ", vbYesNo, "Thông báo")
Private Sub mnuLookUppersonal_Click() frmTracuuCb.Show
Private Sub mnuLookupSalary_Click() frmTraCuuLuong.Show
Private Sub mnuOpenFilesPersonal_Click() cdlmain.ShowOpen myPathhoso = cdlmain.FileName
Private Sub mnupersonalfile_Click() frmhosocb.Show
Private Sub mnurewardforsalary_Click() frmthuong.Show
Private Sub mnusalaryfile_Click() frmluong.Show
If Me.StatusBar1.Visible = False Then
If Me.tlbmain.Visible = False Then
If MDImain.mnuVietnamese.Checked = False Then
Private Sub tlbmain_ButtonClick(ByVal Button As ComctlLib.Button)
Case "New" file = InputBox(" Nhập vào Tên CSDL cần tạo", "Tao bảng cSDL mới")
MsgBox "Phần này dành cho bạn"
MsgBox "choa bai" mnuexit_Click
'Đoạn chương trình nhằm chuẩn hoá tiếng việt
Function Chuan(XauVao As String, Thamso As Byte) As String
Dim xau(1 To 50) As String
For k = 1 To Len(KTV) xau(k) = Mid(KTV, k, 1)
'tất các ký tự đầu được biến thành chữ hoa
For k = 1 To Len(KTV) xau(k) = Mid(KTV, k, 1)
If Asc(xau(1)) >= 168 And Asc(xau(1)) = 168 And Val(Asc(xau(i + 1))) 12 Then
If Int(Val(Ngay)) > 31 Then
CheckDate = Trim(Ngay & "/" & Thang & "/" & Nam)
Public Sub Language(Language As Boolean)
mnuInput.Caption = "Nhập Dữ Liệu"
mnuAllowanceFiles.Caption = "&Nhập Phụ Cấp "
mnuCoefficientforsalary.Caption = "&Hệ Số Lương "
mnupersonalfile.Caption = "Hồ &Sơ Can Bo "
mnuLookUppersonal.Caption = "Tra cứu theo hồ &Sơ Nhân viên "
mnuLookupSalary.Caption = "Tra cứu theo &lương "
MnuLanguage.Caption = "&Ngôn ngữ Hiển Thị"
mnuAboutSalary.Caption = "Thông Tin Về &Chương Trình "
mnuCoefficientforsalary.Caption = "&Ceofficient Fo Salary "
mnurewardforsalary.Caption = "&Raward for Salary "
mnuLookUppersonal.Caption = "Look Up According &Personal "
mnuLookupSalary.Caption = "Look Up According &Salary "
Public Sub KiemTraNgay(dong As String)
MsgBox "Bạn Nhập sai DL ngày tháng rồi! Hãy Nhập lại nh sau: dd/mm/yyyy", vbCritical, "Chó ý"
End If nam1 = Val(Mid(dong, 7, 5)) dong = Format(dong, "dd/mm/yyyy")
If Ngay > 30 And Len(nam1) = 4 Then
MsgBox "Bạn nhập sai ngày, tháng này chỉ có 30 ngày!", vbCritical, "Chó ý"
If (Thang = 4) Or (Thang = 6) Or (Thang = 9) Or (Thang = 11) And
If Ngay > 31 And Len(nam1) = 4 Then
MsgBox "Bạn nhập sai ngày, tháng này chỉ có 31 ngày!", vbCritical, "Chó ý"
If (Thang = 1) Or (Thang = 3) Or (Thang = 5) Or (Thang = 7) Or (Thang 8) Or (Thang = 10) Or (Thang = 12) And (Len(nam1) = 4) Then
If (Nam Mod 4 = 0) And (Ngay > 29) And (Thang = 2) Then
MsgBox "Bạn nhập sai DL, tháng 2 chỉ có 28 ngày", vbCritical, "Chó ý" txthoso(2).SetFocus
If (Nam Mod 4 = 0) And (Ngay 28) And (Thang = 2) Then
MsgBox "Bạn nhập sai DL, tháng 2 chỉ có 28 ngày", vbCritical, "Chó ý" txthoso(2).SetFocus
If (Nam Mod 4 0) And (Ngay 12) And (Len(nam1) = 4)) Then
MsgBox "Bạn Nhập sai kiểu tháng !", vbCritical, "Chó ý"
If ok = True Then frmhosocb.cbohoso(0).SetFocus
Private Sub cbohoso_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
MsgBox "Bạn Phải nhập DL Vao !" cbohoso(0).SetFocus
If (UCase(Trim(cbohoso(0).Text)) = UCase("Nam")) Or
(UCase(Trim((cbohoso(0).Text))) = UCase("Nữ")) Then cbohoso(1).SetFocus
MsgBox "DL chỉ nhận là : Nam hoặc Nữ ", vbCritical, "Thông Báo" cbohoso(0).SetFocus
MsgBox "Bạn Phải nhập DL Vao !" cbohoso(1).SetFocus
Else cbohoso(1).Text = Chuan(cbohoso(1), 2) txthoso(3).SetFocus
MsgBox "Bạn Phải nhập DL Vao !" cbohoso(2).SetFocus
Else cbohoso(2).Text = Chuan(cbohoso(2), 1) cbohoso(3).SetFocus
MsgBox "Bạn Phải nhập DL Vao !" cbohoso(3).SetFocus
Else cbohoso(3).Text = Chuan(cbohoso(3), 2) cbohoso(4).SetFocus
MsgBox "Bạn Phải nhập DL Vao !" cbohoso(4).SetFocus
Else cbohoso(4).Text = Chuan(cbohoso(4), 2) cbohoso(5).SetFocus
MsgBox "Bạn Phải nhập DL Vao !" cbohoso(5).SetFocus
Else cbohoso(5).Text = Chuan(cbohoso(5), 2) txthoso(5).SetFocus
Sub cmdchucnang_Click(Index As Integer)
'MsgBox " Bạn vừa chọn nhập mới "
Set rec = db.OpenRecordset("hosocanbo")
Case 1 ' 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(Trim(IDMacb)) = 0 Then Exit Sub
Set rec = db.OpenRecordset("SELECT * FROM HosoCanBo WHERE [MaCB]='" & IDMacb & "'")
MsgBox "Không tồn tại mã cán bộ đó trong lưu trữ ", vbCritical,
Case 2 ' chọn chức năng Ghi
MsgBox " Bạn vừa chọn ghi"
Set db = DBEngine.Workspaces(0).OpenDatabase(mypath)
Set rec = db.OpenRecordset("HoSoCanBo")
' Kiểm tra Xem Da co đủ Thong tin
If cbohoso(i).Text = "" Then cbohoso(i).SetFocus
If txthoso(i).Text = "" Then txthoso(i).SetFocus
Next k dongsql = "Insert into hosocanbo
(macb,Hoten,ngaysinh,Gioitinh,DanToc,Quequan,NoiOhiennay,Phong,ChucVu,Tri nhDo,Chuyenmon,NgayvaoBienChe) Values ('" & UCase(Trim(txthoso(0).Text)) &
"','" & Trim(txthoso(1).Text) & "','" & Trim(txthoso(2).Text) & "','" &
Trim(cbohoso(0).Text) & "','" & Trim(cbohoso(1).Text) & "','" &
Trim(txthoso(3).Text) & "','" & Trim(txthoso(4).Text) & "','" &
Trim(cbohoso(2).Text) & "','" & Trim(cbohoso(3).Text) & "','" &
Trim(cbohoso(4).Text) & "','" & Trim(cbohoso(5).Text) & "','" &
For j = 0 To dathoso.Recordset.RecordCount - 1
If UCase(Trim(txthoso(0).Text))
UCase(dathoso.Recordset.Fields(0).Value) Then coghi = True
MsgBox " Đã Có trong cơ sở dữ liệu của bạn !"
If coghi = True Then db.Execute dongsql dathoso.Refresh
End If db.Execute dongsql db.Execute "Insert Into Luong(macb,luong,kynhan)Values ('" &
UCase(Trim(txthoso(0).Text)) & "',100,'No')" db.Close txthoso(0).SetFocus
Set rec = db.OpenRecordset("Hosocanbo")
If Not EOF Or Not BOF Then xoa = MsgBox("Bạn Muốn xoá ?", vbYesNo, "Chó ý")
Case 5 ' In Ên frmXemhoso.cmdchucnang_Click
Private Sub dathoso_Reposition() dongxoa = Me.dathoso.Recordset.RecordCount + 1
If Not Me.dathoso.Recordset.BOF Or Not Me.dathoso.Recordset.EOF Then txthoso(0).Text = Me.dathoso.Recordset.Fields(0).Value txthoso(1).Text = Me.dathoso.Recordset.Fields(1).Value
MsgBox "Đây la quá bản ghi cuối rồi", vbCritical, "Chó ý"
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 20 End Sub
Private Sub Form_Load() mypath = "c:\qlluong\QLLuong.mdb"
Private Sub txthoso_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
MsgBox "Bạn Phải nhập DL Vao !" txthoso(0).SetFocus
Else txthoso(0).Text = Chuan(txthoso(0), 3) txthoso(1).SetFocus
MsgBox "Bạn phải nhập DL vào !" txthoso(1).SetFocus
Else txthoso(1).Text = Chuan(txthoso(1), 1) txthoso(2).SetFocus
MsgBox "Bạn phải nhập dữ liệu vào !" txthoso(2).SetFocus
MsgBox "Bạn phải nhập DL vào !" txthoso(3).SetFocus
Else txthoso(3).Text = Chuan(txthoso(3), 1) txthoso(4).SetFocus
MsgBox " Bạn phải nhập DL vào!" txthoso(4).SetFocus
Else txthoso(4).Text = Chuan(txthoso(4), 1) cbohoso(2).SetFocus
MsgBox " Bạn phải nhập DL vào!" txthoso(5).SetFocus
If KiemTraNgayvaoBC(Trim(txthoso(5).Text)) = True Then cmdchucnang_Click (2) cmdchucnang_Click (0)
Public Sub HienData() dathoso.DatabaseName = mypath dathoso.RecordSource = "Hosocanbo"
Set db = DBEngine.Workspaces(0).OpenDatabase(mypath)
MySql = "SELECT DISTINCT [DanToc] FROM HosoCanBo"
Set rec = db.OpenRecordset(MySql, dbOpenSnapshot)
Do While Not EOF frmhosocb.cbohoso(1).AddItem (.Fields(0).Value)
Set db = DBEngine.Workspaces(0).OpenDatabase(mypath)
MySql = "SELECT DISTINCT [Phong] FROM HosoCanBo"
Set rec = db.OpenRecordset(MySql, dbOpenSnapshot)
Do While Not EOF frmhosocb.cbohoso(2).AddItem (.Fields(0).Value)
Set db = DBEngine.Workspaces(0).OpenDatabase(mypath)
MySql = "SELECT DISTINCT [ChucVu] FROM HosoCanBo"
Set rec = db.OpenRecordset(MySql, dbOpenSnapshot)
Do While Not EOF frmhosocb.cbohoso(3).AddItem (.Fields(0).Value)
Set db = DBEngine.Workspaces(0).OpenDatabase(mypath)
MySql = "SELECT DISTINCT [TrinhDO] FROM HosoCanBo"
Set rec = db.OpenRecordset(MySql, dbOpenSnapshot)
Do While Not EOF frmhosocb.cbohoso(4).AddItem (.Fields(0).Value)
Set db = DBEngine.Workspaces(0).OpenDatabase(mypath)
MySql = "SELECT DISTINCT [ChuyenMon] FROM HosoCanBo"
Set rec = db.OpenRecordset(MySql, dbOpenSnapshot)
Do While Not EOF frmhosocb.cbohoso(5).AddItem (.Fields(0).Value)
Sub Nhaplai(dk As Boolean)
If dk = True Then txthoso(2).SetFocus
Public Function KiemTraNgayvaoBC(dong As String) As Boolean
MsgBox "Bạn Nhập sai DL ngày tháng rồi! Hãy Nhập lại nh sau: dd/mm/yyyy", vbCritical, "Chó ý"
End If nam1 = Val(Mid(dong, 7, 5)) dong = Format(dong, "dd/mm/yyyy")
If Ngay > 30 And Len(nam1) = 4 Then
MsgBox "Bạn nhập sai ngày, tháng này chỉ có 30 ngày!", vbCritical, "Chó ý"
If (Thang = 4) Or (Thang = 6) Or (Thang = 9) Or (Thang = 11) And
If Ngay > 31 And Len(nam1) = 4 Then
MsgBox "Bạn nhập sai ngày, tháng này chỉ có 31 ngày!", vbCritical, "Chó ý"
If (Thang = 1) Or (Thang = 3) Or (Thang = 5) Or (Thang = 7) Or (Thang 8) Or (Thang = 10) Or (Thang = 12) And (Len(nam1) = 4) Then
If (Nam Mod 4 = 0) And (Ngay > 29) And (Thang = 2) Then
MsgBox "Bạn nhập sai DL, tháng 2 chỉ có 28 ngày", vbCritical, "Chó ý" txthoso(5).SetFocus
If (Nam Mod 4 = 0) And (Ngay 28) And (Thang = 2) Then
MsgBox "Bạn nhập sai DL, tháng 2 chỉ có 28 ngày", vbCritical, "Chó ý" txthoso(5).SetFocus
If (Nam Mod 4 0) And (Ngay 12) And (Len(nam1) = 4)) Then
MsgBox "Bạn Nhập sai kiểu tháng !", vbCritical, "Chó ý"
'In danh muùc chửựng tửứ
Private Sub cmdRepheso_Click() heso.Show
Private Sub Command1_Click() he_so_luong.Show
Dataheso.AllowAddNew = False cmdthem.Enabled = True 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
Dataheso.AllowAddNew = True cmdthem.Enabled = False cmdsua.Enabled = False cmdxoa.Enabled = False 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
On Error GoTo Loi_Them
'Tửù ủoọng caọp nhaọt lái baỷn ghi trong Form hay DataSheet khi dửừ lieọu thay ủoồi
'DataGrid cuỷa heso nhaọn tieõu ủieồm
On Error GoTo Loi_Sua
'Bieỏn ủaựnh daỏu baỷn ghi caàn thay ủoồi recnum = Ado_heso.Recordset.Bookmark
On Error GoTo Loi_Xoa
Dim traloi traloi = MsgBox("Bán muoỏn xoựa chửựng tửứ " +
Ado_heso.Recordset.Fields("heso") + " ?", 48 + 4, "Thõng baựo")
If Ado_heso.Recordset.EOF Then
'Duứng phửụng thửực Refresh cuỷa ủoỏi tửụùng Adodc ủeồ caọp nhaọt lái dửừ lieọu
MsgBox "Khõng theồ xoựa maĩu tin naứy !"
On Error GoTo Loi_Ghi
Ado_heso.Recordset.UpdateBatch adAffectAll
Khoa cmdthem.SetFocus them = False
MsgBox "Dửừ lieọu khõng hụùp leọ !"
MsgBox "Maừ chửựng tửứ coự toỏi 10 kyự tửù soỏ !"
'Duứng phửụng thửực CancelUpdate ủeồ boỷ qua vieọc caọp nhaọt dửừ lieọu Ado_heso.Recordset.CancelUpdate
Khoa cmdthem.SetFocus them = False
'Khi click vaứo DataGrid cuỷa heso ủoàng thụứi ủeỏm soỏ baỷn ghi vaứ
'ủaựnh daỏu baỷn ghi hieọn haứnh
Dim n1 n = 0 n1 = 0 n = Ado_heso.Recordset.RecordCount
If (Ado_heso.Recordset.EOF = False) And (Ado_heso.Recordset.BOF = False) Then n1 = Ado_heso.Recordset.Bookmark
End If txtBGHH.Text = n1 txtSBG.Text = n
Private Sub CBoTC_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
If Not Trim(CBoTC(0).Text) = "" Then
CBoTC(0).Text = Chuan(CBoTC(0).Text, 1)
If Not Trim(CBoTC(1).Text) = "" Then
CBoTC(1).Text = Chuan(CBoTC(1).Text, 3)
Case 2 'theo he so luong
If Not Trim(CBoTC(2).Text) = "" Then
If Len(Trim(CBoTC(2).Text)) 0 Then
CBoTC(2).Text = Chuan(Trim(CBoTC(2).Text), 2)
If Not Trim(CBoTC(3).Text) = "" Then
CBoTC(3).Text = Chuan(CBoTC(3).Text, 2)
If Not Trim(CBoTC(4).Text) = "" Then
CBoTC(4).Text = Chuan(CBoTC(4).Text, 2)
If Not Trim(CBoTC(5).Text) = "" Then
CBoTC(5).Text = Chuan(CBoTC(5).Text, 2)
Private Sub CBoTC_LostFocus(Index As Integer)
CBoTC(0).Text = Chuan(CBoTC(0).Text, 1)
CBoTC(1).Text = Chuan(CBoTC(1).Text, 3)
CBoTC(2).Text = Chuan(CBoTC(2).Text, 2)
CBoTC(3).Text = Chuan(CBoTC(3).Text, 2)
CBoTC(4).Text = Chuan(CBoTC(4).Text, 2)
CBoTC(5).Text = Chuan(CBoTC(5).Text, 2)
Dim IDMacb As String, IDHoTen As String
Dim IDHSL As String, IDMPC As String
Dim IDLT As String, IDLuong As String
Dim IDConLai As String, IDDnd As String
Dim pheptoan1 As String, pheptoan2 As String
Dim sql As String, i As Byte sql = "SELECT DISTINCTROW HosoCanBo.macb, HosoCanBo.HoTen,
HosoCanBo.Ngaysinh, HosoCanBo.Phong, HosoCanBo.Chucvu,
HosoCanBo.NgayVaoBienChe, Luong.hesoluong, Luong.Loaithuong,
Luong.MucPhuCap, Luong.SoNgayNghi, Luong.Luong, Luong.TamUng,
Luong.Conlai " sql = sql & " FROM Luong INNER JOIN HosoCanBo ON Luong.Macb HosoCanBo.macb WHERE "
IDHoTen = Chuan(Trim(CBoTC(0).Text), 1)
IDMacb = Chuan(Trim(CBoTC(1).Text), 3)
IDDnd = Trim(CBoTC(5).Text) pheptoan1 = Mid(Trim(txtTC(0).Text), 1, 2)
IDLuong = Mid((Trim(txtTC(0).Text)), 3, Len(Trim(txtTC(0).Text))) pheptoan2 = Mid(Trim(txtTC(1).Text), 1, 2)
IDConLai = Mid((Trim(txtTC(1).Text)), 3, Len(Trim(txtTC(1).Text)))
Select Case Me.OptAND.Value
If Len(IDHoTen) > 0 Then sql = sql & " HosoCanBo.[HoTen] LiKe '" & IDHoTen & "' And "
If Len(IDMacb) > 0 Then sql = sql & " HosoCanBo.[Macb] LiKe '" & IDMacb & "' And "
If Len(IDHSL) > 0 Then sql = sql & " Luong.[Hesoluong] Like '" &
If Len(IDMPC) > 0 Then sql = sql & " Luong.[MucPhuCap] LiKe '" & IDMPC & "' And "
If Len(IDLT) > 0 Then sql = sql & " Luong.[LoaiThuong] LiKe '" & IDLT
If Len(IDDnd) > 0 Then sql = sql & " Luong.[KyNhan] LiKe '" & IDDnd
If Len(IDLuong) > 0 Then sql = sql & " val(Luong.[Luong]) " & pheptoan1 & " " & Val(IDLuong) & " And "
If Len(IDConLai) > 0 Then sql = sql & " val(Luong.[ConLai]) " & pheptoan2 & " " & Val(IDConLai) & " And "
MsgBox sql sql = sql & " HosocanBo.[Macb]=luong.[Macb] ORDER BY HosoCanBo. [HoTen]"
If Len(IDHoTen) > 0 Then sql = sql & " HosoCanBo.[HoTen] LiKe '" & IDHoTen & "' or "
If Len(IDMacb) > 0 Then sql = sql & " HosoCanBo.[Macb] LiKe '" & IDMacb & "' or "
If Len(IDHSL) > 0 Then sql = sql & " Luong.[Hesoluong] Like '" &
If Len(IDMPC) > 0 Then sql = sql & " Luong.[MucPhuCap] LiKe '" & IDMPC & "' OR "
If Len(IDLT) > 0 Then sql = sql & " Luong.[LoaiThuong] LiKe '" & IDLT
If Len(IDDnd) > 0 Then sql = sql & " Luong.[KyNhan] LiKe '" & IDDnd
If Len(IDLuong) > 0 Then sql = sql & " val(Luong.[Luong]) " & pheptoan1
If Len(IDConLai) > 0 Then sql = sql & " val(Luong.[ConLai]) " & pheptoan2 & " " & Val(IDConLai) & " OR " sql = Mid(sql, 1, Len(Trim(sql)) - 2)
MsgBox sql sql = sql & " AND HosocanBo.[Macb]=luong.[Macb] ORDER BY
Set db = OpenDatabase("c:\Qlluong\Qlluong.mdb")
Set rec = db.OpenRecordset(sql, dbOpenSnapshot)
MsgBox " Không có cán bộ thoả mãn thông tin tìm kiếm", vbCritical, "Thông báo"
Me.txtTong.Text = Me.DatTCLuong.Recordset.RecordCount
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 200 'NapDK
Me.Frame1.Enabled = False mypath = "c:\QLluong\Qlluong.mdb"
Me.DbgTCLuong.Columns(0).DataField = "HoTen" sql = "SELECT DISTINCTROW HosoCanBo.macb, HosoCanBo.HoTen,
HosoCanBo.Ngaysinh, HosoCanBo.Phong, HosoCanBo.Chucvu,
HosoCanBo.NgayVaoBienChe, Luong.hesoluong, Luong.Loaithuong,
Luong.MucPhuCap, Luong.SoNgayNghi, Luong.Luong, Luong.TamUng,
Luong.Conlai " sql = sql & " FROM HosoCanBo,Luong WHERE " sql = sql & "HosoCanBo.[Macb]=Luong.[Macb] ORDER BY HosoCanBo. [Hoten]"
Set db = DBEngine.Workspaces(0).OpenDatabase("c:\QLluong\Qlluong.mdb") Set rec = db.OpenRecordset(sql, dbOpenSnapshot)
MsgBox " Không có đầu sách thoả mãn thông tin tìm kiếm", vbCritical,
Set Me.DatTCLuong.Recordset = rec
Me.DbgTCLuong.Columns(0).DataField = Recordset.Fields(1).Name
TxtTCLuong(i).DataField = Recordset.Fields(i).Name
Me.txtTong.Text = Me.DatTCLuong.Recordset.RecordCount
'nạp Thông Tin Ho tên
Next i mypath = "c:\QLluong\Qlluong.mdb" frmTraCuuLuong.CBoTC(0).AddItem ""
Set db = DBEngine.Workspaces(0).OpenDatabase(mypath)
MySql = "SELECT DISTINCT [Hoten] FROM HosoCanBo ORDER BY
Set rec = db.OpenRecordset(MySql, dbOpenSnapshot)
Do While Not EOF frmTraCuuLuong.CBoTC(0).AddItem (.Fields(0).Value) MoveNext
End With frmTraCuuLuong.CBoTC(0).AddItem ""
'nạp Thông Tin MaCB frmTraCuuLuong.CBoTC(1).AddItem ""
Set db = DBEngine.Workspaces(0).OpenDatabase(mypath)
MySql = "SELECT DISTINCT [Macb] FROM Luong ORDER BY Luong. [Macb]"
Set rec = db.OpenRecordset(MySql, dbOpenSnapshot)
Do While Not EOF frmTraCuuLuong.CBoTC(1).AddItem (.Fields(0).Value) MoveNext
'nạp Thông Tin Hệ số lương
Set db = DBEngine.Workspaces(0).OpenDatabase(mypath)
MySql = "SELECT DISTINCT [Heso] FROM HesoLuong ORDER BY
Set rec = db.OpenRecordset(MySql, dbOpenSnapshot)
Do While Not EOF frmTraCuuLuong.CBoTC(2).AddItem (.Fields(0).Value) MoveNext
End With frmTraCuuLuong.CBoTC(2).AddItem ""
'nạp Thông Tin Mức phụ cấp
Set db = DBEngine.Workspaces(0).OpenDatabase(mypath)
MySql = "SELECT DISTINCT [MucPhucap] FROM PhuCap ORDER BY PhuCap.[MucPhuCap]"
Set rec = db.OpenRecordset(MySql, dbOpenSnapshot)
Do While Not EOF frmTraCuuLuong.CBoTC(3).AddItem (.Fields(0).Value) MoveNext
End With frmTraCuuLuong.CBoTC(3).AddItem ""
'nạp Thông Tin Loại thưởng
Set db = DBEngine.Workspaces(0).OpenDatabase(mypath)
MySql = "SELECT DISTINCT [LoaiThuong] FROM Thuong" ' ORDER BY Thuong.[LoaiThuong]"
Set rec = db.OpenRecordset(MySql, dbOpenSnapshot)
Do While Not EOF frmTraCuuLuong.CBoTC(4).AddItem (.Fields(0).Value) MoveNext
End With frmTraCuuLuong.CBoTC(4).AddItem ""
'nạp Thông Tin Đa nhân frmTraCuuLuong.CBoTC(5).AddItem ""
Set db = DBEngine.Workspaces(0).OpenDatabase(mypath)
MySql = "SELECT DISTINCT [KyNhan] FROM Luong ORDER BY Luong. [KyNhan]"
Set rec = db.OpenRecordset(MySql, dbOpenSnapshot)
Me.CBoTC(5).AddItem (.Fields(0).Value)
Private Sub txtTC_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer) Select Case Index
If KeyCode = 13 Then txtTC(1).SetFocus
Sub cmdchucnang_Click() outputdestination = 0 rptxemhoso.Destination = outputdestination rptxemhoso.DataFiles(0) = mypath rptxemhoso.ReportFileName = rptfilename + "hscb.rpt" rptxemhoso.Action = 1
Me.Move (Screen.Width - Me.Width) / 200, (Screen.Height - Me.Height) / 200 Me.Frame1.Top = Me.Height - 1500
Me.Frame1.Left = Me.Left + 100
Me.Frame1.Width = Me.Width - 400
Sub Form_Load() mypath = "c:\QLluong\qlluong.mdb" datxemhoso.DatabaseName = mypath datxemhoso.RecordSource = "HoSoCanBo"
Me.DBGXemHoso.Font.Name = ".vntime"
Columns(0).Caption = "Mã cán bộ"
Columns(11).Caption = "Ngày vào biên chế"