Mc tiêu ca giai on phân tích chi tit ụủ đạ ế

LI ỜỞ ĐẦU

2.2.1Mc tiêu ca giai on phân tích chi tit ụủ đạ ế

B. Phân tích, th it kH th ng thông tin ệố

2.2.1Mc tiêu ca giai on phân tích chi tit ụủ đạ ế

Kiểm tra 2.2.6 Lập phiếu liệt kê 2.2.2 Vào sổ giao nhận 2.2.3 Phân loại tài liệu 2.2.6 Lập phiếu kiểm soát, vào sổ 2.2.4 Lập phiếu liệt kê Cơ quan gửi hồ sơ

Phiếu chuyển hồ sơ Hồ sơ D1: Hồ sơ nhân sự D2: sổ giao nhận

Hình 3.7 sơ đồ DFD mức 1: nghiên cứu sử dụng – báo cáo

3.1 Kiểm tra 3.3 Báo cáo 3.2 Sao lưu hồ sơ-cung cấp tài liệu Người có thẩm quyền Người có yêu cầu D1: Hồ sơ nhân sự

Hồ sơ + Tài liệu Phiếu

3.3.3 Một số thuật toán sử dụng a. Thuật toán đăng nhập

Đếm = 0 Người dùng nhập thông tin Kiểm tra hợp lệ Đếm = đếm + 1 Đếm = 3

Không cho đăng nhập tiếp (thoát) Cho phép đăng nhập Kết thúc Đúng Sai Sai Đúng Hệ thống chính Bắt đầu

b. Thuật toán nhập dữ liệu Mở tệp dữ liệu Tạo một bản ghi trắng Sửa dữ liệu? Nhập tiếp? Nhập dữ liệu Đóng tệp Kết thúc có có Bắt đầu không không

c. Thuật toán xóa dữ liệu Chọn dữ liệu cần xóa Xóa bản ghi Kiểm tra dữ liệu? Hiện bản ghi cần xóa Xóa tiếp? Đóng tệp Kết thúc có không có không Bắt đầu

d. Thuật toán sửa dữ liệu Nhập mã dữ liệu cần sửa Sửa bản ghi Kiểm tra dữ liệu? Hiện bản ghi cần sửa Sửa tiếp Đóng tệp Kết thúc có không có không Bắt đầu

e. Thuật toán thêm mới dữ liệu Người dùng nhập dữ liệu Dữ liệu đúng, đủ? Trùng mã?

Thông báo lỗi

Cho phép lưu Kết thúc sai đúng Bắt đầu sai đúng

Website: http://www.docs.vn Email : lienhe@docs.vn Tel: 0918.775.368

Nhập điều kiện tìm kiếm

Hiện thông báo Kiểm tra dữ liệu? Hiện bản ghi cần tìm Tìm tiếp Đóng tệp có không có không Bắt đầu

Website: http://www.docs.vn Email : lienhe@docs.vn Tel: 0918.775.368

3.3.4 Thiết kế cơ sở dữ liệu a. Thiết kế các bảng

 Hợp đồng lao động

Tên trường Kiểu dữ liệu

Độ rộng Mô tả Kiểu khóa

Manv Text 5 Mã nhân viên

NgayHD Date/time Short date Ngày hợp đồng

SoHD Text 9 Số hợp đồng Khóa chính

LoaiHD Text 20 Loại hợp đồng

Ngaybd Date/time Short date Ngày bắt đầu

Ngayxl Date/time Short date Ngày xử lý

Bacluong Number Double Bậc lương

SoBHYT Text 9 Số bảo hiểm y tế (adsbygoogle = window.adsbygoogle || []).push({});

SoBHXH Text 9 Số bảo hiểm xã hội

LuongTL Number Long

interger Lương thực lĩnh

MucBHXH Number Byte Mức bảo hiểm xã

hội

MucBHYT Number Byte Mức bảo hiểm y tế

Tên trường Kiểu dữ liệu Độ rộng Mô tả Kiểu khóa

Mapb Text 4 Mã phòng ban

Manv Text 5 Mã nhân viên Khóa chính

Tennhanvien Text 30 Tên nhân viên

