frmsaveeditedstudent.vb

通用学籍管理软件 vb开发access数据库的实例

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