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

Text File | 1996-09-16 | 7.8 KB | 379 lines

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

 @begin Object "WModelessDialog"
  WSDlgBorder 1;
  WSDlgFrame 1;
  WSSysMenu 1;
  WSSystemMenu 1;
  WSMinimizeBox 1;
  WSGroup 1;
  WSVisible 1;
  Font "8.MS Sans Serif";
  Icon "WIcon( WResourceID( ICON_PROGRAM ) )";
  FormPositionType "Centered";
  FormAbsTop "163";
  FormAbsLeft "68";
  FDXStructName "Form1FDXStruct";
  Text "Database Order Entry";
  @begin Event "Close"
   GencodeSrcLine 220;
   FunctionName "Form_Main::Form_Main_Close";
  @end;
  @begin Event "Create"
   GencodeSrcLine 248;
   FunctionName "Form_Main::Form_Main_Create";
  @end;
  @begin Event "Destroy"
   GencodeSrcLine 271;
   FunctionName "Form_Main::Form_Main_Destroy";
  @end;
  @begin UserFunction "Form_Main()"
   Compiler 1;
   GencodeSrcLine 279;
   FunctionName "Form_Main::Form_Main()";
  @end;
  @begin UserFunction "~Form_Main()"
   Compiler 1;
   GencodeSrcLine 283;
   FunctionName "Form_Main::~Form_Main()";
  @end;
  ResID 101;
  DesignName Form_Main;
  TabIndex 0;
  DesignRect 68,168,212,121;
 @end;

 @begin Object "WPictureButton"
  WBSBitmap 1;
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  ToolTipText "Click here for a list of customers";
  @begin Event "Click"
   GencodeSrcLine 287;
   FunctionName "Form_Main::pictbttn_Customers_Click";
  @end;
  ResID 101;
  DesignName pictbttn_Customers;
  TabIndex 0;
  DesignRect 5,10,55,30;
  @begin ComponentData "pictbttn_Customers"
   Picture "WBitmap( WResourceID( BITMAP_CUSTOMERS ) )";
  @end;
 @end;

 @begin Object "WPictureButton"
  WBSBitmap 1;
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  ToolTipText "Click here for a list of products";
  @begin Event "Click"
   GencodeSrcLine 295;
   FunctionName "Form_Main::pictbttn_Products_Click";
  @end;
  ResID 102;
  DesignName pictbttn_Products;
  TabIndex 1;
  DesignRect 75,10,54,30;
  @begin ComponentData "pictbttn_Products"
   Picture "WBitmap( WResourceID( BITMAP_PRODUCTS ) )";
  @end;
 @end;

 @begin Object "WPictureButton"
  WBSBitmap 1;
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  ToolTipText "Click here for a list of orders";
  @begin Event "Click"
   GencodeSrcLine 303;
   FunctionName "Form_Main::pictbttn_Orders_Click";
  @end;
  ResID 103;
  DesignName pictbttn_Orders;
  TabIndex 2;
  DesignRect 145,10,54,31;
  @begin ComponentData "pictbttn_Orders"
   Picture "WBitmap( WResourceID( BITMAP_ORDERS ) )";
  @end;
 @end;

 @begin Object "WFormProxy"
  FormClass "Form_Customers";
  ResID 104;
  DesignName form_Customers;
  TabIndex 3;
  DesignRect 30,85,14,14;
 @end;

 @begin Object "WLabel"
  WSSNotify 1;
  WSChild 1;
  WSExClientEdge 1;
  WSVisible 1;
  Text "See the file Readme.txt in the sample source for information on the code in this sample.  (In Optima++, open the Files view and double click on the Readme.txt file).";
  ResID 105;
  DesignName label_Comments;
  TabIndex 4;
  DesignRect 0,50,205,35;
 @end;

 @begin Object "WTransaction"
  AccessMode "WTAMReadOnly";
  AutoCommit "0";
  DataSource "Optima++ 1.0 Order Entry Sample";
  DisplayWarningDialog "1";
  Password "sql";
  Userid "dba";
  AutoConnect "0";
  ResID 106;
  DesignName transaction_OrderEntry;
  TabIndex 5;
  DesignRect 5,85,14,14;
 @end;

 @begin Object "WGroupBox"
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WCCSNoResize 1;
  WSChild 1;
  WSVisible 1;
  Text "Customers";
  ResID 107;
  DesignName groupb_Customers;
  TabIndex 6;
  DesignRect 0,0,65,45;
 @end;

 @begin Object "WGroupBox"
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WCCSNoResize 1;
  WSChild 1;
  WSVisible 1;
  Text "Products";
  ResID 108;
  DesignName groupb_Products;
  TabIndex 7;
  DesignRect 70,0,65,45;
 @end;

 @begin Object "WGroupBox"
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WCCSNoResize 1;
  WSChild 1;
  WSVisible 1;
  Text "Orders";
  ResID 109;
  DesignName groupb_Orders;
  TabIndex 8;
  DesignRect 140,0,65,45;
 @end;

 @begin Object "WFormProxy"
  FormClass "Form_Products";
  ResID 110;
  DesignName form_Products;
  TabIndex 9;
  DesignRect 55,85,14,14;
 @end;

 @begin Object "WFormProxy"
  FormClass "Form_Orders";
  ResID 111;
  DesignName form_Orders;
  TabIndex 10;
  DesignRect 80,85,14,14;
 @end;

 @begin HPPPrefixBlock
