DAL/ERPSQL.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Text
Imports System.Collections.Generic
Imports System.Data.SqlClient
Imports SQLHelper
Imports Model

Public Class ERPSQL

    Public Function getCRFID() As String
        Dim sqlHelper As New Global.SQLHelper.ERPCon
        Dim CRFID As String = sqlHelper.transcode
        Return CRFID
    End Function
    Public Function seachData(ByVal SqlText As String) As DataSet
        Dim sqlHelper As New Global.SQLHelper.ERPCon
        Dim CRFID As DataSet = sqlHelper.seachData(SqlText)
        Return CRFID
    End Function
    Public Function getDataReader(ByVal strSql As String) As SqlDataReader
        Dim sqlHelper As New Global.SQLHelper.ERPCon
        Dim CRFID As SqlDataReader = sqlHelper.getDataReader(strSql)
        Return CRFID
    End Function
    Public Function ckeckuser(ByVal user As String, ByVal pwd As String) As Boolean
        Dim sqlHelper As New Global.SQLHelper.ERPCon
        Dim CRFID As Boolean = sqlHelper.ckeckuser(user, pwd)
        Return CRFID
    End Function
    Public Function Account(ByVal userid As String) As String
        Dim sqlHelper As New Global.SQLHelper.ERPCon
        Dim CRFID As String = sqlHelper.Account(userid)
        Return CRFID
    End Function
    Public Function getConnection() As SqlConnection
        Dim sqlHelper As New Global.SQLHelper.ERPCon
        Dim CRFID As SqlConnection = sqlHelper.getConnection
        Return CRFID
    End Function
    Public Function Context() As String
        Dim sqlHelper As New Global.SQLHelper.ERPCon
        Dim CRFID As String = sqlHelper.Context()
        Return CRFID
    End Function
    Public Function wheretxt(ByVal strcrifid As String, ByVal strtitle As String, ByVal strtype As String, ByVal strdepa As String, ByVal strstatus As String) As String
        Dim sqlHelper As New Global.SQLHelper.ERPCon
        Dim CRFID As String = sqlHelper.wheretxt(strcrifid, strtitle, strtype, strdepa, strstatus)
        Return CRFID
    End Function
    Public Function erpwheretxt(ByVal strcrifid As String, ByVal strtitle As String, ByVal strtype As String, ByVal strdepa As String, ByVal strstatus As String) As String
        Dim sqlHelper As New Global.SQLHelper.ERPCon
        Dim CRFID As String = sqlHelper.erpwheretxt(strcrifid, strtitle, strtype, strdepa, strstatus)
        Return CRFID
    End Function
    Public Function axwheretxt(ByVal strcrifid As String, ByVal strtitle As String, ByVal strtype As String, ByVal strdepa As String, ByVal strstatus As String) As String
        Dim sqlHelper As New Global.SQLHelper.ERPCon
        Dim CRFID As String = sqlHelper.axwheretxt(strcrifid, strtitle, strtype, strdepa, strstatus)