>> 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 º¯¼ö¿¡ Àß ´ã°ÜÁ®ÀÖ³ª È®ÀÎÇغôµ¥ Àß ´ã°ÜÁ® Àִµ¥µµ ÆĶó¹ÌÅ͸¦ ãÀ» ¼ö ¾ø´Ù´Â ¿À·ù°¡ ³ª³×¿ä¤Ì¤Ì