Increment Alan Soru

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Viper
Üye
Mesajlar: 22
Kayıt: 29 Ağu 2003 09:34
İletişim:

Increment Alan Soru

Mesaj gönderen Viper »

Daha onceki mesajlarda da vardı ancak beceremedim. Tablede 8 alan var
8 dbedit e bagladım. 1 tanesi increment (+) alan. form ilk olustugunda last kayda gidiyorum.
Ancak Dbedit lerden birinde once bir kaydı tutmam gerekiyor. Sıra no (increment alan ) (Giris Saati) daha sonra hesap kesildiginde cıkıs saati tutar v.s kayıtlarını aynı satırda degistirmem gerek. Vede kaydet tusuna bastıgımda bu alanın last kayıttan +1 artmasını istiyorum.

Ilk form olustugunda Last kayıda gidecek. Yeni bos bir kayıt olusacak (sira nosu +1 artmıs sekilde). Yani bos kayıtta +1 sıra nosu olacak diger alanlar bos. Sonra Hesap acıldıgında Sırano ve Giris saati ni kaydedecek. Hesap kesildiginde aynı sıra no aynı giris saatleri ile cikis saati ve tutar kayıtlarını tutacak ( table yi prior yapmak gibi ) . Umarım anlatabilmisimdir. Saygılar....
DotCom
Kıdemli Üye
Mesajlar: 1696
Kayıt: 11 Tem 2003 10:30
Konum: İzmir
İletişim:

Mesaj gönderen DotCom »

Merhaba ;

Table ın Create olayına ;

Kod: Tümünü seç

table1.last;
sirano:=table1.parambyname('pm key').asstring;
table1.insert;
deger:= strtoint(sirano) + 1 ;
Table1.ParamByName('aktarılacakyer').asstring:=inttostr(deger);
gibi bir algoritma kurmalısın. algoritmamda bir problem olabilir. forum yöneticilerimizinde incelemesinde fayda var. Ben şirkette delphi olmadığı için deniyemedim. Ama projemde böyle bişi kullanmıştım.

Kolay Gelsin...
Cevapla