Luận văn xay dung chuong trinh quan ly nhan su tai cong ty

Giới thiệu về công ty TNHH Tân sông hồng

T cách pháp nhân của Công ty

công ty tân sông hồng là một doanh nghiệp t nhân thành lập vào ngày 13 tháng 11 năm 2003 Đã hoạt động trong lĩnh vực kinh doanh của mình đợc hai năm Với một công ty hoạt động chủ yếu về lĩnh vực thơng mại tơng đối phát triển và cũng dẫ có nhiều thành tích trong hoạt động của mình Các nghành nghề kinh doanh của công ty nh sau:

- Dịch vụ chuyển giao công nghệ sử lý nớc và môi trờng.

- T vấn và thiết kế xây dựng

- Mua bán nguyên vật liệu xây dựng

- Mua bán, lắp đặt linh kiện máy tính

- Cung cấp và thiết kế, cài đặt phần mềm tin học

- Sản xuất, thiết kế, lắp đặt thiết bị tự động

Tên giao dịch của công ty: SOHO.,CLTD

Hình thức sở hữu: Cổ phần

Trụ sở chính của công ty: 42A- Phố Tô Vĩnh Diện – Thanh xuân – Hà Nội.

P.Giám đốc công ty: Vũ Thị Thanh Xuân

Hồ Anh Cờng Lớp 40B – Tin học kinh tế ban giám đốc công ty p.kế hoạch p.giám đốc công ty p.kế toán p1 p2 p3 p4 p5 p6

E-Mail: SOHO@hn.vnn.vn

Chức năng và nhiệm vụ của Công ty

Công ty tân sông hồng là doanh nghiệp có nhiều kinh nghiệm trong lĩnh vực thơng mại của mình cụ thể công ty đã nghiên cứu và đa vào thị trờng thiết bị lọc nớc sử dụng đã chiếm thị phần tơng đối cao đợc khách hàng sử dụng và sản phẩm cũng đem lại sự uy tín cho khách hàng.

Trong hoạt xây dựng đã thiết kế nhiều công trình vừa và nhỏ cho các doanh nghiệp t nhân Còn về lĩnh vực tin học công ty cũng đã thiết kế một số chơng trình tiêu biểu cụ thể chơng trình quản lý công văn, chơng trình quản lý nhân sự, chơng trình, quản lý xuất khẩu lao động

Mặc dù trong hoạt động kinh doanh của minh chua đợc nổi bật nhng cũng đã chứng tỏ đợc sự linh hoạt của mình trong lĩnh vực thơng mại.

Cơ cấu nhân sự của Công ty

Trờng Đại học kinh tế Quốc Dân Chuyên dề thực tập Tốt Nghiệp

(Sơ đồ tổ chức công ty.)

Chức năng hoạt động của Công ty

P1: Dịch vụ chuyển giao công nghệ sử lý nớc và môi tr- êng

Phòng này chuyên nghiên cứu các thiết bị sử lý nớc sinh hoạt, lắp đặt các thiết bị s lý, bồn chứa

Các thiết bị và hoá chất sử lý chủ yếu đợc nhập từ các doanh nghiệp nhập khẩu khác Không sản xuất thiết bị.

P2: T vấn và thiết kế xây dựng

Phòng này chủ yếu thiết kê các bản vẽ theo đơn đặt hàng đồng thời đấu thầu các công trình vừa và nhỏ.

P3: Mua bán nguyên vật liệu xây dựng

Phòng này hoạt động liên kết với phòng 2 khi có công trình thì phòng này cung cấp nguyên vật liệu cho phòng 2 nó không hoạt động độc lập.

P4: Mua bán và lắp đặt linh kiện máy tính

Hồ Anh Cờng Lớp 40B – Tin học kinh tế

Phòng này chủ yếu nhập hàng về và xuất hàng cho thị trờng trong nớc các linh kiện chủ yêu xuất sứ từ Trung Quốc số lợng xuất nhập trong tháng không lớn còn phụ thuộc vào nhu cấu sử dụng khách hàng.

P5: Cung cấp và thiết kế, cài đặt phần mềm tin học

Phòng này chủ yếu thiết kế các phần mềm tin học phục vụ cho các doanh nghiệp trong nớc hiệu quả kinh tế không cao nhng cũng đa đa ra một số phần mềm tơng đối đặc trng Phần mềm bán đợc chủ yếu dựa vào các mối quan hệ tiềm năng của công ty.

Phòng này chủ yếu khai thác các đơn hàng của công ty và cũng là phòng quan trọng nhất của công ty tất cả các phòng ban có mối liên hệ rất chặt chẽ với phòng này Tất cả các chiến lợc kinh doanh công ty đề ra giao cho các phòng sau đấy các phòng họp với nhau và đề ra chiến lợc cụ thể tiếp đến công việc còn lại tiếp xúc thị trờng thì phòng marketing thực hiện thành công hay không đều phỉa phụ thuộc vào phòng này.

KHảO SáT Và xác ĐịNH Hệ thống chơng trình QLNs

2.1.1 Hệ thống hiện tại và nhợc điểm của nó

Trong những năm trớc đây do điều kiện kinh tế cha phát triển, quy mô của các cơ quan quản lý ở nớc ta còn hạn chế nên việc sử dụng máy tính trong công tác quản lý nói chung và quản lý nhân sự, tiền lơng cha phổ biến, công tác quản lý chủ yếu thực thiện bằng phơng pháp thủ công Khi nền kinh tế cha phát triển, quy mô các tổ chức còn nhỏ thì việc

Trờng Đại học kinh tế Quốc Dân Chuyên dề thực tập Tốt Nghiệp quản lý nhân sự bằng phơng pháp thủ công là có thể chấp nhận đợc.

Nhng ngày nay nền kinh tế càng phát triển nhu cầu con ngời càng tăng lên, số ngời làm việc trong các tổ chức, cơ quan ngày càng nhiều, quy mô của tổ chức này ngày càng lớn.

Do đó việc quản lý thủ công phần nào không còn phù hợp với xu hớng thời đại mới Ta có thể nhận thấy một số yếu kém của công tác thủ công nh:

- Việc lu trữ thông tin phức tạp, phải nhiều phòng ban, từ đó dẫn đến cơ cấu tổ chức bất hợp lý, gây ra ùn tắc quá tải thủ công phần nào không còn phù hợp với xu hớng sử dụng nhiều hồ sơ, sổ sách

- Việc chỉnh sửa, nâng cấp gặp nhiều khó khăn bởi vì mỗi khi thay đổi phải huỷ toàn bộ hồ sơ cũ và viết lại toàn bộ. Giấy tờ trình bầy kém không có tính thẩm mỹ.

- Việc quản lý phải qua nhiều khâu trung gian, nhiều phòng ban, từ đó dẫn đến cơ cấu tổ chức bất hợp lý, gây ra ùn tắc quá tải, truyền thông tin liên lạc không trong suốt, mất nhiều thời gian không đáp ứng đợc nhu cầu thông tin nhanh chãng.

- Đối với các thông tin, dữ liệu phức tạp và đặc biệt rất khó tránh khỏi những thiếu sót trong việc lu trữ thông tin bổ sung cập nhật, thống kê.

- Trong một tổ chức lớn việc quản lý bằng phơng pháp thủ công sẽ rất phức tạp đòi hỏi một lực lợng lớn nhân viên để giải quyết công việc do đó tạo ra một bộ máy tổ chức cồng kềnh, hoạt động kém hiệu quả.

2.1.2 Yêu cầu hệ thống mới

Những năm gần đây máy tính đợc sử dụng rộng rãi trong các cơ quan nhà nớc, các đơn vị tổ chức kinh doanh Do đó có rất nhiều bài toán phức tạp cồng kềnh đă đợc giải quyết trên máy tính, nó đã mang lợi ích đáng kể về kinh tế, năng

Hồ Anh Cờng Lớp 40B – Tin học kinh tế suất lao động và có độ tin cậy cao Các bài toán quản lý đợc đa vào máy tính và dần đợc tối u hoá Đặc biệt hệ thống quản lý nhân sự là một điền hình.

Bài toán quản lý nói chung là một bài toán phức tạp, tuỳ từng loại bài toán và từng góc độ khác nhau nào đó mà cần đến độ chính xác nhất định Công việc quản lý nhân sự đòi hỏi hệ thống quản lý phải biết tổ chức sắp xếp công việc một cách hợp lý, đầy đủ và chính xác Hệ thống quản lý nhân sự cần phải đợc thông tin nhân sự nào đó một cách nhanh chóng, đầy đủ và chính xác, phải khắc đợc nhợc điểm của hệ thống cũ Nhìn nhận từ hệ thống cũ những gì đạt đợc những gì ch- a đạt đợc thì còn phải khắc phục, cần bổ sung những thiếu sót của hệ thống cũ Bên cạnh đó cần phải phát huy nhng u điểm nh tìm kiếm cập nhật sửa đổi thông tin thống kê để hệ thống ngày càng tối u.

2.1.3 Những u điểm và nhợc điểm của hệ thống mới

Từ những yêu cầu trên, một hệ thống quản lý nhân sự, tiền lơng đợc áp dụng công nghệ thông tin có thể đáp ứng đợc nh cầu mà công tác quản lý thủ công không làm đợc, cụ thể là :

Xác định hệ thèng: 7 1 Lựa chọn hệ quản trị cơ sở dữ liệu

2.2.1 Lựa trọn hệ quản trị cơ sở dữ liệu

Trong thực tế có rất nhiều hệ quản trị cơ sở dữ liệu khác nhau và đợc dùng trong nhiều chơng trình quản lý khác nhau nh : Foxpro, Visual Basic, Access Visual Basic [2] cã thÓ sử dụng để lập trình quản lý dữ liệu theo mô hình quan hệ. Trong mô hình này bảng (Table) [5] bao gồm các cột và các hàng, đóng vai trò quan trọng Lợi điểm khi dùng Visual Basic là ở chỗ tiết kiệm thời gian và công sức hơn so với các ngôn ngữ lập trình khá Visual Basic là ngôn ngữ lập trình trực quan (Visual), [2] nghĩa là khi thiết kế chơng trình bạn đợc nhìn thấy kết quả ngay sau từng thao tác và giao diện khi chơng

Hồ Anh Cờng Lớp 40B – Tin học kinh tế trình thực hiện Visual Basic cho phép bạn chỉnh sửa đơn giản, nhanh chóng về mầu sắc, kích thớc, hình dáng của đối tợng có mặt trong các ứng dụng Một khả năng khác của Visual Basic chính là khả năng kết hợp với các th viện liên kế động.

Micorosoft Window ngày càng phát triển mạnh và ngày càng thuyết phục ngời sử dụng nhờ khả năng giao diện đồ họa và cách sử dụng dễ dàng Hiện nay việc xây dựng các phần mềm quản lý trên Window là việc làm cần có Với Visual Basic việc quản lý trên Window rất thuận tiện và hiệu quả, do vậy trong bài luận văn này em lựa chọn phần mềm Visual Basic để giải quyết các vấn đề của bài toán đã nêu.

