Blame | Last modification | View Log | RSS feed
//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "TransactionConfig.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TTxnConfig *TxnConfig;//---------------------------------------------------------------------------__fastcall TTxnConfig::TTxnConfig(TComponent* Owner): TForm(Owner){}//---------------------------------------------------------------------------bool TTxnConfig::ShowForm(const AnsiString& project_code, int iteration, const AnsiString &testcase_text){bool result = false;AnsiString sql_statement;m_selected_txns.clear();TransactionList->Clear();sql_statement.sprintf("SELECT * FROM MASS_TXNS ""WHERE PROJECTCODE='%s' ""AND ITERATION=%d ""ORDER BY NAME",project_code.c_str(), iteration);MASSTxnQuery->SQL->Text = sql_statement;MASSTxnQuery->Open();while (!MASSTxnQuery->Eof){unsigned short udtype = MASSTxnQuery->FieldByName("UDTYPE")->AsInteger;unsigned short udsubtype = MASSTxnQuery->FieldByName("UDSUBTYPE")->AsInteger;unsigned int txn_index = (udtype << 16) + udsubtype;TransactionList->AddItem(MASSTxnQuery->FieldByName("NAME")->AsString, (TObject *)txn_index);MASSTxnQuery->Next();}AnsiString caption;caption.sprintf("Project: %s - Iteration: %d", project_code.c_str(), iteration);TitlePanel->Caption = caption;TestCasePanel->Caption = testcase_text;if (ShowModal() == mrOk){result = true;}return result;}//---------------------------------------------------------------------------void __fastcall TTxnConfig::TransactionListClickCheck(TObject *Sender){if (TransactionList->Checked[TransactionList->ItemIndex]){unsigned int txnindex = (int)(TransactionList->Items->Objects[TransactionList->ItemIndex]);m_selected_txns.push_back(txnindex);}else{vector<unsigned int>::iterator itr = m_selected_txns.begin();unsigned int txnindex = (int)(TransactionList->Items->Objects[TransactionList->ItemIndex]);while (itr != m_selected_txns.end()){if (txnindex == (*itr)){m_selected_txns.erase(itr);break;}++itr;}}}//---------------------------------------------------------------------------vector<unsigned int> &TTxnConfig::getSelectedTxns(){return m_selected_txns;}//---------------------------------------------------------------------------