±ÍÇÏ´Â ¼Õ´Ô À̽ʴϴÙ
·Î±×ÀÎ
ȸ¿ø°¡ÀÔ
  
  µ¨¸¶´ç °ø½Ä ÀºÇà°èÁÂ
  ÇϳªÀºÇà 227-910235-83607
  ¿¹±ÝÁÖ ÀÌ»ó±¹(¿î¿µÁø)
ÇÁ·ÎÁ§Æ® °Ô½ÃÆÇ
ÅõÇ¥°Ô½ÃÆÇ
µ¨¸¶´ç¼Ò°³
±âÃʺÎÅÍ È°¿ë±îÁö! µ¨ÆÄÀÌ ±³À° - µ¥ºê±â¾î
Áú¹®°ú ´äº¯ Áú¹®°ú ´äº¯ ÀÔ´Ï´Ù.
±Û³»¿ë - Áú¹®°ú ´äº¯
 [Áú¹®]OnCalcFields À̺¥Æ® Ã³¸® ¹®ÀÇ
¸¶À½ÀÌ
(ÇÑÈñ¼÷)
2020-10-23 ¿ÀÀü 11:57:40
4604ȸ Á¶È¸


µî·ÏµÈ ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.

1. °³¹ß/½ÇÇà Ç÷§Æû

(1) OS :win7

(2) °³¹ßÅø : Delphi7

(3) »ç¿ë Database : Firebird

2. °³¹ß ÁßÀÎ ÇÁ·Î±×·¥

3. Áú¹® ³»¿ë
 

¾È³çÇϼ¼¿ä?

¾Æ·¡Ã³·³ Äõ¸®(Zeos) ÄÞÆ÷³ÍÆ®ÀÇ OnCalcFields À̺¥Æ®¿¡

Äڵ带 Áý¾î³Ö¾ú´Âµ¥, Äõ¸®½ÇÇàÇϸé

if DataSet.Eof then begin ~end ¾ÈÀÇ ¹®ÀÌ 3~4¹ø ½ÇÇàÀÌ µË´Ï´Ù.

Çѹø¸¸ ½ÇÇàµÇ¾î¾ß ÇÏÁö ¾ÊÀ»±î ½Í¾î¼­¿ä.

¿Ö ±×·²±î¿ä?

 

procedure TForm.qyCalcFields(DataSet: TDataSet);
begin

    if DataSet.Eof then begin

        DataSet.FieldByName('JanKeum').AsCurrency:=DataSet.fieldbyname('ReqKeum').AsCurrency-DataSet.fieldbyname('SuKeum').AsCurrency;

    end;

end;