Cff İle Adını Alıp Kodunu Yazdırma

Bir formda kullanıcıya gösterilen bir verinin genellikle veritabanında kodu tutulur. İşlemler kod üzerinden yürütülmektedir. Bu kodun karşılığı ise Cff ile forma aktarılmaktadır. Cff ile adını forma yazdırıp kodunu veritabanına kaydetme işlemi aşağıdaki kod bloğu ile yapılmaktadır.

 Cff:=CffCreate("Cff") 
 while Rs.MoveNext()
    cont.AddToList(Rs.Çekilen_kolon_adi)
   if Not Cff.FindEntry(Rs.Çekilen_kolon_kodu) Then 
    Cff.Add(Rs.Çekilen_kolon_kodu,Rs.Çekilen_kolon_adi)
   Endif
   if Not Cff.FindEntry(Rs.Çekilen_kolon_adi) Then 
     Cff.Add(Rs.Çekilen_kolon_adi, Rs.Çekilen_kolon_kodu)
   Endif
 Wend 

Çalışmayı bir örnek üzerinde inceleyelim

  Rs:=BuildSelectStm()
  Rs.AddTable("mlz_siniflari_satir")
  Rs.AddSelectField("malzeme_sinifi_id")  
  Rs.AddSelectField("malzeme_sinifi_adi")
  Rs.AddWhereConjunct("cid",cid)
  Rs.AddWhereConjunct("malzeme_sinifi_adi",f.malzeme_sinif_baslangic.ListSelText)
  Rs.CompileStm()
  Rs.ExecuteStm()
  Cff:=CffCreate("Cff")    
  While Rs.MoveNext()
    cont.AddToList(Rs.malzeme_sinifi_adi)
    if Not Cff.FindEntry(Rs.malzeme_sinifi_id) Then 
      Cff.Add(Rs.malzeme_sinifi_id,Rs.malzeme_sinifi_adi)
    EndIf
    if Not Cff.FindEntry(Rs.malzeme_sinifi_adi) Then 
      Cff.Add(Rs.malzeme_sinifi_adi, Rs.malzeme_sinifi_id)
    Endif
  Wend
  Rs.Close()
  cont.SelectItemInList(1)