Merhabalar Bu forma 3. yazışım bana yardımcı olabilri misiniz lütfen?
Ödeme Yap Seçildiğinde INPUTBOX üzerinden ödenecek miktar istenir. Miktar yazılıp Tamam tıklandığında borç ödemesi yapılır ve
KALAN BORÇ otomatik olarak hesaplanarak grid üzerinden gösterilir.
KALAN BORÇ isimli alan adı
gerçekte yoktur.
ONCALCFIELDS özelliği kullanılarak otomatik gelir ve
hesaplanır.
Teşekkürler...
popupmenu ile dbgrid üzerinden ödeme yapma işlemi
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 3
- Kayıt: 14 Nis 2020 01:42
Re: popupmenu ile dbgrid üzerinden ödeme yapma işlemi
@selim kaplan forum bu şekilde çalışmıyor. Öncelikle senin birşeyler yapman gerekiyor. Çalışan bir uygulama yapıp, şurada takıldım demelisin. Verilen ödevi direk buraya yazarsan cevap alamazsın. Çünkü herkesin vakti değerli ve kısıtlı.
Re: popupmenu ile dbgrid üzerinden ödeme yapma işlemi
klasik finaller yaklaştı,
Üç yılda bir milyon yazılımcı yetiştirecekler
vah ki ne vah.
Önceki mesajını ben silmiştim, @mkysoft cevap vermiş olmasaydı, tekrar silecektim. Soru dahi muhtemelen kopyala yapıştır.ben bilgisayar programcılığı okuyorum bir şey sormak istiyorum edit nesnesinin son rakamının çift olmasını nasıl sağlarız.
Üç yılda bir milyon yazılımcı yetiştirecekler
vah ki ne vah.
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Re: popupmenu ile dbgrid üzerinden ödeme yapma işlemi
İnputbox kullanımı için
http://www.delphibasics.co.uk/RTL.asp?Name=inputbox
biraz fikir verecektir. veritabanında borç Sütun toplama
editor olmadığı için text olarak yazıyorum
biraz uğraşın.
http://www.delphibasics.co.uk/RTL.asp?Name=inputbox
Kod: Tümünü seç
var
value : string;
begin
repeat
value := inputbox('Miktarı girin', 'giriş', '0');
until value <> '';
query.edit;
query.fieldbyname('rakamsal_alan_borc_sutunu').value := value; // inputboxtaki value
query.post;
Edit1.Text:=(value);//
end;
biraz fikir verecektir. veritabanında borç Sütun toplama
Kod: Tümünü seç
var
i,j:integer;
begin
J:=0; i:=0;
query.first;
for i:=0 to query.recordcount-1 do begin
j:= query.fieldbyname('rakamsal_alan_borc_sutunu').value + j;
query.next;
end;
edit1.text :=inttostr(j); // burası bahsedilen gerçekte olmayan alan
end;
biraz uğraşın.
En son Commandx tarafından 19 Haz 2020 02:58 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
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;
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;
-
- Üye
- Mesajlar: 3
- Kayıt: 14 Nis 2020 01:42
Re: popupmenu ile dbgrid üzerinden ödeme yapma işlemi
Eleştirileriniz için üzüldüm ödevimiz sadece bu değil zaten ben bu kısmında takıldım.Kendimi iyi telaffuz edememiş olabilirim.Ama çok Haklısınız ödevimi kendi çablarımla yapmam gerkiyor.Sizleri işlerinizden alıkoyduğum için özür diliyorum.
En son selim kaplan tarafından 10 Kas 2020 02:01 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Re: popupmenu ile dbgrid üzerinden ödeme yapma işlemi
Gerçeklerin can sıkıcı üzücü tarafı çoktur. Mesela bir tane daha, "telafuz" değil, telaffuz, ki buda yanlış kelime, "ifade edememiş", "yada anlatamamış" olmalı. Konuşamazsan derdini nasıl anlatacaksın? her fırsatında kitap oku. Yeni yazarlardan değil, eskilerden oku, gerekirse anlamak için sözlük al, Türkçe yi tercüme ederek oku. kısa sürede ufkun genişleyecektir.
Derdin işini görmekse, eyleme bizi, bi dünya forum var internette, oralarda aran. Derdin öğrenmekse eğer buyur gel başımızın üstünde yerin var. Sormadan önce bir üç gün sorunu çözmeye önce bir çalış, sonra forumda ara, sonra internette ara, sonra neyi yapamadığını sor anlatmaya çalışalım.
kolay gele
Derdin işini görmekse, eyleme bizi, bi dünya forum var internette, oralarda aran. Derdin öğrenmekse eğer buyur gel başımızın üstünde yerin var. Sormadan önce bir üç gün sorunu çözmeye önce bir çalış, sonra forumda ara, sonra internette ara, sonra neyi yapamadığını sor anlatmaya çalışalım.
kolay gele
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!