314 uygun sonuç bulundu

gönderen yusuf simsek
08 Eyl 2004 01:33
Forum: Programlama
Başlık: tab tuşu kontrolu
Cevaplar: 22
Görüntüleme: 10873

eğer BREAKPOİNT olayı showmessage veya benzeri birşey ile kodun kontrolü ise sadece adına yabancıyım :oops: birkaç yol daha denedim ama sonuç yok.. if key = chr(vk_tab) then begin key := #0; end; olayı da çalışmadı... denemek için showmessage ekledim...Her iki durumda da showmessage alamadım. yani t...
gönderen yusuf simsek
08 Eyl 2004 01:15
Forum: Programlama
Başlık: tab tuşu kontrolu
Cevaplar: 22
Görüntüleme: 10873

ASLANGERİ demişki
(ve keyprevec true ise) önce formun keypres eventi çalışır.
bide break point koyup çalışıp çalışmadığına bak istersen.
o zaman bir sorum daha olacak..

BREAKPOİNT ne amaçla kullanılıyor? ve nasıl kullanabilirim? :oops:

ee ne de olsa çaylağız :lol:
gönderen yusuf simsek
08 Eyl 2004 12:49
Forum: Programlama
Başlık: tab tuşu kontrolu
Cevaplar: 22
Görüntüleme: 10873

valla hocam tam aradığm şey bu... çok teşekkür ederim. ama kod çalışmadı. :duvar: procedure Tstok_giris.Edit2KeyPress(Sender: TObject; var Key: Char); begin if key = #9 then begin key := #0; end; if key = #13 then begin ..... end; acaba sebebi ne olabilir... :?: yani sonuç olarak bunlar stansart kod...
gönderen yusuf simsek
08 Eyl 2004 12:31
Forum: Programlama
Başlık: tab tuşu kontrolu
Cevaplar: 22
Görüntüleme: 10873

hocam bu ne hızz. :shock: valla size yetişebilmek ne mümkün :!: yanlız hocam olay biraz farklı.. barkod okutuyorum.. eger değeri elle girerse tab tuşuyla çıkmaması lazım... yani ENTER tuşuna basıldığı zaman bazı sorgulamalar yaptırıyorum. if key <> #13 then edit1.setfocus; Key:=#0; yapısını kullandı...
gönderen yusuf simsek
08 Eyl 2004 12:07
Forum: Programlama
Başlık: tab tuşu kontrolu
Cevaplar: 22
Görüntüleme: 10873

tab tuşu kontrolu

S.A. herkese kolay gelsin... formda ve bakabildiğim diğer kaynaklarda raslayamadım ve en güzel kaynaktan yardım istemeyi tercih ettim... TAB tuşuna basıldığı zaman bulunulan konumdan (edit nesnesinden) ayrılmamasını istiyorum.. http://www.delphiturkiye.com/forum/viewtopic.php?t=2104&highlight=tab+ke...
gönderen yusuf simsek
07 Eyl 2004 03:35
Forum: Programlama
Başlık: taksitlendirme
Cevaplar: 9
Görüntüleme: 1987

zaten sen bu kodu butonun altına yazacaksın.. kullanıcı edit nesnelerine 1: toplam borcu, 2: genel taksit tutarını, 3: taksit sayısını girecek... taksit hesapla butonu nu tıkladığında (kodları yazcağın buton) otomatik olarak taksitleri hesaplayıp veri tabanına yazacak... kodları butona yaz ve değerl...
gönderen yusuf simsek
07 Eyl 2004 02:42
Forum: Programlama
Başlık: taksitlendirme
Cevaplar: 9
Görüntüleme: 1987

o zaman sabit taksit tutarını artırırsın...

sabit taksit=45.000.000
taksit sayısı= 5

son taksit = 20.000.000

şeklinde halledersin
gönderen yusuf simsek
07 Eyl 2004 02:31
Forum: Programlama
Başlık: taksitlendirme
Cevaplar: 9
Görüntüleme: 1987

