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)
