d_inguestinfo.vb

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

'建立D_InGuestInfo操作类，来实现对收入信息数据库的操作
Public Class D_InGuestInfo
    Private Conn As MdbConnObj
    Public Sub New()
        Conn = New MdbConnObj
    End Sub

#Region "过程函数说明： 添加收入/支出信息"
    Public Function AddInGuestInfo(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 = "INSERT INTO InGuest (In_AdminName,In_Data,In_Money,In_Text,In_Type,In_TypeName) VALUES (?,?,?,?,?,?)"
            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_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_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() '管理数据连接
        End Try
    End Function
#End Region

#Region "过程函数说明： 按类型显示收入/支出信息"
    Public Function ListInGuestInfo(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 * from InGuest  Where In_AdminName =? And In_TypeName = ? order by In_data desc"
            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)
            ListInGuestInfo = OleDataSet
        Catch ex As Exception
            StrError = ex.Message '保存的错误消息
            ListInGuestInfo = Nothing
        Finally
            Conn.ConnObj.Close()
        End Try
    End Function
#End Region

#Region "过程函数说明： 选择所有的收支信息"
    Public Function SelectAll(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 * from InGuest  Where In_AdminName =? order by In_data desc"
            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

            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 "过程函数说明： 删除收入/支出信息"
    Public Function DelInGuestInfo(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_AdminName =? And In_Data = ? And In_Money = ? And In_Text = ? And In_Type = ? 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_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_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() '管理数据连接
        End Try
    End Function
#End Region

#Region "过程函数说明： 按时间选择信息"
    Public Function SelectSr(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 * from InGuest  Where In_AdminName =? And In_Data = ? "
            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

            OleDbAdap.Fill(OleDataSet)