Arsip: bagaimana menunjuk row terakhir stlah di refresh pd dbgrid ?

more 11 years ago
aandrie77
Dear Delphier,
Tlong bantuannya, kan dalam DBGRID setelah di refresh data maka row yang terseleksi akan kembali ke posisi awal.
Bila saya menyeleksi row ke 10 trus bisa ngak bila setelah di refresh maka bisa ke row 10 lagi dan bukan ke awal (paling atas row) di DBGrid..?
Terima kasih atas perhatiannya....

more 11 years ago
mambamaestro
harus main di datasetnya. simpan dulu RecNo sebelum refresh. misalken Anda pake TAdoTable. misalkan procedure refreshna sebagai berikut:
procedure Refresh;
var NoRec: Integer;
begin
NoRec:= AdoTable1.RecNo;
{refresh}
AdoTable1.Close;
AdoTable1.Open;
{kembalikan posisi record}
with AdoTable1 do begin
If NoRec <= RecordCount then //periksa dulu, jangan2 jumlah record pada database berkurang.
AdoTable1.RecNo = NoRec
else
AdoTable1.Last; //kalo ternyata NoRec menunjuk pada record yang sudah gak ada, go ke akhir recordset
end;

more 11 years ago
ebta
Bisa juga memanfaatkan tipe TBookmark, Contoh kode berikut diambil dari help file Delphi (bisa dikembangkan sendiri)
procedure TForm1.CopyDataClick(Sender: TObject);
var
SavePlace: TBookmark;
PrevValue: Variant;
begin
with MyData do
begin
{ get a bookmark so that we can return to the same record }
SavePlace := GetBookmark;
try
{ move to prior record}
FindPrior;
{ get the value }
PrevValue := Fields[0].Value;
{Move back to the bookmark
this may not be the next record anymore
if something else is changing the dataset asynchronously }
GotoBookmark(SavePlace);
{ Set the value }
Fields[0].Value := PrevValue;
{ Free the bookmark }
finally
FreeBookmark(SavePlace);
end;
end;
end;

more 11 years ago
aandrie77
Terima kasih master, atas masukannya.....
dari beberapa metode.. akhirnya sy menggunakan konsep Locate... yang tidak ribet sbb kl pake bookmark suka muncul index undefine jd bingung kl pake Tquery dan sql yang dibuat saat runtime...
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 1 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 2 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 9 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 9 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 9 years ago
Random Topic
- Text vertikal
by p2bf in Tip n Trik Pemrograman more 15 years ago - event afterprint
by yuan_carlos in Reporting more 13 years ago - Thread utk Ping ke Banyak IP
by rudisbg in Network, Files, I/O & System more 10 years ago - Mas - Mas tolongin ya....
by wiar in Hal umum tentang Pascal Indonesia more 14 years ago - konversi lingkaran ke huruf
by dragon26ball1977 in Tip n Trik Pemrograman more 14 years ago - nextgrid, quantumgrid, tmsgrid, which one da best?
by old_shutherhand in Tip n Trik Pemrograman more 14 years ago - Convert File dan ekstensi
by dadanarifin in OOT more 12 years ago - DBGrid & SQL Server
by tAtA in Tip n Trik Pemrograman more 14 years ago - scrollbar jadi bunder
by Cip_rud in Form Enhancement & Graphical Controls more 13 years ago - Parsing Vonem..
by indray2j in Multimedia & Graphic Enhancement more 15 years ago