checkcombobox ile gride aktarım yapma

[ozlemsaltan]

Arkadaşlar sorunum çok basit aslında ama bir türlü işin içinden çıkamadım projemi teslim etmem gerek ama bu sorun yüzünden bir türlü teslim edemiyorum.
Sorunum şu:Firma ekleme diye bir formum var. ad soyad iletişim vs bilgilerini yazıyorum. aynı zamanda bir checkcombobox var.Bunun içini ürünler tablom ile dolduruyorum. Tüm editleri doldurup bu checkcomboboxtan ürünleri tikleyip kaydete bastığımda gridde bu alanlarımı görmek istiyorum ama bir türlü işin içinden çıkamadım. checkcombobox ile girdiğim alanı gridde bir türlü gösteremiyorum. Veritabanıma bir kaydedip bir kaydetmiyor ve o olanımı hiç göstermiyor.
Yardım edersenz çok sevinirim,Kolay gelsin.

[ercanskose]

kodları paylaşırsan daha çok yardımcı olabiliriz arkadaşım.

[ozlemsaltan]

şu kaydet butonumun kodu:
procedure TFrm_Firma.Btn_KaydetClick(Sender: TObject);
var
i: integer;
ID, ID2: string;
ZQ: TZQuery;
begin
ZQ_FirmaKayit.FieldByName('ADSOYAD').AsString := ED_SpAd.Text;
ZQ_FirmaKayit.FieldByName('UNVAN').AsString := ED_SpU.Text;
ZQ_FirmaKayit.FieldByName('MAIL').AsString := ED_Mail.Text;
ZQ_FirmaKayit.FieldByName('ADRES').AsString := Memo_SpAdres.Text;
ZQ_FirmaKayit.FieldByName('TEL').AsString := MskED_Tel.Text;
ZQ_FirmaKayit.FieldByName('CEPTEL').AsString := MskED_CepTel.Text;
ZQ_FirmaKayit.FieldByName('ACIKLAMA').AsString := Memo_Not.Text;
ZQ_FirmaKayit.FieldByName('TARIH').AsDateTime := firma_tarih.Date;


BTN_FirmaEkle.Enabled := true;
//ZQ_Firma.Insert;
ZQ_FirmaKayit.FieldByName('ADSOYAD').AsString := ED_SpAd.Text;
ZQ_FirmaKayit.FieldByName('UNVAN').AsString := ED_SpU.Text;
ZQ_FirmaKayit.FieldByName('MAIL').AsString := ED_Mail.Text;
ZQ_FirmaKayit.FieldByName('ADRES').AsString := Memo_SpAdres.Text;
ZQ_FirmaKayit.FieldByName('TEL').AsString := MskED_Tel.Text;
ZQ_FirmaKayit.FieldByName('CEPTEL').AsString := MskED_CepTel.Text;
ZQ_FirmaKayit.FieldByName('ACIKLAMA').AsString := Memo_Not.Text;
ZQ_FirmaKayit.FieldByName('TARIH').AsDateTime := firma_tarih.Date;
ZQ_FirmaKayit.Post;

ZQ := TZQuery.Create(Application);
ZQ.Connection := DM.ZC_Pro;
ZQ.Close;
ZQ.SQL.Clear;
ZQ.SQL.Text := 'DELETE FROM profirma WHERE firmaID=' + ZQ_Firma.FieldByName('ID').AsString;
ZQ.ExecSQL;
ZQ.Close;
ZQ.Free;

if COB_URUN.Text <> '«Seçiniz»' then
begin
ID := '';
ID2 := '';
for i := 0 to LB_URUN.Items.Count - 1 do
if COB_URUN.States = cbsChecked then
begin
ZQ_FirmaPro.Insert;
ZQ_FirmaPro.FieldByName('firmaID').AsInteger := ZQ_Firma.FieldByName('ID').AsInteger;
ZQ_FirmaPro.FieldByName('promosyonID').AsInteger := StrToInt(LB_URUN.Items);
ZQ_FirmaPro.Post;
end;
end;


COB_urun.ItemIndex := 0;
firma_tarih.Clear;
ED_SpU.Clear;
ED_SpAd.Clear;
Memo_SpAdres.Clear;
MskED_Tel.Clear;
MskED_CepTel.Clear;
MaskEdit1.Clear;
ED_Mail.Clear;
Memo_Not.Clear;

COB_urun.Enabled := False;
firma_tarih.Enabled := False;
ED_SpU.Enabled := False;
ED_SpAd.Enabled := False;
Memo_SpAdres.Enabled := False;
MskED_Tel.Enabled := False;
MskED_CepTel.Enabled := False;
MaskEdit1.Enabled := False;
ED_Mail.Enabled := False;
Memo_Not.Enabled := False;

BTN_PromosyonTanimDuzelt.Enabled := True;
end;