run time da sql sorgusu oluşturma

[ikutluay]

Merhaba

Mikro vt de cha_evr_tip degerivar. bunun 6 degerinden bir yada bir kacını yada tümünübirden listeleyerek secilmesi gerek

WHEN 1 THEN 'Tahsilat makbuzu'
WHEN 2 THEN 'Kasa Tahsil Fişi'
WHEN 3 THEN 'Senet'
WHEN 4 THEN 'Çek'
WHEN 34 THEN 'Gelen Havale'
WHEN 98 THEN 'Avans Tahsil Makbuzu'

forma 6 tane checkbox koydum. bir byte degeri her checked olduğunda bir artırdım. bu deger kontrol bitttiğinde 1 ise sorun yok. tek biri seçili demek.

birden fazla secilme durumunda ise araya or yazılması ve tüm bu ifadeninde paranteze alınması gerek. bunu sırayla chedked degerlerinikontrol edipbir suru ifle yaptım ama daha kolaybir yolu olmalı.

IN operatörü aklıma geliyor ama ondadada or yerine virül gerekecek.

biri yol gösterebilirmi

[sabanakman]

Şart işini yapan CheckBox'larınızı özel bir panel içine (örn:Panel1) yerleştirin ve burada başka bileşenler olmasın. Her CheckBox bileşeninin değeri neyi temsil ediyorsa Tag özelliğine bu değeri verin (CheckBox1.Tag->1,CheckBox2.Tag->2,...,CheckBox6.Tag->98,.) ve aşağıdaki kodları deneyin.

Kod: Tümünü seç

var Sart:String; i:Integer;  cbx:TCheckBox;
begin
  Sart:='';
  for i:=0 to Panel1.ControlCount-1 do if Panel1.Controls[i] is TCheckBox then begin
    cbx:=TCheckBox(Panel1.Controls[i]);
    if cbx.Checked then Sart:=Format('%s,%d',[Sart,cbx.Tag]);
  end;
  if Sart<>'' then begin
    Delete(Sart,1,1);
    Sart:=Format('AlanAdi in (%s)',[Sart])
  end;
  Label1.Caption:=Sart;

[ikutluay]

Şart işini yapan CheckBox'larınızı özel bir panel içine (örn:Panel1) yerleştirin ve burada başka bileşenler olmasın. Her CheckBox bileşeninin değeri neyi temsil ediyorsa Tag özelliğine bu değeri verin (CheckBox1.Tag->1,CheckBox2.Tag->2,...,CheckBox6.Tag->98,.) ve aşağıdaki kodları deneyin.

Kod: Tümünü seç

var Sart:String; i:Integer;  cbx:TCheckBox;
begin
  Sart:='';
  for i:=0 to Panel1.ControlCount-1 do if Panel1.Controls[i] is TCheckBox then begin
    cbx:=TCheckBox(Panel1.Controls[i]);
    if cbx.Checked then Sart:=Format('%s,%d',[Sart,cbx.Tag]);
  end;
  if Sart<>'' then begin
    Delete(Sart,1,1);
    Sart:=Format('AlanAdi in (%s)',[Sart])
  end;
  Label1.Caption:=Sart;

kodun ufuk acıcı bu durumda checklist box olmaması içinde bir sebep kalmadı

[ikutluay]

checklistbox ta tag olmadığından stringlist kullanarak işlemi yaptım

[adelphiforumz]

listbox gibi items özelliği olan objelerde addobject özelliğini kullanırsanız
eklediğiniz itemsın value değerinide kolaylıkla alabilirsiniz.