dataem1.vb

对家庭的开支有一个全面的了解和统计

Option Strict Off
Option Explicit On
Imports Microsoft.VisualBasic.Compatibility

Module DataEnvironment_Datapayout_Module
	Friend Datapayout As DataEnvironment_Datapayout = New DataEnvironment_Datapayout()
End Module

Friend Class DataEnvironment_Datapayout
	Inherits VB6.BaseDataEnvironment
	Public WithEvents payout As ADODB.Connection
	Public WithEvents rspayoutall As ADODB.Recordset
	Private m_payoutall As ADODB.Command
	Public WithEvents rspayoutreport As ADODB.Recordset
	Private m_payoutreport As ADODB.Command
	Public Sub New()
		MyBase.New()
		Dim par As ADODB.Parameter
		
		
		payout = New ADODB.Connection()
		payout.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=D:\data\payout.mdb;"
		m_Connections.Add(payout, "payout")
		m_payoutall = New ADODB.Command()
		rspayoutall = New ADODB.Recordset()
		m_payoutall.Name = "payoutall"
		m_payoutall.CommandText = "`payout`"
		m_payoutall.CommandType = ADODB.CommandTypeEnum.adCmdTable
		rspayoutall.CursorLocation = ADODB.CursorLocationEnum.adUseClient
		rspayoutall.CursorType = ADODB.CursorTypeEnum.adOpenStatic
		rspayoutall.LockType = ADODB.LockTypeEnum.adLockReadOnly
		rspayoutall.Source = m_payoutall
		m_Commands.Add(m_payoutall, "payoutall")
		m_Recordsets.Add(rspayoutall, "payoutall")
		m_payoutreport = New ADODB.Command()
		rspayoutreport = New ADODB.Recordset()
		m_payoutreport.Name = "payoutreport"
		m_payoutreport.CommandText = "`payout_report`"
		m_payoutreport.CommandType = ADODB.CommandTypeEnum.adCmdTable
		rspayoutreport.CursorLocation = ADODB.CursorLocationEnum.adUseClient
		rspayoutreport.CursorType = ADODB.CursorTypeEnum.adOpenStatic
		rspayoutreport.LockType = ADODB.LockTypeEnum.adLockReadOnly
		rspayoutreport.Source = m_payoutreport
		m_Commands.Add(m_payoutreport, "payoutreport")
		m_Recordsets.Add(rspayoutreport, "payoutreport")
	End Sub
	Public Sub payoutall()
		If payout.State = ADODB.ObjectStateEnum.adStateClosed Then
			payout.Open()
		End If
		If rspayoutall.State = ADODB.ObjectStateEnum.adStateOpen Then
			rspayoutall.Close()
		End If
		m_payoutall.ActiveConnection = payout
		rspayoutall.Open()
	End Sub
	Public Sub payoutreport()
		If payout.State = ADODB.ObjectStateEnum.adStateClosed Then
			payout.Open()
		End If
		If rspayoutreport.State = ADODB.ObjectStateEnum.adStateOpen Then
			rspayoutreport.Close()
		End If
		m_payoutreport.ActiveConnection = payout
		rspayoutreport.Open()
	End Sub
End Class