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

Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

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.

Nguyễn Phơng Giang

Kinh Doanh Hà Nội

1

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

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.

Nguyễn Phơng Giang

Kinh Doanh Hà Nội

2

Lớp Tin 4 Tin học Quản Lý

ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

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:
Nguyễn Phơng Giang

Kinh Doanh Hà Nội

3

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

+ 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ơ.
Nguyễn Phơng Giang

Kinh Doanh Hà Nội

4

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và

Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

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
14 biến.

Nguyễn Phơng Giang

Kinh Doanh Hà Nội

5

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

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à:
- Hồ sơ nhân viên
- Danh mục
- Tìm kiếm
- Thoát
Trong Danh mục lại có các phần nhỏ nh: phòng ban, dân tộc, tôn giáo
của nhân viên.
Từ Quản lý, nháy vào Hồ sơ nhân viên, Form mục hồ sơ nhân viên hiện ra
chứa các số liệu của nhân viên có thể sửa, xóa bằng các nút.

Nguyễn Phơng Giang

Kinh Doanh Hà Nội

6

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

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.

Nguyễn Phơng Giang

Kinh Doanh Hà Nội

7

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

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:

Nguyễn Phơng Giang

Kinh Doanh Hà Nội

8

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

Danh mục đơn vị:

Nguyễn Phơng Giang

Kinh Doanh Hà Nội

9

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

Danh mục tôn giáo:
Nguyễn Phơng Giang

Kinh Doanh Hà Nội

10

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


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

TGHD: Th¹c sü. §oµn H÷u V îng

Danh môc ngo¹i ng÷:
NguyÔn Ph¬ng Giang

Kinh Doanh Hµ Néi

11

Líp Tin 4 Tin häc Qu¶n Lý
§H Qu¶n Lý vµ


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

NguyÔn Ph¬ng Giang

Kinh Doanh Hµ Néi

TGHD: Th¹c sü. §oµn H÷u V îng

12

Líp Tin 4 Tin häc Qu¶n Lý
§H Qu¶n Lý vµ


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

Danh mục học vị:

Nguyễn Phơng Giang

Kinh Doanh Hà Nội

13

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

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

Nguyễn Phơng Giang

Kinh Doanh Hà Nội

14

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


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

TGHD: Th¹c sü. §oµn H÷u V îng

Danh môc chuyªn m«n:

NguyÔn Ph¬ng Giang

Kinh Doanh Hµ Néi

15

Líp Tin 4 Tin häc Qu¶n Lý
§H Qu¶n Lý vµ


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

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

Nguyễn Phơng Giang

Kinh Doanh Hà Nội

16

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

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:

Nguyễn Phơng Giang

Kinh Doanh Hà Nội

17

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

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

Nguyễn Phơng Giang

Kinh Doanh Hà Nội

18

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

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
End Sub
Private Sub mnuCongtac_Click()

frmCongtac.Show
End Sub

Nguyễn Phơng Giang

Kinh Doanh Hà Nội

19

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


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

TGHD: Th¹c sü. §oµn H÷u V îng

Private Sub mnuDmCm_Click()
frmDmCm.Show
End Sub
Private Sub mnuDmCv_Click()
frmDmCv.Show
End Sub
Private Sub mnuDmDt_Click()
frmDmDt.Show
End Sub
Private Sub mnuDmHv_Click()
frmDmHv.Show
End Sub
Private Sub mnuDmNdt_Click()

frmDmNdt.Show
End Sub
Private Sub mnuDmNN_Click()
frmDmNn.Show
End Sub
Private Sub mnuDmPb_Click()
frmDmDvi.Show
End Sub
NguyÔn Ph¬ng Giang

Kinh Doanh Hµ Néi

20

Líp Tin 4 Tin häc Qu¶n Lý
§H Qu¶n Lý vµ


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

Private Sub mnuDmTg_Click()
frmDmTg.Show
End Sub
Private Sub mnuGioithieu_Click()
frmGthieu.Show
End Sub
Private Sub mnuHoso_Click()
frmHoso.Show

End Sub
Private Sub mnuQuatrinhct_Click()
rptLuong.Show Lệnh hiển thị report
End Sub

Private Sub mnuThoat_Click()
End
End Sub
Private Sub mnuTimkiem_Click()
frmTimkiem.Show
End Sub
Form Hồ Sơ:
Dim BtClick

gắn giá trị cho biến

Dim oldMaso
Nguyễn Phơng Giang

Kinh Doanh Hà Nội

21

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

Dim oldChucvu
Dim oldLuong
Dim oldDonvi
Dim St
Private Sub Cmdcancel_Click()
Frame2.Enabled = False

giá trị các đối tợng

