●input_user.sql

GENERATE HTML
embed(file="head.html")!
"<h1>ユーザー登録</h1>"!
errmessage()!
{"USR_NAME",  "FAMILY_NAME",  "FIRST_NAME",  "PWD",  "AGE",  "MAIL"}@{bgcolor="black",color="white",font-weight="bold"}!
{m.usr_name@{number,english}, m.family_name, m.first_name, m.pwd@{pwd,md5}, m.age@{number}, m.mail }@{insert}
FROM d_member m

●jobs_list.sql

GENERATE HTML
embed(file="head.html")!
"<h1>JOBS</h1>"!
[  j.id,  j.name,  j.money,  j.kind,  j.company,  imagefile(j.pict),  j.comment,
invoke("Show",filename="job.sql",condition="j.id="+j.id)]!
FROM d_jobs j

●job.sql

GENERATE HTML
embed(file="head.html")!
"<h1>JOB</h1>"!
errmessage()!
{j.id,  j.name,  j.money,  j.kind,  j.company,  imagefile(j.pict),  j.comment}!
{hidden("",att1=j.id,name="jid")!submit("申し込み",att1=j.id)}@{form,updatefile="insertapply.sql",linkfile="delete_job.sql"}
FROM d_jobs j

●update_user.sql

REQUEST SESSION(id)
GENERATE HTML
embed(file="head.html")!
"<h1>UPDATE_MEMBER</h1>"!
errmessage()!
{ "ID",  "USR_NAME",  "FAMILY_NAME",  "FIRST_NAME", "AGE",  "MAIL"}@{bgcolor="black",color="white",font-weight="bold"}!
[ { m.id@{pkey},  m.usr_name@{english,number},  m.family_name,  m.first_name, m.age@{number},  m.mail}@{update} ]!
FROM d_member m

●delete_job.sql

REQUEST SESSION(id)
GENERATE HTML
embed(file="head.html")!
"<h1>JOB_LIST</h1>"!
errmessage()!
{"",  "ID",  "NAME",  "MONEY",  "KIND",  "COMPANY",  "COMMENT"}@{bgcolor="black",color="white",font-weight="bold"}!
[ {a.id@{delete}, d.id,  d.name,  d.money,  d.kind,  d.company,  d.comment}]!
FROM d_apply a@{update},d_jobs d,d_member m
WHERE a.mem_id = m.id
AND a.job_id = d.id

●mypage.sql

REQUEST SESSION(id)
GENERATE HTML
embed(file="head.html")!
"<h1>MEMBER</h1>"!
errmessage("ログインしていません")!
{m.id,  m.usr_name,  m.family_name,  m.first_name,  m.pwd,  m.age,  m.mail}!
invoke("update",filename="update_user.sql",condition="m.id="+m.id)!
invoke("申し込みリスト",filename="delete_job.sql",condition="m.id="+m.id)
FROM d_member m
WHERE m.id = session(id)

●insertapply.sql

INSERT INTO d_apply (mem_id,job_id,time) VALUES(session(id),$jid,'now()')

●search.sql

GENERATE HTML
embed(file="head.html")!
{
"職種で検索"!
[radio(k.name,att1=(asc1)k.id,cond_name="j.kind",cond="=")]!
!
submit("検索")
}@{form=search,linkfile="jobs_list.sql"}
FROM d_kinds k,d_jobs j
WHERE k.id = j.kind

●login.sql

GENERATE HTML
embed(file="head.html")!
"<b>ログインページ</b>"!
errmessage()!
{"id",m.usr_name@{login,att=all}}
!
{"pwd",m.pwd@{login,pwd=on,md5}}
FROM d_member m

●logout.sql

GENERATE HTML
embed(file="head.html")!
"<b>ログアウト</b>"!
"ログアウトする"@{logout,linkfile="index.html"}!
null(m.id)
FROM d_member m