home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Webserv / main.dfm / main.txt
Text File  |  1999-08-11  |  6KB  |  247 lines
  1. object CustomerInfoModule: TCustomerInfoModule
  2.   OldCreateOrder = True
  3.   OnCreate = DataModule1Create
  4.   Actions = <
  5.     item
  6.       Name = 'CustomerList'
  7.       PathInfo = '/customerlist'
  8.       OnAction = WebModule1CustomerListAction
  9.     end
  10.     item
  11.       Name = 'QueryAction'
  12.       PathInfo = '/runquery'
  13.       OnAction = WebModule1QueryActionAction
  14.     end
  15.     item
  16.       Name = 'Redirect'
  17.       PathInfo = '/redirect'
  18.       OnAction = CustomerInfoModuleRedirectAction
  19.     end
  20.     item
  21.       Name = 'GetImage'
  22.       PathInfo = '/getimage'
  23.       OnAction = CustomerInfoModuleGetImageAction
  24.     end
  25.     item
  26.       Name = 'BioLife'
  27.       PathInfo = '/biolife'
  28.       OnAction = CustomerInfoModuleBioLifeAction
  29.     end
  30.     item
  31.       Default = True
  32.       Name = 'root'
  33.       OnAction = CustomerInfoModulerootAction
  34.     end>
  35.   Left = 249
  36.   Top = 148
  37.   Height = 479
  38.   Width = 741
  39.   object CustomerOrders: TQueryTableProducer
  40.     Caption = 'Customer Orders'
  41.     Columns = <
  42.       item
  43.         FieldName = 'OrderNo'
  44.       end
  45.       item
  46.         FieldName = 'SaleDate'
  47.         Title.Align = haCenter
  48.       end
  49.       item
  50.         FieldName = 'ShipDate'
  51.       end>
  52.     Query = Query1
  53.     TableAttributes.Border = 1
  54.     TableAttributes.CellSpacing = 1
  55.     TableAttributes.CellPadding = 1
  56.     TableAttributes.Width = 50
  57.     Left = 170
  58.     Top = 64
  59.   end
  60.   object Query1: TQuery
  61.     DatabaseName = 'DBDEMOS'
  62.     SessionName = 'Default'
  63.     DataSource = CustSource
  64.     SQL.Strings = (
  65.       'SELECT *'
  66.       'FROM ORDERS'
  67.       'WHERE'
  68.       '(CustNo = :CustNo)')
  69.     Left = 24
  70.     Top = 8
  71.     ParamData = <
  72.       item
  73.         DataType = ftFloat
  74.         Name = 'CustNo'
  75.         ParamType = ptUnknown
  76.       end>
  77.   end
  78.   object CustomerList: TPageProducer
  79.     HTMLDoc.Strings = (
  80.       '<HTML>'
  81.       '<!--------------------------------------------------->'
  82.       '<!-- Copyright Inprise Corporation 1999 -->'
  83.       '<!--------------------------------------------------->'
  84.       '<HEAD>'
  85.       '<TITLE>Sample Delphi Web server application</TITLE>'
  86.       '</HEAD>'
  87.       '<BODY>'
  88.       '<H2>Customer Order Information</H2>'
  89.       '<HR>'
  90.       'Click a customer name to view their orders.<P>'
  91.       '<#CUSTLIST><P>'
  92.       '</BODY>'
  93.       '</HTML>'
  94.       ' ')
  95.     OnHTMLTag = CustomerListHTMLTag
  96.     Left = 118
  97.     Top = 9
  98.   end
  99.   object Customer: TTable
  100.     DatabaseName = 'DBDEMOS'
  101.     SessionName = 'Default'
  102.     IndexFieldNames = 'Company'
  103.     TableName = 'CUSTOMER.DB'
  104.     Left = 26
  105.     Top = 64
  106.     object CustomerCustNo: TFloatField
  107.       FieldName = 'CustNo'
  108.     end
  109.     object CustomerCompany: TStringField
  110.       FieldName = 'Company'
  111.       Size = 30
  112.     end
  113.   end
  114.   object CustSource: TDataSource
  115.     DataSet = Customer
  116.     Left = 90
  117.     Top = 65
  118.   end
  119.   object BioLife: TTable
  120.     DatabaseName = 'DBDEMOS'
  121.     TableName = 'biolife.db'
  122.     Left = 25
  123.     Top = 126
  124.     object BioLifeSpeciesNo: TFloatField
  125.       FieldName = 'Species No'
  126.     end
  127.     object BioLifeCategory: TStringField
  128.       FieldName = 'Category'
  129.       Size = 15
  130.     end
  131.     object BioLifeCommon_Name: TStringField
  132.       FieldName = 'Common_Name'
  133.       Size = 30
  134.     end
  135.     object BioLifeSpeciesName: TStringField
  136.       FieldName = 'Species Name'
  137.       Size = 40
  138.     end
  139.     object BioLifeLengthcm: TFloatField
  140.       FieldName = 'Length (cm)'
  141.     end
  142.     object BioLifeLength_In: TFloatField
  143.       FieldName = 'Length_In'
  144.     end
  145.     object BioLifeNotes: TMemoField
  146.       FieldName = 'Notes'
  147.       OnGetText = BioLifeNotesGetText
  148.       BlobType = ftMemo
  149.       Size = 50
  150.     end
  151.     object BioLifeGraphic: TGraphicField
  152.       FieldName = 'Graphic'
  153.       OnGetText = BioLifeGraphicGetText
  154.       BlobType = ftGraphic
  155.     end
  156.   end
  157.   object BioLifeProducer: TDataSetPageProducer
  158.     HTMLDoc.Strings = (
  159.       '<HTML>'
  160.       '<HEAD>'
  161.       '   <TITLE>Biolife Data</TITLE>'
  162.       '</HEAD>'
  163.       '<BODY>'
  164.       '<TABLE BORDER=0 >'
  165.       '<TR>'
  166.       '<TD><B>Category:</B></TD>'
  167.       ''
  168.       '<TD><#Category></TD>'
  169.       '</TR>'
  170.       ''
  171.       '<TR>'
  172.       '<TD><B>Common Name:</B></TD>'
  173.       ''
  174.       '<TD><#Common_Name></TD>'
  175.       '</TR>'
  176.       ''
  177.       '<TR>'
  178.       '<TD VALIGN=TOP><B>Notes:</B></TD>'
  179.       ''
  180.       '<TD><#Notes></TD>'
  181.       '</TR>'
  182.       ''
  183.       '<TR>'
  184.       '<TD VALIGN=TOP><B>Picture:</B></TD>'
  185.       ''
  186.       '<TD><#Graphic></TD>'
  187.       '</TR>'
  188.       '</TABLE>'
  189.       ''
  190.       '</BODY>'
  191.       '</HTML>')
  192.     DataSet = BioLife
  193.     Left = 110
  194.     Top = 126
  195.   end
  196.   object Root: TPageProducer
  197.     HTMLDoc.Strings = (
  198.       '<HTML>'
  199.       '<TITLE>ISAPI/NSAPI/CGI Example</TITLE>'
  200.       '<BODY>'
  201.       '<H3>ISAPI/NSAPI/CGI Example server</H3>'
  202.       
  203.         'NOTE:  The links on this page assume that you have placed IServe' +
  204.         'r/IServCGI in a scripts'
  205.       'directory off of your WWW servers root directory.'
  206.       '<P>'
  207.       '<B>Web Examples</B>'
  208.       '<P>'
  209.       '<B>TPageProducer using a Custom Tag</B><BR>'
  210.       'For an example of using a TPageProducer with a Custom Tag click'
  211.       
  212.         '<A HREF="/scripts/<#MODULENAME>/customerlist">here</A>.  This ex' +
  213.         'ample returns'
  214.       
  215.         'list of all customers from the Customer.DB table.  You can click' +
  216.         ' the customer'#39's'
  217.       'name to view a listing of their orders.'
  218.       '<P>'
  219.       '<B>TDatasetPageProducer</B><BR>'
  220.       
  221.         'For an example of using the TDatasetPageProducer and of returnin' +
  222.         'g a graphic'
  223.       
  224.         'from a table click <A HREF="/scripts/<#MODULENAME>/biolife">here' +
  225.         '</A>.  This example'
  226.       
  227.         'makes use of the JPeg unit to display a bitmap stored in the gra' +
  228.         'phic field of the'
  229.       'Biolife.DB table.'
  230.       '<P>'
  231.       '<B>Server Redirect</B><BR>'
  232.       
  233.         'Click <A HREF="/scripts/<#MODULENAME>/redirect">here</A> for a d' +
  234.         'emonstration of'
  235.       'how to redirect a use to an other web site.<BR>'
  236.       '</BODY>'
  237.       '</HTML>'
  238.       ''
  239.       ''
  240.       ' '
  241.       ' ')
  242.     OnHTMLTag = RootHTMLTag
  243.     Left = 26
  244.     Top = 176
  245.   end
  246. end
  247.