Stok işlemleri [İşinize yarayacağına eminim]-[Düzey=Düşük-Orta]

Sayfalar: 1

Stok işlemleri [İşinize yarayacağına eminim]-[Düzey=Düşük-Orta] Gönderen: The_SPeeDBoY Tarih: 27 May 2007 20:07:07
Öncelikle şunu belirteyim paradox veritabanı ile yetiştirilen öğrencileriz. Bu nedenle veritabanım
paradox bütün vereceğim programlarda. Siz kendi veri tabanınıza göre uyarlayabilirsiniz.

Ynt: Stok işlemleri [İşinize yarayacağına eminim]-[Düzey=Düşük-Orta] Gönderen: RewriteRule Tarih: 23 November 2007 17:51:38
link kırılmış sanırım:(

Ynt: Stok işlemleri [İşinize yarayacağına eminim]-[Düzey=Düşük-Orta] Gönderen: FetihlerFatihi Tarih: 23 November 2007 22:24:16

: RewriteRule 23 November 2007 17:51:38

link kırılmış sanırım:(

EKTEN İNDİRİN

Ynt: Stok işlemleri [İşinize yarayacağına eminim]-[Düzey=Düşük-Orta] Gönderen: Opt2000 Tarih: 24 November 2007 12:43:56
Selam,

"Öncelikle şunu belirteyim paradox veritabanı ile yetiştirilen öğrencileriz."

Öğrenci olduğunuz için bir iki tavsiye vereyim dedim.

1. Bileşenlerinize mutlaka anlamlı bir isim verin. Edit4 yerine edtUrunAdi gibi.
2. Kodlarınızı indentli yazın ki, okuması kolay olsun. Şu an kodlarınızı okumak cidden çok zor. Ayrıca kodun okunmasını kolaylaştıracak boşluklar da eklemeniz iyi olabilir.

begin
if (edit4.Text<>'') then
begin
Table1.Filtered:=true;
Table1.Filter:='[Urunaadi]='+#39+edit4.Text+'*'+#39;
end;
if (edit4.Text='') then
begin
Table1.Filtered:=true;
Table1.Filter:='[Urunturu]='+#39+edit3.Text+'*'+#39;
end;
end;

yerine

begin
if (edit4.Text <> '') then
begin
Table1.Filtered := true;
Table1.Filter := '[Urunaadi]=' + #39 + edit4.Text + '*' + #39;
end;

if (edit4.Text = '') then
begin
Table1.Filtered := true;
Table1.Filter := '[Urunturu]=' + #39 + edit3.Text + '*' + #39;
end;
end;

3. Aynı işlemi yapan fonksiyonları defalarca yazmayın.

edit3.Color:=clwhite;

yerine

(Sender as TEdit).Color := clWhite;

Sonra da bu işlemin uygulanmasını istediğiniz bütün Edit Boxların OnExit eventini bu fonksiyona yönlendirin.

4. Kod içerisine statik değerler girmemeye çalışın.

edit4.Color:=$0080FF00;

Bunun yerine şu daha mantıklı

const ActiveColor:TColor = $0080FF00;

//OnEnter eventine de
(Sender as TEdit).Color := ActiveColor;

Programla ilgili sıkıntılara gelince;

1. Programı daha iyi test edin Smile

Şu an Edit4'e bir şeyler yazıp sonra da silerseniz maalesef filtreler bozuk çalışıyor. Ayrıca biraz zorlayınca Key Violation hataları da alabiliyorsunuz.

2. Program aslında bir bilgisayar programından istenileni yapmıyor. Çünkü biraz bakkal defteri gibi çalışıyor. Sizin biraz daha kullanıcı dostu bir arabirim,veriler üzerinde daha fazla kontrol uygulayan bir sisteme ihtiyacınız var. Örneğin kullanıcı Ürün Adı ve Ürün türü olmadan kayıt yapamamalı. Ya da aslında aynı olan ama yazım yanlışından dolayı farklı görünebilecek ürünler olabilir, bunlar için drop down listeler (combo box) kullanabilirsiniz. Tabii bunu kullanınca veri tabanı tarafında da değişiklikler yapmanız gerekebilir (ki bence yapmalısınız). Örneğin Ürün Türü bilgilerini lookup table'dan almalısınız.

3. Ana pencere büyütüldüğü zaman anlamsız bir görüntü çıkıyor. Sanırım programın pencere türünü değiştirmek daha iyi olabilir.

Yukarıda yazdıklarım öğrenci olduğunu düşündüğüm içindir. Programı sadece örnek olsun diye koyduğunuzu biliyorum, ama nasıl alışırsanız o şekilde devam ederseniz. Bu yüzden hem sizin için bir uyarı/hatırlatma olsun, hem de yeni başlayan arkadaşlara tavsiye olsun istedim.

Umarım kırıcı olmamışımdır.

Kolay gelsin,
Bahadır Alkaç

Ynt: Stok işlemleri [İşinize yarayacağına eminim]-[Düzey=Düşük-Orta] Gönderen: SelçuK Tarih: 04 December 2007 15:24:47
hocam kırıcı olmak ne kelime. Bu söylediğiniz her kelime bir çeyrek altın niteliğinde.
sürekli bilgilerimizi güncelliyoruz. Bu da benim için çok güzel.

Ynt: Stok işlemleri [İşinize yarayacağına eminim]-[Düzey=Düşük-Orta] Gönderen: cLaW Tarih: 25 December 2007 01:58:34
süpersin bahadır hocam Very Happy

not aldım bunları Very Happy