popupmenu ile dbgrid üzerinden ödeme yapma işlemi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
selim kaplan
Üye
Mesajlar: 3
Kayıt: 14 Nis 2020 01:42

popupmenu ile dbgrid üzerinden ödeme yapma işlemi

Mesaj gönderen selim kaplan »

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...
mkysoft
Kıdemli Üye
Mesajlar: 3103
Kayıt: 26 Ağu 2003 12:35
Konum: Berlin
İletişim:

Re: popupmenu ile dbgrid üzerinden ödeme yapma işlemi

Mesaj gönderen mkysoft »

@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ı.
Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2356
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Re: popupmenu ile dbgrid üzerinden ödeme yapma işlemi

Mesaj gönderen freeman35 »

klasik finaller yaklaştı,
ben bilgisayar programcılığı okuyorum bir şey sormak istiyorum edit nesnesinin son rakamının çift olmasını nasıl sağlarız.
Önceki mesajını ben silmiştim, @mkysoft cevap vermiş olmasaydı, tekrar silecektim. Soru dahi muhtemelen kopyala yapıştır.

Üç 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 !!!
Kullanıcı avatarı
Commandx
Üye
Mesajlar: 181
Kayıt: 01 Oca 2008 05:34

Re: popupmenu ile dbgrid üzerinden ödeme yapma işlemi

Mesaj gönderen Commandx »

İnputbox kullanımı için
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;
editor olmadığı için text olarak yazıyorum
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;
selim kaplan
Üye
Mesajlar: 3
Kayıt: 14 Nis 2020 01:42

Re: popupmenu ile dbgrid üzerinden ödeme yapma işlemi

Mesaj gönderen selim kaplan »

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.
Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2356
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Re: popupmenu ile dbgrid üzerinden ödeme yapma işlemi

Mesaj gönderen freeman35 »

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
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 !!!
Cevapla