|
PPA,
я использую один чарт.но длякаждого случая свою серию.
FDQuery_select->Close();
FDQuery_select->Connection = FDConnection_wcdat;
FDQuery_select->Connection->DriverName="SQLite";
sq = "SELECT strftime('%H:%M:%f',hmsmsc)";
if( CheckBox_knock->Checked == true ){sq = sq + ",knock"; DF=DF+"knock;"; }
if( CheckBox_imep->Checked == true ) {sq = sq + ",imep"; DF=DF+"imep;"; }
if( CheckBox_pmax->Checked == true ) {sq = sq + ",pmax"; DF=DF+"pmax;";}
sq = sq + " FROM wcdat_cylA2";
sq = sq + " WHERE strftime('%H:%M:%S',hmsmsc) BETWEEN '"+StartTM+"'AND'"+EndTM+"'";
FDQuery_select->SQL->Clear();
FDQuery_select->DetailFields=DF;
FDQuery_select->IndexFieldNames=" strftime('%H:%M:%f',hmsmsc)";
FDQuery_select->SQL->Text = sq;
FDQuery_select->Open();
FDQuery_select->Active=true;
for (int lb =0 ; lb < FDQuery_select->RowsAffected; lb++)
{
if( CheckBox_knock->Checked == true )
{
DecodeTime(FDQuery_select->FieldByName("strftime('%H:%M:%f',hmsmsc)")->AsDateTime, Hour, Min, Sec, MSec);
dtXValue = EncodeTime(Hour, Min, Sec, MSec);
const double XVal = dtXValue;
DBChart1->Series[3]->XValues->DateTime = true;
DBChart1->Series[3]->AddXY(XVal, FDQuery_select->FieldByName("knock")->AsFloat);
}
if( CheckBox_imep->Checked == true )
{
DecodeTime(FDQuery_select->FieldByName("strftime('%H:%M:%f',hmsmsc)")->AsDateTime, Hour, Min, Sec, MSec);
dtXValue = EncodeTime(Hour, Min, Sec, MSec);
const double XVal = dtXValue;
DBChart1->Series[4]->XValues->DateTime = true;
DBChart1->Series[4]->AddXY(XVal, (FDQuery_select->FieldByName("imep")->AsFloat)/100);
}
if( CheckBox_pmax->Checked == true )
{
DecodeTime(FDQuery_select->FieldByName("strftime('%H:%M:%f',hmsmsc)")->AsDateTime, Hour, Min, Sec, MSec);
dtXValue = EncodeTime(Hour, Min, Sec, MSec);
const double XVal = dtXValue;
DBChart1->Series[5]->XValues->DateTime = true;
DBChart1->Series[5]->AddXY(XVal, (FDQuery_select->FieldByName("pmax")->AsFloat)/10);
}
FDQuery_select->Next();
}
Application->ProcessMessages();
}
//---------------------------------- CYLINDER A3 ----------------------
if(CheckBoxCyl3->Checked == true )
{
FDQuery_select->Close();
FDQuery_select->Connection = FDConnection_wcdat;
FDQuery_select->Connection->DriverName="SQLite";
sq = "SELECT strftime('%H:%M:%f',hmsmsc)";
if( CheckBox_knock->Checked == true ){sq = sq + ",knock"; DF=DF+"knock;"; }
if( CheckBox_imep->Checked == true ) {sq = sq + ",imep"; DF=DF+"imep;"; }
if( CheckBox_pmax->Checked == true ) {sq = sq + ",pmax"; DF=DF+"pmax;";}
sq = sq + " FROM wcdat_cylA3";
sq = sq + " WHERE strftime('%H:%M:%S',hmsmsc) BETWEEN '"+StartTM+"'AND'"+EndTM+"'";
FDQuery_select->SQL->Clear();
FDQuery_select->DetailFields=DF;
FDQuery_select->IndexFieldNames=" strftime('%H:%M:%f',hmsmsc)";
FDQuery_select->SQL->Text = sq;
FDQuery_select->Open();
FDQuery_select->Active=true;
for (int lb =0 ; lb < FDQuery_select->RowsAffected; lb++)
{
if( CheckBox_knock->Checked == true )
{
DecodeTime(FDQuery_select->FieldByName("strftime('%H:%M:%f',hmsmsc)")->AsDateTime, Hour, Min, Sec, MSec);
dtXValue = EncodeTime(Hour, Min, Sec, MSec);
const double XVal = dtXValue;
DBChart1->Series[6]->XValues->DateTime = true;
DBChart1->Series[6]->AddXY(XVal, FDQuery_select->FieldByName("knock")->AsFloat);
}
if( CheckBox_imep->Checked == true )
{
DecodeTime(FDQuery_select->FieldByName("strftime('%H:%M:%f',hmsmsc)")->AsDateTime, Hour, Min, Sec, MSec);
dtXValue = EncodeTime(Hour, Min, Sec, MSec);
const double XVal = dtXValue;
DBChart1->Series[7]->XValues->DateTime = true;
DBChart1->Series[7]->AddXY(XVal, (FDQuery_select->FieldByName("imep")->AsFloat)/100);
}
if( CheckBox_pmax->Checked == true )
{
DecodeTime(FDQuery_select->FieldByName("strftime('%H:%M:%f',hmsmsc)")->AsDateTime, Hour, Min, Sec, MSec);
dtXValue = EncodeTime(Hour, Min, Sec, MSec);
const double XVal = dtXValue;
DBChart1->Series[8]->XValues->DateTime = true;
DBChart1->Series[8]->AddXY(XVal, (FDQuery_select->FieldByName("pmax")->AsFloat)/10);
}
FDQuery_select->Next();
}
Application->ProcessMessages();
}
|
