Xây dựng phần mềm chương trình quản lý nhân sự

Xã hội ngày càng phát triển, thông tin ngày càng trở nên phong phú, đa dạng và phức tạp. Sự bùng nổ thông tin đã thực sự trở nên một vấn đề cấp thiết cần giải quyết. Công nghệ thông tin (CNTT) ra đời và phát triển nhằm xử lý những vấn đề cấp thiết đó. Ngày nay thật khó hình dung một ngành nghề hay một lĩnh vực nào mà CNTT không thâm nhập vào. Một trong lĩnh vực mà tin học thâm nhập vào sâu và thu được những thành tựu to lớn, đó là lĩnh vực quản lý. Các phần mềm nối tiếp ra đời nhằm quản lý các vấn đề như kế hoạch, nhân sự, kế toán, tài vụ, quản lý hàng hoá đến việc bán hàng... Tin học trong lĩnh vực này đã góp phần đáng kể làm giảm nhẹ công sức, tiền bạc, giúp cho các nhà lãnh đạo đưa ra những quyết định đúng đắn ở tầm vĩ mô cũng như vi mô. Nước ta trong những năm gần đây, lĩnh vực quản lý này đã được nhiều công ty phần mềm quan tâm giải quyết như phần mềm kế toán ACCNET của công ty Lạc Việt, phần mềm quản lý khách sạn, kho của công ty FPT... Đối với các công ty, các trường đại học, các phần mềm viết riêng cho mình để quản lý phù hợp với đặc trưng riêng cũng là một nhu cầu không thể thiếu được. Để đáp ứng nhu cầu nên em xây dựng chương trình quản lý nhân sự nhằm tự động hoá các công việc trên giúp cho việc quản lý nhanh chóng và thuận tiện. Hệ chương trình Quản lý nhân sự em đã đề cập và giải quyết những vấn đề sau: + Quản lý các thông tin về hồ sơ (Tên, tuổi...) + Quản lý thông tin về danh mục (Ngoại ngữ, dân tộc...) + Đưa ra các thông tin cần tra cứu + Đưa ra các báo cáo lương, hồ sơ nhân viên. Trong bản luận văn này, em xin giới thiệu một chương trình được xây dựng bằng phần mềm VisualBasic 6.0(VB6.0). VB6.0 được chọn vì có thể tạo ra những giao diện đẹp trên môi trường Windows, thân thiện với người sử dụng đồng thời dễ dàng tạo các hàm, các thủ tục thoả mãn được các yêu cầu mềm dẻo, linh hoạt. Mặc dù rất cố gắng, nhưng do hạn chế về mặt thời gian, vừa khai thác phần mềm VB6.0, lại vừa xây dựng ứng dụng của mình, phần mềm VB6.0 là phần mềm khá mới mẻ mà em được học ở trường, những kiến thức còn non yếu về chuyên ngành quản lý nhân sự nên bản luận văn này chắc chắn còn nhiều thiếu sót. Rất mong được sự góp ý của thầy cô , các bạn để điều chỉnh và hoàn thiện chương trình.

lời Mở đầu

Xã hội ngày càng phát triển, thông tin ngày càng trở nên phong phú, đa dạng và phức tạp Sự bùng nổ thông tin đã thực sự trở nên một vấn đề cấp thiết cần giải quyết Công nghệ thông tin (CNTT) ra đời và phát triển nhằm xử lý những vấn đề cấp thiết đó

Ngày nay thật khó hình dung một ngành nghề hay một lĩnh vực nào mà CNTT không thâm nhập vào Một trong lĩnh vực mà tin học thâm nhập vào sâu

và thu đợc những thành tựu to lớn, đó là lĩnh vực quản lý Các phần mềm nối tiếp

