Form: Cập nhật hệ thống

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

9. 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 .

Chuyên môn Lương Khen thưởng. Kẻ luật

Chức vụ lÍ Ngoại ngữ: iL Tinh thanh | Tẩ

Mã chức vụ to —

Tên chức vụ Nữđươươn:rzẹzmœcœ%m

to.

To2 Tổ ng tổ L.

Tũ3 Phó T

T04 Tổ phó tổ Văn-Sử-Ð

Tũ5 Lao

TÚE + H

Tor Tổ trưởng tổ Sinh

Tos Bao

Tos Bí thư đi

T18 Phó bí thư đoàr tổ n

ae ee Kad] <4) >> poi

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 "Tring m-, nhEp m- kh,c", 1 End If

End Sub

Private Sub DBGrid_Click() UnAllowUpdate

End Sub

Private Sub Form_Load() UnAllowUpdate

Data.DatabaseName = App.Path & "\qins.mdb"

ChoiseTable End Sub

Private Sub cmdBack_ClickQ) 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_ClickQ 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_ClickQ Unload Me

End Sub

Private Sub cmdXoa_Click()

ShowMSG "Ca ch%4c ch34n 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 & "\qins.mdb"

ChoiseTable End Sub

'Danh sach cac ham bo xung

Public Sub AllowUpdateQ Dim i As Integer

For i=0 To 22

text(i).Enabled = True Next

cmdGhi.Enabled = True cmdBo.Enabled = True

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

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

10. Form: Tim 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ụ

® 1ịm kiem

Tìm kiếm theo Chức năng

Mã số cần hộ |

Hạ và tên [|

Tên tổ [_——

Chức vụ [

Thoát

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 txm thấy ng-ời nuo", 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_Click() frmCapNhat.Height = 6945 End Sub

Private Sub dgrdLke_Click() End Sub

11.Form: Thống kê báo cáo

Form có chức năng thông kê, liệt kê tất cả các thông tin cần thiết của giáo viên như liệt kê theo tô làm việc ,chức vụ, thâm niên , quê quán ,yêu cầu .Sau khi lựa chọn thông tin liệt kê chúng ta có thể in thông tin đó ra .

Mô tả :Khi muốn danh sách các giáo viên của một tổ nào hay của một tình nào ,chức vụ nào ,thì ta không cần phải đánh từng nhân viên một mà ta chỉ cần chọn thông tin của các giáo viên đó để ta liệt kê ra và in ra danh sách

m Thong ke va bao cao ak)

Tên tổ lầm việc

| =|

Tổ lầm việc | Chức vụ iN Tham nién i Qué quấn i Yêu cầu

Liệt kê

Mã số Hạ tên Ngày sinh| Quê quần

001 Vũ Hoàng ảnh 10/7/1870! Hà Nội

002 Nguyễn Đình Chiểu 10/30/1877| Hà Nam

003 Nguyễn Nhật Hồng 4/12/1881 Hãi Dương

004 Vũ Tiến Việt #/25/135B| Hà Nội

005 Trần Thu Thuủ

O06 |Kich dup vao mot nguoi de xuat ra bao cao]

oo? 6 Quéc Huy

008 Vũ Thị Quỳnh Hai Phang

009 Lé Manh Thi 2/21/1945|Nam Binh

010 Đỗ Trạng Thẳng 2/3/1845| Duằng Nam

11 2/8/1345| uãng Nam

} |051 Nguyễn Tiến Thành 5/11/1375| Hà Tây

Một số Danh sách thông kê :

Cộng hoà xã hội chủ nghĩa Việt Nam

Trường THPT Mỹ Hào Độc lập - Tự do - Hạnh phúc

Danh sách cán bộ

Mãsố | Họtên Ngày sinh | Quê quán Tổlàmviệ | Chứcvụ Thâm niên 0 Dương Kim ánh 20/10/1977 | Hưng Yên 'Tổ Sinh 'Tổ trường tổ Sinh. Trên 20 năm.

00 Nguyen Xuân Dũng | 25/07/1956 | Hưng Yên Ban giámhiệu | Phó Hiệu trường Trên 20 năm.

017 'Vĩi Mạnh hà 03/05/15. | Hưng Yên Phòng HC Nhân viên :- 3 năm.

006 Pham Doan Trang 02/05/1970 | Hưng Yên Ban giámhiệu | Phó Hiệu trường Trên l0 năm.

