在快速報告變量中分配值

嗨，我是Delphi的新成員，我正在爲新僱用的員工創建報告。我正在使用Fast Report，Delphi XE2和Firebird數據庫。在快速報告變量中分配值

我在爲我的變量的值寫入條件時遇到了問題。如果EDU_COLL_REMARK字段值爲空，我希望我的變量值處理值爲'HIGH SCHOOL GRADUATE'。和COLLEGE GRADUATE，如果它有一個值。就像我做的那樣。

if dmapp.sqtrans.parambyname('EDU_COLL_REMARK').IsNull then 
     dmapp.frxReport1.Variables['edu'] := QuotedStr('HIGH SCHOOL GRADUATE'); 
else 
    dmapp.frxReport1.Variables['edu'] := QuotedStr('COLLEGE GRADUATE');

但它不起作用。它返回一個

錯誤SQTrans：未找到參數EDU_COLL_REMARK。

怎麼了？請幫幫我。

這是我的全部代碼：

dmApp.sqTRANS.SQL.Clear; 
    dmApp.sqtrans.SQL.Add('Select s.SKILLS_NAME, c.CUST_NAME, e.FULL_NAME, e.REFER_1NAME, e.HIRE_DATE, e.AGE, e.HEIGHT_FEET, e.HEIGHT_INCH, e.EDU_COLL_REMARK, e.TEST_1TITLE, e.SEC_EXPERIENCE_YEARS, e.CELL_NO, e.ADDRESS_LINE FROM EMPLOYEE e INNER JOIN CUSTOMER c ' + 
         'on e.CUST_NO=c.CUST_NO ' + 
         'FULL JOIN SKILLSTABLE s on e.SKILLS_NO=s.SKILLS_NO ' + 
         'WHERE EXTRACT(MONTH FROM HIRE_DATE) = :M_HIRE_DATE ' + 
         'AND EXTRACT(YEAR FROM HIRE_DATE) = :Y_HIRE_DATE ' + 
         'order by HIRE_DATE DESC'); 
    dmApp.sqTRANS.ParamByName('M_HIRE_DATE').AsString := FormatDateTime('MM', dpdate.Date); 
    dmApp.sqTRANS.ParamByName('Y_HIRE_DATE').AsString := FormatDateTime('yyyy', dpdate.Date); 
    if dmapp.sqtrans.parambyname('EDU_COLL_REMARK').IsNull then 
     dmapp.frxReport1.Variables['edu'] := QuotedStr('HIGH SCHOOL GRADUATE'); 
else 
dmapp.frxReport1.Variables['edu'] := QuotedStr('COLLEGE GRADUATE'); 
    dmApp.sqTRANS.ExecSQL(); 

    dmApp.frxDBDataset1.DataSet := dmApp.sqTRANS; 
    dmApp.frxReport1.LoadFromFile('c:\vitech3\NewlyHired.fr3'); 
    dmapp.frxReport1.variables['COMPANYNAME'] := QuotedStr(Globals.GetCompanyName); 
    dmapp.frxReport1.variables['COMPANYADD'] := QuotedStr(Globals.GetCompanyAddr + ' Cubao, Quezon City'); 
    dmapp.frxReport1.variables['CAPTION'] := QuotedStr('Newly Hired Report for ' + FormatDateTime('MMMM', dpdate.date) + ' ' + FormatDateTime('yyyy', dpdate.date)); 

    dmApp.frxReport1.ShowReport();

來源

2014-10-02 ASHONG

EDU_COLL_MARK是不是您的查詢的 '參數';參數是那些以'：'爲前綴的項目。

不過，從查詢中返回所需的值。看看Firebird文檔中的case .. when。這將向您展示如何從查詢中返回一個條件值。

SELECT 
CASE EDU_COLL_MARK 
    WHEN NULL THEN 'HIGH SCHOOL GRADUATE' 
    ELSE 'COLLEGE GRADUATE' 
END AS EDU 
FROM ...

--------------或許

SELECT 
CASE COALESCE(EDU_COLL_MARK, '') 
    WHEN '' THEN 'HIGH SCHOOL GRADUATE' 
    ELSE 'COLLEGE GRADUATE' 
END AS EDU 
FROM ...

來源

2014-10-02 08:25:25

謝謝主席先生，但我得到了新的錯誤，它說：dbExpress驅動程序不支持TDBXtypes.UNKNOWN數據類型。供應商錯誤消息。未知的ISC錯誤0.這是什麼意思？ – ASHONG 2014-10-02 08:32:41

哦！你已經改變了你的答案。我會再嘗試。 – ASHONG 2014-10-02 08:34:16

嗨，先生，我運行你的代碼，它只顯示大學畢業生。即使是空的其他員工仍然返回相同的價值。 – ASHONG 2014-10-02 08:49:49

在快速報告變量中分配值

回答

相關問題