frmaddrecruit.vb

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

Public Class FrmAddRecruit

    Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
        If User.Mod1 = "可读" Then
            MsgBox("您无权写入记录！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        If Trim(TxtRecruitName.Text) = "" Then
            MsgBox("招生人员姓名不能为空！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        DBRecruit.AddRecruit(Trim(TxtRecruitName.Text))
        DGVRecruit.DataSource = DBRecruit.LoadRecruit()
    End Sub

  
    Private Sub FrmAddRecruit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DGVRecruit.DataSource = DBRecruit.LoadRecruit()
    End Sub
End Class