102 lines
2.0 KiB
Plaintext
102 lines
2.0 KiB
Plaintext
inherited frConexionBD: TfrConexionBD
|
|
Visible = True
|
|
ExplicitWidth = 451
|
|
ExplicitHeight = 304
|
|
object GroupBox1: TGroupBox
|
|
Left = 8
|
|
Top = 8
|
|
Width = 375
|
|
Height = 185
|
|
Caption = 'Servidor de base de datos'
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
375
|
|
185)
|
|
object Label1: TLabel
|
|
Left = 18
|
|
Top = 30
|
|
Width = 100
|
|
Height = 13
|
|
Caption = 'Nombre del servidor:'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 18
|
|
Top = 61
|
|
Width = 72
|
|
Height = 13
|
|
Caption = 'Base de datos:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 18
|
|
Top = 118
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'Usuario'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 18
|
|
Top = 148
|
|
Width = 60
|
|
Height = 13
|
|
Caption = 'Contrase'#241'a:'
|
|
end
|
|
object Bevel1: TBevel
|
|
Left = 16
|
|
Top = 88
|
|
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 edtUser: TEdit
|
|
Left = 128
|
|
Top = 112
|
|
Width = 116
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 2
|
|
end
|
|
object edtPassword: TEdit
|
|
Left = 128
|
|
Top = 144
|
|
Width = 116
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
PasswordChar = '*'
|
|
TabOrder = 3
|
|
end
|
|
object edtBD: TEdit
|
|
Left = 128
|
|
Top = 57
|
|
Width = 231
|
|
Height = 21
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object bProbar: TButton
|
|
Left = 240
|
|
Top = 200
|
|
Width = 143
|
|
Height = 25
|
|
Caption = 'Probar la conexi'#243'n'
|
|
TabOrder = 1
|
|
OnClick = bProbarClick
|
|
end
|
|
object ADOConnection: TADOConnection
|
|
LoginPrompt = False
|
|
Mode = cmRead
|
|
Provider = 'SQLOLEDB.1'
|
|
Left = 48
|
|
Top = 200
|
|
end
|
|
end
|