Imports System.Data

Imports System.Data.SqlClient

Public Class DaoHocSinh

    Inherits DaoCSDL

    'Xây dựng các câu SQL tương ứng với yêu cầu nghiệp vụ

    Public Function LayBangHocSinh(ByVal keyMaHS As String) As DataTable

        'Lấy dữ liệu từ bảng HocSinh theo mã số

        Dim strSQL As String

        strSQL = "Select * from HocSinh where MaHS='" + keyMaHS.Trim + "'"

        Return LayBang(strSQL)

    End Function

    Public Sub Them(ByVal newHS As Object)

        'Thêm học sinh mới

        Dim strSQL As String

        strSQL = "Insert into HocSinh(MaHS, HoHS, TenHS, NgaySinh,DienThoai, DiaChi)"

        strSQL += " values (@MaHS, @HoHS, @TenHS, @NgaySinh, @DienThoai, @DiaChi)"

        'Lưu ý thứ tự các tham số trong câu SQL

        Dim p(5) As SqlParameter

        p(0) = New SqlParameter("@MaHS", newHS(0))

        p(1) = New SqlParameter("@HoHS", newHS(1))

        p(2) = New SqlParameter("@TenHS", newHS(2))

        p(3) = New SqlParameter("@NgaySinh", newHS(3))

        p(4) = New SqlParameter("@DienThoai", newHS(4))

        p(5) = New SqlParameter("@DiaChi", newHS(5))

        CapNhatBang(strSQL, p)

    End Sub

    Public Sub Xoa(ByVal delHS As Object)

        'Xoá học sinh theo mã số

        Dim strSQL As String

        strSQL = "Delete From HocSinh Where MaHS = @MaHS"

        Dim p(0) As SqlParameter

        p(0) = New SqlParameter("@MaHS", delHS(0))

        CapNhatBang(strSQL, p)

    End Sub

End Class