'建立D_InGuestInfo操作類，來實現(xiàn)對收入信息數(shù)據(jù)庫的操作
Public Class D_InGuestInfo
    Private Conn As MdbConnObj
    Public Sub New()
        Conn = New MdbConnObj
    End Sub

#Region "過程函數(shù)說明： 添加收入/支出信息"
    Public Function AddInGuestInfo(ByVal C As S_InGuestInfo, ByRef StrError As String) As Boolean
        Try
            '檢查數(shù)據(jù)連接對象是否成功
            If Not Conn.Connect Then
                StrError = Conn.LastError
                Return False
            End If

            '創(chuàng)建命令對象
            Dim OleDbComm As New System.Data.OleDb.OleDbCommand
            '為命令對象設置Sql字符串
            OleDbComm.CommandText = "INSERT INTO InGuest (In_AdminName,In_Data,In_Money,In_Text,In_Type,In_TypeName) VALUES (?,?,?,?,?,?)"
            OleDbComm.Connection = Conn.ConnObj

            '添加參數(shù)并為參數(shù)設置值：In_AdminName
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_AdminName", CType(130, System.Data.OleDb.OleDbType), 50, "In_AdminName"))
            OleDbComm.Parameters("In_AdminName").Value = C.In_AdminName

            '添加參數(shù)并為參數(shù)設置值：In_Data
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_Data", CType(130, System.Data.OleDb.OleDbType), 50, "In_Data"))
            OleDbComm.Parameters("In_Data").Value = C.In_Data

            '添加參數(shù)并為參數(shù)設置值：In_Money
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_Money", CType(6, System.Data.OleDb.OleDbType), 0, "In_Money"))
            OleDbComm.Parameters("In_Money").Value = C.In_Money

            '添加參數(shù)并為參數(shù)設置值：In_Text
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_Text", CType(130, System.Data.OleDb.OleDbType), 0, "In_Text"))
            OleDbComm.Parameters("In_Text").Value = C.In_Text

            '添加參數(shù)并為參數(shù)設置值：In_Type
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_Type", CType(130, System.Data.OleDb.OleDbType), 50, "In_Type"))
            OleDbComm.Parameters("In_Type").Value = C.In_Type

            '添加參數(shù)并為參數(shù)設置值：In_TypeName
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_TypeName", CType(130, System.Data.OleDb.OleDbType), 50, "In_TypeName"))
            OleDbComm.Parameters("In_TypeName").Value = C.In_TypeName


            OleDbComm.ExecuteNonQuery()
            AddInGuestInfo = True
        Catch ex As Exception
            StrError = ex.Message
            AddInGuestInfo = False '如果遇到錯誤，就返回Nothing
        Finally
            Conn.ConnObj.Close() '管理數(shù)據(jù)連接
        End Try
    End Function
#End Region

#Region "過程函數(shù)說明： 按類型顯示收入/支出信息"
    Public Function ListInGuestInfo(ByVal C As S_InGuestInfo, ByRef StrError As String) As System.Data.DataSet
        '利用Select命令返回包含結果的DateSet
        Try
            If Not Conn.Connect Then '檢查數(shù)據(jù)連接對象是否成功
                StrError = Conn.LastError '這個消息保存了數(shù)據(jù)庫連接的錯誤消息
                Return Nothing '如果數(shù)據(jù)庫連接不正常的話，就返回Nothing
            End If
            Dim OleDbComm As New System.Data.OleDb.OleDbCommand '創(chuàng)建命令對象
            Dim OleDbAdap As New System.Data.OleDb.OleDbDataAdapter
            Dim OleDataSet As New System.Data.DataSet 'Dataset
            OleDbAdap.SelectCommand = OleDbComm '關聯(lián)OleDbCommand 和 OleDbDataAdapter
            '設置Sql命令以及關聯(lián)Sql命令
            OleDbComm.CommandText = "Select * from InGuest  Where In_AdminName =? And In_TypeName = ? order by In_data desc"
            OleDbComm.Connection = Conn.ConnObj

            '添加參數(shù)并為參數(shù)設置值：In_AdminName
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_AdminName", CType(130, System.Data.OleDb.OleDbType), 50, "In_AdminName"))
            OleDbComm.Parameters("In_AdminName").Value = C.In_AdminName

            '添加參數(shù)并為參數(shù)設置值：In_TypeName
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_TypeName", CType(130, System.Data.OleDb.OleDbType), 50, "In_TypeName"))
            OleDbComm.Parameters("In_TypeName").Value = C.In_TypeName

            OleDbAdap.Fill(OleDataSet)
            ListInGuestInfo = OleDataSet
        Catch ex As Exception
            StrError = ex.Message '保存的錯誤消息
            ListInGuestInfo = Nothing
        Finally
            Conn.ConnObj.Close()
        End Try
    End Function
#End Region

