xây dựng chương trình quản lý giáo viên(luận văn)

Trang 1

Luận van

XAY DUNG Hé THONG CHUONG

TRINH QUAN LY GIAO VIEN

Trang 2

LOI NOI DAU

Ngày nay với sự phát triển của ngành công nghệ thông tin đã đem lại

hiệu quả to lớn trong nhiều lĩnh vực, đáp ứng nhu cầu ngày càng cao của cuộc sống con người Một trong những lĩnh vực đó chính là quản lý giáo viên Với việc quản lý giáo viên trên máy tính, chúng ta sẽ giảm bớt được

một khối lượng công việc rất lớn cho những người quản lý, giảm bớt lượng

người không cần thiết trong khâu quản lý này Trước kia, khi tất cả nguồn lực con người còn được quản lý thủ công không chỉ là khó khăn mà còn đẫn đến việc sai xót dữ liệu và viêc cập nhật thêm thông tin là rất chậm

Với đề tài thực tập chuyên môn: “Xây dựng hệ thống chương trình

quản lý giáo viên” Qua việc đã đi khảo sát trên thực tế tại trường: THPT

Mỹ Hào-Huyện mỹ hào-Tỉnh Hưng Yên, cũng như những tài liệu thu thập được về hệ thống quản lý giáo viên, đã xây dựng được hệ thống quản lý nhân sự của trường, mục đích hệ thống sẽ đáp ứng được việc quản lý những

dữ liệu về hồ sơ cán bộ giáo viên trong phạm vi của trường

Mục lục

PhanI: Khảo sát hệ thống quản lý nhân viên trường THPT Mỹ

HAO .,ÔỎ 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ẳnl: 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

Trang 3

2.1 Biểu đồ mức ngữ cảnh - 11

2.2 Biểu đồ mức đỉnh - + + c+ se 12 2.3 Biểu đồ mức dưới đỉnh -‹ +c«- 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ẳnIH: Xây dựng cơ sở dữ liệu s55 5+2 555sc5sscs> 17 1 Mô hình thực thể liên Kết - + sa 17 2 Mô hình quan hệ CSDL - -.- - - << 18

3 Các bảng CSDL cc- 1S 19 PhằnIV: Giới thiệu chương trình 55+ 2+ 25 1 Giao diện chính của chương trình -. - 26

Trang 4

PHAN I

KHAO SAT HE THONG QUAN LY CAN BO GIÁO VIÊN TRƯỜNG THPT Mỹ Hào 1 Nhiệm vụ và mục tiêu :

a Nhiệm vụ:

- Tìm hiểu cơ cấu tổ chức và hoạt động giảng dậy của trường

THPT Mỹ hào

- Khảo sát tình hình thực tế hiện nay của trường THPT Mỹ Hào

- Áp dụng các kiến thức về Cơ sở dữ liệu, phân tích và thiết kế hệ

thống thông tin quản lý, phần mềm lập trình, để xây dựng chương trình quản lý Giáo viên trường THPT Mỹ Hào

b Mục tiêu :

- Tìm hiểu và nghiên cứu bài toán Phân tích-Thiết kế hệ thống

thông tin quản lý nhân sự trường trung học PT Mỹ hào — Hung Yén

Từ đó phân tích thiết kế hệ thống quản lý nhân sự cho trường THPT

Mỹ Hào như cập nhật, bỗ sung, tra cứu thông tin của giáo viên trên hệ thống một cách nhanh chóng, chính xác hiệu quả mà không phải vất vả làm việc trên giấy tờ trước đây Đồng thời hướng phát triển thêm của hệ thống là trở thành hệ thống không chỉ là quản lý giáo viên mà cả về quản lý nhân sự của trường THPT mỹ hào

2 Sơ lược về trường THPT Mỹ Hào:

a Địa chỉ :

-_ Đương 5-Thi Trấn Bàn -Mỹ hào-Hưng Yên

- Điện thoại : (0321-3)8562261

Trang 5

b Quá trình xây dựng và phát triển của trường :

- Được thành lập vào ngày 1 tháng 12 năm 1963 theo quyết định số 5315/QĐÐ-UB của UBND Tỉnh Hưng Yên, trường THPT Mỹ Hào là trường công lập đầu tiên của Hưng Yên Hiện nay do Thầy giáo Nguyễn Văn Phê làm hiệu trưởng

- Năm học 1993-1994 nha trường có 13 lớp bậc THPT và 3 lớp bậc

