Imports 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 Them(ByVal newHS 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(newHS(0).ToString.Trim)

        If dtHocSinh.Rows.Count = 1 Then

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

        End If

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

        'Chr(13): xuống dòng trong câu thông báo có nhiều dòng.

        If Len(newHS(4)) <> 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 thêm

        If strTB = "" Then dHocSinh.Them(newHS)

        Return strTB

    End Function

End Class