?Public Class FrmSaveEditedStudent
    Private _StudentNo As String
    Sub New(ByVal StudentNo As String)
        _StudentNo = StudentNo
        InitializeComponent()
    End Sub
    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        If Trim(TxtName.Text) = "" Then
            MsgBox("姓名不能為空！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        If Not IsDate(TxtBirthDate.Text) Then
            MsgBox("出生年月請輸入正確的日期格式！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Dim TempStudent As New Student
        TempStudent.StudentNo = Me.TxtStudentNo.Text
        TempStudent.Name = Me.TxtName.Text
        TempStudent.Gender = Me.ComboGender.Text
        TempStudent.BirthDate = Me.TxtBirthDate.Text
        TempStudent.Politic = Me.ComboPolitic.Text
        TempStudent.ClassName = Me.ComboClass.Text
        TempStudent.RecruitName = Me.ComboRecruit.Text
        TempStudent.Graduate = Me.TxtGraduate.Text
        TempStudent.FatherName = Me.TxtFatherName.Text
        TempStudent.Phone = Me.TxtPhone.Text
        TempStudent.Fee = Val(Me.TxtFee.Text)
        TempStudent.FamilyAddress = Me.TxtFamilyAddress.Text
        TempStudent.Memo = Me.TxtMemo.Text
        Dim TempDBStudent As New DBStudent(TempStudent)
        DBStudent.DelStudent(_StudentNo)
        TempDBStudent.AddStudent()
        Me.Close()
    End Sub

    Private Sub FrmAddStudent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ComboClass.DataSource = DBClass.LoadClass
        Me.ComboClass.DisplayMember = "班級名稱"
        Me.ComboClass.SelectedIndex = 0
        Me.ComboRecruit.DataSource = DBRecruit.LoadRecruit
        Me.ComboRecruit.DisplayMember = "招生人員姓名"
        Me.ComboRecruit.SelectedIndex = 0
        Me.ComboPolitic.SelectedIndex = 0
        Me.ComboGender.SelectedIndex = 0
        Dim DTable As DataTable
        DTable = DBStudent.LoadStudent("StudentNo", _StudentNo, "")
        Me.TxtStudentNo.Text = DTable.Rows(0)("學號").ToString
        Me.TxtName.Text = DTable.Rows(0)("姓名").ToString
        Me.ComboGender.Text = DTable.Rows(0)("性別").ToString
        Me.TxtBirthDate.Text = DTable.Rows(0)("出生年月").ToString
        Me.ComboPolitic.Text = DTable.Rows(0)("政治面貌").ToString
        Me.ComboClass.Text = DTable.Rows(0)("班級").ToString
        Me.ComboRecruit.Text = DTable.Rows(0)("招生人員姓名").ToString
        Me.TxtGraduate.Text = DTable.Rows(0)("畢業學校").ToString
        Me.TxtFatherName.Text = DTable.Rows(0)("父親姓名").ToString
        Me.TxtPhone.Text = DTable.Rows(0)("聯系電話").ToString
        Me.TxtFee.Text = DTable.Rows(0)("收費金額").ToString
        Me.TxtFamilyAddress.Text = DTable.Rows(0)("家庭住址").ToString
        Me.TxtMemo.Text = DTable.Rows(0)("備注").ToString
    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
        Me.Close()
    End Sub
End Class