Subversion Repositories DevTools

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

#include <vcl.h>
#pragma hdrstop

#include "ScenarioParameters.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Grids_ts"
#pragma link "TSDBGrid"
#pragma link "TSGrid"
#pragma resource "*.dfm"
TScenarioParamsForm *ScenarioParamsForm;
//---------------------------------------------------------------------------
__fastcall TScenarioParamsForm::TScenarioParamsForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TScenarioParamsForm::ShowForm(const AnsiString &project, int iteration, int testscenario_no)
{
        AnsiString      sql_statement;

        m_project = project;
    m_iteration = iteration;
    m_testscenario_no = testscenario_no;

        IterationParamsQuery->Close();
    sql_statement="";
    sql_statement.sprintf("SELECT * FROM ITERATION_PARAMS "
                                          "WHERE PROJECT_CODE='%s' AND ITERATION=%d AND TESTSCENARIO_NO IS NULL "
                          "ORDER BY NAME",
                                          project.c_str(), iteration);
    IterationParamsQuery->SQL->Text = sql_statement;
    IterationParamsQuery->Open();

    ScenarioParamsQuery->Close();
    sql_statement="";
    sql_statement.sprintf("SELECT * FROM ITERATION_PARAMS "
                                          "WHERE PROJECT_CODE='%s' AND ITERATION=%d AND TESTSCENARIO_NO=%d "
                          "ORDER BY NAME",
                                          project.c_str(), iteration, testscenario_no);
    ScenarioParamsQuery->SQL->Text = sql_statement;
    ScenarioParamsQuery->Open();

        ShowModal();
}

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


void __fastcall TScenarioParamsForm::IterationParamsQueryAfterInsert(
      TDataSet *DataSet)
{
        DataSet->FieldByName("PROJECT_CODE")->AsString = m_project;
    DataSet->FieldByName("ITERATION")->AsInteger = m_iteration;
    DataSet->FieldByName("TESTSCENARIO_NO")->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TScenarioParamsForm::ScenarioParamsQueryAfterInsert(
      TDataSet *DataSet)
{
        DataSet->FieldByName("PROJECT_CODE")->AsString = m_project;
    DataSet->FieldByName("ITERATION")->AsInteger = m_iteration;
    DataSet->FieldByName("TESTSCENARIO_NO")->AsInteger = m_testscenario_no;
}
//---------------------------------------------------------------------------