Konu: BtCombo Nesnesine Aktif Kodlama İle DeğerDoldurma

Tanım: Programlarımıza bulunan açılır menü (BtCombo)nesnelerine sabit değerler ya da veri tabanından bir tablodaki kayıtlar iledoldurulması sağlanır.

Örnek Uygulamalar:

Senaryo 1 : Sevkiyat Şekli olarak eklenen belge özel kodalanına müşteri isteğine göre Kendi Aracımız, Alıcının Aracı, Sevkiyat Firmasıgibi seçenekler eklenmesi.

FormunPublic.OnLoadAfter olayında yazılması gereken script kod:

//BELGE_KOD1 combosundaki varolan tüm kayıtlar temizlenir.

BELGE_KOD1.Items.Clear;

//BELGE_KOD1 combosuna KendiAracımız içerikli satır eklenir.

BELGE_KOD1.Items.Add('KendiAracımız');

//BELGE_KOD1 combosuna AlıcınınAracı içerikli satır eklenir.

BELGE_KOD1.Items.Add('AlıcınınAracı');

//BELGE_KOD1 combosuna SevkiyatFirması içerikli satır eklenir.

BELGE_KOD1.Items.Add('SevkiyatFirması');

//BELGE_KOD1 combosunu verigirişine kapatır. Kullanıcı tarafından veri girişini engeller.

BELGE_KOD1.BtEditable:=False;       

Sonuç aşağıdaki gibidir.

Senaryo 2 : Şoför başlığı ile eklenen belge özel kodalanına cari kartlarında özel kod 1 alanı SF olan kayıtların eklenmesi.(Firmanın şoförlere cari kart açarken özel kod 1 sahasına SF(Şoför) yazdığıdüşünülmüştür.)

FormunPublic.OnLoadAfter olayında yazılması gereken script kod:

//BELGE_KOD2 combosundaki varolan tüm kayıtlar temizlenir.

BELGE_KOD2.Items.Clear;

//BELGE_KOD2 combosu TBLCARISBtablosuna bağlanıyor.

BELGE_KOD2.BtTableName:='TBLCARISB';

//BELGE_KOD2 combosununlistelenecek alanı CARI_ADI olarak belirleniyor.

BELGE_KOD2.BtListFields:='CARI_ADI';

//BELGE_KOD2 combosunun anahtarsahası(key) CARI_KODU olarak belirleniyor.

BELGE_KOD2.BtKeyField:='CARI_KODU';             

//TBLCARISB tablosundan gelecekkayıtları özel kod1=SF(şoför) filtresi veriliyor.

//QUOTEDSTR fonksiyonu parametreolarak verilen string değerin başına sonuna tırnak işareti ekler.

BELGE_KOD2.BtFilter:='OZEL_KOD1='+QUOTEDSTR('SF'); 

//BELGE_KOD2 combosunun değeriSQL’e gönderilirken kullanılacak yönetimi belirler. ^{Detay 1}

BELGE_KOD2.BtTypeOfData:=tdToChar;

//BELGE_KOD2 combosunun ayırmakarakterini eşittir “=” olarak belirler. ^{Detay 2}

BELGE_KOD2.BtChar:='='; 

//BELGE_KOD2 combosunun veritabanı bağlantısı özelliğini aktif eder.

BELGE_KOD2.BtSourceDB:=True;  

//BELGE_KOD2 combosununiçeriğini yenileri

BELGE_KOD2.RefreshData;   

//BELGE_KOD2 combosunu verigirişine kapatır. Kullanıcı tarafından veri girişini engeller.

BELGE_KOD2.BtEditable:=False;  

Sonuç aşağıdaki gibidir.

Detay 1 : BtCombo nesnesinin BtTypeOfData özelliğiSQL’e değer gönderilirken kullanılacak yönetimi belirler. Bu yöntemler şuşekildedir.

tdAll : Comboda yazılı olan metnin tamamınıgönderir.

tdFirstChar : Comboda yazılı olan metnin ilkharfini gönderir.

tdItemIndex : Combodan seçilen kaydın sıranumarasını gönderir.

tdToChar : Comboda yazılı olan metnin BtCharkarakterine olan kısmını gönderir.

tdAfterChar : Comboda yazılı olan metnin BtCharkarakterinden sonrasını gönderir.

tdPlusItemIndex : Combodan seçilen kaydın sıranumarasının 1 fazlasını gönderir.

tdExItemData : Comboda seçilen kaydın sıranumarasına karşılık gelen ExItemData listedindeki değeri gönderir.

Detay 2 : BtChar özelliği comboda anahtar(key) velistelenen(list) değerlerini ayırmak için kullanılır.

Örneğin cari kodu:120-0001, cari adı:Sami ve BtChar:eşittir “=” olursa comboda görünen metin şöyle olacaktır. 120-0001=Sami