MySQL操作程序二十九(零件單位/圖號選擇功能)

返回


mscshowpartsone.pl的追加 # 顯示DWG圖號 @loop1 = (); $t{DWG} = $self->dbh->selectrow_array("SELECT DWG FROM main_type1 WHERE id = $t{tid}"); @{ $t{DWGs} } = split(/=/,$t{DWG}); $t{selected} = $t{loops}{"dwg_id"}; for $n ( 0 .. $#{ $t{DWGs} } ) { $t{ns} = $n + 1; if ($t{ns} == $t{selected}) { $t{list1} = '<option value="' . $t{ns} . '" selected>' . $t{DWGs}[$n] . '</option>' } else { $t{list1} = '<option value="' . $t{ns} . '">' . $t{DWGs}[$n] . '</option>' } my %row = ( list => $t{list1} ); push(@loop1, \%row); } $t{template}->param(LOOP1 => \@loop1); # 單位的LOOP顯示 @loop = (); @{ $t{units} } = qw/PCS SET BOX ROLL PAIR CAN DOZ KGS MTR SHT TUBE PKT/; $t{selected} = $t{loops}{"Nuid"}; for $n ( 0 .. $#{ $t{units} } ) { $t{ns} = $n + 1; if ($t{ns} == $t{selected}) { $t{list1} = '<option value="' . $t{ns} . '" selected>' . $t{units}[$n] . '</option>' } else { $t{list1} = '<option value="' . $t{ns} . '">' . $t{units}[$n] . '</option>' } my %row = ( list => $t{list1} ); push(@loop, \%row); } $t{template}->param(LOOP => \@loop); mscparst2.htm 新 <tr><td>dwg_id</td><td> <select name="dwg_id" size=1> <TMPL_LOOP NAME="LOOP1"> <TMPL_VAR NAME="list"> </TMPL_LOOP> </select> <TMPL_VAR NAME="dwg_id"> </td></tr> <tr><td>Nuid</td><td> <select name="Nuid" size=1> <TMPL_LOOP NAME="LOOP"> <TMPL_VAR NAME="list"> </TMPL_LOOP> </select> <TMPL_VAR NAME="Nuid"> </td></tr> 舊 <tr><td>dwg_id</td><td><input type=text size=100 name=dwg_id value="<TMPL_VAR NAME="dwg_id">"></td></tr> <input type="hidden" name="dwg_id" value="<TMPL_VAR NAME="dwg_id">"> <tr><td>Nuid</td><td><input type=text size=100 name=Nuid value="<TMPL_VAR NAME="Nuid">"></td></tr> <input type="hidden" name="Nuid" value="<TMPL_VAR NAME="Nuid">">
返回
奉化市| 南郑县| 尼木县| 河间市| 清新县| 呼和浩特市| 且末县| 紫金县| 确山县| 邹平县| 连南| 长治市| 上林县| 双桥区| 集安市| 东平县| 林州市| 甘谷县| 大兴区| 江川县| 马公市| 榆中县| 娄底市| 县级市| 怀柔区| 师宗县| 景泰县| 荔浦县| 平原县| 顺义区| 龙山县| 汽车| 尖扎县| 晋江市| 塔城市| 东阳市| 子长县| 江西省| 区。| 桃园市| 阿拉善左旗|