Voila j'ai un code dans une procedure avec une table paradox:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 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; WHILE x < DataModule1.QAfficheMaterielRoulant2.RecordCount 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 := 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; x := x + 1 ; DataModule1.QAfficheMaterielRoulant2.MoveBy(1); END;
Je voudrais savoir qu'est ce qu'il va changer concretement si je passe en table MySQL ?????
(apart les composants TQuery etc...)
Partager