Lý do chọn đề tài

Nh chúng ta đã biết, tin học và các ứng dụng của tin học ngày nay đã đợc coi là một yếu tố quan trọng trong mọi lĩnh vực của đời sống xã hội, đặc biệt là lĩnh vực kinh tế Đối với mỗi doanh nghiệp mà muốn mở rộng quy mô, nâng cao năng lực sản xuất, kết nối với các doanh nghiệp trong nớc cũng nh quốc tế thì không thể không sử dụng đến các ứng dụng tin học Chẳng hạn, một doanh nghiệp cần quảng bá về mình thì phải có những trang Web giới thiệu, doanh nghiệp cần tìm kiếm trao đổi thông tin thờng xuyên, trực tuyến phải kết nối mạng máy tính Đơn giản và cụ thể hơn đó là những phần mềm doanh nghiệp sử dụng để quản lý các vấn đề nh quản lý nhân sự, quản lý lơng, quản lý nguyên vật liệu, trang thiết bị, quản lý xuất nhập Đối với mỗi doanh nghiệp, một trong số các việc chiếm vị trí quan trọng đó là việc hỗ trợ quản lý nhân sự bằng các ứng

Trờng Đại học kinh tế Quốc Dân Chuyên dề thực tập Tốt Nghiệp dụng tin học Lý do là các nhà quản trị rất cần một hệt thống thông tin có khả năng cung cấp những thông tin chính xác, kịp thời và phù hợp nhằm hỗ trợ họ hoàn thành các công việc, chức năng của mình Thông qua dữ liệu của hệ thống thông tin quản lý tiền lơng, các nhà quản trị có thể nắm rõ tình hình thực hiện công việc, sử dụng làm thông tin lên các báo cáo theo yêu cầu của luật định và quy định của Chính phủ Hệ thống thông tin quản lơng, thởng, trợ cấp hỗ trợ quyết định quản trị nhân lực sách lợc khác nhau, đặc biệt khi thông tin về lơng, thởng và trợ cấp có liên quan đến các nguồn thông tin bên ngoài và các hệt thống thông tin khác trong doanh nghiệp Các kế hoạch về tiền lơng, thởng và trợ cấp có vai trò rất quan trọng trong việc tăng năng suất của doanh nghiệp.

Riêng với Công ty TNHH Tân Sông Hồng, thực tế hiện nay tại Công ty cha có phần mền chính thức trong việc tính toán tiền lơng và quản lý nhân sự, hiện bộ phận tính lơng tại phòng tổ chức cán bộ của Công ty đang sử dụng một bảng tính lơng trên EXCEL Có thể thấy bảng tính này đã hỗ trợ việc tính lơng hàng tháng của cán bộ, nhân viên trong Công ty TNHH Tân Sông Hồng Tuy nhiên có thực sự cha mang lại hiệu quả cao cụ thể là hàng tháng cán bộ tiền lơng phải sao chép lại các hệ số tính lơng mà hệ thống không thể tự động chuyển sang, rất bất cập khi tìm kiếm thông tin về tiền lơng của bất kỳ một cán bộ hoặc việc đăng ký truy thuế thu nhập, và đặc biệt khó khăn khi lên các báo cáo theo yêu cầu của nhà quản trị mà đúng pháp quy.

Thấy đợc sự cấp thiết của việc quản lý nhân sự với Công ty này, em đã chọn đề tài: “ Quản lý nhân sự tại Công ty

TNHH Tân Sông Hồng Hà Nội” Với đề tài này, để tiến hành phân tích, thiết kế, xây dựng chơng trình cần phải nắm vững các yêu cầu kiến thức về hệ thống thông tin, xây dựng phần mền, biểu biết về tiền lơng và các cơ sở lý thuyết của ngôn ngữ lập trình Visual Basic ứng dụng phân tích thiết kế trong một hệ cơ sở dữ liệu sẽ đợc trình bày trong chơng d- íi ®©y.

CH¦¥NG II PHÂN TíCH THIếT Kế Hệ THốNG

QUảN Lý NHÂN Sự Đ1 PHÂN TíCH Hệ THốNG 1.1 GiớI THIệU CHUNG

Phân tích thiết kế hệ thống nói chung là sự nhận thức và mô tả một hệ thống; bởi vậy ngời ta thờng dùng các mô hình, các biểu đồ để trừu tợng hoá và là công cụ giúp con ng- ời trao đổi với nhau trong quá trình phát triển hệ thống Mỗi mô hình là một khuôn dạng để nhận thức về hệ thống và nó mang ý thức chủ quan.

Mục tiêu của phân tích mô hình xử lý là đa ra một cách chính xác định các yêu cầu của ngời dùng trong quá trình phát triển hệ thống, những yêu cầu này bám sát từ một loạt các sự kiện mà con ngời phân tích thu đợc qua phỏng vấn, đặt câu hỏi, đọc tài liệu và qua các phép đo thử nghiệm.

Có một số công cụ chính để diễn tả chức năng của hệ thống [5][6]:

+ Biểu đồ phân cấp chức năng (BPC): Functional

HierachicalDecomposition Diagram (FHD) + Biểu đồ luồng dữ liệu (BLD): Data Flow Diagram (DFD)

+ Các ký hiệu mở rộng của hãng IBM:

+ Sơ đồ thuật toán (Algorithsm)

+ Ngôn ngữ giả mã (Pseudo Code):

+ Các đặc tả các quy tắc quản lý

+ Từ điển định nghĩa chức năng xử lý

1.2 Mục tiêu và nhiệm vụ

Việc xây dựng và phát triển hệ thống thông tin là một quá trình gồm nhiều giai đoạn, trong đó giai đoạn phân tích

Phân tích thiết kế hệ thống quản lý nhân sù

Phân tích hệ thống thông tin (HTTT)

Bớc đầu tiên cửa việc phân tích hệ thống thông tin là phân tích tổng thể các chức năng của hệ thống thông tin. Khảo sát tình hình thực trạng, thu thập các thông tin cần thiết nhằm xác định những yêu cầu chung đối với hệ thống Phải trả lời rõ ràng và đầy đủ cho câu hỏi “làm gì” đối với hệ thống Từng vấn đề nêu ra sẽ đợc xem xét, phân tích, lập đi lập lại nhiều lần theo các góc độ quan điểm phân tích khác nhau, từng bớc hệ thống và tổng quan hoá để dần dần hiểu đợc hệ thống một cách tổng thể, hiểu đợc những gì phải tin

Trờng Đại học kinh tế Quốc Dân Chuyên dề thực tập Tốt Nghiệp học hoá Cụ thể phải liệt kê và mô tả đầy đủ các quá trình nghiệp vụ hoạt động của hệ thống, làm rõ ràng, mạch lạc hiện trạng thực tế, các yêu cầu của ngời sử dụng mà hệ thông tin sẽ thiết kế cần phải thoả mãn Các quy trình nhiệp vụ này phải đợc mô tả dới dạng gần hơn với ngời làm tin học là dạng sơ đồ, trong đó thể hiện một cách cô đọng hơn những mối quan hệ cụ thể và chức năng xử lý khi thực hiện.

Phân tích và thiết kế hệ thống bao gồm các giai đoạn thực hiện để có đợc hệ thống ở mức vật lý, cụ thể là:

- Khảo sát: Mô tả hệ thống thực mức ngoài.

- Phân tích: Mô tả hệ thống mức khái niệm và xây dựng hệ thống logic.

- Thiết kế: Mô tả hệ thống ở mức vật lý

Sau khi đã có mô tả hệ thống ở mức vật lý, để hoàn thiện và phát triển hệ thống, cần thực hiện 3 giai đoạn: Xây dựng/t liệu hoá, cài đặt/chuyển giao, kiểm tra/thử nghiệm.

1.4 Tóm tắt các chức năng hệ thống chơng trình

Sơ đồ phân cấp chức năng thể hiện cái nhìn tổng quát về hệ thống, đây là bớc phân tích hệ thống về xử lý

Hệ thống quản lý nhân sự gồm có các chức năng cơ bản sau:

+ Quản lý hồ sơ lý lịch của từng nhân viên

+ Cập nhật chỉnh sửa hồ sơ nếu có sự thay đổi

+ Thêm hồ sơ nếu có nhân sự mới

+ Huỷ hồ sơ nhân sự không còn liên quan đến hệ thèng

+ Chỉnh sửa hồ sơ nếu nhân sự trong hệ thống có sự thay đổi

+ Dánh giá nhân viên và tuyển dụng nhân viên

- Thông kê các số liệu :

+ Thống kê trình độ văn hoá

+ Thống kê thâm niên công tác của nhân viên

+ Thống kê quá trình học tập

+ Thống kê chuyên môn ngoại ngữ

+ Tra cứu theo tiêu chí của các trờng

+ Tra cứu theo lý lịch

+ Tra cứu theo mã nhân viên

Qua phân tích các chức năng ở trên ta xây dựng đợc biểu đồ phân rã chức năng của hệ thống.

Biểu đồ phân cấp chức n¨ng

Biểu đồ phân cấp chức năng(FHD) là công cụ khởi đầu để mô tả hệ thống qua chức năng do công ty IBM phát triển vì vậy cho đến nay nó vẫn còn đợc sử dụng Nó cho phép phân rã dần dần các chức năng từ chức năng mức cao thành chức năng chi tiết nhỏ hơn và kết quả cuối cùng ta thu đợc một cây chức năng Cây chức năng này xác định một cách rõ ràng để hểu cái gì xẩy ra trong hệ thống.

Thành phần các biểu đồ bao gồm

+ Các chức năng: đợc ký hiệu hình chữ nhật trên có gán tên nhãn

+ Kết nối: Kết nối giữa các chức năng mang tính chất phân cấp và đợc ký hiệu bằng đoạn thẳng nối chức năng “cha” tới các chức năng “con”. Đặc điểm của FHD

+ Các chức năng đợc nhìn một cách khái quát nhất, trực quan dễ hiểu,thể hiện tính cấu trúc của phân rã chức năng + Dễ thành lập vì tính đơn giản: Nó trình bầy hệ thống phải làm gì hơn là hệ thống làm nh thế nào?

+ Mang tính chất tĩnh vì bỏ qua mối liên quan thông tin giữ các chức năng Các chức năng không bị lập lại và không d thõa.

+ Rất gần gũi với sơ đồ chức năng nhng ta không đồng nhất nó với sơ đồ tổ chức: phần lớn các tổ chức của doanh nghiệp nói chung thờng gắn liền với chức năng.

