object WebModule1: TWebModule1
OldCreateOrder = False
Actions = <
item
Default = True
Name = 'WebActionItem1'
PathInfo = '/Customers'
Producer = Customers
end>
Left = 192
Top = 107
Height = 480
Width = 696
object DCOMConnection1: TDCOMConnection
Connected = True
ServerGUID = '{803ABB84-8590-11D3-8DE3-006097319291}'
ServerName = 'InetXServer.DDGInetX'
Left = 36
Top = 36
end
object CustomerXML: TXMLBroker
Params = <>
ProviderName = 'CustomerProvider'
RemoteServer = DCOMConnection1
WebDispatch.PathInfo = 'CustomerXML'
ReconcileProducer = ReconcilePageProducer1
Left = 128
Top = 36
end
object EmployeeCDS: TClientDataSet
Active = True
Aggregates = <>
Params = <>
ProviderName = 'EmployeeProvider'
RemoteServer = DCOMConnection1
Left = 132
Top = 108
end
object Customers: TMidasPageProducer
IncludePathURL = '/webmidas/'
HTMLDoc.Strings = (
''
''
''
''
'<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
''
'')
Left = 232
Top = 36
object DataForm1: TDataForm
object FieldGroup1: TFieldGroup
XMLBroker = CustomerXML
object FieldText: TFieldText
DisplayWidth = 10
Caption = 'CustNo'
FieldName = 'CUSTNO'
end
object FieldText2: TFieldText
DisplayWidth = 30
Caption = 'Company'
FieldName = 'COMPANY'
end
object FieldText3: TFieldText
DisplayWidth = 30
Caption = 'Address'
FieldName = 'ADDR1'
end
object FieldText4: TFieldText
DisplayWidth = 15
Caption = 'City'
FieldName = 'CITY'
end
object FieldText5: TFieldText
DisplayWidth = 20
Caption = 'State'
FieldName = 'STATE'
end
object FieldText6: TFieldText
DisplayWidth = 10
Caption = 'Zip'
FieldName = 'ZIP'
end
end
object DataNavigator1: TDataNavigator
XMLComponent = FieldGroup1
end
object DataGrid2: TDataGrid
XMLBroker = CustomerXML
XMLDataSetField = 'OrderQuery'
object TextColumn: TTextColumn
DisplayWidth = 10
Caption = 'OrderNo'
FieldName = 'ORDERNO'
end
object TextColumn4: TTextColumn
DisplayWidth = 18
Caption = 'Sale Date'
FieldName = 'SALEDATE'
end
object TextColumn2: TTextColumn
DisplayWidth = 10
Caption = 'Items Total'
FieldName = 'ITEMSTOTAL'
end
object TextColumn3: TTextColumn
DisplayWidth = 10
Caption = 'Amt. Paid'
FieldName = 'AMOUNTPAID'
end
object SelectOptionsColumn: TSelectOptionsColumn
DisplayRows = -1
Caption = 'Employee'
FieldName = 'EMPNO'
DataSet = EmployeeCDS
ValuesField = 'EMPNO'
ItemsField = 'LASTNAME'
end
object StatusColumn1: TStatusColumn
Caption = '*'
end
end
end
end
object ReconcilePageProducer1: TReconcilePageProducer
HTMLDoc.Strings = (
''
''
''
''
'<#INCLUDES><#STYLES><#WARNINGS>'
''
'
'
''
'
'
'<#FORMS><#SCRIPT>'
''
'')
IncludePathURL = '/webmidas/'
ReconcileGrid.ConflictingColumn.Caption = 'Conflicting Value'
ReconcileGrid.ConflictingColumn.DisplayWidth = 24
ReconcileGrid.FieldNameColumn.Caption = 'Field Name'
ReconcileGrid.FieldNameColumn.DisplayWidth = 18
ReconcileGrid.ModifiedColumn.Caption = 'Submitted Value'
ReconcileGrid.ModifiedColumn.DisplayWidth = 24
ReconcileGrid.OriginalColumn.Caption = 'Original Value'
ReconcileGrid.OriginalColumn.DisplayWidth = 24
Left = 240
Top = 104
object DataForm2: TDataForm
end
end
end