THCS với tổng số 768 học sinh và 21 nhân viên đều có trình độ từ đại học trở lên - Cho dén nay nhà trường đã có 36 phòng học và gồm nhiều phòng chức năng + 6 phòng học chuyên đề + 3 phòng thực hành và thí nghiệm(Lý, Hoá, Sinh) + 1 phòng nghe nhìn + 3 phòng thực hành Tin học + 1 phòng thư viện

-_ Hiện nay nhà trường đang tiếp tục xây dưng thêm 2 khu giang dậy

cho giáo viên và học sinh Dự tính số phòng học tên tới 25 phòng học Nhà trường đang phát triển về mọi mặt cả về cơ sở vật chất đến chất lượng giảng dậy ,khu vui chơi giải trí cho hoc sinh Số giao viên dậy giỏi

đang tăng lên từng ngày và chất lượng giảng dậy của giáo viên ngày một

nâng cao

-_ Nhà trường đang thực hiện Ứng dụng công nghệ thông tin vào giảng

dậy cho học sinh như ,giáo trình trực tuyến , số liên lạc điện tử, giải đáp

qua website ,tat cả thông tin nhà trường và giáo trình giảng dậy đều được đưa lên website để học sinh có thể vào tìm hiểu và lấy tài liệu

Trang 7

b Neghiép vu cua nha truong :

- Té hanh chinh : chuyên giải quyết các vẫn đề về tiền lương cho nhân

viên trong trường, cũng như thực hiện các hoạt động liên quan đến vấn đề

tài chính mà ban giám hiệu đề xướng

- Tổ cơng đồn: chịu trách nhiệm việc thực hiện tổ chức, tham gia,

quản lý các vấn đề liên quan đến đoàn

—_ Tổ bảo vệ : chuyên giải quyết các vấn đề về an ninh trật tự trong nha trường

— _ TỔ tạp vụ : đảm nhiệm việc nấu ăn cho nhân viên, bán thực phẩm cho học sinh trong trường, bên cạnh đó là việc giữ gìn vệ sinh trong toàn trường

- _ Các tổ chuyên môn: chịu trách nhiệm nghiên cứu chuyên ngành của mình, đồng thời phân công và giảng dạy cho các lớp trong toàn trường

c Quản lý nhân sự của trường THPT Mỹ Hào chia ra làm 2 mảng Biên chế và hợp đồng TRƯỜNG THPT Mỹ Hào BIÊN CHÉ HỢP ĐÒNG

Cán bộ quản lý Giáo viên Giáo viên Nhân viên vụ việc

Nhân viên

Trang 8

Bién ché Hop déng + Cán bộ quản lý - Hiệu trưởng - Phó hiệu trưởng - Chủ tịch cơng đồn - Bí thư chi đoàn - Tống phụ trách + Nhân viên - Thư viện - Kế toán - Văn phòng + Giáo viên - Tổ toán - Tổ lý - Tổ hoá - Tổ Văn-Sử-Địa - Tổ GDCD - Tổ Thể Mỹ KT

+ Nhân viên văn phòng

+ Nhân viên vụ việc - Bảo vệ - Giám thị - Vệ sinh + Giáo viên dạy tin học d Đặc tả

Hiện nay tại trường THPT Mỹ Hào, phòng văn thư quản lý việc lưu giữ hồ sơ của nhân viên trong trường Tức là quản lý theo nguồn lao động bao gồm đặc điểm về lý lich, nhân sự và lao động Bên cạnh đó việc tìm kiếm theo các tiêu chí cụ thê như : tìm theo họ tên, quê quán

Vào đầu mỗi năm học, nhà trường sẽ đón thêm 1 số giáo viên mới ra

Trang 9

sẽ duyệt thông tin lý lịch của từng cán bộ để đưa thêm vào danh sách cán bộ hiện có của nhà trường

Trong trường hợp nếu phòng giáo dục không thể điều động kịp thời cho 1 số bộ môn bị thiếu giáo viên, thì nhà trường sẽ hợp đồng với 1 số giáo viên bên ngoài để có thể đáp ứng đủ nhu cầu của các bộ môn đó (Sẽ không có

trường hợp I giáo viên phụ trách 2 chuyên môn như trước đây, vì theo yêu

cầu mới của Bộ GD&ĐT, I1 giáo viên chỉ đảm trách chuyên môn của mình,

nhằm đảm bảo chất lượng đạy và học của giáo viên và học sinh) Tất cả hồ

sơ của các giáo viên này cũng được quản lý như trường hợp của giáo viên

