● Danh sỏch nhõn viờn tăng trong năm
● 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.
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ú
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 tồ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.
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.
PHỤ LỤC MỘT SỐ THUẬT TOÁN SỬ DỤNG
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"
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
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
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
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
„
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
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
„
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
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 xố 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 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
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 l-u ", 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