主頁 > 知識庫 > hta編寫的消費記錄程序

hta編寫的消費記錄程序

熱門標簽:電話機器人適用業(yè)務 獲客智能電銷機器人 徐州天音防封電銷卡 哈爾濱外呼系統(tǒng)代理商 南昌辦理400電話怎么安裝 鄭州智能外呼系統(tǒng)運營商 湛江電銷防封卡 不錯的400電話辦理 佛山防封外呼系統(tǒng)收費
將代碼復制粘貼到一文本文檔中,然后保存,并將該文件后綴名改為: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 '不存在配置文件則創(chuàng)建;
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) '添加五個單元格,內(nèi)容分別為....
loop
End Function
'////////////////添加表行,單元格///////////
Function addRow(cnum,ctype,cdate,cday)
index=index+1 '序號自加1
set objTable=document.all.namedItem("mytable") '根據(jù)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 '如果執(zhí)行了刪除操作,則標志文件已經(jīng)改動;
End Function
'////////////////////檢查輸入數(shù)據(jù)是否正確////////////
Function check(value)
if not (isnumeric(value)) then
msgbox "請在消費金額欄中輸入數(shù)字!",64,"特別提示"
elseif value1 then
msgbox "你的錢難道越花越多?",64,"特別提示"
else
flag=1
addRow money.value,cstype.options(cstype.selectedIndex).innerText,date,weekdayname(weekday(date))
csmonth.selectedIndex = month(date()) '月份checkbox轉(zhuǎn)到當前月份;
selectChange(monthname(month(date()))) '表格顯示為當前月份的數(shù)據(jù);
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)) '獲取數(shù)據(jù)的月份;
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 '文件如果已經(jīng)標志了改動,則提示是否保存;
msg=msgbox("提示:你的設置已經(jīng)更改,是否保存?",vbyesno+vbExclamation,"保存提醒")
if msg=6 then '如果選擇了“是”;
selectChange("一年") '當前表格顯示的數(shù)據(jù)為全年的數(shù)據(jù);
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=txttag.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>

標簽:紹興 安康 廣西 吉安 蕪湖 蘭州 懷化 呂梁

巨人網(wǎng)絡通訊聲明:本文標題《hta編寫的消費記錄程序》,本文關鍵詞  hta,編,寫的,消費,記錄,程序,;如發(fā)現(xiàn)本文內(nèi)容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《hta編寫的消費記錄程序》相關的同類信息!
  • 本頁收集關于hta編寫的消費記錄程序的相關信息資訊供網(wǎng)民參考!
  • 推薦文章