Delphi Forum

Senat0r

mesela elma aldın 2 kg diyelim vt ye ekledin sonra başka bir faturanda 10 kg elma aldın birinde 20 kg aldın senin vt de
elma 2 kg
elma 10 kg
elme 20 kg şeklinde olacak mantık budur daha sonra sen
select sum(urun) from tablo where urun="elma" group by urun şeklinde sorguayıp elma sayısını
32 ...

Senat0r

Tahminim kütüphanelerde sorun olabilir. Release yaptiysan tam yüklenmemiş olabilir veri tabanında alanlarla ilgili sorunlatdada bu hatayi verebiliyor bunlar sadece birer varsayim

Senat0r

Merhabalar;
Ben ihtiyac anında unitlerden create edip kulanıyorum performansa etkisi pek gözle görülür derecede yok
Tavsiye ederim hocam .

Senat0r

Haklısınız ^ İşaretini görünce ilk aklıma gelen nokta pointer oldu düşünemedim

Senat0r

Tabloları ilişkilendirmeniz gerekli ve ya notlar kısmında sorgulama yapmanız gerekli ilişkilendirmek en mantıklısı sadace müşteri id sorgular ve boş gelir.

Senat0r

Peki edit10 değeri 0 olursa ne yapacak ?

Senat0r

Web servisle alakalı bir durum gibi görünyor sanki normalde wsdl import ettiğimiz zaman tüm birimleri declare etmesi gerekli bunda function içerisinde tanımlanmış değişkenleri declare etmiyor.

Senat0r

Kod: Tümünü seç

Function Sinav(x:Double):Double;
var
e:Double;
Begin
e:=2.718;
  Result:=x +e*(x/10);
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FloatToStr(Sinav(3));
end;

Pointerler beni sevmez bende onları

Senat0r

Hatam varsa düzeltin çok uzman değilim.
Abi kasaya giren borç çıkan ise alacaklandırılır. mesela 200 tl lik bir satış yaptın bunun kaydını yapalım adam 100 tl peşin 50 tl veresiye 50 tl kredi kartı ile ödeme yaptı

borç alacak
Kasa 100
yurtiçi alacaklar 50
bankalar hesabı 50
ticari mallar 200
Bu ...

Senat0r

Kod: Tümünü seç

if qry.recordcound =0 then 
showmessage('kayıt bulunamadı ')
else showmessage('kayıtlar listeleniyor ')

gibi basit bir kontrol kullanabilirsin

Senat0r

uniti oluşturup kaydedin daha sonra

Kod: Tümünü seç

unit uReportDetayAktar;

interface

uses

burdaki uses e dahil edip deneyin çalıştığını göreceksiniz olmazsa bağlanığp bakabilirim .

Senat0r

Abilerimiz yememiş içmemiş bizler için unit yazmış güle güle kullanın :)
unit uAlphaTransPanel;

interface

uses
windows, graphics, classes, ExtCtrls, messages;

type
TPanel = class(ExtCtrls.TPanel)
protected
procedure Paint; override;
private
fAlphaVal : Byte;
fBmpParent: TBitmap;
fBmpOwn ...

Senat0r

1:= Delphi mühendisleri sonuçta çalışıp bir emek sarfediyor bunun karşılığınıda almak durumundalar
2:=Starter sürümüyle bir proje geliştirmek durumunda kaldım acayip compenent sıkıntısı var ama program yazdığınızı hissedebiliyorsunuz sonuç olarak 150 euro starter 500 euro unidac gerisini siz ...

Senat0r

32 bit sürüme sağ tıklayıp uyumluluk ve yönetici ayarlarını yapıp kurduğunuz zaman sorunsuz çalıştırabiliyorsunuz.

Senat0r

İlk açılıştada oluşturduğunuz lisans ile koşul oluşturacaksınız

yani

Kod: Tümünü seç

 if lisans=9ff6-d63b then acılıyor else lisans uyumsuz

gibi devam edeceksiniz.

Delphi Forum

78 uygun sonuç bulundu

Re: stok_takip_programı

Re: Delphi çalışma anı exe durdurma hatası

Re: Form Kullanımı

Re: fonksiyon hesabını edite yazdırma?

Re: DBGrid Hakkında

Re: Toplama göre bilgi ve kayıt işlemi

Re: web servis wsdl import sorunu (xe7)

Re: fonksiyon hesabını edite yazdırma?

Re: Veresiye kayıt hakkında mantık hatası mı yapıyorum ?

Re: sorgu

Re: Panelin transparent özelliği

Re: Panelin transparent özelliği

Re: Delphi hakkında birkaç soru ?

Re: bu firebird x64 herhangi bir sürümün kurulumu.

Re: Lisans Kontrolü Yapma