029 Đỗ Mạnh Thụ 03/05/1945 | Hung Yên Phòng KTuán | Nhânyiên Dưới | năm 030 Vũ Thị Thụ 03/05/1945 | Hưng Yên T6 Tin Hoc Nhân viên :- 3 năm

01 Vũ Thu Thụ 03/05/15 | Hưng Yên Phòng HC Nhân viên Trên 20 năm.

032 Lé Thj Hoa 03/05/1947 | Hưng Yên Tổ Toán Tổ viên Trên l0 năm.

0ð Duong Van Thing | 10/10/1958 |HugYên | TếLý Tổ trường tổ Lý Trên l0 năm Hà Nội, Ngày ....Tháng ....Năm....

Cộng hoà xã hội chủ nghĩa Việt Nam Trường THPT Mỹ Hào. Độc lập - Tự do - Hạnh phúc

Danh sách cán bộ

007 Nguyễn Trọng 08/06/1970 | Hải Phòng TổNNgữ Tổ viên “Trên 20 năm.

018 Nguyễn Xuân Quyết | 01/07/1971 | HmgYên Phòng CĐoàn | Bíthưchi đoàn “Trên 20 năm.

001 Dương Văn Thắng 10/10/1958 | Hung Yen Tổ Lý 'Tổ trường tổ Lý "Trên 10 năm.

Hà Nội, Ngày ....Tháng ....Năm....

Code form : Option Explicit Dim strSQL As String Dim strSQLtemp As String

Private Sub cmdIn_Click() ShowDanhSach strSQL End Sub

Private Sub cmdLietKe_Click()

Dim stHT, stQQ, stDT, stTo, stCV, stTN, stGT, stDV, stNS, stHH, stNN As String

‘Que quan:

Tf cboQQ.text <> '"" Then stQQ =" AND QueQuan=""_&

cboQQ.text & "'"

‘Dan toc

If cboDT.text <> '"" Then stDT = " AND DanToc = '" &

cboDT.text & ""

TTo:

Tf cboTo.text <> "" Then stTo = " AND To.TenTo= " & ""

& cboTo.text & ""

'Chuc vu:

]f cboCV.text < "" Then stCV = " AND ChucVu.TenCV=

"&"" & cboCV.text & ""

'Cap bac

If cboTNien.text <> "" Then stTN = " AND

ThamNien.ThamNien= " & "'" & cboTNien.text & """

‘Hoc ham:

If cboHH.text <> '"" Then stHH = " AND HosoCB.HocHam= " & "'" & cboHH.text & ""

'Ngoai ngu

