Subversion Repositories DevTools

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

#include <vcl.h>
#pragma hdrstop

#include <vector>
#include <sstream>
#include "IterationConfig.h"
#include "DataModule.h"
#include "Main.h"
#include "Utilities.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Grids_ts"
#pragma link "TSDBGrid"
#pragma link "TSGrid"
#pragma link "AdvGrid"
#pragma link "BaseGrid"
#pragma link "DBAdvGrd"
#pragma link "DBAdvGrid"
#pragma link "DBAdvGrd"
#pragma link "DBAdvNavigator"
#pragma resource "*.dfm"
TIterationConfigForm *IterationConfigForm;
//---------------------------------------------------------------------------
__fastcall TIterationConfigForm::TIterationConfigForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TIterationConfigForm::CloseBtnClick(TObject *Sender)
{
        IterationsQuery->Post();
        IterationsQuery->Close();

        Close();
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::ShowForm(const AnsiString &project_code)
{
        m_currentproject = project_code;

    AnsiString sql_statement;
        sql_statement.sprintf(
                "SELECT * FROM ITERATIONS WHERE PROJECT_CODE='%s' ORDER BY ITERATION",
                Utilities::EscapeString( m_currentproject ).c_str() );
        IterationsQuery->SQL->Text = sql_statement;

    IterationsQuery->Open();

    ShowModal();
}
//---------------------------------------------------------------------------

const bool __fastcall TIterationConfigForm::getSchemaDetails(
                                                AnsiString & schemaVersion,
                                                const AnsiString &      currentProject,
                                                const int &                     currentIteration )
{
        int matches = 0;

        std::string project;
        std::string majorVersion;
        std::string minorVersion;
        std::string patch;

        std::vector< std::string > schemas;

        if ( MainForm->XMLSchema->GetSchemas( schemas ) )
        {
                for ( std::vector< std::string >::iterator where = schemas.begin();
                          where != schemas.end();
                          ++where )
                {
                        if ( where->find( MASSUDWriter ) == 0 )
                        {
                                if ( MainForm->XMLSchema->GetAttributeProperty( *where, "project", project ) &&
                                         MainForm->XMLSchema->GetAttributeProperty( *where, "majorversion", majorVersion ) &&
                                         MainForm->XMLSchema->GetAttributeProperty( *where, "minorversion", minorVersion ) &&
                                         MainForm->XMLSchema->GetAttributeProperty( *where, "patch", patch ) )
                                {
                                        if ( ( currentProject == AnsiString( project.c_str() ).UpperCase() ) &&
                                                 ( currentIteration == atoi( majorVersion.c_str() ) ) )
                                        {
                                                if ( !matches++ )
                                                {
                                                        schemaVersion.sprintf( "%d.%d.%d.%s",
                                                                atoi( majorVersion.c_str() ),
                                                                atoi( minorVersion.c_str() ),
                                                                atoi( patch.c_str() ),
                                                                project.c_str() );
                                                }
                                        }
                                }
                        }
                }
        }

        if ( matches < 1 )
        {
                std::stringstream stream;
                stream
                        << "No schema found for \"" << currentProject.c_str() << "\" iteration " << currentIteration << ".  "
                        << "Please update \"" << MainForm->XMLSchema->Profile.c_str() << "\" such that exactly one " << MASSUDWriter << " schema is loaded for \"" << currentProject.c_str() << "\" iteration " << currentIteration << '.';
                MessageDlg(
                        stream.str().c_str(),
                        mtError, TMsgDlgButtons() << mbOK, 0 );
        }
        else if ( matches > 1 )
        {
                std::stringstream stream;
                stream
                        << "Found " << matches << " schemas for \"" << currentProject.c_str() << "\" iteration " << currentIteration << ".  "
                        << "There may be only one " << MASSUDWriter << " schema for an iteration.  "
                        << "Please update \"" << MainForm->XMLSchema->Profile.c_str() << "\" such that exactly one " << MASSUDWriter << " schema is loaded for \"" << currentProject.c_str() << "\" iteration " << currentIteration << '.';
                MessageDlg(
                        stream.str().c_str(),
                        mtError, TMsgDlgButtons() << mbOK, 0 );
        }

        return ( matches == 1 );
}
//---------------------------------------------------------------------------

const bool __fastcall TIterationConfigForm::getUsername( AnsiString & usename )
{
        char name[ 256 ];
        unsigned long size = sizeof( name );
        if ( GetUserName( name, &size ) )
        {
                usename = name;
                return ( true );
        }

        return ( false );
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::IterationsQueryAfterInsert(
          TDataSet *DataSet)
{
        DataSet->FieldByName("PROJECT_CODE")->AsString = m_currentproject;

        AnsiString name;
        if ( getUsername( name ) )
        {
                DataSet->FieldByName( "USERNAME" )->AsString = name;
        }
}
//---------------------------------------------------------------------------


void __fastcall TIterationConfigForm::IterationsQueryBeforeDelete(
          TDataSet *DataSet)
{
        /*
         *      Delete all the data that exists for this iteration.  They will
         *      already have confirmed that they wish to delete this iteration.
         */
        
        const AnsiString iteration              = DataSet->FieldValues[ "ITERATION" ];
        const AnsiString projectCode    = DataSet->FieldValues[ "PROJECT_CODE" ];

        DeleteIterationProcedure->Parameters->ParamValues[ "iteration" ] = iteration;
        DeleteIterationProcedure->Parameters->ParamValues[ "projectCode" ] = projectCode;
        DeleteIterationProcedure->ExecProc();
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::FormShow(TObject *Sender)
{
        Apply->Enabled = ( IterationsQuery->State == dsEdit );
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::StoragePathChange(TObject *Sender)
{
        Apply->Enabled = ( IterationsQuery->State == dsEdit );
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::NotesChange(TObject *Sender)
{
        Apply->Enabled = ( IterationsQuery->State == dsEdit );
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::OKClick(TObject *Sender)
{
        if ( IterationsQuery->State == dsEdit )
        {
                IterationsQuery->Post();
        }
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::ApplyClick(TObject *Sender)
{
        if ( IterationsQuery->State == dsEdit )
        {
                IterationsQuery->Post();
        }

        Apply->Enabled = ( IterationsQuery->State == dsEdit );
}
//---------------------------------------------------------------------------

void __fastcall TIterationConfigForm::IterationsDataSourceUpdateData(
          TObject *Sender)
{
        AnsiString name;
        if ( getUsername( name ) )
        {
                IterationsQuery->FieldByName( "USERNAME" )->AsString = name;
        }
        
        AnsiString schemaVersion;
        if ( getSchemaDetails(
                        schemaVersion,
                        m_currentproject.UpperCase(),
                        IterationsQuery->FieldByName( "ITERATION" )->AsInteger ) )
        {
                IterationsQuery->FieldByName( "SCHEMA_VERSION" )->AsString = schemaVersion;
        }
}
//---------------------------------------------------------------------------