FHD mức ngữ cảnh (mức 1): Đây là mô hình hệ thống ở mức tổng quát nhất, ta xem cả hệ thống nh một chức năng Tại mức này hệ thống chỉ có duy nhất một chức năng Các tác nhân ngoài và đồng thời các luồng dữ liệu vào ra từ các tác nhân ngoài đến hệ thống đợc xác định

Hình 2.1 Sơ đồ chức năng của hệ thống quản lý nhân sự

Hồ Anh Cờng Lớp 40B – Tin học kinh

Hệ thống Hồ sơ nhân viên Danh mục Mộu báo cáo Tuyển dụng Công cụ Đóng cửa sổ

Thâm niên NV Đánh giá NV

Chức vụ Phòng ban Tôn giáo D©n téc

Hợp đồng lđộng Đánh giá NV

Danh sách NV xuÊt sang Word

InPhông chữGửi ảnhT×m kiÕm

Biểu đồ luồng dữ liệu (DFD)

Diễn tả tập hợp các chức năng của hệ thống trong các mối quan hệ trớc sau trong tiến trình xử lý, trong bàn giao thông tin cho nhau Mục đích của biểu đồ luồng dữ liệu là giúp chúng ta thấy đợc đằng sau những cái gì thực tế xẩy ra trong hệ thống (cái bản chất), làm rõ những chức năng và thông tin nào cần thiết cho quản lý

Biểu đồ này dựa vào phơng pháp phát triển hệ thống có cấu trúc bao gồm ba kỹ thuật phân tích chính:

Sơ đồ luồng dữ liệu (Data Flow Diagram) mô tả quan hệ giữa quá trình xử lý và các dòng dữ liệu Định nghĩa từ điển dữ liệu (Data Dictionary Definitions) mô tả các phần tử dòng dữ liệu.

Xác định quá trình xử lý (Process Specifications) mô tả quá trình xử lý một cách chi tiết.

Mối quan hệ giữa ba thành phân là bức tranh sinh động của hệ thống đợc thể hiện qua sơ đồ sau:

Hình 2.2 Biểu đồ mối quan hệ giữa ba thành phÇn

1.6.2 Các chức năng của biểu đồ

Sơ đồ DFD gồm các thành phần sau:

Hồ Anh Cờng Lớp 40B – Tin học kinh tÕ

+ Chức năng xử lý (Process)

+ Luồng thông tin (Data Flows)

+ Kho dữ liệu (Data store)

+ Tác nhân ngoài (External Entity)

+ Tác nhân trong (Internal Entity) a Chức năng xử lý (Process)

+ Khái niệm: Chức năng xử lý là chức năng biểu đạt các thao tác, nhiệm vụ hay tiến trình xử lý nào đó Tính chất quan trọng của chức năng là biến đổi thông tin Tức là nó phải làm thay đổi thông tin từ đầu vào một cách nào đó nh tổ chức lại thông tin, bổ sung thông tin hoặc tạo ra thông tin mới.

+ Biểu diễn: chức năng xử lý đợc biểu diễn bằng đờng tròn hay ô vạn, trong đó có ghi nhãn (tên) của chức năng

+ Nhãn (tên) chức năng: Bởi vì chức năng là các thao tác nên tên phải đợc dùng là một “Động từ” cộng với “Bổ ngữ” b Luồng dữ liệu

+ Khái niệm: Luồng dữ là luồng thông tin vào hay ra của một chức năng xử lý Bởi vậy luồng dữ liệu đợc coi nh các giao diện giữa các thành phần của biểu đồ.

+ Biểu diễn: Luồng dữ liệu trên biểu đồ đợc biểu diễn bằng mũi tên có hớng trên đó có ghi tên nhãn là tên luồng thông tin mang theo Mũi tên để chỉ hớng của luồng thông tin.

+ Tên luồng dữ liệu: Vì thông tin mang trên luồng, nên tên là

“danh từ” cộng với “tính từ” nên cần thiết.

Tên của chức năngLuồng dữ liệu thông tin Luồng dữ liệu thông tin

Các luồng dữ liệu và tên đợc gán cho chúng là các thông tin “logic” chứ không phải là các tài liệu vật lý c Kho dữ liệu

+ Khái niệm: Kho dữ liệu là các thông tin cần lữu giữ lại trong một khoảng thời gian, để sau đó hay một vài chức năng xử lý, hoặc tác nhân trong sử dụng Nó bao gồm một nghĩa rất rộng các dạng dữ liệu lu trữ: Dới dạng vật lý chúng có thể là các tài liệu lu trữ trong văn phòng hoặc các file trên các thiết bị mang tính (bằng từ, đĩa từ) của máy tính; nhng ở đây ta quan tâm đến thông tin chứa trong đó tức là dạng logic của nó (trong cơ sở dữ liệu)

+ Biểu diễn: Kho dữ liệu đợc biểu diễn bằng hình chữ nhật hở hai đầu hay (cặp đoạn thẳng song song) trên đó ghi nhãn của kho.

+ Nhãn: Bởi vì kho chức các dữ liệu nên tên của nó là danh từ kèm theo tính từ nếu cần thiết, nó nói lên nội dung thông tin chứ không phải là giá mang thông tin. d Tác nhân ngoài

Tác nhân ngoài còn đợc gọi là đối tác (External Entities) là một ngời, nhóm hay tổ chức ở bên ngoài lĩnh vực nghiên cứu của

Tên tác nhân trong Tên tác nhân trong hệ thống nhng đặc biệt có một số hình thức tiếp xúc, trao đổi thông tin với hệ thống nhng đặc biệt có một số hình thức tiếp xúc, trao đổi thông tin với hệ thống Sự có mặt các nhân tố này trên sơ đồ chỉ ra giới hạn, và định rõ mối quan hệ với thế giới bên ngoài.

Tác nhân ngoài là thành tố rất quan trọng của hệ thống, là nguồn cung cấp thông tin cho hệ thống cũng nh nhận các sản phẩm thông tin từ hệ thống.

+ Biểu diễn: Bằng hình chữ nhật, có gán nhãn.

+ Nhãn (tên): Đợc xác định bằng danh từ kèm theo tính nếu cần thiÕt. e Tác nhân trong

+ Khái niệm: Tác nhân trong là một chức năng hay một hệ thống con của hệ thống đợc mô tả ở trang khác của biểu đồ. Thông thờng mọi biểu đồ có thể bao gồm một số trang, đặc biệt trong các hệ thống phức tạp và với khuôn khổ giấy có hạn thông tin đợc truyền giữa các quá trình trên các trang khác nhau đợc chỉ ra nhờ ký hiệu này ý nghĩa của tác nhân trong đợc ký hiệu tợng tự nh nút tiếp nối của sơ đồ thuật toán.

+ Biểu diễn: Tác nhân trong biểu diễn bằng một hình chữ nhật hở một phía và trên có ghi nhãn

+ Nhãn (trên) tác nhân trong: Đợc biểu diễn bằng Động từ kèm bổ ngữ

Các số liệu Thống kê

Hồ sơ Danh sách L ơng

BIểU Đồ LUồNG Dữ LIệU MứC ĐỉNH

Nh đã phân tích các yêu cầu của hệ thống ở phân trên, biểu đồ luồng dữ liệu mức đỉnh của hệ thống quản lý nhân sự đợc x©y dùng nh sau:

Hình 2.3 Biểu đồ luồng dữ liệu mức đỉnh

Mức 2: Biểu đồ luồng dữ liệu mức đỉnh (DFD nhiều chức năng) đợc phân rã từ FHD mức ngữ cảnh với các chức năng phân rã tơng ứng mức 2 của FHD Các nguyên tắc phân rã :

- Các luồng dữ liệu đợc bảo toàn

- Các tác nhân ngoài bảo toàn

- Có thể xuất hiện các kho dữ liệu

- Bổ sung thêm các luồng dữ liệu nội tại nếu cần thiết.

Công việc phải làm của quá trình nhân sự là: thông tin của

“Nhân sự” đợc chuyển vào hệ thống, tuỳ theo từng loại thông tin mà nó xử lý chức năng “Quản lý hồ sơ” và sau đó đợc lu vào kho

Dữ liệu từ kho “hồ sơ lấy ra và gửi cho bộ phận “Thống kê” xử lý Bộ phận này sau khi thống kê song một mặt lu dữ liệu vào kho “Các số liệu thông kê” một mặt lập các báo cáo gửi cho

“phòng tổ chức”.”Phòng tổ chức” sau khi nhận đợc thông báo về tình hình nhân sự và lơng sẽ lập nên các yêu cầu và gửi cho bộ phận “Quản lý hồ sơ” để bộ phận này thực hiện.

Các mức cơ sở dữ liệu

Mô tả hệ thống (hiện có) hoàn toàn bằng ngôn ngữ của thÕ giíi thùc. b Mức ý niệm

Mô tả hệ thống (hiện có) bằng ngôn ngữ của Công nghệ thông tin c Mức logíc

Mô tả hệ thống (Công nghệ thông tin ) cần có (không phô thuéc cÊu tróc vËt lý cô thÓ). d Mức vật lý

Mô tả hệ thống với cấu trúc vật lý cụ thể

Dới đây là các bảng cơ sở dữ liệu đợc thiết kế ở các mức độ quan niệm

2.2.1 Bảng HoSoNV (hồ sơ nhân viên )

Tên trờng Kiểu dữ liệu §é réng

1 Manv Text 5 Mã nhân viên (khoá chính)

2 Hoten Text 40 Họ và tên

7 Macv Text 3 Mã chức vụ

9 Ngbdnk Text 10 Ngay bắt đầu nhiệm kỳ

10 Ngktnk Text 10 Ngày kết thúc nhiệm kỳ

11 Madt Text 5 Mã dân tộc

13 Matg Text 5 Mã tôn giáo

17 MaQTich Text 9 Mã quốc tịch

20 SoCMND Text 5 Số chứng minh nhân dân

22 Ngay cap Text 10 Ngày cấp

23 Madv Text 5 Mã đơn vị

25 Mapb Text 5 Mã phòng ban

27 MaTDVH Text 5 Mã trình độ văn hoá

28 TDVH Text 20 Trình độ văn hoá

29 TDTH Text 10 Trinh độ tin học

30 Mann Text 5 Mã ngoại ngữ

Text 20 Thành phần bản thân

Text 20 Thành phân gia đình

Ghi chú: tên trờng có chữ đậm và gạch chân là khoá chính. Trong đó :

- Khoá chính là trờng nhận dạng đối tợng quản lý vì thế nó là duy nhất.

- Khoá ngoại là trờng dùng để xác định mối quan hệ với bảng khác Khi thiết kế cơ sở dữ liệu phải làm sao cho thuận tiện và nhanh chóng trong việc nhập dữ liệu. Các trờng phải đợc đặt theo kiểu dữ liệu phù hợp và khi nhập dữ liệu cần chú ý đến mức độ quản lý để đảm bảo nguồn dữ liệu gọn gàng chính xác và đầy đủ nhất

