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