classcommon.vb

来自「这是一个订单管理系统」· VB 代码 · 共 35 行

Public Class ClassCommon
    Public Shared Function CheckLogin(ByVal strUserId As String, ByVal strPassword As String, ByRef strPrivilege As String) As Boolean
        strPrivilege = "123456"
        Return True
    End Function

    Public Overloads Shared Function RunSql(ByRef ds As Data.DataSet, ByVal strSql As String) As Boolean
        Try
            ds = C_SQLUtil.fExecuteDataset(strSql)
            If ds.Tables(0).Rows.Count > 0 Then

            Else
                Return True
            End If
        Catch ex As Exception
            Return True
        End Try
        Return False
    End Function

    Public Overloads Shared Function RunSql(ByVal strSql As String) As Boolean
        Try
            If C_SQLUtil.fExecuteNonQuery(strSql.ToString) > 0 Then

            Else
                Return True
            End If
        Catch ex As Exception
            Return True
        End Try
        Return False
    End Function

End Class