Hızlı Satış

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Bulutiib
Üye
Mesajlar: 41
Kayıt: 13 Ara 2013 12:45

Hızlı Satış

Mesaj gönderen Bulutiib »

Merhaba Arkadaşlar,
Bir konuda sizden yardım istiyorum. Ben Market programıma hızlı satış kısmı eklemek istiyorum. Yani ekranda hızlı satış şeklinde menü olacak orada buttonlar olacak o buttonlara ürünlerin isimlerini ekleyecem ve buttonlara tıklayınca seçmiş olduğum ürünler satılacak bu konuda bana bir yol gösterebilir misiniz.
Teşekkür ederim.
Dosya ekleri
Ekran Alıntısı.PNG
Ekran Alıntısı.PNG (2.32 KiB) 2302 kere görüntülendi
Kullanıcı avatarı
pasa_yasar
Üye
Mesajlar: 570
Kayıt: 07 Haz 2004 12:35

Re: Hızlı Satış

Mesaj gönderen pasa_yasar »

Ben resmi açamadım. Tekrar yüklesen veya link versen tam inceleyebiliriz
Bulutiib
Üye
Mesajlar: 41
Kayıt: 13 Ara 2013 12:45

Re: Hızlı Satış

Mesaj gönderen Bulutiib »

Resmi seçiyorum ama tam göndermiyor.
Kullanıcı avatarı
pasa_yasar
Üye
Mesajlar: 570
Kayıt: 07 Haz 2004 12:35

Re: Hızlı Satış

Mesaj gönderen pasa_yasar »

resim yükleme sitelerine yükle orada foruma link verirsen daha rahat olabilir
Bulutiib
Üye
Mesajlar: 41
Kayıt: 13 Ara 2013 12:45

Re: Hızlı Satış

Mesaj gönderen Bulutiib »

Günaydın,
http://hizliresim.com/6mdL3E burada resmin detayı görülebiliyor.
Teşekkür ederim.
Kullanıcı avatarı
pasa_yasar
Üye
Mesajlar: 570
Kayıt: 07 Haz 2004 12:35

Re: Hızlı Satış

Mesaj gönderen pasa_yasar »

1. Veritabanı için

Her buton için bir alan tanımla ayar bölümü olduğunu varsayarsak. Alanlar için stok seçim bölümü tanımla stok seçildiğinde veritabanında örnek 1. buton için buton1 diye alan olduğunu varsay buton1 stok ID sini verirsin. Button 1 tıkladığında gider veritabanında kendisine tanımlı stoğu okur ve ekrana bulup getirir.

2. Txt dosyası olarak

Buton1 = Stok ID
Buton2 = Stok ID şeklinde kaydet alanları

Bir memo içinde yüklersin. button 1 tıkladığında txt den "Buton1" okur eşittirden sonrası copy komutu ile alır ilgili stoğu çağırırsın.

Bu konuda forumda daha önce ini ayar dosyası özellikleri konuşuldu aratarak txt olayını daha profesyonel çözebilirsin. Şimdilik aklıma gelenler bunlar
Bulutiib
Üye
Mesajlar: 41
Kayıt: 13 Ara 2013 12:45

Re: Hızlı Satış

Mesaj gönderen Bulutiib »

Merhaba,

http://hizliresim.com/jBmogn

Söyle birşey yapmaya karar verdim txt dosyasına

[B1]
BarKod=
Ürün Adı=
[B2]
BarKod=1000
Ürün Adı=PEYNİR

Şeklinde kayıt ettim bunları not defterinden okuyorum memo1e sıralı bir şekilde yazdırdım. Bundan sonra ki aşamada BitBtn1 in [B1] olduğunu Bitbtn2 nin [B2] olduğu nasıl anlayabilirim. Bu konuda yardım edebilir misini ?
Teşekkürler.
ertank
Kıdemli Üye
Mesajlar: 1657
Kayıt: 12 Eyl 2015 12:45

Re: Hızlı Satış

Mesaj gönderen ertank »

Bulutiib yazdı:Merhaba Arkadaşlar,
Bir konuda sizden yardım istiyorum. Ben Market programıma hızlı satış kısmı eklemek istiyorum. Yani ekranda hızlı satış şeklinde menü olacak orada buttonlar olacak o buttonlara ürünlerin isimlerini ekleyecem ve buttonlara tıklayınca seçmiş olduğum ürünler satılacak bu konuda bana bir yol gösterebilir misiniz.
Teşekkür ederim.
Merhaba, kullandığınız Delphi sürümü nedir?
Bulutiib
Üye
Mesajlar: 41
Kayıt: 13 Ara 2013 12:45

Re: Hızlı Satış

Mesaj gönderen Bulutiib »

Xe8 Kullanıyorum.
Bulutiib
Üye
Mesajlar: 41
Kayıt: 13 Ara 2013 12:45

Re: Hızlı Satış

Mesaj gönderen Bulutiib »

Arkadaşlar Sorunum çözdüm nasıl çözdüğüm konusunda bilgi paylaşamak istiyorum biraz uzun yolla oldu ama yinede istediğim sonucu aldım eğer daha bir kolay yolu varsa değerli hocalarımdan desteklerini bekliyorum.

Veritabanına hızlıSatışButtonları diye bir tablo oluşturdum

Tabloda, Id ,UrunAdı,Barkod birde ButtonAdı Alanlarım Var form ilk açıldığındna Id göre ara diyorum Örnek 1.Numaralı ID Button1 Caption Olayına yaz diyorum ve tabloda tanımlı olan UrunAdını Button1 Caption kısmına yazdırıyorum kodunu aşağıdaki gibi.

Dm.DsHizliSatisButtonIsimleri.Close;
Dm.DsHizliSatisButtonIsimleri.SelectSQL.Clear;
Dm.DsHizliSatisButtonIsimleri.SelectSQL.Add('Select * From HIZLISATISBUTTONISIMLERI');
Dm.DsHizliSatisButtonIsimleri.SelectSQL.Add('Where "ID"=:X ');
Dm.DsHizliSatisButtonIsimleri.ParamByName('X').Value:=3;
Dm.DsHizliSatisButtonIsimleri.Open;
if Dm.DsHizliSatisButtonIsimleri.RecordCount > 0 then
begin
Bitbtn3.Caption:=Dm.DsHizliSatisButtonIsimleriBUTTONURUNADI.Value;
end;

ve bunu buttonların hepsi için yaptırıyorum..

Daha sonra buttona tıklayınca veritabanından Yine arama yaptırıyorum ve ID 3 olan kaydın barkodunu SatısFormundaki barkoda yaz diyorum.

Buttonlara Urun kaydetme işlemini ise form yaptım grid üzerinden yaptırıyorum.

Sorunumu bu şekilde çözdüm biraz uzun yolla oldu ama doğru sonuç veriyor. Txt dosyası ile yapmaya çalıştığımda takıldğım bir çok nokta oldu.

Teşekkür ederim.
Cevapla