Subversion Repositories DevTools

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvGrid"
#pragma link "BaseGrid"
#pragma link "DBAdvGrid"
#pragma link "AdvPageControl"
#pragma link "DBAdvNavigator"
#pragma link "AdvPanel"
#pragma resource "*.dfm"

#define TDBADVGRID_FIXED        1
#define INCLUDE_PARENTS         TDBADVGRID_FIXED

TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::buildTransactionSpecificationValueTree( TDBAdvGrid & grid, TADOQuery & query )
{
        grid.BeginUpdate();
        const int currentRow = query.RecNo;
        try
        {
                int children    = 0;
                const int rows  = query.RecordCount;
                for ( int where = 1; where <= rows; ++where )
                {
                        query.RecNo = where;
                        if ( ( children = query.FieldByName( "CHILD_COUNT" )->AsInteger ) > 0 )
                        {
                                grid.AddNode( where, 1 + children );
                        }
                }
        }
        __finally
        {
                grid.ContractAll();
                query.RecNo = currentRow;
                grid.EndUpdate();
        }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::populatePayloadStructureTab( const AnsiString & structure )
{
        AnsiString      sqlStatement;

        PayloadStructureTabSheet->TabVisible = true;
        PayloadStructureTabSheet->Caption = structure;

        TxnValuesQuery->Close();
#if TDBADVGRID_FIXED
        NewPayloadStructureGrid->RemoveAllNodes();
#endif
        sqlStatement.sprintf(
                "SELECT "
                        "XPATH,"
                        "FIELDNAME,"
                        "FIELDVALUE,"
                        "USER_SUPPLIED,"
                        "ORDINAL,"
                        "CHILD_COUNT "
                "FROM "
                        "TXNSPEC_VALUES "
#if !INCLUDE_PARENTS
                "WHERE "
                        "CHILD_COUNT=0 "
#endif
                "ORDER BY "
                        "ORDINAL" );

        TxnValuesQuery->SQL->Text = sqlStatement;
        TxnValuesQuery->Open();

#if TDBADVGRID_FIXED
        buildTransactionSpecificationValueTree( *NewPayloadStructureGrid, *TxnValuesQuery );
#endif
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormShow(TObject *Sender)
{
        IntegrationDBConnection->Open( "Admin", "" );

        populatePayloadStructureTab( "TDBAdvGrid Test" );
}
//---------------------------------------------------------------------------