@begin-code HPPPrefix

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

@end-code;
  GencodeSrcLine 14;
 @end;

 @begin CPPPrefixBlock
@begin-code CPPPrefix

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

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

#include "KeyTable.hpp"
#include "SQLAnyUtil.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 66;
 @end;

@begin-code GeneratedClassContents

        Form_Main();
        ~Form_Main();

@end-code;

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

@@CLASSNAME@::@CLASSNAME@()
{

}

@end-code;

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

@@CLASSNAME@::~@CLASSNAME@()
{

}

@end-code;

@begin-code Code "Form_Main::Form_Main_Close"

WBool @CLASSNAME@::Form_Main_Close(
    WObject *           source,
    WEventData *        event )
{
    WBool               cancelClose = false;
    WMessageBoxReturn   result;

    result = WMessageBox::Message(
        this,
        WMBLevelInfo,
        WMBButtonYesNoCancel,
        GetText(),
        "Do you want to save (commit) your changes?",
        WMBDefault2 );

    switch( result ) {
    case WMBReturnYes:
        transaction_OrderEntry->Commit();
        break;
    case WMBReturnNo:
        transaction_OrderEntry->Rollback();
        break;
    default:
        cancelClose = true;
    }

    return cancelClose;
}

@end-code;

@begin-code Code "Form_Main::Form_Main_Create"

WBool @CLASSNAME@::Form_Main_Create(
    WObject *               source,
    WCreateEventData *      event )
{
    WString                 command;
    const WString           DSN( "Optima++ 1.0 Order Entry Sample" );
    WFilePath               path;

    // Register the ODBC data source for this sample.
    // (The database is actually the standard SQL Anywhere sample database,
    // but this shows you how to register a data source as part of an application).

    if( !SQLAnyUtil::DataSourceExists( DSN ) ){
        path = SQLAnyUtil::GetSampleDBPath();
        SQLAnyUtil::DataSourceAdd( DSN, path );
    }

    transaction_OrderEntry->Connect( this );

    KeyTable::Create( transaction_OrderEntry );

    return FALSE;
}

@end-code;

@begin-code Code "Form_Main::Form_Main_Destroy"

WBool @CLASSNAME@::Form_Main_Destroy(
    WObject *           source,
    WEventData *        event )
{
    transaction_OrderEntry->Disconnect();

    return FALSE;
}

@end-code;

@begin-code Code "Form_Main::pictbttn_Customers_Click"

WBool @CLASSNAME@::pictbttn_Customers_Click(
    WObject *           source,
    WEventData *        event )
{
    form_Customers->Open( this );

    return FALSE;
}

@end-code;

@begin-code Code "Form_Main::pictbttn_Products_Click"

WBool @CLASSNAME@::pictbttn_Products_Click(
    WObject *           source,
    WEventData *        event )
{
    form_Products->Open( this );

    return FALSE;
}

@end-code;

@begin-code Code "Form_Main::pictbttn_Orders_Click"

WBool @CLASSNAME@::pictbttn_Orders_Click(
    WObject *           source,
    WEventData *        event )
{
    form_Orders->Open( this );

    return FALSE;
}

@end-code;
@end;