PC World Komputer 1997 May/Pcwk0597.iso/borland/ib/setups/intrabld/data.z/PHONEDEP.JRP

Text File | 1996-12-11 | 7.6 KB | 252 lines

/****************************************************************************\
*                                                                            *
* PhoneDep.jrp  --  Department Phone List                                    *
*                                                                            *
* PhoneDep.jrp is part of the Phone Book solution application. It is used    *
* to view the employee phone book, with each department grouped together.    *
* The sorting of the table is done in the employee1.rowset.sql property. The *
* physical grouping of the department on the report is accomplished through  *
* the streamSource1.group1 object. Each employee's name becomes a link to    *
* the employee.jfm file. This link includes a parameter containing the       *
* employeeID of the employee.                                                *
*                                                                            *
* Dependencies:  phonbk31.gif                                                *
*                apps\shared\controls.cc                                     *
*                                                                            *
* Links to:      ibapps/index.htm                                            *
*                svr/intrasrv.isv?apps/phone/phonedep.jrp                    *
*                svr/intrasrv.isv?apps/phone/phoneemp.jrp                    *
*                svr/intrasrv.isv?apps/phone/update.jfm                      *
*                                                                            *
* Updated 11/09/96 by IntraBuilder Samples Group                             *
* $Revision:   1.19  $                                                       *
*                                                                            *
* Copyright (c) 1996, Borland International, Inc. All rights reserved.       *
*                                                                            *
\****************************************************************************/
// {End Header} Do not remove this comment//
// Generated on 11/09/96
//
var r = new PHONEDEPReport();
if (PHONEDEP.arguments.length == 2) {
   r.startPage = PHONEDEP.arguments[0];
   r.endPage = PHONEDEP.arguments[1];
}
r.render();
class PHONEDEPReport extends Report {
   _sys.scripts.load(_sys.env.home() + "APPS\\SHARED\\CONTROLS.CC")
   with (this) {
      preRender = class::Form_preRender;
      title = "Department Phone List";
      linkText = "Next Page";
   }


   with (this.ibapps1 = new Database()){
      left = 47;
      top = 0;
      databaseName = "IBAPPS";
      active = true;
   }


   with (this.employee1 = new Query()){
      left = 795;
      top = 0;
      database = parent.ibapps1;
      sql = "SELECT * FROM employee ORDER BY Department";
      active = true;
   }


   with (this.employee1.rowset) {

   }


   with (this.department1 = new Query()){
      left = 1455;
      top = 0;
      database = parent.ibapps1;
      sql = "select * from departmt";
      active = true;
   }


   with (this.department1.rowset) {
      masterRowset = parent.parent.employee1.rowset;
      masterFields = "Department";
   }


   with (this.pageTemplate1 = new PageTemplate(this)){
      height = 15000;
      width = 9000;
      marginTop = 0;
      marginLeft = 0;
      marginBottom = 0;
      marginRight = 0;
      gridLineWidth = 5;
      color = "cae4ff";
   }


   with (this.pageTemplate1.streamFrame1 = new StreamFrame(this.pageTemplate1)){
      height = 12000;
      top = 1300;
      width = 9000;
   }


   with (this.pageTemplate1.PhoneBookLogo = new Image(this.pageTemplate1)){
      height = 1225;
      width = 1235;
      dataSource = "filename PHONBK31.GIF";
      alignment = 4;
   }


   with (this.pageTemplate1.HeadingHTML = new HTML(this.pageTemplate1)){
      height = 1155;
      left = 1270;
      width = 6460;
      color = "853a1a";
      alignVertical = 1;
      alignHorizontal = 1;
      text = '<font size="+3"><B><CENTER>Department List</CENTER></B></font>';
   }


   with (this.pageTemplate1.LinksHTML = new HTML(this.pageTemplate1)){
      height = 300;
      top = 13500;
      width = 9000;
      color = "black";
      fontBold = false;
      text = {||'</TABLE><A HREF="/ibapps/index.htm">[Home]</A> <A HREF="/svr/intrasrv.isv?apps/phone/phoneemp.jrp">[List by Employee]</A> <A HREF="/svr/intrasrv.isv?apps/phone/update.jfm">[Update Data]</A><HR>'};
   }


   with (this.pageTemplate1.generatedHTML = new GeneratedHTML(this.pageTemplate1)){
      height = 255;
      top = 13800;
      width = 9000;
   }


   with (this.streamSource1 = new StreamSource(this)){

   }


   with (this.streamSource1.group1 = new Group(this.streamSource1)){
      groupBy = "Department";
   }


   with (this.streamSource1.group1.headerBand) {
      height = 400;
   }


   with (this.streamSource1.group1.headerBand.groupHeading = new HTML(this.streamSource1.group1.headerBand)){
      height = 400;
      width = 9000;
      color = "853a1a";
      alignVertical = 1;
      alignHorizontal = 1;
      text = {||"<CENTER><H3>"+this.parent.parent.parent.parent.department1.rowset.fields["Department"].value+"</H3></CENTER>"};
   }


   with (this.streamSource1.group1.footerBand) {
      height = 0;
   }


   with (this.streamSource1.detailBand) {
      height = 0;
   }


   with (this.streamSource1.detailBand.PhoneHTML = new HTML(this.streamSource1.detailBand)){
      height = 1;
      width = 700;
      variableHeight = true;
      color = "black";
      fontBold = false;
      text = {||'x'+this.parent.parent.rowset.fields["Phone"].value};
   }


   with (this.streamSource1.detailBand.FullnameHTML = new HTML(this.streamSource1.detailBand)){
      height = 1;
      left = 700;
      width = 2000;
      variableHeight = true;
      color = "black";
      fontBold = false;
      text = {||'<A HREF="/svr/intrasrv.isv?apps/phone/employee.jfm(' + parseInt(this.parent.parent.rowset.fields["Employee ID"].value) + ')">' + this.parent.parent.rowset.fields["Full Name"].value + '</A>'};
   }


   with (this.streamSource1.detailBand.TitleHTML = new HTML(this.streamSource1.detailBand)){
      height = 1;
      left = 2700;
      width = 3000;
      variableHeight = true;
      color = "black";
      fontBold = false;
      text = {||this.parent.parent.rowset.fields["Title"].value};
   }


   with (this.streamSource1.detailBand.PhoneNoteHTML = new HTML(this.streamSource1.detailBand)){
      height = 1;
      left = 5700;
      width = 3300;
      variableHeight = true;
      color = "black";
      fontBold = false;
      text = {||this.parent.parent.rowset.fields["Phone Note"].value};
   }


   with (this.printer) {
      duplex = 1;
      orientation = 1;
      paperSource = 15;
      paperSize = 1;
      resolution = 4;
      color = 2;
      trueTypeFonts = 2;
   }


   with (this.reportGroup) {
      groupBy = "";
   }


   with (this.reportGroup.headerBand) {
      height = 0;
   }


   with (this.reportGroup.footerBand) {
      height = 0;
   }

   this.firstPageTemplate = this.form.pageTemplate1
   this.form.pageTemplate1.nextPageTemplate = this.form.pageTemplate1
   this.form.pageTemplate1.streamFrame1.streamSource = this.form.streamSource1
   this.form.streamSource1.rowset = this.form.employee1.rowset

   function Form_preRender()
   {
      this.department1.rowset.masterRowset = this.employee1.rowset;
      this.department1.rowset.masterFields = "Department";
   }

}