COMP9311 Database Systems WEEK7

1. Additional video

1.1 Aggregate

--Aggregate to count all values (even nulls)

CREATE FUNCTION
    oneMore(sum int, x integer) RETURNS integer
AS $$
BEGIN
    if x is null then
        return sum + 1;
    else
        return sum + 1;
    end if;
END;
$$ LANGUAGE plpgsql;

CREATE AGGREGATE countAll(integer)(
    stype = integer, --the accumulator type
    initcond = 0, --initial accumulator value
    sfunc = oneMore --newstate function
); 



--pizza example
SELECT p.name as pizza, list(t.name)
FROM Pizzas p
    JOIN Has h ON p.id = h.pizza
    JOIN Toppings t ON t.di = h.Toppings
GROUP BY p.name;
--aggregate to concat strings, using '|' as separator
CREATE OR REPLACE FUNCTION 
    append(soFar text, item text) RETURNS text
AS $$
BEGIN
    if soFar = '' then
        return item;
    else 
        return soFar||'|'||item;
    end if;
END;
$$ LANGUAGE plpgsql

DROP AGGREGATE if EXISTS list(text);  --重要J行洹!

CREATE AGGREGATE list(text)(
    stype = text, --the accumulator type
    initcond = '', --initial accumulator value
    sfunct = append --newstate function
);

1.2 Trigger

--Maintain count of pizzas available in each store

drop trigger if exists maintainVcount on SoldIn;

create or replace function
    changeVarieties() returns trigger
as $$
begin
    if TG_OP = 'INSERT' then
        update Stores
        set varieties = varieties + 1
        where id = NEW.stroe;
    elsif TG_OP = 'DELETE' then
        update Stores
        set varieties = varieties - 1
        where id = OLD.store;
    else
        raise exception 'changeVarieties() failed';
    end if;
    return null;
end;
$$ language plpgsql;


create trigger maintainVcount 
after insert or delete on SoldIn
for each row
execute procedure changeVarieties();

2. Trigger

PostgreSQL的syntax如下:

CREATE TRIGGER TriggerName
{AFTER|BEFORE} Event1 [OR Event2 ...]
--After一般用于update,before用于insert
[ WHEN (Condition)]
FOR EACH {ROW|STATEMENT}
--Row每次都修改豹芯,Statement是所有執(zhí)行完后統(tǒng)一修改勇边。假設(shè)有1million數(shù)據(jù)要修改请唱,最好用statement讯赏,是在trigger運(yùn)行結(jié)束后統(tǒng)一操作义黎,而row的話每條數(shù)據(jù)都要執(zhí)行一次润文,效率較低姐呐。
EXECUTE PROCEDURE FunctionName(args ...);

2.1 例1

Consider a database of people in the USA, ensure that only valid state codes are used.

CREATE TABLE Person(
  id integer,
  ssn varchar(11) unique,
  ...
  state char(2),
  primary key (id)
);
CREATE TABLE States(
  id integer,
  code char(2) unique,
  ...
  primary key (id)
);

TRIGGER:

CREATE FUNCTION CheckState() RETURNS TRIGGER
AS $$
BEGIN
  new.state = upper(trim(new.state))
  --trim()用來(lái)去除多余雜項(xiàng),這里去除的是空格典蝌,之后轉(zhuǎn)換為upper case
  if (new.state !~ '^[A-Z][A-Z]$') then
    raise exception 'Code must be two alpha chars';
    --檢查格式是否正確
  end if;
  select * from States where code = new.state;
  --檢查state是否在state的table中曙砂,是否legal
  if (not found) then
    raise exception 'Invalid code %', new.state;
    --用%來(lái)替代后面的variable,這里是new.state
  end if;
  return new;
END;
$$ LANGUAGE plpgsql;

CREATE TRIGGER CheckState BEFORE insert or update
ON Person for each ROW EXECUTE PROCEDURE checkstate();

2.2 例2

department salary totals changes with individual salary change.
需要保證下面的情況成立

CREATE ASSERTION TotalSalary CHECK(
  not exists (
    select d.id from Department d
    where d.totSal <>
      (select sum(e.salary)
      from Employee e
      where e.dept = d.id)
  )
)

TRIGGER1: new employees arrive

CREATE FUNCTION totalSalary1() RETURNS TRIGGER
AS $$
BEGIN
  if (new.dept is not null) then
    update Department
    set totSal = totSal + new.salary
    where Department.id = new.dept;
  end if;
  return new;
END;
$$ LANGUAGE plpgsql;

create trigger TotalSalary1 
after insert on Employees
for each row execute procedure totalSalary1();

TRIGGER2: employees change departments/salaries

create function totalSalary2() returns trigger
as $$
begin
  update Department
  set totSal = totSal + new.salary
  where Department.id = new.dept;
  update Department
  set totSal = totSal - old.salary
  where Department.id = old.dept;
  return new;
end;
$$ language plpgsql;

create trigger TotalSalary2 
after update on Employee
for each row execute procedure totalSalary2();

TRIGGER3: employees leave

create function totalSalary3() returns trigger
as $$
begin
  if (old.dept is not null) then
    update Department
    set totalSal = totalSal - old.salary
    where Department.id = old.dept;
  end if;
  return old;
end;
$$ language plpgsql;

create trigger TotalSalary3
after delete on Employee
for each row execute procedure totalSalary3();

3. Database Programming

