frmaddstudent.vb

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

Public Class FrmAddStudent

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        If User.Mod2 = "可读" Then
            MsgBox("您无权写入记录！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        If Trim(TxtStudentNo.Text) = "" Then
            MsgBox("学号不能为空！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        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 TempDBStuent As New DBStudent(TempStudent)
        TempDBStuent.AddStudent()
    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
    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