1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| WITH DataModule1.QAfficheMaterielRoulant2 DO
BEGIN
SQL.Clear;
x:=0;
SQL.add('SELECT * FROM ID_Materiel_Roulant M ');
SQL.Add(' INNER JOIN Param_LCC L ON M.ID_Engin = L.ID_Engin_FK1');
SQL.Add(' INNER JOIN ID_M I ON M.ID_Engin = I.ID_Engin_FK2');
SQL.Add(' INNER JOIN Operational_Unit O ON L.Operational_Def = O.Unite_Operationnelle');
SQL.Add(' INNER JOIN Currency C ON L.Currency_Name = C.Currency_Name');
SQL.Add(' INNER JOIN Energy_Unit E ON L.Definition_Energie_FK1 = E.Definition_Energie');
SQL.Add('WHERE M.ID_Engin = '+ QuotedStr(ComboBox1.Items[ComboBox1.ItemIndex]));
SQL.Add('AND Niveau_M <> 6 ');
SQL.Add('ORDER BY I.Pas_nominal ASC');
Open;
First;
WHILE NOT DataModule1.QAfficheMaterielRoulant2.eof DO
BEGIN
Responsable_Label.Caption := combobox1.Items[combobox1.ItemIndex];
ListBoxMP.Items.Add(FieldByName('Nom_Pas').AsString);
NumProj_Edit.Text := FieldByName('ID_Projet').AsString;
NomProj_Edit.Text := FieldByName('Nom_Projet').AsString;
IDLoco_Edit.Text := FieldByName('ID_Engin').AsString;
NbLocoParc_Edit.Text := FieldByName('Nb_Loco_Parc').Value;
TypeMaterielRoulant_ComboBox.Text := FieldByName('ID_MaterielRoulant').AsString;
PeriodeLCC_Edit.Text := FieldByName('Periode_LCC').Value;
//NbKmAn_Edit.Text := FormatFloat('###,###,###,00',FieldByName('Nb_Km_Annuel').AsFloat);
NbKmAn_Edit.Text := FieldByName('Nb_Km_Annuel').Value;
EnergyDescription_ComboBox.Text:= FieldByName('Definition_Energie').Value;
DateLCC_Edit.Text := FieldByName('Date_Depart_LCC').Value;
CmoyEnergie_Edit.Text := FieldByName('Cout_Energie').Value;
CurName_Combo.Text := FieldByName('Currency_Name').AsString;
CurValue_Edit.Text := FieldByName('Currency_ValueEuro').Value;
CurUnit_Edit.Text := FieldByName('Currency_Unit').AsString;
AbbEnergie_Edit.Text := FieldByName('Unite_Energie').AsString;
ValeurRefEnergie_Edit.Text := FieldByName('ValeurRef').Value;
Operational_ComboBox.Text := FieldByName('Unite_Operationnelle').AsString;
OpAcr_Edit.Text := FieldByName('Operational_Acronym').AsString;
MoeCh_Edit.Text := FieldByName('MOE_CostHour').Value;
MoeUh_Edit.Text := FieldByName('Currency_Unit').AsString;
Responsable_Edit.Text := FieldByName('Responsable_CIM').AsString;
RCA_Edit.Text := FieldByName('RCA').AsString;
RespMaint_Edit.Text := FieldByName('Responsable_Maintenance').AsString;
Next;
END;
END; |
Partager