clsrecruit.vb

来自「vb2005电子书籍——vb.net项目开发宝典源码」· VB 代码 · 共 37 行

Imports System.Data
Public Class ClsRecruit
    Inherits ClsOperation
    Shared Sub DelRecruit(ByVal RecruitName As String)
        Dim SQLString As String
        Dim MSG As String
        SQLString = "DELETE FROM tbRecruit WHERE RecruitName ='" & RecruitName & "'"
        DBOperate(SQLString, MSG)
    End Sub



    Shared Function AddRecruit(ByVal RecruitName As String) As Boolean
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT * FROM tbRecruit WHERE RecruitName='" & RecruitName & "'"
        Dim UserTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        If UserTable.Rows.Count >= 1 Then    '判断用户是否存在
            MsgBox("输入招生人员已存在，请重试", MsgBoxStyle.Exclamation, "信息框")
            Return False
        Else
            SQLString = "INSERT INTO tbRecruit VALUES('" & RecruitName & "','" & Date.Now & "')"
            DBOperate(SQLString, MSG)
            Return True
        End If
    End Function


    Shared Function LoadRecruit() As DataTable
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT RecruitName AS 招生人员姓名, CreateDate AS 创建日期 FROM tbRecruit"
        Return DBOperate(SQLString, MSG)
    End Function
End Class