ペット情報データベースシステム

---- ペット図鑑一覧表示 ----


プログラム名
ペット図鑑一覧表示
プログラム番号
pet41.cgi
入力
なし
出力画面
処理内容
  1. ペット情報テーブルから、すべての「番号」、「動物種」、「種類」を検索する。
    (select bangou, animal, type from pet_list)
  2. 検索された内容を一覧表として表示する。
  3. 表示された一覧表から「番号」を一つ選択すると(クリックすると)、ペット図鑑更新プログラム(pet42.cgi)に移る。その際、選択された番号をパラメータとして渡す。
  4. 新規ボタンをクリックすると、ペット図鑑追加プログラム(pet43.cgi)に移る。
  5. 【戻る】をクリックするとメニューに移る。
HTMLの例

#!/usr/bin/perl
#-------------------
#program-ID:pet41.cgi
#auther    :murakami
#date      :2002/1/22
#-------------------
use CGI;
use DBI;

#-------
$username="egi";
$dbh = DBI->connect("dbi:Pg:dbname=egi",$username)
	or die "Cannot connect: " , $DBI->errstr;
print "Content-Type: text/html\n\n";
$iSelect = "Select bangou, animal, type from pet_list order by bangou";
$sth = $dbh->prepare($iSelect)
	or die "Cannot prepare: ", $dbh->errstr();
$sth->execute() or die "Cannot execute: ", $sth->errstr();
#--------------
print "<html>\n";
print "<head><title>select</title>\n";
print "<META HTTP-EQUIV=\"Cntent-Type\" CONTENT=\"text/html;charset=EUC-JP\">\n";
print "</head>\n";
print "<body bgcolor =LINEN>\n";
print "<center>\n";
print "<h4>\n";
print "ペット図鑑テーブルの管理 <hr>\n";
print "訂正する番号をクリックして下さい。\n";
print "<p>\n";
print "<table border = 1 bgcolor =POWDERBLUE>\n";
print "<tr bgcolor =SKYBLUE>";
print "<th>番号";
print "<th>動物種";
print "<th>種類";
print "</tr>\n";
print "<br>\n";

while(@row = $sth->fetchrow_array() ){
	print "<tr>";
	print "<td><a href=./pet42.cgi?ibangou=$row[0]>$row[0]</a></td>";
	print "<td>$row[1]</td>";
	print "<td>$row[2]</td>";
	print "</tr>\n";
}

print "</table>\n";
print "<p>\n";
print "<a href=\"./pet43.cgi\">新規追加 </A>\n";
print "<p>\n";
print "<a href=http://myouga.cs.ube-c.ac.jp/~egi/pet/index.html>もどる</a>\n";
print "</center>\n";
print "</body>\n";
print "</html>\n";
	 


江木鶴子 : egi@ube-c.ac.jp