Lập trình Phần mềm quản lý nhân sự cho công ty xi măng Hà Tây

MỤC LỤC LỜI NÓI ĐẦU 41 Chương .42 KHẢO SÁT HỆ THỐNG 42 Chương .62 PHÂN TÍCH HỆ THỐNG 62 Chương .72 THIẾT KẾ CƠ SỞ DỮ LIỆU .72 Chương .82 XÂY DỰNG CHƯƠNG TRÌNH 82 MÃ NGUỒN CHƯƠNG TRÌNH 89 Dim conn As ADODB.Connection .89 Dim rs As ADODB.Recordset .89 Dim SQL As String .89 Public Sub Ketnoi() .89 Set conn = New ADODB.Connection 89 conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\HOC TAP\DOANTOTNGHIEP\QLNV.MDB;Persist Security Info=False" 89 conn.Open 89 End Sub .89 Private Sub cmd_nhap_Click() 89 End Sub .89 Private Sub ClearALL() 89 Me.txtmachucvu = "" 89 Me.txttenchucvu = "" 89 Me.txthesophucap = "" .89 End Sub .89 Private Sub Display_Listview() 89 Set rs = New ADODB.Recordset .89 Dim mitem As ListItem 89 Me.ListView1.ListItems.Clear 89 SQL = "select * from chucvu" 89 rs.Open SQL, conn, adOpenKeyset, adLockOptimistic, adCmdText 89 If rs.EOF = False Then .90 While Not rs.EOF .90 Set mitem = Me.ListView1.ListItems.Add(, , rs!macv) .90 mitem.SubItems(1) = rs!tencv 90 mitem.SubItems(2) = rs!hesophucap 90 rs.MoveNext .90 Wend 90 End If 90 rs.Close .90 Me.ListView1.GridLines = True 90 Me.ListView1.FullRowSelect = True 90 Exit Sub 90 End Sub .90 Private Sub cmdSua_Click(Index As Integer) .90 Set rs = New ADODB.Recordset 90 If Me.txtmachucvu.Text = "" Then 90 MsgBox "BAN CAN NHAP MA DE SUA." .90 Else 90 SQL = "Update chucvu set tencv ='" & Me.txttenchucvu & "'" 90 SQL = SQL & ", hesophucap='" & Me.txthesophucap.Text & "'" .90 SQL = SQL & "where macv='" & Me.txtmachucvu.Text & "'" 90 .90 If MsgBox("BAN CO MUON SUA KHONG ?", vbQuestion + vbYesNo, "Thong bao") = vbYes Then 90 rs.Open SQL, conn, 1, .90 .90 End If 91 End If 91 Set rs = Nothing 91 MsgBox "Ban Ghi Da Duoc Sua Thanh Cong" 91 ' rs.Close 91 Display_Listview 91 ClearALL 91 End Sub .91 Private Sub cmdThem_Click() 91 Ketnoi 91 If Me.txtmachucvu = "" Then 91 MsgBox "Ban Chua Nhap Ma Chuc Vu" 91 Me.txtmachucvu.SetFocus 91 Else 91 Set rs = New ADODB.Recordset .91 SQL = "SELECT chucvu.macv, chucvu.tencv, chucvu.hesophucap From chucvu WHERE macv='" & Me.txtmachucvu.Text & "'" 91 rs.Open SQL, conn, 1, .91 If Not rs.EOF Then .91 MsgBox "Ma Nay Da Ton tai" 91 Exit Sub 91 Else .91 rs.AddNew 91 rs("macv") = Me.txtmachucvu.Text 91 rs("tencv") = Me.txttenchucvu.Text 91 rs("hesophucap") = Me.txthesophucap.Text 91 rs.Update 92 MsgBox "Ban Ghi Da Duoc Cap Nhat" .92 End If 92 If MsgBox("BAN CO MUON NHAP TIEP KHONG?", vbYesNo) = vbYes Then .92 Me.txtmachucvu.SetFocus 92 End If 92 rs.Close .92 ClearALL 92 Display_Listview 92 End If 92 End Sub .92 Private Sub cmdThoat_Click(Index As Integer) 92 Unload Me 92 End Sub .92 Private Sub cmdXoa_Click(Index As Integer) 92 If Me.txtmachucvu.Text = "" Then .92 MsgBox "BAN CHUA CHON MA DE XOA." 92 Else .92 Set rs = New ADODB.Recordset .92 SQL = "delete * from chucvu where macv='" & Me.txtmachucvu.Text & "'" .92 If MsgBox("BAN CO MUON XOA MA NAY KHONG ?", vbYesNo) = vbYes Then 93 rs.Open SQL, conn, 1, .93 End If 93 End If 93 Display_Listview 93 ClearALL 93 End Sub .93 Private Sub Form_Load() 93 Ketnoi 93 Display_Listview 93 End Sub .93 Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) 93 Me.txtmachucvu.Text = Item.Text 93 Me.txttenchucvu.Text = Item.SubItems(1) 93 Me.txthesophucap.Text = Item.SubItems(2) .93 End Sub .93 Dim conn As ADODB.Connection .93 Dim rs As ADODB.Recordset .93 Dim SQL As String .93 Public Sub Ketnoi() .93 Set conn = New ADODB.Connection 93 conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\HOC TAP\DOANTOTNGHIEP\QLNV.MDB;Persist Security Info=False" 94 conn.Open 94 End Sub .94 Private Sub loaddantoc() .94 Ketnoi 94 Set rs = New ADODB.Recordset 94 rs.Open "select madt from dantoc", conn, 1, 94 rs.MoveFirst .94 Do While Not rs.EOF 94 Me.cmb_madt.AddItem (rs("madt")) 94 rs.MoveNext .94 Loop 94 rs.Close 94 End Sub .94 Private Sub loadtongiao() 94 Ketnoi 94 Set rs = New ADODB.Recordset 94 rs.Open "select matg from tongiao", conn, 1, 95 rs.MoveFirst .95 Do While Not rs.EOF 95 Me.cmb_matongiao.AddItem (rs("matg")) 95 rs.MoveNext .95 Loop 95 rs.Close 95 End Sub .95 Private Sub loadtrinhdo() 95 Ketnoi 95 Set rs = New ADODB.Recordset 95 rs.Open "select maTD from trinhdo", conn, 1, 95 rs.MoveFirst .95 Do While Not rs.EOF 95 Me.cmb_matrinhdo.AddItem (rs("maTD")) 95 rs.MoveNext .95 Loop 95 rs.Close 95 End Sub .95 Private Sub loadchuyenmon() .95 Ketnoi 96 Set rs = New ADODB.Recordset 96 rs.Open "select maCM from chuyenmon", conn, 1, 96 rs.MoveFirst .96 Do While Not rs.EOF 96 Me.cmb_machuyenmon.AddItem (rs("maCM")) 96 rs.MoveNext .96 Loop 96 rs.Close 96 End Sub .96 Private Sub loadlyluanct() 96 Ketnoi 96 Set rs = New ADODB.Recordset 96 rs.Open "select maTDLLCT from TDLLCT", conn, 1, 96 rs.MoveFirst .96 Do While Not rs.EOF 96 Me.cmb_matdctri.AddItem (rs("maTDLLCT")) .96 rs.MoveNext .96 Loop 96 rs.Close 96 End Sub .97 Private Sub loadchucvu() 97 Ketnoi 97 Set rs = New ADODB.Recordset 97 rs.Open "select maCV from chucvu", conn, 1, 97 rs.MoveFirst .97 Do While Not rs.EOF 97 Me.cmb_macvu.AddItem (rs("maCV")) 97 rs.MoveNext .97 Loop 97 rs.Close 97 End Sub .97 Private Sub loadphongban() 97 Ketnoi 97 Set rs = New ADODB.Recordset 97 rs.Open "select maPB from phong", conn, 1, 97 rs.MoveFirst .97 Do While Not rs.EOF 97 Me.cmb_mapban.AddItem (rs("maPB")) 97 rs.MoveNext .97 Loop 98 rs.Close 98 End Sub .98 Private Sub loadnamthoatli() .98 Dim n As Integer 98 For n = 1870 To 2000 98 cmb_namthoatli.AddItem (n) .98 Next 98 End Sub 98 Private Sub loadnamveGT() .98 Dim i As Integer 98 For i = 2000 To 2011 98 cmb_namveGT.AddItem (i) .98 Next 98 End Sub 98 Private Sub ClearALL() 98 Me.txt_manv.Text = "" .98 Me.cmb_namthoatli.Text = "" 98 Me.cmb_namveGT.Text = "" .99 Me.txtsocmnd.Text = "" .99 Me.txtdiachi.Text = "" 99 Me.txtgioitinh.Text = "" .99 Me.txthodem.Text = "" .99 Me.txtten.Text = "" .99 Me.txtsdt.Text = "" .99 Me.txtngaysinh.Text = "" 99 Me.cmb_machuyenmon.Text = "" 99 Me.cmb_macvu.Text = "" 99 Me.cmb_madt.Text = "" .99 Me.cmb_mapban.Text = "" 99 Me.cmb_matdctri.Text = "" 99 Me.cmb_matongiao = "" 99 Me.cmb_matrinhdo.Text = "" .99 Me.DTPicker1.Value = False .99 Me.DTPicker2.Value = False .99 Me.lbl_chinhtri.Caption = "" 99 Me.lbl_chucvu.Caption = "" .99 Me.lbl_chuyenmon.Caption = "" 99 Me.lbl_madt.Caption = "" 100 Me.lbl_phongban.Caption = "" 100 Me.lbl_tongiao.Caption = "" 100 Me.lbl_trinhdo.Caption = "" .100 .100 End Sub .100 Private Sub Display_Listview() 100 Set rs = New ADODB.Recordset .100 10 For i = To Me.Option1.Count - If Me.Option1(i).Value = True Then Select Case i Case sql1 = "SELECT nhanvien.maNV, nhanvien.hodem, nhanvien.ten, phong.tenphong, nhanvien.soCMND FROM phong RIGHT JOIN nhanvien ON phong.maPB = nhanvien.maPB WHERE phong.tenphong like '%" & Me.Combo1.Text & "%'" Case sql1 = "SELECT nhanvien.maNV, nhanvien.hodem, nhanvien.ten, nhanvien.soCMND, chucvu.tencv FROM chucvu RIGHT JOIN nhanvien ON chucvu.macv = nhanvien.macv WHERE chucvu.tencv like '%" & Me.Combo1.Text & "%'" Case sql1 = "SELECT nhanvien.maNV, nhanvien.hodem, nhanvien.ten, nhanvien.soCMND, chuyenmon.tenCM FROM chuyenmon RIGHT JOIN nhanvien ON chuyenmon.maCM = nhanvien.maCM WHERE chuyenmon.tenCM like '%" & Me.Combo1.Text & "%'" Case sql1 = "SELECT nhanvien.maNV, nhanvien.hodem, nhanvien.ten, nhanvien.soCMND, trinhdo.tenTD FROM trinhdo INNER JOIN nhanvien ON trinhdo.maTD = nhanvien.maTD WHERE trinhdo.tenTD like '%" & Me.Combo1.Text & "%'" 129 Case Else MsgBox "KHONG TIM THAY THONG TIN" End Select End If Next Display_Listview End Sub Private Sub Display_Listview() Set rs = New ADODB.Recordset Dim mitem As ListItem Me.ListView1.ListItems.Clear rs.Open sql1, conn, adOpenKeyset, adLockOptimistic If rs.EOF Then MsgBox "KHONG TIM THAY THONG TIN VE NHAN VIEN" Else While Not rs.EOF 130 Set mitem = Me.ListView1.ListItems.Add(, , rs!manv) mitem.SubItems(1) = rs!hodem mitem.SubItems(2) = rs!ten mitem.SubItems(3) = rs!soCMND rs.MoveNext Wend End If rs.Close Me.ListView1.GridLines = True Me.ListView1.FullRowSelect = True Exit Sub End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Option1_Click(Index As Integer) 131 If Me.Option1(0).Value = True Then loadcv End If If Me.Option1(1).Value = True Then loadphong End If If Me.Option1(2).Value = True Then loadchuyenmon End If If Me.Option1(3).Value = True Then loadtrinhdo End If End Sub Dim conn As ADODB.Connection Dim rs As New ADODB.Recordset 132 Dim SQL As String Public Sub Ketnoi() Set conn = New ADODB.Connection conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\HOC TAP\DOANTOTNGHIEP\QLNV.MDB;Persist Security Info=False" conn.Open End Sub Private Sub Command1_Click() If Me.Option1(1).Value = True Then report_dsnv.Show ' DE1.rstkdsnv.Close End If If Me.Option1(2).Value = True Then rp_kl.Show 'DE1.rstkdskhenthuong.Close End If If Me.Option1(3).Value = True Then 133 report_dskt.Show 'DE1.rstkdskl.Close End If End Sub Private Sub Command2_Click() Unload Me End Sub Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim SQL As String Public Sub Ketnoi() Set conn = New ADODB.Connection conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\HOC TAP\DOANTOTNGHIEP\QLNV.MDB;Persist Security Info=False" conn.Open End Sub 134 Private Sub ClearALL() Me.txtmangach = "" Me.txtsonamlenluong = "" End Sub Private Sub Display_Listview() Set rs = New ADODB.Recordset Dim mitem As ListItem Me.ListView1.ListItems.Clear SQL = "select * from ngachluong" rs.Open SQL, conn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mitem = Me.ListView1.ListItems.Add(, , rs!mangach) mitem.SubItems(1) = rs!sonamlenluong rs.MoveNext Wend End If rs.Close 135 Me.ListView1.GridLines = True Me.ListView1.FullRowSelect = True Exit Sub End Sub Private Sub cmdSua_Click(Index As Integer) Set rs = New ADODB.Recordset If Me.txtmangach.Text = "" Then MsgBox "BAN CAN NHAP MA DE SUA." Else SQL = "Update ngachluong set sonamlenluong ='" & Me.txtsonamlenluong.Text & "'" SQL = SQL & "where mangach='" & Me.txtmangach.Text & "'" If MsgBox("BAN CO MUON SUA KHONG ?", vbQuestion + vbYesNo, "Thong bao") = vbYes Then rs.Open SQL, conn, 1, End If End If Set rs = Nothing 136 MsgBox "BAN GHI DA DUOC SUA THANH CONG!" ' rs.Close Display_Listview ClearALL End Sub Private Sub cmdThem_Click() Ketnoi If Me.txtmangach.Text = "" Then MsgBox "BAN CHUA NHAP MA NGACH" Me.txtmangach.SetFocus Else Set rs = New ADODB.Recordset SQL = "SELECT ngachluong.mangach, ngachluong.sonamlenluong FROM ngachluong where mangach= '" & Me.txtmangach.Text & "'" rs.Open SQL, conn, 1, If Not rs.EOF Then MsgBox "MA NAY DA TON TAI" Me.txtmangach.SetFocus Else 137 rs.AddNew rs("mangach") = Me.txtmangach.Text rs("sonamlenluong") = Me.txtsonamlenluong.Text rs.Update MsgBox "BAN GHI DA DUOC CAP NHAT" End If If MsgBox("BAN CO MUON NHAP TIEP KHONG?", vbYesNo) = vbYes Then Me.txtmangach.SetFocus End If rs.Close ClearALL Display_Listview End If End Sub Private Sub cmdThoat_Click(Index As Integer) Unload Me End Sub Private Sub cmdXoa_Click(Index As Integer) 138 If Me.txtmangach.Text = "" Then MsgBox "BAN CHUA CHON MA DE XOA." Else Set rs = New ADODB.Recordset SQL = "delete * from ngachluong where mangach='" & Me.txtmangach.Text & "'" If MsgBox("BAN CO MUON XOA MA NAY KHONG ?", vbYesNo) = vbYes Then rs.Open SQL, conn, 1, End If End If Display_Listview ClearALL End Sub Private Sub Form_Load() Ketnoi Display_Listview End Sub 139 Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Me.txtmangach.Text = Item.Text Me.txtsonamlenluong.Text = Item.SubItems(1) End Sub 140 KẾT LUẬN I KẾT LUẬN CHUNG Việc xây dựng hệ thống quản lý nhân công ty Xi Măng Tiên Sơn- Hà Tây nhằm đáp ứng tất vấn đề đặt với chức hệ thống đòi hỏi nhiều thời gian cơng sức Trong đợt làm đồ án tốt nghiệp này, em xây dựng hệ thống Quản lý nhân dựa thao tác phân tich thiết hệ hệ thống gồm: Khảo sát hệ thống, thiết kế hệ thống, xây dựng biểu đồ luồng liệu thiết kế sở liệu hệ thống Trong thời gian làm chương trình em gặp nhiều khó khăn như: Thời gian nghiên cứu đề tài có phần hạn chế, kinh nghiêm kiến thức thiếu, … Nhưng với bảo tậm tình thầy giáo giáo hướng dẫn tâm lỗ lực, cộng với lòng say mê học hỏi đến chương trình em hoàn thành Cho đến thời điểm chương trình đạt yêu cẩu sau: Giao tiếp với sở liệu cách hiệu quả, phân cấp chức cần thiết, truy cập liệu tìm kiếm thơng tin nhanh, giao diện dễ sử dụng, thân thiệt với người dung chương trình … Song bên cạnh gặp nhiều khó khăn trình lam chương trình như: Thời gian ít, chưa khảo sát chương trình Quản lý nhân nào, khâu phân tích thiết kế yếu … Nên chương trình nhiều điểm chưa hồn thiện II HƯỚNG PHÁT TRIỂN CỦA ĐỀ TÀI Trong trình khảo sát, thiết kết hệ thống trình thiết kế xây dựng chương trình nhiều điểm chưa hoàn chỉnh thời gian kinh nghiệm kiến thức có phần hạn chế thời gian tới chương trình mở rộng triển khai áp dụng vào thực tế trở thành chương trình Quản lý nhân có ứng dụng thực tế Công Ty Xi Măng Tiên Sơn – Hà Tây NHẬN XÉT CỦA GIẢNG VIÊN 141 ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ………………………………………… Ngày … , tháng … , năm … Giáo viên hướng dẫn (Ký tên) TÀI LIỆU THAM KHẢO [1] Nguyễn Văn Ba – Phân tích thiết kế hệ thống thơng tin - NXB Đại Học Quốc Gia – Hà Nội 2003 142 [4] Phương Lan Hoàng Đức Khải – Từng bước học lập trình visual Basic.net – NXB Lao Động – Xã Hội 2005 [2] Nguyễn Ngọc Tuấn – Víual Basic.net tồn tập – NXB Thống Kê - 2004 [3] Lê Tiến Vượng - Nhập môn CSDL quan hệ - NXB Đại học quốc gia – HN 2002 143 ... .90 Me.ListView1.GridLines = True 90 Me.ListView1.FullRowSelect = True 90 Exit Sub 90 End Sub .90 Private Sub cmdSua_Click(Index As Integer) .90... SQL, conn, 1, .91 If Not rs.EOF Then .91 MsgBox "Ma Nay Da Ton tai" 91 Exit Sub 91 Else .91 rs.AddNew 91 rs("macv") = Me.txtmachucvu.Text... cmdXoa_Click(Index As Integer) 92 If Me.txtmachucvu.Text = "" Then .92 MsgBox "BAN CHUA CHON MA DE XOA." 92 Else .92 Set rs = New ADODB.Recordset .92 SQL = "delete