Giao diện chính của chương trình

Quan ly giao vien Truong THPT My Hao

Hệhống Oậpnhật Tmkiếm Théngkébaocao Trợgúp Thoát

†+ /X6aAlii@ ` Ăô

Nhấn F1 để xem tự giúp

Code Form : Option Explicit

Const HH_DISPLAY_TOPIC = &H0O Const HH_HELP_CONTEXT = &HF

27

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_ClickQ) 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

28

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_ClickQ) 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_ ClickQ

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_ ClickQ

HtmlHelp 0, "C:\QLNS\help.chm", HH_DISPLAY_TOPIC, 0 End Sub

Private Sub mnuLoai_bo_nguoi_su_dung_ClickQ) ShowForm frmThemBotQuyenSuDung, 1 End Sub

Private Sub mnuThay_doi_mat_khau_ClickQ) 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

30

Else

frmHoso.cmdXoa. Visible = False frmHoso.cmdSua. Visible = False frmHoso.cmdThem. Visible = True ShowForm frmHoso

End If End Sub

Private Sub mnuThoat_CT_ ClickQ

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

End If End Sub

Private Sub mnuSua_ho_so_ClickQ 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 frmThemN guoiSuDung, 1

End Sub

Private Sub mnuThoat_ ClickQ

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_ClickQ If frmThongKe. WindowState = 1 Then

frmThongKe. WindowState = 0 Else

frmThongKe.SSTab.Tab = 0

32

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_ ClickQ mnuThong_ke_tto_ Click

frmThongKe.SSTab.Tab = 3 End Sub

Private Sub mnuThong_ke_theo_yeu_cau_ClickQ 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 Sub

Private Sub Toolbarl_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

34