我的幾個(gè)常用類(Sql版)

荷露叮咚 2006-08-07

展開全文

Imports System
Imports System.Data.SqlClient
Namespace TeamWork.Modules.CoreCode
    ‘this class is used for the Connnection to the database
    Public Class Connection
        Dim str As String = ConfigurationSettings.AppSettings("Connstr")
        Public Conn As New SqlConnection(str)
    End Class

End Namespace

------------------------------------------------------------------------------------

Imports System.Data.SqlClient

Public Class ControlBind
    Dim myconndb As New TeamWork.Modules.CoreCode.Connection
    Dim myfunctiondb As New OperateFunction
    ‘本類用來綁定各種控件
    ‘返回sqldatareader
    Public Function ReturnReader(ByVal myp As PublicPara) As SqlDataReader
        Dim Cmd As SqlCommand = myfunctiondb.ReturnCmd(myp)
        Dim MyDtr As SqlDataReader = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
        Return MyDtr
    End Function
    ‘?dāng)?shù)據(jù)控件的數(shù)據(jù)綁定（通用于Dropdownlist,datagrid,datalist）（數(shù)據(jù)源是Datareader）不分頁
    Public Sub DataControlDataReaderBinding(ByVal myp As PublicPara)
        myp.DataControl.DataSource = ReturnReader(myp)
        If TypeOf (myp.DataControl) Is DataList Or TypeOf (myp.DataControl) Is DataGrid Then
            If myp.DataKeyField <> "" Then
                myp.DataControl.DataKeyField = myp.DataKeyField
            End If
            myp.DataControl.DataBind()
        ElseIf TypeOf (myp.DataControl) Is DropDownList Then
            myp.DataControl.DataTextField = myp.DataTextField
            myp.DataControl.DataValueField = myp.DataValueField
            myp.DataControl.DataBind()
        End If
        myconndb.Conn.Close()
    End Sub

    ‘?dāng)?shù)據(jù)綁定分頁效果
    Public Function DataBindAspNetPager(ByVal myp As PublicPara)
        myp.pager.RecordCount = myfunctiondb.ReturnCount(myp.strCountItem)
        ‘Dim cmd As New SqlCommand(myp.ProcedureName, myconndb.Conn)
        Dim cmd As SqlCommand = myfunctiondb.ReturnCmd(myp)
        Dim adp As New SqlDataAdapter(cmd)
        Dim ds As New DataSet
        adp.Fill(ds, myp.pager.PageSize * (myp.pager.CurrentPageIndex - 1), myp.pager.PageSize, "data")
        myp.DataControl.DataSource = ds.Tables("data")

        If myp.DataKeyField <> "" Then
            myp.DataControl.DataKeyField = myp.DataKeyField
        End If

        myconndb.Conn.Close()
        If ds.Tables("data").Rows.Count > 0 Then
            myp.DataControl.DataBind()
        End If
    End Function

End Class

------------------------------------------------------------------------------------
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.ApplicationBlocks.Data

Public Class OperateFunction

Dim myconndb As New TeamWork.Modules.CoreCode.Connection

