Componentes.Terceros.RemObj.../internal/5.0.35.741/1/RemObjects SDK for Delphi/Samples/DataSnap/DataSnapServerData.dfm
2009-02-28 17:16:16 +00:00

83 lines
2.0 KiB
Plaintext

object DataSnapServerDataForm: TDataSnapServerDataForm
OldCreateOrder = True
Providers = <
item
Name = 'Products'
end
item
Provider = prv_customers
Name = 'Customers'
end>
UseProviders = True
Height = 140
Width = 214
object con_SqlServer: TADOConnection
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=Nor' +
'thwind;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
end