Báo cáo thực tập Quản lý nhân lực ở Trung tâm Viễn thông Di động Điện lực

o Cập nhật dữ liệu Nhập danh mục? Đưa ra báo cáo? Nhập dữ liệu? F T F T F T F 2.3.3.2. Giải thuật nhập các danh mục hệ thống B Khởi tạo giao diện Tạo bản ghi trắng Nhập dữ liệu Kiểm tra tính hợp lệ của dữ liệu? F E Lưu trữ vào cơ sở dữ liệu Tiếp tục nhập dữ liệu? Thoát khỏi giao diện F T T 2.3.3.3. Giải thuật sửa dữ liệu B Vào giao diện Hiện bản ghi cần sửa Sửa dữ liệu Kiểm tra tính hợp lệ của dữ liệu đã sửa? E Lưu dữ liệu đã sửa Tiếp tục sửa dữ liệu? Thoát khỏi giao diện F F T T 2.3.3.4. Thuật toán xoá dữ liệu B Vào giao diện Hiện bản ghi cần xoá Xoá dữ liệu Tiếp tục xoá? E Thoát khỏi giao diện T F 2.3.3.5. Thủ tục tìm kiếm dữ liệu B Lựa chọn điều kiện tìm kiếm Kiểm tra điều kiện cần tìm Hiện thông tin cần tìm Tiếp tục tìm kiếm? E Thoát khỏi chương trình tìm kiếm T F 2.3.3.6. Giải thuật đưa báo cáo đầu ra B Lựa chọn báo cáo cần đưa ra Khai báo các thông số cần lập báo cáo Điều kiện của báo cáo Kiểm tra tính hợp lệ của điều kiện? E Kết xuất sang cơ sở dữ liệu lấy thông tin hiện ra báo cáo Tiếp tục lấy báo cáo đầu ra? Thoát khỏi giao diện khai thác báo cáo F F T T 2.4. Cài đặt và kiểm thử Sau khi thiết kế xong thì bắt đầu quá trình cài đặt phần mềm. Ở đây phần mềm đã được build lại tạo thành một tệp .exe để chạy trực tiếp. Lúc này phần mềm được cài đặt trên ổ đĩa C để chạy vì thế trong quá trình test thử phần mềm phải sao chép các tệp dữ liệu lên ổ C. Lưu ý trong quá trình test thử phần mềm phải nhập các mã phòng ban, mã nhân viên, mã chức vụ đúng với những yêu cầu mà tác giả đã mã hoá. Việc cài đặt và kiểm thử sẽ do thầy hướng dẫn thực tập và cán bộ hướng dẫn ở Trung tâm giám sát. 2.5. Lắp đặt và bảo trì Việc lắp đặt và bảo trì sẽ do tác giả thực hiện khi có yêu cầu của thầy hướng dẫn hoặc cán bộ hướng dẫn ở Trung tâm. Ngoài ra nếu không có yêu cầu thì việc thực hiện không cần thiết. Vì phần mềm này được viết bằng ngôn ngữ Visual Basic 6.0 cho nên việc thích ứng với các phần mềm hệ thống là rất dễ dàng nếu sử dụng hệ điều hành Window 2000, Window XP… và khi sử dụng phần mềm cũng không cần phải cài đặt Visual Basic. PHẦN III: KẾT LUẬN Với sự phát triển của ngành công nghệ thông tin hiện nay nhất là sự phát triển của ngành công nghệ phần mềm, thì việc ứng dụng tin học hoá vào quản lý doanh nghiệp hiện nay ở nước ta là hết sức cần thiết và quan trọng. Nó sẽ góp phần giải quyết các vấn đề về thời gian, tiền bạc của các doanh nghiệp. Hầu hết các doanh nghiệp ở nước ta hiện nay đã sử dụng các phần mềm tin học hoá trong quản lý. Điều này làm cho việc phát triển ở các doanh nghiệp dễ dàng hơn. Việc thiết kế phần mềm: “ Quản lý nhân lực ở Trung tâm Viễn thông Di động Điện lực” chỉ góp một phần nhỏ phần vào công cuộc quản lý nhân lực ở nước ta nói chung và ở Trung tâm Viễn thông Di động Điện lực nói riêng. Hy vọng, việc nghiên cứu đề tài này sẽ góp một phần nhỏ vào công cuộc quản lý nhân lực của đất nước ta hiện nay. Đây là một đề tài khá lớn và có rất nhiều phát sinh trong quá trình quản lý của các doanh nghiệp nước ta. Vì thực tế có rất nhiều điều xảy ra trong hiện tại mà ta chưa thể biết hết được, do đó em mong các thầy cô giáo góp ý để em có thể nhận ra được sai lầm của mình. DANH MỤCTÀI LIỆU THAM KHẢO Đặng Quế Vinh Lập trình Visual Basic 6.0 cơ bản, NXB khoa học và kỹ thuật. GS. Nguyễn Văn Vị Phân tích thiết kế HTTT, NXB Khoa học kỹ thuật, Hà Nội -2002. Joger s.Pressman Kỹ nghệ phần mềm, NXB Giáo dục. Lê Đức Trung Công nghệ phần mềm, NXB khoa học và kỹ thuật, Hà Nội_ 2001. Nguyễn Thị Ngọc Mai (Chủ biên)- GSTS. Nguyễn Hữu Anh Microsoft Visual Basic 6.0 & lập trình cơ sở dữ liệu, NXB Giáo dục. PGS.TS Hàn Viết Thuận Bài giảng công nghệ phần mềm. PGS.TS Hàn Viết Thuận Giáo trình cấu trúc dữ liệu và giải thuật, NXB Thống kê, Hà Nội_1999. Phùng Tiến Hải Nghiên cứu thiết kế một số phần mềm phục vụ công tác tin học hoá quản lý tại trường đại học kinh tế quốc dân_ Luận văn thạc sỹ, Bộ giáo dục đào tạo. Nguyễn Thị Ngọc Mai (Chủ biên)- GSTS. Nguyễn Hữu Anh Microsoft Visual Basic 6.0 & lập trình cơ sở dữ liệu, NXB Giáo dục. THS. Trần Công Uẩn Giáo trình cơ sở dữ liệu, NXB Thống Kê, Hà Nội – 2000. TS. Trương Văn Tú – TS. Trần Thị Song Minh Hệ thống thông tin quản lý, NXB Thống kê, Hà Nội – 2000. VN – Guide Kế toán doanh nghiệp với Visual Basic, NXB Thống kê. VN – Guide Những bài thực hành Visual Basic 6.0 căn bản, NXB Thống Kê. VN – Guide Những bài thực hành Visual Basic 6.0 nâng cao, NXB Thống kê. PHỤ LỤC Một số mã nguồn trong chương trình quản lý nhân lực: Danh mục phòng ban Option Explicit Private flag As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim str Dim mltem As ListItem Private Sub cmdClose_Click() frmchon_pb.lvItem.Refresh frmchon_pb.Show Unload Me End Sub Private Sub cmdDel_Click() Xoa_Du_Lieu End Sub Private Sub cmdNew_Click() Un_Lock_Text ' Mo khoa cac TextBox Set_Null ' Khoi tao gia tri ban dau cho cac TextBox End Sub Private Sub cmdPrint_Click() If DE1.rsphongban.State = 0 Then DE1.rsphongban.Open 'Mo command neu chua duoc mo End If DE1.rsphongban.Requery 'refresh lai noi dung comand (recordset rsphongban) Report_phongban.Show 1 End Sub Private Sub cmdSave_Click() If flag "Update" Then ' Neu o che do them moi thi dat co Flag = "Save" flag = "Save" End If Luu_Du_Lieu ' frmchon_pb.lvitem.Refresh End Sub Private Sub cmdUpdate_Click() flag = "Update" ' Chuyen vao che do sua Sua_Du_Lieu ' Goi thu tuc sua du lieu End Sub Private Sub Lock_Text() txtmapb.Enabled = False txttenpb.Enabled = False cmdSave.Enabled = False cmdSkip.Enabled = False cmdNew.Enabled = True cmdUpdate.Enabled = True cmdDel.Enabled = True flag = "" End Sub Private Sub Display_Listview() Dim rs As New ADODB.Recordset Dim str Dim mltem As ListItem lvItem.ListItems.Clear str = "select * from DMPB order by mapb asc" rs.Open str, cn ', adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mltem = lvItem.ListItems.Add(, , rs!mapb) mltem.SubItems(1) = rs!tenpb rs.MoveNext Wend End If End Sub Private Sub Form_Load() Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = "C:\nhan luc\nhanluc.mdb" cn.Open Lock_Text Display_Listview End Sub Private Sub Form_Unload(Cancel As Integer) frmchon_pb.lvItem.Refresh cn.Close End Sub Private Sub lvitem_ItemClick(ByVal Item As MSComctlLib.ListItem) txtmapb = Item.Text txttenpb = Item.SubItems(1) End Sub Private Sub Un_Lock_Text() txtmapb.Enabled = True txttenpb.Enabled = True txtmapb.SetFocus cmdSave.Enabled = True cmdSkip.Enabled = True cmdNew.Enabled = False cmdUpdate.Enabled = False cmdDel.Enabled = False End Sub Private Sub Luu_Du_Lieu() Dim rs As New ADODB.Recordset Dim str 'Neu mapb hoac tenpb trong thi ko luu If Trim(txtmapb) = "" Or Trim(txttenpb) = "" Then MsgBox "Chu y:phai nhap du lieu day du truoc khi luu", vbOKOnly + vbExclamation, "Thong bao" Exit Sub End If 'Tim xem mapb nay da ton tai trong table DMPB hay chua? str = "select * from DMPB where mapb='" & Trim(txtmapb) & "'" rs.Open str, cn If rs.EOF = True Then ' Neu chua ton tai str = "Insert into DMPB values('" & Trim(txtmapb) & "','" & Trim(txttenpb) & "')" cn.Execute (str) ' Them mot record moi vao Table DMPB Else ' Neu da ton tai thi If flag = "save" Then ' Va o che do them moi thi ko luu MsgBox "M· pb [" & txtmapb & "] ®· 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 ' Neu da ton tai va o che do sua, thi cap nhat lai noi dung ten phong ban str = "update DMPB set tenpb = '" & Trim(txttenpb) & "' where mapb ='" & Trim(txtmapb) & "'" cn.Execute (str) End If Lock_Text ' Khoa cac textbox Display_Listview ' Nap lai noi dung Listview cmdNew.SetFocus ' Chuyen quyen dieu khien chi nut moi Me.MousePointer = 0 End Sub 'Thu tuc khoi tao gia tri ban dau cho cac dieu khien Textbox Private Sub Set_Null() txtmapb = "" txttenpb = "" End Sub Private Sub Sua_Du_Lieu() Un_Lock_Text txtmapb.Enabled = False txttenpb.SetFocus End Sub 'Thu tuc dung de thuc hien viec xoa Record hien hanh Private Sub Xoa_Du_Lieu() Dim str Dim response If Trim(txtmapb) = "" Then ' Neu txtmapb trong thi ket thuc xoa Exit Sub End If response = MsgBox("B¹n cã ch¸c ch¾n xo¸ vïng d÷ liÖu nµy kh«ng?", vbYesNo + vbQuestion, "Th«ng b¸o") If response = vbNo Then ' Neu chon No thi ko xoa Exit Sub Else str = "delete from dmpb where mapb='" & Trim(txtmapb) & "'" cn.Execute (str)' Thi hanh query xoa record hien hanh trong Table DMPB End If Set_Null ' Khoi tao gia tri ban dau cho cac textbox Lock_Text ' Khoa cac TextBox Display_Listview ' Hien thi lai du lieu trong Listview tu Table DMPB End Sub 'Thu tuc bien co khi nhap nut bo qua Private Sub cmdSkip_Click() Set_Null ' Khoi tao lai gia tri ban dau cho cac Textbox Lock_Text ' Khoa cac Textbox End Sub 'Thu tuc bien co Gotfocus khi textbox ma phong ban nhan dieu khien Private Sub txtmapb_GotFocus() txtmapb.BackColor = &HC0E0FF ' Doi mau cho txtmapb End Sub 'Thu tuc bien co KeyPress khi nhan phim bat ky luc textbox mapb co focus Private Sub txtmapb_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox tenpb txttenpb.SetFocus End Select End Sub Private Sub txtmapb_LostFocus() txtmapb.BackColor = &HFFFFFF ' Tra lai mau cu cho txtmapb txtmapb = Trim(txtmapb) ' Cat bo khoang trong trong noi dung txtmapb neu co End Sub Private Sub txttenpb_GotFocus() txttenpb.BackColor = &HC0E0FF ' Doi mau cho txtten pb End Sub Private Sub txttenpb_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang cmdSave cmdSave.SetFocus End Select End Sub Private Sub txttenpb_LostFocus() txttenpb.BackColor = &HFFFFFF ' Tra lai mau cu cho txttenpb End Sub Danh mục chức vụ Option Explicit Private flag As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDel_Click() Xoa_Du_Lieu End Sub Private Sub cmdNew_Click() Un_Lock_Text ' Mo khoa cac TextBox Set_Null ' Khoi tao gia tri ban dau cho cac TextBox End Sub Private Sub cmdPrint_Click() End Sub Private Sub cmdSave_Click() If flag "Update" Then ' Neu o che do them moi thi dat co Flag = "Save" flag = "Save" End If Luu_Du_Lieu End Sub Private Sub cmdUpdate_Click() flag = "Update" ' Chuyen vao che do sua Sua_Du_Lieu ' Goi thu tuc sua du lieu End Sub Private Sub Form_Load() ' open_mdb Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = "C:\nhan luc\nhanluc.mdb" cn.Open Lock_Text Display_Listview End Sub Private Sub Lock_Text() txtmacv.Enabled = False txttencv.Enabled = False cmdSave.Enabled = False cmdSkip.Enabled = False cmdNew.Enabled = True cmdUpdate.Enabled = True cmdDel.Enabled = True flag = "" End Sub 'Thu tuc hien thi du lieu trong danh muc chuc vu ra Listview Private Sub Display_Listview() Dim rs As New ADODB.Recordset Dim str Dim mltem As ListItem lvItem.ListItems.Clear str = "select * from dmcv order by macv asc" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mltem = lvItem.ListItems.Add(, , rs!macv) mltem.SubItems(1) = rs!tencv rs.MoveNext Wend End If End Sub Private Sub Form_Unload(Cancel As Integer) cn.Close End Sub Private Sub lvitem_ItemClick(ByVal Item As MSComctlLib.ListItem) txtmacv = Item.Text txttencv = Item.SubItems(1) End Sub Private Sub Un_Lock_Text() txtmacv.Enabled = True txttencv.Enabled = True txtmacv.SetFocus cmdSave.Enabled = True cmdSkip.Enabled = True cmdNew.Enabled = False cmdUpdate.Enabled = False cmdDel.Enabled = False End Sub Private Sub Luu_Du_Lieu() Dim rs As New ADODB.Recordset Dim str 'Neu ma chuc vu hoac ten chuc vu trong thi ko luu If Trim(txtmacv) = "" Or Trim(txttencv) = "" Then MsgBox "Chu y:phai nhap du lieu day du truoc khi luu", vbOKOnly + vbExclamation, "Thong bao" Exit Sub End If 'Tim xem ma chuc vu nay da ton tai trong table danh muc chuc vu hay chua? str = "select * from DMcv where macv ='" & Trim(txtmacv) & "'" rs.Open str, cn If rs.EOF = True Then ' Neu chua ton tai str = "Insert into DMcv values('" & Trim(txtmacv) & "','" & Trim(txttencv) & "')" cn.Execute (str) ' Them mot record moi vao Table DMCV Else ' Neu da ton tai thi If flag = "save" Then ' Va o che do them moi thi ko luu MsgBox "M· cv [" & txtmacv & "] ®· 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 ' Neu da ton tai va o che do sua, thi cap nhat lai noi dung ten chuc vu vao str = "update DMcv set tencv = '" & Trim(txttencv) & "' where macv ='" & Trim(txtmacv) & "'" cn.Execute (str) End If Lock_Text ' Khoa cac textbox Display_Listview ' Nap lai noi dung Listview cmdNew.SetFocus ' Chuyen quyen dieu khien chi nut moi Me.MousePointer = 0 End Sub 'Thu tuc khoi tao gia tri ban dau cho cac dieu khien Textbox Private Sub Set_Null() txtmacv = "" txttencv = "" End Sub Private Sub Sua_Du_Lieu() Un_Lock_Text txtmacv.Enabled = False txttencv.SetFocus End Sub 'Thu tuc dung de thuc hien viec xoa Record hien hanh Private Sub Xoa_Du_Lieu() Dim str Dim response If Trim(txtmacv) = "" Then ' Neu txtmacv trong thi ket thuc xoa Exit Sub End If MsgBox "B¹n cã ch¸c ch¾n xo¸ vïng d÷ liÖu nµy kh«ng?", vbYesNo + vbQuestion, "Th«ng b¸o" If response = vbNo Then ' Neu chon No thi ko xoa Exit Sub Else str = "delete from dmcv where macv='" & Trim(txtmacv) & "'" cn.Execute (str) ' Thi hanh query xoa record hien hanh trong Table DMCV End If Set_Null ' Khoi tao gia tri ban dau cho cac textbox Lock_Text ' Khoa cac textBox Display_Listview ' Hien thi lai du lieu trong listview tu Table DMCV End Sub 'Thu tuc bien co khi nhap nut bo qua Private Sub cmdSkip_Click() Set_Null ' Khoi tao lai gia tri ban dau cho cac textbox Lock_Text ' Khoa cac textbox End Sub Private Sub txtmacv_GotFocus() txtmacv.BackColor = &HC0E0FF ' Doi mau cho txtmacv End Sub Private Sub txtmacv_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten chucvu txttencv.SetFocus End Select End Sub Private Sub txtmacv_LostFocus() txtmacv.BackColor = &HFFFFFF ' Tra lai mau cu cho txtmacv txtmacv = Trim(txtmacv) ' Cat bo khoang trong trong noi dung text macv neu co End Sub Private Sub txttencv_GotFocus() txttencv.BackColor = &HC0E0FF ' Doi mau cho txttencv End Sub Private Sub txttencv_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang cmdSave cmdSave.SetFocus End Select End Sub Private Sub txttencv_LostFocus() txttencv.BackColor = &HFFFFFF ' Tra lai mau cu cho txttencv End Sub Danh mục cán bộ công nhân viên Option Explicit Private flag As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDel_Click() Xoa_Du_Lieu End Sub Private Sub cmdNew_Click() Un_Lock_Text ' Mo khoa cac TextBox Set_Null ' Khoi tao gia tri ban dau cho cac TextBox End Sub Private Sub cmdPrint_Click() If DE1.rsphong.State = 0 Then DE1.rsphong.Open 'Mo command nhanvien neu chua duoc mo End If DE1.rsphong.Requery 'refresh lai noi dung comand (recordset rsnhanvien) Report_nhanvien.Show 1 End Sub Private Sub cmdSave_Click() If flag "Update" Then ' Neu o che do them moi thi dat co Flag = "Save" flag = "Save" End If Luu_Du_Lieu End Sub Private Sub cmdSkip_Click() Set_Null ' Khoi tao lai gia tri ban dau cho cac textbox Lock_Text ' Khoa cac textbox End Sub Private Sub cmdUpdate_Click() flag = "Update" ' Chuyen vao che do sua Sua_Du_Lieu ' Goi thu tuc sua du lieu End Sub Private Sub Form_Load() Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = "C:\nhan luc\nhanluc.mdb" cn.Open Lock_Text Display_Listview End Sub Private Sub Lock_Text() txtmanv.Enabled = False txtmapb.Enabled = False txtmacv.Enabled = False txthoten.Enabled = False txtngaysinh.Enabled = False txtgioitinh.Enabled = False txtdiachi.Enabled = False txtsodt.Enabled = False txtquequan.Enabled = False txtthuongtru.Enabled = False txtdantoc.Enabled = False txttongiao.Enabled = False txtvanhoa.Enabled = False txtsocmnd.Enabled = False txtngaycap.Enabled = False txtnoicap.Enabled = False cmdSave.Enabled = False cmdSkip.Enabled = False cmdNew.Enabled = True cmdUpdate.Enabled = True cmdDel.Enabled = True flag = "" End Sub Private Sub Display_Listview() Dim rs As New ADODB.Recordset Dim str Dim mitem As ListItem lvitem.ListItems.Clear str = "select * from DMCBCNV order by manv asc" rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mitem = lvitem.ListItems.Add(, , rs!manv) mitem.SubItems(1) = rs!mapb mitem.SubItems(2) = rs!macv mitem.SubItems(3) = rs!hoten mitem.SubItems(4) = rs!ngaysinh mitem.SubItems(5) = rs!gioitinh mitem.SubItems(6) = rs!diachi mitem.SubItems(7) = rs!sodt mitem.SubItems(8) = rs!quequan mitem.SubItems(9) = rs!thuongtru mitem.SubItems(10) = rs!dantoc mitem.SubItems(11) = rs!tongiao mitem.SubItems(12) = rs!vanhoa mitem.SubItems(13) = rs!socmnd mitem.SubItems(14) = rs!ngaycap mitem.SubItems(15) = rs!noicap rs.MoveNext Wend End If End Sub Private Sub Form_Unload(Cancel As Integer) cn.Close End Sub Private Sub lvitem_ItemClick(ByVal Item As MSComctlLib.ListItem) txtmanv = Item.Text txtmapb = Item.SubItems(1) txtmacv = Item.SubItems(2) txthoten = Item.SubItems(3) txtngaysinh = Format(Item.SubItems(4), "dd/mm/yyyy") txtgioitinh = Item.SubItems(5) txtdiachi = Item.SubItems(6) txtsodt = Item.SubItems(7) txtquequan = Item.SubItems(8) txtthuongtru = Item.SubItems(9) txtdantoc = Item.SubItems(10) txttongiao = Item.SubItems(11) txtvanhoa = Item.SubItems(12) txtsocmnd = Item.SubItems(13) txtngaycap = Format(Item.SubItems(14), "dd/mm/yyyy") txtnoicap = Item.SubItems(15) End Sub Private Sub Un_Lock_Text() txtmanv.Enabled = True txtmapb.Enabled = True txtmacv.Enabled = True txthoten.Enabled = True txtngaysinh.Enabled = True txtgioitinh.Enabled = True txtdiachi.Enabled = True txtsodt.Enabled = True txtquequan.Enabled = True txtthuongtru.Enabled = True txtdantoc.Enabled = True txttongiao.Enabled = True txtvanhoa.Enabled = True txtsocmnd.Enabled = True txtngaycap.Enabled = True txtnoicap.Enabled = True txtmanv.SetFocus cmdSave.Enabled = True cmdSkip.Enabled = True cmdNew.Enabled = False cmdUpdate.Enabled = False cmdDel.Enabled = False End Sub Private Sub Set_Null() txtmanv = "" txtmapb = "" txtmacv = "" txthoten = "" txtngaysinh = "__/__/____" txtgioitinh = "" txtdiachi = "" txtsodt = "" txtquequan = "" txtthuongtru = "" txtdantoc = "" txttongiao = "" txtvanhoa = "" txtsocmnd = "" txtngaycap = "__/__/____" txtnoicap = "" End Sub Private Sub Luu_Du_Lieu() Dim rs As New ADODB.Recordset Dim str If Trim(txtmanv) = "" Or Trim(txtmapb) = "" Or Trim(txtmacv) = "" Or Trim(txthoten) = "" Or Trim(txtngaysinh) = "" Or Trim(txtgioitinh) = "" Or Trim(txtdiachi) = "" Or Trim(txtsodt) = "" Or Trim(txtquequan) = "" Or Trim(txtthuongtru) = "" Or Trim(txtdantoc) = "" Or Trim(txttongiao) = "" Or Trim(txtvanhoa) = "" Or Trim(txtsocmnd) = "" Or Trim(txtngaycap) = "" Or Trim(txtnoicap) = "" Then MsgBox "Chu y:phai nhap du lieu day du truoc khi luu", vbOKOnly + vbExclamation, "Thong bao" Exit Sub End If str = "select * from DMCBCNV where manv = '" & Trim(txtmanv) & "'" rs.Open str, cn If rs.EOF = True Then str = "Insert into DMCBCNV values('" & Trim(txtmanv) & "','" & Trim(txtmapb) & "','" & Trim(txtmacv) & "','" & Trim(txthoten) & "','" & Trim(txtngaysinh) & "','" & Trim(txtgioitinh) & "','" & Trim(txtdiachi) & "','" & Trim(txtsodt) & "','" & Trim(txtquequan) & "','" & Trim(txtthuongtru) & "','" & Trim(txtdantoc) & "','" & Trim(txttongiao) & "','" & Trim(txtvanhoa) & "','" & Trim(txtsocmnd) & "','" & Trim(txtngaycap) & "','" & Trim(txtnoicap) & "')" cn.Execute (str) ' Them mot record moi vao Table DMCBCNV Else ' Neu da ton tai thi If flag = "save" Then ' Va o che do them moi thi ko luu MsgBox "M· nv [" & txtmanv & "] ®· 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 ' Neu da ton tai va o che do sua, thi cap nhat lai noi dung theo ma nhan vien str = "update DMCBCNV set mapb = '" & Trim(txtmapb) & "', macv = '" & Trim(txtmacv) & "', hoten = '" & Trim(txthoten) & "', ngaysinh = #" & Trim(txtngaysinh) & "#, gioitinh = '" & Trim(txtgioitinh) & "', diachi = '" & Trim(txtdiachi) & "', sodt = '" & Trim(txtsodt) & "', quequan = '" & Trim(txtquequan) & "', thuongtru = '" & Trim(txtthuongtru) & "', dantoc = '" & Trim(txtdantoc) & "', tongiao = '" & Trim(txttongiao) & "', vanhoa = '" & Trim(txtvanhoa) & "', socmnd = '" & Trim(txtsocmnd) & "', ngaycap = #" & Trim(txtngaycap) & "#, noicap = '" & Trim(txtnoicap) & "' where manv = '" & Trim(txtmanv) & "'" cn.Execute (str) End If Lock_Text ' Khoa cac textbox Display_Listview ' Nap lai noi dung Listview cmdNew.SetFocus ' Chuyen quyen dieu khien chi nut moi Me.MousePointer = 0 End Sub 'Thu tuc dung de thuc hien viec xoa Record hien hanh Private Sub Xoa_Du_Lieu() Dim str Dim response If Trim(txtmanv) = "" Then ' Neu txtManv trong thi ket thuc xoa Exit Sub End If MsgBox "B¹n cã ch¸c ch¾n xo¸ vïng d÷ liÖu nµy kh«ng?", vbYesNo + vbQuestion, "Th«ng b¸o" If response = vbNo Then ' Neu chon No thi ko xoa Exit Sub Else str = "delete from DMCBCNV where manv='" & Trim(txtmanv) & "'" cn.Execute (str) ' Thi hanh query xoa record hien hanh trong Table DMCBCNV End If Set_Null ' Khoi tao gia tri ban dau cho cac textbox Lock_Text ' Khoa cac textBox Display_Listview ' Hien thi lai du lieu trong listview tu table pb End Sub Private Sub Sua_Du_Lieu() Un_Lock_Text txtmanv.Enabled = False txtmapb.SetFocus End Sub Private Sub txtmanv_GotFocus() txtmanv.BackColor = &HC0E0FF ' Doi mau cho textbox so CMND End Sub Private Sub txtmanv_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ngaycap txtmapb.SetFocus End Select End Sub Private Sub txtmanv_LostFocus() txtmanv.BackColor = &HFFFFFF ' Tra lai mau cu cho textbox so CMND txtmanv = Trim(txtmanv) ' Cat bo khoang trong trong noi dung txtManv neu co End Sub Private Sub txtmapb_GotFocus() txtmapb.BackColor = &HC0E0FF ' Doi mau cho txtdangvien End Sub Private Sub txtmapb_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ngayvao txtmacv.SetFocus End Select End Sub Private Sub txtmapb_LostFocus() txtmapb.BackColor = &HFFFFFF ' Tra lai mau cu cho txtdangvien End Sub Private Sub txtmacv_GotFocus() txtmacv.BackColor = &HC0E0FF ' Doi mau cho txtdantoc End Sub Private Sub txtmacv_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox so CMND txthoten.SetFocus End Select End Sub Private Sub txtmacv_LostFocus() txtmacv.BackColor = &HFFFFFF ' Tra lai mau cu cho txtdantoc End Sub Private Sub txthoten_GotFocus() txthoten.BackColor = &HC0E0FF ' Doi mau cho txtdiachi End Sub Private Sub txthoten_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox nghenghiep txtngaysinh.SetFocus End Select End Sub Private Sub txthoten_LostFocus() txthoten.BackColor = &HFFFFFF ' Tra lai mau cu cho txtdiachi End Sub Private Sub txtngaysinh_GotFocus() txtngaysinh.BackColor = &HC0E0FF ' Doi mau cho txtdienthoai End Sub Private Sub txtngaysinh_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox dantoc txtgioitinh.SetFocus End Select End Sub Private Sub txtngaysinh_LostFocus() txtngaysinh.BackColor = &HFFFFFF ' Tra lai mau cu cho txtdienthoai End Sub Private Sub txtgioitinh_Gotfocus() txtgioitinh.BackColor = &HC0E0FF ' Doi mau cho txtdoanvien End Sub Private Sub txtgioitinh_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox dangvien txtdiachi.SetFocus End Select End Sub Private Sub txtgioitinh_LostFocus() txtgioitinh.BackColor = &HFFFFFF ' Tra lai mau cu cho txtdoanvien End Sub Private Sub txtdiachi_Gotfocus() txtdiachi.BackColor = &HC0E0FF ' Doi mau cho txtgioitinh End Sub Private Sub txtdiachi_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox vanhoa txtsodt.SetFocus End Select End Sub Private Sub txtdiachi_LostFocus() txtdiachi.BackColor = &HFFFFFF ' Tra lai mau cu cho txtgioitinh End Sub Private Sub txtsocmnd_GotFocus() txtsocmnd.BackColor = &HC0E0FF ' Doi mau cho txtsocmnd End Sub Private Sub txtsocmnd_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox diachi txtngaycap.SetFocus End Select End Sub Private Sub txtsocmnd_LostFocus() txtsocmnd.BackColor = &HFFFFFF ' Tra lai mau cu cho txthoten End Sub Private Sub txtsodt_GotFocus() txtsodt.BackColor = &HC0E0FF ' Doi mau cho txthoten End Sub Private Sub txtsodt_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox diachi txtquequan.SetFocus End Select End Sub Private Sub txtsodt_LostFocus() txtsodt.BackColor = &HFFFFFF ' Tra lai mau cu cho txthoten End Sub Private Sub txtquequan_GotFocus() txtquequan.BackColor = &HC0E0FF ' Doi mau cho txtkhuvuc End Sub Private Sub txtquequan_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox thuongtru txtthuongtru.SetFocus End Select End Sub Private Sub txtquequan_LostFocus() txtquequan.BackColor = &HFFFFFF ' Tra lai mau cu cho txtkhuvuc End Sub Private Sub txtthuongtru_GotFocus() txtthuongtru.BackColor = &HC0E0FF ' Doi mau cho txtMacv End Sub Private Sub txtthuongtru_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ho ten txtdantoc.SetFocus End Select End Sub Private Sub txtthuongtru_LostFocus() txtthuongtru.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMacv End Sub Private Sub txtdantoc_GotFocus() txtdantoc.BackColor = &HC0E0FF ' Doi mau cho txtManv End Sub Private Sub txtdantoc_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txttongiao.SetFocus End Select End Sub Private Sub txtdantoc_LostFocus() txtdantoc.BackColor = &HFFFFFF ' Tra lai mau cu cho txtManv End Sub Private Sub txttongiao_GotFocus() txttongiao.BackColor = &HC0E0FF ' Doi mau cho txtMapb End Sub Private Sub txttongiao_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox macv txtvanhoa.SetFocus End Select End Sub Private Sub txttongiao_LostFocus() txttongiao.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMapb End Sub Private Sub txtvanhoa_GotFocus() txtvanhoa.BackColor = &HC0E0FF ' Doi mau cho txtngaycap End Sub Private Sub txtvanhoa_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox noicap txtsocmnd.SetFocus End Select End Sub Private Sub txtvanhoa_LostFocus() txtvanhoa.BackColor = &HFFFFFF ' Tra lai mau cu cho txtngaycap End Sub Private Sub txtngaycap_GotFocus() txtngaycap.BackColor = &HC0E0FF ' Doi mau cho txtngaysinh End Sub Private Sub txtngaycap_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox dienthoai txtnoicap.SetFocus End Select End Sub Private Sub txtngaycap_LostFocus() txtngaycap.BackColor = &HFFFFFF ' Tra lai mau cu cho txtngaysinh End Sub Private Sub txtnoicap_GotFocus() txtnoicap.BackColor = &HC0E0FF ' Doi mau cho txtngayvao End Sub Private Sub txtnoicap_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox noivao cmdSave.SetFocus End Select End Sub Private Sub txtnoicap_LostFocus() txtnoicap.BackColor = &HFFFFFF ' Tra lai mau cu cho txtngayvao End Sub Danh mục gia đình Option Explicit Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Private flag As String Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDel_Click() Xoa_Du_Lieu End Sub Private Sub cmdNew_Click() Un_Lock_Text ' Mo khoa cac TextBox Set_Null ' Khoi tao gia tri ban dau cho cac TextBox End Sub Private Sub cmdPrint_Click() Report_lylich.Show End Sub Private Sub cmdSave_Click() If flag "Update" Then ' Neu o che do them moi thi dat co Flag = "Save" flag = "Save" End If Luu_Du_Lieu End Sub Private Sub cmdUpdate_Click() flag = "Update" ' Chuyen vao che do sua Sua_Du_Lieu ' Goi thu tuc sua du lieu End Sub Private Sub Form_Load() ' open_mdb Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = "C:\nhan luc\nhanluc.mdb" cn.Open Lock_Text Display_Listview End Sub 'Thu tuc hien thi du lieu trong Table Giadinh ra Listview Private Sub Display_Listview() Dim rs As New ADODB.Recordset Dim str Dim mltem As ListItem lvitem.ListItems.Clear str = "select * from Giadinh order by stt asc" rs.Open str, cn If rs.EOF = False Then While Not rs.EOF Set mltem = lvitem.ListItems.Add(, , rs!stt) mltem.SubItems(1) = rs!manv mltem.SubItems(2) = rs!quanhe mltem.SubItems(3) = rs!hoten mltem.SubItems(4) = rs!ngaysinh mltem.SubItems(5) = rs!thuongtru mltem.SubItems(6) = rs!nghenghiep rs.MoveNext Wend End If End Sub Private Sub Form_Unload(Cancel As Integer) cn.Close End Sub Private Sub lvitem_ItemClick(ByVal Item As MSComctlLib.ListItem) txtstt = Item.Text txtmanv = Item.SubItems(1) txtquanhe = Item.SubItems(2) txthoten = Item.SubItems(3) txtngaysinh = Format(Item.SubItems(4), "dd/mm/yyyy") txtthuongtru = Item.SubItems(5) txtnghenghiep = Item.SubItems(6) End Sub Private Sub Un_Lock_Text() txtstt.Enabled = True txtmanv.Enabled = True txtquanhe.Enabled = True txthoten.Enabled = True txtngaysinh.Enabled = True txtthuongtru.Enabled = True txtnghenghiep.Enabled = True txtstt.SetFocus cmdSave.Enabled = True cmdSkip.Enabled = True cmdNew.Enabled = False cmdUpdate.Enabled = False cmdDel.Enabled = False End Sub Private Sub Luu_Du_Lieu() Dim rs As New ADODB.Recordset Dim str 'Neu stt hoac manv trong thi ko luu If Trim(txtstt) = "" Or Trim(txtmanv) = "" Or Trim(txtquanhe) = "" Or Trim(txthoten) = "" Or Trim(txtngaysinh) = "" Or Trim(txtthuongtru) = "" Or Trim(txtnghenghiep) = "" Then MsgBox "Chu y:phai nhap du lieu day du truoc khi luu", vbOKOnly + vbExclamation, "Thong bao" Exit Sub End If 'Tim xem stt nay da ton tai trong table Giadinh hay chua? str = "select * from Giadinh where stt ='" & Trim(txtstt) & "'" rs.Open str, cn If rs.EOF = True Then ' Neu chua ton tai str = "Insert into Giadinh values('" & Trim(txtstt) & "','" & Trim(txtmanv) & "','" & Trim(txtquanhe) & "','" & Trim(txthoten) & "','" & Trim(txtngaysinh) & "','" & Trim(txtthuongtru) & "','" & Trim(txtnghenghiep) & "')" cn.Execute (str) ' Them mot record moi vao Table Giadinh Else ' Neu da ton tai thi If flag = "save" Then ' Va o che do them moi thi ko luu MsgBox "Sè thø tù [" & txtstt & "] ®· 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 ' Neu da ton tai va o che do sua, thi cap nhat lai noi dung cua manv va ten cua cac thanh vien trong gia dinh ho str = "update Giadinh set manv = '" & Trim(txtmanv) & "', quanhe = '" & Trim(txtquanhe) & "', hoten = '" & Trim(txthoten) & "', ngaysinh = '" & Trim(txtngaysinh) & "', thuongtru = '" & Trim(txtthuongtru) & "', nghenghiep = '" & Trim(txtnghenghiep) & "' where stt ='" & Trim(txtstt) & "'" cn.Execute (str) End If Lock_Text ' Khoa cac textbox Display_Listview ' Nap lai noi dung Listview cmdNew.SetFocus ' Chuyen quyen dieu khien chi nut moi Me.MousePointer = 0 End Sub 'Thu tuc khoi tao gia tri ban dau cho cac dieu khien Textbox Private Sub Set_Null() txtstt = "" txtmanv = "" txtquanhe = "" txthoten = "" txtngaysinh = "__/__/____" txtthuongtru = "" txtnghenghiep = "" End Sub Private Sub Sua_Du_Lieu() Un_Lock_Text txtstt.Enabled = False txtmanv.SetFocus End Sub 'Thu tuc dung de thuc hien viec xoa Record hien hanh Private Sub Xoa_Du_Lieu() Dim str Dim response If Trim(txtstt) = "" Then ' Neu txtstt trong thi ket thuc xoa Exit Sub End If MsgBox "B¹n cã ch¸c ch¾n xo¸ vïng d÷ liÖu nµy kh«ng?", vbYesNo + vbQuestion, "Th«ng b¸o" If response = vbNo Then ' Neu chon No thi ko xoa Exit Sub Else str = "delete from Giadinh where stt='" & Trim(txtstt) & "'" cn.Execute (str) ' Thi hanh query xoa record hien hanh trong Table Giadinh End If Set_Null ' Khoi tao gia tri ban dau cho cac textbox Lock_Text ' Khoa cac textBox Display_Listview ' Hien thi lai du lieu trong listview tu table pb End Sub 'Thu tuc bien co khi nhap nut bo qua Private Sub cmdSkip_Click() Set_Null ' Khoi tao lai gia tri ban dau cho cac textbox Lock_Text ' Khoa cac textbox End Sub Private Sub txtstt_GotFocus() txtstt.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtstt_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txtmanv.SetFocus End Select End Sub Private Sub txtstt_LostFocus() txtstt.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa txtstt = Trim(txtstt) ' Cat bo khoang trong trong noi dung txtMa neu co End Sub Private Sub txtmanv_GotFocus() txtmanv.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtmanv_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txtquanhe.SetFocus End Select End Sub Private Sub txtmanv_LostFocus() txtmanv.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa End Sub Private Sub txtquanhe_GotFocus() txtquanhe.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtquanhe_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txthoten.SetFocus End Select End Sub Private Sub txtquanhe_LostFocus() txtquanhe.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa End Sub Private Sub txthoten_GotFocus() txthoten.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txthoten_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txtngaysinh.SetFocus End Select End Sub Private Sub txthoten_LostFocus() txthoten.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa End Sub Private Sub txtngaysinh_GotFocus() txtngaysinh.BackColor = &HC0E0FF ' Doi mau cho txthoten End Sub Private Sub txtngaysinh_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txtthuongtru.SetFocus End Select End Sub Private Sub txtngaysinh_LostFocus() txtngaysinh.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa End Sub Private Sub txtthuongtru_GotFocus() txtthuongtru.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtthuongtru_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txtnghenghiep.SetFocus End Select End Sub Private Sub txtthuongtru_LostFocus() txtthuongtru.BackColor = &HFFFFFF ' Tra lai mau cu cho txtthuongtru End Sub Private Sub txtnghenghiep_GotFocus() txtnghenghiep.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtnghenghiep_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh cmdSave.SetFocus End Select End Sub Private Sub txtnghenghiep_LostFocus() txtnghenghiep.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa End Sub Private Sub Lock_Text() txtstt.Enabled = False txtmanv.Enabled = False txtquanhe.Enabled = False txthoten.Enabled = False txtngaysinh.Enabled = False txtthuongtru.Enabled = False txtnghenghiep.Enabled = False cmdSave.Enabled = False cmdSkip.Enabled = False cmdNew.Enabled = True cmdUpdate.Enabled = True cmdDel.Enabled = True flag = "" End Sub Danh mục lý lịch cán bộ công nhân viên Option Explicit Private flag As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDel_Click() Xoa_Du_Lieu End Sub Private Sub cmdNew_Click() Un_Lock_Text ' Mo khoa cac TextBox Set_Null ' Khoi tao gia tri ban dau cho cac TextBox End Sub Private Sub cmdSave_Click() If flag "Update" Then ' Neu o che do them moi thi dat co Flag = "Save" flag = "Save" End If Luu_Du_Lieu End Sub Private Sub cmdUpdate_Click() flag = "Update" ' Chuyen vao che do sua Sua_Du_Lieu ' Goi thu tuc sua du lieu End Sub Private Sub Form_Load() ' open_mdb Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = "C:\nhan luc\nhanluc.mdb" cn.Open Lock_Text Display_Listview End Sub 'Thu tuc hien thi du lieu trong Table DMLylich ra Listview Private Sub Display_Listview() Dim rs As New ADODB.Recordset Dim str Dim mltem As ListItem lvitem.ListItems.Clear str = "select * from DMLylich order by manv asc" rs.Open str, cn If rs.EOF = False Then While Not rs.EOF Set mltem = lvitem.ListItems.Add(, , rs!manv) mltem.SubItems(1) = rs!trinhdo mltem.SubItems(2) = rs!chungchi mltem.SubItems(3) = rs!loai mltem.SubItems(4) = rs!khenthuong mltem.SubItems(5) = rs!kyluat mltem.SubItems(6) = rs!kinhnghiem mltem.SubItems(7) = rs!chinhtri mltem.SubItems(8) = rs!ngayvao mltem.SubItems(9) = rs!noivao rs.MoveNext Wend End If End Sub Private Sub Form_Unload(Cancel As Integer) cn.Close End Sub Private Sub lvitem_ItemClick(ByVal Item As MSComctlLib.ListItem) txtmanv = Item.Text txttrinhdo = Item.SubItems(1) txtchungchi = Item.SubItems(2) txtloai = Item.SubItems(3) txtkhenthuong = Item.SubItems(4) txtkyluat = Item.SubItems(5) txtkinhnghiem = Item.SubItems(6) txtchinhtri = Item.SubItems(7) txtngayvao = Format(Item.SubItems(8), "dd/mm/yyyy") txtnoivao = Item.SubItems(9) End Sub Private Sub Un_Lock_Text() txtmanv.Enabled = True txttrinhdo.Enabled = True txtchungchi.Enabled = True txtloai.Enabled = True txtkhenthuong.Enabled = True txtkyluat.Enabled = True txtkinhnghiem.Enabled = True txtchinhtri.Enabled = True txtngayvao.Enabled = True txtnoivao.Enabled = True txtmanv.SetFocus cmdSave.Enabled = True cmdSkip.Enabled = True cmdNew.Enabled = False cmdUpdate.Enabled = False cmdDel.Enabled = False End Sub Private Sub Lock_Text() txtmanv.Enabled = False txttrinhdo.Enabled = False txtchungchi.Enabled = False txtloai.Enabled = False txtkhenthuong.Enabled = False txtkyluat.Enabled = False txtkinhnghiem.Enabled = False txtchinhtri.Enabled = False txtngayvao.Enabled = False txtnoivao.Enabled = False cmdSave.Enabled = False cmdSkip.Enabled = False cmdNew.Enabled = True cmdUpdate.Enabled = True cmdDel.Enabled = True flag = "" End Sub Private Sub Luu_Du_Lieu() Dim rs As New ADODB.Recordset Dim str 'Neu ma PB hoac ten pb trong thi ko luu If Trim(txtmanv) = "" Or Trim(txttrinhdo) = "" Or Trim(txtchungchi) = "" Or Trim(txtloai) = "" Or Trim(txtkhenthuong) = "" Or Trim(txtkyluat) = "" Or Trim(txtkinhnghiem) = "" Or Trim(txtchinhtri) = "" Or Trim(txtngayvao) = "" Or Trim(txtnoivao) = "" Then MsgBox "Chu y:phai nhap du lieu day du truoc khi luu", vbOKOnly + vbExclamation, "Thong bao" Exit Sub End If 'Tim xem ma pb nay da ton tai trong table DMcv hay chua? str = "select * from DMLylich where manv ='" & Trim(txtmanv) & "'" rs.Open str, cn If rs.EOF = True Then ' Neu chua ton tai str = "Insert into DMLylich values('" & Trim(txtmanv) & "','" & Trim(txttrinhdo) & "','" & Trim(txtchungchi) & "','" & Trim(txtloai) & "','" & Trim(txtkhenthuong) & "','" & Trim(txtkyluat) & "','" & Trim(txtkinhnghiem) & "','" & Trim(txtchinhtri) & "','" & Trim(txtngayvao) & "','" & Trim(txtnoivao) & "')" cn.Execute (str) ' Them mot record moi vao Table DMPB Else ' Neu da ton tai thi If flag = "save" Then ' Va o che do them moi thi ko luu MsgBox "M· nv [" & txtmanv & "] ®· 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 ' Neu da ton tai va o che do sua, thi cap nhat lai noi dung ten tinh str = "update DMLylich set trinhdo = '" & Trim(txttrinhdo) & "', chungchi = '" & Trim(txtchungchi) & "', loai = '" & Trim(txtloai) & "', khenthuong = '" & Trim(txtkhenthuong) & "', kyluat = '" & Trim(txtkyluat) & "', kinhnghiem = '" & Trim(txtkinhnghiem) & "', chinhtri = '" & Trim(txtchinhtri) & "', ngayvao = '" & Trim(txtngayvao) & "', noivao = '" & Trim(txtnoivao) & "' where manv ='" & Trim(txtmanv) & "'" cn.Execute (str) End If Lock_Text ' Khoa cac textbox Display_Listview ' Nap lai noi dung Listview cmdNew.SetFocus ' Chuyen quyen dieu khien chi nut moi Me.MousePointer = 0 End Sub 'Thu tuc khoi tao gia tri ban dau cho cac dieu khien Textbox Private Sub Set_Null() txtmanv = "" txttrinhdo = "" txtchungchi = "" txtloai = "" txtkhenthuong = "" txtkyluat = "" txtkinhnghiem = "" txtchinhtri = "" txtngayvao = "__/__/____" txtnoivao = "" End Sub Private Sub Sua_Du_Lieu() Un_Lock_Text txtmanv.Enabled = False txttrinhdo.SetFocus End Sub 'Thu tuc dung de thuc hien viec xoa Record hien hanh Private Sub Xoa_Du_Lieu() Dim str Dim response If Trim(txtmanv) = "" Then ' Neu txtMa trong thi ket thuc xoa Exit Sub End If MsgBox "B¹n cã ch¸c ch¾n xo¸ vïng d÷ liÖu nµy kh«ng?", vbYesNo + vbQuestion, "Th«ng b¸o" If response = vbNo Then ' Neu chon No thi ko xoa Exit Sub Else str = "delete from DmLylich where manv='" & Trim(txtmanv) & "'" cn.Execute (str) ' Thi hanh query xoa record hien hanh trong Table pb End If Set_Null ' Khoi tao gia tri ban dau cho cac textbox Lock_Text ' Khoa cac textBox Display_Listview ' Hien thi lai du lieu trong listview tu table pb End Sub 'Thu tuc bien co khi nhap nut bo qua Private Sub cmdSkip_Click() Set_Null ' Khoi tao lai gia tri ban dau cho cac textbox Lock_Text ' Khoa cac textbox End Sub Private Sub txtchinhtri_GotFocus() txtchinhtri.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtchinhtri_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txtngayvao.SetFocus End Select End Sub Private Sub txtchinhtri_LostFocus() txtchinhtri.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa End Sub Private Sub txtkinhnghiem_GotFocus() txtkinhnghiem.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtkinhnghiem_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txtchinhtri.SetFocus End Select End Sub Private Sub txtkinhnghiem_LostFocus() txtkinhnghiem.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa End Sub Private Sub txtmanv_GotFocus() txtmanv.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtmanv_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txttrinhdo.SetFocus End Select End Sub Private Sub txtmanv_LostFocus() txtmanv.BackColor = &HFFFFFF ' Tra lai mau cu cho txtManv txtmanv = Trim(txtmanv) ' Cat bo khoang trong trong noi dung txtManv neu co End Sub Private Sub txtngayvao_GotFocus() txtngayvao.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtngayvao_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txtnoivao.SetFocus End Select End Sub Private Sub txtngayvao_LostFocus() txtngayvao.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa End Sub Private Sub txtnoivao_GotFocus() txtnoivao.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtnoivao_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh cmdSave.SetFocus End Select End Sub Private Sub txtnoivao_LostFocus() txtnoivao.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa End Sub Private Sub txttrinhdo_GotFocus() txttrinhdo.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txttrinhdo_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txtchungchi.SetFocus End Select End Sub Private Sub txttrinhdo_LostFocus() txttrinhdo.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa End Sub Private Sub txtchungchi_GotFocus() txtchungchi.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtchungchi_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txtloai.SetFocus End Select End Sub Private Sub txtchungchi_LostFocus() txtchungchi.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa End Sub Private Sub txtloai_GotFocus() txtloai.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtloai_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txtkhenthuong.SetFocus End Select End Sub Private Sub txtloai_LostFocus() txtloai.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa End Sub Private Sub txtkhenthuong_GotFocus() txtkhenthuong.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtkhenthuong_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txtkyluat.SetFocus End Select End Sub Private Sub txtkhenthuong_LostFocus() txtkhenthuong.BackColor = &HFFFFFF ' Tra lai mau cu cho txtkhenthuong End Sub Private Sub txtkyluat_GotFocus() txtkyluat.BackColor = &HC0E0FF ' Doi mau cho txtMa End Sub Private Sub txtkyluat_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ' Nhan Enter se chuyen focus sang textbox ten tinh txtkinhnghiem.SetFocus End Select End Sub Private Sub txtkyluat_LostFocus() txtkyluat.BackColor = &HFFFFFF ' Tra lai mau cu cho txtMa End Sub Danh mục chọn phòng ban Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim str Dim mltem As ListItem Private Sub cmdchon_Click() ' frmdmpb.txtmapb = Text1 ' frmdmpb.txttenpb = Text2 DE1.BCPB (Trim(Text1)) Report_CBCNV.Show 1 DE1.rsBCPB.Close 'Unload Me End Sub ' Thu tuc bien co click khi nhap nut them Private Sub cmdthem_Click() 'Unload Me frmdmpb.Show End Sub Private Sub cmdthoat_Click() Unload Me End Sub Private Sub Form_Activate() ' lvitem.Refresh Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = "C:\nhan luc\nhanluc.mdb" cn.Open Set rs = New ADODB.Recordset str = "select * from dmpb order by mapb asc" rs.Open str, cn lvitem.ListItems.Clear ', adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = False Then While Not rs.EOF Set mltem = lvitem.ListItems.Add(, , rs!mapb) mltem.SubItems(1) = rs!tenpb rs.MoveNext Wend End If End Sub Private Sub Form_Load() ' open_mdb End Sub Private Sub Form_Unload(Cancel As Integer) cn.Close End Sub Private Sub lvitem_ItemClick(ByVal Item As MSComctlLib.ListItem) Text1 = Item.Text Text2 = Item.SubItems(1) End Sub Private Sub lvitem_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cmdchon.SetFocus End Select End Sub Danh sách nhân viên ' Thu tuc bien co Click khi nhap nut In Private Sub cmdin_Click() Dim str str = " SELECT dmlylich.chungchi, dmlylich.trinhdo, dmpb.tenpb, dmcbcnv.* From dmcbcnv, dmpb, dmlylich WHERE dmcbcnv.mapb=dmpb.mapb and dmlylich.manv=dmcbcnv.manv" If opttk(0).Value Then str = str & " and dmcbcnv.hoten ='" & txttimkiem & "'" End If 'Que quan If opttk(1).Value Then str = str & " and dmcbcnv.quequan ='" & txttimkiem & "'" End If 'Chung chi If opttk(2).Value Then str = str & " and dmlylich.chungchi ='" & txttimkiem & "'" End If ' Ton giao If opttk(3).Value Then str = str & " and dmcbcnv.tongiao ='" & txttimkiem & "'" End If ' Trinh do If opttk(4).Value Then str = str & " and dmlylich.trinhdo ='" & txttimkiem & "'" End If ' Gioi tinh If opttk(5).Value Then str = str & " and dmcbcnv.gioitinh ='" & txttimkiem & "'" End If ' Dia chi If opttk(6).Value Then str = str & " and dmcbcnv.diachi Like'%" & txttimkiem & "%'" End If DE1.Commands(4).CommandText = str If DE1.rsTimkiem.State = 0 Then DE1.rsTimkiem.Open End If DE1.rsTimkiem.Requery Report_timkiem.Show 1 End Sub Private Sub cmdthoat_Click() Unload Me End Sub Menu chính của chương trình Private Sub Form_Load() End Sub Private Sub mnuinput_Click(Index As Integer) Select Case Index Case 0: frmdmcv.Show Case 1: frmchon_pb.Show Case 2: frmdmcbcnv.Show Case 3: frmlylich.Show Case 4: frmdmgiadinh.Show End Select End Sub Private Sub mnurp_Click(Index As Integer) Select Case Index Case 0: Report_phongban.Show Case 1: Report_nhanvien.Show End Select End Sub Private Sub Mnuthoat_Click() End End Sub Private Sub mnutk_Click(Index As Integer) Select Case Index Case 0: frmtimkiem.Show Case 1: Report_lylich.Show End Select End Sub