Thống kờ chi tiết theo phũng ban của từng đơn vị cụng ty

Một phần của tài liệu Ứng dụng tin học trong công tác quản lý nhân sự tại tổng công ty xăng dầu Việt Nam và các công ty thành viên (Trang 108 - 130)

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

● Danh sỏch nhõn viờn tăng trong năm

● Thống kờ lao động nữ

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

● Sơ yếu lý lịch của một cỏn bộ

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

● Ngoài ra cũn 1 số bỏo cỏo khỏc: Danh sỏch nhõn viờn giảm trong năm, Danh sỏch cỏn bộ là bộ đội – cụng an chuyển ngành, Danh sỏch cỏn bộ là thương binh, Bỏo cỏo khen thưởng, Bỏo cỏo kỷ luật, Danh sỏch nhõn viờn.

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

KẾT LUẬN

Qua quỏ trỡnh nghiờn cứu đề tài, phõn tớch, thiết kế và xõy dựng chương trỡnh “Quản lý nhõn sự Petrolimex”. Chương trỡnh đó đạt được cỏc kết quả sau:

● Đỏp ứng được yờu cầu thu thập, lưu trữ những thụng tin về hồ sơ cỏn bộ ● Đỏp ứng được cỏc yờu cầu nghiệp vụ đề ra: lập mới hồ sơ, chuyển giao hồ sơ, chỉnh sửa hồ sơ, bỏo cỏo nhõn sự..

● Chương trỡnh cú giao diện dễ nhỡn, rừ ràng và dễ thao tỏc.

● Chương trỡnh cho phộp dễ dàng tỡm kiếm hồ sơ nhõn sự theo nhiều điều kiện lọc tỡm : mó cỏn bộ, dõn tộc, tụn giỏo, cụng ty, phũng ban, đơn vị, họ tờn, quờ quỏn, nơi sinh.

● Chương trỡnh cho phộp dễ dàng cập nhật cỏc danh mục từ điển hệ thống, hồ sơ nhõn sự, quản lý người sử dụng, truy cập một số tiện ớch nhỏ khỏ hữu dụng.

● Chương trỡnh cho phộp in cỏc bỏo cỏo cơ bản : Sơ yếu lý lịch, thống kờ lao động theo nhúm( lao động trong danh sỏch và lao động ngoài danh sỏch) theo từng phũng ban; thống kờ lao động là Đảng viờn, là nữ, là bộ đội – cụng an chuyển ngành.., thống kờ lao động tăng, giảm trong năm. Tuy nhiờn, do thời gian thực tập tốt nghiệp và nghiờn cứu đề tài cú hạn và trỡnh độ bản thõn cũn nhiều hạn chế nờn chương trỡnh khụng thể trỏnh khỏi những thiếu xút. Trong thời gian tới, định phỏt triển của chương trỡnh như sau:

● Tớch hợp thờm chức năng đồng bộ hoỏ cơ sở dữ liệu.

- Chương trỡnh khụng sử dụng cơ sở dữ liệu dựng chung, mỗi đơn vị quản lý cơ sở dữ liệu riờng thống nhất về cấu trỳc tệp. Dữ liệu về 1 cỏn bộ - viờn chức cú thể truyền qua hệ thống mạng giữa Tổng cụng ty và cỏc cụng ty thành viờn. Như vậy mụ hỡnh quản lý sẽ là: Tổng cụng ty cú

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

cơ sở dữ liệu về tất cả cỏc cụng ty thành viờn, cỏc cụng ty thành viờn quản lý cơ sơ dữ liệu của riờng mỡnh. Khi cú hồ sơ mới hay cú sự thuyờn chuyển cỏn bộ thỡ chức năng này cho phộp khụng cần cập nhật lại hồ sơ mà chỉ cần chỉnh sủa.

- Sử dụng phương phỏp đồng bộ hoỏ bằng cỏch xuất dữ liệu ra tệp *.XML. Nộn lại và gửi qua hệ thống mạng. Chương trỡnh cho phộp nhận ra file trờn giải nộn và cập nhật vào cơ sở dữ liệu.

