1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| ADOConnection1->Open();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from Mutations where Matricule="+ComboBox1->Text);
ADOQuery1->Prepared=true;
ADOQuery1->Open();
for(int i=1;i<=25;i++){
if (ADOQuery1->Fields->FieldByNumber(i)->Value.IsNull()) {
TEdit *edt = (TEdit*) frmmrl->FindComponent( "Edit" + IntToStr(i) ) ;
edt->Text ="--------";
}
else{
TEdit *edt = (TEdit*) frmmrl->FindComponent( "Edit" + IntToStr(i) ) ;
edt->Text = ADOQuery1->Fields->FieldByNumber(i)->Value;
}
}
ADOQuery1->Close();
ADOConnection1->Close(); |