數(shù)據(jù)庫DWG輸入程序與界面
戻る
DWG輸入(mscenq1_dwg1.pl)
<![CDATA[
sub mscenq1_dwg1 {
my $self = shift;
my(%t,@rec,@loop,$n);
# Get CGI query object
$t{q} = $self->query();
$t{NE1} = $t{q}->param("NE1");
$t{enq1_id} = $t{q}->param("enq1_id");
$t{main_type1id} = $t{q}->param("main_type1id");
$t{name1} = $t{q}->param("name1");
$t{dwg1} = $t{q}->param("dwg1");
$t{dwg2} = $t{q}->param("dwg2");
$t{template} = $self->load_tmpl('mscenq1_dwg1.htm') || die "error loading tmpl";
# 如果有dwg1,就采用dwg1
$t{DWG1} = $self->dbh->selectrow_array("SELECT DWG FROM main_type1 WHERE id = $t{main_type1id}");
@{ $t{DWGs} } = split(/=/,$t{DWG1});
$t{DWG0_id} = $#{ $t{DWGs} } + 2;
if ( $t{dwg1} ) {
$t{template}->param(DWG0 => $t{dwg1});
# 把輸入的數(shù)據(jù)寫入DB中
$t{DWG1} .= '=' . $t{dwg1};
$t{sql} = 'UPDATE main_type1 SET DWG = "';
$t{sql} .= $t{DWG1} . '" WHERE id = ' . $t{main_type1id};
$t{DO} = $self->dbh->do($t{sql});
} else {
$t{template}->param(DWG0 => $t{dwg2});
for $n ( 0 .. $#{ $t{DWGs} } ) {
if ( $t{DWGs}[$n] eq $t{dwg2} ) {
$t{DWG0_id} = $n + 1;
last;
}
}
}
$t{template}->param(DWG0_id => $t{DWG0_id});
$t{template}->param(dwg1 => $t{dwg1});
$t{template}->param(dwg2 => $t{dwg2});
$t{template}->param(NE1 => $t{NE1});
$t{template}->param(enq1_id => $t{enq1_id});
$t{template}->param(main_type1id => $t{main_type1id});
$t{template}->param(name1 => $t{name1});
$t{template}->param(pro => "mscenq1_dwg1.pl");
return $t{template}->output;
}
1;
]]>
mscenq1_dwg1.htm
<![CDATA[
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=UTF-8">
<TITLE>enq1_dwg1(DWG輸入或選擇)</TITLE>
<style type="text/css">
body { background: lightcyan; color:black; margin-left:2em;margin-right:2em;}
</style>
</HEAD>
<BODY>
<center>
<h2>enq1_dwg1(DWG輸入或選擇)</h2></center>
mode:modeenq1_dwg1
<form action="" method="post">
<input type="submit" value="mscenq1_parts1へ戻る"><p>
<input type="hidden" name="id" value="<TMPL_VAR NAME="enq1_id">">
<input type="hidden" name="NE1" value="<TMPL_VAR NAME="NE1">">
<input type="hidden" name="enq1_id" value="<TMPL_VAR NAME="enq1_id">">
<input type="hidden" name="main_type1id" value="<TMPL_VAR NAME="main_type1id">">
<input type="hidden" name="name1" value="<TMPL_VAR NAME="name1">">
<input type="hidden" name="DWG0" value="<TMPL_VAR NAME="DWG0">">
<input type="hidden" name="DWG0_id" value="<TMPL_VAR NAME="DWG0_id">">
<input type="hidden" name="partsname" value="END">
<input type="hidden" name="partscode" value="END">
<input type="hidden" name="partsqty" value="END">
<input type="hidden" name="rm" value="modeenq1_parts1">
</form>
<hr color="#003366">
main_type1id=><TMPL_VAR NAME="main_type1id">,主機名=<TMPL_VAR NAME="name1"><br>
enq1_id=><TMPL_VAR NAME="enq1_id">,NE1=><TMPL_VAR NAME="NE1"><br>
pro=><TMPL_VAR NAME="pro"><br>
dwg1==><TMPL_VAR NAME="dwg1"><br>
dwg2==><TMPL_VAR NAME="dwg2"><br>
DWG0_id==><TMPL_VAR NAME="DWG0_id"><br>
DWG0==><TMPL_VAR NAME="DWG0"><br>
<hr color="#003366">
</BODY>
</HTML>
]]>
戻る
南岸区|
阿合奇县|
竹溪县|
大余县|
崇文区|
军事|
延边|
泸定县|
江陵县|
五台县|
历史|
什邡市|
娄底市|
松滋市|
浦县|
铁岭市|
磐安县|
敦煌市|
汉中市|
巨野县|
新乐市|
台山市|
克什克腾旗|
新丰县|
土默特左旗|
宁阳县|
日土县|
余干县|
阿勒泰市|
阿尔山市|
黑水县|
吉木萨尔县|
繁昌县|
宾阳县|
景谷|
福安市|
丹寨县|
土默特右旗|
余干县|
泸定县|
西城区|