Nghenghiep Text 30 Nghề nghiệp

Quequan Text 50 Quê quán

Thuongtru Text 50 Thường trú

Gioitinh Yes/No Yes/No Giới tính

Vanhoa Text 10 Văn hóa

Ngoaingu Text 10 Ngoại ngữ

Tongiao Text 5 Tôn giáo

Ngaysinh Date/time Short date Ngày sinh

Dienthoai Text 11 Điện thoại

Dantoc Text 10 Dân tộc

 Phòng ban

Tên trường Kiểu dữ liệu Độ rộng Mô tả Kiểu khóa

Mapb Text 4 Mã phòng ban Khóa chính

Tenpb Text 50 Tên phòng ban

 Lý lịch

Tên trường Kiểu dữ liệu Độ rộng Mô tả Kiểu khóa

Mapb Text 4 Mã phòng

ban Khóa chính

Manv Text 5 Mã nhân viên Khóa ngoại lai

Daotao Memo Đào tạo (adsbygoogle = window.adsbygoogle || []).push({});

Khen Memo Khen

Kyluat Memo Kỷ luật

Chungchi Memo Chứng chỉ

Kinhnghiem Memo Kinh nghiệm

 Gia đình

Tên trường Kiểu dữ liệu Độ rộng Mô tả Kiểu khóa

Manv Text 5 Mã nhân viên Khóa chính

Quanhe Text 10 Quan hệ

Hoten Text 30 Họ tên

Ngaysinh Date/time Short date Ngày sinh

Thuongtru Text 50 Thường trú

Nghenghiep Text 50 Nghề nghiệp

Trinhdoct Text 50 Trình độ công

 Quá trình công tác

Tên trường Kiểu dữ liệu Độ rộng Mô tả Kiểu khóa

Manv Text 5 Mã nhân viên Khóa chính

Chucvu Text 50 Chức vụ

Luongcb Number duoble Lương cơ bản

Phongban Text 20 Phòng ban

NgayHL Date/time Short date Ngày

 Quá trình đào tạo

Tên trường Kiểu dữ liệu Độ rộng Mô tả Kiểu khóa

Manv Text 4 Mã nhân

viên Khóa chính

Hocvan Text 15 Học vấn

Chmon Text 50 Chuyên môn

Hedaotao Text 15 Hệ đào tạo

Tungay Date/time Short date Từ ngày

b. Kiến trúc chương trình

c. Thiết kế các giao diện và báo cáo (adsbygoogle = window.adsbygoogle || []).push({});

 Các form chức năng

• Form đăng nhập hệ thống

CHƯƠNG TRÌNH QUẢN LÝ NHÂN SỰ VIBank

Hệ thống Báo cáo Tìm kiếm Ngônngữ Giới thiệu

Đăngnhập

Thoát Quá trình công tác

Quá trình đào tạo Thành phần gia đình Hợp đồng lao động Hồ sơ nhân viên Thông tin Thông tin nhân viên Thành phần gia đình Đào tạo Công tác Tiếng Việt Tiếng Anh Tác giả phần mềm Tìm theo mã nhân viên Tìm theo tên nhân viên Tìm theo địa chỉ

 Các báo cáo

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ự VIBank”. Chương trình đã đạt được kết quả như 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 rõ ràng, dễ sử dụng và có những ngôn ngữ phù hợp với người sử dụng.

 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.

 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ự…

 Chương trình cho phép in các báo cáo cơ bản: thông tin nhân viên, báo cáo công tác,…

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, hướng phát triển của chương trình như sau:

 Tích hợp thêm chức năng đồng bộ hóa 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ề một cán bộ viên chức có thể truyền qua hệ thống mạng giữa chi nhánh và hội sở chính. Như vậy mô hình quản lý sẽ là: hội sở chính có cơ sở dữ liệu về tất cả các chi nhánh cũng như điểm giao dịch, các chi nhánh sẽ 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ộ hóa 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.  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ên đây là những gì đạt được của đề 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 TS. Trương Văn Tú, cán bộ Nguyễn Chí Ánh Hoạt-trưởng phòng phát triển đại lý Ngân hàng Vibank chi nhánh Quang Trung, Hà Nội cùng toàn thể các anh chị trong ngân hàng đã 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ý “, 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, 2 “, NXB Thống Kê, Hà Nội. (adsbygoogle = window.adsbygoogle || []).push({});

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

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

