home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue70 / Construc / webmod.xfm < prev   
Encoding:
Text File  |  2001-04-28  |  2.8 KB  |  120 lines
  1. object WebModule1: TWebModule1
  2.   OldCreateOrder = False
  3.   Actions = <
  4.     item
  5.       Name = 'WebActionItem1'
  6.       PathInfo = '/hello'
  7.       Producer = PageProducer1
  8.       OnAction = WebModule1Actions0Action
  9.     end
  10.     item
  11.       Name = 'WebActionItem2'
  12.       PathInfo = '/table'
  13.       OnAction = WebModule1Actions1Action
  14.     end
  15.     item
  16.       Default = True
  17.       Name = 'WebActionItem3'
  18.       OnAction = WebModule1Actions2Action
  19.     end>
  20.   Left = 295
  21.   Top = 180
  22.   Height = 196
  23.   Width = 412
  24.   object PageProducer1: TPageProducer
  25.     HTMLDoc.Strings = (
  26.       '<H1>Made in Kylix!</H1>'
  27.       '<HR>'
  28.       'Today is <#DATE>'
  29.       '<P>'
  30.       'Welcome visitor <#counter> (<#login>)')
  31.     OnHTMLTag = PageProducer1HTMLTag
  32.     Left = 40
  33.     Top = 16
  34.   end
  35.   object SQLConnection1: TSQLConnection
  36.     ConnectionName = 'IBLocal'
  37.     DriverName = 'INTERBASE'
  38.     GetDriverFunc = 'getSQLDriverINTERBASE'
  39.     LibraryName = 'libsqlib.so.1'
  40.     LoginPrompt = False
  41.     Params.Strings = (
  42.       'DriverName=INTERBASE'
  43.       'BlobSize=-1'
  44.       'CommitRetain=False'
  45.       'Database=/usr/interbase/examples/employee.gdb'
  46.       'ErrorResourceFile=./DbxIbErr.msg'
  47.       'Interbase TransIsolation=ReadCommited'
  48.       'LocaleCode=0x0000'
  49.       'Password=masterkey'
  50.       'RoleName=RoleName'
  51.       'ServerCharSet='
  52.       'SQLDialect=1'
  53.       'User_Name=sysdba'
  54.       'WaitOnLocks=True')
  55.     VendorLib = 'libgds.so.0'
  56.     Left = 40
  57.     Top = 88
  58.   end
  59.   object SQLQuery1: TSQLQuery
  60.     SQLConnection = SQLConnection1
  61.     Params = <>
  62.     SQL.Strings = (
  63.       'select * from employee')
  64.     Left = 152
  65.     Top = 80
  66.   end
  67.   object DataSetTableProducer1: TDataSetTableProducer
  68.     Columns = <
  69.       item
  70.         FieldName = 'EMP_NO'
  71.         Title.BgColor = 'Red'
  72.       end
  73.       item
  74.         FieldName = 'FIRST_NAME'
  75.         Title.BgColor = 'Yellow'
  76.       end
  77.       item
  78.         FieldName = 'LAST_NAME'
  79.         Title.BgColor = 'Yellow'
  80.       end
  81.       item
  82.         FieldName = 'PHONE_EXT'
  83.         Title.BgColor = 'Yellow'
  84.       end
  85.       item
  86.         FieldName = 'HIRE_DATE'
  87.         Title.BgColor = 'Yellow'
  88.       end
  89.       item
  90.         FieldName = 'DEPT_NO'
  91.         Title.BgColor = 'Yellow'
  92.       end
  93.       item
  94.         FieldName = 'JOB_CODE'
  95.         Title.BgColor = 'Yellow'
  96.       end
  97.       item
  98.         FieldName = 'JOB_GRADE'
  99.         Title.BgColor = 'Yellow'
  100.       end
  101.       item
  102.         FieldName = 'JOB_COUNTRY'
  103.         Title.BgColor = 'Yellow'
  104.       end
  105.       item
  106.         FieldName = 'SALARY'
  107.         Title.BgColor = 'Yellow'
  108.       end
  109.       item
  110.         FieldName = 'FULL_NAME'
  111.         Title.BgColor = 'Yellow'
  112.       end>
  113.     DataSet = SQLQuery1
  114.     TableAttributes.BgColor = 'White'
  115.     TableAttributes.Border = 1
  116.     Left = 176
  117.     Top = 16
  118.   end
  119. end
  120.