QBasic & Borland Pascal & C

home *** CD-ROM | disk | FTP | other *** search

/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / Midas / InternetExpress / InetXCenter / inextxcentermodule.dfm / inextxcentermodule.txt

Wrap

Text File | 1999-08-11 | 50.8 KB | 1,809 lines

object WebModule2: TWebModule2 OldCreateOrder = False OnCreate = WebModule2Create Actions = < item Default = True Name = 'WebActionItem1' PathInfo = '/Home' Producer = Home end item Name = 'WebActionItem2' PathInfo = '/CustomComponentGrid' Producer = CustomComponentGrid end item Name = 'WebActionItem3' PathInfo = '/CustOrders' Producer = CustOrders end item Name = 'WebActionItem4' PathInfo = '/CountriesRadioGroup' Producer = CountriesRadioGroup end item Name = 'WebActionItem5' PathInfo = '/CountriesSelectOptions' Producer = CountriesSelectOptions end item Name = 'WebActionItem6' PathInfo = '/FieldAttr' Producer = FieldAttr end item Name = 'WebActionItem7' PathInfo = '/ImgButtons' Producer = ImgButtons end item Name = 'WebActionItem8' PathInfo = '/ComponentsList' Producer = ComponentsList end item Name = 'WebActionItem9' PathInfo = '/Examples' Producer = Examples end item Name = 'WebActionItem10' PathInfo = '/SearchPage' end item Name = 'WebActionItem11' PathInfo = '/SearchSelectOptionsPage' Producer = SearchSelectOptionsPage end item Name = 'WebActionItem12' PathInfo = '/SelectOptionsPage' Producer = SelectOptionsPage end item Name = 'WebActionItem13' PathInfo = '/QueryPasswordPage' Producer = QueryPasswordPage end item Name = 'WebActionItem14' PathInfo = '/DumpRequest' Producer = DumpRequest end item Name = 'WebActionItem16' PathInfo = '/ComponentsFilter' OnAction = WebModule2WebActionItem16Action end item Name = 'WebActionItem15' PathInfo = '/CustOrdersQuery' Producer = CustOrdersQuery end item Name = 'WebActionItem17' PathInfo = '/AboutJavaScript' Producer = AboutJavaScript end item Name = 'WebActionItem18' PathInfo = '/AboutXML' Producer = AboutXML end item Name = 'WebActionItem19' PathInfo = '/PromptButtonPage' Producer = PromptButtonPage end item Name = 'WebActionItem20' PathInfo = '/ReconcileError' Producer = ReconcileError end item Name = 'WebActionItem21' PathInfo = '/CustOrdersMasterDetail' Producer = CustOrdersMasterDetail end item Name = 'WebActionItem22' PathInfo = '/AboutComponents' Producer = AboutComponents end item Name = 'WebActionItem23' PathInfo = '/RadioGroupPage' Producer = RadioGroupPage end> BeforeDispatch = WebModuleBeforeDispatch Left = 65494 Top = 22 Height = 553 Width = 812 object Home: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') LinkName = 'Home' TopicPage = topHome PageCategories = [] Description.Strings = ( '<P>Welcome to the InternetExpress Website</P>' '<P>This purpose of this Website is to provide information about' 'InternetExpress. You will find descriptions as well as wor' + 'king' 'examples. </P>' '<P>This Website was developed with Delphi 5, of course.</P>') Title = 'InternetExpress Home' Caption = 'Home' ComponentsInfo = ComponentsInfoDS DescriptionFile = 'home.htm' PageLayout = plDescription Left = 16 Top = 8 end object XMLBrokerAllCustomers: TXMLBroker Params = <> ProviderName = 'AllCustomers' RemoteServer = DCOMConnection1 WebDispatch.PathInfo = 'XMLBrokerAllCustomers' ReconcileProducer = ReconcilePage Left = 416 Top = 8 end object DCOMConnection1: TDCOMConnection ServerGUID = '{230732E5-2F8B-11D3-AAB4-00A024C11562}' ServerName = 'rdmINetXCenter.INetXCenterData' Left = 288 Top = 16 end object CustomComponentGrid: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>' '') EnableXMLIslands = False LinkName = 'CustomComponentGrid' TopicPage = topNone PageCategories = [catExample] Description.Strings = ( 'This example displays a grid of all customers.' 'TSortTextColumn and TLinkColumn are demonstrated in this example' + '.' ' ') Title = 'InternetExpress CustomComponentGrid Example' Caption = 'CustomComponentGrid' ComponentsInfo = ComponentsInfoDS PageLayout = plStandard Instructions.Strings = ( 'Click the Sort buttons to toggle the sort order for a column. C' + 'lick on the Details.. . link to' 'open a window display the selected customers orders.' '<p></p>') Left = 48 Top = 245 object DataForm1: TDataForm object DataGrid1: TDataGrid XMLBroker = XMLBrokerAllCustomers object SortCustNo: TSortTextColumn DisplayWidth = 10 Caption = 'CustNo' FieldName = 'CustNo' ButtonCaption = 'Sort' end object SortCompany: TSortTextColumn DisplayWidth = 30 Caption = 'Company' FieldName = 'Company' ButtonCaption = 'Sort' end object SortLastInvoiceDate: TSortTextColumn DisplayWidth = 18 Caption = 'LastInvoiceDate' FieldName = 'LastInvoiceDate' ButtonCaption = 'Sort' end object LinkColumn1: TLinkColumn Text = 'Details...' Caption = 'Orders' Action = 'CustOrders' KeyFieldName = 'CustNo' end object StatusColumn1: TStatusColumn Caption = '*' end end object DataNavigator1: TDataNavigator XMLComponent = DataGrid1 object FirstButton1: TFirstButton XMLComponent = DataGrid1 XMLUseParent = False Caption = '|<' end object PriorPageButton1: TPriorPageButton XMLComponent = DataGrid1 XMLUseParent = False Caption = '<<' end object PriorButton1: TPriorButton XMLComponent = DataGrid1 XMLUseParent = False Caption = '<' end object NextButton1: TNextButton XMLComponent = DataGrid1 XMLUseParent = False Caption = '>' end object NextPageButton1: TNextPageButton XMLComponent = DataGrid1 XMLUseParent = False Caption = '>>' end object LastButton1: TLastButton XMLComponent = DataGrid1 XMLUseParent = False Caption = '>|' end object UndoButton1: TUndoButton XMLComponent = DataGrid1 XMLUseParent = False Caption = 'Undo' end object PostButton1: TPostButton XMLComponent = DataGrid1 XMLUseParent = False Caption = 'Post' end object ApplyUpdatesButton1: TApplyUpdatesButton Caption = 'Apply Updates' XMLBroker = XMLBrokerAllCustomers XMLUseParent = False end object ShowXMLButton2: TShowXMLButton Caption = 'Show XML' XMLBroker = XMLBrokerAllCustomers XMLUseParent = True end object ShowDeltaButton2: TShowDeltaButton Caption = 'Show Delta' XMLBroker = XMLBrokerAllCustomers XMLUseParent = True end end object FieldGroup2: TFieldGroup XMLBroker = XMLAllCustOrders object RowSetStatus1: TRowSetStatus end end end end object CustOrders: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>' '') LinkName = 'CustOrders Example' TopicPage = topNone PageCategories = [] Description.Strings = ( 'Description goes here') Title = 'InternetExpress CustOrders Example' Caption = 'CustOrders Example' ComponentsInfo = ComponentsInfoDS PageLayout = plStandard Left = 112 Top = 157 object DataForm2: TDataForm object FieldGroup1: TFieldGroup XMLBroker = XMLBrokerCustOrders object LayoutGroup1: TLayoutGroup DisplayColumns = 2 object OrderNo: TFieldText DisplayWidth = 10 Caption = 'OrderNo' CaptionAttributes.StyleRule = 'caption2' FieldName = 'OrderNo' Style = 'margin-right: 10' end object CustNo2: TFieldText DisplayWidth = 10 Caption = 'CustNo' CaptionAttributes.StyleRule = 'caption2' FieldName = 'CustNo' Style = 'margin-right: 10' end object ItemsTotal: TFieldText DisplayWidth = 10 Caption = 'ItemsTotal' CaptionAttributes.StyleRule = 'caption2' FieldName = 'ItemsTotal' Style = 'margin-right: 10' end object AmountPaid: TFieldText DisplayWidth = 10 Caption = 'AmountPaid' CaptionAttributes.StyleRule = 'caption2' FieldName = 'AmountPaid' Style = 'margin-right: 10' end object FieldStatus1: TFieldStatus Caption = '*' CaptionAttributes.StyleRule = 'caption2' Style = 'margin-right: 10' end end end object DataNavigator2: TDataNavigator XMLComponent = FieldGroup1 Style = 'text-align: center' object LayoutGroup2: TLayoutGroup DisplayColumns = -1 Style = 'text-align: center' object FirstButton2: TFirstButton XMLComponent = FieldGroup1 XMLUseParent = False Caption = '|<' end object PriorPageButton2: TPriorPageButton XMLComponent = FieldGroup1 XMLUseParent = False Caption = '<<' end object PriorButton2: TPriorButton XMLComponent = FieldGroup1 XMLUseParent = False Caption = '<' end object NextButton2: TNextButton XMLComponent = FieldGroup1 XMLUseParent = False Caption = '>' end object NextPageButton2: TNextPageButton XMLComponent = FieldGroup1 XMLUseParent = False Caption = '>>' end object LastButton2: TLastButton XMLComponent = FieldGroup1 XMLUseParent = False Caption = '>|' end object InsertButton1: TInsertButton XMLComponent = FieldGroup1 XMLUseParent = False Caption = ' + ' end object DeleteButton1: TDeleteButton XMLComponent = FieldGroup1 XMLUseParent = False Caption = ' - ' end object UndoButton2: TUndoButton XMLComponent = FieldGroup1 XMLUseParent = False Caption = 'Undo' end object PostButton2: TPostButton XMLComponent = FieldGroup1 XMLUseParent = False Caption = 'Post' end end object LayoutGroup4: TLayoutGroup DisplayColumns = -1 Style = 'text-align: center' object ApplyUpdatesButton2: TApplyUpdatesButton Style = 'vertical-align: bottom' Caption = 'Apply Updates' XMLBroker = XMLBrokerCustOrders XMLUseParent = False end object ShowXMLButton1: TShowXMLButton Caption = 'Show XML' XMLBroker = XMLBrokerCustOrders XMLUseParent = False end object ShowDeltaButton1: TShowDeltaButton Caption = 'Show Delta' XMLBroker = XMLBrokerCustOrders XMLUseParent = False end end end object FieldGroup3: TFieldGroup XMLBroker = XMLBrokerCustOrders Style = 'text-align: center' object RowSetStatus2: TRowSetStatus end end end end object XMLBrokerCustOrders: TXMLBroker Params = < item DataType = ftInteger Name = 'CustNo' ParamType = ptUnknown Value = '1221' end> ProviderName = 'CustOrders' RemoteServer = DCOMConnection1 WebDispatch.PathInfo = 'XMLBrokerCustOrders' OnRequestRecords = XMLBrokerCustOrdersRequestRecords ReconcileProducer = ReconcilePage Left = 312 Top = 128 end object CountriesRadioGroup: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>' '') LinkName = 'CountriesRadioGroup' TopicPage = topNone PageCategories = [catExample] Description.Strings = ( 'This example uses a TFieldRadioGroup component to display then t' + 'he country.continent field.') Title = 'InternetExpress CountriesRadioGroup Example' Caption = 'CountriesRadioGroup' ComponentsInfo = ComponentsInfoDS PageLayout = plStandard Left = 48 Top = 309 object DataForm3: TDataForm object FieldGroup4: TFieldGroup XMLBroker = XMLBrokerAllCountries object Name: TFieldText DisplayWidth = 24 Caption = 'Name' CaptionAttributes.Style = 'font-weight: bold' FieldName = 'Name' end object Capital: TFieldText DisplayWidth = 24 Caption = 'Capital' CaptionAttributes.Style = 'font-weight: bold' FieldName = 'Capital' end object Area: TFieldText DisplayWidth = 10 Caption = 'Area' CaptionAttributes.Style = 'font-weight: bold' FieldName = 'Area' end object Population: TFieldText DisplayWidth = 10 Caption = 'Population' CaptionAttributes.Style = 'font-weight: bold' FieldName = 'Population' end object ContinentRadioGroup: TFieldRadioGroup ReadOnly = False Caption = 'Continent' CaptionAttributes.Style = 'font-weight: bold; vertical-align: top' FieldName = 'Continent' DisplayWidth = 24 DisplayColumns = 2 Items.Strings = ( 'Africa' 'Eurasia' 'North America' 'South America' 'Australia') end object FieldStatus2: TFieldStatus Caption = '*' end end object DataNavigator3: TDataNavigator XMLComponent = FieldGroup4 end end end object XMLBrokerAllCountries: TXMLBroker Params = <> ProviderName = 'AllCountries' RemoteServer = DCOMConnection1 WebDispatch.PathInfo = 'XMLBrokerAllCountries' ReconcileProducer = ReconcilePage Left = 328 Top = 72 end object CountriesSelectOptions: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>' '') LinkName = 'CountriesSelectOptions' TopicPage = topNone PageCategories = [catExample] Description.Strings = ( 'This example uses a TFieldSelectOptions component to display the' + 'n the country.continent field.' ' ') Title = 'InternetExpress CountriesSelectOptions Example' Caption = 'CountriesSelectOptions' ComponentsInfo = ComponentsInfoDS PageLayout = plStandard Left = 48 Top = 365 object DataForm4: TDataForm object FieldGroup5: TFieldGroup XMLBroker = XMLBrokerAllCountries object FieldText1: TFieldText DisplayWidth = 24 Caption = 'Name' CaptionAttributes.Style = 'font-weight: bold' FieldName = 'Name' end object FieldText2: TFieldText DisplayWidth = 24 Caption = 'Capital' CaptionAttributes.Style = 'font-weight: bold' FieldName = 'Capital' end object FieldText3: TFieldText DisplayWidth = 10 Caption = 'Area' CaptionAttributes.Style = 'font-weight: bold' FieldName = 'Area' end object FieldText4: TFieldText DisplayWidth = 10 Caption = 'Population' CaptionAttributes.Style = 'font-weight: bold' FieldName = 'Population' end object FieldStatus3: TFieldStatus Caption = '*' end object FieldSelectOptions: TFieldSelectOptions DisplayRows = 5 Caption = 'Continent' CaptionAttributes.Style = 'font-weight: bold; vertical-align: top' FieldName = 'Continent' Items.Strings = ( 'Africa' 'Australia' 'EuroAsia' 'North America' 'South America') end end object DataNavigator4: TDataNavigator XMLComponent = FieldGroup5 end end end object FieldAttr: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>' '') OnBeforeGetContent = FieldAttrBeforeGetContent LinkName = 'FieldAttr' TopicPage = topNone PageCategories = [catExample] Description.Strings = ( 'This example demonstrates the TFieldAttr custom component. ') Title = 'InternetExpress FieldAttr Example' Caption = 'FieldAttr' ComponentsInfo = ComponentsInfoDS PageLayout = plStandard Instructions.Strings = ( 'Select the submit button to reformat the ItemsTotal field. Use ' + '-1 to ' 'indicate default for the Decimals and FixedDecimals fields. ' '<p></p>') Left = 136 Top = 349 object LayoutGroup3: TLayoutGroup DisplayColumns = 2 object TitleLayoutGroup1: TTitleLayoutGroup DisplayColumns = -1 CaptionPosition = capAbove Caption = 'ItemsTotal Column Properties' CaptionAttributes.Style = 'text-align: center' object SubmitFieldAttr: TQueryForm Action = 'FieldAttr' Method = fmGet object QueryFieldGroup3: TQueryFieldGroup object QueryMinValue: TQueryText ParamName = 'MinValue' DisplayWidth = -1 Caption = 'MinValue' end object QueryMaxValue: TQueryText ParamName = 'MaxValue' DisplayWidth = -1 Caption = 'MaxValue' end object QueryDecimals: TQueryText ParamName = 'Decimals' DisplayWidth = 6 Caption = 'Decimals' Text = '-1' end object QueryFixedDecimals: TQueryText ParamName = 'FixedDecimals' DisplayWidth = 6 Caption = 'FixedDecimals' Text = '-1' end object QueryCurrencySymbol: TQueryText ParamName = 'CurrencySymbol' DisplayWidth = 6 Caption = 'CurrencySymbol' end end object QueryButtons1: TQueryButtons end end end object DataForm5: TDataForm object DataGrid2: TDataGrid XMLBroker = XMLBrokerCustOrders object TextColumnAttr: TTextColumnAttr DisplayWidth = 20 Caption = 'ItemsTotal' FieldName = 'ItemsTotal' Required = False end end object DataNavigator5: TDataNavigator XMLComponent = DataGrid2 object FirstButton3: TFirstButton XMLComponent = DataGrid2 XMLUseParent = False Caption = '|<' end object PriorPageButton3: TPriorPageButton XMLComponent = DataGrid2 XMLUseParent = False Caption = '<<' end object PriorButton3: TPriorButton XMLComponent = DataGrid2 XMLUseParent = False Caption = '<' end object NextButton3: TNextButton XMLComponent = DataGrid2 XMLUseParent = False Caption = '>' end object NextPageButton3: TNextPageButton XMLComponent = DataGrid2 XMLUseParent = False Caption = '>>' end object LastButton3: TLastButton XMLComponent = DataGrid2 XMLUseParent = False Caption = '>|' end object PostButton3: TPostButton XMLComponent = DataGrid2 XMLUseParent = False Caption = 'Post' end object UndoButton3: TUndoButton XMLComponent = DataGrid2 XMLUseParent = False Caption = 'Undo' end end end end end object ImgButtons: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>' '') LinkName = 'ImgButtons' TopicPage = topNone PageCategories = [catExample] Description.Strings = ( 'This example demonstrates the TImgButtons custom data navigator ' + 'component.') Title = 'InternetExpress ImgButtons Example' Caption = 'ImgButtons' ComponentsInfo = ComponentsInfoDS PageLayout = plStandard Left = 152 Top = 277 object DataForm6: TDataForm object FieldGroup6: TFieldGroup XMLBroker = XMLBrokerAllCountries object Name3: TFieldText DisplayWidth = 24 Caption = 'Name' FieldName = 'Name' end object Capital2: TFieldText DisplayWidth = 24 Caption = 'Capital' FieldName = 'Capital' end object Continent: TFieldText DisplayWidth = 24 Caption = 'Continent' FieldName = 'Continent' end object Area2: TFieldText DisplayWidth = 10 Caption = 'Area' FieldName = 'Area' end object Population2: TFieldText DisplayWidth = 10 Caption = 'Population' FieldName = 'Population' end object FieldStatus4: TFieldStatus Caption = '*' end end object ImgDataNavigator1: TImgDataNavigator XMLComponent = FieldGroup6 object ImgFirstButton1: TImgFirstButton XMLComponent = FieldGroup6 XMLUseParent = False Alt = 'First' Src = 'first.gif' Border = False end object ImgPriorPageButton1: TImgPriorPageButton XMLComponent = FieldGroup6 XMLUseParent = False Alt = 'Prior Page' Src = 'priorpage.gif' Border = False end object ImgPriorButton1: TImgPriorButton XMLComponent = FieldGroup6 XMLUseParent = False Alt = 'Prior' Src = 'prior.gif' Border = False end object ImgNextButton1: TImgNextButton XMLComponent = FieldGroup6 XMLUseParent = False Alt = 'Next' Src = 'next.gif' Border = False end object ImgNextPageButton1: TImgNextPageButton XMLComponent = FieldGroup6 XMLUseParent = False Alt = 'Next Page' Src = 'nextpage.gif' Border = False end object ImgLastButton1: TImgLastButton XMLComponent = FieldGroup6 XMLUseParent = False Alt = 'Last' Src = 'last.gif' Border = False end object ImgInsertButton1: TImgInsertButton XMLComponent = FieldGroup6 XMLUseParent = False Alt = 'Insert' Src = 'insert.gif' Border = False end object ImgDeleteButton1: TImgDeleteButton XMLComponent = FieldGroup6 XMLUseParent = False Alt = 'Delete' Src = 'delete.gif' Border = False end object ImgUndoButton1: TImgUndoButton XMLComponent = FieldGroup6 XMLUseParent = False Alt = 'Undo' Src = 'undo.gif' Border = False end object ImgPostButton1: TImgPostButton XMLComponent = FieldGroup6 XMLUseParent = False Alt = 'Post' Src = 'post.gif' Border = False end object ImgApplyUpdatesButton1: TImgApplyUpdatesButton Alt = 'Apply Updates' XMLBroker = XMLBrokerAllCountries XMLUseParent = False Src = 'applyupdates.gif' Border = False end end end end object ComponentsFilter: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') OnBeforeGetContent = ComponentsFilterBeforeGetContent LinkName = 'Filter' TopicPage = topComponentsFilter PageCategories = [] Title = 'InternetExpress Components Filter' Caption = 'Components Filter' ComponentsInfo = ComponentsInfoDS PageLayout = plStandard Left = 32 Top = 56 object QueryForm2: TQueryForm Method = fmGet object LayoutGroup6: TLayoutGroup DisplayColumns = 2 object QueryFieldGroup8: TQueryFieldGroup object QueryRadioGroupPackageFilter: TQueryRadioGroup ParamName = 'Package' ReadOnly = False Caption = 'Component Package' CaptionAttributes.Style = 'background-color: silver' CaptionPosition = capAbove DisplayWidth = -1 DisplayColumns = 1 Values.Strings = ( 'All' 'Standard' 'Custom') Items.Strings = ( 'All' 'Standard' 'Custom') Style = 'vertical-align: top' Text = 'All' end end object QueryFieldGroup9: TQueryFieldGroup object QueryRadioGroupUsageFilter: TQueryRadioGroup ParamName = 'Usage' ReadOnly = False Caption = 'Component Type' CaptionAttributes.Style = 'background-color: silver' CaptionPosition = capAbove DisplayWidth = -1 DisplayColumns = 2 Values.Strings = ( 'All' 'XMLData' 'Query' 'Producer' 'DataAccess') Items.Strings = ( 'All' 'Data Form Components' 'Query Form Components' 'Page Producers' 'Data Access Components') Text = 'All' end end end object LayoutGroup5: TLayoutGroup DisplayColumns = -1 Style = 'text-align: center' object QueryButtons9: TQueryButtons object SubmitQueryButton1: TSubmitQueryButton Caption = 'Apply Filter' Style = 'vertical-align: top' XMLComponent = QueryForm2 end object CloseFilter: TSubmitValueButton Caption = 'Close' XMLComponent = QueryForm2 Value = 'Close' ValueName = 'CloseFilter' end end end end end object Examples: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>' '') LinkName = 'Examples' TopicPage = topExamples PageCategories = [] Title = 'InternetExpress Examples' Caption = 'Examples' ComponentsInfo = ComponentsInfoDS PageLayout = plStandard Left = 80 Top = 8 end object SelectOptionsPage: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') OnBeforeGetContent = SelectOptionsPageBeforeGetContent LinkName = 'SelectOptionsPage' TopicPage = topNone PageCategories = [catExample] Description.Strings = ( 'This example demonstrates the TQuerySelectOptions custom compone' + 'nt. ' 'The submit button displays the HTTP request fields.') Title = 'InternetExpress SelectOptionsPage Example' Caption = 'SelectOptionsPage' PageLayout = plStandard Left = 288 Top = 357 object SelectOptionsQueryForm: TQueryForm Action = 'DumpRequest' Method = fmPost object QueryFieldGroup2: TQueryFieldGroup object QuerySelectOptions: TQuerySelectOptions ParamName = 'Value' DisplayRows = -1 Caption = 'QuerySelectOptions' CaptionPosition = capAbove DataSet = CustNamesDS ValuesField = 'CustNo' ItemsField = 'Company' end end object QueryButtons2: TQueryButtons end end end object SearchSelectOptionsPage: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') OnBeforeGetContent = SearchSelectOptionsPageBeforeGetContent LinkName = 'SearchSelectOptionsPage' TopicPage = topNone PageCategories = [catExample] Description.Strings = ( 'This example demonstrates the TQuerySearchSelectOptions custom c' + 'omponent.' 'To use this example, type a string in the input control to incre' + 'mentally search the list of' 'options. ' 'The submit button displays the HTTP request fields.') Title = 'InternetExpress SearchSelectOptionsPage Example' Caption = 'SearchSelectOptionsPage' PageLayout = plStandard Left = 329 Top = 279 object SearchSelectOptionsQueryForm: TQueryForm Action = 'DumpRequest' Method = fmGet object QueryFieldGroup1: TQueryFieldGroup object QuerySearchSelectOptions: TQuerySearchSelectOptions DataSet = CustNamesDS ValuesField = 'CustNo' ItemsField = 'Company' DisplayRows = 8 CaptionPosition = capAbove Caption = 'QuerySearchSelectOptions' end end object QueryButtons3: TQueryButtons end end end object PromptButtonPage: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') LinkName = 'PromptButtonPage' TopicPage = topNone PageCategories = [catExample] Description.Strings = ( 'This example demonstrates the TPromptButton custom component. ' 'Choose the Prompt... button, enter a value, and see the HTTP req' + 'uest received by the' 'Web Module.') Title = 'InternetExpress PromptButtonPage Example' Caption = 'PromptButtonPage' ComponentsInfo = ComponentsInfoDS PageLayout = plStandard Left = 376 Top = 341 object QueryForm3: TQueryForm Action = 'DumpRequest' Method = fmPost object QueryButtons4: TQueryButtons object PromptQueryButton1: TPromptQueryButton Caption = 'Prompt...' XMLComponent = QueryForm3 XMLUseParent = False HiddenInputName = 'PromptResult' Lines.Strings = ( 'Enter some text') end end end end object QueryPasswordPage: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') LinkName = 'QueryPasswordPage' TopicPage = topNone PageCategories = [catExample] Description.Strings = ( 'This example demonstrates the TQueryPassword custom component. ' 'The submit button displays the HTTP request fields.') Title = 'InternetExpress QueryPasswordPage Example' Caption = 'QueryPasswordPage' PageLayout = plStandard Left = 226 Top = 299 object QueryForm1: TQueryForm Action = 'DumpRequest' Method = fmGet object QueryFieldGroup4: TQueryFieldGroup object QueryPassword: TQueryPassword DisplayWidth = -1 Caption = 'QueryPassword' end end object QueryButtons5: TQueryButtons end end end object DumpRequest: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '<#DUMPREQUEST>' '</BODY>' '</HTML>') LinkName = 'DumpRequest' TopicPage = topNone PageCategories = [] Description.Strings = ( 'This page is displayed when a request is submitted by one of the' + ' query component' 'examples. ' 'Some interesting HTTP request' 'fields are displayed. Examine the QueryFields to see the name v' + 'alue repair returned in' 'the HTTP request packet. ' '') Title = 'InternetExpress DumpRequest' Caption = 'DumpRequest' PageLayout = plStandard Left = 266 Top = 227 end object CustNamesDS: TClientDataSet Aggregates = <> Params = <> ProviderName = 'CustNames' RemoteServer = DCOMConnection1 Left = 432 Top = 72 end object ComponentsList: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') LinkName = 'Components' TopicPage = topComponents PageCategories = [] Title = 'InternetExpress Components' Caption = 'Components' ComponentsInfo = ComponentsInfoDS PageLayout = plStandard Left = 112 Top = 80 end object CustOrdersQuery: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') LinkName = 'CustOrdersQuery' TopicPage = topNone PageCategories = [] Description.Strings = ( 'This example displays a lists of customer names. The submit bu' + 'tton takes the user to a form view of customer orders.') Title = 'InternetExpress CustOrdersQuery Example' Caption = 'CustOrdersQuery' PageLayout = plStandard Left = 40 Top = 189 object QueryForm4: TQueryForm Action = 'CustOrders' Method = fmPost object QueryFieldGroup5: TQueryFieldGroup object QuerySelectOptions1: TQuerySelectOptions DisplayRows = 20 Caption = 'Customer Name' CaptionPosition = capAbove DataSet = CustNamesDS ValuesField = 'CustNo' ItemsField = 'Company' end end object QueryButtons6: TQueryButtons end end end object AboutXML: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') LinkName = 'About XML' TopicPage = topXML PageCategories = [] Title = 'InternetExpress About XML' Caption = 'About XML' DescriptionFile = 'aboutxml.htm' PageLayout = plDescription Left = 136 Top = 8 end object AboutJavaScript: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') LinkName = 'About JavaScript' TopicPage = topJavaScript PageCategories = [] Title = 'InternetExpress About JavaScript' Caption = 'About JavaScript' DescriptionFile = 'aboutjavascript.htm' PageLayout = plDescription Left = 184 Top = 56 end object ReconcileError: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') LinkName = 'ReconcileError' TopicPage = topNone PageCategories = [catExample] Description.Strings = ( 'This example demonstrates TReconcilePageProducer by forcing a re' + 'concile' 'error. ') Title = 'InternetExpress ReconcileError Example' Caption = 'ReconcileError' PageLayout = plStandard Instructions.Strings = ( 'Choose the Submit button to insert "Argentina" into the countrie' + 's table. This' 'will generate a key violation if the country table already conta' + 'ins "Argentina". ' 'If no error is reported, repeat.') Left = 360 Top = 221 object QueryForm5: TQueryForm Action = 'XMLBrokerAllCountries' Method = fmPost object QueryFieldGroup6: TQueryFieldGroup object QueryTextArea: TQueryTextArea ParamName = 'postdelta' Caption = 'Delta Packet to Insert Argentina' CaptionPosition = capAbove Wrap = wrVirtual DisplayWidth = 50 DisplayRows = 10 Lines.Strings = ( '<DATAPACKET Version="2.0"><METADATA><FIELDS><FIELD attrname="Nam' + 'e" fieldtype="string" WIDTH="24"/><FIELD attrname="Capital" fiel' + 'dtype="string" WIDTH="24"/><FIELD attrname="Continent" fieldtype' + '="string" WIDTH="24"/><FIELD attrname="Area" fieldtype="r8"/><FI' + 'ELD attrname="Population" fieldtype="r8"/></FIELDS><PARAMS LCID=' + '"2057" DATASET_DELTA="1"/></METADATA><ROWDATA><ROW RowState="4" ' + 'Name="Argentina" Capital="Buenos Aires" Continent="South America' + '" Area="2777815" Population="32300003"/></ROWDATA></DATAPACKET>') end object QueryHiddenText: TQueryHiddenText ParamName = 'REDIRECT' Text = 'ReconcileError' end end object QueryButtons7: TQueryButtons object SubmitQueryButton2: TSubmitQueryButton Caption = 'Submit' XMLComponent = QueryForm5 end end end end object ReconcilePage: TReconcilePageProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '</HEAD>' '<BODY>' '<#INCLUDES><#STYLES><#WARNINGS>' '<p>One or more reconcile errors occured while applying a delta p' + 'acket against' 'the database. </p>' '<p>To resolve errors choose a radio button, edit data if necessa' + 'ry, ' 'and then choose Post/Next. Repeat for every error. Reapply onc' + 'e all errors have' 'been processed.</p><FORM name="FORM1">' '<table>' '<tr>' '<td valign=top><H3>Error message:</H3></td>' '<td valign=top><textarea name="ErrMessage" rows=2 cols=58 readon' + 'ly onfocus='#39'blur();'#39'></textarea></td>' '<td valign=top><H3>on</H3></td>' '<td valign=top><input type=text name="ErrAction" size=12 readonl' + 'y onfocus='#39'blur();'#39'/>' '</td></tr>' '</table>' '<P>' '<#RECONCILEGRID>' '<P>' '<FORM>' '<H3> Reconcile Action : </H3>' '<input type=radio name="action" value="Cancel" onclick='#39'if(self.' + 'grid1!=null)grid1.cancel();'#39'/> Cancel' '<input type=radio name="action" value="Correct" onclick='#39'if(self' + '.grid1!=null)grid1.correct();'#39'/> Correct' '<input type=radio name="action" value="Merge" onclick='#39'if(self.g' + 'rid1!=null)grid1.merge();'#39'/> Merge' '<P>' '<input type=button value="<" onclick='#39'if(self.grid1!=null)grid1.' + 'up();'#39' />' '<input type=button value=">" onclick='#39'if(self.grid1!=null)grid1.' + 'down();'#39' />' '<input type=button value="Post/Next" onclick='#39'if(self.grid1!=nul' + 'l)grid1.post();'#39'/>' '<P>' '<input type=button value="Reapply Updates" onclick='#39'if(self.grid' + '1!=null)grid1.Reapply(Submitfrm1, Submitfrm1.postdelta);'#39'/>' '</FORM>' '<#FORMS><#SCRIPT>' '</BODY>' '</HTML>') 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 = 184 Top = 117 end object CustOrdersMasterDetail: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') LinkName = 'CustOrders MasterDetail' TopicPage = topNone PageCategories = [catExample] Description.Strings = ( 'This page demonstrates a master detail form. A form view shows ' + 'customer information' 'and a grid shows customer orders. ShowXML and ShowDelta button' + 's are provided' 'in order to view the XML data packet.') Title = 'InternetExpress CustOrders MasterDetail Example' Caption = 'CustOrders MasterDetail' PageLayout = plStandard Left = 184 Top = 197 object DataForm7: TDataForm object FieldGroup7: TFieldGroup XMLBroker = XMLAllCustOrders object LayoutGroup19: TLayoutGroup DisplayColumns = -1 object Company: TFieldText DisplayWidth = 30 ReadOnly = True Caption = 'Company' FieldName = 'Company' end object CustNo: TFieldText DisplayWidth = 10 ReadOnly = True Caption = 'CustNo' FieldName = 'CustNo' end object LastInvoiceDate: TFieldText DisplayWidth = 18 Caption = 'LastInvoiceDate' FieldName = 'LastInvoiceDate' end object CustNo3: TFieldText DisplayWidth = 10 Caption = 'CustNo' FieldName = 'CustNo' end end object LayoutGroup18: TLayoutGroup DisplayColumns = 2 object LayoutGroup16: TLayoutGroup DisplayColumns = -1 object Addr1: TFieldText DisplayWidth = 30 Caption = 'Addr1' FieldName = 'Addr1' end object Addr2: TFieldText DisplayWidth = 30 Caption = 'Addr2' FieldName = 'Addr2' end object City: TFieldText DisplayWidth = 15 Caption = 'City' FieldName = 'City' end object State: TFieldText DisplayWidth = 20 Caption = 'State' FieldName = 'State' end object Zip: TFieldText DisplayWidth = 10 Caption = 'Zip' FieldName = 'Zip' end object Country: TFieldText DisplayWidth = 20 Caption = 'Country' FieldName = 'Country' end object FieldStatus5: TFieldStatus Caption = '*' end end object LayoutGroup17: TLayoutGroup DisplayColumns = -1 Style = 'vertical-align: top' object Phone: TFieldText DisplayWidth = 15 Caption = 'Phone' FieldName = 'Phone' end object FAX: TFieldText DisplayWidth = 15 Caption = 'FAX' FieldName = 'FAX' end object Contact: TFieldText DisplayWidth = 20 Caption = 'Contact' FieldName = 'Contact' end end end end object LayoutGroup7: TLayoutGroup DisplayColumns = 2 object DataNavigator6: TDataNavigator XMLComponent = FieldGroup7 object FirstButton4: TFirstButton XMLComponent = FieldGroup7 Caption = '|<' end object PriorButton4: TPriorButton XMLComponent = FieldGroup7 Caption = '<' end object NextButton4: TNextButton XMLComponent = FieldGroup7 Caption = '>' end object LastButton4: TLastButton XMLComponent = FieldGroup7 Caption = '>|' end object UndoButton4: TUndoButton XMLComponent = FieldGroup7 Caption = 'Undo' end object PostButton4: TPostButton XMLComponent = FieldGroup7 Caption = 'Post' end end object FieldGroup10: TFieldGroup XMLBroker = XMLAllCustOrders object RowSetStatus3: TRowSetStatus end end end object LayoutGroup15: TLayoutGroup DisplayColumns = 2 object DataGrid3: TDataGrid XMLBroker = XMLAllCustOrders XMLDataSetField = 'CustOrderTable' DisplayRows = 3 object OrderNo2: TTextColumn DisplayWidth = 10 ReadOnly = True Caption = 'OrderNo' FieldName = 'OrderNo' end object AmountPaid2: TTextColumn DisplayWidth = 10 Caption = 'AmountPaid' FieldName = 'AmountPaid' end object SaleDate: TTextColumn DisplayWidth = 18 ReadOnly = True Caption = 'SaleDate' FieldName = 'SaleDate' end object ShipDate: TTextColumn DisplayWidth = 18 ReadOnly = True Caption = 'ShipDate' FieldName = 'ShipDate' end object ItemsTotal2: TTextColumn DisplayWidth = 10 ReadOnly = True Caption = 'ItemsTotal' FieldName = 'ItemsTotal' end object StatusColumn2: TStatusColumn Caption = '*' end end object DataNavigator8: TDataNavigator XMLComponent = DataGrid3 object LayoutGroup12: TLayoutGroup DisplayColumns = 1 object PriorButton5: TPriorButton XMLComponent = DataGrid3 Caption = ' ^ ' end object NextButton5: TNextButton XMLComponent = DataGrid3 Caption = ' v ' end end end end object LayoutGroup11: TLayoutGroup DisplayColumns = 2 object DataNavigator10: TDataNavigator XMLComponent = DataGrid3 object DeleteButton4: TDeleteButton XMLComponent = DataGrid3 Caption = 'Delete Order' end object PostButton6: TPostButton XMLComponent = DataGrid3 Caption = 'Post' end end object FieldGroup9: TFieldGroup XMLBroker = XMLAllCustOrders XMLDataSetField = 'CustOrderTable' object RowSetStatus4: TRowSetStatus end end end object LayoutGroup9: TLayoutGroup DisplayColumns = 2 object DataNavigator7: TDataNavigator XMLComponent = FieldGroup7 object ApplyUpdatesButton3: TApplyUpdatesButton Caption = 'Apply Updates' XMLBroker = XMLAllCustOrders XMLUseParent = True end object ShowXMLButton3: TShowXMLButton Caption = 'Show XML' XMLBroker = XMLAllCustOrders XMLUseParent = True end object ShowDeltaButton3: TShowDeltaButton Caption = 'Show Delta' XMLBroker = XMLAllCustOrders XMLUseParent = True end end end end end object XMLAllCustOrders: TXMLBroker Params = <> ProviderName = 'AllCustOrders' RemoteServer = DCOMConnection1 WebDispatch.PathInfo = 'XMLAllCustOrders' ReconcileProducer = ReconcilePage Left = 432 Top = 128 end object AboutComponents: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') LinkName = 'About Components' TopicPage = topAboutComponents PageCategories = [] Title = 'InternetExpress About Components' Caption = 'About Components' DescriptionFile = 'aboutcomponents.htm' PageLayout = plDescription Left = 32 Top = 104 end object RadioGroupPage: TInetXCenterProducer HTMLDoc.Strings = ( '<HTML>' '<HEAD>' '<#TITLE>' '</HEAD>' '<BODY>' '<#BODYELEMENTS>' '</BODY>' '</HTML>') OnBeforeGetContent = RadioGroupPageBeforeGetContent LinkName = 'RadioGroupPage' TopicPage = topNone PageCategories = [catExample] Description.Strings = ( 'This example demonstrates the TQueryRadioGroup component. ' 'The submit button displays the HTTP request fields.') Title = 'InternetExpress SelectOptionsPage Example' Caption = 'RadioGroupPage' PageLayout = plStandard Left = 440 Top = 301 object QueryFormRadioGroup: TQueryForm Action = 'DumpRequest' Method = fmPost object QueryFieldGroup7: TQueryFieldGroup object QueryRadioGroup: TQueryRadioGroup ParamName = 'Value' ReadOnly = False Caption = 'QueryRadioGroup' CaptionPosition = capAbove DisplayWidth = -1 DisplayColumns = 1 Values.Strings = ( '1' '2' '3' '4') Items.Strings = ( 'One' 'Two' 'Three' 'Four') Text = '1' end end object QueryButtons8: TQueryButtons end end end object ComponentsInfoDS: TReadFileClientDataSet Aggregates = <> FileName = 'componentsinfo.cds' FieldDefs = < item Name = 'ClassName' DataType = ftString Size = 50 end item Name = 'ShortDescription' DataType = ftMemo end item Name = 'Description' DataType = ftMemo end item Name = 'Usage' DataType = ftString Size = 20 end item Name = 'Example' DataType = ftString Size = 30 end item Name = 'Package' DataType = ftString Size = 20 end item Name = 'Type' DataType = ftString Size = 20 end> IndexDefs = < item Name = 'ClassNameIndex' Fields = 'ClassName' end item Name = 'UsageIndex' Fields = 'Usage' end> IndexName = 'ClassNameIndex' Params = <> StoreDefs = True Left = 232 Top = 168 end end