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

Text File | 1996-06-10 | 5.5 KB | 217 lines

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

 @begin Object "WDialog"
  WSCaption 1;
  WSSizeable 1;
  WSDlgBorder 1;
  WSSysMenu 1;
  WSSystemMenu 1;
  WSMinimizeBox 1;
  WSMaximizeBox 1;
  WSGroup 1;
  WSTabStop 1;
  WSResizeBorder 1;
  WSVisible 1;
  FormPositionType "Centered";
  FormAbsTop "173";
  FormAbsLeft "156";
  FDXStructName "WinExcel70TipsFDXStruct";
  Font "8.MS Sans Serif";
  Text "Using The Microsoft Excel 5.0 ODBC Driver";
  @begin Event "Create"
   GencodeSrcLine 175;
   FunctionName "WinExcel70Tips::WinExcel70Tips_Create";
  @end;
  @begin UserFunction "WinExcel70Tips()"
   Compiler 1;
   GencodeSrcLine 189;
   FunctionName "WinExcel70Tips::WinExcel70Tips()";
  @end;
  @begin UserFunction "~WinExcel70Tips()"
   Compiler 1;
   GencodeSrcLine 193;
   FunctionName "WinExcel70Tips::~WinExcel70Tips()";
  @end;
  ResID 105;
  DesignName WinExcel70Tips;
  TabIndex 0;
  DesignRect 46,126,264,260;
 @end;

 @begin Object "WTextBox"
  WTextBoxMultiLine 1;
  WTextBoxAutoHScroll 1;
  WTextBoxReadOnly 1;
  WCCSNoResize 1;
  WSHScroll 1;
  WSVScroll 1;
  WSBorder 1;
  WSChild 1;
  WSMinimizeBox 1;
  WSGroup 1;
  WSExClientEdge 1;
  WSVisible 1;
  FDXFieldName "textb_1_data";
  FDXFieldType "WString";
  ResID 101;
  DesignName textb_1;
  TabIndex 0;
  DesignRect 10,5,240,215;
 @end;

 @begin Object "WCommandButton"
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  FDXFieldName "cb_1_data";
  FDXFieldType "WBool";
  Text "&Help";
  @begin Event "Click"
   GencodeSrcLine 197;
   FunctionName "WinExcel70Tips::cb_Excel70Tips_help_Click";
  @end;
  ResID 102;
  DesignName cb_Excel70Tips_help;
  TabIndex 1;
  DesignRect 205,225,46,14;
 @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

static WChar *Tips[]={
    "- This example uses the Intersolv 'OEM 2.12 32-Bit Excel5WorkBook'",
    "  ODBC driver. This driver can be used with Microsoft Excel",
    "  spreadsheets created in version 5 to 7 inclusive. The spreadsheet",
    "  in this example was created in Excel 7.0 with Windows 95",
    "",
    "- The Intersolv Excel driver does not support bound updates.",
    "  That's the reason why the rows appear as read-only.",
    "  You must execute Insert and Update statements to change",
    "  data in tables.",
    "",
    "- Use named lists to create tables in your spreadsheet.",
    "  You can have more than one table in your spreadsheet.",
    "",
    "- Do not leave Excel open on your XLS file when you are connecting",
    "  to it. An ODBC error is reported when the XLS file is open in Excel.",
    "",
    "- The Intersolv Excel driver converts table names to upper case.",
    "  Either enter the name of your named lists in Excel in upper case, or",
    "  surround the table names in your query with '`' (back quote) characters.",
    "",
    "- The Database Workbook field in the setup dialog of the ODBC",
    "  Administrator for the Intersolv Excel 5.0 driver does not work as",
    "  expected. If specified, a dialog still comes up on connecting which",
    "  asks for the Excel file (but it will be initialized to the value",
    "  specified in the Database workbook field). To avoid this, set the",
    "  connection parameter for the transaction object in Optima:",
    "  database=<path_to_excel_file>.",
    "",
    "- All columns will display in the text box as strings rather than its",
    "  native type since text box can only display strings.",
    "",
    "- The Intersolv Excel driver does not contain enough ODBC 2.0 support",
    "  to enable the Optima++ SQL query editor to work properly. Queries",
    "  can be entered manually and tested in the properties page of the",
    "  query object.",

    NULL,
};


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

@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 44;
 @end;

@begin-code GeneratedClassContents

        WinExcel70Tips();
        ~WinExcel70Tips();

@end-code;

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

WinExcel70Tips::WinExcel70Tips()
{

}

@end-code;

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

WinExcel70Tips::~WinExcel70Tips()
{

}

@end-code;

@begin-code Code "WinExcel70Tips::WinExcel70Tips_Create"

WBool WinExcel70Tips::WinExcel70Tips_Create(
    WObject *               source,
    WCreateEventData *      event )
{
    int                     i;
    WString                 str;

    for( i = 0; Tips[i] != NULL; ++i ) {
        str.Concatf( "%s\r\n", Tips[i] );
    }
    textb_1->SetText( str );

    return FALSE;
}

@end-code;

@begin-code Code "WinExcel70Tips::cb_Excel70Tips_help_Click"

WBool WinExcel70Tips::cb_Excel70Tips_help_Click(
    WObject *           source,
    WEventData *        event )
{
    Application->InvokeHelp( this, WHelpContents, 0, "woxls509.hlp", GetHandle() );

    return FALSE;
}

@end-code;
@end;