Một số code chương trình

 Form chính

Private Sub MDIForm_Load() tieng (True) Fchinh.mnhethong.Enabled = True Fchinh.mnb©«c.Enabled = False Fchinh.mntimkiem.Enabled = False Fchinh.mnthongtin.Enabled = False Fchinh.mngioithieu.Enabled = False Fchinh.mnngonngu.Enabled = False End Sub

Private Sub mnbccongtac_Click() rpcongtac.Show

End Sub

Private Sub mnbcdaotao_Click() rpdaotao.Show

End Sub

Private Sub mnbcgiadinh_Click() rpgiadinh.Show

End Sub

Private Sub mnbcnhanvien_Click() Rpnhanvien.Show

End Sub

Private Sub mncongtac_Click() congtac.Show

frmLogin.Show End Sub

Private Sub mndaotao_Click() Fdaotao.Show

End Sub

Private Sub mngiadinh_Click() Giadinh.Show

End Sub

Private Sub mnhoso_Click() Fhoso.Show

End Sub

Private Sub mnld_Click() fhopdong.Show

End Sub

Private Sub mnpm_Click() frmtacgia.Show

End Sub

Private Sub mnthoat_Click()

MsgBox "Hẹn gặp lạii", vbInformation, "Chao Ban" End

End Sub

Private Sub mntienganh_Click() If mntienganh.Checked = False Then mntiengviet.Checked = False

mntienganh.Checked = True tieng (False) (adsbygoogle = window.adsbygoogle || []).push({});

End If End Sub

Private Sub mntiengviet_Click() If mntiengviet.Checked = False Then mntienganh.Checked = False mntiengviet.Checked = True tieng (True)

End If End Sub

Private Sub mntimkiem_Click() Ftimkiem.Show

End Sub

Private Sub Timer1_Timer() Dim y As String Dim x As String y = Right(Fchinh.Caption, 1) x = Left(Fchinh.Caption, Len(Fchinh.Caption) - 1) Fchinh.Caption = y + x End Sub  Form công tác

Private Sub Command1_Click() On Error GoTo loi

Command3.Enabled = False ADcongtac.Recordset.AddNew Combo1.SetFocus

Exit Sub loi:

MsgBox " Bạn làm sai thao tác", vbInformation, "Thông báo" End Sub

Private Sub Command2_Click() On Error GoTo loi

If Combo1.Text = "" And Text2.Text = "" And Text3.Text = "" And Text4.Text = "" Then

Unload Me End If Command3.Enabled = True ADcongtac.Recordset.Update Exit Sub loi:

MsgBox "Không đúng kiểu dữ liệu", vbInformation, " Thông báo " End Sub

Private Sub Command3_Click() On Error GoTo loi

