home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / ib / setups / intrabld / data.z / GUEST.JFM < prev    next >
Encoding:
Text File  |  1996-12-11  |  7.8 KB  |  290 lines
  1. /****************************************************************************\
  2. *                                                                            *
  3. * Guest.jfm  --  Guest Book Entry Form                                       *
  4. *                                                                            *
  5. * Guest.jfm is part of the Guest Book solution application. It is the first  *
  6. * form that the user encounters. They can enter their name, email address,   *
  7. * comment, etc. and then submit a guest book entry. They can skip that and   *
  8. * just view the existing entries by selecting the appropriate link. After    *
  9. * the submission, the thanks form is displayed (see the                      *
  10. * submitButton_OnServerClick() method to see how this is done).              *
  11. *                                                                            *
  12. * Dependencies:  gestbk31.gif                                                *
  13. *                homepg31.gif                                                *
  14. *                apps/shared/controls.cc                                     *
  15. *                                                                            *
  16. * Links to:      ibapps/index.htm                                            *
  17. *                svr/intrasrv.isv?apps/guestbk/entries.jrp(1,1)              *
  18. *                                                                            *
  19. * Updated 11/12/96 by IntraBuilder Samples Group                             *
  20. * $Revision:   1.13  $                                                       *
  21. *                                                                            *
  22. * Copyright (c) 1996, Borland International, Inc. All rights reserved.       *
  23. *                                                                            *
  24. \****************************************************************************/
  25.  
  26. // {End Header} Do not remove this comment//
  27. // Generated on 11/12/96
  28. //
  29. var f = new guestForm();
  30. f.open();
  31. class guestForm extends Form {
  32.    _sys.scripts.load(_sys.env.home() + "APPS\\SHARED\\CONTROLS.CC")
  33.    with (this) {
  34.       onServerLoad = class::Form_onServerLoad;
  35.       color = "a4d5ff";
  36.       height = 15;
  37.       left = 0;
  38.       top = 0;
  39.       width = 72;
  40.       title = "Guest Book";
  41.    }
  42.  
  43.  
  44.    with (this.ibapps1 = new Database()){
  45.       left = 22;
  46.       top = 2;
  47.       databaseName = "IBAPPS";
  48.       active = true;
  49.  
  50.    }
  51.  
  52.    with (this.guest1 = new Query()){
  53.       left = 26;
  54.       top = 2;
  55.       database = parent.ibapps1;
  56.       sql = "select * from guest";
  57.  
  58.  
  59.       with (rowset) {
  60.  
  61.  
  62.       }
  63.  
  64.    }
  65.  
  66.    with (this.rule1 = new Rule(this)){
  67.       top = 4;
  68.       size = 2;
  69.       right = 70;
  70.  
  71.    }
  72.  
  73.    with (this.rule2 = new Rule(this)){
  74.       top = 19;
  75.       size = 2;
  76.       right = 70;
  77.  
  78.    }
  79.  
  80.    with (this.rule3 = new Rule(this)){
  81.       top = 28;
  82.       size = 2;
  83.       right = 70;
  84.  
  85.    }
  86.  
  87.    with (this.guestBookLogo = new Image(this)){
  88.       height = 3.4167;
  89.       width = 10.25;
  90.       dataSource = "filename GESTBK31.GIF";
  91.       alignment = 4;
  92.  
  93.    }
  94.  
  95.    with (this.titleHTML = new HTML(this)){
  96.       height = 2;
  97.       left = 12;
  98.       width = 58;
  99.       color = "steelblue";
  100.       text = '<H1><FONT SIZE="+4"><FONT COLOR="mediumvioletred">G</FONT></FONT>uest <FONT SIZE="+4"><FONT COLOR="mediumvioletred">B</FONT></FONT>ook</H1>';
  101.  
  102.    }
  103.  
  104.    with (this.invitationHTML = new HTML(this)){
  105.       height = 2;
  106.       top = 5;
  107.       width = 70;
  108.       color = "black";
  109.       text = "We're glad you visited our site today. Please be kind enough to leave a record of your visit. Comments and suggestions are always welcome.";
  110.  
  111.    }
  112.  
  113.    with (this.fullnameHTML = new HTML(this)){
  114.       height = 1;
  115.       top = 7;
  116.       width = 22;
  117.       color = "black";
  118.       text = "Your full name";
  119.  
  120.    }
  121.  
  122.    with (this.fullnameText = new Text(this)){
  123.       left = 22;
  124.       top = 7;
  125.       width = 34;
  126.       value = "";
  127.  
  128.    }
  129.  
  130.    with (this.emailHTML = new HTML(this)){
  131.       height = 1;
  132.       top = 8;
  133.       width = 22;
  134.       color = "black";
  135.       text = "Email address";
  136.  
  137.    }
  138.  
  139.    with (this.emailText = new Text(this)){
  140.       left = 22;
  141.       top = 8;
  142.       width = 34;
  143.       value = "";
  144.  
  145.    }
  146.  
  147.    with (this.wherefromHTML = new HTML(this)){
  148.       height = 1;
  149.       top = 9;
  150.       width = 22;
  151.       color = "black";
  152.       text = "Where are you from?";
  153.  
  154.    }
  155.  
  156.    with (this.wherefromText = new Text(this)){
  157.       left = 22;
  158.       top = 9;
  159.       width = 34;
  160.       value = "";
  161.  
  162.    }
  163.  
  164.    with (this.firstVisitCheck = new CheckBox(this)){
  165.       height = 1;
  166.       top = 10;
  167.       width = 56;
  168.       text = "Is this your first visit?";
  169.       checked = false;
  170.  
  171.    }
  172.  
  173.    with (this.commentsHTML = new HTML(this)){
  174.       height = 1;
  175.       top = 11;
  176.       width = 22;
  177.       color = "black";
  178.       text = "Comments";
  179.  
  180.    }
  181.  
  182.    with (this.commentsTextArea = new TextArea(this)){
  183.       height = 5;
  184.       top = 12;
  185.       width = 60;
  186.       value = "";
  187.  
  188.    }
  189.  
  190.    with (this.submitButton = new Button(this)){
  191.       onServerClick = class::SubmitButton_onServerClick;
  192.       top = 17.5;
  193.       width = 10.5;
  194.       text = "Submit";
  195.  
  196.    }
  197.  
  198.    with (this.resetButton = new Reset(this)){
  199.       left = 16;
  200.       top = 17.5;
  201.       width = 9;
  202.       text = "Clear";
  203.  
  204.    }
  205.  
  206.    with (this.guestBookLinkImage = new Image(this)){
  207.       onImageClick = class::link_to_entries_page;
  208.       height = 3.4167;
  209.       top = 20;
  210.       width = 10.25;
  211.       dataSource = "filename GESTBK31.GIF";
  212.       alignment = 4;
  213.  
  214.    }
  215.  
  216.    with (this.guestBookLinkHTML = new HTML(this)){
  217.       height = 1;
  218.       left = 12;
  219.       top = 20;
  220.       width = 58;
  221.       color = "black";
  222.       text = "<A HREF='/svr/intrasrv.isv?apps/guestbk/entries.jrp(1,1)'>View Current Guest Book Entries</A>";
  223.  
  224.    }
  225.  
  226.    with (this.homePageLinkImage = new Image(this)){
  227.       onImageClick = class::link_to_home_page;
  228.       height = 3.4167;
  229.       top = 24;
  230.       width = 10.25;
  231.       dataSource = "filename HOMEPG31.GIF";
  232.       alignment = 4;
  233.  
  234.    }
  235.  
  236.    with (this.homePageLinkHTML = new HTML(this)){
  237.       height = 1;
  238.       left = 12;
  239.       top = 24;
  240.       width = 58;
  241.       color = "black";
  242.       text = "<A HREF='/ibapps/index.htm'>Return to Home Page</A>";
  243.  
  244.    }
  245.  
  246.    with (this.generatedHTML1 = new GeneratedHTML(this)){
  247.       height = 1;
  248.       top = 28.5;
  249.       width = 70;
  250.  
  251.    }
  252.    this.rowset = this.guest1.rowset;
  253.  
  254.    function Form_onServerLoad() {
  255.       // set default value of fields to something large
  256.       this.fullnameText.value  = new StringEx().replicate(' ',100);
  257.       this.emailText.value     = new StringEx().replicate(' ',100);
  258.       this.wherefromText.value = new StringEx().replicate(' ',100);
  259.    }
  260.  
  261.    function SubmitButton_onServerClick()
  262.    {
  263.       // make the guest query active
  264.       this.form.guest1.active = true;
  265.       // store the form's values to the table
  266.       this.form.guest1.rowset.beginAppend();
  267.       this.form.guest1.rowset.fields["VisitTime"].value  = new Date();
  268.       this.form.guest1.rowset.fields["Fullname"].value   = this.form.fullnameText.value;
  269.       this.form.guest1.rowset.fields["Email"].value      = this.form.emailText.value;
  270.       this.form.guest1.rowset.fields["WhereFrom"].value  = this.form.wherefromText.value;
  271.       this.form.guest1.rowset.fields["FirstVisit"].value = this.form.firstVisitCheck.checked;
  272.       this.form.guest1.rowset.fields["Comment"].value    = this.form.commentsTextArea.value;
  273.       // save the new row
  274.       this.form.guest1.rowset.save();
  275.       // end with the thank you form
  276.       _sys.forms.run("thanks.jfm");
  277.    }
  278.  
  279.    function link_to_home_page()
  280.    {
  281.       location.href="/ibapps/index.htm";
  282.    }
  283.  
  284.    function link_to_entries_page()
  285.    {
  286.       location.href="/svr/intrasrv.isv?apps/guestbk/entries.jrp(1,1)";
  287.    }
  288.  
  289. }
  290.