home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / fbuilder / delphi / demos / mainform.dfm / mainform.txt
Encoding:
Text File  |  1996-09-15  |  40.8 KB  |  1,285 lines
  1. object MainDemoFm: TMainDemoFm
  2.   Left = 18
  3.   Top = 36
  4.   BorderStyle = bsDialog
  5.   Caption = 'FormulaBuilder 1.0  Main Demo'
  6.   ClientHeight = 508
  7.   ClientWidth = 763
  8.   Font.Color = clWindowText
  9.   Font.Height = -16
  10.   Font.Name = 'System'
  11.   Font.Pitch = fpVariable
  12.   Font.Style = []
  13.   PixelsPerInch = 120
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   TextHeight = 20
  17.   object Notebook: TTabbedNotebook
  18.     Left = 0
  19.     Top = 51
  20.     Width = 763
  21.     Height = 457
  22.     Align = alClient
  23.     TabsPerRow = 5
  24.     TabFont.Color = clBtnText
  25.     TabFont.Height = -12
  26.     TabFont.Name = 'MS Sans Serif'
  27.     TabFont.Style = []
  28.     TabOrder = 0
  29.     object TTabPage
  30.       Left = 5
  31.       Top = 26
  32.       Caption = 'Basic Functions'
  33.       object ResultsPanel: TPanel
  34.         Left = 0
  35.         Top = 337
  36.         Width = 753
  37.         Height = 89
  38.         Align = alBottom
  39.         Alignment = taLeftJustify
  40.         BevelInner = bvRaised
  41.         BevelOuter = bvNone
  42.         BorderStyle = bsSingle
  43.         TabOrder = 0
  44.         object GroupBox1: TGroupBox
  45.           Left = 1
  46.           Top = 1
  47.           Width = 749
  48.           Height = 85
  49.           Align = alClient
  50.           Caption = 'Result'
  51.           TabOrder = 0
  52.           object ResultMemo: TMemo
  53.             Left = 2
  54.             Top = 22
  55.             Width = 745
  56.             Height = 61
  57.             Align = alClient
  58.             Lines.Strings = (
  59.               '')
  60.             TabOrder = 0
  61.           end
  62.         end
  63.       end
  64.       object Panel1: TPanel
  65.         Left = 0
  66.         Top = 0
  67.         Width = 753
  68.         Height = 337
  69.         Align = alClient
  70.         Caption = 'Panel1'
  71.         TabOrder = 1
  72.         object SpeedButton2: TSpeedButton
  73.           Left = 698
  74.           Top = 210
  75.           Width = 31
  76.           Height = 31
  77.           Glyph.Data = {
  78.             78010000424D7801000000000000760000002800000020000000100000000100
  79.             04000000000000000000120B0000120B00000000000000000000000000000000
  80.             800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  81.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  82.             555555555555555555555555555555555555555555FF55555555555559055555
  83.             55555555577FF5555555555599905555555555557777F5555555555599905555
  84.             555555557777FF5555555559999905555555555777777F555555559999990555
  85.             5555557777777FF5555557990599905555555777757777F55555790555599055
  86.             55557775555777FF5555555555599905555555555557777F5555555555559905
  87.             555555555555777FF5555555555559905555555555555777FF55555555555579
  88.             05555555555555777FF5555555555557905555555555555777FF555555555555
  89.             59905555555555555777555555555555555555555555555555550000}
  90.           NumGlyphs = 2
  91.         end
  92.         object ExpressionListbox: TListBox
  93.           Left = 1
  94.           Top = 61
  95.           Width = 751
  96.           Height = 275
  97.           Align = alClient
  98.           Font.Color = clWindowText
  99.           Font.Height = -17
  100.           Font.Name = 'MS Sans Serif'
  101.           Font.Pitch = fpVariable
  102.           Font.Style = []
  103.           ItemHeight = 20
  104.           Items.Strings = (
  105.             '; FORMULABUILDER Test Expression Set'
  106.             '; Lines starting with a semicolon are ignored;'
  107.             ';'
  108.             ';'
  109.             '" Tan(90)/Cos(90) = " + Str( TAN(90) / COS(90) )'
  110.             #39'A'#39' > '#39'B'#39
  111.             
  112.               #39'Current Balance '#39'+padright( '#39'$'#39'+Str(weekday(today()) * 10)+'#39'.50' +
  113.               #39', 10,'#39'*'#39')'
  114.             
  115.               #39'Days this month '#39'+str(choose(month(today()),31,28,31,30,31,30,3' +
  116.               '1,31,30,31,30,31) )'
  117.             #39'The fractional value of Cos(10) = '#39'+Str(Frac(Cos(10)))'
  118.             #39'The square root of 89 is '#39'+str( sqrt(89) )'
  119.             #39'This tests the error-trapping ability of FB '#39'+Str(1/0)'
  120.             
  121.               #39'Today is '#39'+Choose(weekday(Today()),"Sun","Mon","Tue","Wed","Thu' +
  122.               '","Fri","Sat")'
  123.             '1 and 13'
  124.             '10^2'
  125.             '13 mod 3'
  126.             '7 or 8'
  127.             '17 div 2'
  128.             'ABS( Cos(90) )'
  129.             'ABS(-10)'
  130.             'ACOS(-0.5)'
  131.             'ACOSH(6)'
  132.             'ACOT(.70)'
  133.             'ACOTH(4)'
  134.             'ACSC(1.0)'
  135.             'CSC(0.75)'
  136.             'ACSCH(2)'
  137.             'ASC('#39'z'#39')'
  138.             'ASEC(-1)'
  139.             'ASECH(-2)'
  140.             'ASIN(1)'
  141.             'ASINH(1.5)'
  142.             'ATAN(1.75)'
  143.             'ATANH(0.5)'
  144.             'ATAN2(-1,-1)'
  145.             'AVG(1,2,3,4,5,6,7, MAX(1,2,3,4,5) )'
  146.             'CEILING(10.22)'
  147.             'Char(32) <= '#39'$'#39
  148.             'char(74)'
  149.             'CLEAN(char(90)+char(194)+char(178)+'#39' clean string '#39'+char(180))'
  150.             'CODE('#39'm'#39')'
  151.             'COS( PI )'
  152.             'COSH(1.5)'
  153.             'COT(pi)'
  154.             'COTH(1)'
  155.             'CSCH(1)'
  156.             'DATE( month(today()), day(Today()), year(today()) )'
  157.             'DATETOSTR( Today() + 7)'
  158.             'DEGREES(1.75)'
  159.             'EXP( ln(e) )'
  160.             'EXP(-1.25)'
  161.             'EXTRACT(4,'#39'returned should be returned'#39')'
  162.             'FACT(10)'
  163.             'FIND('#39'.'#39',str(cos(45)))'
  164.             'FIRST(8,'#39'The rain in Spain'#39')'
  165.             'HOUR( TimeNow() )'
  166.             
  167.               'IIF(dayname(today())='#39'Monday'#39','#39'Whered the weekend go'#39',Str(6-Week' +
  168.               'day(today()))+'#39' days till friday !'#39')'
  169.             'INT(10.9)'
  170.             'ISEVEN(57)'
  171.             'ISODD(57)'
  172.             'LENGTH('#39'The length of this string is 31'#39')'
  173.             'LOG(100)'
  174.             'LOG(100,10)'
  175.             'LOG(8,2)'
  176.             'LOWER('#39'JUST SO YOU WONT SHOUT AT ME'#39')'
  177.             'LTRIM('#39'******$99.00'#39','#39'*'#39')'
  178.             'MAX( Cos(PI) , SIN(PI) , ATAN(PI) , CSC(PI) , COT(PI) )'
  179.             'MID("Test is what this should return",4)'
  180.             'MID("This should return Test",20,4)'
  181.             'MINUTE( TimeNow() )'
  182.             'NOW()'
  183.             'PADCENTER('#39'Centered String'#39',45,'#39'*'#39')'
  184.             'PRODUCT(1,80,6,5,4,3,2,2)'
  185.             'PROPER('#39'SAMuEL wooDSON'#39')'
  186.             'RADIANS(90)'
  187.             'REPLACE('#39'Please send the IRS your taxes'#39','#39'the IRS'#39','#39'me'#39')'
  188.             'REPLICATE(char(196),30)'
  189.             'RTRIM('#39'I hate trailing spaces         '#39','#39' '#39')'
  190.             'SECH(0)'
  191.             'SGN(-9)'
  192.             'SIN( radians(90) )'
  193.             'SINH(1)'
  194.             'SOUNDALIKE('#39'dead'#39','#39'head'#39')'
  195.             'SOUNDEX('#39'haywood'#39')'
  196.             'SOUNDEX('#39'Wayward'#39')'
  197.             'SQR(10)'
  198.             'SQRT(144)'
  199.             'STR(1024.678)'
  200.             'INSERT('#39' NOT '#39','#39'The moon is made of green cheese'#39',12)'
  201.             
  202.               'STRMAX('#39'Daniel'#39','#39'Mary'#39','#39'Ian'#39','#39'Alicia'#39','#39'Paul'#39','#39'Barbara'#39','#39'Lushena'#39 +
  203.               ')'
  204.             'STRMIN('#39'well'#39','#39'trained'#39','#39'horsemen'#39','#39'ride'#39','#39'swiftly'#39')'
  205.             'SUM(1,10,19,25,36,18)'
  206.             'TAN(PI)'
  207.             'TANH(1)'
  208.             'TIME(10,10,10)'
  209.             'TODAY() + 10'
  210.             'TODAY() > {10/10/95}'
  211.             'TRIM('#39'  both leading and trailing strings trimmed  '#39')'
  212.             'TRUE & FALSE'
  213.             'TRUE | FALSE'
  214.             'UPPER('#39'just so you dont feel so down..'#39')'
  215.             'VAL("100.678")'
  216.             'WORDCOUNT('#39'This function, if successful, should return 7'#39','#39' ,'#39')'
  217.             'DATEDIFF(today(), {10/10/2001})'
  218.             'DATEVALUE()'
  219.             'DAY( Today() )'
  220.             'DAYNAME( today() )'
  221.             'DB(10000,1200,8,5)'
  222.             'DEGREES( 10.0245  )'
  223.             'FLOOR(25.43)'
  224.             'INT(499.99)'
  225.             'LN( e )'
  226.             'MIN(10, 6, month(today), cos(pi) )'
  227.             'MONTH( Today() )'
  228.             'MONTHNAME( Today() + 45 )'
  229.             'PADLEFT("I hate the right",40,"*")'
  230.             '"Check Amount "+PADRIGHT("$"+Str(10000,2),10,"*")'
  231.             'RAND()'
  232.             'RAND(5)'
  233.             'RAND(1,10)'
  234.             'LAST(6,"Reading is fundamental")'
  235.             'ROUND(134.578)'
  236.             'SEC(1.23)'
  237.             'SECOND( timenow() )'
  238.             'SGN( cos(pi) )'
  239.             'TERM(300,.06,5000)'
  240.             'TIME(10,10,35)'
  241.             'TIMENOW()'
  242.             'TIMETOSTR( Today() + 365 )'
  243.             'TIMEVALUE( "10/10/96" )'
  244.             'TODAY()'
  245.             'VAL("365" + ".456")'
  246.             'WEEKDAY(Today() + 5)'
  247.             'YEAR( Today() )'
  248.             '; Thanks to JW Rider for the financial routines'
  249.             '; FORMULABUILDER Financial Functions are, for the most part,'
  250.             '; compatible with those of Quattro Pro 3.0'
  251.             '; The examples are derived from the Quattro Pro 3.0 @Functions'
  252.             '; and Macros manual'
  253.             ';'
  254.             '; page 29 (CTERM)'
  255.             ';'
  256.             '  str(cterm(0.07,5000,3000) , 2)'
  257.             '  str(nper(0.07,0,-3000,5000,0), 2) + '#39'(nper)'#39
  258.             '  str(cterm(0.1,5000,3000), 6)'
  259.             '  str(cterm(0.12,5000,3000), 6)'
  260.             '  str(cterm(0.12,10000,7000), 6)'
  261.             ';'
  262.             '; pages 35-36 (DDB):'
  263.             ';'
  264.             '  ddb(4000,350,8,2)'
  265.             '  ddb(15000,3000,10,1)'
  266.             '  ddb(15000,3000,10,2)'
  267.             '  ddb(15000,3000,10,3)'
  268.             '  ddb(15000,3000,10,4)'
  269.             '  ddb(15000,3000,10,5)'
  270.             ';'
  271.             '; '#39'page 48 (FV):'
  272.             ';'
  273.             '  str(fv(500,0.15,6),2)'
  274.             '  str(fval(0.15,6,-500,0,0),2)'
  275.             '  str(fv(200,0.12,5),2)'
  276.             '  str(fv(500,0.9,4),2)'
  277.             '  str(fv(800,0.9,3),2)'
  278.             '  str(fv(800,0.9,6),2)'
  279.             ';'
  280.             '; '#39'page 49 (FVAL):'#39
  281.             '  str(fval(0.15,6,-500,0,1),2)'
  282.             '  str(fval(0.15,6,-500,-340,1),2)'
  283.             ';'
  284.             ';  page 57 (IPAYMT):'
  285.             ';'
  286.             '   str( ipaymt(0.1/12,2*12,30*12,100000,0,0),2 )'
  287.             ';'
  288.             '; pages 57-58 (IRATE):'
  289.             ';'
  290.             '  str( irate(5*12,-500,15000,0,0),5)'
  291.             '  str( irate(5,-2000,-2.38,15000,0) , 4)'
  292.             ';'
  293.             ';  pages 60-61 (IRR):'
  294.             ';'
  295.             '  str( irr(0,-10,150,-145)*100 , 2) +'#39'%'#39
  296.             '  str( irr(10,-10,150,-145)*100, 0) +'#39'%'#39
  297.             '  str( irr(0,-10,150.1,-145)*100 , 2) +'#39'%'#39
  298.             '  str( irr(10,-10,150.1,-145)*100, 0 ) + '#39'%'#39
  299.             '  str( irr(0,-3000,700,600,750,900,1000,1400)*100 , 2) +'#39'%'#39
  300.             
  301.               '  str( irr(0,-50000,-8000,2000,4000,6000,5000,4500)*100 , 2) +'#39'%' +
  302.               #39
  303.             '  str( irr(0,-10000,1000,1000,1200,2000,3000,4000)*100 , 2) +'#39'%'#39
  304.             ';'
  305.             '; page 73 (NPER):'
  306.             ';'
  307.             '  str( nper(0.115,-2000,-633,50000,0),2 )'
  308.             ';'
  309.             '; page 75 (NPV):'
  310.             ';'
  311.             '  str( npv(0.1,-5000,2000,2000,2000,2000, 0)'
  312.             '  str( -5000 + npv(0.1,2000,2000,2000,2000,0), 2 )'
  313.             '  str( npv(0.0125, 8000,9000,8500,9500,10000,11000,10000) ,2 )'
  314.             '  npv(0.15/12, 200,350,-300,600,700,1000,1200)'
  315.             '  npv(0.15/12,3500,4000,3000,5000,4000,6500,7000)'
  316.             ';'
  317.             '; page 77 (PAYMT):'
  318.             ';'
  319.             '  str(paymt(0.175/12,12*30,175000,0,0),2)'
  320.             '  str(paymt(0.175/12,12*30,175000,0,1),2)'
  321.             '  str(paymt(0.175/12,12*30,175000,-80000,0),2)'
  322.             ';'
  323.             ';  pages 78-79 (PMT)'
  324.             ';'
  325.             '  str(PMT(10000,0.15/12,3*12),2)'
  326.             '  str( PAYMT(0.15/12,3*12,10000,0,0), 2) + '#39'(paymt)'#39
  327.             '  str(pmt(1000,0.12,5) ,2 )'
  328.             '  str(pmt(500,0.16,12), 2)'
  329.             '  str(pmt(5000,0.16/12,12) ,2)'
  330.             '  str(pmt(12000,0.11,15) ,2 )'
  331.             ';'
  332.             '; page 79 (PPAYMT):'
  333.             ';'
  334.             '  str(ppaymt(0.1/12,2*12,30*12,100000,0,0), 2)'
  335.             '  str(ppaymt(0.15/4,24,40,10000,0,1), 2)'
  336.             ';'
  337.             '; page 81 (PV)'
  338.             ';'
  339.             '  str(pv(350,0.07/12,5*12),2)'
  340.             '  str(pval(0.07/12,5*12,-350,0,0), 2)'
  341.             '  str(pv(277,0.12,5),2)'
  342.             '  str(pv(600,0.17,10),2)'
  343.             '  str(pv(100,0.11,12),2)'
  344.             ';'
  345.             '; page 82 (PVAL)'
  346.             ';'
  347.             '  str(pval(0.1,12,2000,0,0),2)'
  348.             '  str(pval(0.1,15,0,30000,0),2)'
  349.             ';'
  350.             '; page 84 (RATE)'
  351.             ';'
  352.             '  str( rate(4000,2000,10)*100, 2) + '#39'%'#39
  353.             '  str( rate(10000,7000,6*12)*100, 2) + '#39'%'#39
  354.             '  str( rate(1200,1000,3)*100, 2) + '#39'%'#39
  355.             '  str( rate(500,100,25)*100, 2) + '#39'%'#39
  356.             ';'
  357.             '; page 89 (SLN)'
  358.             ';'
  359.             '  str(sln(4000,350,8),2)'
  360.             '  str(sln(15000,3000,10), 0)'
  361.             '  sln(5000,500,5)'
  362.             '  sln(1800,0,3)'
  363.             ';'
  364.             '; pages 94-95 (SYD)'
  365.             ';'
  366.             '  str( syd(4000,350,8,2),2)'
  367.             '  syd(12000,1000,5,1)'
  368.             '  syd(12000,1000,5,2)'
  369.             '  syd(12000,1000,5,3)'
  370.             '  syd(12000,1000,5,4)'
  371.             '  syd(12000,1000,5,5)'
  372.             ';'
  373.             '  ddb(12000,1000,5,1)'
  374.             '  ddb(12000,1000,5,2)'
  375.             '  ddb(12000,1000,5,3)'
  376.             '  ddb(12000,1000,5,4)'
  377.             '  ddb(12000,1000,5,5)'
  378.             ';'
  379.             '; page 96 (TERM)'
  380.             ';'
  381.             '  str( term(2000,0.11,50000),2)'
  382.             '  str( nper(0.11,-2000,0,50000,0) , 2)'
  383.             '  str( term(300,0.06,5000) , 1)'
  384.             '  str( term(500,0.07,1000) , 2)'
  385.             '  str( term(500,0.07,1000) , 2)'
  386.             '  str( term(1000,0.10,50000) , 1)'
  387.             '  str( term(100,0.05,1000) ,1)'
  388.             '')
  389.           ParentFont = False
  390.           TabOrder = 0
  391.           OnDblClick = ExpressionListboxDblClick
  392.         end
  393.         object ExpressionGroupBox: TGroupBox
  394.           Left = 1
  395.           Top = 1
  396.           Width = 751
  397.           Height = 60
  398.           Align = alTop
  399.           Caption = 'Expression'
  400.           TabOrder = 1
  401.           object VariablesBtn: TSpeedButton
  402.             Left = 660
  403.             Top = 20
  404.             Width = 69
  405.             Height = 31
  406.             Hint = 'Click here to edit expression variables'
  407.             Caption = 'Vars'
  408.             Font.Color = clWindowText
  409.             Font.Height = -15
  410.             Font.Name = 'Arial'
  411.             Font.Pitch = fpVariable
  412.             Font.Style = []
  413.             Glyph.Data = {
  414.               76010000424D7601000000000000760000002800000020000000100000000100
  415.               04000000000000010000130B0000130B00000000000000000000000000000000
  416.               800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  417.               FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  418.               3333333333333333333333333333333333333333FFF33FFFFF33333300033000
  419.               00333337773377777333333330333300033333337FF33777F333333330733300
  420.               0333333377FFF777F33333333700000073333333777777773333333333033000
  421.               3333333337FF777F333333333307300033333333377F777F3333333333703007
  422.               33333333377F7773333333333330000333333333337777F33333333333300003
  423.               33333333337777F3333333333337007333333333337777333333333333330033
  424.               3333333333377333333333333333033333333333333733333333333333333333
  425.               3333333333333333333333333333333333333333333333333333}
  426.             NumGlyphs = 2
  427.             ParentFont = False
  428.             OnClick = VariablesBtnClick
  429.           end
  430.           object CalcBtn: TSpeedButton
  431.             Left = 608
  432.             Top = 20
  433.             Width = 46
  434.             Height = 31
  435.             Hint = 'Click Here to Evaluate'
  436.             Glyph.Data = {
  437.               78010000424D7801000000000000760000002800000020000000100000000100
  438.               04000000000000000000120B0000120B00000000000000000000000000000000
  439.               800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  440.               FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  441.               555555555555555555555555555555555555555555FF55555555555559055555
  442.               55555555577FF5555555555599905555555555557777F5555555555599905555
  443.               555555557777FF5555555559999905555555555777777F555555559999990555
  444.               5555557777777FF5555557990599905555555777757777F55555790555599055
  445.               55557775555777FF5555555555599905555555555557777F5555555555559905
  446.               555555555555777FF5555555555559905555555555555777FF55555555555579
  447.               05555555555555777FF5555555555557905555555555555777FF555555555555
  448.               59905555555555555777555555555555555555555555555555550000}
  449.             NumGlyphs = 2
  450.             OnClick = CalcBtnClick
  451.           end
  452.           object ExpressionCombo: TComboBox
  453.             Left = 8
  454.             Top = 20
  455.             Width = 586
  456.             Height = 24
  457.             Font.Color = clWindowText
  458.             Font.Height = -15
  459.             Font.Name = 'System'
  460.             Font.Pitch = fpVariable
  461.             Font.Style = []
  462.             ItemHeight = 16
  463.             ParentFont = False
  464.             TabOrder = 0
  465.           end
  466.         end
  467.       end
  468.     end
  469.     object TTabPage
  470.       Left = 5
  471.       Top = 26
  472.       Caption = 'Data-Aware Demo'
  473.       object CustomerGrid: TDBGrid
  474.         Left = 0
  475.         Top = 41
  476.         Width = 753
  477.         Height = 152
  478.         Align = alTop
  479.         DataSource = CustomerDataSource
  480.         Font.Color = clBlack
  481.         Font.Height = -17
  482.         Font.Name = 'Arial'
  483.         Font.Style = []
  484.         ParentFont = False
  485.         TabOrder = 0
  486.         TitleFont.Color = clWindowText
  487.         TitleFont.Height = -13
  488.         TitleFont.Name = 'System'
  489.         TitleFont.Style = []
  490.       end
  491.       object Panel5: TPanel
  492.         Left = 0
  493.         Top = 367
  494.         Width = 753
  495.         Height = 59
  496.         Align = alBottom
  497.         TabOrder = 1
  498.         object OrdersResultPanel: TPanel
  499.           Left = 13
  500.           Top = 10
  501.           Width = 588
  502.           Height = 41
  503.           Alignment = taLeftJustify
  504.           Font.Color = clBlack
  505.           Font.Height = -15
  506.           Font.Name = 'MS Sans Serif'
  507.           Font.Pitch = fpVariable
  508.           Font.Style = []
  509.           ParentFont = False
  510.           TabOrder = 0
  511.         end
  512.         object Formula: TBitBtn
  513.           Left = 615
  514.           Top = 10
  515.           Width = 106
  516.           Height = 41
  517.           Caption = 'Formula'
  518.           TabOrder = 1
  519.           OnClick = FormulaClick
  520.           Glyph.Data = {
  521.             78010000424D7801000000000000760000002800000020000000100000000100
  522.             04000000000000000000120B0000120B00000000000000000000000000000000
  523.             800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  524.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
  525.             73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
  526.             0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
  527.             0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
  528.             0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
  529.             0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
  530.             0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
  531.             0333337F777777737F333308888888880333337F333333337F33330888888888
  532.             03333373FFFFFFFF7333337000000000733333377777777733330000}
  533.           NumGlyphs = 2
  534.           Style = bsNew
  535.         end
  536.       end
  537.       object OrdersGrid: TDBGrid
  538.         Left = 0
  539.         Top = 231
  540.         Width = 753
  541.         Height = 136
  542.         Align = alClient
  543.         DataSource = OrdersDataSource
  544.         Font.Color = clBlack
  545.         Font.Height = -17
  546.         Font.Name = 'Arial'
  547.         Font.Pitch = fpVariable
  548.         Font.Style = []
  549.         Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  550.         ParentFont = False
  551.         TabOrder = 2
  552.         TitleFont.Color = clWindowText
  553.         TitleFont.Height = -13
  554.         TitleFont.Name = 'System'
  555.         TitleFont.Pitch = fpVariable
  556.         TitleFont.Style = []
  557.       end
  558.       object Panel8: TPanel
  559.         Left = 0
  560.         Top = 193
  561.         Width = 753
  562.         Height = 38
  563.         Align = alTop
  564.         Font.Color = clNavy
  565.         Font.Height = -23
  566.         Font.Name = 'Arial'
  567.         Font.Pitch = fpVariable
  568.         Font.Style = [fsBold]
  569.         ParentFont = False
  570.         TabOrder = 3
  571.         object lblOrdersGrid: TLabel
  572.           Left = 5
  573.           Top = 5
  574.           Width = 90
  575.           Height = 32
  576.           Caption = 'Orders'
  577.           Font.Color = clGray
  578.           Font.Height = -27
  579.           Font.Name = 'Arial'
  580.           Font.Pitch = fpVariable
  581.           Font.Style = [fsBold]
  582.           ParentFont = False
  583.         end
  584.         object btnOrdersFilter: TBitBtn
  585.           Tag = 1
  586.           Left = 481
  587.           Top = 5
  588.           Width = 102
  589.           Height = 31
  590.           Caption = '&Filter'
  591.           Font.Color = clBlack
  592.           Font.Height = -17
  593.           Font.Name = 'Arial'
  594.           Font.Pitch = fpVariable
  595.           Font.Style = []
  596.           ParentFont = False
  597.           TabOrder = 0
  598.           OnClick = btnOrdersFilterClick
  599.           Glyph.Data = {
  600.             4E010000424D4E01000000000000760000002800000012000000120000000100
  601.             040000000000D800000000000000000000001000000010000000000000000000
  602.             BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  603.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
  604.             DDDDDD000000DDDDDDDDDDDDDDDDDD000000D000000000000DD00D000000D0FF
  605.             FFFFFFFF0D000D000000D0FFFFFFF0000800DD000000D0FFFFFF0877808DDD00
  606.             0000D0FFFFF0877E880DDD000000D0FFFFF07777870DDD000000D0FFFFF07E77
  607.             870DDD000000D0FFFFF08EE7880DDD000000D0FFFFFF087780DDDD000000D0FF
  608.             FFFFF0000DDDDD000000D0FFFFFFFFFF0DDDDD000000D0FFFFFFF0000DDDDD00
  609.             0000D0FFFFFFF070DDDDDD000000D0FFFFFFF00DDDDDDD000000DD00000000DD
  610.             DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
  611.           Style = bsNew
  612.         end
  613.         object cbxApplyOrdersFilter: TCheckBox
  614.           Left = 600
  615.           Top = 9
  616.           Width = 121
  617.           Height = 17
  618.           Caption = '&Apply Filter'
  619.           Font.Color = clBlack
  620.           Font.Height = -17
  621.           Font.Name = 'Arial'
  622.           Font.Pitch = fpVariable
  623.           Font.Style = []
  624.           ParentFont = False
  625.           TabOrder = 1
  626.           OnClick = cbxApplyOrdersFilterClick
  627.         end
  628.       end
  629.       object Panel9: TPanel
  630.         Left = 0
  631.         Top = 0
  632.         Width = 753
  633.         Height = 41
  634.         Align = alTop
  635.         Font.Color = clBlack
  636.         Font.Height = -17
  637.         Font.Name = 'Arial'
  638.         Font.Pitch = fpVariable
  639.         Font.Style = []
  640.         ParentFont = False
  641.         TabOrder = 4
  642.         object lblCustomerGrid: TLabel
  643.           Left = 10
  644.           Top = 5
  645.           Width = 145
  646.           Height = 32
  647.           Caption = 'Customers'
  648.           Font.Color = clGray
  649.           Font.Height = -27
  650.           Font.Name = 'Arial'
  651.           Font.Pitch = fpVariable
  652.           Font.Style = [fsBold]
  653.           ParentFont = False
  654.         end
  655.         object cbxApplyCustomerFilter: TCheckBox
  656.           Left = 585
  657.           Top = 9
  658.           Width = 121
  659.           Height = 17
  660.           Caption = '&Apply Filter'
  661.           TabOrder = 0
  662.           OnClick = cbxApplyCustomerFilterClick
  663.         end
  664.         object btnCustomerFilter: TBitBtn
  665.           Tag = 1
  666.           Left = 474
  667.           Top = 5
  668.           Width = 101
  669.           Height = 31
  670.           Caption = '&Filter'
  671.           TabOrder = 1
  672.           OnClick = FilterBtnClick
  673.           Glyph.Data = {
  674.             4E010000424D4E01000000000000760000002800000012000000120000000100
  675.             040000000000D800000000000000000000001000000010000000000000000000
  676.             BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  677.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
  678.             DDDDDD000000DDDDDDDDDDDDDDDDDD000000D000000000000DD00D000000D0FF
  679.             FFFFFFFF0D000D000000D0FFFFFFF0000800DD000000D0FFFFFF0877808DDD00
  680.             0000D0FFFFF0877E880DDD000000D0FFFFF07777870DDD000000D0FFFFF07E77
  681.             870DDD000000D0FFFFF08EE7880DDD000000D0FFFFFF087780DDDD000000D0FF
  682.             FFFFF0000DDDDD000000D0FFFFFFFFFF0DDDDD000000D0FFFFFFF0000DDDDD00
  683.             0000D0FFFFFFF070DDDDDD000000D0FFFFFFF00DDDDDDD000000DD00000000DD
  684.             DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
  685.           Style = bsNew
  686.         end
  687.       end
  688.     end
  689.     object TTabPage
  690.       Left = 5
  691.       Top = 26
  692.       Caption = 'Graphing Demo'
  693.       object ChartFX1: TChartFX
  694.         Left = 0
  695.         Top = 65
  696.         Width = 751
  697.         Height = 356
  698.         pType = 164359937
  699.         LeftGap = 50
  700.         RightGap = 50
  701.         TopGap = 40
  702.         BottomGap = 40
  703.         Decimals = 2
  704.         PointType = 6
  705.         Scheme = 0
  706.         Stacked = 2
  707.         Grid = 3
  708.         WallWidth = 8
  709.         LineWidth = 1
  710.         LineStyle = 0
  711.         LineColor = clBlack
  712.         LineBkColor = clBlack
  713.         FixedGap = 0
  714.         DblClkDlg = 1
  715.         RigClkDlg = 2
  716.         RGBBarHorz = clAqua
  717.         RGBBk = clSilver
  718.         RGB2DBk = clSilver
  719.         RGB3DBk = clWhite
  720.         CustTool = 534738482
  721.         VertGridGap = 1
  722.         about = 'Click on "..."'
  723.         NSeries_Data = {}
  724.         NValues_Data = {
  725.           020004000000000000000000000000000000F03F000000000000000000000000
  726.           00005940}
  727.         ThisColor_Data = {000000000000}
  728.         ThisBkColor_Data = {}
  729.         AdmDlg_Data = {}
  730.         ViewRot3D_Data = {000000000000}
  731.         FontDlg_Data = {
  732.           08000020080000600C0100000800000008000000080000000800000008000000
  733.           0000000000000000808080000000000000000000000000000000000000000000}
  734.         TitleDlg_Data = {00000000000000000000000000000000}
  735.         ChartType_Data = {}
  736.         Chart3D_Data = {}
  737.         ToolBar_Data = {}
  738.         PaletteBar_Data = {}
  739.         PatternBar_Data = {}
  740.         ZReserved1 = 'Click on "..."'
  741.         ZReserved2 = 'Click on "..."'
  742.         ZReserved3 = 'Click on "..."'
  743.       end
  744.       object Panel3: TPanel
  745.         Left = 0
  746.         Top = 0
  747.         Width = 753
  748.         Height = 66
  749.         Align = alTop
  750.         TabOrder = 1
  751.         object btnDrawGraph: TSpeedButton
  752.           Left = 700
  753.           Top = 25
  754.           Width = 46
  755.           Height = 29
  756.           Hint = 'Plot the graph'
  757.           Glyph.Data = {
  758.             78010000424D7801000000000000760000002800000020000000100000000100
  759.             04000000000000000000120B0000120B00000000000000000000000000000000
  760.             800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  761.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337333733373
  762.             3373337F3F7F3F7F3F7F33737373737373733F7F7F7F7F7F7F7F770000000000
  763.             000077777777777777773303333333333333337FF333333F33333709333333C3
  764.             333337773F3FF373F333330393993C3C33333F7F7F77F7F7FFFF77079797977C
  765.             77777777777777777777330339339333C333337FF73373F37F33370C333C3933
  766.             933337773F3737F37FF33303C3C33939C9333F7F7F7FF7F777FF7707C7C77797
  767.             7C97777777777777777733033C3333333C33337F37F33333373F37033C333333
  768.             33C3377F37333333337333033333333333333F7FFFFFFFFFFFFF770777777777
  769.             77777777777777777777333333333333333333333333333333330000}
  770.           NumGlyphs = 2
  771.           OnClick = btnDrawGraphClick
  772.         end
  773.         object Label1: TLabel
  774.           Left = 10
  775.           Top = 5
  776.           Width = 65
  777.           Height = 20
  778.           Caption = '&Formula'
  779.           FocusControl = FormulaEdit
  780.         end
  781.         object Label2: TLabel
  782.           Left = 485
  783.           Top = 5
  784.           Width = 39
  785.           Height = 20
  786.           Caption = 'XMin'
  787.         end
  788.         object Label3: TLabel
  789.           Left = 570
  790.           Top = 5
  791.           Width = 43
  792.           Height = 20
  793.           Caption = 'XMax'
  794.         end
  795.         object Label4: TLabel
  796.           Left = 645
  797.           Top = 5
  798.           Width = 39
  799.           Height = 20
  800.           Caption = '# Pts'
  801.         end
  802.         object FormulaEdit: TEdit
  803.           Left = 10
  804.           Top = 25
  805.           Width = 466
  806.           Height = 29
  807.           TabOrder = 0
  808.         end
  809.         object XMinEdit: TEdit
  810.           Left = 485
  811.           Top = 25
  812.           Width = 81
  813.           Height = 29
  814.           TabOrder = 1
  815.         end
  816.         object XMaxEdit: TEdit
  817.           Left = 570
  818.           Top = 25
  819.           Width = 71
  820.           Height = 29
  821.           TabOrder = 2
  822.         end
  823.         object NumPtsEdit: TEdit
  824.           Left = 645
  825.           Top = 25
  826.           Width = 46
  827.           Height = 29
  828.           TabOrder = 3
  829.         end
  830.       end
  831.     end
  832.     object TTabPage
  833.       Left = 5
  834.       Top = 26
  835.       Caption = 'Extensibility Demo'
  836.       object Bevel1: TBevel
  837.         Left = 8
  838.         Top = 10
  839.         Width = 466
  840.         Height = 391
  841.         Shape = bsFrame
  842.       end
  843.       object RunBtn: TSpeedButton
  844.         Left = 420
  845.         Top = 30
  846.         Width = 31
  847.         Height = 31
  848.         Glyph.Data = {
  849.           78010000424D7801000000000000760000002800000020000000100000000100
  850.           04000000000000000000120B0000120B00000000000000000000000000000000
  851.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  852.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  853.           555555555555555555555555555555555555555555FF55555555555559055555
  854.           55555555577FF5555555555599905555555555557777F5555555555599905555
  855.           555555557777FF5555555559999905555555555777777F555555559999990555
  856.           5555557777777FF5555557990599905555555777757777F55555790555599055
  857.           55557775555777FF5555555555599905555555555557777F5555555555559905
  858.           555555555555777FF5555555555559905555555555555777FF55555555555579
  859.           05555555555555777FF5555555555557905555555555555777FF555555555555
  860.           59905555555555555777555555555555555555555555555555550000}
  861.         NumGlyphs = 2
  862.         OnClick = RunBtnClick
  863.       end
  864.       object newFuncsCombo: TComboBox
  865.         Left = 23
  866.         Top = 30
  867.         Width = 391
  868.         Height = 29
  869.         ItemHeight = 20
  870.         TabOrder = 0
  871.       end
  872.       object NewFuncsListbox: TListBox
  873.         Left = 23
  874.         Top = 70
  875.         Width = 428
  876.         Height = 191
  877.         Enabled = False
  878.         ItemHeight = 20
  879.         Items.Strings = (
  880.           ' Copy("exprlist.txt","newfil.txt") '
  881.           ' Rename("newfil.txt","newtxt.old")'
  882.           ' exec("calc.exe", SW_SHOWNORMAL) '
  883.           ' execwait("notepad.exe",SW_MAXIMIZE)'
  884.           ' delete("myfile.fil")'
  885.           ' errormsg("This is an error box")'
  886.           ' msgbox("This is a message box") '
  887.           ' beep( MB_ICONHAND )'
  888.           ' yesno("Have you made a backup ?")'
  889.           ' yesnocancel("Would you like to save your work ?")'
  890.           ' inputstring("What is your name","Name","Bob")')
  891.         TabOrder = 1
  892.         OnClick = NewFuncsListboxClick
  893.       end
  894.       object runmemo: TMemo
  895.         Left = 23
  896.         Top = 270
  897.         Width = 428
  898.         Height = 61
  899.         Lines.Strings = (
  900.           '')
  901.         TabOrder = 2
  902.       end
  903.       object RegisterFuncBtn: TBitBtn
  904.         Left = 218
  905.         Top = 350
  906.         Width = 111
  907.         Height = 41
  908.         Caption = 'Register'
  909.         TabOrder = 3
  910.         OnClick = RegisterFuncBtnClick
  911.         Style = bsNew
  912.       end
  913.       object UnregisterBtn: TBitBtn
  914.         Left = 338
  915.         Top = 350
  916.         Width = 111
  917.         Height = 41
  918.         Caption = 'Unregister'
  919.         TabOrder = 4
  920.         OnClick = UnregisterBtnClick
  921.         Style = bsNew
  922.       end
  923.     end
  924.     object TTabPage
  925.       Left = 5
  926.       Top = 26
  927.       Caption = 'RTTI Demo'
  928.       object BitBtn1: TBitBtn
  929.         Left = 265
  930.         Top = 345
  931.         Width = 256
  932.         Height = 41
  933.         Caption = 'Click Here For The RTTI Demo'
  934.         Font.Color = clBlack
  935.         Font.Height = -17
  936.         Font.Name = 'Arial'
  937.         Font.Pitch = fpVariable
  938.         Font.Style = []
  939.         ParentFont = False
  940.         TabOrder = 0
  941.         OnClick = BitBtn1Click
  942.       end
  943.       object Panel4: TPanel
  944.         Left = 0
  945.         Top = 0
  946.         Width = 753
  947.         Height = 31
  948.         Align = alTop
  949.         Color = clTeal
  950.         TabOrder = 1
  951.       end
  952.       object Panel6: TPanel
  953.         Left = 10
  954.         Top = 40
  955.         Width = 726
  956.         Height = 276
  957.         BevelInner = bvRaised
  958.         BorderWidth = 2
  959.         Caption = 'Panel6'
  960.         TabOrder = 2
  961.         object Memo2: TMemo
  962.           Left = 4
  963.           Top = 4
  964.           Width = 718
  965.           Height = 268
  966.           Align = alClient
  967.           BorderStyle = bsNone
  968.           Color = clBtnFace
  969.           Font.Color = clBlack
  970.           Font.Height = -17
  971.           Font.Name = 'Arial'
  972.           Font.Pitch = fpVariable
  973.           Font.Style = []
  974.           Lines.Strings = (
  975.             
  976.               'Much of FormulaBuilder'#39's flexibility derives from the fact that ' +
  977.               'the programmer may handle '
  978.             
  979.               'variables and functions external to the core engine. A powerful ' +
  980.               'example of this feature is '
  981.             
  982.               'the TRTTIExpression class, which gives the programmer/user runti' +
  983.               'me access to the published'
  984.             
  985.               'properties of a given component (and its contained components) u' +
  986.               'sing familiar syntax. For '
  987.             'example :'
  988.             ''
  989.             '[Form1.Font.Style] := [fsBold,fsItalic]'
  990.             '[Form1.Caption] :=  [Form2.Caption] + Str( TimeNow() )'
  991.             ''
  992.             
  993.               'This opens many possibilites, like scripted testing and demonstr' +
  994.               'ations, and ultra-flexible '
  995.             'user-configuration.')
  996.           ParentFont = False
  997.           TabOrder = 0
  998.         end
  999.       end
  1000.     end
  1001.   end
  1002.   object Panel2: TPanel
  1003.     Left = 0
  1004.     Top = 0
  1005.     Width = 763
  1006.     Height = 51
  1007.     Align = alTop
  1008.     Color = clTeal
  1009.     TabOrder = 1
  1010.     object btnAbout: TSpeedButton
  1011.       Left = 405
  1012.       Top = 10
  1013.       Width = 46
  1014.       Height = 31
  1015.       Glyph.Data = {
  1016.         78010000424D7801000000000000760000002800000020000000100000000100
  1017.         04000000000000000000120B0000120B00000000000000000000000000000000
  1018.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  1019.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33
  1020.         33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888
  1021.         8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF
  1022.         F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF
  1023.         F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF
  1024.         0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000
  1025.         B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF
  1026.         B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3
  1027.         333333333777733333333333FBFBFB33333333333333333333330000}
  1028.       NumGlyphs = 2
  1029.       OnClick = btnAboutClick
  1030.     end
  1031.     object lblDemo: TLabel
  1032.       Left = 310
  1033.       Top = 10
  1034.       Width = 90
  1035.       Height = 38
  1036.       Caption = 'Demo'
  1037.       Font.Color = clMaroon
  1038.       Font.Height = -33
  1039.       Font.Name = 'Arial'
  1040.       Font.Pitch = fpVariable
  1041.       Font.Style = [fsBold]
  1042.       ParentFont = False
  1043.     end
  1044.     object MainLabel: TLabel
  1045.       Left = 10
  1046.       Top = 10
  1047.       Width = 295
  1048.       Height = 38
  1049.       Caption = 'FormulaBuilder 1.0'
  1050.       Font.Color = clNavy
  1051.       Font.Height = -33
  1052.       Font.Name = 'Arial'
  1053.       Font.Pitch = fpVariable
  1054.       Font.Style = [fsBold]
  1055.       ParentFont = False
  1056.     end
  1057.     object btnFunctions: TBitBtn
  1058.       Left = 458
  1059.       Top = 9
  1060.       Width = 98
  1061.       Height = 31
  1062.       Hint = 'Click here for a list of functions'
  1063.       Caption = '&Functions'
  1064.       Font.Color = clWindowText
  1065.       Font.Height = -15
  1066.       Font.Name = 'MS Sans Serif'
  1067.       Font.Pitch = fpVariable
  1068.       Font.Style = []
  1069.       ParentFont = False
  1070.       TabOrder = 0
  1071.       OnClick = btnFunctionsClick
  1072.       Glyph.Data = {
  1073.         78010000424D7801000000000000760000002800000020000000100000000100
  1074.         04000000000000000000120B0000120B00000000000000000000000000000000
  1075.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  1076.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  1077.         333333333333333333333333333333333333333FFFFFFFFFFF33330000000000
  1078.         03333377777777777F33333003333330033333377FF333377F33333300333333
  1079.         0333333377FF33337F3333333003333303333333377FF3337333333333003333
  1080.         333333333377FF3333333333333003333333333333377FF33333333333330033
  1081.         3333333333337733333333333330033333333333333773333333333333003333
  1082.         33333333337733333F3333333003333303333333377333337F33333300333333
  1083.         03333333773333337F33333003333330033333377FFFFFF77F33330000000000
  1084.         03333377777777777333333333333333333333333333333333330000}
  1085.       NumGlyphs = 2
  1086.       Style = bsNew
  1087.     end
  1088.     object HelpBtn: TBitBtn
  1089.       Left = 563
  1090.       Top = 9
  1091.       Width = 83
  1092.       Height = 31
  1093.       TabOrder = 1
  1094.       OnClick = HelpBtnClick
  1095.       Kind = bkHelp
  1096.       Style = bsNew
  1097.     end
  1098.     object CancelBtn: TBitBtn
  1099.       Left = 650
  1100.       Top = 9
  1101.       Width = 94
  1102.       Height = 31
  1103.       Font.Color = clBlack
  1104.       Font.Height = -15
  1105.       Font.Name = 'MS Sans Serif'
  1106.       Font.Style = [fsBold]
  1107.       ParentFont = False
  1108.       TabOrder = 2
  1109.       Kind = bkClose
  1110.       Margin = 2
  1111.       Style = bsNew
  1112.       Spacing = -1
  1113.     end
  1114.   end
  1115.   object CustomerTable: TTable
  1116.     Active = True
  1117.     DatabaseName = 'DBDEMOS'
  1118.     ReadOnly = True
  1119.     TableName = 'CUSTOMER.DB'
  1120.     Left = 212
  1121.     Top = 87
  1122.     object CustomerTableCustNo: TFloatField
  1123.       DisplayWidth = 6
  1124.       FieldName = 'CustNo'
  1125.     end
  1126.     object CustomerTableCompany: TStringField
  1127.       DisplayWidth = 30
  1128.       FieldName = 'Company'
  1129.       Size = 30
  1130.     end
  1131.     object CustomerTableAddr1: TStringField
  1132.       DisplayWidth = 29
  1133.       FieldName = 'Addr1'
  1134.       Size = 30
  1135.     end
  1136.     object CustomerTableCity: TStringField
  1137.       DisplayWidth = 11
  1138.       FieldName = 'City'
  1139.       Size = 15
  1140.     end
  1141.     object CustomerTableState: TStringField
  1142.       DisplayWidth = 10
  1143.       FieldName = 'State'
  1144.     end
  1145.     object CustomerTableZip: TStringField
  1146.       DisplayWidth = 10
  1147.       FieldName = 'Zip'
  1148.       Size = 10
  1149.     end
  1150.     object CustomerTableCountry: TStringField
  1151.       DisplayWidth = 20
  1152.       FieldName = 'Country'
  1153.     end
  1154.     object CustomerTablePhone: TStringField
  1155.       DisplayWidth = 15
  1156.       FieldName = 'Phone'
  1157.       Size = 15
  1158.     end
  1159.     object CustomerTableFAX: TStringField
  1160.       DisplayWidth = 15
  1161.       FieldName = 'FAX'
  1162.       Size = 15
  1163.     end
  1164.     object CustomerTableTaxRate: TFloatField
  1165.       DisplayWidth = 7
  1166.       FieldName = 'TaxRate'
  1167.     end
  1168.     object CustomerTableContact: TStringField
  1169.       DisplayWidth = 16
  1170.       FieldName = 'Contact'
  1171.     end
  1172.     object CustomerTableLastInvoiceDate: TDateTimeField
  1173.       DisplayWidth = 12
  1174.       FieldName = 'LastInvoiceDate'
  1175.     end
  1176.   end
  1177.   object CustomerDataSource: TDataSource
  1178.     DataSet = CustomerTable
  1179.     OnDataChange = CustomerDataSourceDataChange
  1180.     Left = 182
  1181.     Top = 87
  1182.   end
  1183.   object OrdersTable: TTable
  1184.     Active = True
  1185.     DatabaseName = 'DBDEMOS'
  1186.     IndexFieldNames = 'CustNo'
  1187.     MasterFields = 'CustNo'
  1188.     MasterSource = CustomerDataSource
  1189.     TableName = 'ORDERS.DB'
  1190.     Left = 116
  1191.     Top = 277
  1192.     object OrdersTableOrderNo: TFloatField
  1193.       DisplayWidth = 8
  1194.       FieldName = 'OrderNo'
  1195.     end
  1196.     object OrdersTableCustNo: TFloatField
  1197.       DisplayWidth = 7
  1198.       FieldName = 'CustNo'
  1199.       Required = True
  1200.       Visible = False
  1201.     end
  1202.     object OrdersTableSaleDate: TDateTimeField
  1203.       DisplayWidth = 10
  1204.       FieldName = 'SaleDate'
  1205.     end
  1206.     object OrdersTableShipDate: TDateTimeField
  1207.       DisplayWidth = 9
  1208.       FieldName = 'ShipDate'
  1209.     end
  1210.     object OrdersTableEmpNo: TIntegerField
  1211.       DisplayWidth = 8
  1212.       FieldName = 'EmpNo'
  1213.       Required = True
  1214.       Visible = False
  1215.     end
  1216.     object OrdersTableTerms: TStringField
  1217.       DisplayWidth = 6
  1218.       FieldName = 'Terms'
  1219.       Size = 6
  1220.     end
  1221.     object OrdersTablePaymentMethod: TStringField
  1222.       DisplayWidth = 13
  1223.       FieldName = 'PaymentMethod'
  1224.       Size = 7
  1225.     end
  1226.     object OrdersTableItemsTotal: TCurrencyField
  1227.       DisplayWidth = 10
  1228.       FieldName = 'ItemsTotal'
  1229.       Currency = True
  1230.     end
  1231.     object OrdersTableTaxRate: TFloatField
  1232.       DisplayWidth = 7
  1233.       FieldName = 'TaxRate'
  1234.     end
  1235.     object OrdersTableFreight: TCurrencyField
  1236.       DisplayWidth = 10
  1237.       FieldName = 'Freight'
  1238.       Currency = True
  1239.     end
  1240.     object OrdersTableAmountPaid: TCurrencyField
  1241.       DisplayWidth = 11
  1242.       FieldName = 'AmountPaid'
  1243.       Currency = True
  1244.     end
  1245.   end
  1246.   object OrdersDataSource: TDataSource
  1247.     DataSet = OrdersTable
  1248.     OnDataChange = OrdersDataSourceDataChange
  1249.     Left = 146
  1250.     Top = 277
  1251.   end
  1252.   object SimpleExpression: TExpression
  1253.     UseExceptions = False
  1254.     Left = 28
  1255.     Top = 53
  1256.   end
  1257.   object CustomersFilter: TDSFilter
  1258.     Lines.Strings = (
  1259.       'Country <> "US"')
  1260.     UseExceptions = False
  1261.     Active = False
  1262.     AutoRefresh = False
  1263.     Datasource = CustomerDataSource
  1264.     LoadActivated = True
  1265.     Priority = 1
  1266.     Left = 241
  1267.     Top = 90
  1268.   end
  1269.   object OrdersFilter: TDSFilter
  1270.     UseExceptions = False
  1271.     Active = False
  1272.     AutoRefresh = False
  1273.     Datasource = OrdersDataSource
  1274.     LoadActivated = True
  1275.     Priority = 1
  1276.     Left = 176
  1277.     Top = 277
  1278.   end
  1279.   object OrdersExpression: TDBExpression
  1280.     UseExceptions = False
  1281.     Left = 663
  1282.     Top = 461
  1283.   end
  1284. end
  1285.