Delphi Forum

// Capslock Durumunu anlama ve değiştirme örneği
// Yilmaz KAYGISIZ

procedure CapsLock(BeforeState:Integer; LastState:Integer);
Begin
CurrentState := GetKeyState(vk_capital);
GetKeyboardState(KeyState);
If CurrentState=0 then
begin
KeyState[vk_capital] := LastState;
IF BeforeState=0 Then ...

S.A.

edit nesnelerinin CharCase seceneğini ecUpperCase seçmen bir çözüm yolu olabilir ama dbgrid nesnesi için bu seçim şansı malesef yok

Kolay gelsin

S.A.

iyi çalışmalar..

Stok,cari ve kasa hareketlerinin olduğu biç proje üzerinde çalışıyorum..

Daha önce herbir kasa tablom ayrıydı. (müşteri cari,firma cari, nakit, banka) tabi bu yapı beni epeyce zorladı..Bir hocamdan "TEK tabloda topla" şeklinde bir fikir geldi.

Yapı olarak biraz daha ...

(nacizane fikrim) paketleme esnasında aliası "c:\veri" olarak ayarlamamış olabilir misiniz?

daha önce aynı olayı yaşadım

S.A.

Kolay gelsin.
En büyük alanı bulmak için (haliyle bir fazlası içinde dönen sonuca +1 )

S.A.

İlginizden dolayı çok teşekkür ederim.Kusura bakmayınız.Bir süredir şehir dışındaydım.Bu nedenle geç cevap verdim

maça 5-0 yenik başlıyorsun, kazanman çok zor
Sayın Mustafa Hocam dediğiniz doğru ama ben de 0 değilim.
Şimdilik 5 -3 :lol:

Bir süre interbase ile uğraştım ,deneme için ...

S.A.

Tüm forma kolay gelsin...

Uzun süredir kafamı karıştıran ama hala sağlıklı bir cevap bulamadığım bir sorunum var.

Şimdi ürün girişi yapılıyor ve giriş fiyatı belirleniyor.Ürün çıkışı yapılacağında da girilen oran doğrultusunda (%10 , %20 gibi) giriş fiyatı üzerine eklenerek satış fiyatı ...

S.A.

kolay gelsin..

3 gün önce ben de aynı olayla uğraşıyordum.

Çözüm yolunu şu şekilde yaptım

Bakiye yi dışarda bıraktım.
Borç girişinde ALACAK=0
Alacak girişinde BORC=0
DBgridde ad,soyad,borç,alacak alanlarını gösterdim.

2.bir query ile bakiyeyi buldum

query.close;
query.sql.clear;
query ...

S.A.
bu şekilde de yapabilirsin..

kolay gelsin

S.A.

@ASLANGERİ kardeşim.ne zaman başım sıkışsa hızır acil gibi hemen yetişiyosun.Allah razı olsun

Evet aynı sorun dünde uğratırmıştı.Alışınca herşeyi delphiye yaptırmaya alışınca aklıma gelmedi...

Çok teşekkür ederim.

S.A.

kolay gelsin

çalışmış olduğum projede veritabanını çalışma yılına göre kullanmak için aliası açılışta düzenlemeye çalışıyorum.

(dün internetim sorunluydu ve formun offline hali yardımcımdı..Ne kadar harika olduğunu dün bir kere daha keşfettim ve hazırlayan arkadaşlara bir kere daha teşekkür ...

Mustafa hocam düzeltmenizden dolayı teşekkür ederim..

Seminerlerde kodların dediğiniz şekilde çalıştığını öğrendim.
Ama program içinde hesaplama için kullandığım bir query var..Hesaplamayı yaptırıyorum ve sonucu program içinde kullanıyorum.

Ama OPEN veya EXECSQL kodunun birisini yazmadığım da ...

S.A.

kolay gelsin


query.close;
query.sql.clear;
query.sql.add('select sum(bakiye) toplam);
query.sql.add('from tablo');
query.open;


şeklinde bi denermisin..

eğer (ki tahminimce de böyledir) bir butonun altında

query.close;
query.execsql;
query.open; denermisiniz.
queryi hesaplama yapmak ...

S.A.

kolay gelsin

dbgrid double click olayında baglı olduğu datasetten ürünün numarasını alabilirsin. bu numarayı sorgulatıp istediklerini de 2. formdaki editlere gönderebilirsin...

procedure Tform1.DBGrid1DblClick(Sender: TObject);
begin
dm.query1.Close;
dm.query1.Params[0].AsInteger:=dbgrid1 ...

S.A.

Hayırlı Cumalar.
MUSKUT arkadaşım ALLAH RAZI olsun...

çok teşekkür ederim.. OLC arkadaşım sayesinde fonksiyon tuşlarını kullanmanın daha kolay bir yolunu daha öğrendim..

Sabah sabah iyi moral oldu yaa.Güne bişeyler öğrenerek başlamak kadar güzeli yok.

Tüm Formdan ve bu imkanı sağlayan ...