Marco Web Center
[an error occurred while processing this directive]

Home: Code Repository: Mastering Delphi 6

Chapter 23 - Project IeMd

Project Structure

IeMd.dpr
program IeMd;

{$APPTYPE CONSOLE}

uses
  WebBroker,
  CGIApp,
  MdModule in 'MdModule.pas' {WebModule1: TWebModule};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TWebModule1, WebModule1);
  Application.Run;
end.
MdModule.pas
unit MdModule;

interface

uses
  Windows, Messages, SysUtils, Classes, HTTPApp, MidItems, Db, DBClient,
  MConnect, CompProd, PagItems, MidProd, XMLBrokr, WebComp, HTTPProd;

type
  TWebModule1 = class(TWebModule)
    XMLBroker1: TXMLBroker;
    InetXPageProducer1: TInetXPageProducer;
    DCOMConnection1: TDCOMConnection;
    DataForm1: TDataForm;
    LayoutGroup1: TLayoutGroup;
    DataGrid1: TDataGrid;
    TextColumn8: TTextColumn;
    TextColumn9: TTextColumn;
    TextColumn10: TTextColumn;
    TextColumn11: TTextColumn;
    TextColumn12: TTextColumn;
    TextColumn13: TTextColumn;
    TextColumn14: TTextColumn;
    DataNavigator2: TDataNavigator;
    FirstButton2: TFirstButton;
    PriorPageButton1: TPriorPageButton;
    PriorButton2: TPriorButton;
    NextButton2: TNextButton;
    NextPageButton1: TNextPageButton;
    LastButton2: TLastButton;
    FieldGroup1: TFieldGroup;
    FieldText11: TFieldText;
    FieldText12: TFieldText;
    FieldText13: TFieldText;
    FieldText14: TFieldText;
    FieldText15: TFieldText;
    FieldStatus1: TFieldStatus;
    FieldText16: TFieldText;
    FieldText17: TFieldText;
    FieldText18: TFieldText;
    FieldText19: TFieldText;
    FieldText20: TFieldText;
    DataNavigator1: TDataNavigator;
    FirstButton1: TFirstButton;
    PriorButton1: TPriorButton;
    NextButton1: TNextButton;
    LastButton1: TLastButton;
    UndoButton1: TUndoButton;
    ApplyUpdatesButton1: TApplyUpdatesButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WebModule1: TWebModule1;

implementation

{$R *.DFM}

