VERSION 5.00
Begin VB.Form TransDemoControler 
   Caption         =   "TransDemoControler"
   ClientHeight    =   4020
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   2970
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4020
   ScaleWidth      =   2970
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton CleanTable 
      Caption         =   "CleanTable"
      Height          =   615
      Left            =   600
      TabIndex        =   5
      Top             =   2160
      Width           =   1815
   End
   Begin VB.CommandButton Doit 
      Caption         =   "DoInsert"
      Height          =   615
      Left            =   600
      TabIndex        =   4
      Top             =   1440
      Width           =   1815
   End
   Begin VB.CommandButton Liste 
      Caption         =   "Liste"
      Height          =   495
      Left            =   600
      TabIndex        =   3
      Top             =   840
      Width           =   1815
   End
   Begin VB.CommandButton Abort 
      Caption         =   "Abort"
      Height          =   555
      Left            =   600
      TabIndex        =   2
      Top             =   2880
      Width           =   1815
   End
   Begin VB.CommandButton Complete 
      Caption         =   "Complete"
      Height          =   555
      Left            =   600
      TabIndex        =   1
      Top             =   3480
      Width           =   1815
   End
   Begin VB.CommandButton Start 
      Caption         =   "Starte Objekt"
      Height          =   555
      Left            =   600
      TabIndex        =   0
      Top             =   180
      Width           =   1815
   End
End
Attribute VB_Name = "TransDemoControler"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

' ========================================
' TransDemo (Transaktion Demonstration unter MTS oder COM+)
' Teil 2: Client
' Autor: Holger Schwichtenberg (hs@it-visions.de)
' Version: 1.0
' Stand: 17.12.1999
' ========================================

Private obj As Object

Private Sub Abort_Click()
obj.DoAbort
End Sub

Private Sub CleanTable_Click()
obj.doclean
End Sub

Private Sub Complete_Click()
obj.DoComplete
End Sub

Private Sub Doit_Click()
obj.dosomething
End Sub

Private Sub Form_Load()
Start_Click
End Sub

Private Sub Liste_Click()
Dim rs As Recordset
Debug.Print "Inhalt um " & Now & "   -------------"
Set rs = obj.Liste
         Do While Not rs.EOF
        Debug.Print rs("KundenID"), rs("PID"), rs("Menge")
        rs.MoveNext
        Loop
        rs.Close
End Sub

Private Sub Start_Click()
Set obj = CreateObject("TransDemo.TransClass")
End Sub