İyi akşamlar
Form2'de yer alan 3 adet string değişkeni form1 deki string değere taşıyıp form1 de olan veritabanına kayıt etmeye çalışıyorum ama başaramadım.Yardımcı olursanız sevinirim
Form2 deki String değeri Form1 e taşıma
-
- Üye
- Mesajlar: 8
- Kayıt: 17 May 2016 04:33
Re: Form2 deki String değeri Form1 e taşıma
Merhabalar Kodlarınızı paylaşırsanız size yardımcı olmaya çalışalım.
Nasıl taşıyorsunuz ?
Kaydetme işlemini nasıl yapıyorsunuz ?
Nasıl taşıyorsunuz ?
Kaydetme işlemini nasıl yapıyorsunuz ?
- fesiharslan
- Üye
- Mesajlar: 591
- Kayıt: 20 Eki 2006 11:37
- Konum: Erzurum
- İletişim:
Re: Form2 deki String değeri Form1 e taşıma
Merhaba;
1- Form2'de yer alan değişkenleri, form2'nin public bölümünde tanımlayın.
2- Form2'de herhangi bir kod satırında değişken değerlerini set edin.
3- Form1'in kod penceresinde Implementation'ın veya Interface altındaki Uses bölümüne Unit2 (Form2)'yi referans olarak gösterin.
4- Daha sonra Form2'deki değişkenlere ulaşmak için Form1'de herhangi bir kod satırında Form2+nokta (.)+DeğişkenAdı yazarak Form2'de yer alan değişken değerine ulaşabilirsiniz.
5- Form2'de set ettiğiniz değişken değerlerini, Form'de yer alan veri tabanına (bu tabiri kullandığınız için ben de bu tabiri kullanıyorum. Olması gereken: Form'deki Veri tabanı nesnesi yardımıyla) yazmak için ise aşağıdaki gibi bir kod yapısı kullanabilirsiniz.
İyi çalışmalar...
1- Form2'de yer alan değişkenleri, form2'nin public bölümünde tanımlayın.
Kod: Tümünü seç
public
Ad: String;
SoyAd: String;
Yas: Word;
Kod: Tümünü seç
Ad := 'Ahmet';
SoyAd := 'Ahmet';
Yas := 25;
Kod: Tümünü seç
implementation
{$R *.fmx}
uses Unit2;
5- Form2'de set ettiğiniz değişken değerlerini, Form'de yer alan veri tabanına (bu tabiri kullandığınız için ben de bu tabiri kullanıyorum. Olması gereken: Form'deki Veri tabanı nesnesi yardımıyla) yazmak için ise aşağıdaki gibi bir kod yapısı kullanabilirsiniz.
Kod: Tümünü seç
FDQuery1.Append;
FDQuery1.FieldByName('ADI').AsString := Form2.Ad;
FDQuery1.FieldByName('SOYADI').AsString := Form2.SoyAd;
FDQuery1.FieldByName('YASI').AsInteger := Form2.Yas;
FDQuery1.Post;