DTMLTreeDB

• <dtml-tree> でDatabase の階層構造をたどる方法

  実装例は http://ns.jk.to/jack/TreeDB/ で、どーぞ

  現状動いてません

• Databaseをつくる。Z MySQL Database Connectionを前提としてます(それしかないので(^^;;)。 ・ table を作る。とりあえず下記のテーブルを前提とします。

  CREATE TABLE unit (
  unitid  INTEGER UNIQUE NOT NULL AUTO_INCREMENT,
  type    INTEGER,
  parent  INTEGER,
  name    VARCHAR(100),
  postal  CHAR(7),
  address VARCHAR(100),
  PRIMARY KEY(unitid));
  

以下では、メソッドを個別に書いてませんが、まとめる方法を PythonScript に書いてあります

さて、Z SQL method とPython Script をこれから5本「ずつ」書きます。一つ一つは短いのであきらめてください。

• select, update, insert

  パラメータリストは type,parent,name,postal,address として

  • UnitInsert:

    container.UnitInsertSQL(unitid=0,type=type,parent=parent,name=name,postal=postal,address=address)
    return container.REQUEST.RESPONSE.redirect(container.REQUEST.HTTP_REFERER)
    

  • UnitInsertSQL:

    Arguments は unitid type parent name postal address

    INSERT INTO
      unit
    VALUES
      (<dtml-sqlvar unitid type=int>,
       <dtml-sqlvar type type=int>,
       <dtml-sqlvar parent type=int>,
       <dtml-sqlvar name type=string>,
       <dtml-sqlvar postal type=string>,
       <dtml-sqlvar address type=string>)
    

  • みたいな Z SQL method を作ります。これは insert で unitid は auto_incrementだよりになってます。
  • 同様に、update,selectも作ります。argumentは省略してますが、いっぱいもしくはちょっと書くだけです。
  • UnitUpdate:

    container.UnitUpdateSQL(unitid=unitid,type=type,parent=parent,name=name,postal=postal,address=address)
    return container.REQUEST.RESPONSE.redirect(container.REQUEST.HTTP_REFERER)
    

  • UnitUpdateSQL:

    UPDATE  unit
    SET
      parent=<dtml-sqlvar parent type=int>,
      name=<dtml-sqlvar name type=string>,
      postal=<dtml-sqlvar postal type=string>,
      address=<dtml-sqlvar address type=string>
    WHERE  unitid = <dtml-sqlvar unitid type=int>
    

  • UnitSelect:

    result = container.UnitSelectSQL(unitid=str(unitid))
    dict = result.dictionaries()
    return dict[0]
    

  • UnitSelectSQL:

    SELECT  * 
    FROM  unit
    WHERE  <dtml-sqltest unitid type=int>
    

  • 以上で、基本的なDBのハンドリングができるようになりました。あとは dtml-tree方面です。

    dtml-tree では、＋とかのとこで分岐を判断するやつとして、branches_exprというのがあって、そこで関数を指定できます。そのための関数を書きます。

  • LookupChild:

    num = int(parent)
    if num > 0:
      r = container.LookupChildSQL(parent=num)
    else:
      num = -num
      r = container.LookupUnitSQL(unitid=num)
    return r
    

    一見意味不明ですが、あまり実装としては美しくないです。parent をパラメータでとってますが、負なら、そのもののユニットをとってきて、正ならそのものが「親」であるのをもってこいになります。

    でも、いろいろ書くと、トップ固定のネタとしても重要かも、と思わなくもないっす。

  • LookupChildSQL: parent

    SELECT unitid, name
    FROM unit
    WHERE <dtml-sqltest parent type=int>
    

  • LookupUnitSQL: unitid

    SELECT unitid, name
    FROM unit
    WHERE <dtml-sqltest unitid type=int>
    

    の、どちらかを呼びます。

    あと、直接はたいして関係ないのだけど、一応、formの引数は""でかこったほうがいいみたいなので、勝手にそうするスクリプトをひとつ。

  • addQuote: p

    return '"+str(p)+"'
    

うーん、こんだけ。

• 最後にDTML_Methodを作りますね。

<dtml-var standard_html_header>
<table border=0>
<tr><td><dtml-let unitid="-1">
 <dtml-tree id=unitid branches_expr="LookupChild(parent=unitid)">
  <a href=&dtml-URL0;?exid=&dtml-unitid;><b><dtml-var name></b><dtml-var unitid></a>
 </dtml-tree>
</dtml-let></td>
<td>
<dtml-if exid>
 <dtml-let typelist="['','会社','事業所','部署','個人']">
 <dtml-if child>
  <table border=0><form method="post" action="UnitInsert">
   <tr><td align=right>種別</td>
    <td><input type=hidden name=type value="&dtml-child;"><dtml-var "typelist[_.int(child)]"></td></tr>
   <tr><td align=right>親ID</td>
    <td><input type=hidden name=parent size=7 value="&dtml-exid;"><dtml-var exid></td></tr>
   <tr><td align=right>名前</td>
    <td><input type=text name=name size=50></td></tr>
   <tr><td align=right>郵便番号</td>
    <td><input type=text name=postal size=8></td></tr>
   <tr><td align=right>住所</td>
    <td><input type=text name=address size=50></td></tr>
   <tr><td align=right><input type=submit value="作成"></td>
    <td><font color=red><b>入力しても作成ボタンを押すまでは更新されません!!</b></font></td></tr>
  </form></table>
 <dtml-else>
 <dtml-let val="UnitSelect(unitid=exid)">
  <table border=0><form method="post" action="UnitUpdate">
   <tr><td align=right>識別ID</td>
    <td><input type=hidden name=unitid value=<dtml-var "addQuote(p=val['unitid'])">><dtml-var "val['unitid']"></td></tr>
   <tr><td align=right>種別</td>
    <td><input type=hidden name=type value=<dtml-var "addQuote(p=val['type'])">><dtml-var "typelist[val['type']]"></td></tr>
   <tr><td align=right>親ID</td>
    <td><input type=text name=parent size=7 value=<dtml-var "addQuote(p=val['parent'])">></td></tr>
   <tr><td align=right>名前</td>
    <td><input type=text name=name size=50 value=<dtml-var "addQuote(p=val['name'])">></td></tr>
   <tr><td align=right>郵便番号</td>
    <td><input type=text name=postal size=8 value=<dtml-var "addQuote(p=val['postal'])">></td></tr>
   <tr><td align=right>住所</td>
    <td><input type=text name=address size=50 value=<dtml-var "addQuote(p=val['address'])">></td></tr>
   <tr><td align=right><input type=submit value="更新"></td>
    <td><font color=red><b>入力しても更新ボタンを押すまでは更新されません!!</b></font></td></tr>
   <dtml-if "val['type'] < 4">
   <tr><td colspan=2><a href=&dtml-URL0;?child=<dtml-var "1+_.int(val['type'])">&exid=<dtml-var "val['unitid']">>コドモを作る</a></td></tr>
   </dtml-if>
  </form></table>
 </dtml-let>
 </dtml-if>
 </dtml-let>
</dtml-if></td></tr></table>
<dtml-var standard_html_footer>

重複多めで美しくないけどこんなもんかなぁ？？？ なんつっても 動いているしね