ProGestion/Servidor/uConexionBD.dfm

inherited frConexionBD: TfrConexionBD
  Width = 443
  Height = 270
  Align = alClient
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 375
    Height = 209
    Caption = 'Servidor de base de datos'
    TabOrder = 0
    DesignSize = (
      375
      209)
    object Label1: TLabel
      Left = 18
      Top = 30
      Width = 97
      Height = 13
      Caption = 'Nombre del servidor:'
    end
    object Label2: TLabel
      Left = 18
      Top = 60
      Width = 93
      Height = 13
      Caption = 'Puerto de escucha:'
    end
    object Label3: TLabel
      Left = 18
      Top = 92
      Width = 71
      Height = 13
      Caption = 'Base de datos:'
    end
    object Label4: TLabel
      Left = 18
      Top = 150
      Width = 36
      Height = 13
      Caption = 'Usuario'
    end
    object Label5: TLabel
      Left = 18
      Top = 180
      Width = 57
      Height = 13
      Caption = 'Contrase'#241'a:'
    end
    object Bevel1: TBevel
      Left = 16
      Top = 120
      Width = 343
      Height = 10
      Anchors = [akLeft, akTop, akRight]
      Shape = bsBottomLine
    end
    object edtServer: TEdit
      Left = 128
      Top = 24
      Width = 231
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 0
      Text = 'localhost'
    end
    object edtPort: TEdit
      Left = 128
      Top = 56
      Width = 116
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 1
      Text = '3050'
      OnExit = edtPortExit
    end
    object edtUser: TEdit
      Left = 128
      Top = 144
      Width = 116
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 3
      Text = 'sysdba'
    end
    object edtPassword: TEdit
      Left = 128
      Top = 176
      Width = 116
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      PasswordChar = '*'
      TabOrder = 4
    end
    object edtPath: TcxButtonEdit
      Left = 128
      Top = 88
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
      Style.LookAndFeel.Kind = lfUltraFlat
      Style.LookAndFeel.NativeStyle = True
      StyleDisabled.LookAndFeel.Kind = lfUltraFlat
      StyleDisabled.LookAndFeel.NativeStyle = True
      StyleFocused.LookAndFeel.Kind = lfUltraFlat
      StyleFocused.LookAndFeel.NativeStyle = True
      StyleHot.LookAndFeel.Kind = lfUltraFlat
      StyleHot.LookAndFeel.NativeStyle = True
      TabOrder = 2
      Width = 231
    end
  end
  object bProbar: TButton
    Left = 240
    Top = 224
    Width = 143
    Height = 25
    Caption = 'Probar la conexi'#243'n'
    TabOrder = 1
    OnClick = bProbarClick
  end
  object OpenDialog: TOpenDialog
    Filter = 'Base de datos Firebird (*.fdb)|*.FDB'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Abrir base de datos Firebird'
    Left = 264
    Top = 56
  end
  object IBServerProperties: TIBServerProperties
    ServerName = 'localhost'
    Params.Strings = (
      'user_name=user'
      'password=pass')
    LoginPrompt = False
    TraceFlags = []
    Options = []
    Left = 208
    Top = 224
  end
  object IBDatabase: TIBDatabase
    DatabaseName = 'server:dasadsads'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey'
      'lc_ctype=ISO8859_1')
    LoginPrompt = False
    IdleTimer = 0
    SQLDialect = 3
    TraceFlags = []
    Left = 176
    Top = 224
  end
end