- Dữ liệu trong các trờng nguyên quán và địa chỉ phải chi tiết tuỳ theo từng mức độ yêu cầu quản lý khác nhau

- Trờng nơi sinh chỉ cần ghi tỉnh hoặc thành phố.

- Một ngời có thể có nhiều chức vụ khác nhau nhng th- ờng ghi theo chức vụ cao nhất.

2.2.2 Bảng QTCT (Qúa trình công tác)

Tên trờng Kiểu dữ liệu Độ rộng Giải thích

1 Manv Text 5 Mã nhân viên

2 Machvu Text 5 Mã chức vụ

6 Ngayct Data/time 10 Ngày công tác

7 MaPhBan Text 5 Mã phòng ban

2.2.3 Bảng QTDT (Qúa trình đào tạo)

3 TDVH Text 39 Trình độ văn hoá

4 MaChMon Text 5 Mã chuyên môn

6 MaHDT Text 5 Mã hệ đào tạo

7 HeDT Text 30 Hệ đào tạo

8 NoiDT Text 30 Nơi đào tạo

9 TungNgay Data/time 10 Từ ngày

10 Denngay Data/time 10 Đến ngày

2.2.4 Bảng quan hệ gia đình

KiÓu d÷ liệu §é rộng Giải thích

1 MaNV Text 15 Mã nhân viên

7 DangCT Yes/No Đang công tác

8 DaMat Yes/No Đã mất

9 NghiHuu Yes/No Nghỉ hu

12 TTKhac Memo Thông tin khác

3 NgayKhen Date/Time 10 Ngày khen

8 LyDoKhen Text 90 Lý do khen

NgayKyLu at Date/Time 10 Ngày kỷ luật

CapKyLua t Text 90 CÊp kû luËt

6 NoiKyLuat Text 90 Nơi kỷ luật

LyDoKLua t Text 90 Lý do khen

2.2.8 Bảng chức vụ (chức vụ)

2 Tencv Text 30 Tên chức vụ

2.2.9 Bảng chuyên môn (Chuyên môn):

1 Macm Text 3 Mã chuyên môn

2 Tencm Text 30 Tên chuyên môn

ThiÕt kÕ Logic

Dựa trên cơ sở dữ liệu quan điểm đã xây dựng, thực hiện các bớc chuẩn hoá và chỉnh lý các thực thực thể để tránh tình trạng các dữ liệu không trùng nhau tạo nên mối quan hệ giữa các thực thể với nhau và giải toả các mối quan hệ 1-1, n-n thành các mối quan hệ 1-n, n-1 Chuẩn hoá là cơ sở dữ liệu vì nó đảm bảo dữ liệu đợc tổ chức chặt chẽ và hợp lý.

Nhiệm vụ đầu tiên khi cho trớc một danh sách các thuộc tính đối với một kiểu thực thể là phải chọn một khoá Khoá đó gồm một hoặc nhiều khoá có giá trị cung cấp một định danh duy nhất cho mọi dòng trong văn bản: Không có hai thực thể nào trong một kiểu thực thể có cùng khoá

Qúa trình chuẩn hoá bao gồm viêc áp dụng 3 quy tắc kiểm tra liên tiếp nhau:

Nếu danh sách các kiểu thực thể qua đợc quy tắc kiểm tra thứ nhất thì nó đợc gọi là chuẩn thứ nhất (1NF)

Nếu nó quy đợc quy tắc kiểm tra thứ hai thì nó đợc gọi là dạng chuẩn thứ hai (2NF)

Nếu nó quy đợc quy tắc kiểm tra thứ ba thì nó đợc gọi là chuẩn dạng ba (3NF), Và dạng chuẩn này đ ợc xem nh đã chuẩn hoá đầy đủ

Chuẩn 1: Giải toả dữ liệu bị lập

Chuẩn 2: Giải toả đợc dữ liệu chỉ phụ thuộc vào một phần của trờng khoá chÝnh

Chuẩn 3: Giải toả đợc dữ liệu không thụ thuộc vào trờng khoá chÝnh

Trên cơ sở các thuộc tính đã liệt kê, ta thể hiên thành các thực thể HoSoNV thành các thực thể sau Vì mỗi ngời nào đó có thể có nhiều ngoại ngữ khác nhau nên ta tách trờng trình độ ngoại ngữ thành thực thể TDNN để khi cần ta có thể dễ dàng thống kê xem có bao nhiêu ngời cùng biết một ngoại ngữ. Thực thể này gồm các trờng sau.

2.3.30 Bảng trình độ tin học

1 Math Text 50 Mã trình độ tin học

2 Tenth Text 50 Tên trình độ tin học

2.3.31 Bảng TDNN (Trình độ ngoại ngữ)

STT Tên trờng Kiểu dữ liệu Độ rộng Giải thích

1 MaNN Text 4 Mã trình độ ngoại ng÷

2 TenNN Text 30 Tên trình độ ngoại ng÷

Ta tách trờng Trình độ văn hoá từ thực thể HoSoNV thành thực thể mới là TDVH để tiện lợi hơn khi nhập dữ liệu vào thực thể HoSoNV Thực thể này gồm các trờng sau.

2.3.32 Bảng TDVH (Trình độ văn hoá)

STT Tên trờng Kiểu dữ liệu Độ rộng Giải thích

2 TenTDVH Text 30 Tên trình độ văn hoá

Trờng MaTDVH ghi ký hiệu hay chữ viết tắt của trình độ văn hoá Trờng TenTDVH ghi những thông tin giải thích các ký hiệu hay chữ viết tắt đó, cũng tơng tự nh thực thể TDVH, thực thể Tỉnh_TP dùng để ghi các thông tin đầy đủ ký tự viết tắt của một tỉnh hoặc thành phố nào đó Khi nhập dữ liệu tr- ờng nơi sinh của bảng HoSoNV ta chỉ cần lấy thông tin có sẵn t bảng Tỉnh_TP với các điều kiện trờng này phải đặt ở dạng ComboBox.

1 Matt Text 3 Mã tỉnh thành phố

2 Tentt Text 30 Tên tỉnh thành phố

1 Madt Text 3 Mã dân tộc

2 Tendt Text 30 Tên dân tộc

2 Tendv Text 30 Tên đơn vị

2.3.36 Bảng HeDaoTao (Hệ Đào Tạo)

1 Mahv Text 3 Mã học vấn

2 tenhv Text 30 Tên học vấn

1 Mahd Text 3 Mã hợp đồng

2 tenhd Text 30 Tên hợp đồng

1 Hsluong Text 3 Hệ số lơng

2 NgayHD Data/time 10 Ngày hợp đồng

3 SoHD Text 9 Số hợp đồng

4 Malhd Text 20 Mãloại hợp đồng

5 Ngaybd Data/time 10 Ngày bắt đầu

6 Ngayxl Data/time 10 Ngày xếp lơng

7 Hsluong Text 10 Hệ số lơng

8 SoBHYT Text 5 Số bảo hiệm y tế

9 SoBHXH Text 9 Số bảo hiểm xã hội

11 ThueTN Text 12 ThuÕ thu nhËp

12 MucBHYT Number Byte Mức bảo hiểm y tế

13 MucBHXH Number Byte Mức bảo hiểm xã hội

1 Mapb Text 3 Mã phòng ban

2 Tenpb Text 30 Tên phòng ban

2.3.42 Bảng QuaTrinhCT (Qúa Trình Công Tác) STT Tên tr- êng

3 Maluong Number Double Mã lơng

5 Ngayct Data/time 10 Ngày chuyển tiếp

1 Maqt Text 5 Mã quốc tịch

2 Tenqt Text 20 Tên quốc tịch

2.3.44 Bảng SoBHXH (Số bảo hiểm xã hội)

2 SoBHXH Text 9 Sổ bảo hiểm xã hội

3 Ngaycap Data/time 10 Ngày cấp

4 Mabv Text 30 Mã bệnh viện

2.3.45 Bảng SoBHYT (Sổ bảo hiểm y tế)

2 SoBHYT Text 9 Sổ bảo hiểm y tế

4 Madv Text 30 Mã bệnh viện

2.3.46 Bảng SoLaoDong (Sổ lao động)

2 SoSOLD Text 9 Số sổ lao động

6 Ngaychuy en Data/time 20 Ngày chuyển

7 SoDKLD Text 10 Số đăng ký lao động

D Data/time 9 Ngày đăng ký sổ lao động

1 Matg Text 3 Mã tôn giáo

2 Tentg Text 30 Tên tôn giáo

2.4 Mối quan hệ giữa bảng HoSoNV và các bảng khác n 1

- Quan hệ giữa HoSoNV và ChucVu là n-1 tức là :

+ Một chức vụ có thể có nhiều nhân viên nắm giữ.

+ Một nhân viên tại một thời điểm chỉ có thể có một chức vụ. n 1

- Quan hệ giữa HoSoNV và DonVi là n-1 tức là :

+ Một nhân viên tại một thời điểm chỉ có thể thuộc một đơn vị

+ Một đơn vị có nhiều nhân viên n 1

- Quan hệ giữa HoSoNV và DanToc là n-1 tức là :

+ Một nhân viên chỉ có thể thuộc một dân tộc

+ Một dân tộc có nhiều nhân viên n 1

- Quan hệ giữa HoSoNV và TonGiao là n-1 tức là :

+ Một nhân viên chỉ có thể thuộc một tôn giáo

+ Một tôn giáo có nhiều nhân viên

- Quan hệ giữa HoSoNV và HopDongLD là 1-1 tức là :

+ Một nhân viên tại một thời điểm chỉ có một hợp đồng lao động

+ Một hợp đồng lao động chỉ dành cho một nhân viên n 1

- Quan hệ giữa HoSoNV và PhongBan là n-1 tức là:

+ Một nhân viên chỉ có thể thuộc một phòng ban

+ Một phòng ban có nhiều nhân viên

- Quan hệ giữa HoSoNV và QuaTrinhCT là 1-n có nghĩa là :

+ Một nhân viên có nhiều quá trình công tác

+ Môt Quá trình công tác chỉ dành cho một nhân viên

- Quan hệ giữa HoSoNV và BHXH là 1-1 tức l :

+ Một nhân viên có một Sổ BHXH

+ Một Sổ BHXH chỉ dành cho một nhân viên

- Quan hệ giữa HoSoNV và SoBHYT là 1-1 tức là :

+ Một nhân viên có nhiều Sổ BHYT

+ Một Sổ BHYT chỉ dành cho một nhân viên

- Quan hệ giữa HoSoNV và SoBHYT là 1-n tức là :

+ Một nhân viên có thể có nhiều sổ lao động

+ Một sổ lao động chỉ dành cho một nhân viên

TÊN MODULE TÊN MODULE Có SẵN

2.5 Thiết Kế các module chơng trình

