?? dbrecruit.vb
字號:
?Public Class DBRecruit
Inherits DBOperation
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 = DBOperation.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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -