Imports BUS

Imports DTO

Public Class frmHocSinh

    Dim bHocSinh As New BusHocSinh

    Dim dtHocSinh As New DataTable

    Dim newHS As New DtoHocSinh

    Private Sub ChiTietHocSinh()

        'gán các giá trị cho DTO

        newHS.MaHS = txtMaHS.Text

        newHS.HoHS = txtHoHS.Text

        newHS.TenHS = txtTenHS.Text

        newHS.NgaySinh = dtpNgaySinh.Value

        newHS.DienThoai = txtDienThoai.Text

        newHS.DiaChi = txtDiaChi.Text

    End Sub

    'Xử lý các sự kiện người dùng tác động vào điều khiển trên form.

    Private Sub cmdThem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdThem.Click

        txtMaHS.Focus()

        For Each Ctr As Control In Me.gbThongTin.Controls

            If (TypeOf Ctr Is TextBox) Then

                Ctr.Text = ""

            End If

        Next

    End Sub

    Private Sub cmdLuu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLuu.Click

        Dim kt As String = "" 'kiểm tra lưu thành công hay không

        'Kiểm tra rỗng

        For Each Ctr As Control In Me.gbThongTin.Controls

            If (TypeOf Ctr Is TextBox) And Ctr.Text = "" Then

                MsgBox("Bạn phải nhập dữ liệu")

                Exit Sub

            End If

        Next

        ChiTietHocSinh()

        kt = bHocSinh.Them(newHS)

        If kt <> "" Then

            MsgBox(kt) 'Không lưu được thì thông báo

        End If

    End Sub

    Private Sub frmHocSinh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class