中国开发网: 论坛: 程序员情感CBD: 贴子 536633
steel1
here
FUNCTION DI_CUST_YEAR (v_cust_id IN VARCHAR2)
RETURN VARCHAR
IS
v_cnt NUMBER (4);
v_cust_year VARCHAR2 (10);
BEGIN
v_cust_year := '';

SELECT COUNT (*)
INTO v_cnt
FROM contract a, contract_ad b
WHERE a.contract_id = b.contract_id
AND TO_CHAR (a.sign_date, 'yyyy') = '2004'
AND a.sales_status <= '4'
AND b.cust_id = v_cust_id;

IF v_cnt > 0
THEN
v_cust_year := v_cust_year || '4';
END IF;

SELECT COUNT (*)
INTO v_cnt
FROM contract a, contract_ad b
WHERE a.contract_id = b.contract_id
AND TO_CHAR (a.sign_date, 'yyyy') = '2005'
AND a.sales_status <= '4'
AND b.cust_id = v_cust_id;

IF v_cnt > 0
THEN
v_cust_year := v_cust_year || '5';
END IF;

SELECT COUNT (*)
INTO v_cnt
FROM contract a, contract_ad b
WHERE a.contract_id = b.contract_id
AND TO_CHAR (a.sign_date, 'yyyy') = '2006'
AND a.sales_status <= '4'
AND b.cust_id = v_cust_id;

IF v_cnt > 0
THEN
v_cust_year := v_cust_year || '6';
END IF;

RETURN v_cust_year;
END;
皇帝胡搞是游龙戏凤,
巡抚胡搞是深入群众,
知府胡搞是娱乐活动,
知县胡搞是体育运动,
小吏胡搞是胡乱打洞,
草民胡搞是流氓活动
============================
有客自东来,告我沈阳事,
甲申今岁无他论,唯庆清军入汉关.
闻客闲言做冷笑,长夜孤坐难入眠,
酒尽十杯心愈寒,弹剑金樽前,
杜鹃涕泣星月残,国耻激心阑.
昔时中国内战急,满奴乘间夺汉室,
中外当一家,留发不留头,
南来屠城九十九,汉血染尽汉河山.
读史至此不忍言,历史一长叹,
二百年来为猪狗,汉家英雄起报仇,
百万人头落,争得自由身.
三代安乐忘羞耻,白日繁星乌云连,
洪贼施逆成英豪,扬州十日内战篇,
豚尾大戏日日歌,万家迷倒满装前.
千载精忠事,不值一文钱,
武穆文山皆迂朽,好个智者余桂圆.
黄花冈上看黄花,黄花零落意沉沉,
十万万人齐倒戈,今日中国无汉人.

相关信息:


欢迎光临本社区,您还没有登录,不能发贴子。请在 这里登录