數(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>
]]>
戻る
轮台县|
山丹县|
扬州市|
莎车县|
板桥市|
平顶山市|
友谊县|
灌阳县|
保亭|
清苑县|
南康市|
开封市|
宽城|
海城市|
白山市|
家居|
青河县|
刚察县|
白朗县|
镇宁|
金华市|
虎林市|
罗田县|
江安县|
镇远县|
祁阳县|
呼玛县|
河东区|
湘潭市|
山东|
仙游县|
永宁县|
清徐县|
田东县|
海兴县|
林甸县|
郎溪县|
镇巴县|
称多县|
达日县|
噶尔县|