home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / delphi2 / olbrowse.exe / 16BIT / FOLBDEMO.DFM / FOLBDEMO.txt
Text File  |  1996-10-15  |  14KB  |  420 lines
  1. object Form1: TForm1
  2.   Left = 233
  3.   Top = 145
  4.   Width = 435
  5.   Height = 290
  6.   Caption = 'Outline Browser Demo'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   OnCreate = FormCreate
  13.   OnDestroy = FormDestroy
  14.   TextHeight = 16
  15.   object TabbedNotebook1: TTabbedNotebook
  16.     Left = 0
  17.     Top = 25
  18.     Width = 427
  19.     Height = 238
  20.     Align = alClient
  21.     TabFont.Color = clBtnText
  22.     TabFont.Height = -11
  23.     TabFont.Name = 'MS Sans Serif'
  24.     TabFont.Style = []
  25.     TabOrder = 0
  26.     object TTabPage
  27.       Left = 5
  28.       Top = 26
  29.       Caption = 'TOutlineBrowser'
  30.       object Label1: TLabel
  31.         Left = 16
  32.         Top = 72
  33.         Width = 177
  34.         Height = 16
  35.         Caption = 'Customise size and button:'
  36.       end
  37.       object Label2: TLabel
  38.         Left = 16
  39.         Top = 16
  40.         Width = 101
  41.         Height = 16
  42.         Caption = 'Browse a table:'
  43.       end
  44.       object Label4: TLabel
  45.         Left = 16
  46.         Top = 128
  47.         Width = 368
  48.         Height = 48
  49.         Caption = 
  50.           'Type in part of persons surname and press the button to search, ' +
  51.           'then right click on any node to see details. Drag and drop to ch' +
  52.           'ange the structure.'
  53.         WordWrap = True
  54.       end
  55.       object Label3: TLabel
  56.         Left = 200
  57.         Top = 8
  58.         Width = 208
  59.         Height = 64
  60.         Caption = 
  61.           'Note that you can browse tables in most databases that have an e' +
  62.           'ngine, such as Interbase or Oracle'
  63.         WordWrap = True
  64.       end
  65.       object OutlineBrowser1: TOutlineBrowser
  66.         Left = 16
  67.         Top = 32
  68.         Width = 153
  69.         Height = 26
  70.         Hint = 'Current department'
  71.         TabOrder = 0
  72.         LookupSource = DSDepartment
  73.         StdParentChildJoins.LeftList.Strings = (
  74.           'DEPARTMENTID'
  75.           'MANAGERID'
  76.           'DESCRIPTION'
  77.           'OPERATINGCOST'
  78.           'STAFFTURNOVER'
  79.           'STAFFSIZE'
  80.           'DATEESTABLISHED'
  81.           'OWNERDEPT')
  82.         StdParentChildJoins.RightList.Strings = (
  83.           'DEPARTMENTID'
  84.           'MANAGERID'
  85.           'DESCRIPTION'
  86.           'OPERATINGCOST'
  87.           'STAFFTURNOVER'
  88.           'STAFFSIZE'
  89.           'DATEESTABLISHED'
  90.           'OWNERDEPT')
  91.         StdParentChildJoins.LeftSelectedJoins.Strings = (
  92.           'DEPARTMENTID')
  93.         StdParentChildJoins.RightSelectedJoins.Strings = (
  94.           'OWNERDEPT')
  95.         StdParentChildJoins.CanSelect = True
  96.         StdParentChildJoins.DuplicateNames = False
  97.         StdParentChildJoins.LeftText = 'Child Fields'
  98.         StdParentChildJoins.RightText = 'Parent Fields'
  99.         BtnCaption = '...'
  100.         NumGlyphs = 1
  101.         RootCondition = 'OwnerDept = '#39#39
  102.         LookupField = 'DESCRIPTION'
  103.         DisplayField = 'Description'
  104.         CanUpdate = False
  105.         RtClickDetails = False
  106.         SearchEnabled = False
  107.         BtnHint = 'Click here to browse departments'
  108.         DialogCaption = 'Browse departments'
  109.       end
  110.       object OutlineBrowser3: TOutlineBrowser
  111.         Left = 16
  112.         Top = 88
  113.         Width = 357
  114.         Height = 33
  115.         Hint = 'Current Person'
  116.         Font.Color = clBlack
  117.         Font.Height = -21
  118.         Font.Name = 'Times New Roman'
  119.         Font.Style = []
  120.         ParentFont = False
  121.         ParentShowHint = False
  122.         ShowHint = True
  123.         TabOrder = 1
  124.         LookupSource = DSPersonel
  125.         StdParentChildJoins.LeftList.Strings = (
  126.           'EMPNO'
  127.           'LASTNAME'
  128.           'FIRSTNAME'
  129.           'PHONEEXT'
  130.           'HIREDATE'
  131.           'SALARY'
  132.           'BOSS')
  133.         StdParentChildJoins.RightList.Strings = (
  134.           'EMPNO'
  135.           'LASTNAME'
  136.           'FIRSTNAME'
  137.           'PHONEEXT'
  138.           'HIREDATE'
  139.           'SALARY'
  140.           'BOSS')
  141.         StdParentChildJoins.LeftSelectedJoins.Strings = (
  142.           'EMPNO')
  143.         StdParentChildJoins.RightSelectedJoins.Strings = (
  144.           'BOSS')
  145.         StdParentChildJoins.CanSelect = True
  146.         StdParentChildJoins.DuplicateNames = False
  147.         StdParentChildJoins.LeftText = 'Child Fields'
  148.         StdParentChildJoins.RightText = 'Parent Fields'
  149.         BtnGlyph.Data = {
  150.           9A050000424D9A05000000000000360000002800000014000000170000000100
  151.           1800000000006405000000000000000000000000000000000000C0C0C0C0C0C0
  152.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  153.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  154.           C0C0000000000000000000000000000000000000000000000000000000000000
  155.           000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  156.           C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080000000C0C0C0C0
  157.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  158.           000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080000000C0C0C0C0C0C0C0C0
  159.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0
  160.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000000000000000000000C0C0C0
  161.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0
  162.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0
  163.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C0C0C0C0C0C0C0
  164.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0
  165.           C0C0C0C0C0C0C0C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0
  166.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C0C0C0C0C0C0C0C0C0C0
  167.           C0C0C0C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  168.           C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000
  169.           0000000000000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  170.           C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C00000000000000000
  171.           00000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  172.           C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000000000000000000000
  173.           000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  174.           C0C0C0C0000000C0C0C0C0C0C000000000000000000000000000000000000000
  175.           0000000000000000C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0000000
  176.           C0C0C0C0C0C0C0C0C00000000000000000000000000000000000000000000000
  177.           00000000C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0000000C0C0C0C0C0C0C0
  178.           C0C0C0C0C0000000000000000000000000000000000000000000000000000000
  179.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0
  180.           C0000000000000000000000000000000000000000000000000000000C0C0C0C0
  181.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0000000
  182.           0000000000000000000000000000000000000000000000000000000000000000
  183.           00000000000000000000000000000000C0C0C0C0C0C0C0C0C000000000000000
  184.           0000000000000000000000000000000000000000000000000000000000000000
  185.           000000000000000000000000C0C0C0C0C0C0C0C0C0C0C0C00000000000000000
  186.           0000000000000000000000000000000000000000000000000000000000000000
  187.           0000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000000000
  188.           0000000000000000000000000000000000000000000000000000000000000000
  189.           00C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000000000000000000000
  190.           0000000000000000000000000000000000000000000000000000C0C0C0C0C0C0
  191.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  192.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  193.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  194.           C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
  195.         NumGlyphs = 1
  196.         RootCondition = 'boss = '#39#39
  197.         LookupField = 'LASTNAME'
  198.         DisplayField = 'LastName'
  199.         CanUpdate = True
  200.         RtClickDetails = True
  201.         SearchEnabled = True
  202.         BtnHint = 'Click here to browse employee'
  203.         DialogCaption = 'Browse employee'
  204.       end
  205.     end
  206.     object TTabPage
  207.       Left = 5
  208.       Top = 26
  209.       Caption = 'TlookupOutline'
  210.       object Label5: TLabel
  211.         Left = 8
  212.         Top = 8
  213.         Width = 354
  214.         Height = 32
  215.         Caption = 
  216.           'All of the properties of TOutlineBrowser plus the ability to upd' +
  217.           'ate a table similar to TLookupCombo.'
  218.         WordWrap = True
  219.       end
  220.       object Label6: TLabel
  221.         Left = 8
  222.         Top = 184
  223.         Width = 336
  224.         Height = 16
  225.         Caption = 'Note that both components manage mult field keys !'
  226.       end
  227.       object DBGrid1: TDBGrid
  228.         Left = 8
  229.         Top = 80
  230.         Width = 401
  231.         Height = 97
  232.         DataSource = DSDepartment
  233.         TabOrder = 0
  234.         TitleFont.Color = clWindowText
  235.         TitleFont.Height = -13
  236.         TitleFont.Name = 'System'
  237.         TitleFont.Style = []
  238.       end
  239.       object DBNavigator1: TDBNavigator
  240.         Left = 216
  241.         Top = 48
  242.         Width = 191
  243.         Height = 25
  244.         DataSource = DSDepartment
  245.         TabOrder = 1
  246.       end
  247.       object LookupOutline1: TLookupOutline
  248.         Left = 8
  249.         Top = 48
  250.         Width = 177
  251.         Height = 26
  252.         TabOrder = 2
  253.         LookupSource = DSPersonel
  254.         StdParentChildJoins.LeftList.Strings = (
  255.           'EMPNO'
  256.           'LASTNAME'
  257.           'FIRSTNAME'
  258.           'PHONEEXT'
  259.           'HIREDATE'
  260.           'SALARY'
  261.           'BOSS')
  262.         StdParentChildJoins.RightList.Strings = (
  263.           'EMPNO'
  264.           'LASTNAME'
  265.           'FIRSTNAME'
  266.           'PHONEEXT'
  267.           'HIREDATE'
  268.           'SALARY'
  269.           'BOSS')
  270.         StdParentChildJoins.LeftSelectedJoins.Strings = (
  271.           'EMPNO')
  272.         StdParentChildJoins.RightSelectedJoins.Strings = (
  273.           'BOSS')
  274.         StdParentChildJoins.CanSelect = True
  275.         StdParentChildJoins.DuplicateNames = False
  276.         StdParentChildJoins.LeftText = 'Child Fields'
  277.         StdParentChildJoins.RightText = 'Parent Fields'
  278.         BtnCaption = '...'
  279.         NumGlyphs = 1
  280.         RootCondition = 'Boss = '#39#39
  281.         LookupField = 'LASTNAME'
  282.         DisplayField = 'LastName'
  283.         CanUpdate = False
  284.         RtClickDetails = False
  285.         SearchEnabled = False
  286.         BtnHint = 'Click here to browse departments'
  287.         DialogCaption = 'Browse departments'
  288.         DataSource = DSDepartment
  289.         ForeignJoins.LeftList.Strings = (
  290.           'EMPNO')
  291.         ForeignJoins.RightList.Strings = (
  292.           'DEPARTMENTID'
  293.           'MANAGERID'
  294.           'DESCRIPTION'
  295.           'OPERATINGCOST'
  296.           'STAFFTURNOVER'
  297.           'STAFFSIZE'
  298.           'DATEESTABLISHED'
  299.           'OWNERDEPT')
  300.         ForeignJoins.LeftSelectedJoins.Strings = (
  301.           'EMPNO')
  302.         ForeignJoins.RightSelectedJoins.Strings = (
  303.           'MANAGERID')
  304.         ForeignJoins.CanSelect = True
  305.         ForeignJoins.DuplicateNames = True
  306.         ForeignJoins.LeftText = 'Lookup Key:'
  307.         ForeignJoins.RightText = 'Foreign Fields'
  308.       end
  309.     end
  310.   end
  311.   object Panel1: TPanel
  312.     Left = 0
  313.     Top = 0
  314.     Width = 427
  315.     Height = 25
  316.     Align = alTop
  317.     BevelOuter = bvNone
  318.     Caption = 'Introducing a new way to select hierarchical data:'
  319.     Font.Color = clPurple
  320.     Font.Height = -21
  321.     Font.Name = 'Times New Roman'
  322.     Font.Style = []
  323.     ParentFont = False
  324.     TabOrder = 1
  325.   end
  326.   object TableDepartment: TTable
  327.     DatabaseName = 'DBDEMOS'
  328.     TableName = 'DEPT.DB'
  329.     Left = 141
  330.     Top = 67
  331.     object TableDepartmentDepartmentID: TStringField
  332.       FieldName = 'DepartmentID'
  333.       Required = True
  334.       Visible = False
  335.       Size = 10
  336.     end
  337.     object TableDepartmentManagerID: TStringField
  338.       DisplayLabel = 'Manager ID'
  339.       FieldName = 'ManagerID'
  340.       Required = True
  341.       Size = 10
  342.     end
  343.     object TableDepartmentDescription: TStringField
  344.       FieldName = 'Description'
  345.       Required = True
  346.       Size = 50
  347.     end
  348.     object TableDepartmentOperatingCost: TCurrencyField
  349.       DisplayLabel = 'Operating Cost'
  350.       FieldName = 'OperatingCost'
  351.       Currency = True
  352.     end
  353.     object TableDepartmentStaffTurnover: TFloatField
  354.       DisplayLabel = 'Staff Turnover %'
  355.       FieldName = 'StaffTurnover'
  356.     end
  357.     object TableDepartmentStaffSize: TSmallintField
  358.       DisplayLabel = 'Staff Size'
  359.       FieldName = 'StaffSize'
  360.     end
  361.     object TableDepartmentDateEstablished: TDateField
  362.       DisplayLabel = 'Date Established'
  363.       FieldName = 'DateEstablished'
  364.     end
  365.     object TableDepartmentOwnerDept: TStringField
  366.       FieldName = 'OwnerDept'
  367.       Visible = False
  368.       Size = 10
  369.     end
  370.   end
  371.   object DSDepartment: TDataSource
  372.     DataSet = TableDepartment
  373.     Left = 173
  374.     Top = 67
  375.   end
  376.   object DSPersonel: TDataSource
  377.     DataSet = TablePersonel
  378.     Left = 173
  379.     Top = 99
  380.   end
  381.   object TablePersonel: TTable
  382.     DatabaseName = 'DBDEMOS'
  383.     TableName = 'PERSONEL.DB'
  384.     Left = 141
  385.     Top = 99
  386.     object TablePersonelEmpNo: TStringField
  387.       DisplayLabel = 'Employee ID'
  388.       FieldName = 'EmpNo'
  389.       Visible = False
  390.       Size = 10
  391.     end
  392.     object TablePersonelLastName: TStringField
  393.       DisplayLabel = 'Last Name'
  394.       FieldName = 'LastName'
  395.     end
  396.     object TablePersonelFirstName: TStringField
  397.       DisplayLabel = 'First Name'
  398.       FieldName = 'FirstName'
  399.       Size = 15
  400.     end
  401.     object TablePersonelPhoneExt: TStringField
  402.       DisplayLabel = 'Phone Extension'
  403.       FieldName = 'PhoneExt'
  404.       Size = 4
  405.     end
  406.     object TablePersonelHireDate: TDateTimeField
  407.       DisplayLabel = 'Hire Date'
  408.       FieldName = 'HireDate'
  409.     end
  410.     object TablePersonelSalary: TFloatField
  411.       FieldName = 'Salary'
  412.     end
  413.     object TablePersonelBoss: TStringField
  414.       FieldName = 'Boss'
  415.       Visible = False
  416.       Size = 10
  417.     end
  418.   end
  419. end
  420.