Các bạn vào đây để trao đổi thảo luận về cách giải đề thi học kỳ 2 môn CTDL & GT nha (nhấn trả lời để post bài giải nha), còn đây
là đề thi [You must be registered and logged in to see this link.]

Phần design:
Textbox: Trong Properties của các ô textbox, chọn Locked là True

Label của textbox	Tên textbox
Mã số học sinh	Text1
Họ và tên	Text2
Điểm Toán	Text3
Điểm Văn	Text4
Điểm Anh	Text5
Điểm TB	Text6

Nút Command:

Caption	Name
Tìm	cmdTim
Thêm	cmdThem
Xóa	cmdXoa
Sửa	cmdSua
Tính	cmdTinh

Phần code:
Nút Tìm:

Code:

Private Sub cmdTim_Click()
Dim ch As String
Dim thongbao As Boolean
cmdThem.Enabled = False
cmdXoa.Enabled = False
cmdSua.Enabled = False
cmdTinh.Enabled = False
ch = InputBox("Nhap ma so hoc sinh can tim", "thong bao")
Adodc1.Recordset.MoveFirst
thongbao = False
Do While Not Adodc1.Recordset.EOF
    If Adodc1.Recordset.Fields("ma so hoc sinh") = ch Then
        thongbao = True
        Exit Do
    End If
    Adodc1.Recordset.MoveNext
Loop
If thongbao = False Then
    m = MsgBox("Khong co hoc sinh can tim", vbOKOnly + vbInformation, "Thong bao")
End If
cmdThem.Enabled = True
cmdXoa.Enabled = True
cmdSua.Enabled = True
cmdTinh.Enabled = True
End Sub

Nút Thêm:

Code:

Private Sub cmdThem_Click()
    Text1.Locked = False
    Text2.Locked = False
    Text3.Locked = False
    Text4.Locked = False
    Text5.Locked = False
    Text1.SetFocus
    cmdTim.Enabled = False
    cmdXoa.Enabled = False
    cmdSua.Enabled = False
    Adodc1.Recordset.AddNew
End Sub

Nút Xóa:

Code:

Private Sub cmdXoa_Click()
Dim ch As String
Dim thongbao As Boolean
cmdTim.Enabled = False
cmdXoa.Enabled = False
cmdSua.Enabled = False
'cmdTinh.Enabled = False
ch = InputBox("Nhap ma so hoc sinh can xoa", "thong bao")
Adodc1.Recordset.MoveFirst
thongbao = False
Do While Not Adodc1.Recordset.EOF
    If Adodc1.Recordset.Fields("ma so hoc sinh") = ch Then
        thongbao = True
        n = MsgBox("Ban co chac chan muon xoa khong ?", vbYesNo + vbInformation, "Thong bao")
        If n = vbYes Then
            Adodc1.Recordset.Delete
        End If
        Exit Do
    End If
    Adodc1.Recordset.MoveNext
Loop
If thongbao = False Then
    m = MsgBox("Khong co hoc sinh can xoa", vbOKOnly + vbInformation, "Thong bao")
End If
cmdTim.Enabled = True
cmdXoa.Enabled = True
cmdSua.Enabled = True
cmdTinh.Enabled = True
End Sub

Nút Sửa:

Code:

Private Sub cmdSua_Click()
Dim ch As String
Dim thongbao As Boolean
ch = InputBox("Nhap ma so hoc sinh can sua", "thong tin")
Adodc1.Recordset.MoveFirst
thongbao = False
Do While Not Adodc1.Recordset.EOF
    If Adodc1.Recordset.Fields("ma so hoc sinh") = ch Then
        cmdTim.Enabled = False
        cmdXoa.Enabled = False
        cmdThem.Enabled = False
        Text1.Locked = False
        Text2.Locked = False
        Text3.Locked = False
        Text4.Locked = False
        Text5.Locked = False
        Text6.Text = ""
        thongbao = True
        Adodc1.Recordset.Update
        Exit Do
    End If
    Adodc1.Recordset.MoveNext
Loop
If thongbao = False Then
    m = MsgBox("Khong co hoc sinh can sua", vbOKOnly + vbInformation, "Thong bao")
End If
End Sub

Nút Tính:

Code:

Private Sub cmdTinh_Click()
    Text1.Locked = True
    Text2.Locked = True
    Text3.Locked = True
    Text4.Locked = True
    Text5.Locked = True
    If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Then
        m = MsgBox("Hay nhap day du thong tin", vbInformation + vbOKOnly, "Thong bao")
        Text1.Locked = False
        Text2.Locked = False
        Text3.Locked = False
        Text4.Locked = False
        Text5.Locked = False
    Else
        cmdTim.Enabled = True
        cmdXoa.Enabled = True
        cmdSua.Enabled = True
        cmdThem.Enabled = True
        Text6.Text = (Val(Text3) + Val(Text4) + Val(Text5)) / 3
        Adodc1.Recordset.Save
    End If
End Sub

Phần cuối: chạy chương trình
Khi bắt đầu chạy chương trình, các textbox sẽ được khóa lại (locked=true) để xem.
Click nút Tìm: các nút khác sẽ ẩn, tìm xong thì các nút sẽ hiện lại.
Click nút Thêm: các nút Tìm, Xóa, Sửa sẽ ẩn; các ô textbox sẽ được mở khóa (locked=false); nhập đầy đủ rồi click nút tính thì thông tin sẽ được cập nhật vào CSDL và các nút bị ẩn sẽ hiện lại.
Click nút Xóa: các nút khác sẽ ẩn, xóa xong thì các nút sẽ hiện lại.
Click nút Sửa: các nút Tìm, Thêm, Xóa, sẽ ẩn; các ô textbox sẽ được mở khóa (locked=false); textbox6 sẽ bị xóa thông tin; nhập đầy đủ rồi click nút tính thì thông tin sẽ được cập nhật vào CSDL và các nút bị ẩn sẽ hiện lại.

Các bạn có thể download câu 2 về chạy thử [You must be registered and logged in to see this link.]