ra đời nhằm quản lý các vấn đề nh kế hoạch, nhân sự, kế toán, tài vụ, quản lý hàng hoá đến việc bán hàng Tin học trong lĩnh vực này đã góp phần đáng kể làm giảm nhẹ công sức, tiền bạc, giúp cho các nhà lãnh đạo đa ra những quyết

định đúng đắn ở tầm vĩ mô cũng nh vi mô

Nớc ta trong những năm gần đây, lĩnh vực quản lý này đã đợc nhiều công

ty phần mềm quan tâm giải quyết nh phần mềm kế toán ACCNET của công ty Lạc Việt, phần mềm quản lý khách sạn, kho của công ty FPT Đối với các công

ty, các trờng đại học, các phần mềm viết riêng cho mình để quản lý phù hợp với

đặc trng riêng cũng là một nhu cầu không thể thiếu đợc Để đáp ứng nhu cầu nên

em xây dựng chơng trình quản lý nhân sự nhằm tự động hoá các công việc trên giúp cho việc quản lý nhanh chóng và thuận tiện

Hệ chơng trình Quản lý nhân sự em đã đề cập và giải quyết những vấn đề sau:

+ Quản lý các thông tin về hồ sơ (Tên, tuổi )

+ Quản lý thông tin về danh mục (Ngoại ngữ, dân tộc )

+ Đa ra các thông tin cần tra cứu

+ Đa ra các báo cáo lơng, hồ sơ nhân viên

ĐH Quản Lý và Kinh Doanh Hà Nội

1

Trong bản luận văn này, em xin giới thiệu một chơng trình đợc xây dựng bằng phần mềm VisualBasic 6.0(VB6.0) VB6.0 đợc chọn vì có thể tạo ra những giao diện đẹp trên môi trờng Windows, thân thiện với ngời sử dụng đồng thời dễ dàng tạo các hàm, các thủ tục thoả mãn đợc các yêu cầu mềm dẻo, linh hoạt.Mặc dù rất cố gắng, nhng do hạn chế về mặt thời gian, vừa khai thác phần mềm VB6.0, lại vừa xây dựng ứng dụng của mình, phần mềm VB6.0 là phần mềm khá mới mẻ mà em đợc học ở trờng, những kiến thức còn non yếu về chuyên ngành quản lý nhân sự nên bản luận văn này chắc chắn còn nhiều thiếu sót Rất mong đợc sự góp ý của thầy cô , các bạn để điều chỉnh và hoàn thiện ch-

ơng trình

ĐH Quản Lý và Kinh Doanh Hà Nội

2

PHần i:

Tổng quan của Đề tài

I Một số khái niệm về quản lý:

Quản lý là một khái niệm chung dùng để chỉ việc điều hành hoạt động trong các tổ chức cơ quan nhà máy xí nghiệp Nó đóng vai trò quan trọng là…nhân tố quyết định sự tồn tại và phát triển của cơ quan, xí nghiệp

Với trào lu chung của thế giới hiện nay, phát triển không ngừng của nền kinh tế thị trờng làm cho luồng khối lợng thông tin trở nên quá lớn Điều đó càng làm cho công tác quản lý trở nên khó khăn và phức tạp về mọi phơng diện.Theo truyền thống việc giải quyết các nhiệm vụ quản lý thờng dựa trên kinh nghiệm và trực giác của ngời lãnh đạo và quản lý Nhng ngày nay đứng tr-

ớc nhiệm vụ đầy khó khăn và phức tạp của công tác quản lý với phơng pháp cổ truyền không thể giải quyết kịp những công việc hàng ngày theo ý muốn vì chiếm quá nhiều thời gian Đó chính là một trong những nguyên nhân gây lên

sự kìm hãm phát triển tài năng sáng tạo của các nhà quản lý Trói buộc họ vào các công việc nhàm chán Trong thực tế hiện nay, để hoàn thành đợc nhiệm vụ chính trị kinh doanh đòi hỏi phải đáp ứng kịp thời thông tin phải đủ và chính…xác Điều đó cho thấy có phơng tiện máy tính trợ giúp các nhà quản lý là hết sức cần thiết

