數(shù)據(jù)庫零件表輸入程序與界面
戻る
零件輸入開始(mscenq1_parts1.pl)
<![CDATA[
sub mscenq1_parts1 {
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{DWG0} = $t{q}->param("DWG0");
$t{DWG0_id} = $t{q}->param("DWG0_id");
$t{template} = $self->load_tmpl('mscenq1_parts1.htm') || die "error loading tmpl";
$t{partsname} = $t{q}->param("partsname");
$t{partscode} = $t{q}->param("partscode");
$t{partsqty} = $t{q}->param("partsqty");
$t{template}->param(partsname => $t{partsname});
$t{template}->param(partscode => $t{partscode});
$t{template}->param(partsqty => $t{partsqty});
# 讀取主機的DWG
$t{DWG} = $self->dbh->selectrow_array("SELECT DWG FROM main_type1 WHERE id = $t{main_type1id}");
if ( $t{DWG} ne 'NULL' ) {
@{ $t{DWGs} } = split(/=/,$t{DWG});
@loop = ();
for $n ( 0 .. $#{ $t{DWGs} } ) {
my %row = (
content => $t{DWGs}[$n]
);
push(@loop, \%row);
}
$t{template}->param(DWG => \@loop);
}
if ( $t{DWG0} ) {
$t{template}->param(DWG0 => $t{DWG0});
$t{template}->param(DWG0_id => $t{DWG0_id});
} else {
$t{template}->param(DWG0 => $t{DWGs}[0]);
$t{template}->param(DWG0_id => 1);
}
$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_parts1.pl");
return $t{template}->output;
}
1;
]]>
mscenq1_parts1.htm
<![CDATA[
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=UTF-8">
<TITLE>enq1_parts1(parts輸入)</TITLE>
<style type="text/css">
body { background: lightcyan; color:black; margin-left:2em;margin-right:2em;}
</style>
</HEAD>
<BODY>
<center>
<h2>enq1_parts1(parts輸入)</h2></center>
mode:modeenq1_parts1
<form action="" method="post">
<input type="submit" value="mscenq1_partsへ戻る"><p>
<input type="hidden" name="id" value="<TMPL_VAR NAME="enq1_id">">
<input type="hidden" name="rm" value="modeenq1_parts">
</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>
<hr color="#003366">
<form action="" method="post">
輸入或選擇圖紙?zhí)?>
<input type="submit" value="決定"><br>
New DWG<input type=text size=100 name=dwg1 value=""><br>
<input type="hidden" name="dwg1" value="">
Old DWG<select name="dwg2">
<TMPL_LOOP NAME="DWG">
<option value="<TMPL_VAR NAME="content">"><TMPL_VAR NAME="content"></option>
</TMPL_LOOP>
</select>
<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="rm" value="modeenq1_dwg1">
</form>
<hr color="#003366">
使用圖紙,序號==><TMPL_VAR NAME="DWG0_id">,圖號==><TMPL_VAR NAME="DWG0"><br>
輸入parts的name,code,QTY<br><br>
<form action="" method="post">
Parts name<br>
<textarea name="partsname" cols="50" rows="10"><TMPL_VAR NAME="partsname"></textarea><br>
Parts code<br>
<textarea name="partscode" cols="50" rows="10"><TMPL_VAR NAME="partscode"></textarea><br>
Parts QTY<br>
<textarea name="partsqty" cols="50" rows="10"><TMPL_VAR NAME="partsqty"></textarea><br>
<input type="submit" value="PARTS追加"><p>
<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="rm" value="modeenq1_parts2">
</form>
</BODY>
</HTML>
]]>
讀取零件數(shù)據(jù)(mscenq1_parts2.pl)
<![CDATA[
sub mscenq1_parts2 {
my $self = shift;
my(%t,$n,@loop1,@loop2,@rec);
# 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{partsname} = $t{q}->param("partsname");
$t{partscode} = $t{q}->param("partscode");
$t{partsqty} = $t{q}->param("partsqty");
$t{partsqty} = $t{q}->param("partsqty");
$t{DWG0} = $t{q}->param("DWG0");
$t{DWG0_id} = $t{q}->param("DWG0_id");
# 取出數(shù)據(jù)
@{ $t{names} } = split(/\r\n/,$t{partsname});
@{ $t{codes} } = split(/\r\n/,$t{partscode});
@{ $t{qtys} } = split(/\r\n/,$t{partsqty});
$t{names_length} = $#{ $t{names} };
$t{codes_length} = $#{ $t{codes} };
$t{qtys_length} = $#{ $t{qtys} };
$t{length1} = $t{names_length} - 1;
if ( $t{names_length} == $t{codes_length} && $t{names_length} == $t{qtys_length}
&& $t{names}[0] !~ /END/ ) {
$t{mode} = 1;
} else { # 出錯,返回修改
$t{mode} = 2;
}
if ( $t{mode} == 1 ) {
# 輸入數(shù)據(jù)輸出到HTML畫面
@loop1 = ();
for $n ( 0 .. $t{length1} ) {
$t{id} = $n + 1;
$t{n1} = $t{names}[$n];
$t{n1} =~ s/=/\<br\>/g; #多行顯示
$t{c1} = $t{codes}[$n];
$t{q1} = $t{qtys}[$n];
$t{unit1} = 'unit1_' . $t{id};
my %row = (
unit1 => $t{unit1},
id => $t{id},
name => $t{n1},
code => $t{c1},
qty => $t{q1}
);
push(@loop1, \%row);
}
$t{template} = $self->load_tmpl('mscenq1_parts2.htm') || die "error loading tmpl";
$t{template}->param(DWG0 => $t{DWG0});
$t{template}->param(DWG0_id => $t{DWG0_id});
$t{template}->param(LOOP1 => \@loop1);
$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_parts2.pl");
$t{template}->param(partsname => $t{partsname});
$t{template}->param(partscode => $t{partscode});
$t{template}->param(partsqty => $t{partsqty});
$t{template}->param(names_length => $t{names_length});
$t{template}->param(codes_length => $t{codes_length});
$t{template}->param(qtys_length => $t{qtys_length});
$t{template}->param(mode => $t{mode});
} else {
$t{template} = $self->load_tmpl('mscenq1_parts22.htm') || die "error loading tmpl";
$t{template}->param(DWG0 => $t{DWG0});
$t{template}->param(DWG0_id => $t{DWG0_id});
$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_parts2.pl");
$t{template}->param(partsname => $t{partsname});
$t{template}->param(partscode => $t{partscode});
$t{template}->param(partsqty => $t{partsqty});
$t{template}->param(names_length => $t{names_length});
$t{template}->param(codes_length => $t{codes_length});
$t{template}->param(qtys_length => $t{qtys_length});
$t{template}->param(mode => $t{mode});
}
return $t{template}->output;
}
1;
]]>
mscenq1_parts2.htm
<![CDATA[
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=UTF-8">
<TITLE>enq1_parts2(Parts輸入確認,Unit選擇)</TITLE>
<style type="text/css">
body { background: lightcyan; color:black; margin-left:2em;margin-right:2em;}
</style>
</HEAD>
<BODY>
<center>
<h2>enq1_parts2(Parts輸入確認,Unit選擇)</h2></center>
mode:modeenq1_parts2
<form action="" method="post">
<input type="submit" value="mscenq1_parts1へ戻る"><p>
<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="partsname" value="<TMPL_VAR NAME="partsname">">
<input type="hidden" name="partscode" value="<TMPL_VAR NAME="partscode">">
<input type="hidden" name="partsqty" value="<TMPL_VAR NAME="partsqty">">
<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="rm" value="modeenq1_parts1">
</form>
<hr color="#003366">
NE1==><TMPL_VAR NAME="NE1"><br>
主機NO=<TMPL_VAR NAME="main_type1id">;主機名=<TMPL_VAR NAME="name1"><br>
enq1_id=><TMPL_VAR NAME="enq1_id"><br>
pro=><TMPL_VAR NAME="pro"><br>
partsname=><TMPL_VAR NAME="partsname"><br>
partscode=><TMPL_VAR NAME="partscode"><br>
partsqty=><TMPL_VAR NAME="partsqty"><br>
names_length=><TMPL_VAR NAME="names_length"><br>
codes_length=><TMPL_VAR NAME="codes_length"><br>
qtys_length=><TMPL_VAR NAME="qtys_length"><br>
mode=><TMPL_VAR NAME="mode"><br>
使用圖紙,序號==><TMPL_VAR NAME="DWG0_id">,圖號==><TMPL_VAR NAME="DWG0"><br>
<hr color="#003366">
<form action="" method="post">
<!-- enq1輸入數(shù)據(jù) -->
<table width=80% align="center" border=1 cellpadding=5>
<caption>enq1輸入數(shù)據(jù)</caption>
<tr bgcolor="#FFD700" align="center">
<th>ID</th>
<th>name</th>
<th>code</th>
<th>QTY</th>
<th>unit</th>
</tr>
<TMPL_LOOP NAME="LOOP1">
<tr bgcolor="#F0FFF0" align="left">
<td><TMPL_VAR NAME="id"></td>
<td><TMPL_VAR NAME="name"></td>
<td><TMPL_VAR NAME="code"></td>
<td><TMPL_VAR NAME="qty"></td>
<td>
<select name="<TMPL_VAR NAME="unit1">" size=1>
<option value="1">PCS</option>
<option value="2">SET</option>
<option value="3">BOX</option>
<option value="4">ROLL</option>
<option value="5">PAIR</option>
<option value="6">CAN</option>
<option value="7">DOZ</option>
</select>
</td>
</tr>
</TMPL_LOOP>
</table>
<br>
<center>
<input type="submit" value="確定してから,enq1_parts3へ進む">
<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="partsname" value="<TMPL_VAR NAME="partsname">">
<input type="hidden" name="partscode" value="<TMPL_VAR NAME="partscode">">
<input type="hidden" name="partsqty" value="<TMPL_VAR NAME="partsqty">">
<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="rm" value="modeenq1_parts3">
</form>
</center>
<hr color="#003366">
</BODY>
</HTML>
]]>
零件的比較和輸入DB(mscenq1_parts3.pl)
<![CDATA[
sub mscenq1_parts3 {
my $self = shift;
my(%t,$n,$n1,@loop1,@loop2,@rec);
my(@a,@b,@union,@isect,@diff,$e,%count,%count2);
# 零件的單位
@{ $t{units_list} } = (PCS,SET,BOX,ROLL,PAIR,CAN,DOZ);
# 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{partsname} = $t{q}->param("partsname");
$t{partscode} = $t{q}->param("partscode");
$t{partsqty} = $t{q}->param("partsqty");
$t{DWG0} = $t{q}->param("DWG0");
$t{DWG0_id} = $t{q}->param("DWG0_id");
# 讀人機界面的數(shù)據(jù)
@{ $t{names} } = split(/\r\n/,$t{partsname});
@{ $t{codes} } = split(/\r\n/,$t{partscode});
@{ $t{qtys} } = split(/\r\n/,$t{partsqty});
# 要去掉最后一個END
$t{length1} = $#{ $t{names} } - 1;
# units的存檔
@{ $t{units} } = ();
for $n ( 0 .. $t{length1} ) {
$t{id} = $n + 1;
$t{unit1} = 'unit1_' . $t{id};
$t{unit1} = $t{q}->param("$t{unit1}");
push(@{ $t{units} },$t{unit1});
}
# enq1的輸入數(shù)據(jù)進行配對(和DB同步時會打亂順序)
@b = ();
for $n ( 0 .. $t{length1} ) {
$t{n1} = $t{names}[$n];
$t{c1} = $t{codes}[$n];
$t{u1} = $t{units}[$n];
$t{c1} = $t{c1} . '===' . $t{DWG0_id};
$t{enq1_names}{$t{c1}} = $t{n1};
$t{enq1_units}{$t{c1}} = $t{u1};
push @b, $t{c1};
}
# 零件表的名稱
$t{ptable} = sprintf("%06d",$t{main_type1id});
$t{ptable} = 'a' . $t{ptable};
# 先判斷是否是empty table.
$t{count1} = $self->dbh->selectrow_array("SELECT count(*) FROM $t{ptable}");
# 取出DB的Parts的codes
%count = %count2 = ();
@union = @isect = @diff = ();
if ( $t{count1} != 0 ) { # 只有在不是空表格時才進行操作
@{ $t{dbcodes} } = ();
$t{sth} = $self->dbh->prepare("SELECT id,name,code,dwg_id,Nuid FROM $t{ptable}");
$t{sth}->execute;
while ( @rec = $t{sth}->fetchrow_array ) {
# 要考慮DWG不同,但是code相同的情況
$t{dbcode1} = $rec[2] . '===' . $rec[3]; # 這個操作合并code和DWG
push @{ $t{dbcodes} }, $t{dbcode1};
$t{dbids}{$t{dbcode1}} = $rec[0];
$t{dbnames}{$t{dbcode1}} = $rec[1];
$t{dbunits}{$t{dbcode1}} = $rec[4];
$t{idmax} = $rec[0];
}
$t{sth}->finish;
# 同步作業(yè)
@a = @{ $t{dbcodes} };
foreach $e (@a,@b) { $count{$e}++ };
# @union = sort {$a<=>$b} keys %count;
@union = sort keys %count;
foreach $e ( keys %count ) {
if ($count{$e} == 2 ) {
$count2{$e}++;
}
}
for $n ( 0 .. $#b ) {
next if $count2{$b[$n]};
$t{idmax}++;
push @diff, $b[$n];
$t{enq1_ids}{$b[$n]} = $t{idmax};
}
# @diff = sort {$a<=>$b} @diff;
# @diff = sort @diff;
} else { # 空表格的情況
@union = @diff = @b;
$t{idmax} = 0;
for $n ( 0 .. $#b ) {
$t{idmax}++;
$t{enq1_ids}{$b[$n]} = $t{idmax};
}
}
# 顯示零件表所有零件
for $n ( 0 .. $#union ) {
$t{NO} = $n + 1;
if ( $t{dbnames}{$union[$n]} ) {
$t{name1} = $t{dbnames}{$union[$n]};
$t{unit1} = $t{dbunits}{$union[$n]};
$t{id1} = $t{dbids}{$union[$n]};
} else {
$t{name1} = $t{enq1_names}{$union[$n]};
$t{unit1} = $t{enq1_units}{$union[$n]};
$t{id1} = $t{enq1_ids}{$union[$n]};
}
$t{name1} =~ s/=/\<br\>/g; # 多行顯示
($t{c1},$t{dwg_id}) = split(/===/,$union[$n]);
$t{alllist}{NO}{$t{dwg_id}}{$t{c1}} = $t{NO};
$t{alllist}{id1}{$t{dwg_id}}{$t{c1}} = $t{id1};
$t{alllist}{name1}{$t{dwg_id}}{$t{c1}} = $t{name1};
$t{alllist}{unit1}{$t{dwg_id}}{$t{c1}} = $t{units_list}[$t{unit1}-1];
}
@loop2 = ();
# 這個操作的目的是先按DWG,再按code排列
for $n ( sort keys %{ $t{alllist}{NO} } ) {
for $n1 ( sort keys %{ $t{alllist}{NO}{$n} } ) {
$t{NO} = $t{alllist}{NO}{$n}{$n1};
$t{id1} = $t{alllist}{id1}{$n}{$n1};
$t{name1} = $t{alllist}{name1}{$n}{$n1};
$t{unit1} = $t{alllist}{unit1}{$n}{$n1};
my %row = (
NO => $t{NO},
id => $t{id1},
name => $t{name1},
code => $n1,
dwg_id => $n,
unit => $t{unit1}
);
push(@loop2, \%row);
}
}
# 把新增加的零件插入DB中
if ( $#diff >= 0 ) {
for $n ( 0 .. $#diff ) {
$t{c1} = $diff[$n];
$t{n1} = $t{enq1_names}{$t{c1}};
$t{u1} = $t{enq1_units}{$t{c1}};
($t{c1},$t{ctmp}) = split(/===/,$t{c1}); # 這個操作把code和DWG分開
$t{sql} = "INSERT INTO $t{ptable} (name,code,group_id,dwg_id,Nuid,weight) ";
$t{sql} .= 'VALUES("' . $t{n1} . '","';
$t{sql} .= $t{c1} . '","';
$t{sql} .= "1" . '","';
$t{sql} .= $t{DWG0_id} . '","';
$t{sql} .= $t{u1} . '","1")';
$t{DO} = $self->dbh->do("$t{sql}");
}
}
# 把enq1的QTY等輸入到對應(yīng)的位置上(注意多主機的處理)
# 這個操作把最后的END去掉
$t{QTY1} = join("=",@{ $t{qtys} }[0..$t{length1}]);
# 取出現(xiàn)有的QTY
$t{QTY} = $self->dbh->selectrow_array("SELECT QTY FROM enq1 WHERE id = $t{enq1_id}");
@{ $t{QTYs} } = split(/==/,$t{QTY});
@{ $t{QTYnews} } = ();
for $n ( 0 .. $#{ $t{QTYs} } ) {
$t{NO} = $n + 1;
if ( $t{NO} == $t{NE1} ) {
# 注意把老的也留下,C代表還沒有輸入一個零件
if ( $t{QTYs}[$n] ne 'C' ) {
$t{QTY1} = $t{QTYs}[$n] . '=' . $t{QTY1};
}
push(@{ $t{QTYnews} }, $t{QTY1});
} else {
push(@{ $t{QTYnews} }, $t{QTYs}[$n]);
}
}
$t{QTY1} = join("==",@{ $t{QTYnews} });
$t{sql} = 'UPDATE enq1 SET QTY = "';
$t{sql} .= $t{QTY1} . '" WHERE id = ' . $t{enq1_id};
$t{DO} = $self->dbh->do($t{sql});
# 從零件表中抽出id放入enq1中
$t{cs} = '';
for $n ( 0 .. $t{length1} ) {
$t{c1} = $t{codes}[$n];
$t{cs} .= '_' . $t{c1};
}
$t{sth} = $self->dbh->prepare("SELECT id, code, dwg_id FROM $t{ptable}");
$t{sth}->execute;
@{ $t{pids} } = ();
while ( @rec = $t{sth}->fetchrow_array ) {
# 注意!除了code以外,DWG圖紙?zhí)栆惨恢?
if ( $t{cs} =~ /$rec[1]/ && $rec[2] == $t{DWG0_id} ) {
push(@{ $t{pids} },$rec[0]);
$t{db_psid}{$rec[1]} = $rec[0];
}
}
$t{sth}->finish;
$t{partsid1} = join("=",@{ $t{pids} });
# 取出現(xiàn)有的partsid
$t{partsid} = $self->dbh->selectrow_array("SELECT partsid FROM enq1 WHERE id = $t{enq1_id}");
@{ $t{partsids} } = split(/==/,$t{partsid});
@{ $t{partsidnews} } = ();
for $n ( 0 .. $#{ $t{partsids} } ) {
$t{NO} = $n + 1;
if ( $t{NO} == $t{NE1} ) {
# 注意把老的也留下
if ( $t{partsids}[$n] ne 'C' ) {
$t{partsid1} = $t{partsids}[$n] . '=' . $t{partsid1};
}
push(@{ $t{partsidnews} }, $t{partsid1});
} else {
push(@{ $t{partsidnews} }, $t{partsids}[$n]);
}
}
$t{partsid1} = join("==",@{ $t{partsidnews} });
$t{sql} = 'UPDATE enq1 SET partsid = "';
$t{sql} .= $t{partsid1} . '" WHERE id = ' . $t{enq1_id};
$t{DO} = $self->dbh->do($t{sql});
# enq1輸入數(shù)據(jù)輸出到HTML畫面(一臺主機)
@loop1 = ();
for $n ( 0 .. $t{length1} ) {
$t{NO} = $n + 1;
$t{n1} = $t{names}[$n];
$t{n1} =~ s/=/\<br\>/g; #多行顯示
$t{c1} = $t{codes}[$n];
$t{q1} = $t{qtys}[$n];
$t{unit1} = $t{units}[$n];
my %row = (
unit1 => $t{units_list}[$t{unit1}-1],
NO => $t{NO},
id => $t{db_psid}{$t{c1}},
name => $t{n1},
code => $t{c1},
dwg_id => $t{DWG0_id},
qty => $t{q1}
);
push(@loop1, \%row);
}
$t{template} = $self->load_tmpl('mscenq1_parts3.htm') || die "error loading tmpl";
$t{template}->param(LOOP1 => \@loop1);
$t{template}->param(LOOP2 => \@loop2);
$t{template}->param(NE1 => $t{NE1});
$t{template}->param(ptable => $t{ptable});
$t{template}->param(DO => $t{DO});
$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(partsname => $t{partsname});
$t{template}->param(partscode => $t{partscode});
$t{template}->param(partsqty => $t{partsqty});
$t{template}->param(DWG0 => $t{DWG0});
$t{template}->param(DWG0_id => $t{DWG0_id});
$t{template}->param(pro => "mscenq1_parts3.pl");
return $t{template}->output;
}
1;
]]>
mscenq1_parts3.htm
<![CDATA[
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=UTF-8">
<TITLE>enq1_parts3(Parts輸入完成)</TITLE>
<style type="text/css">
body { background: lightcyan; color:black; margin-left:2em;margin-right:2em;}
</style>
</HEAD>
<BODY>
<center>
<h2>enq1_parts3(Parts輸入完成)</h2></center>
mode:modeenq1_parts3
<form action="" method="post">
<input type="submit" value="mscenq1_parts2へ戻る"><p>
<!-- 這個傳送很巧妙,把排序前的順序保存下來了 -->
<TMPL_LOOP NAME="LOOP0">
<input type="hidden" name="<TMPL_VAR NAME="NO">" value="1">
</TMPL_LOOP>
<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="partsname" value="<TMPL_VAR NAME="partsname">">
<input type="hidden" name="partscode" value="<TMPL_VAR NAME="partscode">">
<input type="hidden" name="partsqty" value="<TMPL_VAR NAME="partsqty">">
<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="rm" value="modeenq1_parts2">
</form>
<hr color="#003366">
主機NO=<TMPL_VAR NAME="main_type1id">;主機名=<TMPL_VAR NAME="name1"><br>
enq1_id=><TMPL_VAR NAME="enq1_id"><br>
pro=><TMPL_VAR NAME="pro"><br>
partsname=><TMPL_VAR NAME="partsname"><br>
partscode=><TMPL_VAR NAME="partscode"><br>
partsqty=><TMPL_VAR NAME="partsqty"><br>
ptable=><TMPL_VAR NAME="ptable"><br>
DO=><TMPL_VAR NAME="DO"><br>
使用圖紙,序號==><TMPL_VAR NAME="DWG0_id">,圖號==><TMPL_VAR NAME="DWG0"><br>
<hr color="#003366">
<form action="" method="post">
<input type="submit" value="mscenq1_partsへ戻る"><p>
<input type="hidden" name="id" value="<TMPL_VAR NAME="enq1_id">">
<input type="hidden" name="rm" value="modeenq1_parts">
</form>
<!-- enq1輸入零件 -->
<table width=80% align="center" border=1 cellpadding=5>
<caption>enq1輸入零件</caption>
<tr bgcolor="#FFD700" align="center">
<th>NO</th>
<th>ID</th>
<th>name</th>
<th>code</th>
<th>dwg_id</th>
<th>QTY</th>
<th>unit</th>
</tr>
<TMPL_LOOP NAME="LOOP1">
<tr bgcolor="#F0FFF0" align="left">
<td><TMPL_VAR NAME="NO"></td>
<td><TMPL_VAR NAME="id"></td>
<td><TMPL_VAR NAME="name"></td>
<td><TMPL_VAR NAME="code"></td>
<td><TMPL_VAR NAME="dwg_id"></td>
<td><TMPL_VAR NAME="qty"></td>
<td><TMPL_VAR NAME="unit1"></td>
</tr>
</TMPL_LOOP>
</table>
<hr color="#003366">
<!-- 數(shù)據(jù)庫所有零件 -->
<table width=80% align="center" border=1 cellpadding=5>
<caption>數(shù)據(jù)庫所有零件</caption>
<tr bgcolor="#FFD700" align="center">
<th>NO</th>
<th>ID</th>
<th>name</th>
<th>code</th>
<th>dwg_id</th>
<th>unit</th>
</tr>
<TMPL_LOOP NAME="LOOP2">
<tr bgcolor="#F0FFF0" align="left">
<td><TMPL_VAR NAME="NO"></td>
<td><TMPL_VAR NAME="id"></td>
<td><TMPL_VAR NAME="name"></td>
<td><TMPL_VAR NAME="code"></td>
<td><TMPL_VAR NAME="dwg_id"></td>
<td><TMPL_VAR NAME="unit"></td>
</tr>
</TMPL_LOOP>
</table>
</BODY>
</HTML>
]]>
戻る
威远县|
新宁县|
右玉县|
资源县|
凌海市|
大关县|
永安市|
佛坪县|
怀安县|
石渠县|
石景山区|
长宁县|
峨边|
仁化县|
荣昌县|
巴马|
孟连|
昭觉县|
万载县|
瑞安市|
泰州市|
东城区|
西贡区|
南岸区|
灵宝市|
托克托县|
定州市|
云林县|
惠东县|
安庆市|
孟连|
兴城市|
陇川县|
抚顺市|
台湾省|
五莲县|
吴忠市|
洛宁县|
钟山县|
本溪|
临汾市|