#Region "給存儲(chǔ)過程備用的命令對(duì)象"

    Public Function ReturnCmd(ByVal myp As PublicPara) As SqlCommand
        myconndb.Conn.Open()
        Dim Cmd As SqlCommand = New SqlCommand(myp.ProcedureName, myconndb.Conn)
        Cmd.CommandType = CommandType.StoredProcedure
        If Not myp.UserAccount Is Nothing Then
            Cmd.Parameters.Add("@UserAccount", myp.UserAccount)
        End If
        If Not myp.UserPassword Is Nothing Then
            Cmd.Parameters.Add("@UserPassword", myp.UserPassword)
        End If
        If Not myp.UserID Is Nothing Then
            Cmd.Parameters.Add("@UserId", myp.UserID)
        End If
        If Not myp.UserEmail Is Nothing Then
            Cmd.Parameters.Add("@UserEmail", myp.UserEmail)
        End If
        If Not myp.UserAddDate Is Nothing Then
            Cmd.Parameters.Add("@UserAddDate", myp.UserAddDate)
        End If
        If myp.UserPath <> "~\UserFaces\myface.png" Then
            Cmd.Parameters.Add("@UserPath", myp.UserPath)
        End If
        If Not myp.UserSign Is Nothing Then
            Cmd.Parameters.Add("@UserSign", myp.UserSign)
        End If
        If Not myp.UserInstruction Is Nothing Then
            Cmd.Parameters.Add("@UserInstruction", myp.UserInstruction)
        End If
        If Not myp.UserGoldCoin Is Nothing Then
            Cmd.Parameters.Add("@UserGoldCoin", myp.UserGoldCoin)
        End If
        If Not myp.UserCopperCoin Is Nothing Then
            Cmd.Parameters.Add("@UserCopperCoin", myp.UserCopperCoin)
        End If
        If Not myp.UserGrade Is Nothing Then
            Cmd.Parameters.Add("@UserGrade", myp.UserGrade)
        End If
        If Not myp.UserRoleID Is Nothing Then
            Cmd.Parameters.Add("@UserRoleID", myp.UserRoleID)
        End If
        If myp.IsUpload <> -1 Then
            Cmd.Parameters.Add("@IsUpload", myp.IsUpload)
        End If
        If Not myp.UserRoleName Is Nothing Then
            Cmd.Parameters.Add("@UserRoleName", myp.UserRoleName)
        End If
        If Not myp.TagID Is Nothing Then
            Cmd.Parameters.Add("@TagID", myp.TagID)
        End If
        If Not myp.TagName Is Nothing Then
            Cmd.Parameters.Add("@TagName", myp.TagName)
        End If
        If Not myp.TagClickTimes Is Nothing Then
            Cmd.Parameters.Add("@TagClickTimes", myp.TagClickTimes)
        End If
        If myp.AddDate <> "" Then
            Cmd.Parameters.Add("@AddDate", myp.AddDate)
        End If
        If myp.TeamID <> "" Then
            Cmd.Parameters.Add("@TeamID", myp.TeamID)
        End If
        If myp.TeamName <> "" Then
            Cmd.Parameters.Add("@TeamName", myp.TeamName)
        End If
        If myp.TeamLeader <> "" Then
            Cmd.Parameters.Add("@TeamLeader", myp.TeamLeader)
        End If
        If myp.TeamFacePath <> "" Then
            Cmd.Parameters.Add("@TeamFacePath", myp.TeamFacePath)
        End If
        If myp.TeamAffiche <> "" Then
            Cmd.Parameters.Add("@TeamAffiche", myp.TeamAffiche)
        End If
        If myp.TeamIntro <> "" Then
            Cmd.Parameters.Add("@TeamIntro", myp.TeamIntro)
        End If
        If myp.TeamAddDate <> "" Then
            Cmd.Parameters.Add("@TeamAddDate", myp.TeamAddDate)
        End If
        If myp.TeamClickTimes <> "" Then
            Cmd.Parameters.Add("@TeamClickTimes", myp.TeamClickTimes)
        End If
        If myp.TopicID <> "" Then
            Cmd.Parameters.Add("@TopicID", myp.TopicID)
        End If
        If myp.TopicTitle <> "" Then
            Cmd.Parameters.Add("@TopicTitle", myp.TopicTitle)
        End If
        If myp.TopicAddDate <> "" Then
            Cmd.Parameters.Add("@TopicAddDate", myp.TopicAddDate)
        End If
        If myp.TopicContent <> "" Then
            Cmd.Parameters.Add("@TopicContent", myp.TopicContent)
        End If
        If myp.TopicReadTimes <> "" Then
            Cmd.Parameters.Add("@TopicReadTimes", myp.TopicReadTimes)
        End If
        If myp.TopicAuthorID <> "" Then
            Cmd.Parameters.Add("@TopicAuthorID", myp.TopicAuthorID)
        End If
        If myp.IsGlobal <> 0 Then
            Cmd.Parameters.Add("@IsGlobal", myp.IsGlobal)
        End If
        If myp.TopicStyle <> 2 Then
            Cmd.Parameters.Add("@TopicStyle", myp.TopicStyle)
        End If
        If myp.IsFinished <> 0 Then
            Cmd.Parameters.Add("@IsFinished", myp.IsFinished)
        End If
        If myp.IsElite <> 0 Then
            Cmd.Parameters.Add("@IsElite", myp.IsElite)
        End If
        If myp.ReplyID <> 0 Then
            Cmd.Parameters.Add("@ReplyID", myp.ReplyID)
        End If
        If Not myp.ReplyContent Is Nothing Then
            Cmd.Parameters.Add("@ReplyContent", myp.ReplyContent)
        End If
        If Not myp.ReplyDate Is Nothing Then
            Cmd.Parameters.Add("@ReplyDate", myp.ReplyDate)
        End If
        If Not myp.ReplyerID Is Nothing Then
            Cmd.Parameters.Add("@ReplyerID", myp.ReplyerID)
        End If
        If myp.MessageID <> "" Then
            Cmd.Parameters.Add("@MessageID", myp.MessageID)
        End If
        If Not myp.MessageTitle Is Nothing Then
            Cmd.Parameters.Add("@MessageTitle", myp.MessageTitle)
        End If
        If myp.MessageContent <> "" Then
            Cmd.Parameters.Add("@MessageContent", myp.MessageContent)
        End If
        If Not myp.MessageAddDate Is Nothing Then
            Cmd.Parameters.Add("@MessageAddDate", myp.MessageAddDate)
        End If
        If myp.FromUserID <> "" Then
            Cmd.Parameters.Add("@FromUserID", myp.FromUserID)
        End If
        If myp.ToUserID <> "" Then
            Cmd.Parameters.Add("@ToUserID", myp.ToUserID)
        End If
        If myp.IsReaded <> "" Then
            Cmd.Parameters.Add("@IsReaded", myp.IsReaded)
        End If
        If myp.LinkID <> "" Then
            Cmd.Parameters.Add("@LinkID", myp.LinkID)
        End If
        If myp.LinkText <> "" Then
            Cmd.Parameters.Add("@LinkText", myp.LinkText)
        End If
        If myp.LinkAddDate <> "" Then
            Cmd.Parameters.Add("@LinkAddDate", myp.LinkAddDate)
        End If
        If myp.AttachmentSize <> "" Then
            Cmd.Parameters.Add("@AttachmentSize", myp.AttachmentSize)
        End If
        If myp.WebAffiche <> "" Then
            Cmd.Parameters.Add("@WebAffiche", myp.WebAffiche)
        End If
        If myp.UpFileStyle <> "" Then
            Cmd.Parameters.Add("@UpFileStyle", myp.UpFileStyle)
        End If
        If myp.IntroOfWeb <> "" Then
            Cmd.Parameters.Add("@IntroOfWeb", myp.IntroOfWeb)
        End If
        If myp.ProtocolOfWeb <> "" Then
            Cmd.Parameters.Add("@ProtocolOfWeb", myp.ProtocolOfWeb)
        End If
        If myp.MaxUserNumPerTeam <> "" Then
            Cmd.Parameters.Add("@MaxUserNumPerTeam", myp.MaxUserNumPerTeam)
        End If
        If myp.AttchmentID <> "" Then
            Cmd.Parameters.Add("@AttchmentID", myp.AttchmentID)
        End If
        If myp.AttchmentName <> "" Then
            Cmd.Parameters.Add("@AttchmentName", myp.AttchmentName)
        End If
        If myp.AttchmentStyle <> "" Then
            Cmd.Parameters.Add("@AttchmentStyle", myp.AttchmentStyle)
        End If
        If myp.AttachmentAddDate <> "" Then
            Cmd.Parameters.Add("@AttchmentAddDate", myp.AttachmentAddDate)
        End If
        If myp.AttachmentPath <> "" Then
            Cmd.Parameters.Add("@AttachmentPath", myp.AttachmentPath)
        End If
        If myp.MyFavorID <> "" Then
            Cmd.Parameters.Add("@MyFavorID", myp.MyFavorID)
        End If
        If myp.BelongToWhoID <> "" Then
            Cmd.Parameters.Add("@BelongToWhoID", myp.BelongToWhoID)
        End If
        If myp.MyFavorText <> "" Then
            Cmd.Parameters.Add("@MyFavorText", myp.MyFavorText)
        End If
        If myp.MyFavorUserID <> "" Then
            Cmd.Parameters.Add("@MyFavorUserID", myp.MyFavorUserID)
        End If
        If myp.MyFavorAddDate <> "" Then
            Cmd.Parameters.Add("@MyFavorAddDate", myp.MyFavorAddDate)
        End If
        If myp.User_TeamID <> "" Then
            Cmd.Parameters.Add("@User_TeamID", myp.User_TeamID)
        End If
        ‘If Not myp.ReturnValue Is Nothing Then
        ‘    Cmd.Parameters.Add("@ReturnValue", myp.ReturnValue)
        ‘End If
        If myp.AlarmContent <> "" Then
            Cmd.Parameters.Add("@AlarmContent", myp.AlarmContent)
        End If
        If myp.CommentID <> "" Then
            Cmd.Parameters.Add("@CommentID", myp.CommentID)
        End If

        If Not myp.TabType Is Nothing Then
            Cmd.Parameters.Add("@TabType", myp.TabType)
        End If
        If Not myp.LinkUrl Is Nothing Then
            Cmd.Parameters.Add("@LinkUrl", myp.LinkUrl)
        End If
        Return Cmd
    End Function
