procedure TForm7.Button1Click(Sender: TObject);
var
daireNo: variant;
begin
 DataModule8.Qaidat.First;
while not DataModule8.Qaidat.EOF do
begin
 DataModule8.Qdaire.Open();
 daireNo:=DataModule8.Qdaire.Lookup('OTURAN', DataModule8.Qaidat.fieldByName('AÇIKLAMA').AsString.ToLower, 'DAİRENO');
 if not(VarIsNull (daireNo)) then
 begin
   DataModule8.Qaidat.FieldByName('DAİRENO').AsString:=daireNo[0];
   DataModule8.Qaidat.Edit;
   DataModule8.Qaidat.Post;
 end;
 DataModule8.Qaidat.Next;
end;

(14-10-2020, Saat: 10:33)Gumiho309 Adlı Kullanıcıdan Alıntı: Merhaba, Yazdığım kodu çalıştıramadığım için bir tavsiye almıştım fakat önerilen şeyi nasıl yapacağımı bilmiyorum. Aşağıya öneriyi ve kodu bırakıyorum. Şimdiden teşekkür ederim. 

 Uygulamam gereken işlem bu ; ''Aidat tanımlarının veri girişlerini yaptığınız yerde dairelerin yer aldığı bir combobox yerleştirerek seçilen dairenumarasını da ele alarak aidat kaydını yapmalısınız.''

Kod:

procedure TForm7.Button1Click(Sender: TObject);
var
daireNo: variant;
begin
  DataModule8.Qaidat.First;
while not DataModule8.Qaidat.EOF do
begin
  DataModule8.Qdaire.Open();
  daireNo:=DataModule8.Qdaire.Lookup('OTURAN', DataModule8.Qaidat.fieldByName('AÇIKLAMA').AsString.ToLower, 'DAİRENO');
  if not(VarIsNull (daireNo)) then
  begin
    DataModule8.Qaidat.FieldByName('DAİRENO').AsString:=daireNo[0];
    DataModule8.Qaidat.Edit;
    DataModule8.Qaidat.Post;
  end;
  DataModule8.Qaidat.Next;
end;

Delphi 10.3 kullanıyorum. Verilerimi sqlite ile alıyorum. Daha önce combobox kullanmadım bir şeyler yapmayı denedim ama bir sonuca ulaşamadım. Delphiye hakim olmadığım için düzeltmeyi yapamıyorum. Veri girişi diye kastedilen satır neresi? Kaydı nasıl yapacağım bir örnek ya da düzeltme gösterebilirseniz çok iyi olur. Yardımcı olursanız çok sevinirim

  ComboBox1.Items.Clear;
  ComboBox1.Items.Add('Alpha');
 ComboBox1.Items.Add('Beta');
 ComboBox1.Items.Add('Gamma');
 ComboBox1.Items.Add('Delta');

(14-10-2020, Saat: 11:04)wiseman Adlı Kullanıcıdan Alıntı:

(14-10-2020, Saat: 10:33)Gumiho309 Adlı Kullanıcıdan Alıntı: Merhaba, Yazdığım kodu çalıştıramadığım için bir tavsiye almıştım fakat önerilen şeyi nasıl yapacağımı bilmiyorum. Aşağıya öneriyi ve kodu bırakıyorum. Şimdiden teşekkür ederim. 

 Uygulamam gereken işlem bu ; ''Aidat tanımlarının veri girişlerini yaptığınız yerde dairelerin yer aldığı bir combobox yerleştirerek seçilen dairenumarasını da ele alarak aidat kaydını yapmalısınız.''

Kod:

procedure TForm7.Button1Click(Sender: TObject);
var
daireNo: variant;
begin
  DataModule8.Qaidat.First;
while not DataModule8.Qaidat.EOF do
begin
  DataModule8.Qdaire.Open();
  daireNo:=DataModule8.Qdaire.Lookup('OTURAN', DataModule8.Qaidat.fieldByName('AÇIKLAMA').AsString.ToLower, 'DAİRENO');
  if not(VarIsNull (daireNo)) then
  begin
    DataModule8.Qaidat.FieldByName('DAİRENO').AsString:=daireNo[0];
    DataModule8.Qaidat.Edit;
    DataModule8.Qaidat.Post;
  end;
  DataModule8.Qaidat.Next;
