Barutalı senin söylediyin kayıt numarasını olmak değilmiyidi? Ben bir sey olsun meselabarutali yazdı:ilk mesajımı baştan oku
IBTable1.ShowPost:=12;
IBTabel1.GoTo:=12; gibi bir şeyler istiyorum.
Barutalı senin söylediyin kayıt numarasını olmak değilmiyidi? Ben bir sey olsun meselabarutali yazdı:ilk mesajımı baştan oku
Kod: Tümünü seç
with query do
begin
close;
sql.clear;
sql.add('Select * from tablon where on_ikinin_oldugualan=:P');
parameters.parambyname('p').value := 12;
open;
end;
Kod: Tümünü seç
ibquery1.Locate(fieldAdi,[fieldDegerleri],[]);
Kod: Tümünü seç
ibquery1.Locate('STOK_ID',[s_id],[]);
merhabasubhan yazdı:Selam Arkadaşlar. Ben Test Bank adlı bir program yapıyorum ve bazı sorunlar çikdi.
Tabloda gösterilen kayıtın numarasını alıb saklamak ve programı tekrar açınca alınan
kayıt numarasını uygun tablodan kayıtı göstermek istiyorum. Bu işlemi nasıl yaparım.
Kod: Tümünü seç
procedure TForm1.SatirNoKaydet(KayitIsmi:String;DataSet:TDataSet);
var
f:TextFile;
begin
AssignFile(f,KayitIsmi+'.txt');
Rewrite(f);
WriteLn(f,inttostr(DataSet.RecNo));
CloseFile(f);
end;
procedure TForm1.SatirNoBulveGit(KayitIsmi:String;DataSet:TDataSet);
var
f:TextFile;
s:string;
i:integer;
begin
if FileExists(KayitIsmi+'.txt') then
begin
s:=0;
AssignFile(f,KayitIsmi+'.txt');
Reset(f);
if not Eof(f) then
begin
ReadLn(f,s);
i:=StrToInt(i);
if (dataset.RecordCount>=i) and (i>0) then
begin
dataset.First;
dataset.MoveBy(i-1);
end else dataset.First;
end;
CloseFile(f);
end;//else showmessage('Daha once satir bilgisi kayit edilmemis.');
end;
////kullanimi
SatirNoKaydet('carihesap',cariquery);///satır no kaydeder
SatirNoBulveGit('carihesap',cariquery);///satır no kaydını okur ve en son kayıtlı satıra gider
conari yazdı:Jedi deki JVDBfindedit i kullanın kodda yazmanıza gerek kalmaz.
Findstyle özelliği ile filtrele veya navigate et.
conari yazdı:Datasource kısmına dbgride bağladığınız datasource u bağlayın.
Filtreleme yapcağınız fieldı Datafiled kısmından seçin.
findstyle özelliğini fsfilter yaparsanız filtre uygular, fsnavigate yaparsanız yazdığınız ile ilgili kayıda ulaşır. findmode da any herhangi bir kayıt , first ilk kayıt anlammında