ii mục đích của đề tài:

Việc xây dựng chơng trình quản lý nhân sự nhằm các mục đích nh sau:

- Quản lý hồ sơ cán bộ

- Cung cấp hệ thống thông tin phản ánh có hệ thống, khái quát và chi tiết vấn đề có liên quan đến đội ngũ nhân sự trong các phòng ban

Trên cơ sở thông tin của từng nhân sự trong từng phòng ban, cán bộ quản

lý thực hiện các công việc sau:

ĐH Quản Lý và Kinh Doanh Hà Nội

3

+ Xây dựng hệ thống chơng trình lu trữ, tra cứu nhanh các thông tin với

độ chính xác, tin cậy cao trong thời gian nhanh nhất

+ Cung cấp nhanh chóng, đầy đủ chính xác thông tin theo yêu cầu của cán

bộ quản lý, các cấp lãnh đạo có liên quan

+ Xem trên màn hình các biểu mẫu báo cáo tổng quát hay chi tiết theo từng chức vụ

+ Hệ thống xử lý và in ra báo cáo nhanh chóng

Do đó mục đích của đề tài này là xây dựng cơ sở dữ liệu thống nhất cho việc quản lý và lu trữ những thông tin về cán bộ, giúp cho việc tra cứu thông tin một cách nhanh chóng và chính xác Chơng trình cho phép lu trữ, thống kê tra cứu, in các báo cáo theo yêu cầu của cán bộ quản lý

iii Cơ sở của đề tài:

Dựa trên cơ sở chủ yếu sau:

- Những yêu cầu cụ thể về công việc của ngời quản lý của từng phòng ban

- Những góp ý đề nghị thêm của bản thân để làm cho việc quản lý nhân

sự đợc gần gũi với tin học

IV Biện pháp thực hiện:

Xây dựng một hệ thống thông tin quản lý hoàn chỉnh là một việc làm hết sức khó khăn chiếm nhiều thời gian và công sức cũng nh về tài chính Thông th-ờng việc áp dụng tin học hoá trong việc quản lý phải dẫn tới đòi hỏi thực hiện hàng loạt các biện pháp to lớn về tổ chức cũng nh thay đổi hình thức tài liệu, bảng biểu, thay đổi cơ cấu các cơ quan chức năng, cách thức kiểm tra không chỉ riêng bộ phận nào mà ở tất cả các bộ phận có liên quan

Chơng trình đợc thiết kế trên môi trờng Visual Basic 6.0, một ngôn ngữ lập trình phổ biến nhất hiện nay Với những mặt mạnh của nó so với phần mềm khác thì nó có nhiều u điểm vợt trội: Đa dạng, phong phú đặc biệt rất ít tốn kém, phù hợp với điều kiện kinh tế đối với cơ quan hành chính có kinh tế eo hẹp, phù hợp với nghiệp vụ công tác hồ sơ

ĐH Quản Lý và Kinh Doanh Hà Nội

4

V Giới thiệu ngôn ngữ Visual Basic

Ta biết rằng nền móng của bộ office 97/2000 chính là Visual Basic Thật vậy, Visual Basic là một công cụ phát triển phần mềm phổ biến nhất hiện nay Bill Gate đã mô tả Visual Basic nh một công cụ vừa dễ lại vừa mạnh để phát triển các ứng dụng trong môi trờng Windows một cách hoàn hảo Các phiên bản 1.0,2.0, 6.0 lần l… ợt ra đời đã khiến Visual Basic trở nên mạnh và trôi chảy nhất

Visual Basic là ngôn ngữ đồ họa với các đối tợng Form, các thanh công