If cboNN.text <> "" Then stNN = " AND NgoaiNgu.TenNN= " & """ & cboNN.text & ""

'Gioi tinh:

Select Case cboGT.ListIndex Case 1, 2

stGT = " AND GioiTinh ="" & cboGT.text & ""

End Select

‘Dang vien:

Select Case cboDV.ListIndex Case 0

stDV =""

Case 1

stDV =" AND DangVien "

Case 2

stDV =" AND (NOT DangVien) "

End Select

‘Nam sinh:

Tf txtNS.text <> '"" Then

Select Case cboNS.ListIndex

Case 0

stNS = " AND YEAR(NgaySinh) = " & txtNS.text Case 1

stNS = " AND YEAR(NgaySinh) >" & txtNS.text Case 2

stNS = " AND YEAR(NgaySinh) < " & txtNS.text End Select

End If

strSQL = strSQLtemp & stTo & stCV & stDT & stIN &

stQQ & stHH & stNN & stGT & stDV & stNS Data.Refresh

Data.RecordSource = strSQL Data.Refresh

If Not (Data.Recordset.EOF And Data.Recordset.BOF) Then

frmThongKe.Height = 7380 Data.Recordset.MoveLast

ShowMSG "Ca " & Str(Data.Recordset.RecordCount) &

" ng-éi ®-ic txm thEy ", 1 Else

frmThongKe.Height = 3945

ShowMSG "Khang txm thEy ng-éi nyo ", 1 End If

End Sub

Private Sub cmdThoat_ClickQ) Unload Me

End Sub

Private Sub cmdTimMoi_Click() cboTo.text = ""

cboCV.text = ""

cboTNien.text = "”

cboQQ.text = ""

cboNN.text = ""

cboCM.text = ""

cboDT.text = ""

cboGT.ListIndex = 0 cboDV.ListIndex = 0 cboNS.ListIndex = 0

txtNS.text = ""

End Sub

Private Sub DBGrid_DbIClickQ

ShowHoso Data.Recordset.Fields(0). Value End Sub

Private Sub Form_Load()

Data.DatabaseName = App.Path & "\qins.mdb"

LoadFieldToCombo "To", "TenTo", cboTo, False LoadFieldToCombo "ChucVu", "TenCV", cboCV, False LoadFieldToCombo "ThamNien", "ThamNien",

cboTNien, False

LoadFieldToCombo "TinhThanh", "TinhThanh", cboQQ, False

LoadFieldToCombo "NgoaiNgu", "TenNN", cboNN, False LoadFieldToCombo "DanToc", "DanToc", cboDT, False LoadFieldToCombo "HocHam", "HocHam", cboHH, False LoadFieldToCombo "TrinhDoChuyenMon", "NganhDT", cboCM, False

AddItemIntoComboBox cboGT, "TEt cf", "Nam", "N="

AddItemIntoComboBox cboDV, "TEt cf", "Ca", "Không”

AddItemIntoComboBox cboNS, "Bằng", "Tr’n", "D-ii"

strSQLtemp = "SELECT MaCB as “M- sé," _

& " HoTen as “Hi t*n’," _

& " NgaySinh as `Nghy sinh`," _

& " QueQuan as `Qu° qu,n`,"

& " TenTo as YI?n tœ`, "_

& " TenCV as `Chức vụ`," _

& " FROM HosoCB, To, Chuc Vu, ThamNien,NgoaiNgu "_

& " WHERE (HosoCB.MaTo=To.MaTo) "_

& " AND

(HosoCB.MaCV=ChucVu.MaCV)"_

& " AND

(HosoCB.MaTN=ThamNien.MaTN) "_

& "AND

(HosoCB.MaTDNN=NgoaiNgu.MaTDNN) "

strSQL = strSQLtemp End Sub

'Load vụo c,c cboGT,cboNS,cboDV

Public Sub AddItemIntoComboBox(ComboBoxName As ComboBox, strl As String, str2 As String, str3 As String)

ComboBoxName.Addltem strl ComboBoxName.Addltem str2 ComboBoxName.Addltem str3 ComboBoxName.ListIndex = 0 End Sub

Private Sub SSTab_DbIClickO End Sub

Private Sub txtNS_Change()

Tf Len(txtNS.text) = 4 Then cmdLietKe.SetFocus

ShowMSG "Nhap so,vi du 1980", 2 txtNS.SetFocus

End If

If txtNS.text <> "" Then cboNS.Enabled = True Else

cboNS.Enabled = False End If

End Sub

Private Sub txtNS_GotFocus() SelectTextBox txtNS End Sub

11.Form: Giới thiệu

Giới thiệu chương trình quản lý giáo viên trương THPT Mỹ Hào ,Tên sinh viên thực hiện, Hiaos viên hướng dẫn

Chuong trình quan ly nhan su

- Chuong Trinh Quan Ly Giao Vien Truong THPT My Hao -

Giao Vien Hung Dan : Ths. Tran Van Loc Sinh Vien Thuc Hien: Nguyen Hong Quan

Mssv: 506101046 Lop :506104 Khoa :CHTT

Truong :DH DL Phuong Dong

Code form : Option Explicit Dim i As Integer

Private Sub cmdThoat_ClickQ Unload Me

End Sub

Private Sub Form_Load() i=l

Me.Text1.Enabled = False

Me.Text1.text = " Ch-—ng trxnh qu'ịn lý nh©n su tr-êng THPT My Hao - Chong em xin ch©n thunh cfm —n su gidp ®i ciia thay Tran Van Loc giúp đỡ em hoụun thụnh ch-—ng trxnh ! "

Me.Timer1 Interval = 80 End Sub

Private Sub Labell_ ClickQ End Sub

Private Sub Picturel_ ClickQ End Sub

Private Sub Framel_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Timer_Timer()

Image2.Picture = imgList.ListImages(i).Picture Ifi<25 Then

i=i+l Else

i=l End If

End Sub

Private Sub Timer1_Timer() Dim Y As String

Dim X As String

X = Left(Me.Textl.text, 1)

Y = Right(Me.Textl.text, Len(Me.Textl.text) - 1) Me.Textl.text = Y + X

End Sub

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

Một số tập lệnh dùng trong chương trình