FormTeste.dfm

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 246
  ClientWidth = 385
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 48
    Width = 105
    Height = 15
    Caption = 'FDConnection..:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 24
    Top = 66
    Width = 105
    Height = 15
    Caption = 'SQLConnection.:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 24
    Top = 84
    Width = 105
    Height = 15
    Caption = 'FDQuery.......:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 24
    Top = 102
    Width = 105
    Height = 15
    Caption = 'SQLQuery......:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 159
    Top = 30
    Width = 77
    Height = 15
    Caption = 'Foi aberto?'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 311
    Top = 30
    Width = 42
    Height = 15
    Caption = 'Ativo?'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblOpenedFDConnection: TLabel
    Left = 191
    Top = 48
    Width = 21
    Height = 15
    Caption = 'N'#195'O'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblOpenedSQLConnection: TLabel
    Left = 191
    Top = 66
    Width = 21
    Height = 15
    Caption = 'N'#195'O'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblOpenedFDQuery: TLabel
    Left = 191
    Top = 84
    Width = 21
    Height = 15
    Caption = 'N'#195'O'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblOpenedSQLQuery: TLabel
    Left = 191
    Top = 102
    Width = 21
    Height = 15
    Caption = 'N'#195'O'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblActiveFDConnection: TLabel
    Left = 319
    Top = 48
    Width = 21
    Height = 15
    Caption = 'N'#195'O'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblActiveSQLConnection: TLabel
    Left = 319
    Top = 66
    Width = 21
    Height = 15
    Caption = 'N'#195'O'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblActiveFDQuery: TLabel
    Left = 319
    Top = 84
    Width = 21
    Height = 15
    Caption = 'N'#195'O'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblActiveSQLQuery: TLabel
    Left = 319
    Top = 102
    Width = 21
    Height = 15
    Caption = 'N'#195'O'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Consolas'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object btnAction: TButton
    Left = 280
    Top = 136
    Width = 97
    Height = 57
    Caption = 'Abrir'
    TabOrder = 0
    OnClick = btnActionClick
  end
  object FDConnection: TFDConnection
    AfterConnect = ConnectionAfterConnect
    AfterDisconnect = ConnectionAfterDisconnect
    Left = 40
    Top = 136
  end
  object FDQuery: TFDQuery
    AfterOpen = QueryAfterOpen
    AfterClose = QueryAfterClose
    Connection = FDConnection
    Left = 120
    Top = 136
  end
  object SQLConnection: TSQLConnection
    AfterConnect = ConnectionAfterConnect
    AfterDisconnect = ConnectionAfterDisconnect
    Left = 40
    Top = 192
  end
  object SQLQuery: TSQLQuery
    AfterOpen = QueryAfterOpen
    AfterClose = QueryAfterClose
    Params = <>
    Left = 120
    Top = 192
  end
end