d_inguestinfo.vb

本人收集到的流水帐软件!小巧实用,希望对大家有说帮助.

            SelectSr = OleDataSet
        Catch ex As Exception
            StrError = ex.Message '保存的错误消息
            SelectSr = Nothing
        Finally
            Conn.ConnObj.Close()
        End Try
    End Function
#End Region

#Region "过程函数说明： 按照ID删除信息"
    Public Function DelInGuestInfoId(ByVal C As S_InGuestInfo, ByRef StrError As String) As Boolean
        Try
            '检查数据连接对象是否成功
            If Not Conn.Connect Then
                StrError = Conn.LastError
                Return False
            End If

            '创建命令对象
            Dim OleDbComm As New System.Data.OleDb.OleDbCommand
            '为命令对象设置Sql字符串
            OleDbComm.CommandText = "Delete From InGuest  Where In_Id =? "
            OleDbComm.Connection = Conn.ConnObj

            '添加参数并为参数设置值：In_Id
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_Id", CType(3, System.Data.OleDb.OleDbType), 0, "In_Id"))
            OleDbComm.Parameters("In_Id").Value = C.In_Id


            OleDbComm.ExecuteNonQuery()
            DelInGuestInfoId = True
        Catch ex As Exception
            StrError = ex.Message
            DelInGuestInfoId = False '如果遇到错误，就返回Nothing
        Finally
            Conn.ConnObj.Close() '管理数据连接
        End Try
    End Function
#End Region

#Region "过程函数说明： 按照ID修改信息"
    Public Function EditInGuestInfo(ByVal C As S_InGuestInfo, ByRef StrError As String) As Boolean
        Try
            '检查数据连接对象是否成功
            If Not Conn.Connect Then
                StrError = Conn.LastError
                Return False
            End If

            '创建命令对象
            Dim OleDbComm As New System.Data.OleDb.OleDbCommand
            '为命令对象设置Sql字符串
            OleDbComm.CommandText = "UPDATE InGuest SET In_Money = ? ,In_Text = ? ,In_Type = ?   Where In_Id =? "
            OleDbComm.Connection = Conn.ConnObj

            '添加参数并为参数设置值：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

            '添加参数并为参数设置值：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

            '添加参数并为参数设置值：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

            '添加参数并为参数设置值：In_Id
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("In_Id", CType(3, System.Data.OleDb.OleDbType), 0, "In_Id"))
            OleDbComm.Parameters("In_Id").Value = C.In_Id


            OleDbComm.ExecuteNonQuery()
            EditInGuestInfo = True
        Catch ex As Exception
            StrError = ex.Message
            EditInGuestInfo = False '如果遇到错误，就返回Nothing
        Finally
            Conn.ConnObj.Close() '管理数据连接
        End Try
    End Function
#End Region

#Region "过程函数说明： 计算当天收入的和"
    Public Function SelectCountDate(ByVal C As S_InGuestInfo, ByRef StrError As String) As System.Data.DataSet
        '利用Select命令返回包含结果的DateSet
        Try
            If Not Conn.Connect Then '检查数据连接对象是否成功
                StrError = Conn.LastError '这个消息保存了数据库连接的错误消息
                Return Nothing '如果数据库连接不正常的话，就返回Nothing
            End If
            Dim OleDbComm As New System.Data.OleDb.OleDbCommand '创建命令对象
            Dim OleDbAdap As New System.Data.OleDb.OleDbDataAdapter
            Dim OleDataSet As New System.Data.DataSet 'Dataset
            OleDbAdap.SelectCommand = OleDbComm '关联OleDbCommand 和 OleDbDataAdapter
            '设置Sql命令以及关联Sql命令
            OleDbComm.CommandText = "Select In_Money from InGuest  Where In_AdminName =? And In_Data = ? And In_TypeName = ? "
            OleDbComm.Connection = Conn.ConnObj

            '添加参数并为参数设置值：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

            '添加参数并为参数设置值：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

            '添加参数并为参数设置值：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)
            SelectCountDate = OleDataSet
        Catch ex As Exception
            StrError = ex.Message '保存的错误消息
            SelectCountDate = Nothing
        Finally
            Conn.ConnObj.Close()
        End Try
    End Function


#Region "过程函数说明： 计算所有收入/支出的和"
    Public Function SelectallCountDate(ByVal C As S_InGuestInfo, ByRef StrError As String) As System.Data.DataSet

        '利用Select命令返回包含结果的DateSet
        Try
            If Not Conn.Connect Then '检查数据连接对象是否成功
                StrError = Conn.LastError '这个消息保存了数据库连接的错误消息
                Return Nothing '如果数据库连接不正常的话，就返回Nothing
            End If
            Dim OleDbComm As New System.Data.OleDb.OleDbCommand '创建命令对象
            Dim OleDbAdap As New System.Data.OleDb.OleDbDataAdapter
            Dim OleDataSet As New System.Data.DataSet 'Dataset
            OleDbAdap.SelectCommand = OleDbComm '关联OleDbCommand 和 OleDbDataAdapter
            '设置Sql命令以及关联Sql命令
            OleDbComm.CommandText = "Select In_Money from InGuest  Where In_AdminName =? And In_TypeName = ? "
            OleDbComm.Connection = Conn.ConnObj

            '添加参数并为参数设置值：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

            '添加参数并为参数设置值：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)
            SelectallCountDate = OleDataSet
        Catch ex As Exception
            StrError = ex.Message '保存的错误消息
            SelectallCountDate = Nothing
        Finally
            Conn.ConnObj.Close()
        End Try
    End Function
#End Region

#End Region

#Region "过程函数说明： 计算所有收入/支出的和"
    Public Function SelectallCount(ByVal C As S_InGuestInfo, ByRef StrError As String) As System.Data.DataSet
        '利用Select命令返回包含结果的DateSet
        Try
            If Not Conn.Connect Then '检查数据连接对象是否成功
                StrError = Conn.LastError '这个消息保存了数据库连接的错误消息
                Return Nothing '如果数据库连接不正常的话，就返回Nothing
            End If
            Dim OleDbComm As New System.Data.OleDb.OleDbCommand '创建命令对象
            Dim OleDbAdap As New System.Data.OleDb.OleDbDataAdapter
            Dim OleDataSet As New System.Data.DataSet 'Dataset
            OleDbAdap.SelectCommand = OleDbComm '关联OleDbCommand 和 OleDbDataAdapter
            '设置Sql命令以及关联Sql命令
            OleDbComm.CommandText = "Select In_Money from InGuest  Where In_AdminName =? And In_TypeName = ? "
            OleDbComm.Connection = Conn.ConnObj

            '添加参数并为参数设置值：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

            '添加参数并为参数设置值：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)
            SelectallCount = OleDataSet
        Catch ex As Exception
            StrError = ex.Message '保存的错误消息
            SelectallCount = Nothing
        Finally
            Conn.ConnObj.Close()
        End Try
    End Function
#End Region


End Class