S.A. tablonda taksit sayısını tutmana gerek yok.. edit1 = taksit sayısı => 5 edit2 = sabit taksit tutarı => 35.000.000 TL. edit3 = toplam borç => 200.000.000 TL. bu değerleri edit nesneleri ile al.. ***tabi istersen tarihleri de ekleyebilirsin.. procedure button1.click; var birim_taksit:double; taks...
gönderen yusuf simsek
06 Eyl 2004 03:05
Forum: Programlama
Başlık: taksitlendirme
Cevaplar: 9
Görüntüleme: 1987

//genel toplam = 200,000,000 //taksit = 5 //birim_taksit = 35,000,000 birim_taksit:=strtofloat(edit1.text); //edit nesnesi ile alıyosun taksit_sayi:=strtoint(edit2.text); //edit nesnesi ile alıyosun for i:= 1 to ( taksit_sayi - 1 ) do // ilk 4 taksiti veritabanına yazıyor.. begin tablo.insert; tabl...
gönderen yusuf simsek
06 Eyl 2004 01:03
Forum: Programlama
Başlık: taksitlendirme
Cevaplar: 9
Görüntüleme: 1987

kolay gelsin. Dediğin olay için taksit sayısının bir eksiğine bölüp döngü içinde her taksit değerini istediğin oranda artırabilir ve kalanı da son taksit olarak yapabilirsin diye düşünüyorum... tutar := 100,000,000 taksit_sayi := 5 taksitler:=tutar / (taksit-1) for i:=1 to 4 do begin taksitler+4,000...
gönderen yusuf simsek
06 Eyl 2004 11:14
Forum: Programlama
Başlık: satır numaraları ile ilgili...
Cevaplar: 6
Görüntüleme: 2248

:oops: :oops: :oops: :oops: :oops:

hocam çayı yeni içiyom...

:shock: haftanın ilk günü olmasının da etkisi var..
gönderen yusuf simsek
06 Eyl 2004 10:43
Forum: Programlama
Başlık: satır numaraları ile ilgili...
Cevaplar: 6
Görüntüleme: 2248

S.A. Herkese hayırlı haftalar ve iyi çalışmalar diliyorum. aslangeri arkadaşım.... S.A. @vkamadan arkadaşın dediğine ek olarak global değişken yerine tablonun recno özelliğini kullanabilirsin. demiş. Acaba recno olayını dbase tablolar için nasıl kullanabilirim? ( kayıt silindiğinde pack ederek silin...
gönderen yusuf simsek
28 Ağu 2004 05:54
Forum: Programlama
Başlık: Sorunlu İstisna kontrolü
Cevaplar: 5
Görüntüleme: 1494

dostum kolay gelsin. My sql den anlamıyorum ama sql'den biraz çakıyorm. Derslerde gördüğümüz kadarıyla yapılan işlemler kullanıcı da geçici bellekte tutuluyor. ve kaydet komutunu kullanana kadar veritabanına (ana makinaya) birşey yazmıyor.. Sen bu olayların zaten daha ilerisini biliyorsundur.. Acaba...
gönderen yusuf simsek
27 Ağu 2004 10:47
Forum: Programlama
Başlık: dbase tabloda pack olayı
Cevaplar: 3
Görüntüleme: 852

şair çok teşekkür ederim...

en kısa zamanda kodları deneyip tekrar döneceğim...

Ya bu kodlar yüzünden başıma gelenler herhalde pişmiş tavuğun başına gelmemiştir. :D

Tekrar teşekkür ederim...
gönderen yusuf simsek
26 Ağu 2004 05:14
Forum: Programlama
Başlık: Dbgridden arama
Cevaplar: 3
Görüntüleme: 1140

dostum kolay gelsin. ben dediğin olayı edit kullanarak yapıyorum. edit nesnesinin keypress olayında LIKE ŞARTIYLA sorgulama yaptırıyorum. böylece istediğim kayıtlar listeleniyor.. belki dbgrid de cellclick olayında da olabilir. procedure Tmusteri.Edit1KeyPress(Sender: TObject; var Key: Char); begin ...