- Sử dụng phương phỏp này sẽ khụng tốn chi phớ so với giải phỏp đồng bộ cơ sở dữ liệu bằng cỏch tổ chức cơ sở dữ liệu trờn mỏy chủ kộo theo đú là cỏc yờu cầu kỹ thuật mạng…

● Phõn quyền chi tiết hơn: Thờm 2 quyền sử dụng mới chương trỡnh là: “ Xem hồ sơ đơn vị” và “ Xem hồ sơ tất cả cỏc đơn vị”. (Hiện tại chương trỡnh cú 4 quyền là : Toàn quyền, Toàn quyền đơn vị, Cập nhật chung, Cập nhật đơn vị).

● Hoàn thiện thờm một số bỏo cỏo tổng hợp : bỏo cỏo thống kờ chất lượng lao động, bỏo cỏo tổng hợp lao động theo số cỏn bộ nữ, số Đảng viờn, trỡnh độ chuyờn mụn… chi tiết theo phũng ban – đơn vị….

Trờn đõy là những gỡ đạt được đề tài và những đề xuất phỏt triển chương trỡnh trong thời gian tới. Em rất mong được sự hướng dẫn, chỉ bảo của cỏc thầy, cỏc cụ và tất cả cỏc bạn để đề tài cú thể ứng dụng tốt hơn nữa trong thực tế.

Cuối cựng, em xin được cảm ơn thầy giỏo hướng dẫn - KS. Bựi Thế Ngũ, cỏn bộ Phạm Vũ Hoàng – chuyờn viờn Phũng tin học I – Cụng ty Cổ phần tin học viễn thụng Petrolimex cựng toàn thể cỏc anh chị trong cụng ty đó tận tỡnh hướng dẫn, giỳp đỡ em trong quỏ trỡnh nghiờn cứu và thực hiện đề tài.

Em xin chõn thành cảm ơn!

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

DANH MỤC TÀI LIỆU THAM KHẢO TIẾNG VIỆT

1.TS Trương Văn Tỳ – TS Trần Thị Song Minh (2000),” Giỏo trỡnh Hệ thống thụng tin quản lý”, tr99-194, NXB Thống Kờ, Hà Nội.

2.ThS Trần Cụng Uẩn (2005), “ Giỏo trỡnh Cơ sở dữ liệu 1”, tr141- 145, NXB Thống Kờ, Hà Nội/

3.KS Đinh Xuõn Lõm (2004), “ Những bài thực hành cơ sở dữ liệu Visual Basic Căn Bản” , NXB Thống Kờ, Hà Nội.

4.Nguyễn Thị Ngọc Mai (2002), “ Microsoft VisualBasic 6.0 và lập trỡnh cơ sở dữ liệu” , NXB Thống Kờ, Hà Nội.

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

PHỤ LỤC MỘT SỐ THUẬT TOÁN SỬ DỤNG

► Thuật toỏn xoỏ 1 bản ghi

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

► Thuật toỏn đăng nhập

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

► Thuật toỏn thờm mới dữ liệu

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

CODE CHƯƠNG TRèNH

► Module kết nối

Public ChonCongTy, ChonPB, ChonCD As String ' Khai bao bien tuy chon de goi form

Public Chon_Thuong_Binh As String ' Truyen gia tri vao luoi LLVT Hoac GDXH

Public ChonChucDanh_QTCT As String Public Chon_Ngach_Luong As String Public temp_CbCNV As String

Public DonViUser, TenUser, QuyenUser As String

Public MaPhongBan1 As String ' Tham So cho cau lenh SQL o form chonphongban

Public MaChucDanh1 As String ' Tham So cho cau lenh SQL o form chonChucDanh

Public CN As New ADODB.Connection

Public Ma_So As String ' Bien su dung trong thu tuc kiem tra trung ma o form CBCNV

Public NgayDangNhap, NgayThoat As String ' Bien ngay gio trong nhat ky ‘

Public Sub open_mdb() ' ket noi voi csdl Dim sql As String

Dim db_name As String Dim text As String

db_name = App.Path & "\QLNSPetro.mdb"

text = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & db_name & ""

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

