io Programmo 10/ioProg_10.iso/soft/optima/samples.z/Form2.wxf

Text File | 1996-06-17 | 4.8 KB | 224 lines

Save Format v1.3
@begin Form "Form2"
 Exported 0;

 @begin Object "WDialog"
  WSCaption 1;
  WSDlgBorder 1;
  WSSysMenu 1;
  WSSystemMenu 1;
  WSVisible 1;
  FormPositionType "Centered";
  FormAbsTop "115";
  FormAbsLeft "386";
  FDXStructName "Form2FDXStruct";
  Font "8.MS Sans Serif";
  Text "Programming Tips";
  @begin Event "Create"
   GencodeSrcLine 174;
   FunctionName "Form2::Form2_Create";
  @end;
  @begin UserFunction "Form2()"
   Compiler 1;
   GencodeSrcLine 185;
   FunctionName "Form2::Form2()";
  @end;
  @begin UserFunction "~Form2()"
   Compiler 1;
   GencodeSrcLine 189;
   FunctionName "Form2::~Form2()";
  @end;
  ResID 102;
  DesignName Form2;
  TabIndex 0;
  DesignRect 413,36,262,259;
 @end;

 @begin Object "WCommandButton"
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  FDXFieldName "cb_1_data";
  FDXFieldType "WBool";
  Text "OK";
  @begin Event "Click"
   GencodeSrcLine 193;
   FunctionName "Form2::cb_1_Click";
  @end;
  ResID 101;
  DesignName cb_1;
  TabIndex 0;
  DesignRect 135,215,50,15;
 @end;

 @begin Object "WCommandButton"
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  FDXFieldName "cb_2_data";
  FDXFieldType "WBool";
  Text "Help";
  @begin Event "Click"
   GencodeSrcLine 201;
   FunctionName "Form2::cb_2_Click";
  @end;
  ResID 102;
  DesignName cb_2;
  TabIndex 1;
  DesignRect 195,215,50,15;
 @end;

 @begin Object "WTextBox"
  WTextBoxMultiLine 1;
  WTextBoxAutoVScroll 1;
  WTextBoxAutoHScroll 1;
  WTextBoxReadOnly 1;
  WCCSNoResize 1;
  WCCSNoDivider 1;
  WSBorder 1;
  WSChild 1;
  WSExClientEdge 1;
  WSVisible 1;
  FDXFieldName "textb_1_data";
  FDXFieldType "WString";
  ResID 103;
  DesignName textb_1;
  TabIndex 2;
  DesignRect 10,10,235,195;
 @end;

 @begin HPPPrefixBlock
@begin-code HPPPrefix

// Declarations added here will be included at the top of the .HPP file

@end-code;
  GencodeSrcLine 10;
 @end;

 @begin CPPPrefixBlock
@begin-code CPPPrefix

// Code added here will be included at the top of the .CPP file

#include "applic.hpp"
#include "main.hpp"

static WChar* tips[] = {
    "- The 32 bit ODBC driver for Access is shipped with MS Access 7.0.",
    "  To install the driver, do the following:",
    "  * Run Access 7.0 Setup",
    "  * Select custom installation if you are installing Access for the first time.",
    "  * If you already have Access install, choose Add/Remove.",
    "  * In the install options dialog, check the \"data access\" box, then",
    "    click \"change option...\"",
    "  * In the data access option dialog, check the \"Microsoft Destop ODBC",
    "    driver\" checkbox.",
    "  * Click OK and continue. Access will install the ODBC driver for you",
    "",
    "  After installing the driver, run the ODBC Administrator and add your",
    "  MS Access database as a data source using the newly added driver.",
    "  You are now ready to use your Access database as a data source in",
    "  Optima++'s transaction object.",
    "",
    "- Some tips on accessing an Access database in Optima++:",
    "  * The Yes/No type in Acess returns 1/0 in Optima++.",
    "    For example, if you bind a Yes/No column to a checkbox, makesure",
    "    the DataValueChecked property of the checkbox is set to 1/0.",
    "  * Put single quotes around colum names that has space in them.",
    NULL };


//  Include definitions for resources.
#include "WRes.h"

@end-code;
  GencodeSrcLine 10;
 @end;

 @begin ClassContentsBlock
@begin-code ClassContents

    public:
        // add your public instance data here
    private:
        // add your private instance data here
    protected:
        // add your protected instance data here

@end-code;
  GencodeSrcLine 47;
 @end;

@begin-code GeneratedClassContents

        Form2();
        ~Form2();

@end-code;

@begin-code Code "Form2::Form2()"

Form2::Form2()
{

}

@end-code;

@begin-code Code "Form2::~Form2()"

Form2::~Form2()
{

}

@end-code;

@begin-code Code "Form2::Form2_Create"

WBool Form2::Form2_Create(
    WObject *                 source,
    WCreateEventData *        event )
{
    WString str;
    for ( int i = 0; tips[i] != NULL; i++ ) {
        str.Concatf("%s\r\n",tips[i]);
    }
    textb_1->SetText(str);
    return FALSE;
}

@end-code;

@begin-code Code "Form2::cb_1_Click"

WBool Form2::cb_1_Click(
    WObject *           source,
    WEventData *        event )
{
    Destroy();

    return FALSE;
}

@end-code;

@begin-code Code "Form2::cb_2_Click"

WBool Form2::cb_2_Click(
    WObject *           source,
    WEventData *        event )
{
    static const char* helpkey = "ODBC driver";
    Application->InvokeHelp(this, WHelpPartialKey, (WULong) helpkey, "msaccess.hlp", GetHandle() );
    return FALSE;
}

@end-code;
@end;