hta 가 작성 한 소비 기록 프로그램
<!--//////// /////////====
： Ver1.1(20070808-20070811).hta
： ， ， ：hta， 。
：youxi01,,, ， !!///////////-->
<!--/////// ， //////-->
<TITLE> </TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
<!--///////hta //////-->
<HTA:APPLICATION
SCROLL="no"
CAPTION="yes"
SYSMENU="yes"/>
<!--/////// //////-->
<script language="vbscript">
totalMoney=0 '
index=-1 ' checkbox ID ；
flag=0 '
set fso=createobject("scripting.filesystemobject")
'/////////////////// ， ， 、 ////////
Sub Window_onLoad
if not (fso.fileexists("consume.ini")) then ' ；
fso.createtextfile("consume.ini").close
end if
window.resizeTo 638,495 ' 、 ；
window.moveTo 200,100
addRow 0,"hoho","2007-1-1"," " ' 。 ， bug；
document.all.namedItem("mytable").rows(1).style.display="none" ' ;
addRow 0,"hoho","2007-1-1"," " ' 。 ， bug；
document.all.namedItem("mytable").rows(2).style.display="none" ' ;
readFile("consume.ini")
End Sub
'////////////////// //////////////////
Function readFile(filename)
set file=fso.opentextfile(filename,1,1)
do while file.atendofline<>true '
str=split(file.readline,"#") ' # ( )
addRow str(1),str(2),str(3),str(4) ' ， ....
loop
End Function
'//////////////// ， ///////////
Function addRow(cnum,ctype,cdate,cday)
index=index+1 ' 1
set objTable=document.all.namedItem("mytable") ' ID
set newrow = objTable.insertRow() '
newrow.className="row_add" ' ；
newrow.onmouseover=getRef("change_bgcolor")
newrow.onmouseout=getRef("back_bgcolor")
newrow.onclick=getRef("chooseOBJ")
var="#"&cnum&"#"&ctype&"#"&cdate&"#"&cday
str=split(var,"#")
str(0)="<input type=checkbox id='delcheck'&index>"
for i=0 to 4
set newcell=newrow.insertCell() ' ， ；
newcell.innerhtml=str(i)
next
totalMoney=totalMoney+clng(cnum) ' ， ；
consume.innerHTML=" ："&totalMoney&" "
End Function
'/////////////// //////////////
Function change_bgcolor()
me.className="new_row_add"
End Function
'///////////// //////////////
Function back_bgcolor()
me.className="row_add"
End Function
'//////////// /////////
Function chooseOBJ()
if me.cells(0).children(0).checked=true then
me.cells(0).children(0).checked=false
else
me.cells(0).children(0).checked=true
end if
End Function
'/////////////////" " ///////////////
Function delRow()
for i=0 to index
if delcheck(i).checked=true then
set tag=delcheck(i).parentelement.parentelement ' checkbox ；
tag.style.display="none" ' ， ；
totalMoney=totalMoney-clng(tag.cells(1).innertext)
consume.innerHTML=" ："&totalMoney&" "
tag.cells(1).innertext="0" ' 0；
end if
next
flag=1 ' ， ；
End Function
'//////////////////// ////////////
Function check(value)
if not (isnumeric(value)) then
msgbox " !",64," "
elseif value<1 then
msgbox " ?",64," "
else
flag=1
addRow money.value,cstype.options(cstype.selectedIndex).innerText,date,weekdayname(weekday(date))
csmonth.selectedIndex = month(date()) ' checkbox ；
selectChange(monthname(month(date()))) ' ；
end if
money.select() 'money ；
End Function
'//////////////////////// checkbox //////////////
Function selectChange(choose) '78 ；
totalMoney=0
for i=0 to index
set tag=delcheck(i).parentelement.parentelement
mName=monthname(month(tag.cells(3).innertext)) ' ；
if trim(choose)=" " and tag.cells(1).innertext<>"0" then
tag.style.display=""
totalMoney=totalMoney+clng(tag.cells(1).innertext)
elseif mName<>trim(choose) or tag.cells(1).innertext="0" then
tag.style.display="none"
else
tag.style.display=""
totalMoney=totalMoney+clng(tag.cells(1).innertext)
end if
next
consume.innerHTML=" ："&totalMoney&" "
End Function
'//////////// //////
Function selectAll() '96 ；
if mybutton.value=" " then
for i=0 to index
delcheck(i).checked=true
next
mybutton.value=" "
else
for i=0 to index
delcheck(i).checked=false
next
mybutton.value=" "
end if
End Function
'///////////// //////////////////
Sub Window_onunLoad()
if flag=1 then ' ， ；
msg=msgbox(" ： ， ?",vbyesno+vbExclamation," ")
if msg=6 then ' “ ”；
selectChange(" ") ' ；
for i=0 to index
set tag=delcheck(i).parentelement.parentelement
if tag.cells(1).innertext<>"0" then
txt=txt&"#"&tag.cells(1).innertext&"#"&tag.cells(2).innertext&"#"
txt=txt&tag.cells(3).innertext&"#"&tag.cells(4).innertext & vbcrlf
end if
next
set file=fso.opentextfile("consume.ini",2,1) ' ；
file.write(txt).close
end if
end if
End Sub
</script>
<!--/////// ， /////////////-->
<style>
#all{border:1px solid #000069;width:600px;text-align:center;padding:2px;}
#header{width:598px;text-align:center;font-family: " ";font-size: 24px;
font-weight: bold;background: #EEE;margin:1px;}
#header1{text-align:center;font-size: 16px;width:595px;padding:2px 2px;}
#month{float:left;width:20px;margin-left:90px;}
#consume{float:left;width:200px;color:red}
#main{width:600px;height:300px;background: #EEE;border:1px solid #000069;overflow:auto;}
#contain{width:600px;height:30px;border:1px solid #000069;}
.line{border:1px solid #000060; height: 1;width:602px;}
.line2{border:1px solid white; height: 1;width:600px;}
.c_button{text-align:center;float:left;width:100px;border:1px solid #ccc;
background-color:#F3F3F3;font-size:12px;color:#333333;
padding:5px 2px;margin:2px;line-height:20px;}
.c_other{text-align:center;float:left;width:136px;
border:1px solid #ccc;background-color:#F3F3F3;font-size:12px;color:#333333;
padding:5px 2px;margin:2px;line-height:20px;height:23px; }
.button {padding:1px;text-align:center;border:0;background-color:#eee;height:23px;cursor:pointer}
.th{text-align=center;background-color:#006699;font-size:14px;
font-family: " ";color:#F2F3F7;padding:2px;line-height:22px;}
.row_add{text-align:center;background-color:#ccd2de;height:4px;font-size:12px;line-height:15px;
padding:2px;}
.new_row_add{text-align:center;color:red;background-color:#ccd2ad;height:4px; font-size:12px;
line-height:15px;padding:2px;cursor:hand;}
</style>
<!--/////// /////////////-->
<hr class="line">
<div ID="all">
<div id="header">2007 </div>
<div id="header1">
<div id="month"><select id="csmonth" onchange=selectChange(csmonth.options(csmonth.selectedIndex).innerText)><option> </option><option> </option><option> </option><option> </option><option> </option><option> </option><option> </option><option> </option><option> </option><option> </option><option> </option><option> </option><option> </option></select></div>
<div id="consume"> ：</div></div>
<div id="main">
<table border=0 width=100% ID="mytable">
<tr class="th"><th> </th><th> </th><th> </th><th> </th><th> </th>
</table></div>
<hr class="line2" color=white>
<div id="contain">
<div class="c_button"><input type=submit value=" " class="button" ID="mybutton" onclick=selectAll></div>
<div class="c_other"> ：<input type=text name="money" size=5 onmouseover='money.select()'></div>
<div class="c_other"> ：<select ID="cstype"><option> </option><option> </option><option> </option></select></div>
<div class="c_button"><input type=submit value=" " class="button" onclick=check(money.value)></div><div class="c_button"><input type=submit value=" " class="button" onclick=delRow()></div>
</div></div>
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
hta 가 작성 한 소비 기록 프로그램텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
