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 ...

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 ...

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 ...

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 ...

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 ...

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 ...

: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 ...

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 ...

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 ...