home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Midas / InternetExpress / CustomerList / customerlistwebmodule.dfm < prev    next >
Text File  |  1999-08-11  |  6KB  |  218 lines
  1. object WebModule1: TWebModule1
  2.   OldCreateOrder = False
  3.   Actions = <
  4.     item
  5.       Name = 'WebActionItem1'
  6.       PathInfo = '/Data'
  7.       Producer = Data
  8.     end
  9.     item
  10.       Default = True
  11.       Name = 'WebActionItem2'
  12.       PathInfo = '/CustList'
  13.       Producer = CustList
  14.     end>
  15.   Left = 168
  16.   Top = 165
  17.   Height = 374
  18.   Width = 570
  19.   object DCOMConnection1: TDCOMConnection
  20.     ServerGUID = '{930FAEE3-0DC1-11D3-AA8A-00A024C11562}'
  21.     ServerName = 'rdmProject.NewsGroupSample'
  22.     Left = 48
  23.     Top = 24
  24.   end
  25.   object CustList: TMidasPageProducer
  26.     HTMLDoc.Strings = (
  27.       '<HTML>'
  28.       '<HEAD>'
  29.       '</HEAD>'
  30.       '<BODY>'
  31.       '<#STYLES><#CUSTOMERLIST>'
  32.       '</BODY>'
  33.       '</HTML>')
  34.     OnHTMLTag = CustListHTMLTag
  35.     IncludePathURL = '../'
  36.     Styles.Strings = (
  37.       'A {font-size: 20}')
  38.     Left = 104
  39.     Top = 96
  40.   end
  41.   object XMLBroker1: TXMLBroker
  42.     Params = <
  43.       item
  44.         DataType = ftSmallint
  45.         Name = 'CustNo'
  46.         ParamType = ptUnknown
  47.         Value = 1221
  48.       end>
  49.     ProviderName = 'CustOrders'
  50.     RemoteServer = DCOMConnection1
  51.     WebDispatch.MethodType = mtPost
  52.     WebDispatch.PathInfo = 'XMLBroker1'
  53.     OnRequestRecords = XMLBroker1RequestRecords
  54.     ReconcileProducer = ReconcileError
  55.     Left = 152
  56.     Top = 24
  57.   end
  58.   object Data: TMidasPageProducer
  59.     HTMLDoc.Strings = (
  60.       '<HTML>'
  61.       '<HEAD>'
  62.       '</HEAD>'
  63.       '<BODY>'
  64.       '<#INCLUDES><#STYLES>'
  65.       
  66.         '<A HREF='#39'<#HREFCUSTLIST>'#39' onclick='#39'return CheckData();'#39'>Return t' +
  67.         'o customer list</A><BR>'
  68.       '<#CUSTOMER>'
  69.       '<#WARNINGS><#FORMS><#SCRIPT>'
  70.       '</SCRIPT>'
  71.       '</BODY>'
  72.       '</HTML>')
  73.     OnHTMLTag = DataHTMLTag
  74.     IncludePathURL = '../'
  75.     OnBeforeGetContent = DataBeforeGetContent
  76.     Styles.Strings = (
  77.       'H1 {color: green; font-style: italic; font-size: 20}'
  78.       '.caption {font-weight: bold}')
  79.     EnableXMLIslands = False
  80.     Left = 16
  81.     Top = 96
  82.     object DataForm1: TDataForm
  83.       object FieldGroup1: TFieldGroup
  84.         XMLBroker = XMLBroker1
  85.         object OrderNo: TFieldText
  86.           DisplayWidth = 10
  87.           ReadOnly = False
  88.           Caption = 'OrderNo'
  89.           CaptionAttributes.StyleRule = 'caption'
  90.           CaptionPosition = capLeft
  91.           FieldName = 'OrderNo'
  92.           TabIndex = -1
  93.         end
  94.         object SaleDate: TFieldText
  95.           DisplayWidth = 18
  96.           ReadOnly = False
  97.           Caption = 'SaleDate'
  98.           CaptionAttributes.StyleRule = 'caption'
  99.           CaptionPosition = capLeft
  100.           FieldName = 'SaleDate'
  101.           TabIndex = -1
  102.         end
  103.         object ShipDate: TFieldText
  104.           DisplayWidth = 18
  105.           ReadOnly = False
  106.           Caption = 'ShipDate'
  107.           CaptionAttributes.StyleRule = 'caption'
  108.           CaptionPosition = capLeft
  109.           FieldName = 'ShipDate'
  110.           TabIndex = -1
  111.         end
  112.         object ItemsTotal: TFieldText
  113.           DisplayWidth = 10
  114.           ReadOnly = False
  115.           Caption = 'ItemsTotal'
  116.           CaptionAttributes.StyleRule = 'caption'
  117.           CaptionPosition = capLeft
  118.           FieldName = 'ItemsTotal'
  119.           TabIndex = -1
  120.         end
  121.         object AmountPaid: TFieldText
  122.           DisplayWidth = 10
  123.           ReadOnly = False
  124.           Caption = 'AmountPaid'
  125.           CaptionAttributes.StyleRule = 'caption'
  126.           CaptionPosition = capLeft
  127.           FieldName = 'AmountPaid'
  128.           TabIndex = -1
  129.         end
  130.       end
  131.       object DataNavigator1: TDataNavigator
  132.         XMLComponent = FieldGroup1
  133.         Style = 'margin-bottom: 20'
  134.       end
  135.       object DataGrid1: TDataGrid
  136.         XMLBroker = XMLBroker1
  137.         XMLDataSetField = 'OrderItems'
  138.         TableAttributes.BgColor = 'Silver'
  139.         object OrderNo2: TTextColumn
  140.           DisplayWidth = 10
  141.           ReadOnly = False
  142.           Caption = 'OrderNo'
  143.           FieldName = 'OrderNo'
  144.           TabIndex = -1
  145.         end
  146.         object ItemNo: TTextColumn
  147.           DisplayWidth = 10
  148.           ReadOnly = False
  149.           Caption = 'ItemNo'
  150.           FieldName = 'ItemNo'
  151.           TabIndex = -1
  152.         end
  153.         object PartNo: TTextColumn
  154.           DisplayWidth = 10
  155.           ReadOnly = False
  156.           Caption = 'PartNo'
  157.           FieldName = 'PartNo'
  158.           TabIndex = -1
  159.         end
  160.         object Qty: TTextColumn
  161.           DisplayWidth = 10
  162.           ReadOnly = False
  163.           Caption = 'Qty'
  164.           FieldName = 'Qty'
  165.           TabIndex = -1
  166.         end
  167.         object Discount: TTextColumn
  168.           DisplayWidth = 10
  169.           ReadOnly = False
  170.           Caption = 'Discount'
  171.           FieldName = 'Discount'
  172.           TabIndex = -1
  173.         end
  174.         object StatusColumn1: TStatusColumn
  175.           Caption = '*'
  176.         end
  177.       end
  178.       object DataNavigator2: TDataNavigator
  179.         XMLComponent = DataGrid1
  180.       end
  181.     end
  182.   end
  183.   object CustNames: TClientDataSet
  184.     Active = True
  185.     Aggregates = <>
  186.     Params = <>
  187.     ProviderName = 'CustNames'
  188.     RemoteServer = DCOMConnection1
  189.     Left = 200
  190.     Top = 96
  191.   end
  192.   object ReconcileError: TMidasPageProducer
  193.     HTMLDoc.Strings = (
  194.       '<HTML>'
  195.       '<HEAD>'
  196.       '</HEAD>'
  197.       '<BODY>'
  198.       '<#INCLUDES><#STYLES><#WARNINGS>'
  199.       
  200.         'One or more of your changes could not be applied.  Typical cause' +
  201.         's of reconcile'
  202.       
  203.         'errors are key violations and  concurrent changes made by anothe' +
  204.         'r user.'
  205.       '<p>'
  206.       '<A HREF='#39'<#HREFCUSTLIST>'#39'>Return to customer list</A>'
  207.       '<p>'
  208.       '<A HREF='#39'<#REDIRECT>'#39'>Return to customer data</A>'
  209.       ''
  210.       '<#FORMS><#SCRIPT>'
  211.       '</BODY>'
  212.       '</HTML>')
  213.     OnHTMLTag = ReconcileErrorHTMLTag
  214.     Left = 200
  215.     Top = 184
  216.   end
  217. end
  218.