MySQL操作程序三十八(Order summary網(wǎng)頁程序2,整理2)
返回
作業(yè)內(nèi)容
- 船東中心的管理界面(mysql_test39.htm)
- 購入工廠中心的管理界面(mysql_test40.htm)
- ******************************
- 重新計(jì)算程序(mscsum_cal)的Debug
# 處理指定年度的ORDER,計(jì)算價(jià)格和其他費(fèi)用==>執(zhí)行時(shí)間過長,一條一條檢查
==>看來要重新設(shè)計(jì),離線計(jì)算,在線只有追加的功能
- msc0.htm修改,增加ORDER SUMMARY按鈕
modesum
msc.pm修改,增加mode
- mscsum.pl==>顯示程序試驗(yàn)
- mscsum.pl==>顯示程序在線
- mscsum.htm,ORDER SUMMARY的HTML畫面
表格的項(xiàng)目
時(shí)間選擇畫面
外匯換算輸入畫面
- ORDER SUMMARY畫面直接跳到ORDER畫面功能
- form畫面的橫排
<![CDATA[
mysql> show columns from sum;
+--------------+---------+------+-----+---------+----------------+
| Field | Type | Null | Key | Default | Extra |
+--------------+---------+------+-----+---------+----------------+
| id | int(11) | NO | PRI | NULL | auto_increment |
| year | int(11) | YES | | NULL | |
| time | text | YES | | NULL | |
| ref | text | YES | | NULL | |
| owner | text | YES | | NULL | |
| shipname | text | YES | | NULL | |
| orderno | text | YES | | NULL | |
| ordermoneyid | text | YES | | NULL | |
| ordermoney | text | YES | | NULL | |
| enq2name | text | YES | | NULL | |
| enq2moneyid | text | YES | | NULL | |
| enq2money | text | YES | | NULL | |
| enq2no | text | YES | | NULL | |
| enq2delivery | text | YES | | NULL | |
| enq2pay | text | YES | | NULL | |
| post | text | YES | | NULL | |
| paytime | text | YES | | NULL | |
+--------------+---------+------+-----+---------+----------------+
17 rows in set (0.34 sec)
]]>
<![CDATA[
# mscsum.pl
use strict;
use DBI;
my(%t,@rec,$pref,$n,$n1,$n2);
print "This is mscsum.pl.\n";
# 連接數(shù)據(jù)庫
$$pref{dsn} = "DBI:mysql:host=localhost;database=cookbook";
$$pref{dbh} = DBI->connect($$pref{dsn}, "cbuser", "cbpass") or die "Cannot connect to server\n";
$$pref{dbh}->do("SET NAMES utf8");
if(!$$pref{dbh}){
print "SQL read ERROR!\n";
exit;
}
@{ $t{ylist} } = qw/1 2 3 4/;
print "Please input the year 2008=>1;2009=>2;2010=>3;2011=>4;select=>";
chop($t{y1}=<STDIN>);
if ( $t{ylist}[$t{y1}-1] ) {
print "You selection $t{y1} exists!\n";
} else {
print "You selection $t{y1} does not exist!\n";
exit;
}
# 處理sum
@{ $t{sumlist} } = $$pref{dbh}->selectrow_array("SELECT * FROM sum WHERE id = $t{y1}");
@{ $t{time} } = split(/==/,$t{sumlist}[2]);
@{ $t{ref} } = split(/==/,$t{sumlist}[3]);
@{ $t{owner} } = split(/==/,$t{sumlist}[4]);
@{ $t{shipname} } = split(/==/,$t{sumlist}[5]);
@{ $t{orderno} } = split(/==/,$t{sumlist}[6]);
@{ $t{ordermoneyid} } = split(/==/,$t{sumlist}[7]);
@{ $t{ordermoney} } = split(/==/,$t{sumlist}[8]);
@{ $t{enq2name} } = split(/==/,$t{sumlist}[9]);
@{ $t{enq2moneyid} } = split(/==/,$t{sumlist}[10]);
@{ $t{enq2money} } = split(/==/,$t{sumlist}[11]);
@{ $t{enq2no} } = split(/==/,$t{sumlist}[12]);
@{ $t{enq2delivery} } = split(/==/,$t{sumlist}[13]);
@{ $t{enq2pay} } = split(/==/,$t{sumlist}[14]);
@{ $t{post} } = split(/==/,$t{sumlist}[15]);
@{ $t{paytime} } = split(/==/,$t{sumlist}[16]);
print "id=$t{y1},time=$#{ $t{time} }\n";
print "id=$t{y1},ref=$#{ $t{ref} }\n";
print "id=$t{y1},owner=$#{ $t{owner} }\n";
print "id=$t{y1},shipname=$#{ $t{shipname} }\n";
print "id=$t{y1},orderno=$#{ $t{orderno} }\n";
print "id=$t{y1},ordermoneyid=$#{ $t{ordermoneyid} }\n";
print "id=$t{y1},ordermoney=$#{ $t{ordermoney} }\n";
print "id=$t{y1},enq2name=$#{ $t{enq2name} }\n";
print "id=$t{y1},enq2moneyid=$#{ $t{enq2moneyid} }\n";
print "id=$t{y1},enq2money=$#{ $t{enq2money} }\n";
print "id=$t{y1},enq2no=$#{ $t{enq2no} }\n";
print "id=$t{y1},enq2delivery=$#{ $t{enq2delivery} }\n";
print "id=$t{y1},enq2pay=$#{ $t{enq2pay} }\n";
print "id=$t{y1},post=$#{ $t{post} }\n";
print "id=$t{y1},paytime=$#{ $t{paytime} }\n";
# 關(guān)閉數(shù)據(jù)庫
$$pref{dbh}->disconnect;
print "End.\n";
]]>
<![CDATA[
form畫面的橫排
<span style="float:left;width:100px;">
<table width="100" border="1" align="right" bgcolor=lawngreen><tr><td>
顯示
</td></tr></table></span>
<span><table width="100" border="1" align="left" bgcolor=lawngreen><tr><td>
<form action="" method="post"><input type="submit" value="2011年度">
<input type="hidden" name="mode" value="NO">
<input type="hidden" name="year" value="4">
<input type="hidden" name="rm" value="modesum">
</form>
</td></tr></table></span>
]]>
返回
洞口县|
太保市|
泰顺县|
蒙自县|
乐昌市|
晋州市|
西华县|
台山市|
阿克陶县|
汉源县|
容城县|
朝阳市|
垦利县|
云南省|
铜陵市|
义马市|
潢川县|
佛学|
宁武县|
盐山县|
安顺市|
海门市|
三河市|
那坡县|
九江市|
屏东市|
吉安县|
临海市|
潜江市|
罗定市|
嘉兴市|
威宁|
芦山县|
凌云县|
大田县|
张家港市|
吐鲁番市|
东港市|
荔波县|
抚州市|
武强县|