xoa = MsgBox("Bạn muốn xóa bản ghi này! ", vbYesNo, " Thông báo”)

If xoa = vbYes Then

ADcongtac.Recordset.Delete ADcongtac.Recordset.MoveNext End If

Exit Sub loi:

MsgBox " Bạn làm sai thao tác ", vbInformation, " Thông báo " End Sub

Private Sub Command4_Click() Unload Me

End Sub

Private Sub Command5_Click() qtct.Show

End Sub

Private Sub Form_Load() tieng (True)

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If (KeyAscii < 48) Or (KeyAscii > 57) Then

KeyAscii = 0 End If

End Sub

Private Sub Text4_Validate(Cancel As Boolean) If Not IsDate(Text4.Text) Then (adsbygoogle = window.adsbygoogle || []).push({});

Text4.Text = ""

MsgBox "Lưu ý ngày tháng", vbInformation, " Thông báo " End If

End Sub  Form đào tạo

Private Sub Command1_Click() On Error GoTo loi

Command2.Enabled = False addaotao.Recordset.AddNew Combo1.SetFocus

Exit Sub loi:

MsgBox " Bạn làm sai thao tác ", vbInformation, " Thông báo " End Sub

Private Sub Command2_Click() On Error GoTo loi

xoa = MsgBox("Bạn muốn xóa bản ghi này! ", vbYesNo, " Thông báo ")

If xoa = vbYes Then addaotao.Recordset.Delete addaotao.Recordset.MoveNext End If

Exit Sub loi:

MsgBox " Bạn làm sai thao tác ", vbInformation, " Thông báo "

End Sub

Private Sub Command3_Click() On Error GoTo loi

addaotao.Recordset.Update Exit Sub

loi:

MsgBox " Không đúng kiểu dữ liệu ", vbInformation, " Thông báo "

End Sub

Private Sub Command4_Click() Unload Me

End Sub

Private Sub Command5_Click() qtdt.Show

End Sub

Private Sub Text4_Validate(Cancel As Boolean) If Not IsDate(Text4.Text) Then

MsgBox " Lưu ý ngày tháng ", vbInformation, " Thông báo " End If

End Sub

Private Sub Text5_Validate(Cancel As Boolean) If Not IsDate(Text5.Text) Then

MsgBox " Lưu ý ngày tháng ", vbInformation, " Thông báo " End If

End Sub

Private Sub Timer1_Timer() Dim x As String Dim y As String x = Left(Fdaotao.Caption, 1) y = Right(Fdaotao.Caption, Len(Fdaotao.Caption) - 1) Fdaotao.Caption = y + x End Sub  Form hợp đồng

Private Sub Command1_Click() On Error GoTo loi (adsbygoogle = window.adsbygoogle || []).push({});

Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command8.Enabled = False adohopdong.Recordset.AddNew Txtma.SetFocus Exit Sub loi:

MsgBox " Bạn làm sai thao tác ", vbInformation, " Thông báo " End Sub

Private Sub Command2_Click() On Error GoTo loi:

Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command8.Enabled = True

If Text2.Text = "" Or Text7.Text = "" Or Text8.Text = "" Then

MsgBox "Bạn hãy xem lại SoHD,BHYT hoặc BHXH", vbInformation, " Thông báo "

Else

adohopdong.Recordset.Update

End If loi:

MsgBox " Không đúng kiểu dữ liệu", vbInformation, " Thông báo " End Sub

Private Sub Command3_Click() On Error GoTo loi

xoa = MsgBox("Bạn muốn xóa bản ghi này! ", vbYesNo, " Thông báo ")

If xoa = vbYes Then

End If Exit Sub loi:

MsgBox "Bạn làm sai thao tác", vbInformation, " Thông báo " End Sub

Private Sub Command4_Click() Command8.Enabled = True Command6.Enabled = True

adohopdong.Recordset.MoveFirst End Sub

Private Sub Command5_Click() Command6.Enabled = True Command8.Enabled = True adohopdong.Recordset.MoveLast End Sub

Private Sub Command6_Click() Command8.Enabled = True

If Not adohopdong.Recordset.BOF Then adohopdong.Recordset.MovePrevious Else

Command6.Enabled = False End If

End Sub

Private Sub Command7_Click() Unload Me

End Sub

Private Sub Command8_Click() Command6.Enabled = True

adohopdong.Recordset.MoveNext Else Command8.Enabled = False End If End Sub

Private Sub Command9_Click() hdld.Show

End Sub

Private Sub Text1_Validate(Cancel As Boolean) If Not IsDate(Text1.Text) Then

Text1.Text = "" (adsbygoogle = window.adsbygoogle || []).push({});

MsgBox "Lưu ý ngày tháng", vbInformation, " Thông báo " End If

End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer) If (KeyAscii < 48) Or (KeyAscii > 57) Then

KeyAscii = 0

End If End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer) If (KeyAscii < 48) Or (KeyAscii > 57) Then

KeyAscii = 0

End If End Sub

Private Sub Text4_Validate(Cancel As Boolean) If Not IsDate(Text4.Text) Then

Text4.Text = ""

MsgBox "Lưu ý ngày tháng", vbInformation, " Thông báo " End If

End Sub

Private Sub Text5_Validate(Cancel As Boolean) If Not IsDate(Text5.Text) Then

Text5.Text = ""