end;

Delphi 10.3 kullanıyorum. Verilerimi sqlite ile alıyorum. Daha önce combobox kullanmadım bir şeyler yapmayı denedim ama bir sonuca ulaşamadım. Delphiye hakim olmadığım için düzeltmeyi yapamıyorum. Veri girişi diye kastedilen satır neresi? Kaydı nasıl yapacağım bir örnek ya da düzeltme gösterebilirseniz çok iyi olur. Yardımcı olursanız çok sevinirim

Veri girişi diye kastedilen yer, sanırım formdur. Formun üzerine koyacağınız bir combobox içine öncelikle verileri insert edin
örnekleme:

  ComboBox1.Items.Clear;
  ComboBox1.Items.Add('Alpha');
 ComboBox1.Items.Add('Beta');
 ComboBox1.Items.Add('Gamma');
 ComboBox1.Items.Add('Delta');

(14-10-2020, Saat: 11:35)wiseman Adlı Kullanıcıdan Alıntı: formunuzun bir görüntüsünü ekler misiniz. Ayrıca, sizden isteneni de tam olarak anlatırsanız daha hızlı ilerleriz.
Bir de şu linki izlemeni rica ediyorum.

http://www.webteders.com/dersler/ders/Delphi-Birbiriyle-Etkilesimli-2-Combobox-Kullanimi/194

• 1. birinci tablonuz olan aidatların tutulduğu tablonun veri girişi için bir form oluşturun.
     
  2. Verilerinizi kaydederken Combobox’ta seçtiğiniz daire numarasını Aidat sorgunuzdaki daireno alanına ekleyerek kaydedin.
     
  3. Bu formun içerisinde Combobox olarak dairelerin numaralarını listeleyin.
     

(14-10-2020, Saat: 12:11)DelphiCan Adlı Kullanıcıdan Alıntı: @Gumiho309,
@AYHAN_ASLAN 
Form editörümüz üzerinde kod biçimlendirme amacı ile kullandığımız 2 adet buton bulunmaktadır. Delphi Logolu olan (Delphi Kod Ekle) buton ile Delphi kodu, Süslü Parantez simgeli buton (Kod Biçimlendirme) ile de diğer dillere ait (SQL'de dahil) kodlar eklenerek (aşağıdaki ekran görüntüsünde işaretlenmişir), kod biçimlendirme yapılmaktadır. 
Bu kapsamda;



Daha önce kullanmış olduğunuz [code] taglarını kod biçimlendirme Tag'ları ile değiştirilmiştir.
Sonraki kod kullanımlarında doğru kod tag'larını kullanarak bize yardımcı olursanız memnun oluruz.
Aksi durumda DelphiCan Forum Kurallarında belirtilen yaptırımlar uygulanacaktır.
İlgi ve anlayışınız için şimdiden teşekkür eder, iyi çalışmalar dileriz.

Önemli Not: Herhangi bir yerden kopyaladığınız metni, DelphiCan metin editörüne yapıştırmadan önce, metin editörünün araç çubuğunda bulunan "Kaynağı Görüntüle" butonuna tıklayın. Daha sonra kopyaladığınız metni yapıştırın. Böylece harici bir kaynaktan aldığınız metin biçimlendirmesi yok sayılacaktır.

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls;

type
 TForm1 = class(TForm)
   StringGrid1: TStringGrid;
   StringGrid2: TStringGrid;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   procedure StringGrid1DblClick(Sender: TObject);
   procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
     var CanSelect: Boolean);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
  kiraciadi: string;
  daireno: string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[1,0]:='Kiracı';
StringGrid1.Cells[2,0]:='Daireno';
StringGrid1.Cells[1,1]:='Ali';
StringGrid1.Cells[1,2]:='Veli';
StringGrid1.Cells[1,3]:='Hasan';
StringGrid2.Cells[1,1]:='Ali';
StringGrid2.Cells[1,2]:='Veli';
StringGrid2.Cells[1,3]:='Hasan';
StringGrid1.Cells[2,1]:='1';
StringGrid1.Cells[2,2]:='2';
StringGrid1.Cells[2,3]:='3';
StringGrid2.Cells[1,0]:='Kiracı';
StringGrid2.Cells[2,0]:='Daireno';
end;

procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
I:      Integer;
J:      Integer;
isFound: Boolean;
FndRect: TRect;
begin
 for I := 1 to StringGrid2.ColCount-1 do
   for J := 1 to StringGrid2.RowCount-1 do
     if (StringGrid2.Cells[I,J] = kiraciadi) then
     begin
       FndRect:= StringGrid2.CellRect(I,J);
       StringGrid2.Canvas.Brush.Color:= clNavy;
       StringGrid2.Canvas.FillRect(FndRect);
       StringGrid2.Canvas.Font.Color:= clWhite;
       StringGrid2.Canvas.TextOut(FndRect.Left + 3, FndRect.Top + 3, kiraciadi);
       StringGrid2.Cells[I+1,J] := daireno;
     end;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
 var CanSelect: Boolean);
begin
kiraciadi:= StringGrid1.Cells[ACol,ARow];
daireno:= StringGrid1.Cells[ACol+1,ARow];
end;

end.

(14-10-2020, Saat: 15:40)wiseman Adlı Kullanıcıdan Alıntı: Tekrar selamlar
Öncelikle benim böyle birşeye ihtiyacım olmadığı için örnekleme yapmamıştır. Ancak kendimi sizin yerinize koydum. Yapmam gereken şey hemen internetten birkaç kelime sorgulamak oldu.
"delphi stringgrid cells text"
"delphi stringgrid find text"
bu iki cümle ile dünyanın örneği çıktı karşıma. Bu örnekleri isteğime göre değiştirerek düzenledim. 1 saatimi aldı ama, sonra bir bakmışım ki, sorunum çözülmüş. Sizlerin de, öncelikle bu yöntemleri kullanarak başlamanız çok daha uygun olacaktır.


Form üzerine 2 tane stringgrid koyun. 1 tane de buton.
Kodları şu şekilde vereyim.

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls;

type
 TForm1 = class(TForm)
   StringGrid1: TStringGrid;
   StringGrid2: TStringGrid;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   procedure StringGrid1DblClick(Sender: TObject);
   procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
     var CanSelect: Boolean);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
  kiraciadi: string;
  daireno: string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[1,0]:='Kiracı';
StringGrid1.Cells[2,0]:='Daireno';
StringGrid1.Cells[1,1]:='Ali';
StringGrid1.Cells[1,2]:='Veli';
StringGrid1.Cells[1,3]:='Hasan';
StringGrid2.Cells[1,1]:='Ali';
StringGrid2.Cells[1,2]:='Veli';
StringGrid2.Cells[1,3]:='Hasan';
StringGrid1.Cells[2,1]:='1';
StringGrid1.Cells[2,2]:='2';
StringGrid1.Cells[2,3]:='3';
StringGrid2.Cells[1,0]:='Kiracı';
StringGrid2.Cells[2,0]:='Daireno';
end;

procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
I:      Integer;
J:      Integer;
isFound: Boolean;
FndRect: TRect;
begin
 for I := 1 to StringGrid2.ColCount-1 do
   for J := 1 to StringGrid2.RowCount-1 do
     if (StringGrid2.Cells[I,J] = kiraciadi) then
     begin
       FndRect:= StringGrid2.CellRect(I,J);
       StringGrid2.Canvas.Brush.Color:= clNavy;
       StringGrid2.Canvas.FillRect(FndRect);
       StringGrid2.Canvas.Font.Color:= clWhite;
       StringGrid2.Canvas.TextOut(FndRect.Left + 3, FndRect.Top + 3, kiraciadi);
       StringGrid2.Cells[I+1,J] := daireno;
     end;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
 var CanSelect: Boolean);
begin
kiraciadi:= StringGrid1.Cells[ACol,ARow];
daireno:= StringGrid1.Cells[ACol+1,ARow];
end;

end.

Eğer ki çözemezsen, mail adresini yaz. mail göndereyim programı.
Kolay gelsin.

(14-10-2020, Saat: 16:10)wiseman Adlı Kullanıcıdan Alıntı: Bence, balık tutmayı bir deneyin. Olmazsa programı göndereyim olur mu?