Khóa luận Xây dựng hệ thống chương trình quản lý giáo viên

gu MaTDNN TenNN LoaiTD KyLuat MaKyLuat LyDoKyLuat HinhThucKyLuat NgayKyLuat 2. Mô hình quan hệ cơ sở dữ liệu 3. Các bảng CSDL: Bảng Hồ sơ cán bộ : Tên trường Kiểu dữ liệu Kích thước Diễn giải MaCB Text 5 Mã cán bộ-Khoá chính HoTen Text 30 Họ tên Gioitinh Text 5 Giới tính Ngaysinh Date/Time Ngày sinh Noisinh Text 50 Nơi sinh QueQuan Text 50 Quê quán DanToc Text 20 Dân tộc MaTN Text 5 Mã thâm niên MaCV Text 5 Mã chức vụ NgayChuyenCT Date/Time Ngày chuyển CTác QuaTrinhCT Memo 10 Quá trình CTác MaTo Text 5 Mã tổ MaTDCM Text 5 Mã trình độ CM GiaDinh Yes/No Gia đình SoCon Number Số con SoCMND Text 10 Số CMND NgayCap Date/Time Ngày cấp NoiCap Text 50 Nơi cấp DiaChi Text 50 Địa chỉ SoDT Text 10 Số điện thoại DangVien Yes/No Đảng viên SoTheDang Text 10 Số thẻ đảng NgayVaoDang Date/Time Ngày vào đảng NoiVaoDang Text 50 Nơi vào đảng MaTDNN Text 5 Mã trình độ NN HocHam Text 15 Học hàm NgayNhanHH Date/Time Ngày nhận học hàm MaLuong Text 5 Mã lương MasoHD Text 5 Mã số hợp đồng LoaiHD Text 50 Loại hợp đồng NgayHD Date/Time Ngày hợp đồng NgayBD Date/Time Ngày bắt đầu NgayKT Date/Time Ngày kết thúc NgayXL Date/Time Ngày xếp lương SoBHXH Text 9 Số BHXH SoBHYT Text 9 Số BHYT LuongTL Number Lương tháng lĩnh ThueTN Text 12 Thuế thu nhập MaKhenThuong Text 5 Mã khen thưởng MaKyLuat Text 5 Mã kỷ luật Bảng hợp đồng lao động : Tên trường Kiểu dữ liệu Kích thước Diễn giải MasoHD Text 5 Mã số hợp đồng-Khoá chính NgayHD Date/Time Ngày hợp đồng LoaiHD Text 50 Loại hợp đồng NgayBD Date/Time Ngày bắt đầu NgayKT Date/Time Ngày kết thúc NgayXL Date/Time Ngày xếp lương SoBHYT Text 9 Số BHYT SoBHXH Text 9 Số BHXH Bảng thâm niên : Tên trường Kiểu dữ liệu Kích thước Diễn giải MaTN Text 5 Mã thâm niên-Khoá chính ThamNien Text 50 Thâm niên Bảng chức vụ : Tên trường Kiểu dữ liệu Kích thước Diễn giải MaChucVu Text 5 Mã chức vụ-Khoá chính TenChucVu Text 50 Tên chức vụ Bảng trình độ chuyên môn : Tên trường Kiểu dữ liệu Kích thước Diễn giải MaTDCM Text 5 Mã trình độ CM-Khoá chính NganhDT Text 50 Ngành đào tạo LoaiHinhDT Text 50 Loại hình đào tạo TruongDT Text 50 Trường đào tạo NienKhoa Text 10 Niên khoá Bảng hệ thống : Tên trường Kiểu dữ liệu Kích thước Diễn giải Username Text 25 Tên truy cập-Khoá chính Password Text 8 Mật khẩu Access Yes/No Xem Update Yes/No Cập nhật Manage Yes/No Quản trị Discription Text 30 Diễn giải chi tiết FullName Text 30 Họ tên đầy đủ Bảng tổ : Tên trường Kiểu dữ liệu Kích thước Diễn giải MaTo Text 5 Mã tổ-Khoá chính TenTo Text 50 Tên tổ Bảng lương : Tên trường Kiểu dữ liệu Kích thước Diễn giải MaLuong Text 5 Mã lương-Khoá chính LuongCB Currency Lương cơ bản HesoLuong Number Hệ số lương Bảng khen thưởng : Tên trường Kiểu dữ liệu Kích thước Diễn giải MaKhenThuong Text 5 Mã khen thưởng-Khoá chính LyDoKhenThuong Text 150 Lý do khen thưởng NgayKhenThuong Date/Time Ngày khen thưởng Bảng kỷ luật : Tên trường Kiểu dữ liệu Kích thước Diễn giải MaKyLuat Text 5 Mã kỷ luật-Khoá chính LyDoKyLuat Text 150 Lý do kỷ luật NgayKyLuat Date/Time Ngày kỷ luật HinhThucKyLuat Text 150 Hình thức kỷ luật Bảng ngoại ngữ : Tên trường Kiểu dữ liệu Kích thước Diễn giải MaTDNN Text 5 Mã trình độ NN-Khoá chính TenNN Text 20 Tên ngoại ngữ LoaiTD Text 50 Loại trình độ Bảng tỉnh thành : Tên trường Kiểu dữ liệu Kích thước Diễn giải ID AutọNumber ID-Khoá chính TinhThanh Text 50 Tỉnh thành Bảng dân tộc : Tên trường Kiểu dữ liệu Kích thước Diễn giải ID AutọNumber ID-Khoá chính DanToc Text 50 Dân tộc Bảng học hàm : Tên trường Kiểu dữ liệu Kích thước Diễn giải ID AutọNumber ID-Khoá chính HocHam Text 50 Học hàm Phần IV Giới thiệu chương trình Giao diện chính của chương trình: Code Form : Option Explicit Const HH_DISPLAY_TOPIC = &H0 Const HH_HELP_CONTEXT = &HF Private Declare Function HtmlHelp Lib "HHCtrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, _ByVal pszFile As String, _ ByVal uCommand As Long, _dwData As Any) As Long Private Sub MDIForm_Unload(Cancel As Integer) 'Giai phong doi tuong ADO chinh Set MainRS = Nothing MainCN.Close Set MainCN = Nothing End Sub Private Sub mnuCap_nhat_chuc_cu_Click() If frmCapNhat.WindowState = 1 Then frmCapNhat.WindowState = 0 Else frmCapNhat.SSTab.Tab = 0 ShowForm frmCapNhat End If End Sub Private Sub mnuCap_nhat_ky_luat_Click() mnuCap_nhat_chuc_cu_Click frmCapNhat.SSTab.Tab = 7 End Sub Private Sub mnuCap_nhat_luong_Click() mnuCap_nhat_chuc_cu_Click frmCapNhat.SSTab.Tab = 5 End Sub Private Sub mnuCap_nhat_thong_tin_khen_thuong_Click() mnuCap_nhat_chuc_cu_Click frmCapNhat.SSTab.Tab = 6 End Sub Private Sub mnuCap_nhat_To_Click() mnuCap_nhat_chuc_cu_Click frmCapNhat.SSTab.Tab = 3 End Sub Private Sub mnuCap_nhat_tinh_thanh_Click() mnuCap_nhat_chuc_cu_Click frmCapNhat.SSTab.Tab = 2 End Sub Private Sub mnuCap_nhat_trinh_do_chuyen_mon_Click() mnuCap_nhat_chuc_cu_Click frmCapNhat.SSTab.Tab = 4 End Sub Private Sub mnuCap_nhat_trinh_do_ngoai_ngu_Click() mnuCap_nhat_chuc_cu_Click frmCapNhat.SSTab.Tab = 1 End Sub Private Sub mnuDang_nhap_he_thong_Click() ShowForm frmDangNhap, 1 End Sub Private Sub mnuDangxuat_Click() If (MsgBox("Ban co chac chan muon quay tro lai man hinh Lua chon ?" & vbCrLf, vbYesNo + vbQuestion, Me.Caption) = vbNo) Then Exit Sub Else frmluachon.Show frmMDI.Visible = False End If End Sub Private Sub mnuhuong_dan_Click() HtmlHelp 0, "C:\QLNS\help.chm", HH_DISPLAY_TOPIC, 0 End Sub Private Sub mnuLoai_bo_nguoi_su_dung_Click() ShowForm frmThemBotQuyenSuDung, 1 End Sub Private Sub mnuThay_doi_mat_khau_Click() ShowForm frmThayMatKhau, 1 End Sub Private Sub mnuThay_doi_quyen_su_dung_Click() ShowForm frmThemBotQuyenSuDung, 1 End Sub 'Quan ly ho so Private Sub mnuThem_ho_so_Click() If frmHoso.WindowState = 1 Then frmHoso.WindowState = 0 Else frmHoso.cmdXoa.Visible = False frmHoso.cmdSua.Visible = False frmHoso.cmdThem.Visible = True ShowForm frmHoso End If End Sub Private Sub mnuThoat_CT_Click() If (MsgBox("Ban co chac chan muon thoat khoi chuong trinh ?" & vbCrLf, vbYesNo + vbQuestion, Me.Caption) = vbNo) Then Exit Sub Else End End If End Sub Private Sub mnuthong_tin_ct_Click() ShowForm frmAbout End Sub Private Sub mnuTim_kiem_Click() frmTimKiem.Show End Sub Private Sub mnuXoa_Ho_so_Click() If frmHoso.WindowState = 1 Then Else frmHoso.cmdXoa.Visible = True frmHoso.cmdSua.Visible = False frmHoso.cmdThem.Visible = False ShowForm frmHoso End If End Sub Private Sub mnuSua_ho_so_Click() If frmHoso.WindowState = 1 Then frmHoso.WindowState = 0 Else frmHoso.cmdSua.Visible = True frmHoso.cmdThem.Visible = False frmHoso.cmdXoa.Visible = False ShowForm frmHoso End If End Sub Private Sub mnuThem_nguoi_su_dung_Click() ShowForm frmThemNguoiSuDung, 1 End Sub Private Sub mnuThoat_Click() If (MsgBox("Ban co chac chan muon thoat khoi chuong trinh ?" & vbCrLf, vbYesNo + vbQuestion, Me.Caption) = vbNo) Then Exit Sub Else End End If End Sub Private Sub mnuThong_ke_tto_Click() If frmThongKe.WindowState = 1 Then frmThongKe.WindowState = 0 Else frmThongKe.SSTab.Tab = 0 frmThongKe.Left = (frmMDI.ScaleWidth - frmThongKe.Width) / 2 frmThongKe.Top = 200 frmThongKe.Show End If End Sub Private Sub mnuThong_ke_theo_chuc_vu_Click() mnuThong_ke_tto_Click frmThongKe.SSTab.Tab = 1 End Sub Private Sub mnuThong_ke_theo_cap_bac_Click() mnuThong_ke_tto_Click frmThongKe.SSTab.Tab = 2 End Sub Private Sub mnuThong_ke_theo_que_quan_Click() mnuThong_ke_tto_Click frmThongKe.SSTab.Tab = 3 End Sub Private Sub mnuThong_ke_theo_yeu_cau_Click() mnuThong_ke_tto_Click frmThongKe.SSTab.Tab = 4 End Sub Private Sub mnuXem_ho_so_Click() If frmXemHoso.WindowState = 1 Then frmXemHoso.WindowState = 0 Else ShowForm frmXemHoso End If End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "Them" mnuThem_ho_so_Click Case "Xem" mnuXem_ho_so_Click Case "Sua" mnuSua_ho_so_Click Case "Xoa" mnuXoa_Ho_so_Click Case "Cap nhat" mnuCap_nhat_chuc_cu_Click Case "Tim kiem" mnuTim_kiem_Click Case "Thong ke" mnuThong_ke_tto_Click Case "Them user" mnuThem_nguoi_su_dung_Click Case "Help" mnuhuong_dan_Click End Select End Sub Các Form chức năng của chương trình: Form: Lựa chọn: Form có chức năng lựa chon như tạo tài khoản , đăng nhập bằng tài khoản của mình và thóat khỏi hệ thống Form: Tạo tài khoản mới ( Quyền hạn chỉ được Xem ) Form tạo tài khoản cho người sử dụng và thiết lập quyền hạn của người sử dụng trong form có các quyền hạn như: xem, cập nhật , và quản trị hệ thống nhưng quyền hạn cập nhật và quản trị hệ thống phải đươc Admin cấp thì mới được phép nếu đăng ký bình thường thì chỉ được phép xem. Code form: Option Explicit Dim ketnoi As Boolean Dim MainCN As New ADODB.Connection, strCNString As String Dim MainRS As New ADODB.Recordset Dim txt As String Private Sub cmdGhi_Click() Dim Trong As Boolean Trong = (txtPassword.Text = "") Or (txtUserName.Text = "") _ Or (txtFullName.Text = "") Or (txtDiscription.Text = "") If Trong Then ShowMSG "Ph¶i nhËp ®Çy ®ñ c¸c th«ng tin", 2 txtPassword.SetFocus Exit Sub End If 'Kiem tra xem co trung mat khau hay khong Do While Not MainRS.EOF If MainRS.Fields("UserName").Value = txtUserName.Text Then ShowMSG "Trïng tµi kho¶n, nhËp tµi kho¶n kh¸c", 2 MainRS.MoveFirst txtPassword.SetFocus Exit Sub End If MainRS.MoveNext Loop MainRS.AddNew MainRS.Fields("UserName").Value = txtUserName.Text MainRS.Fields("Password").Value = txtPassword.Text MainRS.Fields("FullName").Value = txtFullName.Text MainRS.Fields("Discription").Value = txtDiscription.Text MainRS.Fields("Access").Value = chkXem.Value MainRS.Fields("Update").Value = chkCapNhat.Value MainRS.Fields("Manage").Value = chkQuanTriHeThong.Value MainRS.Update ShowMSG "§· thªm ng­êi dïng thµnh c«ng", 1 strCNString = "Data Source=" & App.Path & "\QLNS.mdb" End Sub Private Sub cmdlamlai_Click() txtUserName.Text = "" txtPassword.Text = "" txtFullName.Text = "" txtDiscription.Text = "" cmdlamlai.Enabled = False cmdGhi.Enabled = False chkXem.Enabled = False End Sub Private Sub cmdThoat_Click() txtUserName.Text = "" txtPassword.Text = "" txtFullName.Text = "" txtDiscription.Text = "" frmluachon.Show frmThemnguoidung2.Visible = False chkXem.Enabled = False cmdlamlai.Enabled = False cmdGhi.Enabled = False End Sub Private Sub Form_Load() strCNString = "Data Source=" & App.Path & "\QLNS.mdb" MainCN.Provider = "Microsoft Jet 4.0 OLE DB Provider" MainCN.ConnectionString = strCNString MainCN.Open 'Open recordsource MainRS.Open "Select * from HeThong", MainCN, adOpenDynamic, adLockOptimistic chkCapNhat.Enabled = False chkQuanTriHeThong.Enabled = False cmdGhi.Enabled = False cmdlamlai.Enabled = False chkXem.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) MainRS.Close End Sub Private Sub txtDiscription_Change() cmdGhi.Enabled = True cmdlamlai.Enabled = True chkXem.Enabled = True End Sub Form: Đăng nhập vào hệ thống Đăng nhập bằng tài khoản của mình đã tạo tài khoản ở form toại tài khoản Form: Thay đổi mật khẩu: Form: Thêm người dùng ( dành cho admin ) Form này dành cho admin ,admin có quyền thiết lập các quyền hạn cho các thành viên đăng ký như quyền cập nhật và quyền quản trị hệ thống hoặc cũng có thể xóa tài khoản của thành viên bằng cách không cho quyền hạn nào Code form: Option Explicit Private Sub cmdGhi_Click() Dim Trong As Boolean Trong = (txtPassword.Text = "") Or (txtUserName.Text = "")_Or (txtFullName.Text = "") Or (txtDiscription.Text = "") If Trong Then ShowMSG "Ph¶i nhËp ®Çy ®ñ c¸c th«ng tin", 2 txtPassword.SetFocus Exit Sub End If 'Kiem tra xem co trung mat khau hay khong Do While Not MainRS.EOF If MainRS.Fields("UserName").Value = txtUserName.Text Then ShowMSG "Trïng tµi kho¶n, nhËp tµi kho¶n kh¸c", 2 MainRS.MoveFirst txtPassword.SetFocus Exit Sub End If MainRS.MoveNext Loop MainRS.AddNew MainRS.Fields("UserName").Value = txtUserName.Text MainRS.Fields("Password").Value = txtPassword.Text MainRS.Fields("FullName").Value = txtFullName.Text MainRS.Fields("Discription").Value = txtDiscription.Text MainRS.Fields("Access").Value = chkXem.Value MainRS.Fields("Update").Value = chkCapNhat.Value MainRS.Fields("Manage").Value = chkQuanTriHeThong.Value MainRS.Update ShowMSG "§· thªm ng­êi dïng thµnh c«ng", 1 End Sub Private Sub cmdThoa_Click() Unload Me End Sub Private Sub Form_Load() Set MainRS = New ADODB.Recordset MainRS.Source = "HeThong" MainRS.LockType = adLockPessimistic Set MainRS.ActiveConnection = MainCN MainRS.Open End Sub Private Sub Form_Unload(Cancel As Integer) MainRS.Close End Sub Loại bỏ và thêm bớt người dùng ( dành cho admin ) Form có chức năng dành cho Admin như, sửa, thêm, xóa các thành viên đồng thời cũng thết lập quyền hạn thành viên hoặc cũng có thể thay đổi mật khẩu của thành viên , thông tin của tài khoản cuat thành viên Code form : Option Explicit Private Sub Form_Load() Dim i As Integer Set MainRS = New ADODB.Recordset MainRS.Source = "HeThong" MainRS.LockType = adLockPessimistic Set MainRS.ActiveConnection = MainCN MainRS.Open Do While Not MainRS.EOF lstUserName.List(i) = MainRS.Fields("UserName").Value i = i + 1 MainRS.MoveNext Loop lstUserName.ListIndex = 0 End Sub Private Sub lstUserName_Click() fraQuyenSuDung.Enabled = False txtPassword.Enabled = False txtFullName.Enabled = False txtDiscription.Enabled = False Set MainRS = New ADODB.Recordset MainRS.Source = " SELECT * FROM HeThong" _ & " WHERE UserName=" & "'" & lstUserName.List(lstUserName.ListIndex) & "'" MainRS.LockType = adLockPessimistic Set MainRS.ActiveConnection = MainCN MainRS.Open If MainRS.Fields("Access").Value Then chkXem.Value = 1 Else chkXem.Value = 0 End If If MainRS.Fields("Update").Value Then chkCapNhat.Value = 1 Else chkCapNhat.Value = 0 End If If MainRS.Fields("Manage").Value Then chkQuanTriHeThong.Value = 1 Else chkQuanTriHeThong.Value = 0 End If txtPassword.text = MainRS.Fields("Password").Value txtFullName.text = MainRS.Fields("FullName").Value txtDiscription.text = MainRS.Fields("Discription").Value End Sub Private Sub cmdThem_Click() Unload Me ShowForm frmThemNguoiSuDung, 1 End Sub Private Sub cmdThoat_Click() Unload Me End Sub Private Sub cmdSua_Click() fraQuyenSuDung.Enabled = True txtPassword.Enabled = True txtFullName.Enabled = True txtDiscription.Enabled = True txtPassword.SetFocus End Sub Private Sub cmdGhi_Click() MainRS.Fields("Access").Value = chkXem.Value MainRS.Fields("Update").Value = chkCapNhat.Value MainRS.Fields("Manage").Value = chkQuanTriHeThong.Value MainRS.Fields("Password").Value = txtPassword.text MainRS.Update fraQuyenSuDung.Enabled = False txtPassword.Enabled = False txtFullName.Enabled = False txtDiscription.Enabled = False End Sub Private Sub cmdXoa_Click() ShowMSG "Cã ch¾c ch¾n muèn xo¸ ?", 3 If MsgResult = 1 Then MainRS.Delete lstUserName.RemoveItem lstUserName.ListIndex lstUserName.ListIndex = 0 End If End Sub Private Sub Form_Unload(Cancel As Integer) MainRS.Close End Sub Private Sub txtDiscription_GotFocus() SelectTextBox txtDiscription End Sub Private Sub txtFullName_GotFocus() SelectTextBox txtFullName End Sub Form: Xem hồ sơ Qua form này ta có thể xem đầy đủ thông tin của cán bộ giáo viên trong trường như họ tên giới tính , ngày sinh , quê quán địa chỉ …. Đồng thời liệt kê tất cả các giáo viên trong trường Code form : Option Explicit Dim MaCB As String Dim HoTen As String Private Sub cmdIn_Click() ShowHoso Data.Recordset.Fields(0) End Sub Private Sub cmdMove_Click(Index As Integer) Select Case Index Case 0 Data.Recordset.MoveFirst Case 1 Data.Recordset.MovePrevious If Data.Recordset.BOF Then Data.Recordset.MoveNext Case 2 Data.Recordset.MoveNext If Data.Recordset.EOF Then Data.Recordset.MovePrevious Case 3 Data.Recordset.MoveLast End Select End Sub Private Sub cmdThoat_Click() Unload Me End Sub Private Sub DBCombo_Change() Dim i As Integer Data.Recordset.MoveFirst Data.Recordset.FindNext "MaCB LIKE '" & Trim(DBCombo.Text) & "*'" End Sub Private Sub DBList_Click() Data.Recordset.FindNext "HoTen= '" & DBList.Text & "'" If Data.Recordset.NoMatch Then Data.Recordset.FindPrevious "HoTen= '" & DBList.Text & "'" End If End Sub Private Sub Form_Load() Data.DatabaseName = App.Path & "\qlns.mdb" Data.RecordSource = "HosoCB" End Sub Form: Thêm, Sửa, Xoá hồ sơ Form thêm, sửa ,xóa hồ sơ giáo viên và thêm thông tin khác như :quá trình công tác , quá trình đào tạo , hợp đồng lao động ,khên thưởng ,kỷ luật ,đảng .Nếu muốn bất kỳ thông tin nào của giáo viên ta có thể nhấn nút sửa giáo viên hoặc thêm mới giáo viên Form sửa : Form xóa : Form Thêm : Code form: Option Explicit Dim dangvien As Integer Dim sothedang As String Dim ngayvaodang As Date Dim noivaodang As String Dim Phong As String Dim chucvu As String Dim capbac As String Dim quaTrinhCT As String Dim ngayChuyenCT As Date Dim Luong As String Dim MaTDCM As String Dim MaKyLuat As String Dim MaKhenThuong As String Private Sub cmdCongTac_Click() 'Luu gia tri de neu click thoat thi cap nhat lai Phong = DBCombo(0).Text chucvu = DBCombo(1).Text capbac = DBCombo(2).Text quaTrinhCT = Text(8).Text ngayChuyenCT = DTPicker(3).Value Luong = Combo(5).Text fraCongTac.Visible = True fraCaNhan.Visible = False fraDang.Visible = False fraCongTac.Top = 0 fraCongTac.Left = 0 frmHoso.Height = fraCongTac.Height + 420 frmHoso.Width = fraCongTac.Width + 100 End Sub Private Sub cmdChuyenMon_Click() fraTTK.Visible = False 'Luu gia tri MaTDCM = DBComboMaTDCM.Text fraTDCM.Visible = True fraCaNhan.Visible = False fraDang.Visible = False fraCongTac.Visible = False fraTDCM.Top = 0 fraTDCM.Left = 0 frmHoso.Height = fraTDCM.Height + 420 frmHoso.Width = fraTDCM.Width + 80 DataTDCM.Recordset.MoveFirst DataTDCM.Recordset.FindNext "MaTDCM='" & DBComboMaTDCM.Text & "'" DataTDNN.Recordset.MoveFirst DataTDNN.Recordset.FindNext "MaTDNN='" & DBComboMaTDNN.Text & "'" End Sub Private Sub cmdhdld_Click() fraTTK.Visible = False 'Luu gia tri fraHDLD.Visible = True fraCaNhan.Visible = False fraDang.Visible = False fraCongTac.Visible = False fraTDCM.Visible = False fraHDLD.Top = 0 fraHDLD.Left = 0 frmHoso.Height = fraHDLD.Height + 420 frmHoso.Width = fraHDLD.Width + 80 End Sub Private Sub cmdKT_Click() fraTTK.Visible = False 'Luu gia tri MaKhenThuong = DBComboMaKhenThuong.Text fraKhenThuong.Visible = True fraCaNhan.Visible = False fraDang.Visible = False fraCongTac.Visible = False fraKyLuat.Visible = False fraKhenThuong.Top = 0 fraKhenThuong.Left = 0 frmHoso.Height = fraKhenThuong.Height + 420 frmHoso.Width = fraKhenThuong.Width + 80 DataKT.Recordset.MoveFirst DataKT.Recordset.FindNext "MaKhenThuong='" & DBComboMaKhenThuong.Text & "'" End Sub Private Sub cmdKL_Click() fraTTK.Visible = False 'Luu gia tri MaKyLuat = DBComboMaKyLuat.Text fraKyLuat.Visible = True fraCaNhan.Visible = False fraDang.Visible = False fraCongTac.Visible = False fraKhenThuong.Visible = False fraKyLuat.Top = 0 fraKyLuat.Left = 0 frmHoso.Height = fraKyLuat.Height + 420 frmHoso.Width = fraKyLuat.Width + 80 DataKL.Recordset.MoveFirst DataKL.Recordset.FindNext "MaKyLuat='" & DBComboMaKyLuat.Text & "'" End Sub Form: Cập nhật hệ thống Cập nhật thêm thông tin các bảng như :chuyên môn ,lương ,khen thưởng , kỷ luật ,chức vụ , ngoại ngữ , thỉnh thành , tổ hoặc có thể sửa , xóa các thông tin .Mỗi giáo viên khi nhận công việc thì đều được phân công vào chuyên ngành của mình và khi được nhận nhiệm vụ giảng dạy thì đều có mức lương nhất định trong đó bảng lương sẽ cập nhật các mức lương nhất định ,đối với các thông tin khác cũng như vậy . Code form: Option Explicit Private Const Allow = 1 Private Const UnAllow = 2 Private Sub cmdBo_Click() Data.Recordset.CancelUpdate UnAllowUpdate cmdBo.Enabled = False cmdXoa.Enabled = True cmdThem.Enabled = True cmdSua.Enabled = True End Sub Private Sub cmdGhi_Click() On Error GoTo ErrorHandler Data.Recordset.Update UnAllowUpdate Exit Sub ErrorHandler: If Err = 3022 Then ShowMSG "Trïng m·, nhËp m· kh¸c", 1 End If End Sub Private Sub DBGrid_Click() UnAllowUpdate End Sub Private Sub Form_Load() UnAllowUpdate Data.DatabaseName = App.Path & "\qlns.mdb" ChoiseTable End Sub Private Sub cmdBack_Click() UnAllowUpdate Data.Recordset.MovePrevious If Data.Recordset.BOF Then Data.Recordset.MoveNext End Sub Private Sub cmdNext_Click() UnAllowUpdate Data.Recordset.MoveNext If Data.Recordset.EOF Then Data.Recordset.MovePrevious End Sub Private Sub cmdFirst_Click() Data.Recordset.MoveFirst End Sub Private Sub cmdLast_Click() Data.Recordset.MoveLast End Sub Private Sub cmdSua_Click() AllowUpdate GotFocus Data.Recordset.Edit cmdXoa.Enabled = False cmdThem.Enabled = False End Sub Private Sub cmdThem_Click() AllowUpdate GotFocus Data.Recordset.AddNew cmdXoa.Enabled = False cmdSua.Enabled = False End Sub Private Sub cmdThoat_Click() Unload Me End Sub Private Sub cmdXoa_Click() ShowMSG "Cã ch¾c ch¾n muèn xo¸ kh«ng?", 3 If MsgResult = 1 Then Data.Recordset.Delete Data.Refresh End If End Sub Private Sub SSTab_Click(PreviousTab As Integer) UnAllowUpdate Data.DatabaseName = App.Path & "\qlns.mdb" ChoiseTable End Sub '========================================= 'Danh sach cac ham bo xung '========================================= Public Sub AllowUpdate() Dim i As Integer For i = 0 To 22 text(i).Enabled = True Next cmdGhi.Enabled = True cmdBo.Enabled = True Moving UnAllow End Sub Public Sub UnAllowUpdate() Dim i As Integer For i = 0 To 22 text(i).Enabled = False Next cmdXoa.Enabled = True cmdThem.Enabled = True cmdSua.Enabled = True cmdGhi.Enabled = False cmdBo.Enabled = False Moving Allow End Sub Public Function isEmpty() Dim i As Integer For i = 0 To 22 Next End Function Public Sub ChoiseTable() Select Case SSTab.Tab Case 0 Data.RecordSource = "ChucVu" Data.Refresh Case 1 Data.RecordSource = "NgoaiNgu" Data.Refresh Case 2 Data.RecordSource = "TinhThanh" Data.Refresh Case 3 Data.RecordSource = "To" Data.Refresh Case 4 Data.RecordSource = "TrinhDoChuyenMon" Data.Refresh Case 5 Data.RecordSource = "Luong" Data.Refresh Case 6 Data.RecordSource = "KhenThuong" Data.Refresh Case 7 Data.RecordSource = "Kyluat" Data.Refresh End Select End Sub Private Sub Text_GotFocus(Index As Integer) SelectTextBox text(Index) End Sub Public Sub Moving(AllowMove As Integer) If AllowMove = Allow Then cmdFirst.Enabled = True cmdBack.Enabled = True cmdNext.Enabled = True cmdLast.Enabled = True End If If AllowMove = UnAllow Then cmdFirst.Enabled = False cmdBack.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False End If End Sub Public Sub GotFocus() Select Case SSTab.Tab Case 0 text(0).SetFocus Case 1 text(2).SetFocus Case 2 text(5).SetFocus Case 3 text(6).SetFocus Case 4 text(8).SetFocus Case 5 text(13).SetFocus Case 6 text(16).SetFocus Case 7 text(19).SetFocus End Select End Sub Form: Tìm kiếm Form có chức năng tìm kiếm thông tin của giáo viên trong trường Như tìm kiếm theo mã số cán bộ , họ tên , tên tổ hoặc chức vụ Code form : Option Explicit Dim St As String Private Sub cmdThoat_Click() Unload frmTimKiem End Sub Private Sub cmdTimkiem_Click() Dim maso, ten, mato, machucvu maso = "%" + txtMaso.text + "%" ten = "%" + txtHoten.text + "%" mato = "%" + txtTo.text + "%" machucvu = "%" + txtChucvu.text + "%" SQL1 maso, ten, mato, machucvu Devm.Commands.Item("QTimkiem").CommandText = St dgrdLke.DataMember = "QTimkiem" If Devm.rsQTimkiem.RecordCount = 0 Then ShowMSG "Kh«ng t×m thÊy ng­êi nµo", 1 End If Devm.rsQTimkiem.Close End Sub Public Sub SQL1(maso, ten, mato, machucvu) St = "" St = St + "Select MaCB,HoTen,NgaySinh,QueQuan,MaTo,MaCV" St = St + " From HosoCB" St = St + " Where MaCB Like " + """" + maso + """" St = St + " and HoTen Like " + """" + ten + """" St = St + " and MaTo Like " + """" + mato + """" St = St + " and MaCV Like " + """" + machucvu + """" End Sub Private Sub Command1_Clic