databook.vb

asp.net程序设计实用教程(C#描述) 作者：石志国

		conn.Close()                                              
	End Sub

End Class

'----------------------------------------------------------------------------------------------------
'第3个类，用来处理跟类别有关的操作
Public Class DataKinds
	Private _strConn As String										'定义一个私有变量，用来设置数据库连接字符串

	Public Sub New()
		_strConn=ConfigurationSettings.AppSettings("strConn")		'将数据库连接字符串赋值给私有变量_strConn
	End Sub

	'该过程用来所有类别
	Public Function GetKind() As DataView
		Dim conn As New OleDbConnection(_strConn)					'这里使用了_strConn表示的数据库连接字符串
		Dim strSql As String="Select * From Kind"
		Dim adp As New OleDbDataAdapter(strSql,conn)					
		Dim ds As New DataSet()											
		adp.Fill(ds, "Kind")											
		Return(ds.Tables("Kind").DefaultView)						'返回函数值
	End Function

	'该过程用来添加一个新类别
	Public Sub InsertKind(strKindName As String)
		Dim conn As New OleDbConnection(_strConn)					'使用了私有变量的值
		'建立Command对象，注意这里使用了含有参数的SQL语句
		Dim strSql="Insert Into Kind(KindName) Values(@KindName)"
		Dim cmd As New OleDbCommand(strSql, conn)
		'下面给参数赋值
		cmd.Parameters.Add(New OleDbParameter("@KindName",OleDbType.VarWChar,20))
		cmd.Parameters("@KindName").Value=strKindName
		'下面执行插入记录操作
		conn.open()                             
		cmd.ExecuteNonQuery()					
		conn.close()                            
	End Sub

	'该过程用来删除类别，注意同时会删除该类别所属所有图书
	Public Sub DeleteKind(intKindId As Integer)
		Dim conn As New OleDbConnection(_strConn) 
		Dim strSql As String="Delete from Kind Where KindId=" & intKindId			
		Dim cmd As New OleDbCommand(strSql, conn)
		Dim strSql2 As String="Delete from Book Where KindId=" & intKindId			
		Dim cmd2 As New OleDbCommand(strSql2, conn)
		conn.Open()
		cmd.ExecuteNonQuery()											
		cmd2.ExecuteNonQuery()
		conn.Close()
	End Sub

	'该过程用来更新类别的信息
	Public Sub UpdateKind(intKindId As Integer,strKindName As String)
		Dim conn As New OleDbConnection(_strConn)					'使用了私有变量的值
		'建立Command对象，注意这里使用了含有参数的SQL语句
		Dim strSql="Update Kind Set KindName=@KindName Where KindId=@KindId"
		Dim cmd As New OleDbCommand(strSql, conn)
		'下面给参数赋值
		cmd.Parameters.Add(New OleDbParameter("@KindName",OleDbType.VarWChar,20))
		cmd.Parameters("@KindName").Value=strKindName
		cmd.Parameters.Add(New OleDbParameter("@KindId",OleDbType.Integer))
		cmd.Parameters("@KindId").Value=intKindId
		'下面执行插入记录操作
		conn.open()                             
		cmd.ExecuteNonQuery()					
		conn.close()                            
	End Sub
End Class

'----------------------------------------------------------------------------------------------------
'第4个类主要用来返回某个类别的具体信息
Public Class DataKind														
	Private _strConn As String										'定义一个私有变量，用来设置数据库连接字符串

	'下面定义了几个属性，用来返回对应字段值
	Public KindId As Integer
	Public KindName As String
	
	'这是构造函数，在其中给每一个属性赋值
	Public Sub New(intKindId As Integer)
		_strConn=ConfigurationSettings.AppSettings("strConn")							'将数据库连接字符串赋值给私有变量_strConn
		Dim conn As New OleDbConnection(_strConn)										'建立Connection对象

		Dim strSql As String="Select * From Kind Where KindId=" & intKindId				'建立SQL语句
		Dim cmd As New OleDbCommand(strSql, conn)										'建立Command对象
		conn.Open()                                            
		Dim dr As OleDbDataReader = cmd.ExecuteReader()									'建立DataReader对象
		'下面读取数据，并给属性赋值
		dr.Read()		
		KindId=dr.Item("KindId")
		KindName=dr.Item("KindName")
		conn.Close()                                              
	End Sub
End Class

'----------------------------------------------------------------------------------------------------
'第5个类，用来处理跟订单有关的操作
Public Class DataOrders
	Private _strConn As String										'定义一个私有变量，用来设置数据库连接字符串

	Public Sub New()
		_strConn=ConfigurationSettings.AppSettings("strConn")		'将数据库连接字符串赋值给私有变量_strConn
	End Sub

	'该函数用来所有订单
	Public Function GetOrder() As DataView
		Dim conn As New OleDbConnection(_strConn)					'这里使用了_strConn表示的数据库连接字符串
		Dim strSql As String="Select * From Orders"
		Dim adp As New OleDbDataAdapter(strSql,conn)					
		Dim ds As New DataSet()											
		adp.Fill(ds, "Orders")											
		Return(ds.Tables("Orders").DefaultView)						'返回函数值
	End Function


	'该过程用来删除订单，注意同时会删除该订单所属所有详细订货信息
	Public Sub DeleteOrder(intOrderId As Integer)
		Dim conn As New OleDbConnection(_strConn) 
		Dim strSql As String="Delete from Orders Where OrderId=" & intOrderId			
		Dim cmd As New OleDbCommand(strSql, conn)
		Dim strSql2 As String="Delete from Orders_Particular Where OrderId=" & intOrderId			
		Dim cmd2 As New OleDbCommand(strSql2, conn)
		conn.Open()
		cmd.ExecuteNonQuery()											
		cmd2.ExecuteNonQuery()
		conn.Close()
	End Sub

	'该过程用来更新订单信息，其实就是处理发货操作。
	Public Sub UpdateOrder(intOrderId As Integer,dtmConsignDate As Date)
		Dim conn As New OleDbConnection(_strConn)					'使用了私有变量的值
		'建立Command对象，注意这里使用了含有参数的SQL语句
		Dim strSql="Update Orders Set Consign=True,ConsignDate=@ConsignDate Where OrderId=@OrderId"
		Dim cmd As New OleDbCommand(strSql, conn)
		'下面给参数赋值
		cmd.Parameters.Add(New OleDbParameter("@ConsignDate",OleDbType.Date))
		cmd.Parameters("@ConsignDate").Value=dtmConsignDate
		cmd.Parameters.Add(New OleDbParameter("@OrderId",OleDbType.Integer))
		cmd.Parameters("@OrderId").Value=intOrderId
		'下面执行更新操作
		conn.open()                             
		cmd.ExecuteNonQuery()					
		conn.close()                            
	End Sub

End Class
'----------------------------------------------------------------------------------------------------
'第6个类主要用来返回某个订单的具体信息
Public Class DataOrder														
	Private _strConn As String										'定义一个私有变量，用来设置数据库连接字符串

	'下面定义了几个属性，用来返回对应字段值
	Public OrderId As Integer
	Public UserId As String
	Public TotalNum As Integer
	Public TotalMoney As Single
	Public SubmitDate As Date
	Public Consign As Boolean
	Public ConsignDate As Date
	
	'这是构造函数，在其中给每一个属性赋值
	Public Sub New(intOrderId As Integer)
		_strConn=ConfigurationSettings.AppSettings("strConn")							'将数据库连接字符串赋值给私有变量_strConn
		Dim conn As New OleDbConnection(_strConn)										'建立Connection对象
		Dim strSql As String="Select * From Orders Where OrderId=" & intOrderId				'建立SQL语句
		Dim cmd As New OleDbCommand(strSql, conn)										'建立Command对象
		conn.Open()                                            
		Dim dr As OleDbDataReader = cmd.ExecuteReader()									'建立DataReader对象
		'下面读取数据，并给属性赋值
		dr.Read()		
		OrderId=dr.Item("OrderId")
		UserId=dr.Item("UserId")
		TotalNum=dr.Item("TotalNum")
		TotalMoney=dr.Item("TotalMoney")
		SubmitDate=dr.Item("SubmitDate")
		Consign=dr.Item("Consign")
		If Consign=True Then
			ConsignDate=dr.Item("ConsignDate")
		End If
		conn.Close()                                              
	End Sub

	'该函数用来返回该订单的详细信息，注意这里利用组合查询返回每本书的详细信息
	Public Function GetParticular() As DataView
		Dim conn As New OleDbConnection(_strConn)					'这里使用了_strConn表示的数据库连接字符串
		Dim strSql As String="Select Book.BookId,Book.BookName,Book.BookPrice,Orders_Particular.BookNum, (Book.BookPrice * Orders_Particular.BookNum) As SubTotal From Orders_Particular,Book Where Orders_Particular.BookId=Book.BookId And Orders_Particular.OrderId=" & OrderId 
		Dim adp As New OleDbDataAdapter(strSql,conn)					
		Dim ds As New DataSet()											
		adp.Fill(ds, "Orders_Particular")											
		Return(ds.Tables("Orders_Particular").DefaultView)						'返回函数值
	End Function


End Class


End NameSpace