#End Region

#Region "各種數(shù)據(jù)操作函數(shù)"
    ‘更新數(shù)據(jù)（不返回?cái)?shù)據(jù)）（Update,insert,delete 三種Sql語句共同使用）
    Public Function UpdateData(ByVal myp As PublicPara)
        Dim Cmd As SqlCommand = ReturnCmd(myp)
        Cmd.ExecuteNonQuery()
        myconndb.Conn.Close()
    End Function
    ‘不返回?cái)?shù)據(jù)
    Public Function DataChange(ByVal Str As String)
        myconndb.Conn.Open()
        Dim Cmd As SqlCommand = New SqlCommand(Str, myconndb.Conn)
        Cmd.ExecuteNonQuery()
        myconndb.Conn.Close()
    End Function
    ‘返回datareader
    Public Function SelectQuery(ByVal Str As String) As SqlDataReader
        myconndb.Conn.Open()
        Dim Cmd As SqlCommand = New SqlCommand(Str, myconndb.Conn)
        Cmd.CommandType = CommandType.StoredProcedure
        Dim MyDtr As SqlDataReader = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
        Return MyDtr
    End Function
    ‘返回?cái)?shù)據(jù)集
    Public Function SelectData(ByVal Str As String) As DataSet
        myconndb.Conn.Open()
        Dim MyDad As SqlDataAdapter = New SqlDataAdapter(Str, myconndb.Conn)
        Dim MyDst As New DataSet
        MyDad.Fill(MyDst, "table1")
        Return MyDst
    End Function
    ‘返回?cái)?shù)據(jù)表
    Public Function ReturnDataTable(ByVal myp As PublicPara) As DataTable
        Dim MyDad As New SqlDataAdapter
        MyDad.SelectCommand = ReturnCmd(myp)
        Dim MyDst As New DataSet
        MyDad.Fill(MyDst)
        Return MyDst.Tables(0)
    End Function

    ‘返回?cái)?shù)據(jù)行數(shù)
    Public Function ReturnCount(ByVal Str As String) As Integer
        myconndb.Conn.Open()
        Dim Cmd As SqlCommand = New SqlCommand(Str, myconndb.Conn)
        Dim i As Integer
        i = Convert.ToInt32(Cmd.ExecuteScalar())
        myconndb.Conn.Close()
        Return i
    End Function
    Public Function ReturnOneValue(ByVal myp As PublicPara) As String
        myconndb.Conn.Open()
        Dim Cmd As SqlCommand = New SqlCommand(myp.ProcedureName, myconndb.Conn)
        Dim i As String = Convert.ToString(Cmd.ExecuteScalar())
        myconndb.Conn.Close()
        Return i
    End Function

    ‘返回一個(gè)數(shù)據(jù)對(duì)象
    Public Function ReturnOneData(ByVal Myp As PublicPara) As Object
        myconndb.Conn.Open()
        Dim Cmd As SqlCommand = New SqlCommand(Myp.Str1, myconndb.Conn)
        Dim Data As Object
        Data = Cmd.ExecuteScalar()
        Return Data
    End Function

    ‘使用存儲(chǔ)過程返回一條命令,字符串形式
    Public Function ReturnCmd(ByVal Str As String) As SqlCommand
        myconndb.Conn.Open()
        Dim Cmd As SqlCommand = New SqlCommand(Str, myconndb.Conn)
        Cmd.CommandType = CommandType.StoredProcedure
        Return Cmd
    End Function
    ‘返回一個(gè)過程參數(shù)
    Public Function ReturnOneNvarchDataFromProduce(ByVal Myp As PublicPara) As String
        Dim Cmd As SqlCommand = ReturnCmd(Myp)
        Dim OutputValue As SqlParameter = Cmd.Parameters.Add("@OutPutValue", SqlDbType.NVarChar, 255)
        OutputValue.Direction = ParameterDirection.Output
        Cmd.ExecuteNonQuery()
        myconndb.Conn.Close()
        If TypeOf (OutputValue.Value) Is DBNull Then
            Return 0
        Else
            Return OutputValue.Value
        End If
    End Function
    ‘返回一個(gè)存儲(chǔ)過程返回來的數(shù)據(jù)Integer
    Public Function ReturnOneDataFromProduce(ByVal myp As PublicPara) As Integer
        Dim Cmd As SqlCommand = ReturnCmd(myp)
        Dim ReturnValue As SqlParameter = Cmd.Parameters.Add("@ReturnValue", SqlDbType.Int, 4)
        ReturnValue.Direction = ParameterDirection.ReturnValue
        Cmd.ExecuteNonQuery()
        myconndb.Conn.Close()
        Return ReturnValue.Value
    End Function