#Region "過程函數(shù)說明： 選擇所有的收支信息"
    Public Function SelectAll(ByVal C As S_InGuestInfo, ByRef StrError As String) As System.Data.DataSet
        '利用Select命令返回包含結果的DateSet
        Try
            If Not Conn.Connect Then '檢查數(shù)據(jù)連接對象是否成功
                StrError = Conn.LastError '這個消息保存了數(shù)據(jù)庫連接的錯誤消息
                Return Nothing '如果數(shù)據(jù)庫連接不正常的話，就返回Nothing
            End If
            Dim OleDbComm As New System.Data.OleDb.OleDbCommand '創(chuàng)建命令對象
            Dim OleDbAdap As New System.Data.OleDb.OleDbDataAdapter
            Dim OleDataSet As New System.Data.DataSet 'Dataset
            OleDbAdap.SelectCommand = OleDbComm '關聯(lián)OleDbCommand 和 OleDbDataAdapter
            '設置Sql命令以及關聯(lián)Sql命令
            OleDbComm.CommandText = "Select * from InGuest  Where In_AdminName =? order by In_data desc"
            OleDbComm.Connection = Conn.ConnObj

            '添加參數(shù)并為參數(shù)設置值：In_AdminName
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_AdminName", CType(130, System.Data.OleDb.OleDbType), 50, "In_AdminName"))
            OleDbComm.Parameters("In_AdminName").Value = C.In_AdminName

            OleDbAdap.Fill(OleDataSet)
            SelectAll = OleDataSet
        Catch ex As Exception
            StrError = ex.Message '保存的錯誤消息
            SelectAll = Nothing
        Finally
            Conn.ConnObj.Close()
        End Try
    End Function
#End Region

#Region "過程函數(shù)說明： 刪除收入/支出信息"
    Public Function DelInGuestInfo(ByVal C As S_InGuestInfo, ByRef StrError As String) As Boolean
        Try
            '檢查數(shù)據(jù)連接對象是否成功
            If Not Conn.Connect Then
                StrError = Conn.LastError
                Return False
            End If

            '創(chuàng)建命令對象
            Dim OleDbComm As New System.Data.OleDb.OleDbCommand
            '為命令對象設置Sql字符串
            OleDbComm.CommandText = "Delete From InGuest  Where In_AdminName =? And In_Data = ? And In_Money = ? And In_Text = ? And In_Type = ? And In_TypeName = ? "
            OleDbComm.Connection = Conn.ConnObj

            '添加參數(shù)并為參數(shù)設置值：In_AdminName
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_AdminName", CType(130, System.Data.OleDb.OleDbType), 50, "In_AdminName"))
            OleDbComm.Parameters("In_AdminName").Value = C.In_AdminName

            '添加參數(shù)并為參數(shù)設置值：In_Data
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_Data", CType(130, System.Data.OleDb.OleDbType), 50, "In_Data"))
            OleDbComm.Parameters("In_Data").Value = C.In_Data

            '添加參數(shù)并為參數(shù)設置值：In_Money
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_Money", CType(6, System.Data.OleDb.OleDbType), 0, "In_Money"))
            OleDbComm.Parameters("In_Money").Value = C.In_Money

            '添加參數(shù)并為參數(shù)設置值：In_Text
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_Text", CType(130, System.Data.OleDb.OleDbType), 0, "In_Text"))
            OleDbComm.Parameters("In_Text").Value = C.In_Text

            '添加參數(shù)并為參數(shù)設置值：In_Type
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_Type", CType(130, System.Data.OleDb.OleDbType), 50, "In_Type"))
            OleDbComm.Parameters("In_Type").Value = C.In_Type

            '添加參數(shù)并為參數(shù)設置值：In_TypeName
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_TypeName", CType(130, System.Data.OleDb.OleDbType), 50, "In_TypeName"))
            OleDbComm.Parameters("In_TypeName").Value = C.In_TypeName


            OleDbComm.ExecuteNonQuery()
            DelInGuestInfo = True
        Catch ex As Exception
            StrError = ex.Message
            DelInGuestInfo = False '如果遇到錯誤，就返回Nothing
        Finally
            Conn.ConnObj.Close() '管理數(shù)據(jù)連接
        End Try
    End Function
#End Region

#Region "過程函數(shù)說明： 按時間選擇信息"
    Public Function SelectSr(ByVal C As S_InGuestInfo, ByRef StrError As String) As System.Data.DataSet
        '利用Select命令返回包含結果的DateSet
        Try
            If Not Conn.Connect Then '檢查數(shù)據(jù)連接對象是否成功
                StrError = Conn.LastError '這個消息保存了數(shù)據(jù)庫連接的錯誤消息
                Return Nothing '如果數(shù)據(jù)庫連接不正常的話，就返回Nothing
            End If
            Dim OleDbComm As New System.Data.OleDb.OleDbCommand '創(chuàng)建命令對象
            Dim OleDbAdap As New System.Data.OleDb.OleDbDataAdapter
            Dim OleDataSet As New System.Data.DataSet 'Dataset
            OleDbAdap.SelectCommand = OleDbComm '關聯(lián)OleDbCommand 和 OleDbDataAdapter
            '設置Sql命令以及關聯(lián)Sql命令
            OleDbComm.CommandText = "Select * from InGuest  Where In_AdminName =? And In_Data = ? "
            OleDbComm.Connection = Conn.ConnObj

            '添加參數(shù)并為參數(shù)設置值：In_AdminName
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_AdminName", CType(130, System.Data.OleDb.OleDbType), 50, "In_AdminName"))
            OleDbComm.Parameters("In_AdminName").Value = C.In_AdminName

            '添加參數(shù)并為參數(shù)設置值：In_Data
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_Data", CType(130, System.Data.OleDb.OleDbType), 50, "In_Data"))
            OleDbComm.Parameters("In_Data").Value = C.In_Data

            OleDbAdap.Fill(OleDataSet)