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>
]]>
返回
桐乡市|
秭归县|
竹山县|
高邮市|
静宁县|
合山市|
怀远县|
洪江市|
乐业县|
璧山县|
乌兰察布市|
蚌埠市|
乐东|
措美县|
资阳市|
莱芜市|
富裕县|
高雄市|
丹巴县|
朝阳市|
台北县|
泉州市|
尼玛县|
永顺县|
乌拉特前旗|
阿勒泰市|
信阳市|
筠连县|
嘉善县|
武宣县|
会泽县|
辽中县|
永川市|
柘城县|
岳阳县|
长顺县|
墨江|
子洲县|
马公市|
东明县|
永嘉县|