Veritabanı combobox ve label bağlantısı

[twistero]

merhabalar,

ödevim var ve mobili pek çözemedim delphiden

veritabanında iller ve 3-4 tane özelliği kayıtlı

benim yapmak istediğim comboboxdan seçilen ilin özelliklerini 4 adet label ile göstermek bir iki yöntem var aklımda onları denedim fakat sıkıntılı oluyor
yardımcı olabilecek bana yol gösterebilecek varmı?

[brs]

Kod: Tümünü seç

       with Form1.User do
  begin

Close;
SQL.Clear;
SQL.Add('Select * from user');
Open;
while not Form1.User.Eof do
begin
ComboBox1.Items.Add(FieldByName('KULLANICIADI').AsString);
Next;
end;
Close;
if ComboBox1.Items.Count>0 then
begin
ComboBox1.ItemIndex:=0;

end;

end;
end;

[twistero]

Kod: Tümünü seç

       with Form1.User do
  begin

Close;
SQL.Clear;
SQL.Add('Select * from user');
Open;
while not Form1.User.Eof do
begin
ComboBox1.Items.Add(FieldByName('KULLANICIADI').AsString);
Next;
end;
Close;
if ComboBox1.Items.Count>0 then
begin
ComboBox1.ItemIndex:=0;

end;

end;
end;

hocam comboboxı fdtable a bagladım livebinding ile ama labela bağlantıyı kuramadım sizin gösterdiginizi nasıl kullanacagım?

[brs]

benim paylaştığım kodları kendinize göre düzenleyin ve

Kod: Tümünü seç

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
       try
    TaslakListView.Items.Clear;
    With TFDQuery.Create(Nil) do // Sanal TFDQuery
    begin
      Connection := Form1.SMSBaglan;
      Close;
      SQL.Clear;
      SQL.add('Select * From Taslak');
      SQL.add('Where TASLAKADI Like ' + QuotedStr('%' + TaslakEdit.Text + '%'));
      SQL.add('Order By TASLAKADI ASC');
      SQL.add('Limit 0,100');
      Prepared := True;
      Open;
      if Not IsEmpty then // Kayıt Varsa
      begin
      labelxxxxxxxxx
          with TaslakListView.Items.add do
          begin
            Text := FieldByName('TASLAKADI').AsString;
            Next;
          end;
        end;
      end;
    end;
  except
    on e: Exception do
    begin
      ShowMessage(e.Message);
    end;
  end;
  Free;
end;

end;
end;
end;

gibi yapabilirsiniz...
kolay gelsin

[twistero]

benim paylaştığım kodları kendinize göre düzenleyin ve

Kod: Tümünü seç

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
       try
    TaslakListView.Items.Clear;
    With TFDQuery.Create(Nil) do // Sanal TFDQuery
    begin
      Connection := Form1.SMSBaglan;
      Close;
      SQL.Clear;
      SQL.add('Select * From Taslak');
      SQL.add('Where TASLAKADI Like ' + QuotedStr('%' + TaslakEdit.Text + '%'));
      SQL.add('Order By TASLAKADI ASC');
      SQL.add('Limit 0,100');
      Prepared := True;
      Open;
      if Not IsEmpty then // Kayıt Varsa
      begin
      labelxxxxxxxxx
          with TaslakListView.Items.add do
          begin
            Text := FieldByName('TASLAKADI').AsString;
            Next;
          end;
        end;
      end;
    end;
  except
    on e: Exception do
    begin
      ShowMessage(e.Message);
    end;
  end;
  Free;
end;

end;
end;
end;

gibi yapabilirsiniz...
kolay gelsin

sagolun hocam işime yaradı teşekkürler.