CN.Open text End Sub ‘

Public Function KiemTraNgay(strDate As String) As String ' Kiem tra du lieu kieu ngay thang

Dim tp As Integer Dim strTemp As String tp = 3

If IsNumeric(Left(strDate, 1)) Then ' if 1 If IsNumeric(Mid(strDate, 2, 1)) Then ' if 2 If Left(strDate, 2) <= 31 Then ' if 3 MaSK1: If Mid(strDate, tp, 1) = "/" Then ' if 4 If IsNumeric(Mid(strDate, tp + 1, 1)) Then ' if 5 If IsNumeric(Mid(strDate, tp + 2, 1)) Then ' if 6 If Mid(strDate, tp + 1, 2) <= 12 Then ' if 7 If Mid(strDate, tp + 3, 1) = "/" Then ' if 8 strTemp = Left(strDate, tp + 3) ' if 9 If IsDate(strDate) Then ' if 10 KiemTraNgay = strTemp & Format(strDate, "yyyy")

Else 'else 10 GoTo MSGDATE End If 'end if 10 End If 'end if 9 Else 'else 8 GoTo MSGDATE

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

End If 'end if 8 Else 'else 7 If Mid(strDate, tp + 2, 1) = "/" Then ' if 11 strTemp = Left(strDate, tp + 2)

If IsDate(strDate) Then ' if 12 KiemTraNgay = strTemp & Format(strDate, "yyyy") Else 'else 12 GoTo MSGDATE End If 'end if 12 End If End If 'end if 7 Else 'else 6 GoTo MSGDATE End If 'end if 6 Else 'else 5 GoTo MSGDATE End If 'end if 5 Else 'else 4 GoTo MSGDATE End If 'end if 4 Else 'else 3

If Mid(strDate, 2, 1) = "/" Then 'if 13 tp = 2

GoTo MaSK1

Else 'else 13

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

GoTo MSGDATE End If 'end if 3 End If 'end if 2 Else 'else 1 MSGDATE: KiemTraNgay = "1" End If 'end if 1 End Function

► Form Từ điển - Ngoại Ngữ

Option Explicit ‘

Private chedo As String ' Khai bao bien : che do them, sua hay xoa Private rs As New ADODB.Recordset

Private Sub cmdLuu_Click() If chedo <> "Sua" Then

chedo = "Luu" ' Neu o che do them moi thi cho luu End If

Luu_Du_Lieu End Sub ‘

Private Sub cmdMoi_Click() chedo = "moi"

Un_Lock_Text khoitao

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

txtma.SetFocus End Sub

Private Sub cmdSua_Click() chedo = "Sua" Un_Lock_Text txtma.Enabled = False txtten.SetFocus End Sub ‘

Private Sub cmdThoi_Click() khoitao

Lock_Text End Sub ‘

Private Sub cmdXoa_Click() Xoa_Du_Lieu

End Sub ‘

Private Sub Form_Load() Dim sql As String

khoitao ' gan trong cho cac textbox

Lock_Text ' Khoa textbox va 1 so comand button Display_Listview ' Hien thi Listview

End Sub

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

Private Sub Lock_Text() ' Khoa textbox va 1 so command button txtma.Enabled = False txtten.Enabled = False cmdMoi.Visible = True cmdSua.Visible = True cmdXoa.Visible = True cmdLuu.Visible = False cmdThoi.Visible = False chedo = "" End Sub ‘

Private Sub Un_Lock_Text() ' Mo khoa txtma.Enabled = True txtten.Enabled = True cmdMoi.Visible = False cmdSua.Visible = False cmdXoa.Visible = False cmdLuu.Visible = True cmdThoi.Visible = True End Sub ‘

Private Sub LvItem_ItemClick(ByVal Item As MSComctlLib.ListItem) ' Thu tuc click len ma dan toc

txtma = Item.text

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

txtten = Item.SubItems(1) End Sub

Private Sub Display_Listview() ' Hien thi du lieu Dim sql As String

Dim rs As New ADODB.Recordset Dim mitem As ListItem

lvItem.ListItems.Clear