#End Region
#Region "各種字符串操作函數(shù)"
    ‘字符截取函數(shù)
    Public Function GetTopWords(ByVal str As String, ByVal strlen As Integer)
        Dim l, t, c, i As Integer
        l = Len(str.Trim())
        t = 0
        For i = 1 To l
            c = Math.Abs(Asc(Mid(str, i, 1)))
            t = t + 1
            If t >= strlen Then
                GetTopWords = Left(str, i) & "..."
                Exit For
            Else
                GetTopWords = str & " "
            End If
        Next
    End Function
#End Region

#Region "從DAAB里綁定數(shù)據(jù)用sqlhelper,呵呵,這個(gè)好"
    ‘從用DAAB綁定數(shù)據(jù)
    ‘使用 SqlHelper 類執(zhí)行命令
    ‘SqlHelper 類提供了五種 Shared (Visual Basic) 或 static (C#) 方法，它們是：ExecuteNonQuery、ExecuteDataset、
    ‘ExecuteReader、ExecuteScalar 和 ExecuteXmlReader。
    ‘實(shí)現(xiàn)的每種方法都提供一組一致的重載。這提供了一種很好的使用 SqlHelper 類來執(zhí)行命令的模式，同時(shí)為開發(fā)人員選擇
    ‘訪問數(shù)據(jù)的方式提供了必要的靈活性。每種方法的重載都支持不同的方法參數(shù)，因此開發(fā)人員可以確定傳遞連接、事務(wù)和參數(shù)信
    ‘息的方式。
    ‘Function ReturnDataSetBySqlHelper(byval strProcedureName as String,byval )
    ‘    Dim myconndb As TeamWork.Modules.CoreCode.Connection
    ‘    Dim ds As DataSet = SqlHelper.ExecuteDataset( _
    ‘            myconndb.Conn, _
    ‘            CommandType.StoredProcedure, _
    ‘            "strProcedureName", _
    ‘            New SqlParameter("@CategoryID", categoryID))
    ‘End Function

#End Region

#Region "datagrid分頁代碼"
    ‘********************datagrid等數(shù)據(jù)控件分頁操作開始**********************
    Dim ds As DataSet
    Dim dad As SqlDataAdapter

    ‘專門給datagrid等數(shù)據(jù)控件分頁返回的Adapter
    Private Function ReturnBindingAdapter(ByVal Myp As PublicPara) As SqlDataAdapter
        Dim Cmd As SqlCommand = ReturnCmd(Myp)
        Dim MyDapter As New SqlDataAdapter
        MyDapter.SelectCommand = Cmd
        Return MyDapter
    End Function

    ‘分頁Myp的初始化（重新賦值）Myp.int1表示數(shù)據(jù)記錄總數(shù)，Myp.int2表示Pagesize，Myp.int3表示總頁數(shù)，Myp.int4表示當(dāng)前頁，Myp.str1表示查詢語句
    Public Sub PageLoad(ByVal Myp As PublicPara)
        dad = ReturnBindingAdapter(Myp)
        ds = New DataSet
        dad.Fill(ds, "data")
        myconndb.Conn.Close()
        Myp.Int1 = ds.Tables("data").Rows.Count
        If Myp.Int1 <> 0 Then
            If Myp.Int1 Mod Myp.Int2 <> 0 Then
                Myp.Int3 = Myp.Int1 \ Myp.Int2 + 1
            Else
                Myp.Int3 = Myp.Int1 \ Myp.Int2
            End If
            If Myp.Int4 > Myp.Int3 Then
                Myp.Int4 = Myp.Int3
            End If
            If Not Myp.MyDrop Is Nothing Then
                Myp.MyDrop.Items.Clear()
                For i As Integer = 1 To Myp.Int3
                    Myp.MyDrop.Items.Add("第" + CStr(i) + "頁")
                Next
                Myp.MyDrop.Items(0).Selected = True
            End If
        End If
        If Myp.Int4 = 1 Or Myp.Int4 = 0 Then
            Myp.Int4 = 1
        Else
            Myp.Int4 = Myp.Int4
        End If
        DataBind(Myp)
    End Sub

    ‘控件數(shù)據(jù)綁定（每頁）
    Public Sub DataBind(ByVal myp As PublicPara)
        dad = ReturnBindingAdapter(myp)
        ds = New DataSet
        ds.Clear()
        dad.Fill(ds, (myp.Int4 - 1) * myp.Int2, myp.Int2, "data")
        myp.DataControl.DataSource = ds.Tables("data")
        myp.DataControl.DataKeyField = myp.DataKeyField
        myp.DataControl.DataBind()
        myconndb.Conn.Close()
        myp.lbl1.Text = myp.Int1
        myp.lbl2.Text = myp.Int4
        myp.lbl3.Text = myp.Int3
        myp.lbl4.Text = myp.Int2
        If myp.Int3 < 2 Then
            myp.lbtn1.Enabled = False
            myp.lbtn3.Enabled = False
            myp.lbtn2.Enabled = False
            myp.lbtn4.Enabled = False
        Else
            If myp.Int4 > 1 Then
                If myp.Int4 < myp.Int3 Then
                    myp.lbtn1.Enabled = True
                    myp.lbtn3.Enabled = True
                    myp.lbtn2.Enabled = True
                    myp.lbtn4.Enabled = True
                Else
                    myp.lbtn1.Enabled = True
                    myp.lbtn3.Enabled = True
                    myp.lbtn2.Enabled = False
                    myp.lbtn4.Enabled = False
                End If
            Else
                myp.lbtn1.Enabled = False
                myp.lbtn3.Enabled = False
                myp.lbtn2.Enabled = True
                myp.lbtn4.Enabled = True
            End If
        End If
    End Sub

    ‘首頁數(shù)據(jù)綁定
    Public Sub lbtn1(ByVal myp As PublicPara)
        myp.Int4 = 1
        DataBind(myp)
    End Sub

    ‘下一頁數(shù)據(jù)綁定
    Public Sub lbtn2(ByVal myp As PublicPara)
        myp.Int4 = myp.Int4 + 1
        DataBind(myp)
    End Sub

    ‘上一頁數(shù)據(jù)綁定
    Public Sub lbtn3(ByVal myp As PublicPara)
        myp.Int4 = myp.Int4 - 1
        DataBind(myp)
    End Sub

    ‘尾頁數(shù)據(jù)綁定
    Public Sub lbtn4(ByVal myp As PublicPara)
        myp.Int4 = myp.Int3
        DataBind(myp)
    End Sub

    ‘跳轉(zhuǎn)頁操作
    Public Sub GoToPage(ByVal myp As PublicPara)
        DataBind(myp)
    End Sub

‘********************datagrid 分頁操作結(jié)束**********************

#End Region
End Class
---------------------------------------------------------------------------------

Public Class PublicPara
    ‘定義字符串
    Public ProcedureName As String ‘存儲(chǔ)過程名
    Public Str1 As String
    Public StrDataKeyField As String
    Public StrDataSource As String
    Public StrDataValueField As String
    Public StrDataTextField As String
    Public strCountItem As String

    ‘定義數(shù)據(jù)庫字段名
    Public UserID As String
    Public UserAccount As String
    Public UserPassword As String
    Public UserEmail As String
    Public UserAddDate As String
    Public UserPath As String = "~\UserFaces\myface.png"
    Public UserGoldCoin As String
    Public UserCopperCoin As String
    Public UserGrade As String
    Public UserSign As String
    Public UserInstruction As String
    Public UserRoleID As String
    Public IsUpload As Integer = -1

Public UserRoleName As String

    Public TagID As String
    Public TagName As String
    Public TagClickTimes As String
    Public AddDate As String

    Public TeamID As String
    Public TeamName As String
    Public TeamLeader As String
    Public TeamFacePath As String
    Public TeamAffiche As String
    Public TeamIntro As String
    Public TeamAddDate As String
    Public TeamClickTimes As String

    Public TopicID As String
    Public TopicTitle As String
    Public TopicAddDate As String
    Public TopicContent As String
    Public TopicReadTimes As String
    Public TopicAuthorID As String
    Public IsGlobal As Integer
    Public TopicStyle As Integer = 2
    Public IsFinished As Integer
    Public IsElite As Integer

    Public ReplyID As Integer
    Public ReplyContent As String
    Public ReplyDate As String
    Public ReplyerID As String

    Public MessageID As String
    Public MessageTitle As String
    Public MessageContent As String
    Public MessageAddDate As String
    Public ToUserID As String
    Public FromUserID As String
    Public IsReaded As String

    Public LinkID As String
    Public LinkText As String
    Public LinkAddDate As String
    Public LinkUrl As String
    Public AttachmentSize As String
    Public WebAffiche As String
    Public UpFileStyle As String
    Public IntroOfWeb As String
    Public ProtocolOfWeb As String
    Public MaxUserNumPerTeam As String

    Public AttchmentID As String
    Public AttchmentName As String
    Public AttchmentStyle As String
    Public AttachmentAddDate As String
    Public AttachmentPath As String

    Public MyFavorID As String
    Public BelongToWhoID As String
    Public MyFavorText As String
    Public MyFavorUserID As String
    Public MyFavorAddDate As String

Public User_TeamID As String

    Public AlarmID As String
    Public AlarmContent As String
    Public CommentID As String

Public ReturnValue As String

    ‘定義控件及相關(guān)參數(shù)
    Public lbl As Label
    Public MyDgrd As DataGrid
    Public MyDlst As DataList
    Public MyDrop As DropDownList
    Public DataValueField As String
    Public DataKeyField As String
    Public DataTextField As String
    ‘Public myDataSource As DataSet

Public TabType As String

    ‘對(duì)象
    Public DataControl As Object
    Public pager As Wuqi.Webdiyer.AspNetPager

    Public Int1 As Integer
    Public Int2 As Integer
    Public Int3 As Integer
    Public Int4 As Integer
    Public Int5 As Integer
    Public Int6 As Integer
    Public Int7 As Integer
    Public Int8 As Integer
    Public Int9 As Integer

    Public lbl1 As Label
    Public lbl2 As Label
    Public lbl3 As Label
    Public lbl4 As Label
    Public lbl5 As Label
    Public lbl6 As Label
    Public lbl7 As Label
    Public lbl8 As Label
    Public lbtn1 As LinkButton
    Public lbtn2 As LinkButton
    Public lbtn3 As LinkButton
    Public lbtn4 As LinkButton

End Class

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來自：荷露叮咚 > 《asp.net》

舉報(bào)/認(rèn)領(lǐng)