kodu birer birer artırma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
kodu birer birer artırma
Herkese iyi çalışmalar;
Ben kodu birer birer artırmak istiyorum.. Bunu bir türlü beceremedim Nasıl yapabilirim
Ben kodu birer birer artırmak istiyorum.. Bunu bir türlü beceremedim Nasıl yapabilirim
-
- Üye
- Mesajlar: 114
- Kayıt: 20 Ağu 2004 01:08
Anlamadım ama bu işini görür belki
Kod: Tümünü seç
var
i:integer;
begin
for i:=1 to 100 do
Edit1.text:=i;//Edit 1 den 100 kadar sayar
end;
nasıl yani?
eğer kod dan kasıtın tablodaki bir alansan autoinc diye ma yaparsan bulursun.
Kolay Gelsin.
eğer kod dan kasıtın tablodaki bir alansan autoinc diye ma yaparsan bulursun.
Kolay Gelsin.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
-
- Üye
- Mesajlar: 298
- Kayıt: 19 Tem 2004 01:45
- Konum: Giresun/Samsun
kodu birer birer artırma
Kodu birer birer artırma olayı derken yani kodu,adı,soyadı
gibi 3 alanımız olsun bunu şimdi kayıt yaptığımızda yani adı soyadını girecek kaydete basacak kodu 1 olacak 2. bir kayıt girdiğinde kodu 2 olacak bir de şunu söyleyeyim autoinc olayını kullanmayacağım
ben bunu kod yazarak kodu artırmak istiyorum
gibi 3 alanımız olsun bunu şimdi kayıt yaptığımızda yani adı soyadını girecek kaydete basacak kodu 1 olacak 2. bir kayıt girdiğinde kodu 2 olacak bir de şunu söyleyeyim autoinc olayını kullanmayacağım
ben bunu kod yazarak kodu artırmak istiyorum
-
- Üye
- Mesajlar: 298
- Kayıt: 19 Tem 2004 01:45
- Konum: Giresun/Samsun
Merhaba ;
Yeni kayıt ekleme butonuna ;
kolay gelsin
Yeni kayıt ekleme butonuna ;
Kod: Tümünü seç
Button1.Click
var
deger : integer ;
Begin
Table1.Last;
Deger := Table1.Fieldbyname('kodu').Asinteger ;
Table1.insert ;
Table1.Fieldbyname('kodu').Asinteger := Deger + 1 ;
End;
-
- Üye
- Mesajlar: 330
- Kayıt: 09 Mar 2004 11:18
- Konum: Konya
- İletişim:
S.A.
eğer query nesnesi kullanıyorsan;
query nesnesine bu kodu yaz..( bu yolu formdan buldum )
M_NO: number tipinde bir değişken...
farklı ve uzun bir yol sorarsan eğer
veritabanını baştan sona kadar tarayarak en büyük değeri bulursun..
eğer kayıt silinirse en büyük değer yerine silinen değeri verir..(daha önce bu yöntemi kullanmıştım)
Mustafa hocam RECNO ile bu işlemin yapılacağını belirtmişti ama formda nerede olduğunu tam hatırlamıyorum.
eğer query nesnesi kullanıyorsan;
Kod: Tümünü seç
SELECT MAX(M_NO)
FROM "musteri_kart.dbf" Musteri_kart
M_NO: number tipinde bir değişken...
farklı ve uzun bir yol sorarsan eğer
Kod: Tümünü seç
i:=0;
repeat
i:=i+1; // döngüden çıkana kadar değeri 1 artırır
dm.m_kart.Close;
dm.m_kart.SQL.Clear;
dm.m_kart.SQL.Add('select * from m_kart');
dm.m_kart.SQL.Add('where kayit_no='+#39+inttostr(i)+#39 ); // i değerini veritabanında arar...
dm.m_kart.Open;
if dm.m_kartKayit_no.Value <> inttostr(i) then // i değeri veritabanında yoksa mesaj verir
begin
showmessage(' EN SON BOŞ KAYIT NUMARASI = '+inttostr(i));
end;
until dm.m_kart.Eof ;
eğer kayıt silinirse en büyük değer yerine silinen değeri verir..(daha önce bu yöntemi kullanmıştım)
Mustafa hocam RECNO ile bu işlemin yapılacağını belirtmişti ama formda nerede olduğunu tam hatırlamıyorum.