DBGrid kayıt taşıma

[CiTiZEN]

Merhabalar arkadaşlar, sorunum şu;
DBGrid nesnesinde bulunan kayıtları grid üzerinde aşağı ve yukarı taşıyamıyorum, bunu yapmanın yöntemi nedir?
Kolay Gelsin.

[aslangeri]

s.a.
ilgili kayıtların order ile sıraladığın sıralamasını değiştirmen lazım.

[conari]

veritabanı bağlantılı olduğu için yapamazsınız. Sıralamayı Select ettiğiniz cümlede yaptırmalısınız.(Normal grid için konuşuyorum)

[CiTiZEN]

normal dbgrid kullanıyorum yazılım açık kaldıkca da veritabanı mecburen bağlı kalmak zorunda, ama order meselesini bi kurcalayım bakalım
Teşekkürler.

[Lord_Ares]

bir ara kullanmıştım. kodu bir incele istersen burada table adı benimkinde temp_detay_t sen table1 olarak yapabilirsin.
ben gecici table oluşturup işlem doğru sonuçlandıysa gerçek table kayıt ettiriyordum. datanın bozulmasını engellemiş oluryorum

procedure TANA.DETAY_TASI(NEREYE:INTEGER; GRID: TObject);
VAR
TASINACAK_KOD,DEGISECEK_KOD:INTEGER;
begin
if Temp_Detay_T.RecordCount>1 then begin
(GRID AS TDBGrid).DataSource:=NIL;
TASINACAK_KOD:=Temp_Detay_TDETAY_KODU.AsInteger;
CASE NEREYE OF
0: TEMP_DETAY_T.Prior;
1: TEMP_DETAY_T.Next;
END;
DEGISECEK_KOD:=Temp_Detay_TDETAY_KODU.AsInteger;

TEMP_DETAY_T.Locate('DETAY_KODU',INTTOSTR(TASINACAK_KOD),[]);
TEMP_DETAY_T.Edit;
TEMP_DETAY_TDETAY_KODU.AsInteger:=-1;
TEMP_DETAY_T.Refresh;

TEMP_DETAY_T.Locate('DETAY_KODU',INTTOSTR(DEGISECEK_KOD),[]);
TEMP_DETAY_T.Edit;
TEMP_DETAY_TDETAY_KODU.AsInteger:=TASINACAK_KOD;
TEMP_DETAY_T.Refresh;

TEMP_DETAY_T.Locate('DETAY_KODU','-1',[]);
TEMP_DETAY_T.Edit;
TEMP_DETAY_TDETAY_KODU.AsInteger:=DEGISECEK_KOD;
TEMP_DETAY_T.Refresh;
(GRID AS TDBGrid).DataSource:=ANA.Temp_Detay_S;

end;
end;



kullanımı şu şekilde

procedure TRECETE_01.yukari_tasi_actExecute(Sender: TObject);/// seçtiğin kaydı bir üste çıkarır.( dbgrid içinde)
begin
ANA.DETAY_TASI(0,DBGrid1);
end;


procedure TRECETE_01.asagi_tasi_actExecute(Sender: TObject);/// seçtiğin kaydı bir alta alır.( dbgrid içinde)
begin
ANA.DETAY_TASI(1,DBGrid1);
end;

[CiTiZEN]

bende kayıtları bir temp veritabanında tutuyorum kodları deneyeceğim teşekkürler

[Lord_Ares]

isterseniz, bendeki uygulamayı size gönderebilirim.

[CiTiZEN]

örnek olması açısından paylaşırsanız sevinirim

[Lord_Ares]

tabi ekte gönderiyorum. yalnız kendi hazırladığım tarih komponenti vardı onu bulamadım onu ekleyemiyorum ignore edip bakarsınız. zipin içinde enson compaile ettiğim exe si de bulunuyor. bunu çalışıtırdıktan sonra karşınıza çıkan ekranda
sol alt köşede Değiştir isminde bir button var ona tıklayın açılan ekranda yukarı ve aşağı isminde iki button görüceksiniz. yukarı buttonunu tıklarsanız dbgrid içindeki kaydın bir uste çıktığını göruceksiniz. yukarı buttonunun kodu U_ANA.pas dosyasında
TANA.DETAY_TASI prosedürü.

program açıldığında döviz kurlarını almak için bir siteye bağlanıyordu sanırım site değişmiş bu nedenle küçük bir hata veriyor.iptal edebilirsiniz.

burada en fazla 256 k dosya gönderebiliyormuşum,başka bir yere yukluyor ve size özel mesaj atıyorum.

[Lord_Ares]

özel mesaj ile size link adresini gönderdim.

[CiTiZEN]

çok teşekkür ederim indirdim şu an tam sitediğim olay gibi kodları kurcalama imkanım henüz olmadı ama adapte edince burda yazarım yine tekrar teşekkür ederim elinize sağlık.

[Lord_Ares]

sen sağol arkadaşım