2.5.1 Công cụ để diễn tả cấu trúc CT (lợc đồ cấu tróc (LCT))

Lợc đồ cấu trúc: LCT là công cụ ở đây hết sức thô sơ, thô sơ một cách cố tình để trừu tợng hoá nhằm đi tới cách viết các chơng trình cụ thể và chi tiết hơn

Module đợc biểu diễn bằng hình chữ nhật trên có ghi nhãn là tên module Trờng hợp đặc biệt module đã có sẵn ta biểu diễn thêm hai đờng gạch dọc

Các module chuyển giao bằng dữ liệu và điều khiển

Dữ liệu chuyên giao ký hiệu mũi tên và đầu tròn rỗng

Những thông tin điều khiển (không là đối tợng để xử lý mà dùng trong qúa trình điều khiển thực hiện chơng trtình).

Kí hiệu mũi tên và đầu tròn đặc

Thống tin tổng quát Truyền xa Bắt đầu, và kết thúc

Xoá hồ sơ Sửa đổi hồ sơ

2.6 Xây dựng lợc đồ cấu trúc chơng trình (LCT)

Input: thông tin về nh©n sù

Dời khỏi cơ quan? L u hồ sơ

Mới vào cơ quan? Thêm hồ sơ

2.7.1 Module HSNV (Hồ sơ nhân sự)

Thống kê về hồ sơ

Tìm câu trả lời trong kho số liệu thống kê

Tìm câu trả lêi trong kho hồ sơ

Tìm câu trả lêi trong kho l ơng

2.7.2 Module thống kê báo cáo

Nhập dữ liệu cần in

In thông tin của nhân viên ra l íi đ a thông tin ra màn hình

TiÕp tôc End §óng Sai

2.7.4 Module QTCT (quá trình công tác)

Thiết kế các MODULE chơng tr×nh

2.5.1 Công cụ để diễn tả cấu trúc CT (lợc đồ cấu tróc (LCT))

Lợc đồ cấu trúc: LCT là công cụ ở đây hết sức thô sơ, thô sơ một cách cố tình để trừu tợng hoá nhằm đi tới cách viết các chơng trình cụ thể và chi tiết hơn

Module đợc biểu diễn bằng hình chữ nhật trên có ghi nhãn là tên module Trờng hợp đặc biệt module đã có sẵn ta biểu diễn thêm hai đờng gạch dọc

Các module chuyển giao bằng dữ liệu và điều khiển

Dữ liệu chuyên giao ký hiệu mũi tên và đầu tròn rỗng

Những thông tin điều khiển (không là đối tợng để xử lý mà dùng trong qúa trình điều khiển thực hiện chơng trtình).

Kí hiệu mũi tên và đầu tròn đặc

Thống tin tổng quát Truyền xa Bắt đầu, và kết thúc

Xoá hồ sơ Sửa đổi hồ sơ

Xây dựng lợc đồ cấu trúc chơng trình (LCT)

Input: thông tin về nh©n sù

Dời khỏi cơ quan? L u hồ sơ

Mới vào cơ quan? Thêm hồ sơ

2.7.1 Module HSNV (Hồ sơ nhân sự)

Thống kê về hồ sơ

Tìm câu trả lời trong kho số liệu thống kê

Tìm câu trả lêi trong kho hồ sơ

Tìm câu trả lêi trong kho l ơng

2.7.2 Module thống kê báo cáo

Nhập dữ liệu cần in

In thông tin của nhân viên ra l íi đ a thông tin ra màn hình

TiÕp tôc End §óng Sai

2.7.4 Module QTCT (quá trình công tác)

Chơng trình và kết quả thực hiện

Thiết kế các FORM

Visual Basic là ngôn ngữ lập trình hớng đối tợng nên việc thiết kế giao diện rất đơn giản bằng cách đa các đối tợng vào Form Form là biểu mẫu của ứng dụng Ta dùng Form để sắp xếp các bộ phận trên nó khi thiết kế phần giao tiếp với ngời sử dụng Trong một ứng dụng thờng có rất nhiều Form Kích cỡ của Form khi thiết kế xong là kích cỡ, hình dáng của Form mà ngời dùng sẽ gặp khi chạy ứng dụng.

+ Tool Box (Hộp công cụ): chứa các biểu mẫu hiểm thị cho các điền khiển mà ta có thể đa vào biểu mẫu Các đối t- ợng thông dụng của thanh công cụ là ScrollBar (thanh cuốn), commandButton (nút lệnh), Lable (nhãn), TextBox (hộp soạn thảo), ListBox (hộp danh sách).

+ TextBox: Dùng trình bầy văn bản, nhng cũng cho phép ngời sử dụng sửa đổi hay thêm văn bản mới.

+ Lable: Hiểm thị chuỗi ký tự không đổi trên biểu mẫu. + CheckBox: Cho phép ngời sử dụng chọn hoặc không chọn một khả năng nào đó.

+ ComboBox: Cho phép ngời sử dụng chọn từ danh sách các chọn lựa hay nhập dữ liệu mới.

+ CommandButton: Cho phép ngời sử dụng một hành động.

+ OptionButton: Cho phép ngời sử dụng chọn lựa từ một nhóm có 2 hay nhiều khả năng trở lên.

+ PictureBox: hiểm thị hình ảnh lên biểu mẫu và có thể dùng làm nơi chứa.

+ FileListBox: Cho phép ngời sử dụng chọn một tập tin. + Data: Cho phép lập trình để kết nối với cơ sở dữ liệu. + Properties Windows (cửa sổ thuộc tính): Chứa danh sách các thuộc tính của mọi đối tợng cụ thể, các thuộc tính này có thể đợc thay đổi cho phù hợp với yêu cầu về giao diện của ứng dụng.

Viết lệnh là quá trình hay viết code cho một đối tợng Ta viết lệnh cho đối tợng trong cửa sổ code Cửa sổ code có các thành phần chính nh sau:

+ Hộp liệt kê Object: liệt kê mọi đối tợng trên Form cùng với đối tợng trên General lu trữ mã chung cho mọi thủ tục đi kèm với Form có thể sử dụng.

+ Hộp liệt kê Procedure: cung cấp mọi sự kiện mà đối tợng đã chọn trong hộp liệt kê Object nhận ra.

3.3 CƠ Sở Dữ LIệU TRONG VISUAL BASIC.

Cơ sở dữ liệu là một kho chứa thông tin, có nhiều kiểu cơ sở dữ liệu, ở đây ta nói về cơ sở dữ liệu quan hệ Cơ sở dữ liệu quan hệ chứa dữ liệu trong các bảng, bảng đợc cấu tạo bởi các dòng còn gọi là các mẩu tin và cột gọi là các bảng Cơ sở dữ liệu cho phép lấy về hay truy vấn các tập hợp dữ liệu con lấy từ các bảng Cơ sở dữ liệu 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.

Cơ sở dữ liệu đợ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 bên trong phân nhóm dữ liệu Mẩu tin chứa các trờng Mỗi tr-

Trờng Đại học kinh tế Quốc Dân Chuyên dề thực tập Tốt Nghiệp ờng thể hiện một bộ phận dữ liệu trong mẫu tin Thao tác trên các bảng có liên quản đến các việc nhập và lấy về 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 với cấu trúc bảng ta dùng với các câu lệnh định nghĩa dữ liệu hoặc một đối tợng TableDef Để thao tác dữ liệu trong một bảng ta dùng Recordset Một 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ừ cơ sở dũ liệu. Các Recordset đợc thể hiện nh là một đối tợng, nó cũng có các thuộc tính và phơng thức riêng.

3.3.2 Tạo cơ sở dữ liệu trong Visual Basic

Có nhiều cách để tạo một cơ sở dữ liệu trong Visual Basic, hoặc là dùng tiện ích Visual Basic hoặc là dùng Microsoft Access có một giao diện tinh xảo và dễ dùng để tạo cơ sở dữ liệu Khi đã tạo xong các bảng cho một cơ sở dữ liệu, Microsoft Access cho ta khả năng định nghĩa các mối quan hệ giữa các bảng Khi ta định nghĩa một mối quan hệ, bộ máy cơ sở dữ liệu sẽ củng cố tính toàn vẹn tham chiếu trong các bảng quan hệ Các quan hệ trong một cơ sở dữ liệu có thể có là quan hệ một – một, quan hệ một – nhiều, quan hệ nhiều – nhiều.

+ Liên kết dữ liệu (Data link): là một cách kết nối môi tr- ờng phát triển của Visual Basic với một cơ sở dữ liệu nào đó. Một kết nối môi trờng dữ liệu (Data Environment Connection) là một cách sử dụng cơ sở dữ liệu ở trong một đề án Visual Basic dặc biệt.

3.4 THIếT Kế BáO CáO Và TRUY VấN

Thiết lập báo cáo trên cơ sở dữ liệu không chỉ đơn giản là hiểm thị dữ liệu từ cơ sở dữ liệu Hầu hết các báo cáo cơ sở dữ liệu liên quan đến hoạt động khác trên dữ liệu

Truy vấn dữ liệu trả về, hiểm thị, và chỉ in ra những phần ta muốn gọi

Sắp xếp dữ liệu sao cho nó xuất hiện theo một thứ tự có ý nghĩa.

Phân nhóm dữ liệu để hiểm thị một cách gọn gàng

3.4.2 Sử dụng thiết kế Datareport

Thiết kế Datareport là một trực quan để tạo báo cáo tích hợp trong môi trờng phát triển VB Thiết kế Datareport cung cấp các chức năng hết sức cơ bản, nhng có u điểm là dễ sử dông. Để tạo thiết kế Datareport, ta theo các bớc sau:

+ Trong đề án, từ menu Project, chọn Add DataReport + Thiết kế DataReport đợc thêm vào đề án DataReport chức một số phân đoạn:

- Report Header hiểm thị một lần ở đầu báo cáo.

- Report Footer hiểm thị một lần ở cuối báo cáo.

- Page Header hiểm thị ở đầu mỗi trang.

- Page Footer hiểm thị ở cuối mỗi trang.

- Detail Section hiểm thị các dòng dữ liệu.

- Một hay nhiều group header hay footer hiểm thị tại đầu và cuối của một phân đoạn nhóm.

Mỗi lần tạo ra thiết kế DataReport, ta phải ràng buộc nó với một cơ sở dữ liệu để hiểm thị dữ liệu, Ta thực hiện điều này thông qua một bộ gồm các điều khiển rằng buộc chỉ hoạt động trong ngữ cảnh của thiết kế DataReport.

Các điều khiển trực quan của thiết kế DataReport bao gồm:

- Điều khiển hộp văn bản.

- Điều khiển đoạn thẳng và điều khiển hình dạng.

- Điều khiển hàm cho phép chèn các tính toán tóm tắt vào báo cáo

3.5.1 Câu truy vấn là gì ?