cụ, nút điều khiển, hộp text box Mỗi khi lập chơng trình cho một đối tợng là lại có một hộp với các sự kiện đơn giản tơng ứng nh click, Tất cả các đối tợng nhỏ đều nằm trong hộp text box và nằm trong Form Visual Basic cũng có các biến, hàm, thủ tục, và rất nhiều thứ khác nữa nh những ngôn ngữ khác và khoảng

5

PhÇn II.

Ch¬ng tr×nh Qu¶n Lý Nh©n Sù

B¾t ®Çu vµo ch¬ng tr×nh sÏ cã mét Form ch¬ng tr×nh nh sau:

Môc Qu¶n lý cã 4 môc nhá lµ:

6

Ta còng cã thÓ xem Hå s¬ lÉn lý lÞch nh©n viªn nhê c¸c phÇn kÝch t¬ng øng.

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

7

Và in ra các báo cáo tơng ứng bằng nhấn nút in:

Trong Quản lý nhấn vào Danh mục và chọn các danh mục tơng ứng ta có thể xem các thông tin về danh mục dân tộc hay trình độ và cũng có thể thêm, sửa,…xóa…

- Danh mục Dân tộc:

ĐH Quản Lý và Kinh Doanh Hà Nội

8

Danh mục đơn vị:

ĐH Quản Lý và Kinh Doanh Hà Nội

9

Danh môc t«n gi¸o:

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

10

Danh môc ngo¹i ng÷:

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

11

NguyÔn Ph¬ng Giang Líp Tin 4 Tin häc Qu¶n Lý §H Qu¶n Lý vµ Kinh Doanh Hµ Néi

12

Danh môc häc vÞ:

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

13

Danh mục hệ đào tạo:

ĐH Quản Lý và Kinh Doanh Hà Nội

14

Danh môc chuyªn m«n:

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

15

Tõ Qu¶n lý nh¸y vµo “T×m kiÕm”, mµn h×nh hiÖn ra gióp t×m kiÕm th«ng tin theo nh÷ng tiªu chuÈn nh M· nh©n viªn, Tªn…

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

16

Khi muèn tho¸t ch¬ng tr×nh tõ Qu¶n lý nh¸y Tho¸t

Trong B¸o c¸o cã 2 môc con lµ Hå s¬ nh©n viªn vµ L¬ng nh©n viªn, nÕu muèn xem b¸o c¸o nµo th× nh¸y môc t¬ng øng:

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

17

Nếu muốn in nháy biểu tợng máy in chọn OK

Trong Giúp đỡ có Giới thiệu, muốn xem nháy vào “Giới thiệu”

ĐH Quản Lý và Kinh Doanh Hà Nội

18

phÇn: iii

M· Ch¬ng Tr×nh

Form Main( Ch¬ng tr×nh):

Option Explicit

Dim MyDir As String

Private Sub mnuBcHoso_Click() ‘ thñ tôc cho c¸c menu

rptHosoNV.Show ‘lÖnh hiÓn thÞ form

19

Private Sub mnuDmCm_Click()

20

Private Sub mnuDmTg_Click()

Private Sub mnuQuatrinhct_Click()

rptLuong.Show ‘ LÖnh hiÓn thÞ report

21

Dim oldChucvu

Dim oldLuong

Dim oldDonvi

Dim St

Private Sub Cmdcancel_Click()

Frame2.Enabled = False ‘ giá trị các đối tợng

Private Sub cmdDong_Click()

Unload frmHoso ‘ Ngừng nạp form

End Sub

Private Sub cmdHsCapnhat_Click()

BtClick = 2 ‘ gắn giá trị cho các biến oldMaso = txtHsMaso

oldChucvu = dbcboHsTencv.Text

oldLuong = dbcboHsLuongcb.Text

oldDonvi = dbcboHsTenpb.Text

cmdHsLuuhoso.Enabled = True ‘ Giá trị của các đối tợng

ĐH Quản Lý và Kinh Doanh Hà Nội

22

23

End Sub

Private Sub cmdHsLuuhoso_Click()

Dim Newma

