Download miễn phí Khóa luận Xây dựng hệ thống chương trình quản lý giáo viên
Mục lục
PhầnI: Khảo sát hệ thống quản lý nhân viên trường THPT Mỹ Hào. 3
1. Nhiệm vụ và mục tiêu của bài toán . 3
2. Sơ lược về trường THPT Mỹ Hào . 3
3. Cơ cấu tổ chức của trường THPT Mỹ Hào 5
PhầnII: Phân tích và thiết kế hệ thống . 9
1. Sơ đồ phân cấp chức năng nghiệp vụ của trường . 9
2. Biểu đô luồng dữ liệu. 11
2.1 Biểu đồ mức ngữ cảnh . 11
2.2 Biểu đồ mức đỉnh . 12
2.3. Biểu đồ mức dưới đỉnh . 13
a. Biều đồ phân rã chức năng “Admin”. 13
b. Biểu đồ phân rã chức năng “Cập nhật. 14
c. Biểu đồ phân rã chức năng “Tra cứu”. 15
d. Biểu đồ phân rã chức năng “ Thống kê”. 16
PhầnIII: Xây dựng cơ sở dữ liệu . 17
1. Mô hình thực thể liên kết 17
2. Mô hình quan hệ CSDL . 18
3. Các bảng CSDL . 19
PhầnIV: Giới thiệu chương trình 25
1. Giao diện chính của chương trình .26
2. Các Form chức năng của chương trình .31
Phần V: Lựa chọn ngôn ngữ .52
Để tải bản Đầy Đủ của tài liệu, xin Trả lời bài viết này, Mods sẽ gửi Link download cho bạn sớm nhất qua hòm tin nhắn.
Ai cần download tài liệu gì mà không tìm thấy ở đây, thì đăng yêu cầu down tại đây nhé:
Nhận download tài liệu miễn phí
Tóm tắt nội dung tài liệu:
guMaTDNN
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 HtmlGiúp 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()
HtmlGiúp 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
...