Một câu truy vấn là một lệnh cơ sở dữ liệu để lấy các mẫu tin Sử dụng các câu truy vấn ta có thể lấy dữ liệu từ một hoặc nhiều trờng trong một hay nhiều bảng Ta còn có thể ép các dữ liệu lấy về theo một hoặc nhiều rằng buộc, gọi là các tiêu chí, để hạn chế số lợng lấy về.

Các câu truy vấn trong VB chủ yếu dựa trên SQL SQL là một ngôn ngữ khá chuẩn để lấy về dũ liệu hoặc thao tác với cơ sở dữ liệu.

3.5.2 Lợi ích của SQL nằm ở đâu ?

Cơ sở dữ liệu trong VISUAL BASIC

Cơ sở dữ liệu là một kho chứa thông tin, có nhiều kiểu cơ sở dữ liệu, ở đây ta nói về cơ sở dữ liệu quan hệ Cơ sở dữ liệu quan hệ chứa dữ liệu trong các bảng, bảng đợc cấu tạo bởi các dòng còn gọi là các mẩu tin và cột gọi là các bảng Cơ sở dữ liệu cho phép lấy về hay truy vấn các tập hợp dữ liệu con lấy từ các bảng Cơ sở dữ liệu 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.

Cơ sở dữ liệu đợ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 bên trong phân nhóm dữ liệu Mẩu tin chứa các trờng Mỗi tr-

Trờng Đại học kinh tế Quốc Dân Chuyên dề thực tập Tốt Nghiệp ờng thể hiện một bộ phận dữ liệu trong mẫu tin Thao tác trên các bảng có liên quản đến các việc nhập và lấy về 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 với cấu trúc bảng ta dùng với các câu lệnh định nghĩa dữ liệu hoặc một đối tợng TableDef Để thao tác dữ liệu trong một bảng ta dùng Recordset Một 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ừ cơ sở dũ liệu. Các Recordset đợc thể hiện nh là một đối tợng, nó cũng có các thuộc tính và phơng thức riêng.

3.3.2 Tạo cơ sở dữ liệu trong Visual Basic

Có nhiều cách để tạo một cơ sở dữ liệu trong Visual Basic, hoặc là dùng tiện ích Visual Basic hoặc là dùng Microsoft Access có một giao diện tinh xảo và dễ dùng để tạo cơ sở dữ liệu Khi đã tạo xong các bảng cho một cơ sở dữ liệu, Microsoft Access cho ta khả năng định nghĩa các mối quan hệ giữa các bảng Khi ta định nghĩa một mối quan hệ, bộ máy cơ sở dữ liệu sẽ củng cố tính toàn vẹn tham chiếu trong các bảng quan hệ Các quan hệ trong một cơ sở dữ liệu có thể có là quan hệ một – một, quan hệ một – nhiều, quan hệ nhiều – nhiều.

+ Liên kết dữ liệu (Data link): là một cách kết nối môi tr- ờng phát triển của Visual Basic với một cơ sở dữ liệu nào đó. Một kết nối môi trờng dữ liệu (Data Environment Connection) là một cách sử dụng cơ sở dữ liệu ở trong một đề án Visual Basic dặc biệt.

Thiết kế báo cáo và truy vÊn

Thiết lập báo cáo trên cơ sở dữ liệu không chỉ đơn giản là hiểm thị dữ liệu từ cơ sở dữ liệu Hầu hết các báo cáo cơ sở dữ liệu liên quan đến hoạt động khác trên dữ liệu

Truy vấn dữ liệu trả về, hiểm thị, và chỉ in ra những phần ta muốn gọi

Sắp xếp dữ liệu sao cho nó xuất hiện theo một thứ tự có ý nghĩa.

Phân nhóm dữ liệu để hiểm thị một cách gọn gàng

3.4.2 Sử dụng thiết kế Datareport

Thiết kế Datareport là một trực quan để tạo báo cáo tích hợp trong môi trờng phát triển VB Thiết kế Datareport cung cấp các chức năng hết sức cơ bản, nhng có u điểm là dễ sử dông. Để tạo thiết kế Datareport, ta theo các bớc sau:

+ Trong đề án, từ menu Project, chọn Add DataReport + Thiết kế DataReport đợc thêm vào đề án DataReport chức một số phân đoạn:

- Report Header hiểm thị một lần ở đầu báo cáo.

- Report Footer hiểm thị một lần ở cuối báo cáo.

- Page Header hiểm thị ở đầu mỗi trang.

- Page Footer hiểm thị ở cuối mỗi trang.

- Detail Section hiểm thị các dòng dữ liệu.

- Một hay nhiều group header hay footer hiểm thị tại đầu và cuối của một phân đoạn nhóm.

Mỗi lần tạo ra thiết kế DataReport, ta phải ràng buộc nó với một cơ sở dữ liệu để hiểm thị dữ liệu, Ta thực hiện điều này thông qua một bộ gồm các điều khiển rằng buộc chỉ hoạt động trong ngữ cảnh của thiết kế DataReport.

Các điều khiển trực quan của thiết kế DataReport bao gồm:

- Điều khiển hộp văn bản.

- Điều khiển đoạn thẳng và điều khiển hình dạng.

- Điều khiển hàm cho phép chèn các tính toán tóm tắt vào báo cáo

Truy vÊn

3.5.1 Câu truy vấn là gì ?

Một câu truy vấn là một lệnh cơ sở dữ liệu để lấy các mẫu tin Sử dụng các câu truy vấn ta có thể lấy dữ liệu từ một hoặc nhiều trờng trong một hay nhiều bảng Ta còn có thể ép các dữ liệu lấy về theo một hoặc nhiều rằng buộc, gọi là các tiêu chí, để hạn chế số lợng lấy về.

Các câu truy vấn trong VB chủ yếu dựa trên SQL SQL là một ngôn ngữ khá chuẩn để lấy về dũ liệu hoặc thao tác với cơ sở dữ liệu.

3.5.2 Lợi ích của SQL nằm ở đâu ?

Trong Visual Basic, bất cứ chỗ nào dùng tham chiếu đến một bảng ta đều sử dụng câu lệnh SQL hoặc một tham chiếu đến một truy vấn đã lu trữ (bản thân nó lại dựa vào một câu

5 lệnh SQL) Nơi thích hợp nhất để đặt một câu lệnh SQL là thuộc tính Recordset của một điều khiển dữ liệu.

Vì vậy thay vì chỉ ra thuộc tính Recordset là tên của một bảng, ta có thể thay đổi thuộc tính này thành tên của một câu truy vấn chữa sẵn hay một câu lệnh SQL

3.5.3 Sử dụng câu lệnh Select để lấy về các mẩu tin

Câu lệnh SELECT là cốt lõi của mọi truy vấn lấy về dữ liệu, nó không báo cho bộ máy cơ sở dữ liệu những trờng hợp nào sẽ đợc lấy về dạng thông dụng nhất của câu lệnh SELECT là :

Mệnh đề này có nghĩa là trả về tất cả các trờng tìm thấy trong nguồn của mẫu tin chỉ định Dạng lệnh này rất tiện dụng bởi vì ta không cần phải biết tên của trờng để lấy chúng về từ một bảng.

Ngoài việc thông báo cho bộ máy cơ sở dữ liệu để trả về tất cả các trờng trong nguồn mẩu tin, ta còn có khả năng chỉ ra chính xác trờng nào cần lấy về Hiệu ứng lọc bớt này cải tiến hiệu quả của một truy vấn, nhất là trên những bảng lớn có nhiÒu trêng.

3.5.4 Sử dụng mệnh lệnh FORM chỉ ra nguồn mẫu tin

Từ đó câu truy vấn lấy về các mẫu tin, nguồn mẫu tin này có thể là một bảng hoặc một truy vấn chứa sẵn khác.

Ta còn có khả năng lấy về các mẫu tin từ nhiều bảng. Mệnh đề FORM Làm việc với câu lệnh SELECT, cụ thể là: SELECT * FROM tên bảng dữ liệu cần truy vấn

3.5.5 Sử dụng mệnh đề WHERE để chỉ ra tiêu chí lọc

Mệnh đề WHERE thống báo với bộ máy cơ sở dữ liệu để giới hạn số mẫu tin trả về theo một hay nhiều tiêu chí lọc do ta cung cấp Một tiêu chí lọc là một biểu thức có giá trị True/False.

SELECT tên trờng * FORM tên bảng WHERE Điều kiện trả về

SELECT tên trờng *FORM Tên bảng WHERE Tên =”Nữ”

Ta có thể tạo ra các mệnh đề WHERE chi tiết hơn bằng các liên kết hai hay nhiều tiêu chí lọc với nhau thông qua logic AND và OR

SELECT * form HSNV , HDLD WHERE (HSNV.MANV

= HDLD.manv) and (HSNV.manv like trim(manv1)) and (HSNV.madv like trim(mapb1)) and (HSNV.macv like strim(macv1)).

3.5.6 Các toán tử trong mệnh đề WHERE

Ta có thể dùng các toán tử sau đây khi xây dựng một mệnh đề WHERE

BETWEEN: Thuộc một điểm (khoảng) các giá trị

LIKE: §èi chiÕu víi mét mÉu

IN : Chứa trong danh sách các giá trị a Toán tử BETWEEN

Toán tử BETWEEN trả về tất cả giá trị mẫu tin ở trong giới hạn nhất định Ví dụ trả về ngày sinh trong khoảng giữa ngày

1 tháng 6 và ngày 5 tháng 6 SELECT * FORM HSNV WHERE ngàysinh BETWEEN #6/1969 AND #6/5/1970. b Toán tử LIKE và các lý tự kiểu tuỳ ý

Toán tử like đối chiếu các mẫu tin theo mẫu do ta cung cấp Mốu này thờng là một ký tự kiểu tuỳ ý, nh là ký tự ‘*’ hay

Ta còn thể dùng toán tử LIKE để trả về một miền các giá trị số hoặc chữ cái.

Ví dụ : Để trả về tất cả các mẩu tin trong bảng HSNV có tên bắt đầu bằng ký tự từ A đến C.

SELECT Hoten FROM hsnv WHERE [hoten] LIKE ‘A-C’ c Toán tử IN

Ta dùng toán tử in để lấy về các mẩu tin phù hợp với danh sách các giá trị Ví dụ: Trả về tất cả các nhân viên trong cơ quan là Nam.

SELECT hoten, giơitinh FROM hsnv WHERE ‘giơitinh’

3.5.7 Sử dụng ORDER BY để sắp xếp kết quả

Mệnh đề ORDER BY thông báo cho bộ máy cơ sở dữ liệu cần sắp xếp các mẩu tin mà nó lấy về Ta có thể sắp xếp

