Delphi Forum

Tarih formatını [Gün].[Ay].[Yıl] olarak değil de [Yıl].[Ay].[Gün] olarak gönderilmesi sorununuzu çözebilir.
( MS-SQL 2005 çalışıyor )

procedure HeceKaydet( ACumle : string ); var sHece, sTemp : string; begin sTemp := ACumle; while not ( sTemp <> '' ) do begin sHece := Copy ( sTepm, 1, Pos('-',sTemp) ); (* sHece değişkenini veritabanına kaydet... *) sTemp := Copy( sTemp, (Lenth(sHece)), Length(sTemp) - Lengh(sHece) ); end; end; pr...

hayırlı olsun hocam

Yukarıdaki ve benzer konu başlıkları altındaki kodlardan derleyerek yazıp kullandığım kodu paylaşmak istedim procedure TAnasayfa.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var i : integer; F : TForm; begin if Application.MessageBox('Programı Kapatmak İstiyor musunuz?','UYARI',MB_YESNO+M...

bir stringlist tanımlayıp txt dosyasını srtinglist'e yükleyebilir ve stringlist içinden okuyabilirsin. procedure form1.button1click(sender : tobject ); var liste : tstringlist; begin liste := tstringlist.create; liste.loadfromfile('c:\deneme.txt'); edit1.text := liste[0]; edit2.text := liste[1]; lis...

sayın mrmarman hocam teşekkür ederim.

bundan sonra sizin yönteminizi kullanacağım

S.a. DAT dosyasınadaki veriyi bir değişkene atayıp, her bir kaydın ve alanın uzunluğuna göre COPY ile alabilirsin... DAT dosyasında ki boyutu; ID Integer = 5 karakter Malik Char = 30 karakter Kapi_No Integer = 5 karakter Su_No Integer = 5 karakter Elektrik_No Integer = 5 karakter Yol_Adı Char = 50 k...

akipek yazdı:rx component setinde memory de kullanılmak üzere table yaratabileceğin component var.

rx component setindeki memtable kullanmak için BDE nin de bilgiasayara kurulması gerekebiliyor. ( Firebird kullanan arkadaşlar için. )

kardeşim ellerine sağlık. Çok güzel olmuş...

ekleyeli çok uzunn bir zaman olmuş ama kime ne zaman lazım olacağı belli olmuyor.

S.A. procedure TFrom1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin perform(WM_NEXTDLGCTL,0,0); key:=#0; end; end; Edit1OnKeyPerss olayına kodu yazdıktan sonra. diğer edit nesnelerinin KEYPRESS olayları için de "Edit1KeyPress" yazarsan tüm edit nesneleri için a...

WHERE islemtur =:iislemtur AND (:itarih1 IS NOT NULL OR sh.tarih = :itarih1) AND (:itarih2 IS NOT NULL OR sh.tarih <= :itarih2) hocam birinci satırdan " > " şartını kaldırdım ve tam istediğim oldu :lol: :lol: sabahtan beri kasıyom, ve zor olanı aramaktan basit PÜF NOKTALARINI göremiyorz :...

s.a. yukarıda belirtmemiştim, yolu bulunca sıkıntıyı çözeriz diye ama işin içinden gebe çıkamadım :oops: gene kullanıcı seçimine göre TEK TARİH için veya İKİ TARİH ARALIĞI için değer döndermesi gerekiyor WHERE islemtur =:iislemtur AND (:itarih1 IS NOT NULL AND :itarih2 IS NOT NULL AND sh.tarih betwe...

:lol: :lol: RECEP HOCAM bi yerde bişeylerin eksik olduğunu biliyordum. Siz yazarsınısda çalışmasmı hiç :lol: FOR SELECT sh.islemtur, sk.ukod, sk.uad, sk.barkod, sk.umarka, sk.ugrup, sk.usinif, sk.ubirim, sh.tarih, sh.aadet, sh.afiyat, sh.sadet, sh.sfiyat, sh.isk1, sh.isk2, sh.isk3, sh.isk4, sh.isk5,...

RECEP Hocam ve Hakan arkadaşım. Çok teşekkür ederim. IS NULL ve CASE WHEN yapısını ve kullanım şeklini öğrenmiş oldum :D her iki yoluda denedim ama her iki yolda da sorun çözülmedi, kendi denemelerimde hezimetle sonuçlandı... Her iki yolda da Column does not belong to referenced table. hatasını veri...

sorunu yanlış dile getirdim. NULL olan alanlar SORGU ŞARTLARI, WHERE islemtur =:iislemtur if iurunkod <> null then AND sh.ukod =:iurunkod if ibarkod <> null then AND sk.barkod =:ibarkod if iurunad <> null then AND sk.uad =:iurunad .... bu şekilde bir kodlama yapmam gerekiyor ama IF...THEN veya CASE ...