從Delphi 1.0版上市後多年來未碰程式,該忘的都忘了 今天有一問題請教各位高手大大! 如何將幾個不同客戶,不同日期,不同付款方式的分期貸款來根據"今天"的日期做 判斷並在DBGrid上的Cell顯示紅色標誌(逾期)綠色(已繳或未逾期)及逾期數 如圖 假設今天=89/08/08 想得到"目前狀況"的結果 我用delphi7.0 ADO + Accesse2000 該如何來做? 謝謝!! 發表人 - anababa 於 2003/06/28 23:16:32

應該是這樣下:    

 select 客戶, 貸放啟始日, 終止日, 付款方式, 上次繳款日, 
   case when 付款方式='月繳' then datediff(m, 上次繳款日, getdate())
        when 付款方式='季繳' then datediff(m, 上次繳款日, getdate()))/3
        when 付款方式='半年繳' then datediff(m, 上次繳款日, getdate()))/6
        when 付款方式='年繳' then datediff(m, 上次繳款日, getdate()))/12
   end as 欠繳期數
 from table

於是在 DELPHI 中, 可以利用 DBGrid 的 OnDrawColumnCell 來進行判斷顏色, 當欠繳期數大於0時, 代表是有欠繳, 將底色改為紅色即可, 否則就以綠色來當底色. 目前狀況可以使用 calculated type 來進行顯示的文字, 在 dataset 的 OnCalcFields 時, 可以進行文字的顯示調整.

太感謝了!! case 比 if 簡單明瞭多了! 真的是戲法人人會變,巧妙各有不同! 應該不要在牛角裡鑽 退一步海闊天空 thank Timhuang ^^