大多數(shù)常見(jiàn)語(yǔ)言都可以操作數(shù)據(jù)庫(kù)骏掀,如C的libpq鸠澈,Java的JDBC(Java Database Connectivity)。常見(jiàn)的調(diào)用操作數(shù)據(jù)庫(kù)的結(jié)構(gòu)如下:

db = connect_to_dbms(DBname, User/Password);
query = build_SQL("SqlStatementTemplate", values);
results = execute_query(db, query);
while (more_tuples_in(results))
{
  tuple = fetch_row_from(results);
  ...
}

以PHP為例:

$db = dbConnect("dbname = myDB");
...
$query = "select a,b,c from R where c >= %d";
$result = dbQuery($db, mkSQL($query, $min);
while ($tuple = dbNext($result)){
  $tmp = $tuple["a"] - $tuple["b"] - $tuple["c"]
  ...
  list($a, $b, $c) = $tuple;
  $tmp = $a - $b - $c;
}
...
最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末截驮,一起剝皮案震驚了整個(gè)濱河市笑陈,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌侧纯,老刑警劉巖新锈,帶你破解...
    沈念sama閱讀 212,542評(píng)論 6 493
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場(chǎng)離奇詭異眶熬,居然都是意外死亡妹笆,警方通過(guò)查閱死者的電腦和手機(jī)块请,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 90,596評(píng)論 3 385
  • 文/潘曉璐 我一進(jìn)店門(mén),熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)拳缠,“玉大人墩新,你說(shuō)我怎么就攤上這事】咦” “怎么了海渊?”我有些...
    開(kāi)封第一講書(shū)人閱讀 158,021評(píng)論 0 348
  • 文/不壞的土叔 我叫張陵,是天一觀的道長(zhǎng)哲鸳。 經(jīng)常有香客問(wèn)我臣疑,道長(zhǎng),這世上最難降的妖魔是什么徙菠? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 56,682評(píng)論 1 284
  • 正文 為了忘掉前任讯沈,我火速辦了婚禮,結(jié)果婚禮上婿奔,老公的妹妹穿的比我還像新娘缺狠。我一直安慰自己,他們只是感情好萍摊,可當(dāng)我...
    茶點(diǎn)故事閱讀 65,792評(píng)論 6 386
  • 文/花漫 我一把揭開(kāi)白布挤茄。 她就那樣靜靜地躺著,像睡著了一般冰木。 火紅的嫁衣襯著肌膚如雪穷劈。 梳的紋絲不亂的頭發(fā)上,一...
    開(kāi)封第一講書(shū)人閱讀 49,985評(píng)論 1 291
  • 那天片酝,我揣著相機(jī)與錄音囚衔,去河邊找鬼。 笑死雕沿,一個(gè)胖子當(dāng)著我的面吹牛练湿,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播审轮,決...
    沈念sama閱讀 39,107評(píng)論 3 410
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼肥哎,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼!你這毒婦竟也來(lái)了疾渣?” 一聲冷哼從身側(cè)響起篡诽,我...
    開(kāi)封第一講書(shū)人閱讀 37,845評(píng)論 0 268
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎榴捡,沒(méi)想到半個(gè)月后杈女,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 44,299評(píng)論 1 303
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,612評(píng)論 2 327
  • 正文 我和宋清朗相戀三年达椰,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了翰蠢。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 38,747評(píng)論 1 341
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡啰劲,死狀恐怖梁沧,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情蝇裤,我是刑警寧澤廷支,帶...
    沈念sama閱讀 34,441評(píng)論 4 333
  • 正文 年R本政府宣布,位于F島的核電站栓辜,受9級(jí)特大地震影響恋拍,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜藕甩,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 40,072評(píng)論 3 317
  • 文/蒙蒙 一芝囤、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧辛萍,春花似錦、人聲如沸羡藐。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 30,828評(píng)論 0 21
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)仆嗦。三九已至辉阶,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間瘩扼,已是汗流浹背谆甜。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 32,069評(píng)論 1 267
  • 我被黑心中介騙來(lái)泰國(guó)打工, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留集绰,地道東北人规辱。 一個(gè)月前我還...
    沈念sama閱讀 46,545評(píng)論 2 362
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像栽燕,于是被迫代替她去往敵國(guó)和親罕袋。 傳聞我的和親對(duì)象是個(gè)殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 43,658評(píng)論 2 350

推薦閱讀更多精彩內(nèi)容

  • 1. Java基礎(chǔ)部分 基礎(chǔ)部分的順序:基本語(yǔ)法碍岔,類相關(guān)的語(yǔ)法浴讯,內(nèi)部類的語(yǔ)法,繼承相關(guān)的語(yǔ)法蔼啦,異常的語(yǔ)法榆纽,線程的語(yǔ)...
    子非魚(yú)_t_閱讀 31,602評(píng)論 18 399
  • Spark SQL, DataFrames and Datasets Guide Overview SQL Dat...
    草里有只羊閱讀 18,307評(píng)論 0 85
  • 一. Java基礎(chǔ)部分.................................................
    wy_sure閱讀 3,805評(píng)論 0 11
  • **2014真題Directions:Read the following text. Choose the be...
    又是夜半驚坐起閱讀 9,437評(píng)論 0 23
  • 家里有個(gè)十歲的小朋友,象個(gè)小太陽(yáng),天天暖暖地照著我奈籽。 他愛(ài)藝術(shù)饥侵,對(duì)西方的畫(huà)家和他們的作品很熟悉,說(shuō)起來(lái)滔滔不絕唠摹,如...
    翊M閱讀 468評(píng)論 2 2