Kod: Tümünü seç
procedure TForm_Arac_Bakim_Kayit.dbGrdKazaDetayDBTableView1BAKIM_DETAY_SERVIS_IS_CINSIPropertiesEditValueChanged(
Sender: TObject);
begin
inherited;
//9 Malzeme
//35 Hizmet
if qryBakimDetayBAKIM_DETAY_SERVIS_IS_CINSI.IsNull then exit;
TcxLookupComboBox(dbGrdKazaDetayDBTableView1BAKIM_DETAY_MALZEME_ADI).Properties.ListFieldNames:='';
TcxLookupComboBox(dbGrdKazaDetayDBTableView1BAKIM_DETAY_MALZEME_ADI).Properties.KeyFieldNames:='';
TcxLookupComboBox(dbGrdKazaDetayDBTableView1BAKIM_DETAY_MALZEME_ADI).Properties.ListSource:=Nil;
if qryBakimDetayBAKIM_DETAY_SERVIS_IS_CINSI.AsInteger = 9 then
begin
TcxLookupComboBox(dbGrdKazaDetayDBTableView1BAKIM_DETAY_MALZEME_ADI).Properties.ListSource:=form_data.dsMalzemeler;
TcxLookupComboBox(dbGrdKazaDetayDBTableView1BAKIM_DETAY_MALZEME_ADI).Properties.ListFieldNames:='MALZEME_ADI';
TcxLookupComboBox(dbGrdKazaDetayDBTableView1BAKIM_DETAY_MALZEME_ADI).Properties.KeyFieldNames:='SIRA_NO';
end;
if qryBakimDetayBAKIM_DETAY_SERVIS_IS_CINSI.AsInteger = 35 then
begin
TcxLookupComboBox(dbGrdKazaDetayDBTableView1BAKIM_DETAY_MALZEME_ADI).Properties.ListSource:=form_data.dtsHizmetler;
TcxLookupComboBox(dbGrdKazaDetayDBTableView1BAKIM_DETAY_MALZEME_ADI).Properties.ListFieldNames:='ACIKLAMA';
TcxLookupComboBox(dbGrdKazaDetayDBTableView1BAKIM_DETAY_MALZEME_ADI).Properties.KeyFieldNames:='SIRA_NO';
end;
end;
Saygılar;