Newma = txtHsMaso.Text ‘ g¾n gi¸ trÞ cho biÕn

Select Case BtClick

24

25

'Move cursor to update record

Findhsnv (oldMaso) ‘ thùc hiÖn thñ tôc t×m kiÕm

26

27

28

Private Function Find(Ma As String)

Dim Found As Boolean

Found = False ‘ giá trị của biến found

DHoso.Recordset.MoveFirst ‘ di chuyển về bản ghi đầu tiên

Do While Not (DHoso.Recordset.EOF) And Not (Found) ‘ làm cho đến khi cha tới bản ghi cuối và cha tìm thấy đợc

If Ma = DHoso.Recordset.Fields("HosONV.MaNV") Then ‘ nếu so khớp thì biến found là true

Found = True

Else

ĐH Quản Lý và Kinh Doanh Hà Nội

29

Private Function Findhsnv(maso As String) As Boolean

Dim Found As Boolean

Found = False

dHsnv.Recordset.MoveFirst

Do While Not (dHsnv.Recordset.EOF) And Not (Found)

If maso = dHsnv.Recordset.Fields("MaNV") Then

Private Function Findhdld(maso As String) As Boolean

Dim Found As Boolean

Found = False

DHdld.Recordset.MoveFirst

Do While Not (DHdld.Recordset.EOF) And Not (Found)

If maso = DHdld.Recordset.Fields("MaNV") Then

30

Findhdld = Found

End Function

Private Sub cmdHsQtct_Click()

frmCongtac.txtManv.Text = (txtHsMaso.Text) ‘g¾n gi¸ trÞ cho c¸c biÕn

Private Sub XoaDL(Tablename, Value As String)

Dim cdb As Database ‘ g¾n c¸c gi¸ trÞ

Dim rst As Recordset

Dim str As String

str = "Delete * From " + Tablename + " Where Manv = " + """" + Value + """"

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

31

Set cdb = OpenDatabase(DHoso.DatabaseName)

cdb.Execute (str)

cdb.Close

End Sub

Private Sub cmdHsThemnv_Click()

BtClick = 1 ‘giá trị các đối tợng

SSTab1.Tab = 0

txtHsMaso.SetFocus ‘đặt tiêu điểm cho text box

txtLlManv.Text = "" ‘ trạng thái các đối tợng

32

33

End Sub

Private Sub cmdXoa_Click()

If MsgBox("B¹n cã muèn xo¸ mÈu tin nµy kh«ng?", vbYesNo, "Xo¸ d÷ liÖu", 0, 0) = vbYes Then

Call XoaDL("Hosonv", txtHsMaso.Text) ‘ gäi c¸c thñ tôc xo¸

Call XoaDL("HopdongLD", txtHsMaso.Text)

Call XoaDL("QuatrinhCT", txtHsMaso.Text)

Call XoaDL("QuatrinhDT", txtHsMaso.Text)

DHoso.Refresh

End If

End Sub

Private Sub dbcboHsLuongcb_Change()

Dim yt, xh ‘gi¸ trÞ c¸c biÕn

Dim rst As Recordset

Dim Mydb As Database

Dim StrSQL As String

If dbcboHsLuongcb.Text <> "" Then

Set Mydb = OpenDatabase(DLuong.DatabaseName)

StrSQL = "Select * From Luong where Bacluong = " + """" + dbcboHsLuongcb.Text + """"

yt = (Val(txtHsBhyt.Text) * Val(lblHsMalcb.Caption)) / 100 ‘g¾n c¸c gi¸ trÞ

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

34

Set Mydb = OpenDatabase(DChucvu.DatabaseName)

StrSQL = "Select * From Chucvu where macv = " + """" + dbcboHsTencv.Text + """"

Set Mydb = OpenDatabase(DPban.DatabaseName)

StrSQL = "Select * From Donvi where madv = " + """" + dbcboHsTenpb.Text + """"

