müşteri limit

[zengin]

delphiturkiye üyeleri ve emegi gecen herkese kolay gelsin

benim proplemim müşteriye ödeyecegi bir şekilde tutar limit koymak istiyorum edit1 50 000 000 TL rakam yazdıgım zaman edit2de
51 000 000TL oldugu zaman iki hesabı karşılaştırsın bana haber versin diye düşünüyorum bu kodlarla yapacam fakat tam istedigim gibi olmuyor degişik bir kod önerebilirmisiniz lütven saygılarımla kolay gelsin

procedure TForm1.Button2Click(Sender: TObject);
var
a,b:String ;
begin
a:=string(edit1.Text);
b:=string(edit2.Text);
if a < b then
begin
ShowMessage (a+(' Ödeme Risk fazlası Aşıyor ? '));
end;

[mussimsek]

StrToFloat ile floata çevirip öyle karşılaştır.

if StrToFloat(Edit1.Text)>StrToFloat(Edit2.Text) then

gibi.

Kolay gelsin.

[zengin]

StrToFloat ile floata çevirip öyle karşılaştır.

if StrToFloat(Edit1.Text)>StrToFloat(Edit2.Text) then

gibi.

Kolay gelsin.

mustafa bey vermiş oldugun bu kodlar cok faydalı oldu cokteşekkür ederim fakat ben bunu dbedit icin kullanıyorum dbedidin icerisinde
sayı olmadan hata mesacı veriyor cünkü bazı müşteriye limit yazmak istedigim icin dbedidin ici 0 bakiyede olabilir bana bu konuda yardımcı olabilirmisiniz lütven

Not:birde özür dilerim bu mesacı yanlış yerdenmi gönderiyorum ilk defa özellikle sizden bir ricada bulunuyorum saygılarımla

[freeman35]

Öncelikle şahsa yönelme, sen zararlı çıkarsın üye sayımız 1000 i geçti, mutlaka içinden 3-5 kişi cevap verir. Bu arada mutlaka forum kurallarını oku.
cevaba gelince,
....

Kod: Tümünü seç

var Fark : Double;
begin
  fark := Table1.FieldByname('Limit').AsFloat - 
              Table2.FieldByname('Tutar').AsFloat;
  if Fark<0then begin
  ShowMessage('Limit Aşılmıştır...');
  end;

Kolay gele

[mege]

başka bir yerlerde tip hatası almamak için val aktrama kontrolünü kullanabilirsin..
örneğin

Kod: Tümünü seç

var a:real;
   iErr:integer;
begin

val(DbEdit2.Text,a,iErr);
if iErr <> 0 then
 begin
   showmessage('hatalı değer girişi var fonksiyondan çık');
   Exit;
 end;

[mussimsek]

direk DBEdit'lerle vs. çalışmayın. Freeman35'in yöntemi en güzel olanı. Bağlı olduğu table'dan alın bilgileri.

NOT : Evet yanlış gruptu ben buraya taşıdım. Her forumun altında hangi mesajların atılabileceği var.

Kolay gelsin.

[zengin]

sayın delphiturkiye üyeleri limit olayını delphiturkiye sayesinde bu şekilde
cözdük faydalı olan arkadaşlara teşekkürler ederim bende kendimce
bir ayarlama yaptım ve güzelde oldu cok teşekkürler

var Fark : Double;
a,b:String ;
begin
a:=string(Table1tutar.text);
b:=string(Table1toplam.text);
fark := Table1.FieldByname('tutar').AsFloat -
Table1.FieldByname('Toplam').AsFloat;
if Fark<0then begin
ShowMessage (a+(' Ödeme üzerinden fazlası Risk Aşıyor ? '));
ShowMessage (b+(' Ödemesi Riskli teminat alınız? '));
end;

[freeman35]

Mesajı yazdığın kısmın üst tarafında Code yazan bölüme basarsan yazdığın kod daha okunaklı olur.

bir değişiklik daha.

Kod: Tümünü seç

....
var Fark : Double; 
begin 
fark := Table1.FieldByname('tutar').AsFloat - 
Table1.FieldByname('Toplam').AsFloat; 
if Fark<0then begin 
ShowMessage (Table1.FieldByname('tutar').AsString+(' Ödeme üzerinden fazlası Risk Aşıyor ? ')); 
ShowMessage (Table1.FieldByname('Toplam').AsSting+(' Ödemesi Riskli teminat alınız? ')); 
end; 

Kolay gele