WebSVN – DevTools – Diff – /TxnTestManager/branches/Stockholm/src/ttm/Main.cpp



 //   }
    
 //   TxnStepsQuery->Open();
 
 
 //        MainStatusBar->Panels->Items[ g_messagePanel ]->Text = "posting txn steps";
 //                 Application->ProcessMessages();
 
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::TxnStepsNewRow(TDataSet *DataSet)
{
 /*   AnsiString message;
    message = "Record " + IntToStr(TxnStepsQuery->RecNo) + " of " + IntToStr(TxnStepsQuery->RecordCount);
 
          MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
                  Application->ProcessMessages();
  */    
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::StepsGridNewRow (TObject *Sender, int ARow)
{
/*    AnsiString message;
    message = "new grid row at  " + IntToStr(ARow);
 
         MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
                  Application->ProcessMessages();
 
*/
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::StepsGridRowChanging(TObject *Sender,
      int OldRow, int NewRow, bool &Allow)
{
 /*   AnsiString message;
    message = "chnaged grid row at  " + IntToStr(NewRow);
 
         MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;
                  Application->ProcessMessages();
 //Application->MessageBox(message.c_str(),"hello box",NULL);
 */
 
   // TestCaseGridRowChanging(Sender, 0, 1, Allow);
 
}
//---------------------------------------------------------------------------

 
void __fastcall TMainForm::TestCaseQueryBeforePost(TDataSet *DataSet)
{
   DataSet->FieldByName("USECASE_ID")->AsString = DataSet->FieldByName("TESTCASE_ID")->AsString;
   if( DataSet->FieldByName("CASE_REPEAT")->AsInteger < 1) DataSet->FieldByName("CASE_REPEAT")->AsInteger = 1;
   if( DataSet->FieldByName("REPEAT_DELAY")->AsInteger > 3600) DataSet->FieldByName("REPEAT_DELAY")->AsInteger = 3600;
   if( DataSet->FieldByName("BATCH_SIZE")->AsInteger < 1) DataSet->FieldByName("BATCH_SIZE")->AsInteger = 99;
}
//---------------------------------------------------------------------------
 
 

Subversion Repositories DevTools

(root)/TxnTestManager/branches/Stockholm/src/ttm/Main.cpp – Rev 2267 → 2269

Rev 2267		Rev 2269
Line 529...		Line 529...
529	`// }`	529	`// }`
530		530
531	`// TxnStepsQuery->Open();`	531	`// TxnStepsQuery->Open();`
532		532
533		533
534	`MainStatusBar->Panels->Items[ g_messagePanel ]->Text = "posting txn steps";`	534	`// MainStatusBar->Panels->Items[ g_messagePanel ]->Text = "posting txn steps";`
535	`Application->ProcessMessages();`	535	`// Application->ProcessMessages();`
536		536
537	`}`	537	`}`
538	`//---------------------------------------------------------------------------`	538	`//---------------------------------------------------------------------------`
539		539
540	`void __fastcall TMainForm::TxnStepsNewRow(TDataSet *DataSet)`	540	`void __fastcall TMainForm::TxnStepsNewRow(TDataSet *DataSet)`
541	`{`	541	`{`
542	`AnsiString message;`	542	`/* AnsiString message;`
543	`message = "Record " + IntToStr(TxnStepsQuery->RecNo) + " of " + IntToStr(TxnStepsQuery->RecordCount);`	543	`message = "Record " + IntToStr(TxnStepsQuery->RecNo) + " of " + IntToStr(TxnStepsQuery->RecordCount);`
544		544
545	`MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;`	545	`MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;`
546	`Application->ProcessMessages();`	546	`Application->ProcessMessages();`
547		547	`*/`
548	`}`	548	`}`
549	`//---------------------------------------------------------------------------`	549	`//---------------------------------------------------------------------------`
550		550
551	`void __fastcall TMainForm::StepsGridNewRow (TObject *Sender, int ARow)`	551	`void __fastcall TMainForm::StepsGridNewRow (TObject *Sender, int ARow)`
552	`{`	552	`{`
553	`AnsiString message;`	553	`/* AnsiString message;`
554	`message = "new grid row at " + IntToStr(ARow);`	554	`message = "new grid row at " + IntToStr(ARow);`
555		555
556	`MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;`	556	`MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;`
557	`Application->ProcessMessages();`	557	`Application->ProcessMessages();`
558		-
559		558	`*/`
560		-
561		559
562	`}`	560	`}`
563	`//---------------------------------------------------------------------------`	561	`//---------------------------------------------------------------------------`
564		562
565	`void __fastcall TMainForm::StepsGridRowChanging(TObject *Sender,`	563	`void __fastcall TMainForm::StepsGridRowChanging(TObject *Sender,`
566	`int OldRow, int NewRow, bool &Allow)`	564	`int OldRow, int NewRow, bool &Allow)`
567	`{`	565	`{`
568	`AnsiString message;`	566	`/* AnsiString message;`
569	`message = "chnaged grid row at " + IntToStr(NewRow);`	567	`message = "chnaged grid row at " + IntToStr(NewRow);`
570		568
571	`MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;`	569	`MainStatusBar->Panels->Items[ g_messagePanel ]->Text = message;`
572	`Application->ProcessMessages();`	570	`Application->ProcessMessages();`
573	`//Application->MessageBox(message.c_str(),"hello box",NULL);`	571	`//Application->MessageBox(message.c_str(),"hello box",NULL);`
-		572	`*/`
574		573
575	`// TestCaseGridRowChanging(Sender, 0, 1, Allow);`	574	`// TestCaseGridRowChanging(Sender, 0, 1, Allow);`
576		575
577	`}`	576	`}`
578	`//---------------------------------------------------------------------------`	577	`//---------------------------------------------------------------------------`
Line 4258...		Line 4257...
4258		4257
4259	`void __fastcall TMainForm::TestCaseQueryBeforePost(TDataSet *DataSet)`	4258	`void __fastcall TMainForm::TestCaseQueryBeforePost(TDataSet *DataSet)`
4260	`{`	4259	`{`
4261	`DataSet->FieldByName("USECASE_ID")->AsString = DataSet->FieldByName("TESTCASE_ID")->AsString;`	4260	`DataSet->FieldByName("USECASE_ID")->AsString = DataSet->FieldByName("TESTCASE_ID")->AsString;`
4262	`if( DataSet->FieldByName("CASE_REPEAT")->AsInteger < 1) DataSet->FieldByName("CASE_REPEAT")->AsInteger = 1;`	4261	`if( DataSet->FieldByName("CASE_REPEAT")->AsInteger < 1) DataSet->FieldByName("CASE_REPEAT")->AsInteger = 1;`
4263	`if( DataSet->FieldByName("REPEAT_DELAY")->AsInteger > 360) DataSet->FieldByName("REPEAT_DELAY")->AsInteger = 360;`	4262	`if( DataSet->FieldByName("REPEAT_DELAY")->AsInteger > 3600) DataSet->FieldByName("REPEAT_DELAY")->AsInteger = 3600;`
4264	`if( DataSet->FieldByName("BATCH_SIZE")->AsInteger < 1) DataSet->FieldByName("BATCH_SIZE")->AsInteger = 99;`	4263	`if( DataSet->FieldByName("BATCH_SIZE")->AsInteger < 1) DataSet->FieldByName("BATCH_SIZE")->AsInteger = 99;`
4265	`}`	4264	`}`
4266	`//---------------------------------------------------------------------------`	4265	`//---------------------------------------------------------------------------`
4267		4266
4268		4267