|
|
本帖最後由 shunxing 於 2011-3-11 05:46 PM 編輯
讓大家看一下我這幾天在修改的重點...
雖然這軟體已經用了3個多月了
早就修改一些BUG了...
但有個地方美中不足..就是還片的時間...
我的系統是24小時為一天...
現在要改成在隔天的同一個時間之後在晚上12點前還算是同一天..
為了改這個我的頭快燒了...
畢竟這是3年前我自己花了約1年的時間所寫出來的系統......
早就快把時間的處理系統望光了.....頭痛阿～～～～
來分享些這一部份的程式碼...讓大家也頭暈一下吧～～哈哈哈哈～～～～～
下面這只是其中一個檔案用在處理還片的....
我寫出來的程式檔案至少有368個........
#####################################
# 興紋商務軟體 #
# 本軟體版權為鄭順興個人所有 #
# 若沒有本人書面同意 #
# 請勿仿冒或修改否則依法究辦 #
#####################################
sub rentaswellrentup { #客戶還片資料處理
#######################################################################
$regcolor = "syscolor.txt";
@consc=&readtxtfile("$filehead$regcolor",2);
@consc=sort @consc;
foreach (@consc) {
($coloret ,$ca ,$cb ,$cc ,$cd ,$ce ,$cf ,$cg ,$ch ,$ci ,$cj)=split(/∥/,$_);
chomp($cj);
if ($syscolors eq $coloret){
$color1 = "$coloret"; #顏色識別
$color2 = "$ca"; #箭頭顏色
$color3 = "$cb"; #轉軸外部外框顏色
$color4 = "$cc"; #轉軸內部背景顏色
$color5 = "$cd"; #轉軸外部背景顏色
$color6 = "$ce"; #轉軸內部外框顏色
$color7 = "$cf"; #背景顏色
$color8 = "$cg"; #文字顏色
$color9 = "$ch"; #連接顏色
$color10 = "$ci"; #瀏覽過的連接顏色
$color11 = "$cj"; #使用中的連接顏色
}
}
$udditt=0;
$adminusertid =&get_var('adminusertid' ,'\n|"|<|>|∥');
$scandatain =&get_var('scandatain' ,'\n|"|<|>|∥');
if ($adminusertid =~ /[^a-zA-Z0-9]/) { &errorjava("請勿非法修改程式"); }
if ($adminusertid eq "") { &errorjava("客戶ID錯誤請登入客戶資料"); }
if ($scandatain eq "") { &errorjava("商品條碼空白請重新輸入"); }
$scandatain=~ tr/a-z/A-Z/;
$userfortup = "userformat"; #客戶資料夾名稱
$mdretyu = "$filehead$userfortup";
unless(-d $mdretyu) { #檢查是否存在客戶資料夾
mkdir("$mdretyu",0777); #建立客戶資料夾並修改檔案屬性
}
$rentaswell = "rentaswell"; #客戶出租確認資料夾名稱
$mdretyus = "$mdretyu/$rentaswell";
unless(-d $mdretyus) { #檢查是否存在客戶出租確認資料夾
mkdir("$mdretyus",0777); #建立客戶出租確認資料夾並修改檔案屬性
}
$datafortup = "dataformat"; #資料庫資料夾名稱
$mdretyu = "$filehead$datafortup";
unless(-d $mdretyu) { #檢查是否存在資料庫資料夾
mkdir("$mdretyu",0777); #建立資料庫資料夾並修改檔案屬性
}
$scardatasup = "$filehead$datafortup/dataformats.txt";
@usertyutvs=&readtxtfile($scardatasup,2);
@usertyutvs=sort @usertyutvs;
foreach (@usertyutvs) { #讀取資料庫資料並比對
($messtimenlisr,$datamine1ster,$datamine2ster,$datamine3ster,$datamine4ster,$datamine5ster,$datamine6ster)=split(/∥/,$_);
chomp($datamine6ster);
if ($scandatain eq $datamine2ster) {
$scmesside = "$messtimenlisr";
}
}
if ($scmesside eq "") { &errorjava("無此商品編號請重新輸入"); }
$datareallno=0;
$dataformattxt = "$datafortup/$scmesside/rentaswelldataformat.txt"; #租還系統已出租資料索引區
$peo="$filehead$dataformattxt"; #檢查是否有租還系統已出租資料索引區檔案存在並建立檔案
unless(-f $peo){
open(TMP,">$peo");
close(TMP);
chmod(0666,$peo);
}
@usertyutvsf=&readtxtfile($peo,2);
@usertyutvsf=sort @usertyutvsf;
open (FILE, ">$peo");
foreach (@usertyutvsf) { #讀取資料庫資料並比對
($messtimenlisre,$datare1ste,$datare2ste,$datare3ste,$datare4ste,$datare5ste,$datare6ste)=split(/∥/,$_);
chomp($datare6ste);
if (($adminusertid eq $datare2ste) && ($datare4ste eq "no") && ($gh ne "gh")) { $datareallno++; }
if (($adminusertid eq $datare2ste) && ($datare4ste eq "yes") && ($gh ne "gh")) {
print FILE "$messtimenlisre∥$datare1ste∥$datare2ste∥$datare3ste∥no∥$datare5ste∥$datare6ste∥\n";
$gh="gh";
}
else {print FILE "$_";}
}
close (FILE);
$dataformattxt = "$userfortup/$adminusertid/rentaswelluserdataformat.txt"; #客戶出租租片資料暫存區
$peoa="$filehead$dataformattxt"; #檢查是否有客戶出租租片資料暫存區檔案存在並建立檔案
unless(-f $peoa){
open(TMP,">$peoa");
close(TMP);
chmod(0666,$peoa);
}
@usertyutvsfd=&readtxtfile($peoa,2);
@usertyutvsfd=sort @usertyutvsfd;
open (FILET, ">$peoa");
foreach (@usertyutvsfd) { #讀取資料庫資料並比對
($messtimenlisret,$datare1stet,$datare2stet,$datare3stet,$datare4stet,$datare5stet,$datare6stet,$datare7stet,$datare8stet,$datare9stet,$datare10stet,$datare11stet)=split(/∥/,$_);
chomp($datare11stet);
if (($scmesside eq $messtimenlisret) && ($datare4stet eq "no") && ($gh ne "gh")) { $datareallno++; }
if (($scmesside eq $messtimenlisret) && ($datare4stet eq "yes") && ($gh ne "gh")) {
$datatimest = time;
$datatimes = $datatimest - $datare5stet;
$datatimes = $datatimes / 86400;
$datatimes = $datatimes - 0.06;
$datatimes = sprintf "%.2f",$datatimes;
chop($datatimes);
chop($datatimes);
chop($datatimes);
$datare7stets = $datare7stet - 1;
$datatimes = $datatimes - $datare7stets;
if ($datatimes <= 0) { $datatimes=0; }
$datatimeschos = $datare9stet * $datatimes;
print FILET "$messtimenlisret∥$datare1stet∥$datare2stet∥$datare3stet∥no∥$datare5stet∥$datatimeschos∥$datare7stet∥$datatimes∥$datare9stet∥$datare10stet∥$datare11stet∥\n";
$gh="gh";
}
else {print FILET "$_";}
}
close (FILET);
if ($datareallno >= "2") { &errorjava("物品已設定歸還請勿再輸入歸還"); }
print <<EOFsssrtc;
<html>
<script language="JavaScript">
function admindataruallslu() {
document.forms[0].submit();
}
</script>
<head>
<STYLE TYPE="text/css">
<!--
TD { FONT-SIZE: 16px }
body {scrollbar-arrow-color:#FFFFFF;scrollbar-base-color:#FFFFFF;scrollbar-face-color:#222222;scrollbar-highlight-color:#222222;scrollbar-shadow-color:#FFFFFF}
-->
</STYLE>
<meta http-equiv="Content-Language" content="zh-tw">
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title>
</head>
<body onload="admindataruallslu();" ONDRAGSTART="window.event.returnValue=false" ONCONTEXTMENU="window.event.returnValue=false" bgcolor="#000000" text="#FFFFFF" link="#0000FF" vlink="#FF00FF" alink="#00FF00" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form method=post action=rentaswell.cgi?$userinfo target='rentaswell3'>
<input type=hidden name='main' value='rentaswellscanadmin2'>
<input type=hidden name='adminusertid' value='$adminusertid'>
</form>
</center>
</body>
</html>
EOFsssrtc
}
##########
sub errorjava { #錯誤函式庫
print "<html><head><title></title>\n";
print "<script Language='JavaScript'>\n";
print "function erorwe() {\n";
print " alert('$_[0]');\n";
print " return false;\n";
print " }\n";
print "erorwe();\n";
print "</script>\n";
print "<body bgcolor='#000000' text='#FFFFFF''>\n";
print "</head></html>\n";
exit 0;
}
給大家看一下這套軟體的截圖
|
|
[複製鏈接]
/1 
發表於 2011-3-11 10:04:27
n_144|
樓主
發表於 2011-3-11 12:57:26