VERSION 5.00
Object = "{F13C99C0-4D73-11D2-B8B2-0000C00A958C}#3.0#0"; "fpSpr30.ocx"
Begin VB.UserControl ctlLoadControlDemo 
   ClientHeight    =   7155
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11250
   ScaleHeight     =   7155
   ScaleWidth      =   11250
   Begin VB.CommandButton cmdShowAd 
      Caption         =   "Adresse anzeigen"
      Height          =   636
      Left            =   3060
      TabIndex        =   3
      Top             =   1350
      Width           =   2796
   End
   Begin FPSpreadADO.fpSpread fpSpread1 
      Height          =   3492
      Left            =   144
      TabIndex        =   2
      Top             =   2232
      Width           =   9516
      _Version        =   196608
      _ExtentX        =   16785
      _ExtentY        =   6159
      _StockProps     =   64
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      SpreadDesigner  =   "UserControl1.ctx":0000
   End
   Begin VB.TextBox txtQuery 
      Height          =   1020
      Left            =   168
      MultiLine       =   -1  'True
      TabIndex        =   1
      Text            =   "UserControl1.ctx":01B2
      Top             =   192
      Width           =   8316
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Query ausführen"
      Height          =   636
      Left            =   120
      TabIndex        =   0
      Top             =   1344
      Width           =   2796
   End
End
Attribute VB_Name = "ctlLoadControlDemo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Dim oFF As Object
Dim rs As Recordset

Private Sub cmdShowAd_Click()
    With fpSpread1
        .Row = .ActiveRow
        .Col = 1
        oFF.panes("F_AD").finddsn .Text
        oFF.panes("F_AD").Show
    End With
End Sub

Private Sub Command1_Click()
On Error GoTo fehler


    
    
    Set oFF = GetObject("", "FlowFact.Application")
    
    Set rs = oFF.getrecordset(txtQuery.Text)
    
    
    Set fpSpread1.DataSource = rs
    fpSpread1.MaxRows = rs.RecordCount
  
  
    oFF.commands("NEU").Enabled = True
  
    Exit Sub
fehler:

    MsgBox Err.Description
End Sub



Public Property Get caption() As String
    test = "FlowFact Query Analyser"
End Property


Public Sub OM(ByVal getmsg&, ByVal P&, Optional ByVal sstr As Variant)
    MsgBox "OM" & getmsg
End Sub
Public Sub Form_Activate()
    Set oFF = GetObject("", "FlowFact.Application")
    
    oFF.commands("NEU").Enabled = True
    oFF.caption = "Query Analyser"
End Sub
Public Sub Form_DeActivate()
'    oFF.commands("NEU").Enabled = True
End Sub

Private Sub DBList1_Click()

End Sub

Private Sub UserControl_Resize()
    txtQuery.Move 100, 100, UserControl.ScaleWidth - 200, txtQuery.Height
    fpSpread1.Move 100, fpSpread1.Top, UserControl.ScaleWidth - 200, UserControl.ScaleHeight - fpSpread1.Top - 200
End Sub