±ÍÇÏ´Â ¼Õ´Ô À̽ʴϴÙ
·Î±×ÀÎ
ȸ¿ø°¡ÀÔ
  
  µ¨¸¶´ç °ø½Ä ÀºÇà°èÁÂ
  ÇϳªÀºÇà 227-910235-83607
  ¿¹±ÝÁÖ ÀÌ»ó±¹(¿î¿µÁø)
ÇÁ·ÎÁ§Æ® °Ô½ÃÆÇ
ÅõÇ¥°Ô½ÃÆÇ
µ¨¸¶´ç¼Ò°³
±âÃʺÎÅÍ È°¿ë±îÁö! µ¨ÆÄÀÌ ±³À° - µ¥ºê±â¾î
Áú¹®°ú ´äº¯ Áú¹®°ú ´äº¯ ÀÔ´Ï´Ù.
±Û³»¿ë - Áú¹®°ú ´äº¯
 [´äº¯][Áú¹®] ÆĶó¹ÌÅÍ °ªÀ» Ã£À» ¼ö ¾ø´Ù´Â ¿À·ù°¡ ÀÚ²Ù ¶ß³×¿ä¤Ì¤Ì »çÀÌ»çÀÌ´Ô... ´Ù½Ã ºÁÁÖ¼¼¿ä¤Ì¤Ì  
µ¨Ãʺ¸93
(¹®¿©¿À)
2019-06-07 ¿ÀÀü 8:08:09
499ȸ Á¶È¸


÷ºÎÆÄÀÏ ´Ù¿î·Îµå
¿À·ùĸó.PNG

>> procedure TForm2.HSButton1Click(Sender: TObject);
begin

>>         sStr := ' SELECT SALE_DTE, A.CUST_NBR, CUST_NME, SALE_PRC, SALE_QTY, SALE_AMT_TOT '#13+
                '   FROM MKT0TB015 A, MST0TB002 B                                       '#13+
                '  WHERE A.CUST_NBR = B.CUST_NBR(+)                                     '#13+
                '    AND SALE_DTE BETWEEN :StartDate AND :EndDate                       '#13;

>>         IF NOT(Edit1.Text = '') THEN
        begin
            Query1.ParamByName('NME').AsString := Edit2.Text;        <<<<<< À̺κÐÀÌ ¹®Á¦°°¾Æ¿ä..
            sStr := sStr + ' AND CUST_NME = :NME ';
            ShowMessage(sStr);
            IF RadioButton1.Checked THEN
            begin
                sStr := sStr + ' ORDER BY SALE_DTE ';
            end
            ELSE
                sStr := sStr + ' ORDER BY CUST_NME ';
            end
        ELSE
        begin
            IF RadioButton1.Checked THEN
            begin
                sStr := sStr + ' ORDER BY SALE_DTE ';

>>             end
            ELSE
                sStr := sStr + ' ORDER BY CUST_NME ';

>>         end;

>>
        try
            WITH Query1, SQL DO
            begin
                Query1.Close;
                sql.Clear;
                sql.Add(sStr);
                Query1.ParamByName('StartDate').AsString := FormatDateTime('yyymmdd', DateTimePicker1.Date);
                Query1.ParamByName('EndDate').AsString := FormatDateTime('yyyymmdd',DateTimePicker2.Date);
                Query1.Open;

>>             end;
        Except on E:Exception do
            begin
                    DataModule3.Database1.Rollback;
            end;
        end;

>> end;

>>  

>>  

>>  

>> Parameter 'NME' NOT FOUND ¶ó´Â ¿À·ù°¡ Àڲٶ߳׿ä¤Ì¤Ì ¹«½¼¹®Á¦Àΰ¡¿ä...  Äü ·¹Æ÷Æ®¿¡¼­µµ Á¶°Ç °á°ú °ªÀ» ºÒ·¯¿Í¾ßÇϱ⶧¹®¿¡ À§ÂÊ¿¡´Ù°¡ Á¶°ÇÀ» ÁÙ ¼ö ¹Û¿¡ ¾ø³×¿ä.. sStr °ªÀ» Äü ·¹Æ÷Æ®¿¡¼­ ¹Þ¾Æ¿À°Ô²û ÇÏ·Á°í ÇÏ°íÀÖ¾î¿ä.. µµ¿ÍÁÖ¼¼¿ä.. 

 

Àúµµ ±×·¡¼­ Query1.ParamByName('NME').AsString := Edit2.Text;  ÀÌÄڵ带 ¿©±âÀú±â ¼ø¼­¸¦ ¹Ù²ã¼­ ÇغÁµµ ÀÌ·±¿À·ù°¡ ¶ß³×¿ä.. ÷ºÎÆÄÀÏ·Î ¿À·ùâ ĸÃÄÇؼ­ ¿Ã·È½À´Ï´Ù..!!    ShowMessage(sStr); ·Î sStr º¯¼ö¿¡ Àß ´ã°ÜÁ®ÀÖ³ª È®ÀÎÇغôµ¥ Àß ´ã°ÜÁ® Àִµ¥µµ ÆĶó¹ÌÅ͸¦ ãÀ» ¼ö ¾ø´Ù´Â ¿À·ù°¡ ³ª³×¿ä¤Ì¤Ì