david
2824855ea7
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 - Recompilación en Delphi10 de todos los paquetes de DA para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@9 b6239004-a887-0f4b-9937-50029ccdca16
99 lines
2.4 KiB
Plaintext
99 lines
2.4 KiB
Plaintext
object DataSnapServerDataForm: TDataSnapServerDataForm
|
|
OldCreateOrder = True
|
|
Providers = <
|
|
item
|
|
Provider = prv_products
|
|
Name = 'Products'
|
|
end
|
|
item
|
|
Provider = prv_customers
|
|
Name = 'Customers'
|
|
end>
|
|
UseProviders = True
|
|
Height = 99
|
|
Width = 214
|
|
object con_SqlServer: TADOConnection
|
|
Connected = True
|
|
ConnectionString =
|
|
'Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ' +
|
|
'ID=sa;Initial Catalog=Northwind;Data Source=localhost'
|
|
LoginPrompt = False
|
|
Provider = 'SQLOLEDB.1'
|
|
Left = 24
|
|
Top = 8
|
|
end
|
|
object qry_customers: TADOQuery
|
|
Connection = con_SqlServer
|
|
CursorType = ctStatic
|
|
Parameters = <>
|
|
SQL.Strings = (
|
|
'SELECT * FROM CUSTOMERS')
|
|
Left = 57
|
|
Top = 8
|
|
object qry_customersCustomerID: TWideStringField
|
|
FieldName = 'CustomerID'
|
|
FixedChar = True
|
|
Size = 5
|
|
end
|
|
object qry_customersCompanyName: TWideStringField
|
|
FieldName = 'CompanyName'
|
|
Size = 40
|
|
end
|
|
object qry_customersContactName: TWideStringField
|
|
FieldName = 'ContactName'
|
|
Size = 30
|
|
end
|
|
object qry_customersContactTitle: TWideStringField
|
|
FieldName = 'ContactTitle'
|
|
Size = 30
|
|
end
|
|
object qry_customersAddress: TWideStringField
|
|
FieldName = 'Address'
|
|
Size = 60
|
|
end
|
|
object qry_customersCity: TWideStringField
|
|
FieldName = 'City'
|
|
Size = 15
|
|
end
|
|
object qry_customersRegion: TWideStringField
|
|
FieldName = 'Region'
|
|
Size = 15
|
|
end
|
|
object qry_customersPostalCode: TWideStringField
|
|
FieldName = 'PostalCode'
|
|
Size = 10
|
|
end
|
|
object qry_customersCountry: TWideStringField
|
|
FieldName = 'Country'
|
|
Size = 15
|
|
end
|
|
object qry_customersPhone: TWideStringField
|
|
FieldName = 'Phone'
|
|
Size = 24
|
|
end
|
|
object qry_customersFax: TWideStringField
|
|
FieldName = 'Fax'
|
|
Size = 24
|
|
end
|
|
end
|
|
object prv_customers: TDataSetProvider
|
|
DataSet = qry_customers
|
|
Left = 57
|
|
Top = 38
|
|
end
|
|
object qry_Products: TADOQuery
|
|
Connection = con_SqlServer
|
|
CursorType = ctStatic
|
|
Parameters = <>
|
|
SQL.Strings = (
|
|
'SELECT * FROM PRODUCTS')
|
|
Left = 88
|
|
Top = 8
|
|
end
|
|
object prv_products: TDataSetProvider
|
|
DataSet = qry_Products
|
|
Left = 88
|
|
Top = 38
|
|
end
|
|
end
|