thuộc đạng biên chế của nhà trường Tức là, hồ sơ được đánh mã số riêng và

sẽ được đưa thêm vào danh sách cán bộ hiện có của nhà trường

Ngoài việc hợp đồng với 1 số giáo viên, nhà trường phải hợp đồng với 1

số nhân viên như: giám thị, vệ sinh để đáp ứng đầy đủ các nhu cầu cần có

của nhà trường

Vào cuỗồi năm học, nhà trường sẽ đưa ra việc thống kê theo 1 số tiêu chí

cụ thể để có thể đưa ra được những đánh giá cơ bản và chính xác nhất về

tình hình nhân sự của nhà trường Tiêu chí này được đưa ra dựa vào nhu cầu thực tế, ví dụ như: Thống kê tất cả các cán bộ nhân viên nhà trường, đưa ra danh sách cán bộ nhân viên theo các điều kiện phù hợp với yêu cầu

Qua đó, bài toán này được xây dựng dựa trên nhu cầu quản lý hồ sơ nhân viên của Ban giám hiệu nhà trường, tức là quản lý theo nguồn lao động bao

gồm đặc điểm về lý lịch, nhân sự và lao động Hệ thống sau khi được xây dựng sẽ đưa ra thông tin chính xác nhất về hồ sơ nhân viên, giúp tiết kiệm

Trang 10

PHAN II

PHAN TICH VA THIET KE HE THONG

1 Sơ đồ phân cấp chức năng nghiệp vụ của trường : QUẢN LÝ NHÂN VIÊN TRƯỜNG THPT Mỹ Hào |

1.Admin 2.Cập nhật 3.Tra cứu 4.Thống kê, in ấn

1.1 Đăng ký 2.1.Cập nhật | | 3.1.Tim theo |_| 4.1.Théng ké

hô sơ nhân sự mã số hỗ sơ theo tô

1.2 Đăng nhập 2.2.Cập nhật 3.2.Tìm theo họ 42 Thống kê danh mue []† tân FT} theo chức vụ |_| 33.Tìmtheo tổ | | | 4.3.Thắng kê theo thâm niên 3.4.Tìm theo 4.4.Thống kê ——† chức vụ |_| theo qué quán 45 Thong ké

— | theo yêu cầu

Hình :Biểu đô phân cấp chức năng

Trang 11

Công việc quản lý nhân viên của trường THPT Mỹ Hào bao gồm các chức năng chính là: - Admin - Cap nhật -_ Tra cứu -_ Thống kê Chức năng: Admin

— Đăng ký: Người sử dụng phải đăng ký tài khoản, tài khoản cung cấp sẽ được giới hạn quyền quản lý hệ thống

- Đăng nhập: Người sử dụng đăng nhập để sử dụng

Chức năng: Cập nhật hồ sơ

-_ Cập nhật hồ sơ nhân sự: Chức năng dùng để thêm mới hoặc thay đổi thông tin trong hồ sơ nhân sự Thông tin được của

nhân viên khi nhà trường tiếp nhận thì sẽ được đưa vào trong

hồ sơ hệ thống thông qua chức năng này

- Cập nhật danh mục: Cập nhật danh mục chức vụ công tác, tổ

làm việc

Chức năng: Tra cứu

- Tìm kiếm theo mã số cán bộ: Tìm kiếm thông tin của nhân viên theo mã số hồ sơ

-_ Tìm kiếm theo họ tên: Tìm kiếm thông tin của nhân viên theo

họ tên

Trang 12

- Thống kê theo thâm niên: Thống kê tất cả các nhân viên theo

từng khoảng thời gian công tác

- Thống kê theo quê quán: Thống kê tất cả các nhân viên có

cùng quê quán

- Thống kê theo yêu cầu: Thống kê tất cả các nhân viên theo một số yêu cầu cụ thê

2 Biểu đồ luồng dữ liệu

Trang 14

2.3 Biểu đồ luồng đữ liệu mức dưới đỉnh

Trang 16

c Biêu đồ phân rã chức năng “Tra cứu ” Ban giám hiệu Kết quả 3.1 Tìm theo mã sô hô sơ a H6 so Gvién 3.3 Tim theo to Ban giám hiệu ; Két\qua

"Yêu cau ana

Trang 17

Ban giám hiệu , Kết|quả Kêtquả Yêu |câu a

