IV. MÔ HÌNH BIỂU DIỄN HỆ THỐNG THÔNG TIN
6. Thiết kế giải thuật
1.3 Khai báo bậc lương
Cho phép người dùng cập nhật bậc lương và hệ số theo quy định. Form khai báo bậc lương
2.Menu Quản lý hồ sơ
Đõy là menu chớnh của hệ thống, có các chức năng quản lý hồ sơ nhõn viên và các danh mục.
2.1.Chức năng quản lý hồ sơ nhõn viên
Khi chọn chức năng này thì Form hồ sơ nhõn viên sẽ hiện ra:
Form này cho phép người dùng cập nhật hồ sơ của nhõn viên mới và sửa, xoá với những bản ghi đang tồn tại trong hồ sơ
Nút lệnh “Thông tin khác” sẽ cho phép quản lý các thông tin khác của nhõn viên: quan hệ gia đình, quá trình học tập, quá trình công tác, khen thưởng, kỷ luật, quá trình lương. Khi nút lệnh này được tác động thì sẽ cho phép người dùng lựa chọn các thông tin khác của nhõn viên. Đó là các Form:
Người dùng có thể cập nhật hay sửa, xoá những thông tin về học tập của nhõn viên.
Khi người dùng nhấp nút “Liệt kê” thì một Form liệt kê quá trình học tập sẽ hiện ra cho phép người dùng xem quá trình học tập của nhõn viên.
Form Công tác
Cũng giống như Form Học tập thì Form Công tác cũng cho phép người dùng cập nhật, sửa, xoá thông tin về quá trình công tác của nhõn viên. Và khi người dùng nhấp nút “Liệt kê” thì Form liệt kê quá trình công tác sẽ hiện ra cho phép xem quá trình học tập của nhõn viên.
Form Quan hệ gia đình
Form Khen thưởng
Form khen thưởng cho phép cập nhật thông tin về khen thưởng của nhõn viên.
Form Kỷ luật
Form Quản lý lương
Form quản lý lương sẽ cho phép cập nhật những thông tin về tiền lương của nhõn viên.
2.2.Chức năng quản lý danh mục
Chức năng này cho phép quản lý các danh mục phòng ban, danh mục dõn tộc, danh mục tôn giáo, danh mục chức vụ.
Form Danh mục tôn giáo
2.3.Chức năng cập nhật thôi việc
Cho phép người dùng cập nhật nhõn viên thôi việc. Form cập nhật thôi việc
3.Menu Quản lý lịch công tác
Bao gồm các chức năng: cập nhật chi tiết công văn, quản lý các danh mục chi nhánh, danh mục công văn, danh mục công việc, quản lý giấy đi đường.
3.1.Chức năng quản lý chi tiờt cụng văn
Cho phép người dùng cập nhật và hiệu chỉnh dữ liệu về chi tiết công văn bao gồm thông tin về nhõn viên, chi nhánh và công việc trong công văn.
3.2.Chức năng quản lý các danh mục
Đõy là chức năng cho phép người dùng quản lý các danh mục: danh mục chi nhánh, danh mục công việc, danh mục công văn.
3.3.Chức năng quản lý giấy đi đường
Chức năng này cho phép người dùng quản lý giấy đi đường của từng nhân viên với những thông tin cụ thể về chuyến công tác bao gồm thêm, sửa, xoá dữ liệu.
4.Menu Tỡm kiếm
Menu này cung cấp khả năng tỡm kiếm với các tiêu chí rất linh hoạt kết hợp đầy đủ. Bao gồm tỡm kiếm thông tin về nhõn viên và tỡm kiếm thông tin về lịch công tác.
5.Menu Báo cáo
Chức năng này gồm các báo cáo: Báo cáo phũng ban, báo cáo danh sách lương, báo cáo về nhõn viên, báo cáo theo loại lao động, báo cáo thôi việc, báo cáo công tác.
Với báo cáo phòng ban thì khi bạn chọn chức năng này sẽ có một form báo cáo hiện ra cho phép bạn chọn cụ thể một phòng ban để ra báo cáo:
Sau khi người dùng lựa chọn đối tượng cụ thể để ra báo cáo thì báo cáo sẽ được hiện ra:
Báo cáo theo loại lao động cũng sẽ có một form báo cáo hiện ra để người dùng lựa chọn tiêu chí báo cáo:
Sau khi lựa chọn tiêu chí báo cáo thì báo cáo sẽ hiện ra. Ví dụ ta chọn hợp đồng dài hạn thì sẽ hiện báo cáo:
Báo cáo về nhõn viên sẽ cung cấp cho người dùng báo cáo về một nhõn viên cụ thể: về lý lịch, quá trình công tác, quá trình học tập, khen thưởng, kỷ luật, khen thưởng, quan hệ gia đình, quá trình lương.
Form báo cáo:
Người dùng có thể lựa chọn báo cáo về một nhõn viên cụ thể và loại báo cáo mà mình mong muốn.
Ví dụ như báo cáo về lý lịch của nhõn viên với mã là KT-NV001 và tên là Nguyễn Thuận Anh.
Báo cáo thôi việc sẽ cung cấp thông tin tổng hợp về nhân viên thôi đã thôi việc.
Báo cáo công tác sẽ cung cấp thông tin tổng hợp về lịch công tác. Khi bạn chọn chức năng này thì form báo cáo sẽ hiện ra cho phép người dùng chọn tiêu chí báo cáo.
Nếu người dùng chọn báo cáo tổng hợp chi phí công tác thì báo cáo này sẽ hiện ra:
Nếu người dùng chọn báo cáo tổng hợp chi nhánh thì báo cáo này sẽ hiện ra. Đây là báo cáo tổng hợp các chi nhánh trong một công văn cử nhân viên đi công tác.
6.Menu Trợ giúp
Menu này sẽ cung cấp chức năng trợ giúp cho người dùng. Khi cần trợ giúp về việc cập nhật dữ liệu hay những thông tin trong chương trình người dùng có thể chọn chức năng này. Bao gồm phần trợ giúp và thông tin về chương trình.
KẾT LUẬN
Việc ứng dụng phần mềm quản lý vào trong hoạt động của các doanh nghiệp và tổ chức đã mang lại những hiệu quả to lớn. Điều này đã được thực tế chứng minh. Và cũng chớnh vì thế mà ngày càng có nhiều doanh nghiệp và tổ chức tiến hành xõy dựng và ứng dụng hệ thống thông tin quản lý vào tổ chức doanh nghiệp mình để hỗ trợ cho hoạt động quản trị.
Trong luận văn này, với để tài “ Xây dựng hệ thống thông tin quản lý hồ
sơ cán bộ và lịch công tác tại Quỹ tín dụng nhân dân Trung ương” em đã:
Nghiên cứu quy trình xử lý thông tin của Quỹ. Xõy dựng mô hình xử lý mới.
Xõy dựng cơ sở dữ liệu.
Xõy dựng chương trình phần mềm.
Túm lại trong luận văn này em đã đạt được kết quả sau đõy:
Chương trình có bảo mật dữ liệu, chỉ người có thẩm quyền mới có thể đăng nhập và sử dụng chương trình.
Giao diện chương trình thõn thiện với người dùng và dễ sử dụng. Dữ liệu nhập vào được kiểm tra chặt chẽ.
Tự động điền các tham số chương trình.
Việc tỡm kiếm thông tin về nhõn viên nhanh chóng, chớnh xác. Một lần nữa, em xin cảm ơn các thầy cô giáo, đặc biệt là sự giúp đỡ tận tình của thầy PGS.TS Hàn Viết thuận đã tận tình chỉ bảo để em hoàn thành luận văn tốt nghiệp của mình. Em cũng gửi lời cảm ơn chõn thành tới các anh chị trong phòng Tin học của Quỹ tín dụng nhõn dõn Trung ương đã tạo mọi điều kiện thuận lợi để em hoàn thành luận văn này.
DANH SÁCH TÀI LIỆU THAM KHẢO
1.TS Trương Văn Tú – TS Trần Thị Song Minh Giáo trình hệ thống thông tin quản lý NXB Thống Kê, Hà Nội, 2000
2. Ths Trần Công Uẩn
Giáo trình cơ sở dữ liệu
NXB Thống kê, Hà Nội, 2003 3. Nguyễn Văn Vỵ
Phõn tích và thiết kế các hệ thống thông tin hiện đại NXB Thống kê, Hà Nội, 2003
4. Báo cáo thường niên 2005-2006 Quỹ tín dụng nhõn dõn Trung uơng. 5. PGS.TS Hàn Viết Thuận
Bài giảng Công nghệ phần mềm. 6.Nguyễn Văn Ba
Phõn tích thiết kế hệ thống thông tin – Các phương pháp có cấu trúc NXB Đại học quốc gia, 2004
PHỤ LỤC
MỘT SỐ MODULES TRONG CHƯƠNG TRÌNH
Mụlules thêm người dùng
Private Sub cmdthoat_Click() Unload Me
End Sub
Private Sub cmdthuchien_Click() Dim StrSQl As String
Dim rs As New ADODB.Recordset Set rs = New ADODB.Recordset
StrSQl = "select * from nguoidung where user ='" & Text2(0).Text & "'" rs.Open StrSQl, CN
If rs.EOF = False Then
MsgBox "Người dùng này đã có trong danh sách", vbOKOnly, "Thông báo" Text2(0).Text = ""
Text2(2).Text = "" Text2(1).Text = "" Exit Sub
End If
If Text2(1).Text <> Text2(2).Text Then
MsgBox "Mat khau khong trung nhau, Hay nhap lai!", vbOKOnly, "THONG BAO"
Text2(2).Text = "" Text2(1).Text = "" Select Case KeyAscii Case 13 Text2(1).SetFocus Text2(1).SelStart = 0 Text2(1).SelLength = Len(Text2(1).Text) End Select Exit Sub Else
Set rs = New ADODB.Recordset
StrSQl = "select * from nguoidung " ' rscust.Source = StrSQL
rs.Open StrSQl, CN, adOpenKeyset, adLockOptimistic, adCmdText rs.AddNew rs.Fields("user") = Text2(0).Text rs.Fields("Pass") = Text2(1).Text rs.Update rs.Close
MsgBox "Ban da thanh cong", vbOKOnly, "Thong bao" Unload Me
End If 'End If 'Loop End Sub
Private Sub Form_Load() Call CenterForm(frmAddUser) KetNoi
End Sub
Private Sub Text2_GotFocus(Index As Integer) Select Case Index
Case 0 Text2(0).BackColor = &HC0E0FF Case 1 Text2(1).BackColor = &HC0E0FF Case 2 Text2(2).BackColor = &HC0E0FF End Select End Sub
Private Sub Text2_KeyPress(Index As Integer, KeyAscii As Integer) Select Case Index
Case 0
Select Case KeyAscii Case 13
Text2(1).SetFocus End Select
Select Case KeyAscii Case 13
Text2(2).SetFocus End Select
Case 2
Select Case KeyAscii Case 13
cmdthuchien.SetFocus End Select
End Select End Sub
Private Sub Text2_LostFocus(Index As Integer) Select Case Index
Case 0 Text2(0).BackColor = &HFFFFFF Case 1 Text2(1).BackColor = &HFFFFFF Case 2 Text2(2).BackColor = &HFFFFFF End Select End Sub
Mụdules form Công tác
Private Sub cmdLK_Click() frmLKCtac.Show
End Sub
Private Sub cmdThem_Click() On Error Resume Next
Text4(0).Enabled = True Text4(1).Enabled = True Text4(2).Enabled = True Text4(3).Enabled = True Text4(4).Enabled = True Text4(5).Enabled = True Text4(6).Enabled = True 'Text4(0).Text = "" 'Text4(1).Text = ""
'Text4(2).Text = "" 'Text4(3).Text = "" 'Text4(4).Text = "" 'Text4(5).Text = "" 'Text4(6).Text = "" Text4(0).SetFocus Adodc2.Recordset.AddNew End Sub
Private Sub cmdthoat_Click() Unload Me
End Sub
Private Sub CmdXoa_Click() On Error Resume Next
Dim str As String
str = MsgBox("Bạn có chắc chắn muốn xoá không", vbYesNo, "Thông báo") If str = vbNo Then Exit Sub Else Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext If Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast End If End If End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer) Select Case KeyAscii
Case 13
Combo2.SetFocus End Select
End Sub
Private Sub Combo2_KeyPress(KeyAscii As Integer) Select Case KeyAscii
End Select End Sub
Private Sub Combo3_KeyPress(KeyAscii As Integer) Select Case KeyAscii
Case 13
Text3(2).SetFocus End Select
End Sub
Private Sub Form_Load() Call CenterForm(frmQTCtac)
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Quanlynhansu.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from nhanvien where MaNV='" & frmNhanvien.Text2(0).Text & "' "
Adodc1.Refresh
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Quanlynhansu.mdb;Persist Security Info=False"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from QTCtac where Manv='" & frmNhanvien.Text2(0).Text & "'"
Adodc2.Refresh
'Adodc2.Recordset.Close
'frmNhanvien.Adodc1.Recordset.AddNew ' Combo1.AddItem " Chân tay"
'Combo1.AddItem "Trí óc"
'Combo2.AddItem "Kế toán viên" 'Combo2.AddItem "Kinh doanh" 'Combo2.AddItem "Tín dụng" Adodc1.Visible = False Text5.Visible = False Text4(0).Enabled = False Text4(1).Enabled = False Text4(2).Enabled = False Text4(3).Enabled = False Text4(4).Enabled = False Text4(5).Enabled = False Text4(6).Enabled = False
Text1.Visible = False End Sub
Private Sub Text2_Change(Index As Integer) Select Case Index
Case 1
'Set Rs = New ADODB.Recordset Dim DB As DAO.Database
Dim Rst As DAO.Recordset Dim sql1 As String
If Text2(1).Text <> "" Then
Set DB = OpenDatabase(App.Path & "\quanlynhansu.MDB")
sql1 = "select * from ChucVu where tencv='" & Text2(1).Text & "'" Set Rst = DB.OpenRecordset(sql1)
'Rs.Open sql1, CN, adOpenKeyset, adLockOptimistic, adCmdText If Rst.RecordCount > 0 Then If Rst.Fields("macv") <> "" Then Text2(0).Text = Rst.Fields("macv") ' End If End If Else Text2(0).Text = "" End If ' Rs.Close ' Set Rs = Nothing End Select End Sub
Private Sub Text2_GotFocus(Index As Integer) Select Case Index
Case 0 Text2(0).BackColor = &HC0E0FF Case 1 Text2(1).BackColor = &HC0E0FF End Select End Sub
Private Sub Text2_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case KeyCode Case vbKeyF12 If Index = 0 Then frmchonchucvu.Show End If End Select End Sub
Private Sub Text2_KeyPress(Index As Integer, KeyAscii As Integer) Select Case Index
Case 0
Select Case KeyAscii Case 13
Text2(1).SetFocus End Select
Case 1
Select Case KeyAscii Case 13
Text3(2).SetFocus End Select
End Select End Sub
Private Sub Text2_LostFocus(Index As Integer) Select Case Index
Case 0 Text2(0).BackColor = &HFFFFFF Case 1 Text2(1).BackColor = &HFFFFFF End Select End Sub
Private Sub Text3_GotFocus(Index As Integer) Select Case Index
Case 0
Case 1 Text3(1).BackColor = &HC0E0FF Case 2 Text3(2).BackColor = &HC0E0FF End Select End Sub
Private Sub Text3_KeyPress(Index As Integer, KeyAscii As Integer) Select Case Index
Case 0
Select Case KeyAscii Case 13
Text3(1).SetFocus End Select
Case 1
Select Case KeyAscii Case 13
Combo1.SetFocus End Select
Case 2
Select Case KeyAscii Case 13
cmdThem.SetFocus End Select
End Select End Sub
Private Sub Text3_LostFocus(Index As Integer) Dim str As String
KetNoi
Select Case Index Case 0 Text3(0).BackColor = &HFFFFFF Case 1 Text3(1).BackColor = &HFFFFFF Case 2 Text3(2).BackColor = &HFFFFFF 'Adodc1.Recordset.Update
If Trim(Text3(0)) = "" Or Trim(Text3(1)) = "" Or Trim(Text3(2)) = "" Or Combo1.Text = "" Or Combo2.Text = "" Or Trim(Text2(0)) = "" Or Trim(Text2(1)) = "" Then
str = MsgBox(" Bạn chưa nhập đầy đủ dữ liệu trước khi lưu. Bạn có muốn nhập tiếp không?", vbYesNo, "Thông báo")
If str = vbYes Then Text3(0).SetFocus Else
'Text5.Text = Text1.Text
str = "update Nhanvien set NgayBD='" & Trim(Text3(0).Text) & "',SoQDinh='" & Trim(Text3(1).Text) & "',LoaiLD='" & Combo1.Text & "',CongViec='" & Combo2.Text & "',ChucVu='" & Text2(1).Text & "',KiemChuc='" & Trim(Text3(2).Text) & "' where MaNV='" & Trim(Text1.Text) & "'"
CN.Execute (str)
'Adodc2.Recordset.Update End If
Else
str = "update Nhanvien set NgayBD='" & Trim(Text3(0).Text) & "',SoQDinh='" & Trim(Text3(1).Text) & "',LoaiLD='" & Combo1.Text & "',CongViec='" & Combo2.Text & "',ChucVu='" & Combo3.Text & "',KiemChuc='" & Trim(Text3(2).Text) & "' where MaNV='" & Trim(Text1.Text) & "'"
CN.Execute (str) 'Text5.Text = Text1.Text 'Adodc2.Recordset.Update End If End Select End Sub
Private Sub Text4_GotFocus(Index As Integer) Select Case Index
Case 0 Text4(0).BackColor = &HC0E0FF Case 1 Text4(1).BackColor = &HC0E0FF Case 2 Text4(2).BackColor = &HC0E0FF Case 3 Text4(3).BackColor = &HC0E0FF Case 4 Text4(4).BackColor = &HC0E0FF Case 5
Text4(5).BackColor = &HC0E0FF End Select
End Sub
Private Sub Text4_KeyPress(Index As Integer, KeyAscii As Integer) Dim str As String
Select Case Index Case 0
Select Case KeyAscii Case 13
Text4(1).SetFocus End Select
Case 1
Select Case KeyAscii Case 13
Text4(2).SetFocus End Select
Case 2
Select Case KeyAscii Case 13
Text4(3).SetFocus End Select
Case 3
Select Case KeyAscii Case 13
Text4(4).SetFocus End Select
Case 4
Select Case KeyAscii Case 13
Text4(5).SetFocus End Select
Case 5
Select Case KeyAscii Case 13
Text4(6).SetFocus End Select
Case 6
cmdThem.SetFocus End Select
End Select End Sub
Private Sub Text4_LostFocus(Index As Integer) On Error Resume Next
Dim str As String Select Case Index Case 0
Text4(0).BackColor = &HFFFFFF If checkdate(Text4(0)) = "1" Then
MsgBox "chó ý: Dữ liệu kiểu ngày tháng, vui lòng kiểm tra lại", vbOKOnly + vbExclamation, "Thông báo"
Text4(0).SetFocus Exit Sub End If Case 1 Text4(1).BackColor = &HFFFFFF If checkdate(Text4(1)) = "1" Then
MsgBox "chó ý: Dữ liệu kiểu ngày tháng, vui lòng kiểm tra lại", vbOKOnly + vbExclamation, "Thông báo"
Text4(1).SetFocus Exit Sub End If Case 2 Text4(2).BackColor = &HFFFFFF Case 3 Text4(3).BackColor = &HFFFFFF Case 4 Text4(4).BackColor = &HFFFFFF Case 5 Text4(5).BackColor = &HFFFFFF Case 6 Text4(6).BackColor = &HFFFFFF
If Trim(Text4(0)) = "" Or Trim(Text4(1)) = "" Or Trim(Text4(2)) = "" Or Trim(Text4(3)) = "" Or Trim(Text4(4)) = "" Or Trim(Text4(5)) = "" Or Trim(Text4(6)) = "" Then
str = MsgBox(" Bạn chưa nhập đầy đủ dữ liệu trước khi lưu. Bạn có muốn nhập tiếp không?", vbYesNo, "Thông báo")
If str = vbYes Then Text4(0).SetFocus Else
Text5.Text = Text1
'sql = "update QTCtac set NgayBD='" & Trim(Text4(0).Text) & "',SoQDinh='" & Trim(Text4(1).Text) & "',LoaiLD='" & Trim(Text4(2).Text) & "',CongViec='" & Trim(Text4(3).Text) & "',ChucVu='" & Trim(Text4(4).Text) & "',KiemChuc='" & Trim(Text4(5).Text) & "',Manv='" & Trim(Text1.Text) & "'" 'CN.Execute (str)
Adodc2.Recordset.Update End If
End If
Text5.Text = Text1
'sql = "update QTCtac set NgayBD='" & Trim(Text4(0).Text) & "',SoQDinh='" & Trim(Text4(1).Text) & "',LoaiLD='" & Trim(Text4(2).Text) & "',CongViec='" & Trim(Text4(3).Text) & "',ChucVu='" & Trim(Text4(4).Text) & "',KiemChuc='" & Trim(Text4(5).Text) & "',Manv='" & Trim(Text1.Text) & "'" 'CN.Execute (str)
Adodc2.Recordset.Update End Select
LỜI CẢM ƠN
Trong suốt thời gian học tập và rốn luyện tại trường Đại học Kinh tế quốc dõn em đã được sự hướng dẫn chỉ bảo tận tình của các thầy cô. Em xin bày tỏ lòng biết ơn sõu sắc tới các thầy cô giáo nói chung và đặc biệt là các thầy cô trong khoa Tin học kinh tế đã tận tình giảng dạy và tạo mọi điều kiện cho em trong suốt thời gian học tập tại trưũng.
Và em xin gửi lời cảm ơn chõn thành tới thầy giáo PGS.TS. Hàn Viết Thuận, thầy đã tận tình chỉ bảo, hướng dẫn, giúp đỡ em trong suốt quá trình thực tập để em hoàn thành luận văn tốt nghiệp này.
Cuối cùng em xin gửi lời cảm ơn tới anh Nguyễn Đình Sơn và các anh chị thuộc phòng Tin học của Quỹ tín dụng nhõn dõn Trung ương đã nhiệt tình hướng dẫn, tạo điều kiện thuận lợi để em hoàn thành đề tài nghiên cứu của mình.
MỤC LỤC
LỜI NểI ĐẦU...1
CHƯƠNG I...3
GIỚI THIỆU CHUNG VỀ...3
QUỸ TÍN DỤNG NHÂN DÂN TRUNG ƯƠNG...3
I.GIỚI THIỆU CHUNG VỀ QUỸ TÍN DỤNG NHÂN DÂN TRUNG ƯƠNG...3
1.Chức năng nhiệm vụ của Quỹ tín dụng nhân dân Trung ương (QTDTW)...3