david
ea19b80b90
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@2 1c943782-d109-9647-9548-93b3ac332352
114 lines
2.4 KiB
Plaintext
114 lines
2.4 KiB
Plaintext
inherited frConexionBD: TfrConexionBD
|
|
Visible = True
|
|
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 = 97
|
|
Height = 13
|
|
Caption = 'Nombre del servidor:'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 18
|
|
Top = 61
|
|
Width = 71
|
|
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 = 57
|
|
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 SQLConnection: TSQLConnection
|
|
ConnectionName = 'MSSQLConnection'
|
|
DriverName = 'MSSQL'
|
|
GetDriverFunc = 'getSQLDriverMSSQL'
|
|
LibraryName = 'dbexpmss.dll'
|
|
LoginPrompt = False
|
|
Params.Strings = (
|
|
'DriverName=MSSQL'
|
|
'HostName=david'
|
|
'DataBase=gft_varela'
|
|
'User_Name=usuario_gft'
|
|
'Password=123456'
|
|
'BlobSize=-1'
|
|
'ErrorResourceFile='
|
|
'LocaleCode=0000'
|
|
'MSSQL TransIsolation=ReadCommited'
|
|
'OS Authentication=False')
|
|
VendorLib = 'oledb'
|
|
Left = 8
|
|
Top = 200
|
|
end
|
|
end
|