Đang tải... (xem toàn văn)
Tìm hiểu thực tế công tác quản lý hồ sơ cán bộ của Khoa Công nghệ thông tin; thiết kế một số chức năng của bài toán bằng phần mềm Visual Basic 6.0, bước đầu xây dựng và chạy thử chương trình. Từ đó rút ra những kết quả đạt được và hạn chế của bài toán nhằm giúp người trực tiếp làm công tác quản lý hồ sơ có thể sử dụng và khai thác hiệu quả công tác quản lý hồ sơ cán bộ tại đơn vị mình.
LỜI CẢM ƠN Trong suốt q trình thực hiện đồ án tốt nghiệp, với sự nỗ lực học hỏi của bản thân, cùng với sự tạo điều kiện về thời gian, cơng việc của các thầy cơ giáo trong khoa đến nay em đã hồn thành đồ án tốt nghiệp của mình với đề tài"Xây dựng chương trình quản lý nhân sự Khoa Cơng nghệ thơng tin” Đề tài của em đã đạt được kết quả như ngày hơm nay là nhờ được sự quan tâm, tận tình chỉ bảo của cơ giáo Nguyễn Thị Tuyển đã hướng dẫn em và các thầy cơ giáo trong Khoa. Tiếp đến là sự động viên của gia đình và ý kiến đóng góp của các bạn cùng lớp. Qua đây em xin bày tỏ lịng biết ơn sâu sắc tới cơ giáo Nguyễn Thị Tuyển , gia đình và bạn bè đã giúp em hồn thành đồ án tốt nghiệp này. Thái Ngun, ngày 01 tháng 05 năm 2008 Sinh viên Nguyễn Việt Hưng MỤC LỤC LỜI CẢM ƠN 1 CHƯƠNG 1 8 TỔNG QUAN VỀ NGÔN NGỮ VISUAL BASIC 6.0 8 CHƯƠNG 2 19 PHÂN TÍCH BÀI TỐN QUẢN LÝ HỒ SƠ CÁN BỘ 19 CHƯƠNG 3 34 PHÂN TÍCH HỆ THỐNG QUẢN LÝ HỒ SƠ CÁN BỘ 34 CHƯƠNG 4 59 THIẾT KẾ CHƯƠNG TRÌNH 59 KẾT LUẬN 65 1. Kết quả đạt được 65 2. Hạn chế 65 3. Hướng mở rộng của đề tài 66 PHẦN PHỤ LỤC 67 NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN 84 LỜI NĨI ĐẦU 1. Tính cấp thiết của đề tài Bước vào thế kỷ XXI, thế kỷ của sự phát triển cơng nghệ thơng tin đặc biệt là sự phát triển mạnh mẽ trong việc truy cập Internet hay các Website và các dịch vụ trên mạng như: thương mại điện tử, đào tạo từ xa, các dịch vụ giải trí, du lịch, các thơng tin văn hố xã hội… Cơng nghệ thơng tin đã tham gia vào tất cả các lĩnh vực của xã hội, các mạng máy tính giúp cho cơng việc trở nên nhanh chóng, chính xác với một khối lượng lớn, xử lý thơng tin trong một thời gian ngắn. Các sản phẩm của ngành cơng nghệ thơng tin là: phần cứng, phần mềm, trí tuệ nhân tạo được ứng dụng hầu hết trong các lĩnh vực khác nhau của xã hội, chính vì sự phát triển ưu thế của lĩnh vực này mà nhiều cơ quan, xí nghiệp, cơng ty, trường học có nhu cầu tin học hố trong cơng tác quản lý của mình Cơng nghệ thơng tin đang đưa mọi người vào một kỷ ngun thơng tin mở rộng và tin cậy. Sự mở rộng này giúp ích con người được rất nhiều trong cơng việc tưởng như khơng làm được. Cơng nghệ thơng tin đã thâm nhập vào tất cả các lĩnh vực của cuộc sống, Cơng nghệ thơng tin cho phép truy nhập và khai thác các cơ sở dữ liệu thuộc nhiều lĩnh vực kinh tế xã hội, các ngành nghề khác nhau như các thông tin về khoa học kỹ thuật, giáo dục và đào tạo, y tế, thương mại, thị trường giá cả, dự báo thời tiết… và rất nhiều các dịch vụ thương mại điện tử như một cơng cụ đắc lực khơng thể thiếu Thực tế, Cơng nghệ thơng tin đang diễn ra hết sức sơi động hầu khắp các quốc gia trên thế giới, cuộc cách mạng này nhằm chuyển dịch từ trọng tâm là cung cấp hàng hố sang trọng tâm là cung cấp thơng tin cơng nghệ cao và trí tuệ. Một xã hội mà trong đó thơng tin ln được sử dụng với tốc độ cao, như một khía cạnh của đời sống khoa học xã hội và chính trị Cơng nghệ thơng tin đã hỗ trợ đắc lực cho con người và giải phóng con người khỏi các cơng việc thủ cơng, nhàm chán, vất vả Ngày nay, việc phổ cập, sử dụng, khai thác máy tính điện tử trong các cơng việc như quản lý, thương mại, tài chính… và các ngành cơng nghệ khác đã khiến cho nhu cầu trao đổi thơng tin ngày càng lớn. Từ đó thúc đẩy các mạng dữ liệu điện tử, các dịch vụ thơng tin bao qt tồn bộ các lĩnh vực kinh tế, văn hố, y tế, giáo dục đào tạo và các hoạt động khác như: ngân hàng điện tử, quản lý dự án… Việc thiết kế và chế tạo hệ thống máy tính đã mang lại cho con người rất nhiều thành quả to lớn trong cuộc sống Vì vậy, một lần nữa có thể khẳng định việc ứng dụng cơng nghệ thơng tin vào thực tiễn cơng việc của mỗi cá nhân nói riêng và các hoạt động của xã hội nói chung là hồn tồn phù hợp và cần thiết hơn bao giờ hết Bài tốn quản lý nói chung cũng như bài tốn quản lý hồ sơ cán bộ nói riêng đã khơng cịn mới mẻ trong cơng tác quản lý của các nhà trường, tuy nhiên đối với đặc thù của từng đơn vị, chương trình địi hỏi phải mang tính hiện thực và đáp ứng được nhu cầu của người sử dụng Là một sinh viên đang nghiên cứu, học tập tại Khoa Cơng nghệ thơng tin, mặc dù hiện nay Khoa đã có một phần mềm quản lý nhân sự nhưng như đã nói ở trên phần mềm này chưa hồn tồn phù hợp với đặc thù của Khoa, xuất phát từ thực tế khảo sát cơng tác quản lý hồ sơ cán bộ của Khoa Cơng nghê thơng tin nên em quyết định chọn đề tài “Xây dựng chương trình Quản lý nhân sự Khoa Cơng nghệ thơng tin” làm đề tài tốt nghiệp 2. Mục đích nghiên cứu của đề tài Tìm hiểu thực tế cơng tác quản lý hồ sơ cán bộ của Khoa Cơng nghệ thơng tin; thiết kế một số chức năng của bài tốn bằng phần mềm Visual Basic 6.0, bước đầu xây dựng và chạy thử chương trình. Từ đó rút ra những kết quả đạt được và hạn chế của bài tốn nhằm giúp người trực tiếp làm cơng tác quản lý hồ sơ có thể sử dụng và khai thác hiệu quả cơng tác quản lý hồ sơ cán bộ tại đơn vị mình 3. Đối tượng nghiên cứu của đề tài Chương trình Quản lý nhân sự Khoa Cơng nghệ thơng tin 4. Nhiệm vụ nghiên cứu Bước đầu Phân tích, Thiết kế hệ thống thơng tin và Hệ quản trị cơ sở dữ liệu Visual Basic 6.0 Tìm hiểu cơ sở của cơng tác quản lý hồ sơ Khảo sát, đánh giá hiện trạng hệ thống quản lý hồ sơ cán bộ Khoa Cơng nghệ thơng tin Phân tích và thiết kế hệ thống quản lý Hồ sơ cán bộ Khoa Cơng nghệ thơng tin Xây dựng và cài đặt chương trình Kết luận: đánh giá kết quả đạt được và hạn chế của chương trình, đồng thời đưa ra giải pháp cũng như hướng mở rộng của chương trình 5. Phương pháp nghiên cứu Khảo sát hiện trạng; Tìm hiểu trực tiếp và trao đổi với Lãnh đạo phịng Tổng hợp; Khái qt và đi đến phân tích chi tiết bài tốn; Xây dựng, cài đặt và chạy thử nghiệm chương trình Vì thời gian tìm hiểu cịn hạn hẹp, vốn kiến thức mới được trang bị cịn nhiều hạn chế, chắc chắn báo cáo cịn nhiều thiếu xót, em rất mong nhận được những ý kiến đóng góp, chỉ bảo kịp thời của các thầy cơ giáo, các bạn để đề tài tốt nghiệp của em được đầy đủ và hồn thiện hơn Em xin chân thành cảm ơn! CHƯƠNG 1 TỔNG QUAN VỀ NGƠN NGỮ VISUAL BASIC 6.0 1.1. GIỚI THIỆU Visual Basic là một cơng cụ lập trình trực quan của Microsoft, giúp chúng ta có thể xây dựng một cách nhanh và hiệu quả các ứng dựng trên Windows. Khác với các mơi trường lập trình hướng thủ tục trước đây Visual Basic là mơi trường lập trình hướng đối tượng trên Windows Visual Basic khơng chỉ cung cấp một bộ cơng cụ hồn chỉnh để đơn giản hố việc triển khai lập trình ứng dụng, mà Visual Basic cịn cung cấp cho chúng ta cơng cụ để kết nối CSDL một cách thật dễ dàng Khi thiết kế một chương trình bằng Visual Basic người làm ln phải trải qua hai bước chính đó là: Thiết kế giao diện: Thiết kế giao diện chính là thiết kế hình dạng của Form, việc bố trí các điều khiển trên đó như thế nào Viết lệnh cho các điều khiển: Dùng các lệnh trong Visual Basic để quy định cách ứng xử cho mỗi Form và cho mỗi Control 1.2. ĐỐI TƯỢNG VÀ CÁCH SỬ DỤNG ĐỐI TƯỢNG 1.2.1. Đối tượng (Object) Như trên đã nói Visual Basic là một ngơn ngữ lập trình theo kiểu hướng đối tượng vì vậy làm việc với Visual Basic chính là làm việc với các đối tượng Đặc điểm của các đối tượng trong chương trình: Mỗi đối tượng đều có một tên để phân biệt Mối đối tượng đều có nhiều đặc tính, những đặc tính này được gọi là các thuộc tính (Property) của đối tượng đó Mỗi đối tượng này đều có nhiều hoạt động và các hoạt động này được gọi là các phương thức (Method) của nó Mỗi đối tượng đều có những phản ứng (sự kiện) 1.2.2. Cách truy xuất đối tượng Truy xuất đối tượng là đặt các thuộc tính cho đối tượng này, bất cứ khi nào bạn truy xuất đối tượng đều được viết theo cú pháp sau: . 1.2.3. Viết lệnh cho đối tượng Khi người làm đặt một điều khiển lên Form lúc đầu nó chưa hoạt động vì vậy, phải viết lệnh cho đối tượng bằng cách chọn đối tượng sau đó vào Menu View/Code (hoặc Double Click vào đối tượng hoặc Right Click vào đối tượng sau đó chọn View Code) khi đó cửa sổ lệnh hiện ra, chúng ta có thể viết lệnh vào cửa sổ đó. Mỗi phần mã lệnh cho một sự kiện xảy ra trên một đối tượng đều có hai dịng tiêu đề đầu là Sub và cuối là End Sub bạn hãy giữ ngun hai dịng này và viết mã lệnh vào giữa hai dịng đó Visual Basic có đặc điểm là tự kiểm tra cú pháp khi chúng ta viết lệnh. Khi viết xong một dịng lệnh và chuyển sang một dịng lệnh khác thì VB sẽ kiểm tra câu lệnh vừa viết nếu có lối thì sẽ báo cịn lại tự động đối chữ thường, chữ hoa cho chương trình được rõ ràng 1.3. CỬA SỔ PROPERTIES Cửa sổ này cho phép lập trình viên xem xét và sửa đổi các thuộc tính của biểu mẫu và các điều khiển trong lúc thiết kế Phần trên cửa sổ là danh sách các đối tượng. Đối tượng được chọn trong danh sách này sẽ có các thuộc tính của nó hiển thị ở phần bên dưới của cửa sổ 1.4. BIẾN, HẰNG VÀ CÁC KIỂU DỮ LIỆU 1.4.1. Biến Biến được dùng để lưu tạm thời các giá trị tính tốn trong q trình xử lý của chương trình Khi xử lý một chương trình người làm ln cần phải lưu trữ một giá trị nào đó để tính tốn hoặc để so sánh… Mỗi biến đặc trưng tên, biến khơng có sẵn chương trình muốn sử dụng chúng thì phải khai báo bằng một trong các cách thức sau: Dim/Static/Public/Global As Khai báo với từ khóa Dim, Static dùng để khai báo cho những biến cục bộ. Khai báo với từ khóa Public, Global dùng để khai báo biến dùng chung cho tồn bộ chương trình 1.4.2. Hằng Hằng dùng để chứa những dữ liệu tạm thời nhưng khơng thay đổi trong suốt thời gian chương trình hoạt động. Sử dụng hằng số làm chương trình sáng sủa, dễ đọc nhờ những tên gợi nhớ thay vì các con số. VB cung cấp một số hằng định nghĩa sẵn, nhưng ta cũng có thể tự tạo hằng Khai báo hằng: [Public| Private] const As = 1.4.3. Các kiểu dữ liệu cơ bản trong VB6.0 Khi khai báo một biến trong chương trình tức là chúng ta đã tạo ra một khoảng bộ nhớ để lưu giá trị đó, khoảng bộ nhớ đó lớn hay nhỏ tùy thuộc vào biến đó được khai báo theo kiểu gì. Khi khai báo điều quan trọng là xác định biến cho phù hợp với các giá trị đưa vào Các kiể u d ữ li ệ u chuẩ n nh ư: String: Là dữ liệu kiểu chuỗi, khoảng giá trị có thể lên đến hai tỷ ký tự. Nhận biết biến này bằng tiếp vĩ ngữ $ Byte: Là các số nguyên dương, khoảng giá trị từ 0 đến 255 Long: Là các số nguyên, khoảng giá trị từ –2.147.483.648 đến 2.147.483.647. Nhận biết biến này bằng dấu & ở cuối Integer: Là các số ngun. Nhận biết dấu này bằng dấu % ở cuối Single: Là các số có dấu chấm thập phân. Nhận biết dấu này bằng dấu ! ở cuối Double: Là các số có dấu chấm thập phân. Nhận biết bằng dấu # ở cuối Date: Lưu trữ thơng tin về thời gian. Nhận biết bằng dấu # ở đầu và ở cuối Boolean: Biến logic có giá trị là true, hay false dùng để gán giá trị trong các câu lệnh điều kiện . 1.5. CẤU TRÚC ĐIỀU KHIỂN 10 cn.Close frameCapNhat.Visible=False frameDanhSach.Visible=True LoadCSDL lblTieude.Caption="sơyếulýlịch" ExitSub Err: MsgBox"Banchuanhapduthongtinhoacthongtinnhapkhongdung", vbOKOnly EndSub PrivateSubcmdDanhSach_Click() XemDanhSach End Sub Private Sub cmdGhi_Click() On Error GoTo Err Dim strSQL As String Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = App.Path & "\QuanLyHoSo_97.mdb" cn.Open strSQL = "SELECT * FROM tblSoYeuLyLich" Set rs = New ADODB.Recordset rs.LockType = adLockOptimistic rs.Source = strSQL rs.ActiveConnection = cn rs.Open rs.AddNew 71 With rs .Fields("MaDanToc") = cboDanToc.ItemData(cboDanToc.ListIndex) .Fields("MaCS") = cboDienCS.ItemData(cboDienCS.ListIndex) .Fields("GioiTinh") = (cboGioiTinh.List(cboGioiTinh.ListIndex) = "Nam") .Fields("MaTonGiao") = cboTonGiao.ItemData(cboTonGiao.ListIndex) .Fields("MaNgach") = cboNgach.ItemData(cboNgach.ListIndex) .Fields("MaTPXT") = cboTPGD.ItemData(cboTPGD.ListIndex) .Fields("BiDanh") = txtBiDanh.Text & "" .Fields("CamDoan") = txtCamDoan.Text .Fields("SoCMTND") = txtCMTND.Text .Fields("DiaChiTT") = txtDiaChi.Text .Fields("SoDT_DiDong") = txtDTDD.Text & "" .Fields("SoDT_NR") = txtDTNR.Text & "" .Fields("EMail") = txtEMail.Text & "" .Fields("NangKhieu") = txtNangKhieu.Text & "" .Fields("NgayVaoBC") = txtNgayBC.Text .Fields("NgayCap") = txtNgayCap.Text .Fields("NgaySinh") = Me.txtNgaySinh.Text .Fields("NgayVeCoQuan") = Me.txtNgayVeCQ.Text .Fields("NguyenQuan") = Me.txtNguyenQuan.Text .Fields("NoiCap") = Me.txtNoiCap.Text .Fields("NoiKetNapDoan") = Me.txtNoiKetNapDoan.Text & "" .Fields("NoiSinh") = Me.txtNoiSinh.Text .Fields("SoHieuCC") = Me.txtSoHieuCC.Text .Fields("TenKhaiSinh") = Me.txtTenKhaiSinh.Text .Fields("TenThuongGoi") = Me.txtTenThuongGoi.Text .Fields("ThuongBinhHang") = Me.txtThuongBinh.Text .Fields("TinhTrangSK") = Me.txtTinhTrangSK.Text .Fields("TrinhDoVH") = Me.txtTrinhDoVH.Text If txtNgayNhapNgu = "" Then .Fields("NgayNhapNgu") = 0 72 Else .Fields("NgayNhapNgu") = txtNgayNhapNgu.Text End If If txtNgayXuatNgu = "" Then .Fields("NgayXuatNgu") = 0 Else .Fields("NgayXuatNgu") = Me.txtNgayXuatNgu.Text End If If txtNgayVaoDoan = "" Then .Fields("NgayVaoDoan") = 0 Else .Fields("NgayVaoDoan") = Me.txtNgayVaoDoan.Text End If If txtNgayVaoDang.Text "" Then .Fields("LaDangVien") = True .Fields("NoiKetNapDang") = Me.txtNoiKetNapDang.Text .Fields("NgayVaoDang") = Me.txtNgayVaoDang.Text .Fields("NgayChinhThuc") = Me.txtNgayChinhThuc.Text Else .Fields("LaDangVien") = False .Fields("NoiKetNapDang") = "" .Fields("NgayVaoDang") = 0 .Fields("NgayChinhThuc") = 0 End If End With rs.Update rs.Close Set rs = Nothing cn.Close cmdNhapLai_Click 73 Exit Sub Err: MsgBox "Ban chua nhap du thong tin hoac thong tin nhap khong dung", vbOKOnly End Sub Private Sub cmdNhapLai_Click() Me.cboDanToc.Refresh Me.cboDienCS.Refresh Me.cboGioiTinh.Refresh Me.cboTonGiao.Refresh Me.cboTPGD.Refresh Me.txtBiDanh.Text = "" Me.txtCamDoan.Text = "" Me.txtCMTND.Text = "" Me.txtDiaChi.Text = "" Me.txtDTDD.Text = "" Me.txtDTNR.Text = "" Me.txtEMail.Text = "" Me.txtNangKhieu.Text = "" Me.txtNgayBC.Text = "" Me.txtNgayCap.Text = "" Me.txtNgayChinhThuc.Text = "" Me.txtNgayNhapNgu.Text = "" Me.txtNgaySinh.Text = "" Me.txtNgayVaoDang.Text = "" Me.txtNgayVaoDoan.Text = "" Me.txtNgayVeCQ.Text = "" Me.txtNgayXuatNgu.Text = "" Me.txtNguyenQuan.Text = "" Me.txtNoiCap.Text = "" 74 Me.txtNoiKetNapDang.Text = "" Me.txtNoiKetNapDoan.Text = "" Me.txtNoiSinh.Text = "" Me.txtSoHieuCC.Text = "" Me.txtTenKhaiSinh.Text = "" Me.txtTenThuongGoi.Text = "" Me.txtThuongBinh.Text = "" Me.txtTinhTrangSK.Text = "" Me.txtTrinhDoVH.Text = "" txtTenKhaiSinh.SetFocus End Sub Private Sub cmdSua_Click() Dim strSQL As String Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = App.Path & "\QuanLyHoSo_97.mdb" cn.Open Dim MaCanBo As String MaCanBo = msfDanhSach.RowData(msfDanhSach.Row) strSQL = "SELECT * FROM tblSoYeuLyLich WHERE MaCanBo = " & MaCanBo Set rs = New ADODB.Recordset rs.LockType = adLockOptimistic rs.Source = strSQL rs.ActiveConnection = cn 75 rs.Open If rs.EOF And rs.BOF Then MsgBox "Danh sa'ch tro^'ng", vbCritical Exit Sub End If With rs SelectItemData Me.cboDanToc, .Fields("MaDanToc") SelectItemData Me.cboDienCS, .Fields("MaCS") SelectItemData Me.cboTonGiao, .Fields("MaTonGiao") SelectItemData Me.cboTPGD, .Fields("MaTPXT") SelectItemData Me.cboNgach, .Fields("MaNgach") If .Fields("GioiTinh") Then cboGioiTinh.ListIndex = 0 Else cboGioiTinh.ListIndex = 1 End If Me.txtBiDanh.Text = .Fields("BiDanh") & "" Me.txtCamDoan.Text = .Fields("CamDoan") & "" Me.txtCMTND.Text = .Fields("SoCMTND") & "" Me.txtDiaChi.Text = .Fields("DiaChiTT") & "" Me.txtDTDD.Text = .Fields("SoDT_DiDong") & "" Me.txtDTNR.Text = .Fields("SoDT_NR") & "" Me.txtEMail.Text = .Fields("EMail") & "" Me.txtNangKhieu.Text = .Fields("NangKhieu") & "" Me.txtNgayBC.Text = .Fields("NgayVaoBC") Me.txtNgayCap.Text = .Fields("NgayCap") 'If .Fields("NgayChinhThuc") = 0 Then ' Me.txtNgayChinhThuc.Text = 0 ' Else Me.txtNgayChinhThuc.Text = .Fields("NgayChinhThuc") 76 'End If 'If Format(.Fields("NgayNhapNgu"), 0) = 0 Then ' Me.txtNgayNhapNgu.Text = 0 ' Else Me.txtNgayNhapNgu.Text = .Fields("NgayNhapNgu") 'End If 'If Format(.Fields("NgayVaoDang"), 0) = 0 Then ' Me.txtNgayVaoDang.Text = 0 ' Else Me.txtNgayVaoDang.Text = .Fields("NgayVaoDang") 'End If 'If Format(.Fields("NgayVaoDoan"), 0) = 0 Then ' Me.txtNgayVaoDoan.Text = 0 ' Else Me.txtNgayVaoDoan.Text = .Fields("NgayVaoDoan") 'End If 'If Format(.Fields("NgayXuatNgu"), 0) = 0 Then ' Me.txtNgayXuatNgu.Text = 0 ' Else Me.txtNgayXuatNgu.Text = .Fields("NgayXuatNgu") 'End If Me.txtNgaySinh.Text = .Fields("NgaySinh") Me.txtNgayVeCQ.Text = .Fields("NgayVeCoQuan") Me.txtNguyenQuan.Text = .Fields("NguyenQuan") Me.txtNoiCap.Text = .Fields("NoiCap") Me.txtNoiKetNapDang.Text = .Fields("NoiKetNapDang") & "" Me.txtNoiKetNapDoan.Text = .Fields("NoiKetNapDoan") & "" Me.txtNoiSinh.Text = .Fields("NoiSinh") Me.txtSoHieuCC.Text = .Fields("SoHieuCC") 77 Me.txtTenKhaiSinh.Text = .Fields("TenKhaiSinh") Me.txtTenThuongGoi.Text = .Fields("TenThuongGoi") & "" Me.txtThuongBinh.Text = .Fields("ThuongBinhHang") Me.txtTinhTrangSK.Text = .Fields("TinhTrangSK") Me.txtTrinhDoVH.Text = .Fields("TrinhDoVH") End With ChoPhepCapNhat End Sub Private Sub cmdThem_Click() ChoPhepGhi cmdNhapLai_Click End Sub Private Sub cmdXoa_Click() Dim strSQL As String Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = App.Path & "\QuanLyHoSo_97.mdb" cn.Open Dim MaCanBo As String MaCanBo = msfDanhSach.RowData(msfDanhSach.Row) strSQL = "SELECT * FROM tblSoYeuLyLich WHERE MaCanBo = " & MaCanBo Set rs = New ADODB.Recordset rs.LockType = adLockOptimistic rs.Source = strSQL rs.ActiveConnection = cn 78 rs.Open If rs.EOF And rs.BOF Then MsgBox "Danh sa'ch tro^'ng", vbCritical Exit Sub End If rs.Delete rs.Close XemDanhSach End Sub Private Sub Form_Load() SetupItemsCombo cboDanToc, "MaDanToc", "TenDanToc", "tblDanToc" SetupItemsCombo cboTonGiao, "MaTonGiao", "TenTonGiao", "tblTonGiao" SetupItemsCombo cboTPGD, "MaTPXT", "TenTPXT", "tblThanhPhanXuatThan" SetupItemsCombo cboDienCS, "MaCS", "DienCS", "tblGiaDinhChinhSach" SetupItemsCombo cboNgach, "MaNgach", "TenNgach", "tblNgachCongChuc" cboGioiTinh.AddItem "Nam" cboGioiTinh.AddItem "N÷" 'MsgBox Format(txtNgayNhapNgu, "dd/mm/yyyy") SetupTable XemDanhSach End Sub Private Sub txtNgaySinh_Change() 'txtNgaySinh.Text = Format(txtNgaySinh.Text, "dd/mm/yy") End Sub Private Sub LoadCSDL() Dim strSQL As String 79 Dim i As Integer Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = App.Path & "\QuanLyHoSo_97.mdb" cn.Open strSQL = "SELECT * FROM tblSoYeuLyLich" Set rs = New ADODB.Recordset 'rs.LockType = adLockOptimistic rs.Source = strSQL rs.ActiveConnection = cn rs.Open rs.MoveFirst i = 1 msfDanhSach.Rows = 1 While Not rs.EOF With msfDanhSach .AddItem i .Row = i .Col = 0 .Text = i .RowData(i) = rs.Fields("MaCanBo") .Col = 1 .CellAlignment = 1 .Text = rs.Fields("TenKhaiSinh") .Col = 2 .CellAlignment = 1 If IsDate(rs("NgaySinh")) Then .Text = rs.Fields("NgaySinh") 'Format(rs.Fields("NgaySinh"), "dd/MM/yyyy") End If 80 .Col = 3 .CellAlignment = 1 If rs.Fields("GioiTinh") Then .Text = "Nam" Else .Text = "N÷" End If .Col = 4 .CellAlignment = 1 .Text = rs.Fields("DiaChiTT") .Col = 5 .CellAlignment = 1 .Text = rs.Fields("SoDT_DiDong") End With i = i + 1 rs.MoveNext Wend rs.Close Set rs = Nothing cn.Close msfDanhSach.Row = 1 msfDanhSach.Col = 1 End Sub Private Sub SetupTable() msfDanhSach.Font = ".VnArial" 'msfDanhSach.CellFontSize = 14 'msfDanhSach.FontWidth = 10 With msfDanhSach .Rows = 1 .Cols = 6 81 .ColWidth(0) = 500 .ColWidth(1) = 2500 .ColWidth(2) = 2000 .ColWidth(3) = 1500 .ColWidth(4) = 5000 .ColWidth(5) = 2500 .Row = 0 .Col = 0 .ColAlignment(0) = 3 .Text = "STT" .Col = 1 .ColAlignment(1)=3 '.CellFontSize=12 .Text="Têncánbộ" .Col=2 .ColAlignment(2)=3 .Text="Ngàysinh" .Col=3 .ColAlignment(3)=3 .Text="Giớitính" .Col=4 .ColAlignment(4)=3 .Text="Địachỉthờngtrú" .Col=5 .ColAlignment(5)=3 .Text="Sốđiệnthoạidiđộng" EndWith EndSub PrivateSubSelectItemData(cboAsComboBox,maAsLong) DimiAsInteger 82 For i = 0 To cbo.ListCount If ma = cbo.ItemData(i) Then cbo.ListIndex = i Exit Sub End If Next i End Sub Private Sub XemDanhSach() frameDanhSach.Visible = True frameCapNhat.Visible = False LoadCSDL lblTieude.Caption="sơyếulýlịch" 'msfDanhSach.SetFocus EndSub PrivateSubChoPhepGhi() frameDanhSach.Visible=False frameCapNhat.Visible=True cmdCapNhat.Visible=False cmdCancel.Visible=False cmdNhapLai.Visible=True cmdGhi.Visible=True cmdDanhSach.Visible=True lblTieude.Caption="Thêmcánbộ" EndSub PrivateSubChoPhepCapNhat() frameDanhSach.Visible=False frameCapNhat.Visible=True cmdCapNhat.Visible=True 83 cmdCancel.Visible=True cmdNhapLai.Visible=False cmdGhi.Visible=False cmdDanhSach.Visible=False lblTieude.Caption="sửathôngtincánbộ" EndSub NHNXẫTCAGIOVIấNHNGDN 84 Ký tên Nguyễn Thị Tuyển 85 ... thực tế khảo sát cơng tác? ?quản? ?lý? ?hồ sơ cán bộ của? ?Khoa? ?Cơng nghê thơng? ?tin? ?nên em quyết định chọn? ?đề tài ? ?Xây? ?dựng? ?chương? ?trình? ?Quản? ?lý? ?nhân? ?sự ? ?Khoa Cơng? ?nghệ? ?thơng? ?tin? ?? làm? ?đề? ?tài? ?tốt? ?nghiệp 2. Mục đích nghiên cứu của? ?đề? ?tài... Tìm hiểu cơ sở của cơng tác? ?quản? ?lý? ?hồ sơ Khảo sát, đánh giá hiện trạng hệ thống? ?quản? ?lý? ?hồ sơ cán bộ ? ?Khoa? ?Cơng nghệ? ?thơng? ?tin Phân tích và thiết kế hệ thống? ?quản? ?lý? ?Hồ sơ cán bộ? ?Khoa? ?Cơng? ?nghệ? ?thơng tin Xây? ?dựng? ?và cài đặt? ?chương? ?trình. .. lý? ?hồ sơ có thể sử dụng và khai thác hiệu quả cơng tác? ?quản? ?lý? ?hồ sơ cán bộ tại đơn vị mình 3. Đối tượng nghiên cứu của? ?đề? ?tài Chương? ?trình? ?Quản? ?lý? ?nhân? ?sự? ?Khoa? ?Cơng? ?nghệ? ?thơng? ?tin 4. Nhiệm vụ nghiên cứu Bước đầu Phân tích, Thiết kế hệ thống thơng? ?tin? ?và Hệ? ?quản? ?trị cơ sở dữ