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

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.... MỤC ĐÍCH CỦA ĐỀ TÀI: Việc xây dựng chương trình quản lý nhân

Trang 1

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ú, đadạ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ếtcầ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ốitiế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ềucông ty phần mềm quan tâm giải quyết như phần mềm kế toán ACCNET củacô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ớicá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

Trang 2

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ềmdẻ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ầnmề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ầnmề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ếusó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ệnchương trình

Trang 3

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 độngtrong 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 lưu chung của thế giới hiện nay, phát triển không ngừng của nềnkinh 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ươngdiệ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ênkinh nghiệm và trực giác của người lãnh đạo và quản lý Nhưng ngày nay đứngtrướ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ươngphá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ângâ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 đượcnhiệ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ộ

Trang 4

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:

+ Xây dựng hệ thống chương trình lưu trữ, tra cứu nhanh các thông tinvớ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 theotừ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 choviệc quản lý và lưu trữ những thông tin về cán bộ, giúp cho việc tra cứu thôngtin một cách nhanh chóng và chính xác Chương trình cho phép lưu 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òngban

- 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ếtsứ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ôngthườ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ựchiệ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àiliệ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

Trang 5

Chương trình được thiết kế trên môi trường Visual Basic 6.0, một ngônngữ 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ầnmề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 íttố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ế eohẹp, phù hợp với nghiệp vụ công tác hồ sơ

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ậtvậ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áttriển các ứng dụng trong môi trường Windows một cách hoàn hảo Các phiênbản 1.0,2.0,… 6.0 lần lượt ra đời đã khiến Visual Basic trở nên mạnh và trôichả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 đốitượ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

Trang 6

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:

Trang 8

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

The linked image cannot be displayed The file may have been moved, renamed, or deleted Verify that the link points to the correct file and location.

Trang 9

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:

Trang 10

Trang 11

Danh mục tôn giáo:

Trang 12

Trang 13

Danh mục học vị:

Trang 14

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

Trang 15

Danh mục chuyên môn:

Trang 16

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 tintheo những tiêu chuẩn như Mã nhân viên, Tên…

Trang 17

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ếumuốn xem báo cáo nào thì nháy mục tương ứng:

Trang 18

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”

Trang 19

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

Trang 20

Private Sub mnuDmCm_Click()

Trang 21

Private Sub mnuQuatrinhct_Click()

rptLuong.Show ‘ Lệnh hiển thị report

Trang 22

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

Trang 24

tới bản ghi kế tiếp

Newma = txtHsMaso.Text ‘ gắn giá trị cho biến

Select Case BtClick

Trang 26

'Move cursor to update record

Findhsnv (oldMaso) ‘ thực hiện thủ tục tìm kiếm

Trang 30

End Sub

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 khichưa tới bản ghi cuối và chưa tìm thấy được

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

Private Function Findhsnv(maso As String) As Boolean

Found = False

dHsnv.Recordset.MoveFirst

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

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

Trang 31

Findhsnv = Found

End Function

Private Function Findhdld(maso As String) As Boolean

Found = False

DHdld.Recordset.MoveFirst

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

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

Private Sub cmdHsQtct_Click()

frmCongtac.txtManv.Text = (txtHsMaso.Text) ‘gắn giá trị cho các biến frmCongtac.txtHoten.Text = (txtHsHo.Text)

Trang 32

If Not (DHoso.Recordset.BOF) Then ‘ Nếu chưa phải là bản ghi đầu thì lùi vềbản ghi trước

Private Sub XoaDL(Tablename, Value As String)

Dim cdb As Database ‘ gắn các giá trị

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

txtLlManv.Enabled = False

txtLlHoten.Text = ""

txtLlHoten.Enabled = False

txtHsMaso.Text = ""

Trang 34

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

Trang 35

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 + """"

Trang 36

Set Mydb = OpenDatabase(DPban.DatabaseName)

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

Trang 38

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

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

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

Dim Mydb As Database

Set Mydb = OpenDatabase(DCongtac.DatabaseName)

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

Mydb.Execute St

Mydb.Close

Trang 39

Private Sub cmdSua_Click()

grdLietke.AllowUpdate = True ‘giá trị cho phép cập nhật

grdLietke.SetFocus

End Sub

Private Sub cmdThem_Click()

Trang 40

grdLietke.AllowUpdate = True

grdLietke.AllowArrows = True

grdLietke.SetFocus

End Sub

If MsgBox("Bạn có muốn xoá mẩu tin này không ?", vbYesNo, "Xoá DữLiệu", 0, 0) = vbYes Then

Devm.rsTB_ChuyenMon.Delete

End If

End SubPrivate Sub Form_Load() grdLietke.AllowAddNew = FalsegrdLietke.AllowUpdate = FalseEnd SubPrivate Sub grdLietke_AfterUpdate()grdLietke.AllowAddNew = False grdLietke.AllowUpdate = FalseEndSubPrivate Sub grdLietke_BeforeUpdate(Cancel As Integer)grdLietke.AllowAddNew = False grdLietke.AllowUpdate = FalseEndSubForm DMCV:Private Sub cmdDong_Click() Unload frmDmCvEndSubPrivate Sub cmdSua_Click()

Trang 41

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

Trang 42

Private Sub cmdSua_Click()

Trang 43

Devm.rsTB_DonVi.Delete

End If

End Sub

Tiêu đề	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
Tác giả	Nguyễn Phương Giang
Trường học	Đại học Quản Lý và Công Nghệ
Chuyên ngành	Quản lý nhân sự
Thể loại	Nghiên cứu chuyên đề
Năm xuất bản	2023
Thành phố	Hà Nội

Định dạng
Số trang	52
Dung lượng	127,55 KB