MsgBox " Lưu ý ngày tháng ", vbInformation, " Thông báo " End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer) If (KeyAscii < 48) Or (KeyAscii > 57) Then

KeyAscii = 0

End If End Sub

Private Sub Text9_KeyPress(KeyAscii As Integer) If (KeyAscii < 48) Or (KeyAscii > 57) Then

KeyAscii = 0

End If End Sub

Private Sub Timer1_Timer() Dim x As String Dim y As String x = Left(fhopdong.Caption, 1) y = Right(fhopdong.Caption, Len(fhopdong.Caption) - 1) fhopdong.Caption = y + x End Sub

MỤC LỤC

L I M Ờ Ở ĐẦU...1

Chương I T ng quan v Ngân h ng VIBANK v chuyên ổ ề à à đề ự ậ ố th c t p t t nghi pệ ...4

1.1. Gi i thi u chung v ngân h ng VIBankớ ệ ề à ...4

1.2. Gi i thi u v ngân h ng VIBank chi nhánh Quang Trung, H n iớ ệ ề à à ộ ...5

1.2.1. Quá trình hình th nh v phát tri nà à ể ...6

1.2.2. S m nhứ ệ ...7 (adsbygoogle = window.adsbygoogle || []).push({});

1.2.3. Giá tr c t lõiị ố ...7

1.2.4. T m nhìnầ ...7

1.2.5. S ơ đồ ổ t ch cứ ...8

1.3. Gi i thi u v ớ ệ ề đơn v th c t p – Phòng ị ự ậ đại lý phát tri n th VIBankể ẻ ...11

1.3.1. Nhi m vệ ụ...11

1.3.2. Ch c n ngứ ă ...11

1.3.3. Nhân sự...12

1.4. Gi i thi u ớ ệ đề à t i:...12

Chương 2 Lý lu n chung v phân tích thi t k ậ ề ế ế...14

H th ng thông tinệ ố ...14

A. Nh ng khái ni m c b nữ ệ ơ ả ...14

2.1 H th ng thông tinệ ố ...14

2.1.1. Phân lo i H th ng thông tin trong t ch cạ ệ ố ổ ứ ...16

2.1.2. Mô hình bi u di n H th ng thông tinể ễ ệ ố ...18

2.2 T m quan tr ng c a m t h th ng thông tin ho t ầ ọ ủ ộ ệ ố ạ động t tố...20

2.2.1. Độ tin c yậ ...20

2.2.2. Tính đầ đủy ...20

2.2.3. Tính thích h p v d hi uợ à ễ ể ...21

2.2.4. Tính được b o vả ệ...21

2.2.5. Tính k p th iị ờ...21

B. Phân tích, thi t k H th ng thông tin ế ế ệ ố ...21

2.1 Phương pháp phát tri n m t H th ng thông tinể ộ ệ ố ...21

2.1.1 Nguyên nhân d n t i vi c phát tri n m t h th ng thông tin ẫ ớ ệ ể ộ ệ ố ...21

2.1.2 Phương pháp phát tri n m t H th ng thông tinể ộ ệ ố ...22

2.2 Phân tích H th ng thông tinệ ố ...23

2.2.1 M c tiêu c a giai o n phân tích chi ti tụ ủ đ ạ ế...23

2.2.2 Các phương pháp thu th p thông tinậ ...24

2.2.3 Mã hóa d li uữ ệ ...26

2.2.4 Công c mô hình hóaụ ...26

2.2.5 L p k ho ch phân tích chi ti tậ ế ạ ế ...29 (adsbygoogle = window.adsbygoogle || []).push({});

2.2.6 Nghiên c u môi trứ ường c a h th ng ang t n t iủ ệ ố đ ồ ạ ...29

2.2.7 Nghiên c u h th ng hi n t iứ ệ ố ệ ạ...30

2.2.8 Ch n oán v xác nh các y u t gi i quy t v n ẩ đ à đị ế ố ả ế ấ đề...30

2.3. Thi t k H th ng thông tinế ế ệ ố ...31

2.3.1. Thi t k logicế ế ...31 2.3.2. Thi t k v t lý ngo iế ế ậ à...34 2.3. C i à đặ ệ ốt h th ng thông tin m iớ...37