MySQL操作程序二十六(mscshowtype1.pl)
返回
修改TYPE的關(guān)聯(lián)程序
- mscdatabase.htm的修改(mscenq1.htm中COPY)
- 修改mscshowtype1.pl程序(mscs_engine.pl中COPY),首先是沒有輸入任何內(nèi)容時(shí)的返回
- 輸入內(nèi)容時(shí)的畫面(保存中間數(shù)據(jù)),利用enq1list的enq1s3和enq1s3_word
- 修改完后,返回msc261.htm(注意利用中間數(shù)據(jù)),msc262.htm的返回部分
- msc262.htm修改,mscupdate.pl,msc263.htm/msc263_2.htm修改
<![CDATA[
sub mscshowtype1 {
my $self = shift;
my(%t,$n,@arr,@arr1,@loop,@rec);
# Get CGI query object
$t{q} = $self->query();
# データベースにアクセス
$t{table} = $t{q}->param("table");
$t{mode} = $t{q}->param("mode");
@loop = ();
if ( $t{mode} eq 'SEARCH') {
$t{word} = $t{q}->param("word1");
$t{word} = lc($t{word});
@{ $t{list_id} } = ();
$t{NO} = 0;
if ( $t{word} ) {
$t{sth} = $self->dbh->prepare("SELECT id,name,gname_id,maker_id FROM $t{table}");
$t{sth}->execute;
while ( @rec = $t{sth}->fetchrow_array ) {
$t{name} = lc($rec[1]);
if ( $t{name} =~ /$t{word}/ ) {
my $row_ref = (); # この初期化はとても重要!
$$row_ref{id} = $rec[0];
$$row_ref{name} = $rec[1];
$$row_ref{gname_id} = $rec[2];
$$row_ref{maker_id} = $rec[3];
push(@loop, $row_ref);
$t{NO}++;
push(@{ $t{list_id} },$rec[0]);
}
}
$t{sth}->finish;
}
$t{template} = $self->load_tmpl("msc261.htm") || die "error loading tmpl";
if ( $t{NO} == 0 ) {
$t{template}->param(explain => "沒有找到,請返回。");
} else {
$t{enq1s3} = join('=',@{ $t{list_id} });
$t{sql1} = 'UPDATE enq1list set enq1s3 = "';
$t{sql1} .= $t{enq1s3} . '" where id = "1"';
$t{DO1} = $self->dbh->do($t{sql1});
$t{word1} = uc($t{word1});
$t{sql1} = 'UPDATE enq1list set enq1s3_word = "';
$t{sql1} .= $t{word} . '" where id = "1"';
$t{DO1} = $self->dbh->do($t{sql1});
$t{template}->param(explain => "找到了如下的TYPE,請選擇修改。");
$t{template}->param(THIS_LOOP => \@loop);
}
} else {
$t{enq1s3} = $self->dbh->selectrow_array("SELECT enq1s3 FROM enq1list WHERE enq1s3 != 'NO'");
@{ $t{type1s} } = split(/=/,$t{enq1s3});
for $n ( 0 .. $#{ $t{type1s} } ) {
$t{e1_id} = $t{type1s}[$n];
@rec = $self->dbh->selectrow_array("SELECT id,name,gname_id,maker_id FROM main_type1 WHERE id = $t{e1_id}");
my $row_ref = (); # この初期化はとても重要!
$$row_ref{id} = $rec[0];
$$row_ref{name} = $rec[1];
$$row_ref{gname_id} = $rec[2];
$$row_ref{maker_id} = $rec[3];
push(@loop, $row_ref);
}
$t{template} = $self->load_tmpl("msc261.htm") || die "error loading tmpl";
$t{template}->param(THIS_LOOP => \@loop);
}
return $t{template}->output;
}
-------------------------------------------------------------
利用enq1list的enq1s3和enq1s3_word
$t{enq1s3} = join('=',@{ $t{list_id} });
$t{sql1} = 'UPDATE enq1list set enq1s3 = "';
$t{sql1} .= $t{enq1s3} . '" where id = "1"';
$t{DO1} = $self->dbh->do($t{sql1});
$t{word1} = uc($t{word1});
$t{sql1} = 'UPDATE enq1list set enq1s3_word = "';
$t{sql1} .= $t{word} . '" where id = "1"';
$t{DO1} = $self->dbh->do($t{sql1});
------------------------------------------------------------
新
<form action="" method="post">
<input type=text name=word1 value="">
<input type="submit" value="Equipment Types(main_type1)とパーツデータ修改"><p>
<input type="hidden" name="tmpl" value="msc261">
<input type="hidden" name="table" value="main_type1">
<input type="hidden" name="rm" value="modeshowtype1">
</form>
舊
<form action="" method="post">
<input type="submit" value="Equipment Types(main_type1)とパーツデータ"><p>
<input type="hidden" name="tmpl" value="msc261">
<input type="hidden" name="table" value="main_type1">
<input type="hidden" name="items" value="id,name,gname_id,maker_id">
<input type="hidden" name="rm" value="modeshowtype1">
</form>
]]>
返回
贵溪市|
固镇县|
大英县|
舟山市|
昌平区|
西充县|
赤城县|
大英县|
南郑县|
民和|
瑞金市|
靖安县|
全州县|
西青区|
织金县|
榕江县|
库尔勒市|
绵竹市|
牡丹江市|
镇康县|
读书|
刚察县|
博爱县|
鹤岗市|
昭通市|
上高县|
临沭县|
嘉鱼县|
新建县|
泰州市|
集贤县|
井陉县|
鹤壁市|
介休市|
凌源市|
缙云县|
四平市|
江油市|
濉溪县|
瑞昌市|
运城市|