当前文件： NetShopForge/Library/Componets/Brand/BrandController.vb[5K，2009-6-12 11:49:45]，打开代码结构图

		            
  1Imports Microsoft.Practices.EnterpriseLibrary.Data
  2Imports Microsoft.Practices.EnterpriseLibrary.Common
  3Imports System.Data.SqlClient
  4Imports System.Data.Common
  5Imports System.Data
  6Imports System.Collections.Generic
  7Imports System.Text
  8Imports NetShopForge.Common.Globals
  9
 10Namespace NetShopForgeNamespace NetShopForge.Library.Brand
 11
 12    Public Class BrandControllerClass BrandController
 13
 14        Public Function GetBrandList()Function GetBrandList() As List(Of BrandInfo)
 15            Dim objMIList As New List(Of BrandInfo)
 16            Dim db As Database = DatabaseFactory.CreateDatabase
 17            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Brand_GetBrandList")
 18
 19            Using reader As IDataReader = db.ExecuteReader(dbCommand)
 20                While reader.Read
 21                    objMIList.Add(FillBrandInfo(reader))
 22                End While
 23                Return objMIList
 24            End Using
 25
 26        End Function
 27        Public Function GetBrand()Function GetBrand(ByVal BrandID As Integer) As BrandInfo
 28            Dim objMI As New List(Of BrandInfo)
 29            Dim db As Database = DatabaseFactory.CreateDatabase
 30            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Brand_GetBrand")
 31            db.AddInParameter(dbCommand, "@BrandID", DbType.Int32, BrandID)
 32
 33            Using reader As IDataReader = db.ExecuteReader(dbCommand)
 34                While reader.Read
 35                    Return FillBrandInfo(reader)
 36                End While
 37                Return Nothing
 38            End Using
 39
 40        End Function
 41
 42        Public Function AddBrand()Function AddBrand(ByVal BrandInfo As BrandInfo) As Integer
 43            Dim db As Database = DatabaseFactory.CreateDatabase()
 44
 45            Dim sqlCommand As String = "nsf_Brand_AddBrand"
 46            Dim dbCommand As DbCommand = db.GetStoredProcCommand(sqlCommand)
 47
 48            Dim BrandID As Integer = GetKeys("BrandID")
 49
 50            db.AddInParameter(dbCommand, "@BrandID", DbType.String, BrandID.ToString)
 51            db.AddInParameter(dbCommand, "@BrandName", DbType.String, BrandInfo.Brand)
 52            db.AddInParameter(dbCommand, "@Manufacturer", DbType.String, BrandInfo.Manufacturer)
 53            db.AddInParameter(dbCommand, "@Description", DbType.String, BrandInfo.Description)
 54            db.AddInParameter(dbCommand, "@ItemOrder", DbType.Int32, BrandInfo.ItemOrder)
 55            db.AddInParameter(dbCommand, "@LogoPath", DbType.String, BrandInfo.LogoPath)
 56            db.AddInParameter(dbCommand, "@IsValid", DbType.Boolean, BrandInfo.IsValid)
 57            db.AddInParameter(dbCommand, "@URL", DbType.String, BrandInfo.URL)
 58            db.ExecuteNonQuery(dbCommand)
 59            Return BrandID
 60
 61        End Function
 62
 63        Public Sub DeleteBrand()Sub DeleteBrand(ByVal BrandID As Integer)
 64            Dim db As Database = DatabaseFactory.CreateDatabase()
 65
 66            Dim sqlCommand As String = "nsf_Brand_DeleteBrand"
 67            Dim dbCommand As DbCommand = db.GetStoredProcCommand(sqlCommand)
 68
 69            db.AddInParameter(dbCommand, "@BrandID", DbType.Int32, BrandID)
 70            db.ExecuteNonQuery(dbCommand)
 71
 72        End Sub
 73
 74        Public Sub UpdateBrandQuick()Sub UpdateBrandQuick(ByVal BrandID As Integer, ByVal itemOrder As Integer, ByVal isValid As Boolean)
 75
 76            Dim db As Database = DatabaseFactory.CreateDatabase()
 77
 78            Dim sqlCommand As String = "nsf_Brand_UpdateBrandQuick"
 79            Dim dbCommand As DbCommand = db.GetStoredProcCommand(sqlCommand)
 80
 81            db.AddInParameter(dbCommand, "@BrandID", DbType.Int32, BrandID)
 82            db.AddInParameter(dbCommand, "@ItemOrder", DbType.Int32, itemOrder)
 83            db.AddInParameter(dbCommand, "@IsValid", DbType.Boolean, isValid)
 84
 85            db.ExecuteNonQuery(dbCommand)
 86
 87        End Sub
 88
 89        Public Sub UpdateBrand()Sub UpdateBrand(ByVal BrandInfo As BrandInfo)
 90            Dim db As Database = DatabaseFactory.CreateDatabase()
 91
 92            Dim sqlCommand As String = "nsf_Brand_UpdateBrand"
 93            Dim dbCommand As DbCommand = db.GetStoredProcCommand(sqlCommand)
 94
 95            db.AddInParameter(dbCommand, "@BrandID", DbType.String, BrandInfo.BrandID)
 96            db.AddInParameter(dbCommand, "@BrandName", DbType.String, BrandInfo.Brand)
 97            db.AddInParameter(dbCommand, "@Manufacturer", DbType.String, BrandInfo.Manufacturer)
 98            db.AddInParameter(dbCommand, "@Description", DbType.String, BrandInfo.Description)
 99            db.AddInParameter(dbCommand, "@ItemOrder", DbType.Int32, BrandInfo.ItemOrder)
100            db.AddInParameter(dbCommand, "@LogoPath", DbType.String, BrandInfo.LogoPath)
101            db.AddInParameter(dbCommand, "@IsValid", DbType.Boolean, BrandInfo.IsValid)
102            db.AddInParameter(dbCommand, "@URL", DbType.String, BrandInfo.URL)
103            db.ExecuteNonQuery(dbCommand)
104        End Sub
105
106
107---Private Method---#Region "---Private Method---"
108
109        Private Function FillBrandInfo()Function FillBrandInfo(ByVal dr As IDataReader) As BrandInfo
110
111            Dim objMI As New BrandInfo
112
113            objMI.Brand = dr.Item("Brand")
114            objMI.Description = dr.Item("Description")
115            objMI.IsValid = dr.Item("IsValid")
116            objMI.ItemOrder = dr.Item("ItemOrder")
117            objMI.LogoPath = dr.Item("LogoPath")
118            objMI.BrandID = dr.Item("BrandID")
119            objMI.Manufacturer = dr.Item("Manufacturer")
120            objMI.URL = dr.Item("URL")
121
122            Return objMI
123
124        End Function
125
126#End Region
127
128
129    End Class
130
131End Namespace
132
133