Đồ án Xây dựng chương trình quản lý nhân sự Khoa Công nghệ thông tin

MỤC LỤC LỜI CẢM ƠN Error! Bookmark not defined LỜI NÓI ĐẦU CHƯƠNG .6 TỔNG QUAN VỀ NGÔN NGỮ VISUAL BASIC 6.0 1.1 GIỚI THIỆU 1.2 ĐỐI TƯỢNG VÀ CÁCH SỬ DỤNG ĐỐI TƯỢNG 1.2.1 Đối tượng (Object) 1.2.2 Cách truy xuất đối tượng 1.2.3 Viết lệnh cho đối tượng 1.3 CỬA SỔ PROPERTIES 1.4 BIẾN, HẰNG VÀ CÁC KIỂU DỮ LIỆU .7 1.4.1 Biến 1.4.2 Hằng 1.4.3 Các kiểu liệu VB6.0 .8 1.5 CẤU TRÚC ĐIỀU KHIỂN .8 1.5.1 Cấu trúc chọn 1.5.2 Cấu trúc lặp 1.6 GIỚI THIỆU SƠ LƯỢC CÁC KỸ THUẬT KẾT NỐI CSDL .11 1.6.1 Giới thiệu kỹ thuật lập trình ADO 12 1.6.2 Đối tượng Connection đối tượng Recordset 14 CHƯƠNG .15 PHÂN TÍCH BÀI TỐN QUẢN LÝ HỒ SƠ CÁN BỘ 15 2.1 HIỆN TRẠNG 15 Cơ cấu tổ chức Khoa Công nghệ thông tin: 16 2.2 CÁC YÊU CẦU THỰC TẾ 19 2.3 MỤC TIÊU ĐẠT ĐƯỢC CỦA PHẦN MỀM 19 2.4 CÁC MẪU BIỂU CẦN THIẾT 20 2.4.1 Mẫu sơ yếu lý lịch 20 2.4.2 Quá trình công tác 21 2.4.3 Diễn biến trình hưởng lương cán 22 2.4.4 Quá trình bồi dưỡng .22 2.4.5 Quá trình đào tạo 22 2.4.6 Quan hệ gia đình .23 2.4.7 Quan hệ thân nhân nước 23 2.4.8 Nước đến 24 2.4.9 Khen thưởng, kỷ luật 24 2.4.10 Quá trình bồi dưỡng lý luận trị 24 2.4.11 Trình độ ngoại ngữ .25 2.4.12 Trình độ tin học 25 2.5 CÁC BÁO CÁO TỔNG HỢP .26 CHƯƠNG .31 PHÂN TÍCH HỆ THỐNG QUẢN LÝ HỒ SƠ CÁN BỘ 31 3.1 ĐẶT VẤN ĐỀ 31 3.2 XÂY DỰNG SƠ ĐỒ PHÂN CẤP CHỨC NĂNG .31 3.3 XÂY DỰNG BIỂU ĐỒ LUỒNG DỮ LIỆU 33 3.3.1 Biểu đồ luồng liệu mức khung cảnh 33 3.3.2 Biểu đồ luồng liệu mức đỉnh 34 3.3.3 Biểu đồ luồng liệu mức đỉnh .35 3.4 THIẾT KẾ CƠ SỞ DỮ LIỆU CỦA HỆ THỐNG 46 3.4.1 Các thực thể 46 3.4.2 Sơ đồ thực thể liên kết E-R 54 CHƯƠNG .55 THIẾT KẾ CHƯƠNG TRÌNH 55 4.1 LỰA CHỌN NGÔN NGỮ 55 4.2 MỘT SỐ GIAO DIỆN CỦA CHƯƠNG TRÌNH 55 4.2.1 Chức Cập nhật danh mục 55 4.2.2 Chức Cập nhật hồ sơ 57 4.2.3 Chức Tìm kiếm 58 KẾT LUẬN .60 Kết đạt 60 Hạn chế .60 Hướng mở rộng đề tài 60 TÀI LIỆU THAM KHẢO 61 PHẦN PHỤ LỤC 62 NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN 78 LỜI NÓI ĐẦU Tính cấp thiết đề tài Bước vào kỷ XXI, kỷ phát triển công nghệ thông tin đặc biệt phát triển mạnh mẽ việc truy cập Internet hay Website dịch vụ mạng như: thương mại điện tử, đào tạo từ xa, dịch vụ giải trí, du lịch, thơng tin văn hố xã hội… Cơng nghệ thơng tin tham gia vào tất lĩnh vực xã hội, mạng máy tính giúp cho cơng việc trở nên nhanh chóng, xác với khối lượng lớn, xử lý thông tin thời gian ngắn Các sản phẩm ngành công nghệ thông tin là: phần cứng, phần mềm, trí tuệ nhân tạo ứng dụng hầu hết lĩnh vực khác xã hội, phát triển ưu lĩnh vực mà nhiều quan, xí nghiệp, cơng ty, trường học có nhu cầu tin học hố cơng tác quản lý Cơng nghệ thơng tin đưa người vào kỷ nguyên thông tin mở rộng tin cậy Sự mở rộng giúp ích người nhiều tro ng công việc tưởng không làm Công nghệ thông tin thâm nhập vào tất lĩnh vực sống, Công nghệ thông tin cho phép truy nhập khai thác sở liệu thuộc nhiều lĩnh vực kinh tế xã hội, ngành nghề khác thông tin khoa học kỹ thuật, giáo dục đào tạo, y tế, thương mại, thị trường giá cả, dự báo thời tiết… nhiều dịch vụ thương mại điện tử công cụ đắc lực thiếu Thực tế, Công nghệ thông tin diễn sôi động hầu khắp quốc gia giới, cách mạng nhằm chuyển dịch từ trọng tâm cung cấp hàng hố sang trọng tâm cung cấp thơng tin cơng nghệ cao trí tuệ Một xã hội mà thơng tin ln sử dụng với tốc độ cao, khía cạnh đời sống khoa học xã hội trị Cơng nghệ thơng tin hỗ trợ đắc lực cho người giải phóng người khỏi 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ử cơng việc quản lý, thương mại, tài chính… ngành công nghệ khác khiến cho nhu cầu trao đổi thơng tin ngày lớn Từ thúc đẩy mạng liệu điện tử, dịch vụ thông tin bao quát toàn lĩnh vực kinh tế, văn hoá, y tế, giáo dục đào tạo hoạt động khác như: ngân hàng điện tử, quản lý dự án… Việc thiết kế chế tạo hệ thống máy tính mang lại cho người nhiều thành to lớn sống Vì vậy, lần 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á nhân nói riêng hoạt động xã hội nói chung hồn tồn phù hợp cần thiết hết Bài tốn quản lý nói chung toán quản lý hồ sơ cán nói riêng khơng cịn mẻ cơng tác quản lý nhà trường, nhiên đặc thù đơn vị, chương trình địi hỏi phải mang tính thực đáp ứng nhu cầu người sử dụng Là sinh viên nghiên cứu, học tập Khoa Công nghệ thông tin, Khoa có phần mềm quản lý nhân nói phần mềm chưa hoàn toàn phù hợp với đặc thù Khoa, xuất phát từ thực tế khảo sát công tác quản lý hồ sơ cán Khoa Công nghê thông tin nên em định chọn đề tài “Xây dựng chương trình Quản lý nhân Khoa Công nghệ thông tin” làm đề tài tốt nghiệp Mục đích nghiên cứu đề tài Tìm hiểu thực tế công tác quản lý hồ sơ cán Khoa Công nghệ thông tin; thiết kế số chức toán phần mềm Visual Basic 6.0, bước đầu xây dựng chạy thử chương trình Từ rút kết đạt hạn chế toán nhằm giúp người trực tiếp làm cơng tác quản lý hồ sơ sử dụng khai thác hiệu công tác quản lý hồ sơ cán đơn vị Đối tượng nghiên cứu đề tài Chương trình Quản lý nhân Khoa Công nghệ thông tin Nhiệm vụ nghiên cứu Bước đầu Phân tích, Thiết kế hệ thống thông tin Hệ quản trị sở liệu Visual Basic 6.0 Tìm hiểu sở cơng tác quản lý hồ sơ Khảo sát, đánh giá trạng hệ thống quản lý hồ sơ cán Khoa Công nghệ thơng tin Phân tích thiết kế hệ thống quản lý Hồ sơ cán Khoa Công nghệ thơng tin Xây dựng cài đặt chương trình Kết luận: đánh giá kết đạt hạn chế chương trình, đồng thời đưa giải pháp hướng mở rộng chương trình Phương pháp nghiên cứu - Khảo sát trạng; - Tìm hiểu trực tiếp trao đổi với Lãnh đạo phòng Tổng hợp; - Khái quát đến phân tích chi tiết toán; - Xây dựng, cài đặt 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 trang bị nhiều hạn chế, chắn báo cáo nhiều thiếu xót, em mong nhận ý kiến đóng góp, bảo kịp thời thầy giáo, bạn để đề tài tốt nghiệp em đầy đủ hoàn thiện Em xin chân thành cảm ơn! CHƯƠNG TỔNG QUAN VỀ NGÔN NGỮ VISUAL BASIC 6.0 1.1 GIỚI THIỆU Visual Basic cơng cụ lập trình trực quan Microsoft, giúp xây dựng cách nhanh hiệu ứng dựng Windows Khác với môi trường lập trình hướng thủ tục trước Visual Basic mơi trường lập trình hướng đối tượng Windows Visual Basic không cung cấp 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 công cụ để kết nối CSDL cách thật dễ dàng Khi thiết kế chương trình Visual Basic người làm phải trải qua hai bước là: - Thiết kế giao diện: Thiết kế giao diện thiết kế hình dạng Form, việc bố trí điều khiển - Viết lệnh cho điều khiển: Dùng lệnh Visual Basic để quy định cách ứng xử cho Form cho Control 1.2 ĐỐI TƯỢNG VÀ CÁCH SỬ DỤNG ĐỐI TƯỢNG 1.2.1 Đối tượng (Object) Như nói Visual Basic ngơn ngữ lập trình theo kiểu hướng đối tượng làm việc với Visual Basic làm việc với đối tượng Đặc điểm đối tượng chương trình: - Mỗi đối tượng có tên để phân biệt - Mối đối tượng có nhiều đặc tính, đặc tính gọi thuộc tính (Property) đối tượng - Mỗi đối tượng có nhiều hoạt động hoạt động gọi phương thức (Method) - Mỗi đối tượng có phản ứng (sự kiện) 1.2.2 Cách truy xuất đối tượng Truy xuất đối tượng đặt thuộc tính cho đối tượng này, bạn truy xuất đối tượng viết theo cú pháp sau: . 1.2.3 Viết lệnh cho đối tượng Khi người làm đặt điều khiển lên Form lúc đầu chưa hoạt động vậy, phải viết lệnh cho đối tượng cách chọn đối tượng sau vào Menu View/Code (hoặc Double Click vào đối tượng Right Click vào đối tượng sau chọn View Code) cửa sổ lệnh ra, viết lệnh vào cửa sổ Mỗi phần mã lệnh cho kiện xảy đối tượng có hai dịng tiêu đề đầu Sub cuối End Sub bạn giữ nguyên hai dòng viết mã lệnh vào hai dịng Visual Basic có đặc điểm tự kiểm tra cú pháp viết lệnh Khi viết xong dòng lệnh chuyển sang dòng lệnh khác VB kiểm tra câu lệnh vừa viết có lối báo cịn lại tự động đối chữ thường, chữ hoa cho chương trình rõ ràng 1.3 CỬA SỔ PROPERTIES Cửa sổ cho phép lập trình viên xem xét sửa đổi thuộc tính biểu mẫu điều khiển lúc thiết kế Phần cửa sổ danh sách đối tượng Đối tượng chọn danh sách có thuộc tính hiển thị phần bên cửa sổ 1.4 BIẾN, HẰNG VÀ CÁC KIỂU DỮ LIỆU 1.4.1 Biến Biến dùng để lưu tạm thời giá trị tính tốn q trình xử lý chương trình Khi xử lý chương trình người làm ln cần phải lưu trữ giá trị để tính tốn để 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 phải khai báo 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 biến cục Khai báo với từ khóa Public, Global dùng để khai báo biến dùng chung cho tồn chương trình 1.4.2 Hằng Hằng dùng để chứa liệu tạm thời không thay đổi suốt thời gian chương trình hoạt động Sử dụng số làm chương trình sáng sủa, dễ đọc nhờ tên gợi nhớ thay số VB cung cấp số định nghĩa sẵn, ta tự tạo Khai báo hằng: [Public| Private] const As = 1.4.3 Các kiểu liệu VB6.0 Khi khai báo biến chương trình tức tạo khoảng nhớ để lưu giá trị đó, khoảng nhớ lớn hay nhỏ tùy thuộc vào biến khai báo theo kiểu Khi khai báo điều quan trọng xác định biến cho phù hợp với giá trị đưa vào Các kiểu liệu chuẩn như: String: Là liệu kiểu chuỗi, khoảng giá trị lên đến hai tỷ ký tự Nhận biết biến tiếp vĩ ngữ $ Byte: Là số nguyên dương, khoảng giá trị từ đến 255 Long: Là số nguyên, khoảng giá trị từ –2.147.483.648 đến 2.147.483.647 Nhận biết biến dấu & cuối Integer: Là số nguyên Nhận biết dấu dấu % cuối Single: Là số có dấu chấm thập phân Nhận biết dấu dấu ! cuối Double: Là số có dấu chấm thập phân Nhận biết dấu # cuối Date: Lưu trữ thông tin thời gian Nhận biết dấu # đầu cuối Boolean: Biến logic có giá trị true, hay false dùng để gán giá trị câu lệnh điều kiện 1.5 CẤU TRÚC ĐIỀU KHIỂN 1.5.1 Cấu trúc chọn Câu lệnh If…Then If then End if Câu lệnh If…Then…Else If then ……… Else End If Câu lệnh Select …Case Cú pháp: Select Case Case ……… Case Case else End select 1.5.2 Cấu trúc lặp 1.5.2.1 Câu lệnh Do…Loop Thi hành khối lệnh với số lần lặp khơng định trước.Trong đó, biểu thức điều kiện dùng để so sánh để định vòng lặp có tiếp tục khơng Điều kiện phải quy False (0), True (Khác 0) Cú pháp 1: Lặp điều kiện true Do While [Exit do] Loop Cú pháp 2: Vòng lặp ln có lần thi hành khối lệnh Do [Exit do] While loop Cú pháp 3: Lặp điều kiện false Do Until [Exit do] Loop Cú pháp 4: Lặp điều kiện False có lần thi hành khối lệnh Do [Exit do] Loop Until 1.5.2.2 Câu lệnh For…Next Biết trước số lần lặp Ta dùng biến đếm tăng dần giảm dần vòng lặp Cú pháp: For counter=Start to End [Step step] [Exit For] Next counter Trong đó: - Counter: biến đếm kiểu số nguyên - Start: giá trị bắt đầu Counter - End: giá trị kết thúc Counter 10 .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") = Else Fields("NgayNhapNgu") = txtNgayNhapNgu.Text End If If txtNgayXuatNgu = "" Then Fields("NgayXuatNgu") = Else Fields("NgayXuatNgu") = Me.txtNgayXuatNgu.Text End If If txtNgayVaoDoan = "" Then Fields("NgayVaoDoan") = Else 64 .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") = Fields("NgayChinhThuc") = End If End With rs.Update rs.Close Set rs = Nothing cn.Close frameCapNhat.Visible = False frameDanhSach.Visible = True LoadCSDL lblTieude.Caption = "sơ yếu lý lịch" Exit Sub Err: MsgBox "Ban chua nhap du thong tin hoac thong tin nhap khong dung", vbOKOnly End Sub Private Sub cmdDanhSach_Click() XemDanhSach End Sub 65 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 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 66 .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") = Else Fields("NgayNhapNgu") = txtNgayNhapNgu.Text End If If txtNgayXuatNgu = "" Then Fields("NgayXuatNgu") = Else Fields("NgayXuatNgu") = Me.txtNgayXuatNgu.Text End If If txtNgayVaoDoan = "" Then Fields("NgayVaoDoan") = 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 67 Else Fields("LaDangVien") = False Fields("NoiKetNapDang") = "" Fields("NgayVaoDang") = Fields("NgayChinhThuc") = End If End With rs.Update rs.Close Set rs = Nothing cn.Close cmdNhapLai_Click 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 = "" 68 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 = "" 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) 69 strSQL = "SELECT * FROM tblSoYeuLyLich WHERE MaCanBo = " & MaCanBo Set rs = New ADODB.Recordset rs.LockType = adLockOptimistic rs.Source = strSQL rs.ActiveConnection = cn 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 = Else cboGioiTinh.ListIndex = 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") & "" 70 Me.txtNgayBC.Text = Fields("NgayVaoBC") Me.txtNgayCap.Text = Fields("NgayCap") 'If Fields("NgayChinhThuc") = Then ' Me.txtNgayChinhThuc.Text = ' Else Me.txtNgayChinhThuc.Text = Fields("NgayChinhThuc") 'End If 'If Format(.Fields("NgayNhapNgu"), 0) = Then ' Me.txtNgayNhapNgu.Text = ' Else Me.txtNgayNhapNgu.Text = Fields("NgayNhapNgu") 'End If 'If Format(.Fields("NgayVaoDang"), 0) = Then ' Me.txtNgayVaoDang.Text = ' Else Me.txtNgayVaoDang.Text = Fields("NgayVaoDang") 'End If 'If Format(.Fields("NgayVaoDoan"), 0) = Then ' Me.txtNgayVaoDoan.Text = ' Else Me.txtNgayVaoDoan.Text = Fields("NgayVaoDoan") 'End If 'If Format(.Fields("NgayXuatNgu"), 0) = Then ' Me.txtNgayXuatNgu.Text = ' 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") 71 Me.txtNoiKetNapDang.Text = Fields("NoiKetNapDang") & "" Me.txtNoiKetNapDoan.Text = Fields("NoiKetNapDoan") & "" Me.txtNoiSinh.Text = Fields("NoiSinh") Me.txtSoHieuCC.Text = Fields("SoHieuCC") 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 72 rs.Source = strSQL rs.ActiveConnection = cn 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 73 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 = While Not rs.EOF With msfDanhSach AddItem i Row = i Col = Text = i RowData(i) = rs.Fields("MaCanBo") Col = CellAlignment = Text = rs.Fields("TenKhaiSinh") Col = CellAlignment = If IsDate(rs("NgaySinh")) Then Text = rs.Fields("NgaySinh") 'Format(rs.Fields("NgaySinh"), "dd/MM/yyyy") End If Col = CellAlignment = 74 If rs.Fields("GioiTinh") Then Text = "Nam" Else Text = "N÷" End If Col = CellAlignment = Text = rs.Fields("DiaChiTT") Col = CellAlignment = Text = rs.Fields("SoDT_DiDong") End With i=i+1 rs.MoveNext Wend rs.Close Set rs = Nothing cn.Close msfDanhSach.Row = msfDanhSach.Col = End Sub Private Sub SetupTable() msfDanhSach.Font = ".VnArial" 'msfDanhSach.CellFontSize = 14 'msfDanhSach.FontWidth = 10 With msfDanhSach Rows = Cols = ColWidth(0) = 500 ColWidth(1) = 2500 ColWidth(2) = 2000 ColWidth(3) = 1500 75 .ColWidth(4) = 5000 ColWidth(5) = 2500 Row = Col = ColAlignment(0) = Text = "STT" Col = ColAlignment(1) = '.CellFontSize = 12 Text = "Tên cán bộ" Col = ColAlignment(2) = Text = "Ngµy sinh" Col = ColAlignment(3) = Text = "Giíi tÝnh" Col = ColAlignment(4) = Text = "Địa th-êng tró" Col = ColAlignment(5) = Text = "Số điện thoại di động" End With End Sub Private Sub SelectItemData(cbo As ComboBox, ma As Long) Dim i As Integer For i = To cbo.ListCount If ma = cbo.ItemData(i) Then cbo.ListIndex = i Exit Sub End If Next i 76 End Sub Private Sub XemDanhSach() frameDanhSach.Visible = True frameCapNhat.Visible = False LoadCSDL lblTieude.Caption = "sơ yếu lý lịch" 'msfDanhSach.SetFocus End Sub Private Sub ChoPhepGhi() frameDanhSach.Visible = False frameCapNhat.Visible = True cmdCapNhat.Visible = False cmdCancel.Visible = False cmdNhapLai.Visible = True cmdGhi.Visible = True cmdDanhSach.Visible = True lblTieude.Caption = "Thªm c¸n bé" End Sub Private Sub ChoPhepCapNhat() frameDanhSach.Visible = False frameCapNhat.Visible = True cmdCapNhat.Visible = True cmdCancel.Visible = True cmdNhapLai.Visible = False cmdGhi.Visible = False cmdDanhSach.Visible = False lblTieude.Caption = "sửa thông tin cán bộ" End Sub 77 NHN XẫT CỦA GIÁO VIÊN HƯỚNG DẪN Ký tên Nguyễn Thị Tuyển 78 ... sở công tác quản lý hồ sơ Khảo sát, đánh giá trạng hệ thống quản lý hồ sơ cán Khoa Cơng nghệ thơng tin Phân tích thiết kế hệ thống quản lý Hồ sơ cán Khoa Công nghệ thông tin Xây dựng cài đặt chương. .. đề tài ? ?Xây dựng chương trình Quản lý nhân Khoa Công nghệ thông tin? ?? làm đề tài tốt nghiệp Mục đích nghiên cứu đề tài Tìm hiểu thực tế cơng tác quản lý hồ sơ cán Khoa Công nghệ thông tin; thiết... tập Khoa Công nghệ thông tin, Khoa có phần mềm quản lý nhân nói phần mềm chưa hồn toàn phù hợp với đặc thù Khoa, xuất phát từ thực tế khảo sát công tác quản lý hồ sơ cán Khoa Công nghê thông tin