Imports System.Data

Imports System.Data.SqlClient

Imports DTO

Public Class DaoHocSinh

    Inherits DaoCSDL

       Public Function LayBangHocSinh(ByVal keyMaHS As String) As DataTable

             Dim strSQL As String

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

        Return LayBang(strSQL)

    End Function

    Public Sub Them(ByVal newHS As DtoHocSinh)

        Dim strSQL As String

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

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

        Dim p(5) As SqlParameter

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

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

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

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

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

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

        CapNhatBang(strSQL, p)

    End Sub

    Public Sub Xoa(ByVal delHS As DtoHocSinh)

        '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.MaHS.Trim)

        CapNhatBang(strSQL, p)

    End Sub

End Class