Radiogroup ile Dataset Seçimi

[R.K.]

Selamlar,
Arkadaşlar basit bir rehber programı yapıyorum. Bir yerde takıldım ama. Programda kullandığım vr fb 1.5. Tablolarım aşağıdaki gibi

TBL_GRUP
GRUP_ID
GRUP_AD
----------------
TBL_KISILER
KISI_ID
KISI_AD
KISI_GRUP

Ana penceremde radiobutton button var aşağıdaki gibi ve ben burdan tüm kayıtlar veya grup olarak gösterilmesini istiyorum.

Gruba göre olduğunda sorun yok. Yani hangi grubu seçersem ona göre detail oluyor fakat radiobuttondan tüm kayıtlar ve gruba göre seçeneğini yaptığımda
bir hata alıyorum. Şöyle bir şey düşündüm 2 adet dataset ve 1 adet query nesnesi var. Normalde dsetGrup bileşeni kullanıorum fakat radiobuttondan gruba göre seçildiğinde

Kod: Tümünü seç

procedure TfrmMain.RadioGroup1Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex>0 then
    begin
      DBGrid2.DataSource:=dm.qryTemp.DataSource;
      DBGrid2.DataSource.DataSet.Open;
    end
    else
    begin
      DBGrid2.DataSource.DataSet.Close;
      DBGrid2.DataSource:=dm.dsetGrup.DataSource;
      DBGrid2.DataSource.DataSet.Open;
    end;

yapıyorum. query deki sql ise şöyle

Kod: Tümünü seç

select * from TBL_KISILER where GRUBU=:GRUP_ID

Nerde hata acaba??? Tahmin ettiğim şeylerden birisi dbgridin alanlarıyla ilgili. Dbgridin column name, renk gibi özelliklerini değiştirdim. Yani diğer datasete (query) geçtiğimde gördüğüm hata bundanda olabilir mi? Lütfen akıl verin arkadaşlar siz böyle seçmeli bir sorguda nasıl tasarım yapıyorsunuz?

[Karamizrak]

arkadasım önce su elseyi kaldır

Kod: Tümünü seç

if RadioGroup1.ItemIndex=0 then
    begin
      ShowMessage('1. nesne');
    end;
if RadioGroup1.ItemIndex=1 then
    begin
      ShowMessage('2. nesne');
    end;

eger bu sekilde yaparsan secilen radiogroup içindeki radiobutonlar gorevlerini yaparlar else kullanma. radiobuton onclick olayına yazacaksın.

[Macrohard]

Teşekkürler çok işime yaradı. Ben bu şekilde kullandım gayet iş görüyo gibi.

Kod: Tümünü seç

procedure TfrmAracislem.RadioGroup1Click(Sender: TObject);
begin
 case RadioGroup1.ItemIndex of
    0:begin
      cxGrid1DBTableView1.DataController.DataSource.DataSet.Close;
      cxGrid1DBTableView1.DataController.DataSource:=frmDm.dsAracislem;
      cxGrid1DBTableView1.DataController.DataSource.DataSet.Open;
    end;
    1:begin
      cxGrid1DBTableView1.DataController.DataSource.DataSet.Close;
      cxGrid1DBTableView1.DataController.DataSource:=dsEarac;
      cxGrid1DBTableView1.DataController.DataSource.DataSet.Open;
    end;
    2:begin
      cxGrid1DBTableView1.DataController.DataSource.DataSet.Close;
      cxGrid1DBTableView1.DataController.DataSource:=dsSarac;
      cxGrid1DBTableView1.DataController.DataSource.DataSet.Open;
    end;