home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / ib / setups / intrabld / data.z / ACTIVEX.JFM < prev    next >
Text File  |  1996-12-11  |  4KB  |  122 lines
  1. /****************************************************************************\
  2. *                                                                            *
  3. * ActiveX.jfm  --  Sample ActiveX Form                                       *
  4. *                                                                            *
  5. * ActiveX.jfm demonstrates the use of an ActiveX control on an IntraBuilder  *
  6. * form. The Microsoft graph control is used. This control ships with IE 3.0, *
  7. * so no codebase property is necessary. The classId is enough to identify    *
  8. * the control to IE 3.0. The params of the control are set both in the       *
  9. * control definition and in the form's onServerLoad event. The onServerLoad  *
  10. * computes the total orders by state and stores the data to the control.     *
  11. *                                                                            *
  12. * Dependencies:  customer.dbf                                                *
  13. *                orders.dbf                                                  *
  14. *                                                                            *
  15. * Updated 11/13/96 by IntraBuilder Samples Group                             *
  16. * $Revision:   1.3  $                                                        *
  17. *                                                                            *
  18. * Copyright (c) 1996, Borland International, Inc. All rights reserved.       *
  19. *                                                                            *
  20. \****************************************************************************/
  21. // {End Header} Do not remove this comment//
  22. // Generated on 11/13/96
  23. //
  24. var f = new activexForm();
  25. f.open();
  26. class activexForm extends Form {
  27.    _sys.scripts.load("CHART.CC")
  28.    with (this) {
  29.       onServerLoad = class::form_onServerLoad;
  30.       height = 14.6667;
  31.       left = 0;
  32.       top = 0;
  33.       width = 76;
  34.       title = "ActiveX Sample";
  35.    }
  36.  
  37.  
  38.    with (this.query1 = new Query()){
  39.       left = 34;
  40.       top = 8;
  41.       sql = "select c.state_prov, sum(o.total) as sumTotal from customer c, orders o where c.customer_n = o.customer_n group by c.state_prov";
  42.  
  43.       active = true;
  44.    }
  45.  
  46.  
  47.    with (this.query1.rowset) {
  48.  
  49.    }
  50.  
  51.  
  52.    with (this.ActiveXChartQuery1 = new ActiveXChartQuery(this)){
  53.       height = 13;
  54.       top = 1.5;
  55.       width = 74;
  56.       params["ChartType"] = "8";
  57.  
  58.    }
  59.  
  60.  
  61.    with (this.html1 = new HTML(this)){
  62.       height = 1.5;
  63.       width = 74;
  64.       color = "black";
  65.       alignHorizontal = 1;
  66.       text = "Total Sales by State (in U.S. Dollars)";
  67.    }
  68.  
  69.  
  70.    with (this.html2 = new HTML(this)){
  71.       height = 1;
  72.       top = 14.5;
  73.       width = 74;
  74.       color = "black";
  75.       alignHorizontal = 1;
  76.       text = "(Data computed from customer.dbf and orders.dbf.)";
  77.    }
  78.  
  79.  
  80.    with (this.button1 = new Button(this)){
  81.       onClick = class::button1_onClick;
  82.       left = 18;
  83.       top = 16;
  84.       width = 10.5;
  85.       text = "Back";
  86.    }
  87.  
  88.  
  89.    with (this.switchViewButton = new Button(this)){
  90.       onClick = class::switchViewButton_onClick;
  91.       left = 42;
  92.       top = 16;
  93.       width = 16;
  94.       text = "Switch View";
  95.    }
  96.  
  97.    this.rowset = this.query1.rowset;
  98.  
  99.    function form_onServerLoad()
  100.    {
  101.       this.ActiveXChartQuery1.Init("state_prov","sumTotal",this.query1.rowset);
  102.    }
  103.  
  104.    function button1_onClick()
  105.    {
  106.       history.back();
  107.    }
  108.  
  109.    function switchViewButton_onClick()
  110.    {
  111.       var ChartType = document.forms[0].ActiveXChartQuery1.ChartType;
  112.       if (ChartType == 5)
  113.          ChartType = 8;
  114.       else if (ChartType == 8)
  115.          ChartType = 14;
  116.       else
  117.          ChartType = 5;
  118.       document.forms[0].ActiveXChartQuery1.ChartType = ChartType;
  119.    }
  120.  
  121. }
  122.