Combobox veri kaydetme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Gumiho309
Üye
Mesajlar: 35
Kayıt: 01 Eyl 2020 03:01

Combobox veri kaydetme

Mesaj gönderen Gumiho309 »

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: Tümünü seç

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.
bnyamin
Üye
Mesajlar: 44
Kayıt: 01 Mar 2019 12:55

Re: Combobox veri kaydetme

Mesaj gönderen bnyamin »

Soruyu tam anlayamadım yapmak istediğin olay şu mudur? Sen combobox içinde olan daire numaralarından örneğin 15' seçtiğinde 15 numaralı daireye girdiğin bilgiler ve aidat tutarı kaydedilsin mi istiyorsun.
Kullanıcı avatarı
Commandx
Üye
Mesajlar: 181
Kayıt: 01 Oca 2008 05:34

Re: Combobox veri kaydetme

Mesaj gönderen Commandx »

Editi Post ile beraber yazmışsın, yani işlem yapılmış fakat veritabanının bundan haberi olmamış

Bir de aşağıdaki gibi denerseniz

Kod: Tümünü seç

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.Edit; // edit işlemi burada olmalı
    DataModule8.Qaidat.FieldByName('DAİRENO').AsString:=daireNo[0];
// DataModule8.Qaidat.Edit; burda olmamalı
    DataModule8.Qaidat.Post;
  end;
  DataModule8.Qaidat.Next;
end;

http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;
Gumiho309
Üye
Mesajlar: 35
Kayıt: 01 Eyl 2020 03:01

Re: Combobox veri kaydetme

Mesaj gönderen Gumiho309 »

Commandx yazdı: 19 Eki 2020 10:57 Editi Post ile beraber yazmışsın, yani işlem yapılmış fakat veritabanının bundan haberi olmamış

Bir de aşağıdaki gibi denerseniz

Kod: Tümünü seç

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.Edit; // edit işlemi burada olmalı
    DataModule8.Qaidat.FieldByName('DAİRENO').AsString:=daireNo[0];
// DataModule8.Qaidat.Edit; burda olmamalı
    DataModule8.Qaidat.Post;
  end;
  DataModule8.Qaidat.Next;
end;

Teşekkûr ederim denedim fakat hala istediğim gibi çalışmıyor.
Cevapla