Imports DAO   'Sử dụng thư viện liên kết của tầng DAO

Public Class BusHocSinh

    'Khai báo một đối tượng để sử dụng các phương thức của lớp DaoHocSinh

    Dim dHocSinh As New DaoHocSinh

    'Xử lý các yêu cầu nghiệp vụ

    Public Function TimHocSinh(ByVal keyTim As String, ByVal tenCot As String) As DataTable

        'Dữ liệu dùng hiển thị trên form

        Return dHocSinh.LayBangHocSinh(keyTim, tenCot)

    End Function

    Public Function Sua(ByVal mHocSinh() As Object) As String

        Dim strTB As String = "" 'thông báo lỗi nếu có

        'Kiểm tra trùng khoá

        Dim dtHocSinh As New DataTable

        dtHocSinh = dHocSinh.LayBangHocSinh(mHocSinh(0), "MaHS")

        If dtHocSinh.Rows.Count = 1 Then

            strTB = "Mã số học sinh đã có."

        End If

        'Kiểm tra số điện thoại

        If Len(mHocSinh(3)) <> 10 Then

            strTB += Chr(13) + "Số điện thoại phải đúng 10 ký số."

        End If

        'Thoả các yêu cầu, thực hiện cập nhật

        If strTB = "" Then dHocSinh.Sua(mHocSinh)

        Return strTB

    End Function

End Class