Trờng Đại học kinh tế Quốc Dân Chuyên dề thực tập Tốt Nghiệp trên một trờng bất kỳ, hay trên nhiều trờng, và ta có thể sắp xếp theo thứ tự tăng dần hoặc giảm dần. Để chỉ ra một thứ tự sắp xếp, ta thêm mệnh đề ORDER BY vào cuối câu truy vấn SELECT, theo sau là một hay nhiều trờng mà ta muốn sắp xếp Ví dụ: SELECT hoten FROM hsnv WHERE diachi ‘hanoi’ ORDER BY hoten. a Sắp xếp theo thứ tự giảm dần Để sắp xếp theo thứ tự giảm, dùng từ khoá DESC sau trờng sắp xếp Ví dụ trả về các mẩu tin từ bảng hsnv theo thứ tự giảm dần.

SELECT * FROM hsnv WHERE hoten >50 ORDER BY ngaysinh DESC b Sắp xếp theo thứ tự giảm dần

Cũng nh sắp xếp tăng dần theo thứ tự giảm dần ta dùng từ khoá ASC.

SELECT * FROM hsnv WHERE hoten >50 ORDER BY ngáyinh ASC

Các giao diện chính và mã nguồn tơng ứng của chơng tr×nh

3.6.1 From Quản lý nhân sự

Dim gPrinter As New DDActiveReports2.Printer

Dim html As New ActiveReportsHTMLExport.HTMLexport 'File HTMLDim rtf As New ActiveReportsRTFExport.ARExportRTF 'File WordDim xls As New ActiveReportsExcelExport.ARExportExcel 'File Excel

Dim Uload As New clsMain

Dim Exp2Pic As New clsPicture

Private GridF As New StdFont

Dim clsmenu As New menuFunctions

QLNSLoad = True clsmenu.msCvnSysMenu Me.hWnd ' Insert icon for

'Insert icon for frmQLNS'Hệ_thống_menu clsmenu.mfSetMenuBarItemBitmapByPos Me.hWnd, , ,

'For menu Công cụ clsmenu.mfSetMenuBarItemBitmapByPos Me.hWnd, 5, ,

ImageForMenu.ListImages(4).Picture clsmenu.mfSetMenuBarItemBitmapByPos Me.hWnd, 5, 1, ImageForMenu.ListImages(5).Picture,

5 clsmenu.mfSetMenuBarItemBitmapByPos Me.hWnd, 5, 5, ImageForMenu.ListImages(8).Picture,

'For mune Tool Help clsmenu.mfSetMenuBarItemBitmapByPos Me.hWnd, 6, ,

TreeView1.Font.Name = GridFont.Name

TreeView1.Font.Size = GridFont.Size

LikeStatus.Font.Name = GridFont.Name

LikeStatus.Font.Size = GridFont.Size

SSTransition1.AddControl frmFirstAppear.hWnd frmFirstAppear.Show

ERR:mfThongBao ERR.Number & ERR.Description, , mbTB

SSTransition1.Height = LikeStatus.Top - SSTransition1.Top SSTransition1.Width = Me.Width * (9495 / 12000)

SSTransition1.Left = Me.Width * (2355 / 12000) picUndertreeview.Height = LikeStatus.Top - picUndertreeview.Top picUndertreeview.Width = Me.Width * (2265 / 12000)

TreeView1.Height = LikeStatus.Top - TreeView1.Top - 400

TreeView1.Width = Me.Width * (2205 / 12000) imgSplitter.Height = TreeView1.Height imgSplitter.Width = Me.Width * (165 / 12000) imgSplitter.Left = Me.Width * (2250 / 12120) picSplitter.Height = TreeView1.Height picSplitter.Width = Me.Width * (115 / 12000)

Private Sub Form_Unload(Cancel As Integer)

On Error Resume Next msSaveRegSetting

SSTransition1.AddControl frmFirstAppear.hWnd frmFirstAppear.Show frmAbout.Show vbModal

Call Toolbar1_ButtonClick(Toolbar1.Buttons(3))

If TypeOf tmpVSFLex Is VSFlexGrid Then

If Clipboard.GetText = "" Then mnuPase.Enabled = False

If TypeOf tmpVSFLex Is VSFlexGrid Then

If Clipboard.GetText = "" Then mnuPase.Enabled = False

Private Sub mnuHS_MucLuong_Click()

Call TreeView1_NodeClick(TreeView1.Nodes(7))

Private Sub mnuExpPic_SaveAs_Click()

DialogTitle = "Lu ảnh nhân viên ra File"

' Lu ra File ảnh dạng *.bpm

Private Sub mnuFoVS_See_Click()

Dim RecPic As New ADODB.Recordset

RecPic.Open "SELECT * FROM HO_SO_NV WHERE MA_NV='" & Trim(.TextMatrix(.Row, 1)) & "' ", CNN, adOpenKeyset, adLockOptimistic

If TextMatrix(.Row, 32) = "" Then mfThongBao "Nhân viên này cha có ảnh", udDauThongBao, mbTB

If frmPicture.bflFrmPicture = True Then Unload frmPicture

Unload frmPicture frmPicture.Show , QLNS

If TypeOf tmpVSFLex Is VSFlexGrid Then flPaste = True

TextMatrix(.Row, Col) = Clipboard.GetText

Qls = "UPDATE HO_SO_NV SET PHOTO='' WHERE MA_NV='"

& frmSoYeuLyLich.VSFlexGrid.TextMatrix(frmSoYeuLyLich.VSFlexG rid.Row, 1) & "'"

CNN.Execute Qls frmSoYeuLyLich.LoadDLForm

ERR:mfThongBao ERR.Number & ERR.Description, , mbTB

Set Uload = CreateObject("QLNSDLL.clsMain")

