PC World Komputer 1997 May/Pcwk0597.iso/borland/ib/setups/intrabld/data.z/KBSEARCH.JFM

Text File | 1996-12-11 | 7KB | 244 lines

/****************************************************************************\
*                                                                            *
* KBSearch.jfm  --  Knowledge Base Search Form                               *
*                                                                            *
* KBSearch.jfm is part of the Knowledge Base solution appliction. It is the  *
* main form used to search for documents. The user enters search criteria    *
* and then presses the Search button. The SearchButton_onServerClick()       *
* method contains the code that takes the user input passes it to the        *
* kbresult.jrp file to generate the query and display the documents that     *
* match the search criteria.                                                 *
*                                                                            *
* Dependencies:  knowbs31.gif                                                *
*                homepg31.gif                                                *
*                paper_22.gif                                                *
*                database.cc                                                 *
*                apps\shared\controls.cc                                     *
*                                                                            *
* Links to:      ibapps/index.htm                                            *
*                                                                            *
* Updated 11/13/96 by IntraBuilder Samples Group                             *
* $Revision:   1.25  $                                                       *
*                                                                            *
* Copyright (c) 1996, Borland International, Inc. All rights reserved.       *
*                                                                            *
\****************************************************************************/
_sys.scripts.load(_sys.env.home() + "apps\\shared\\string.js");
// {End Header} Do not remove this comment//
// Generated on 11/13/96
//
var f = new kbsearchForm();
f.open();
class kbsearchForm extends Form {
   _sys.scripts.load(_sys.env.home() + "APPS\\SHARED\\CONTROLS.CC")
   _sys.scripts.load("DATABASE.CC")
   with (this) {
      color = "ffffc4";
      height = 14.6667;
      left = 0;
      top = 0;
      width = 76;
      title = "Knowledge Base Search";
      background = "filename PAPER_22.GIF";
   }


   with (this.ibapps1 = new KbaseDatabase()){
      left = 24;
      top = 2;
      active = true;
   }


   with (this.query1 = new Query()){
      left = 18;
      top = 2;
      database = parent.ibapps1;
      requestLive = false;
   }


   with (this.query1.rowset) {

   }


   with (this.rule1 = new Rule(this)){
      top = 4;
      size = 2;
      right = 70;
   }


   with (this.rule2 = new Rule(this)){
      top = 12.5;
      size = 2;
      right = 70;
   }


   with (this.rule3 = new Rule(this)){
      top = 17;
      size = 2;
      right = 70;
   }


   with (this.KnowledgeBaseLogo = new Image(this)){
      height = 3.4167;
      width = 10.25;
      dataSource = "filename KNOWBS31.GIF";
      alignment = 4;
   }


   with (this.HeadingHTML = new HTML(this)){
      height = 2;
      left = 12;
      width = 58;
      color = "navy";
      text = {||'<H1><FONT SIZE="+3"><FONT COLOR="maroon">K</FONT></FONT>nowledge <FONT SIZE="+3"><FONT COLOR="maroon">B</FONT></FONT>ase <FONT SIZE="+3"><FONT COLOR="maroon">S</FONT></FONT>earch</H1>'};
      pageno = 0;
   }


   with (this.ProductHTML = new HTML(this)){
      height = 1;
      top = 4.5;
      width = 20;
      color = "black";
      fontBold = true;
      text = "Product: ";
   }


   with (this.ProductSelect = new FieldSelect(this)){
      left = 20;
      top = 4.5;
      width = 26;
      options = "array {'kbprod','ProdDescript'}";
   }


   with (this.CategoryHTML = new HTML(this)){
      height = 1;
      top = 6;
      width = 20;
      color = "black";
      fontBold = true;
      text = "Category:";
   }


   with (this.CategorySelect = new FieldSelect(this)){
      left = 20;
      top = 6;
      width = 26;
      options = "array {'kbcat','CatDescript'}";
   }


   with (this.KeywordHTML = new HTML(this)){
      height = 1;
      top = 7.5;
      width = 20;
      color = "black";
      fontBold = true;
      text = "Single keyword:";
   }


   with (this.KeywordText = new Text(this)){
      left = 20;
      top = 7.5;
      width = 26;
      value = "";
   }


   with (this.BodySearchHTML = new HTML(this)){
      height = 1;
      top = 9;
      width = 20;
      color = "black";
      fontBold = true;
      text = "Search:";
   }


   with (this.YesBodyRadio = new Radio(this)){
      height = 1;
      left = 20;
      top = 9;
      width = 26;
      text = "Titles and bodies";
      color = "";
      fontBold = true;
      value = false;
   }


   with (this.NoBodyRadio = new Radio(this)){
      height = 1;
      left = 20;
      top = 10;
      width = 26;
      text = "Titles only";
      color = "";
      fontBold = true;
      value = true;
   }


   with (this.SearchButton = new Button(this)){
      onServerClick = class::SearchButton_onServerClick;
      top = 11;
      width = 12;
      text = "Search";
   }


   with (this.HomePageLinkImage = new Image(this)){
      onImageClick = class::HomePageLinkImage_onClick;
      height = 3.4167;
      top = 13;
      width = 10.25;
      dataSource = "filename HOMEPG31.GIF";
      alignment = 4;
   }


   with (this.HomePageLinkHTML = new HTML(this)){
      height = 1;
      left = 12;
      top = 13;
      width = 58;
      color = "black";
      text = "<A HREF='/ibapps/index.htm'>Return to Home Page</A>";
   }


   with (this.GeneratedHTML = new GeneratedHTML(this)){
      height = 1;
      top = 17.5833;
      width = 70;
   }

   this.rowset = this.query1.rowset;

   function SearchButton_onServerClick()
   {
      var prod      = alltrim(form.ProductSelect.value);
      var cat       = alltrim(form.CategorySelect.value);
      var key       = alltrim(form.KeywordText.value);
      var searchDoc = form.YesBodyRadio.value;
      _sys.scripts.run("kbresult.jrp",1,1,prod,cat,key,searchDoc);
   }

   function HomePageLinkImage_onClick()
   {
      location.href="/ibapps/index.htm";
   }

}