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