sql = "select * from Ngoai_Ngu order by MaNgoaiNgu asc" rs.Open sql, CN, adOpenKeyset, adLockPessimistic

If rs.EOF = False Then While Not rs.EOF

Set mitem = lvItem.ListItems.Add(, , rs!MaNgoaiNgu) mitem.SubItems(1) = rs!TenNgoaiNgu

rs.MoveNext Wend

End If

Frame.Caption = str(rs.RecordCount) & " ngoại ngữ" End Sub

Private Sub txtma_GotFocus() txtma.BackColor = &HC0C0FF End Sub

Private Sub txtma_KeyPress(KeyAscii As Integer)

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

If KeyAscii = 13 Then txtten.SetFocus

End If End Sub ‘

Private Sub txtma_LostFocus() txtma = UCase(Trim(txtma.text)) txtma.BackColor = &HC0FFFF End Sub

Private Sub txtten_GotFocus() txtten.BackColor = &HC0C0FF End Sub

Private Sub txtten_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

cmdLuu.SetFocus End If

End Sub ‘

Private Sub txtten_LostFocus() txtten = Trim(txtten)

txtten.BackColor = &HFFFFFF End Sub

Private Sub khoitao()

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

txtma.text = "" txtten.text = "" End Sub

Private Sub Xoa_Du_Lieu() ' Thu tuc xoa du lieu Dim str As String

Dim reponse As Integer If Trim(txtma) = "" Then Exit Sub

End If

reponse = MsgBox(" Bạn có chắc chắn xoá ngoại ngữ này không ?", vbYesNo + vbQuestion, "Thông Báo ")

If reponse = vbNo Then Exit Sub

Else

str = "delete from Ngoai_Ngu where MaNgoaiNgu='" & Trim(txtma) & " ' " CN.Execute (str) End If khoitao Lock_Text Display_Listview End Sub ‘

Private Sub Luu_Du_Lieu()

Dim rs1 As New ADODB.Recordset

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

Dim str As String

If KiemTra = False Then Exit Sub

End If

str = "select * from Ngoai_Ngu where MaNgoaiNgu='" & Trim(txtma) & "'" rs1.Open str, CN, adOpenKeyset, adLockOptimistic, adCmdText

If rs1.EOF = True Then rs1.AddNew rs1!MaNgoaiNgu = txtma rs1!TenNgoaiNgu = txtten rs1.Update rs1.Close Else

If chedo = "Luu" Then

MsgBox " Mã ngoại ngữ [ " & txtma & " ] đã tồn tại, vui lòng kiểm tra lại", vbOKOnly + vbExclamation, "Thông Báo"

Me.MousePointer = 0 Exit Sub

End If

str = "update Ngoai_Ngu set TenNgoaiNgu='" & Trim(txtten) & "' where MaNgoaiNgu='" & Trim(txtma) & "'"

CN.Execute (str) End If

Lock_Text

Display_Listview

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

cmdMoi.SetFocus Me.MousePointer = 0 End Sub

Private Function KiemTra() As Boolean ' Ham kiem tra dieu kien du lieu If Trim(txtma) = "" Or Trim(txtten) = "" Then

MsgBox " Chú ý : Phải nhập đầy đủ những dữ liệu cần thiết trớc khi lu ", vbOKOnly + vbExclamation, "Thông Báo"

KiemTra = False Exit Function End If

If Len(txtma.text) > 2 Then

MsgBox " Mã ngoại ngữ không quá 2 ký tự", vbOKOnly + vbInformation, "Lỗi"

KiemTra = False Exit Function End If

If Len(txtten.text) > 50 Then

MsgBox " Tên ngoại ngữ không quá 50 ký tự", vbOKOnly + vbInformation, "Lỗi" KiemTra = False Exit Function End If KiemTra = True End Function

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

Lớp Tin Học Kinh Tế 45B SVTH: Nguyễn Tiến Đức

Một phần của tài liệu Ứng dụng tin học trong công tác quản lý nhân sự tại tổng công ty xăng dầu Việt Nam và các công ty thành viên (Trang 108 - 130)

Tải bản đầy đủ (DOC)

(130 trang)
w