Call HtmlHelp(hWnd, App.Path & "\Help\QLNS.chm",

Private Sub mnuHS_DGNV_Click()

SSTransition1.AddControl frmDanToc.hWnd frmDanToc.Show

Call Toolbar1_ButtonClick(Toolbar1.Buttons("Print"))

SSTransition1.AddControl frmFirstAppear.hWnd frmFirstAppear.Show frmSearch.Show , QLNS

3.62 Cửa sổ nhân sự theo cây th mục:

3.64 Cửa sổ menu Hồ sơ nhân viên:

2.6.5: Cửa sổ menu Danh mục:

2.6.6 Cửa sổ menu Mẫu báo cáo:

2.6.7.Cửa sổ menu tuyển dụng:

2.6.8 Cửa sổ menu Trợ giúp:

Phần mã nguồn của các menu xuất phát từ cửa sổ menu chÝnh.

2.6.9 Cửa sổ danh mục dân tộc:

Dim Frm_DT_Heigh&, Frm_DT_Width&

Private Sub Form_Unload(Cancel As Integer)

Public Sub SSCommand_Click(Index As Integer)

Dim Rcs As New ADODB.Recordset

'Không xoá đợc vì nó đang đợc sử dụng

Sql = "SELECT * FROM HO_SO_NV WHERE DAN_TOC='" & TextMatrix(.Row, 1) & "'"

Rcs.Open Sql, CNN, adOpenStatic, adLockOptimistic

If Rcs.RecordCount > 0 Then mfThongBao "Không xoá đợc vì đang sử dông", udDauThongBao, mbTB

Sql = "SELECT * FROM HO_SO_NV WHERE TON_GIAO='" & TextMatrix(.Row, 1) & "'"

Sql = "SELECT * FROM HO_SO_NV WHERE DON_VI='" & TextMatrix(.Row, 1) & "'"

Sql = "SELECT * FROM HO_SO_NV WHERE CHUC_VU='" & TextMatrix(.Row, 1) & "'"

Sql = "SELECT * FROM HO_SO_NV WHERE TRINH_DO='" & TextMatrix(.Row, 1) & "'"

Sql = "SELECT * FROM HO_SO_NV WHERE CHUYEN_MON='" & TextMatrix(.Row, 1) & "'"

Sql = "SELECT * FROM HO_SO_NV WHERE NGOAI_NGU='" & TextMatrix(.Row, 1) & "'"

Trờng Đại học kinh tế Quốc Dân Chuyên dề thực tập Tốt Nghiệp mfThongBao "Không xoá đợc vì đang đợc sử dụng", udDauThongBao, mbTB

If TextMatrix(.Row, 1) = "" Then mfThongBao "Cha chọn nội dung để xoá " & vbNewLine & "Hoặc không còn khoản nào cả", udDauThongBao, mbTB

If mfThongBao("Quý vị có chắc xoá dân tộc này?", udDauHoi + udCoKhong, mbTB) = udCo Then

Sql = "DELETE FROM DAN_TOC WHERE MA_DAN_TOC= " & ValueMatrix(.SelectedRow(0), 1) & "" End If

If mfThongBao("Quý vị có chắc chắn xoá tôn giáo này không?", udDauHoi + udCoKhong, mbTB) udCo Then

Sql = "DELETE FROM TON_GIAO WHERE MA_TON_GIAO=" & ValueMatrix(.SelectedRow(0), 1) & "" End If

If mfThongBao("Quý vị có chắc chắn xoá phòng ban này không?", udDauHoi + udCoKhong, mbTB)

Sql = "DELETE FROM DON_VI WHERE MA_DON_VI=" & ValueMatrix(.SelectedRow(0), 1) & ""

If mfThongBao("Quý vị có chắc chắn xoá chức vụ này không?", udDauHoi + udCoKhong, mbTB) udCo Then

Sql = "DELETE FROM CHUC_VU WHERE MA_CHUC_VU=" & ValueMatrix(.SelectedRow(0), 1) & ""

If mfThongBao("Quý vị có chắc chắn xoá không?", udDauHoi + udCoKhong, mbTB) = udCo Then Sql = "DELETE FROM DAO_TAO WHERE MA_HE=" & ValueMatrix(.SelectedRow(0), 1) & ""

If mfThongBao("Quý vị có chắc chắn xoá không?", udDauHoi + udCoKhong, mbTB) = udCo Then Sql = "DELETE FROM CHUYEN_MON WHERE MA_CHUYEN_MON=" & ValueMatrix(.SelectedRow(0),

If mfThongBao("Quý vị có chắn xoá không?", udDauHoi + udCoKhong, mbTB) = udCo Then

Sql = "DELETE FROM NGOAI_NGU

WHERE MA_NGOAI_NGU=" & ValueMatrix(.SelectedRow(0),

RemoveItem SelectedRow(0) frmDanToc.SetFocus 'Mới thêm vào ngày

If mfThongBao("Quý vị có chắc xoá " & NumRec &

" nội dung này không ?", udDauHoi + udCoKhong, mbTB) udCo Then

If SelectedRow(NumRec) = Rows - 1 Then

Sql = "DELETE FROM DAN_TOC

Sql = "DELETE FROM TON_GIAO

Sql = "DELETE FROM DON_VI WHERE MA_DON_VI=" & ValueMatrix(.SelectedRow(NumRec), 1) & "" Case PChucVu

Sql = "DELETE FROM CHUC_VU

Sql = "DELETE FROM DAO_TAO

WHERE MA_HE=" & ValueMatrix(.SelectedRow(NumRec), 1)

Sql = "DELETE FROM CHUYEN_MON WHERE MA_CHUYEN_MON="

Sql = "DELETE FROM NGOAI_NGU WHERE MA_NGOAI_NGU="

NumRec = NumRec - 1 frmDanToc.SetFocus 'Mới thêm vào ngày

ERR: mfThongBao ERR.Number & ERR.Description

Private Sub VSFlexGrid_BeforeRowColChange(ByVal OldRow

As Long, ByVal OldCol As Long, ByVal NewRow As Long,

ByVal NewCol As Long, Cancel As Boolean)

Dim Rcs As New ADODB.Recordset

If DTLoad Or KeydownFlg Then Exit Sub

If (OldRow NewRow) And (OldRow < Rows - 1) And (AddDT Or EditDT) Then

DAN_TOC WHERE DANTOC='" & TextMatrix(.Row, 2) & "'", CNN, adOpenKeyset, adLockOptimistic

If Rcs.RecordCount > 0 Then mfThongBao "Dân tộc này đã có, xin hãy nhập lại", udDauThongBao, mbTB

Sql = "INSERT INTO DAN_TOC

TON_GIAO WHERE TONGIAO='" & TextMatrix(.Row, 2) & "'", CNN, adOpenKeyset, adLockOptimistic

If Rcs.RecordCount > 0 Then mfThongBao "Tôn giáo này đã có, xin hãy nhập lại", udDauThongBao, mbTB

Sql = "INSERT INTO TON_GIAO

Rcs.Open "SELECT * FROM DON_VI WHERE DONVI='" & TextMatrix(.Row, 2) & "'", CNN, adOpenKeyset, adLockOptimistic

If Rcs.RecordCount > 0 Then mfThongBao "Phòng ban này đã có, xin hãy nhập lại", udDauThongBao, mbTB

Sql = "INSERT INTO DON_VI

CHUC_VU WHERE CHUCVU='" & TextMatrix(.Row, 2) & "'", CNN, adOpenKeyset, adLockOptimistic

If Rcs.RecordCount > 0 Then mfThongBao "Chức vụ này đã có, xin hãy nhập lại", udDauThongBao, mbTB

Sql = "INSERT INTO CHUC_VU

DAO_TAO WHERE TRINHDO='" & TextMatrix(.Row, 2) & "'", CNN, adOpenKeyset, adLockOptimistic

If Rcs.RecordCount > 0 Then mfThongBao "Học vấn này đã có, xin hãy nhập lại", udDauThongBao, mbTB

Sql = "INSERT INTO DAO_TAO

CHUYEN_MON WHERE CHUYENMON='" & TextMatrix(.Row,

If Rcs.RecordCount > 0 Then mfThongBao "Chuyên môn này đã có, xin hãy nhập lại", udDauThongBao, mbTB

Sql = "INSERT INTO CHUYEN_MON (CHUYENMON,GHI_CHU) VALUES ('" _

NGOAI_NGU WHERE NGOAINGU='" & TextMatrix(.Row, 2) &

If Rcs.RecordCount > 0 Then mfThongBao "Ngoại ngữ này đã có, xin hãy nhập lại", udDauThongBao, mbTB

Sql = "INSERT INTO NGOAI_NGU (NGOAINGU,GHI_CHU) VALUES ('" _

If TextMatrix(.Row, 2) = "" Then mfThongBao "Quý vị cha chọn nội dung để sửa", udDauThongBao, mbTB

Sql = "UPDATE DAN_TOC SET

DANTOC ='" & TextMatrix(OldRow, 2) & "', GHI_CHU='" _ & TextMatrix(OldRow, 3) & "' WHERE MA_DAN_TOC =" & TextMatrix(OldRow, 1) & ""

Sql = "UPDATE TON_GIAO SET

TONGIAO='" & TextMatrix(OldRow, 2) & "',GHI_CHU='" _ & TextMatrix(OldRow, 3) & "' WHERE MA_TON_GIAO=" & TextMatrix(OldRow, 1) & ""

Sql = "UPDATE DON_VI SET DONVI='"

& TextMatrix(OldRow, 3) & "' WHERE MA_DON_VI=" & TextMatrix(OldRow, 1) & ""

Sql = "UPDATE CHUC_VU SET

CHUCVU='" & TextMatrix(OldRow, 2) & "',GHI_CHU='" _

& TextMatrix(OldRow, 3) & "' WHERE MA_CHUC_VU=" & TextMatrix(OldRow, 1) & ""

Sql = "UPDATE DAO_TAO SET

TRINHDO='" & TextMatrix(OldRow, 2) & "',GHI_CHU='" _ & TextMatrix(OldRow, 3) & "' WHERE MA_HE=" & TextMatrix(OldRow, 1) & ""

Sql = "UPDATE CHUYEN_MON SET CHUYENMON='" & TextMatrix(OldRow, 2) & "',GHI_CHU='" _

& TextMatrix(OldRow, 3) & "' WHERE MA_CHUYEN_MON=" & TextMatrix(OldRow, 1) & "" Case PNgoaiNgu

Sql = "UPDATE NGOAI_NGU SET

NGOAINGU='" & TextMatrix(OldRow, 2) & "',GHI_CHU='" _ & TextMatrix(OldRow, 3) & "' WHERE MA_NGOAI_NGU=" & TextMatrix(OldRow, 1) & "" End Select

ERR: mfThongBao ERR.Number & ERR.Description, , mbTB

Private Sub VSFlexGrid_CellChanged(ByVal Row As Long, ByVal Col As Long)

If DTLoad Then Exit Sub

If TextMatrix(.Row, 2) = "" Then Exit Sub

If Not (AddDT Or EditDT) Then Exit Sub

ERR: mfThongBao ERR.Number & ERR.Description, , mbTB

If Not AddDT Then EditDT = True

Private Sub VSFlexGrid_KeyDown(KeyCode As Integer, Shift

'Xử lý cắt dán đối với phím tắt

If TextMatrix(.Row, Col) = "" Then

If Clipboard.GetText = "" Then 'KiÓm tra xem có thể dán đợc không

Else: If KeyCode = vbKeyV Then Call QLNS.mnuPase_Click

Else 'Xử lý các phím tắt

If KeyCode = vbKeyX Then Call

If KeyCode = vbKeyV Then Call

If flPaste = True Then EditDT = True flPaste = False

ERR: mfThongBao ERR.Number & ERR.Description

Private Sub VSFlexGrid_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)

Private Sub VSFlexGrid_MouseDown(Button As Integer, Shift

As Integer, X As Single, Y As Single)

'Của mnu xem ảnh nhân viên trong frmSearch2 QLNS.mnustep13.Visible = False

QLNS.mnuFoVS_See.Visible = False

If TextMatrix(.Row, Col) "" Then

If flPaste = True Then EditDT = True flPaste = False

Dim Rec As ADODB.Recordset

Sql = "SELECT * FROM DAN_TOC"

VSFlexGrid.FormatString = "^STT | Mã | Tên dân tộc |Ghi chú

Sql = "SELECT * FROM TON_GIAO"

VSFlexGrid.FormatString = "^STT | Mã | Tên tôn giáo |Ghi chú

Sql = "SELECT * FROM DON_VI"

VSFlexGrid.FormatString = "^STT | Mã | Tên đơn vị |Ghi chú

Sql = "SELECT * FROM CHUC_VU"

VSFlexGrid.FormatString = "^STT | Mã | Tên chức vụ |Ghi chú

Sql = "SELECT * FROM DAO_TAO "

VSFlexGrid.FormatString = "^STT | Mã | Tên hệ đào tạo |Ghi chú

Sql = "SELECT * FROM CHUYEN_MON"

VSFlexGrid.FormatString = "^STT | Mã | Tên chuyên môn |Ghi chú

Sql = "SELECT * FROM NGOAI_NGU"

VSFlexGrid.FormatString = "^STT | Mã | Tên ngoại ngữ |Ghi chú

ERR: mfThongBao ERR.Description & ERR.Number, , mbTB

Dim Rec As ADODB.Recordset

Set Rec = New ADODB.Recordset

Rec.Open Sql, CNN, adOpenStatic, adLockOptimistic i = 1

Do While Not Rec.EOF

VSFlexGrid.AddItem i & vbTab & Rec(0) & vbTab _

& IIf(IsNull(Rec(1)), "", Rec(1)) & vbTab & IIf(IsNull(Rec(2)), "", Rec(2)) i = i + 1

Frm_DT_Heigh = GetSetting("QLNSDLL",

Frm_DT_Width = GetSetting("QLNSDLL",

Me.Height = Frm_DT_Heigh

Me.Width = Frm_DT_Width

Me.Picture1.Height = Frm_DT_Heigh

Me.Picture1.Width = Frm_DT_Width

VSFlexGrid.Left = Picture1.Width * (1590 / 9525) + QLNS.Width * (2325 / 12120) / 4

Tơng tự ta có các cửa sổ khác nh sau:

Cửa sổ danh mục chuyên môn

Cửa sổ danh mục ngoại ngữ

Cửa sổ thêm mới hoặc laọi bổ hợp đồng

Cửa sổ kiểm tra mức lơng Ngoài ra trong chơng trình còn dùng một số modun và class mà không đa vào.

Chơng trình “Quản lý nhân sự” có khả năng ứng dụng rộng rãi và đáp ứng đợc nhiều đòi hỏi về mặt tìm kiếm,

Trờng Đại học kinh tế Quốc Dân Chuyên dề thực tập Tốt Nghiệp thống kê hay báo cáo của ngời sử dụng Tuy nhiên chơng trình vẫn còn khá nhiều vấn đề cha thể đáp ứng đợc hết những đòi hỏi của ngời sử dụng cũng nh yêu cầu của bài toán “Quản lý nh©n sù” chung.

Mặc dù đã có nhiều có gắng, nhng do hạn chế về thời gian nên chắc chắn bản luận văn không tránh khỏi thiếu sót.

Em mong rằng với sự giúp đỡ của các giáo viên trong khoa Tin Học Kinh Tế cũng nh sự đóng góp ý kiến của bạn bè hay những ngời hiểu về công tác quản lý, về chơng trình và ngời sử dụng sẽ làm cho chơng trình ngày càng hoàn thiện đáp ứng đợc nhiều đòi hỏi hơn, ứng dụng rộng rãi hơn.

Một lần nữa em xin cảm ơn thầy giáo hớng dẫn GS.TS Trần Thị Thu Hà và toàn bộ các giáo viên trong khoa Tin Học Kinh Tế đã giúp em hoàn thành chuyên đề thực tập tốt nghiệp này.

Định dạng
Số trang	104
Dung lượng	292,87 KB