end.
MdModule.dfm
object WebModule1: TWebModule1
  OldCreateOrder = False
  Actions = <
    item
      Default = True
      Name = 'WebActionItem1'
      PathInfo = '/InetXPageProducer1'
      Producer = InetXPageProducer1
    end>
  Left = 338
  Top = 194
  Height = 250
  Width = 210
  object XMLBroker1: TXMLBroker
    Params = <>
    ProviderName = 'ProviderCustomer'
    RemoteServer = DCOMConnection1
    WebDispatch.PathInfo = 'XMLBroker1'
    Left = 48
    Top = 64
  end
  object InetXPageProducer1: TInetXPageProducer
    IncludePathURL = '/jssource/'
    HTMLDoc.Strings = (
      '<HTML>'
      '<HEAD>'
      '</HEAD>'
      '<BODY>'
      '<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
      '</BODY>'
      '</HTML>')
    Left = 56
    Top = 128
    object DataForm1: TDataForm
      object LayoutGroup1: TLayoutGroup
        DisplayColumns = 2
        object DataNavigator1: TDataNavigator
          XMLComponent = FieldGroup1
          object FirstButton1: TFirstButton
            XMLComponent = FieldGroup1
            XMLUseParent = False
            Caption = '|<'
          end
          object PriorButton1: TPriorButton
            XMLComponent = FieldGroup1
            XMLUseParent = False
            Caption = '<'
          end
          object NextButton1: TNextButton
            XMLComponent = FieldGroup1
            XMLUseParent = False
            Caption = '>'
          end
          object LastButton1: TLastButton
            XMLComponent = FieldGroup1
            XMLUseParent = False
            Caption = '>|'
          end
          object UndoButton1: TUndoButton
            XMLComponent = FieldGroup1
            XMLUseParent = False
            Caption = 'Undo'
          end
          object ApplyUpdatesButton1: TApplyUpdatesButton
            Caption = 'Apply Updates'
            XMLBroker = XMLBroker1
            XMLUseParent = True
          end
        end
        object DataNavigator2: TDataNavigator
          XMLComponent = DataGrid1
          object FirstButton2: TFirstButton
            XMLComponent = DataGrid1
            XMLUseParent = False
            Caption = '|<'
          end
          object PriorPageButton1: TPriorPageButton
            XMLComponent = DataGrid1
            XMLUseParent = False
            Caption = '<<'
          end
          object PriorButton2: TPriorButton
            XMLComponent = DataGrid1
            XMLUseParent = False
            Caption = '<'
          end
          object NextButton2: TNextButton
            XMLComponent = DataGrid1
            XMLUseParent = False
            Caption = '>'
          end
          object NextPageButton1: TNextPageButton
            XMLComponent = DataGrid1
            XMLUseParent = False
            Caption = '>>'
          end
          object LastButton2: TLastButton
            XMLComponent = DataGrid1
            XMLUseParent = False
            Caption = '>|'
          end
        end
        object FieldGroup1: TFieldGroup
          XMLBroker = XMLBroker1
          object FieldText11: TFieldText
            DisplayWidth = 10
            FieldName = 'Zip'
          end
          object FieldText12: TFieldText
            DisplayWidth = 20
            FieldName = 'Country'
          end
          object FieldText13: TFieldText
            DisplayWidth = 15
            FieldName = 'Phone'
          end
          object FieldText14: TFieldText
            DisplayWidth = 10
            FieldName = 'TaxRate'
          end
          object FieldText15: TFieldText
            DisplayWidth = 20
            FieldName = 'Contact'
          end
          object FieldStatus1: TFieldStatus
            Caption = 'Updated'
          end
          object FieldText16: TFieldText
            DisplayWidth = 10
            FieldName = 'CustNo'
          end
          object FieldText17: TFieldText
            DisplayWidth = 30
            FieldName = 'Company'
          end
          object FieldText18: TFieldText
            DisplayWidth = 30
            FieldName = 'Addr1'
          end
          object FieldText19: TFieldText
            DisplayWidth = 20
            FieldName = 'State'
          end
          object FieldText20: TFieldText
            DisplayWidth = 15
            FieldName = 'City'
          end
        end
        object DataGrid1: TDataGrid
          XMLBroker = XMLBroker1
          XMLDataSetField = 'TableOrders'
          DisplayRows = 9
          object TextColumn8: TTextColumn
            DisplayWidth = 10
            FieldName = 'OrderNo'
          end
          object TextColumn9: TTextColumn
            DisplayWidth = 18
            FieldName = 'SaleDate'
          end
          object TextColumn10: TTextColumn
            DisplayWidth = 10
            FieldName = 'EmpNo'
          end
          object TextColumn11: TTextColumn
            DisplayWidth = 15
            FieldName = 'PO'
          end
          object TextColumn12: TTextColumn
            DisplayWidth = 6
            FieldName = 'Terms'
          end
          object TextColumn13: TTextColumn
            DisplayWidth = 10
            FieldName = 'ItemsTotal'
          end
          object TextColumn14: TTextColumn
            DisplayWidth = 10
            FieldName = 'AmountPaid'
          end
        end
      end
    end
  end
  object DCOMConnection1: TDCOMConnection
    ServerGUID = '{E31849A9-4A82-11D3-B9F1-00000100A27B}'
    ServerName = 'AppSPlus.AppServerPlus'
    Left = 48
    Top = 16
  end
end

 
© Copyright Marco Cantù, 1995-2020, All rights reserved