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