Set rst = Mydb.OpenRecordset(StrSQL)

lblHsMapb.Caption = rst.Fields("TenDV")

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

35

36

St = St + " Where Manv = " + """" + maso + """"

St = St + " And Phongban = " + """" + Phongban + """"

St = St + " And Chucvu = " + """" + Chucvu + """"

37

Private Sub cmdXoa_Click()

Dim Mydb As Database

Set Mydb = OpenDatabase(DCongtac.DatabaseName)

SQL1 txtManv.Text, DataGrid1.Columns.Item(0), DataGrid1.Columns.Item(1)

38

Private Sub cmdSua_Click()

grdLietke.AllowUpdate = True ‘gi¸ trÞ cho phÐp cËp nhËt

Private Sub cmdXoa_Click()

If MsgBox("B¹n cã muèn xo¸ mÈu tin nµy kh«ng ?", vbYesNo, "Xo¸ D÷ LiÖu", 0, 0) = vbYes Then

39

Private Sub grdLietke_BeforeUpdate(Cancel As Integer)

Private Sub cmdXoa_Click()

If MsgBox("B¹n cã muèn xo¸ mÈu tin nµy kh«ng ?", vbYesNo, "Xãa D÷ LiÖu", 0, 0) = vbYes Then

Devm.rsTB_ChucVu.Delete

End If

End Sub

Private Sub Form_Load()

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

40

41

grdLietke.SetFocus

End Sub

Private Sub cmdXoa_Click()

If MsgBox("B¹n cã muèn xo¸ mÈu tin nµy kh«ng ?", vbYesNo, "Xãa D÷ LiÖu", 0, 0) = vbYes Then

Private Sub cmdSua_Click()

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

42

Private Sub cmdXoa_Click()

If MsgBox("B¹n cã muèn xo¸ mÈu tin nµy kh«ng ?", vbYesNo, "Xãa D÷ LiÖu", 0, 0) = vbYes Then

43

Private Sub grdLietke_BeforeUpdate(Cancel As Integer)

Private Sub cmdXoa_Click()

If MsgBox("B¹n cã muèn xo¸ mÈu tin nµy kh«ng ?", vbYesNo, "Xãa D÷ LiÖu", 0, 0) = vbYes Then

44

Private Sub Form_Load()

Private Sub cmdThem_Click()

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

45

Private Sub cmdXoa_Click()

If MsgBox("B¹n cã muèn xo¸ mÈu tin nµy kh«ng ?", vbYesNo, "Xãa D÷ LiÖu", 0, 0) = vbYes Then

46

grdLietke.AllowUpdate = True

grdLietke.AllowArrows = True

grdLietke.SetFocus

End Sub

Private Sub cmdXoa_Click()

If MsgBox("B¹n cã muèn xãa mÈu tin nµy kh«ng ?", vbYesNo, "Xãa D÷ LiÖu", 0, 0) = vbYes Then

47

Private Sub cmdDong_Click()

Private Sub cmdXoa_Click()

If MsgBox("B¹n cã muèn xo¸ mÈu tin nµy kh«ng ?", vbYesNo, "Xãa D÷ LiÖu", 0, 0) = vbYes Then

Private Sub grdLietke_AfterUpdate()

§H Qu¶n Lý vµ Kinh Doanh Hµ Néi

48

Private Sub cmdTimkiem_Click()

Dim maso, ten, Donvi, Cviec ‘khai b¸o biÕn

maso = "%" + txtMaso.Text + "%" ‘gi¸ trÞ c¸c biÕn

49

St = St + " Where Manv Like " + """" + maso + """"

St = St + " and Hoten Like " + """" + ten + """"

St = St + " and TenDv Like " + """" + Donvi + """"

St = St + " and Tencv Like " + """" + Cviec + """"

50

mục lục

Phần I Tổng quan của đề tài

ĐH Quản Lý và Kinh Doanh Hà Nội

51