clsxs.vb

来自「单表增删改查」· VB 代码 · 共 45 行

Public Class clsXs
    Public Function GetList(Optional ByVal bh As String = "", Optional ByVal mc As String = "", Optional ByVal xb As String = "", Optional ByVal bj As String = "", Optional ByVal ssrqq As String = "", Optional ByVal ssrqh As String = "")
        Dim sql As String
        sql = "select * from 学生 where 1=1"
        If bh <> "" Then
            sql = sql & " and 编码='" & bh & "'"
        End If
        If mc <> "" Then
            sql = sql & " and 名称='" & mc & "'"
        End If
        If xb <> "" Then
            sql = sql & " and 性别='" & xb & "'"
        End If
        If bj <> "" Then
            sql = sql & " and 班级='" & bj & "'"
        End If
        If ssrqq <> "" Then
            sql = sql & " and 出生日期>=#" & ssrqq & "#"
        End If
        If ssrqh <> "" Then
            sql = sql & " and 出生日期<=#" & ssrqh & "#"
        End If
        Dim cls As New clsData
        Return cls.GetDt(sql)
    End Function
    Public Function AddXs(ByVal bh As String, ByVal xm As String, ByVal xb As String, ByVal srrq As String, ByVal bj As String) As Boolean
        Dim sql As String
        sql = "insert into 学生(编码,姓名,性别,班级,出生日期) values ('" & bh & "','" & xm & "','" & xb & "','" & bj & "',#" & srrq & "#)"
        Dim cls As New clsData
        Return cls.ExecSql(sql)
    End Function
    Public Function SetXs(ByVal bh As String, ByVal xm As String, ByVal xb As String, ByVal srrq As String, ByVal bj As String) As Boolean
        Dim sql As String
        sql = "update 学生 set 姓名='" & xm & "',性别='" & xb & "',班级='" & bj & "',出生日期='" & srrq & "' where 编码='" & bh & "'"
        Dim cls As New clsData
        Return cls.ExecSql(sql)
    End Function
    Public Function DelXs(ByVal bh As String) As Boolean
        Dim sql As String
        sql = "delete from 学生 where 编码='" & bh & "'"
        Dim cls As New clsData
        Return cls.ExecSql(sql)
    End Function
End Class