Frame3.Enabled = False
Frame4.Enabled = False
cmdHsCapnhat.Enabled = True
cmdHsThemnv.Enabled = True
cmdHsInhoso.Enabled = True
cmdHsQuaylai.Enabled = True
cmdHsKetiep.Enabled = True
Cmdcancel.Enabled = False
cmdHsLuuhoso.Enabled = False
End Sub
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
Nguyễn Phơng Giang

Kinh Doanh Hà Nội

Giá trị của các đối tợng
22

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

Frame2.Enabled = True
Frame3.Enabled = True
Frame4.Enabled = True
cmdHsThemnv.Enabled = False
cmdHsInhoso.Enabled = False
cmdHsQuaylai.Enabled = False
cmdHsKetiep.Enabled = False
Cmdcancel.Enabled = True
End Sub

Private Sub cmdHsHinh_Click()
CommonDialog1.Action = 1
Picture1.Picture = LoadPicture(CommonDialog1.FileName) gắn cho đối tợng hình một tập tin hình đợc lựa chọn
End Sub
Private Sub cmdHsInhoso_Click()
Devm.Qhsnv (txtHsMaso.Text)
rptLilichcn.Show hiện báo cáo lý lịch theo mã số
End Sub
Private Sub cmdHsKetiep_Click()
cmdHsQuaylai.Enabled = True
If Not (DHoso.Recordset.EOF) Then nếu phải bản ghi cuối cùng thì di chuyển
tới bản ghi kế tiếp
DHoso.Recordset.MoveNext
Else
cmdHsKetiep.Enabled = False
End If
Nguyễn Phơng Giang

Kinh Doanh Hà Nội

23

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


Chơng trình Quản Lý Nhân Sự

TGHD: Thạc sỹ. Đoàn Hữu V ợng

End Sub
Private Sub cmdHsLuuhoso_Click()
Dim Newma
Newma = txtHsMaso.Text

gắn giá trị cho biến

Select Case BtClick
Case 1
With dHsnv.Recordset
.AddNew
.Fields("manv") = txtHsMaso.Text

gắn các giá trị cho các biến

.Fields("hoten") = txtHsHo.Text
.Fields("madv") = dbcboHsTenpb.Text
.Fields("tendv") = lblHsMapb.Caption
.Fields("macv") = dbcboHsTencv.Text
.Fields("Tencv") = lblHsMacv.Caption
.Fields("phai") = cboLlPhai.Text
.Fields("Dtoc") = Cbolldantoc.Text
.Fields("Tgiao") = Cbolltongiao.Text
If txtLlNgsinh.Text <> "" Then
.Fields("Ngsinh") = txtLlNgsinh.Text
End If
.Fields("Ngquan") = CboNgquan.Text
.Fields("Qgia") = CboQuoctich.Text
.Fields("Noisinh") = txtLlNoisinh.Text
.Fields("Dchi") = txtLlDchi.Text

.Fields("Dthoai") = txtLlDthoai.Text
.Fields("SoCMND") = txtLlSoCMND.Text
.Fields("noicap") = cbonoicap.Text
If txtLlNgaycap.Text <> "" Then
Nguyễn Phơng Giang

Kinh Doanh Hà Nội

24

Lớp Tin 4 Tin học Quản Lý
ĐH Quản Lý và


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

TGHD: Th¹c sü. §oµn H÷u V îng

.Fields("Ngaycap") = txtLlNgaycap.Text
End If
.Fields("TDhocvan") = cboLlHocvan.Text
.Fields("NNChmon") = cboLlChmon.Text
.Fields("Ngngu") = cboLlNgngu.Text
.Fields("vochong") = cboLlVochong.Text
.Fields("con") = txtLlcon.Text
End With
With DHdld.Recordset
.AddNew
.Fields("manv") = txtHsMaso.Text
.Fields("SoHD") = txtHdld.Text

.Fields("LoaiHD") = dbcboHsLoaiHD.Text
If txtHsNgaybd.Text <> "" Then
.Fields("ngaybd") = txtHsNgaybd.Text
End If
If txtHsNgayhd.Text <> "" Then
.Fields("NgayHD") = txtHsNgayhd.Text
End If
If txtHsNgayxl.Text <> "" Then
.Fields("Ngayxl") = txtHsNgayxl.Text
End If
.Fields("Bacluong") = dbcboHsLuongcb.Text
.Fields("Mucluong") = lblHsMalcb.Caption
.Fields("Mucbhyt") = txtHsBhyt.Text
.Fields("Mucbhxh") = txtHsBhxh.Text
.Fields("Sobhyt") = txtHsMabhyt.Text
.Fields("Sobhxh") = txtHsMabhxh.Text
.Fields("LuongTl") = txtHsLuong.Text
NguyÔn Ph¬ng Giang

Kinh Doanh Hµ Néi

25

Líp Tin 4 Tin häc Qu¶n Lý
§H Qu¶n Lý vµ