müşteri adına göre carikod

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
must_sargin
Üye
Mesajlar: 216
Kayıt: 14 Şub 2004 03:13
Konum: Gebze
İletişim:

müşteri adına göre carikod

Mesaj gönderen must_sargin »

iyi çalışmalar,
programda acaba müşteri adını girdikte sonra adın ilk iki karakterinden oluşan ve artan carikod verebilir miyim? örneğin ali müşterisinin kodu al001, altan müşterisinin kodunu al002 , ahmet müşterisinin kodunu ah001 şeklinde verdirme imkanı olabilir mi?
şimdiden teşekkürler...
Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Mesaj gönderen mege »

.-.-.-.-.-.-.-. ^_^
must_sargin
Üye
Mesajlar: 216
Kayıt: 14 Şub 2004 03:13
Konum: Gebze
İletişim:

Mesaj gönderen must_sargin »

iyi çalışmalar,
incelediğim kod yapısında sanırım standart harfe göre sırano artıyor. acaba benim istediğim yaapıya nasıl uyarlayabilirim?
Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Mesaj gönderen mege »

Kod: Tümünü seç

yenistring:=
copy(ensonkaydedilenstring,1,2) +
Numarator(copy(ensonkaydedilenstring,3,length(ensonkaydedilenstring-2)));
:roll: herhalde bu işini görür
.-.-.-.-.-.-.-. ^_^
must_sargin
Üye
Mesajlar: 216
Kayıt: 14 Şub 2004 03:13
Konum: Gebze
İletişim:

Mesaj gönderen must_sargin »

yazdığınız kodu nerede ve nasıl kullanabilirim?
Kullanıcı avatarı
serbek_tr
Üye
Mesajlar: 362
Kayıt: 16 Ağu 2004 12:54

Mesaj gönderen serbek_tr »

Benim bir tavsiyem olacak sana uygulamada işe yarar ama ne derece profesyonel olur bilemem
mantık şu;

Bir table oluştur içinde kod ve sıra no diye iki tana Field olsun

her cari açıldığında bu tabloda kontro yap şöyle açılan carinin ilk iki harfini al bu tabloda kod field na göre arama yaptır eğer ki bu kod mevcut ise bu defa bulunan bu kodun karşılığındaki sıra field nın değerini al bir arttır eğerki bu kod daha önce açılmamış ise o anda bu table dainsert yap ilk iki harfi kod alanına istediğin düzendeki sıralamayıda sıra field ına ata mesela
kod.asstring:=carikodal//ilk iki harf
sira.asstring:='001'//ilkdeğer
herhalde mantığı anlatabilmişimdir gerisini artık sen halledersin
Procedure Forum.Imza(Sender: TObject)
Begin
ShowMessage('Her türlü fikire, Her zaman açığım')
End;
must_sargin
Üye
Mesajlar: 216
Kayıt: 14 Şub 2004 03:13
Konum: Gebze
İletişim:

Mesaj gönderen must_sargin »

iyi çalışmalar,
dediğiniz gibi bir kod yazmak için be biraz acemiyim :oops: bence yapacağım en iyi işlem husonetin componentini kullanarak CR0001,CR0002,+... şeklinde bir yapı kurmak. yinede yardımlarınız için teşekkürler.
Kullanıcı avatarı
altunway
Üye
Mesajlar: 217
Kayıt: 11 Haz 2003 09:16
Konum: İstanbul
İletişim:

Mesaj gönderen altunway »

S.A ;

must_sargın bence yapabilirsin..ne olur biraz uğraş..Yapanlar nasıl yapıyor ?neyin eksik ? hadi kendine güven biraz eminim yapacaksın ..

kolay gelsin.
must_sargin
Üye
Mesajlar: 216
Kayıt: 14 Şub 2004 03:13
Konum: Gebze
İletişim:

Mesaj gönderen must_sargin »

iyi çalışmalar,
husonetin bileşenini nasıl tabloya uyarlayabilirim? yani tabloya her kayıt girildiğinde nasıl artırım sağlayabilirim CR0001(ilk kayıt),CR0002(2.kayıt)... şeklinde her kayıda bu şekilde numara vermesini istiyorum.
Şimdiden teşekkürler.
Cevapla