4.1 Thống kế `, Yêu kầu / 42 Thing ké

theo tô fs > theo chức vụ X , Người sử dụng Hồ sơ nviên Hồ sơ nviên 4.3 Thống kê

theo thâm niên 4.4 Thống kê

Trang 20

3 Cac bang CSDL: a 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 Noi 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 dinh

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 Dang vién

SoTheDang Text 10 Số thẻ đảng

NgayVaoDang Date/Time Ngay vao dang

Trang 21

NoiVaoDang Text 50 Noi vao dang MaTDNN Text 5 Mã trình độ NN HocHam Text 15 Học hàm

NgayNhanHH Date/Time Ngay nhan hoc ham

MaLuong Text 5 Ma luong

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 nhap MaKhenThuong Text 5 Mã khen thưởng

MaKyLuat Text 5 Mã kỷ luật

Trang 22

b 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 ween oe

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

c Bảng thâm niên :

Tên trường Kiểu dữ liệu Kích thước Diễn giải

Trang 23

e Bang 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ã mình độ CMC Khoá chính NganhDT Text 50 Ngành đào tạo

LoaiHinhDT Text 50 Loai hinh dao tao

TruongDT Text 50 Truong dao tao

NienKhoa Text 10 Niên khoá

f 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 Cap nhat Manage Yes/No Quan tri

Discription Text 30 Dién giai chi tiét FullName Text 30 Họ tên đầy đủ

Trang 24

g Bang to:

Tên trường Kiểu dữ liệu Kích thước Diễn giải

MaTo Text 5 Mã tơ-Khố chính

TenTo Text 50 Tên to h Bảng lương : Tên trường Kiểu dữ liệu Kích thước Diễn giải Mã lương-Khoá MaLuong Text 5 chính LuongCB Currency Lương cơ bản HesoLuong Number Hệ số lương i Bang khen thưởng :

Trang 25

j Bảng kỷ luật: Tên trường Kiểu đữ liệu Kích thước Diễn giải Mã kỷ luật-Khoá MaKyLuat Text 5 chính LyDoKyLuat Text 150 Lý do kỷ luật

NgayKyLnat Date/Time Ngày kỷ luật Hình thức kỷ HinhThucKyLuat Text 150 ˆ luật k Bảng ngoại ngữ : Tên trường Kiểu dữ liệu Kích thước Diễn giải Mã trình độ NN- MaTDNN Text 5 Khoá chính TenNN Text 20 Tên ngoại ngữ LoaiTD Text 50 Loại trình độ

1 Bang tỉnh thành :

Tên trường Kiểu dữ liệu Kích thước Diễn giải

ID AutoNumber ID-Khod chinh

TinhThanh Text 50 Tinh thanh

Trang 27

Phan IV

Giới thiệu chương trình

I 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 Thốt †+ /X6aAlii@ ` Ă« Nhấn F1 để xem tự giúp Code Form : Option Explicit

Const HH_DISPLAY_TOPIC = &H0O Const HH_HELP_CONTEXT = &HF

Trang 28

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)

Trang 30

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

Trang 31

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

Trang 32

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

Trang 33

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

Trang 35

H Các Form chức năng của chương trình:

1 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

Lua chon

2 Form: Tao 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

®= lau tai khuan

Tên tài khoẵn Mat khau Họ tên đầy đủ

Mo t& chi tiét

- Quyền hạn của người sử dụng

IV em F7 Căn nhật F” Quần trị hệ thống

Ghi Lầm lại Thoát

Trang 36

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 "Phi nhÉp ®Cy @fi 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

Trang 37

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 ding thunh c«ng", 1

Trang 38

frmluachon.Show frmThemnguoidung?2 Visible = False chkXem.Enabled = False cmdlamlai-Enabled = False cmdGhi.Enabled = False End Sub

Private Sub Form_Load()

Trang 39

3 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

Dang nhap he thong

Thay doi mat khau

Mat khau cit Mat khau méi 4c nhan lai

5 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

Trang 40

= Them nguoi su dung Tên tài khẩn i © Miật khẩu pc Ị Họ tên đầu đủ J M6 t4 chi tiét fT ti - Huyền hạn của người sử dụng = [— em Í— Cập nhật Í— Quản trị hệ thống Ghi Thoát Code form: Option Explicit

Private Sub cmdGhi_ ClickQ

Dim Trong As Boolean

Trong = (txtPassword.Text = "") Or (txtUserName.Text = "")_ Or (txtFullName.Text = "") Or (txtDiscription.Text = "") If Trong Then ShowMSG "Ph{i nhEp ®Cy ®fi c,c th«ng tin", 2 txtPassword.SetFocus Exit Sub End If