โปรแกรมบันทึกผู้บริโภคที่เขียนโดย HTA

คัดลอกและวางรหัสลงในเอกสารข้อความบันทึกและเปลี่ยนชื่อต่อท้ายของไฟล์เป็น: HTA และดับเบิลคลิกเพื่อเรียกใช้

รหัสมีดังนี้:

-

ชื่อโปรแกรม: บันทึกการบริโภค ver1.1 (20070808-20070811) .hta

คำแนะนำสำหรับการใช้งาน: คัดลอกและวางรหัสลงในเอกสารข้อความบันทึกและเปลี่ยนชื่อต่อท้ายของไฟล์เป็น: HTA และดับเบิลคลิกเพื่อเรียกใช้

คำอธิบายของผู้แต่ง: Youxi01 ,,, ไม่มีลิขสิทธิ์, ยินดีต้อนรับสู่เวอร์ชันละเมิดลิขสิทธิ์ !! /////////////////////6->

-

<title> โปรแกรมบันทึกการบริโภค </title>

<meta http-equiv = "content-type" content = "text/html; charset = gb2312"/>

<!-///////////////ta โลโก้ //////->

<HTA: แอปพลิเคชัน

Scroll = "ไม่"

คำบรรยายภาพ = "ใช่"

sysmenu = "ใช่"/>

-

<ภาษาสคริปต์ = "vbscript">

TotalMoney = 0 'การบริโภคทั้งหมด

index = -1 'เริ่มต้นหมายเลขรหัสควบคุมช่องทำเครื่องหมาย;

Flag = 0 'ธงที่กำหนดว่าไฟล์มีการเปลี่ยนแปลง

ตั้งค่า fso = createObject ("Scripting.filesystemObject")

'///////////////////////////อ่านไฟล์การกำหนดค่าและกำหนดขนาดและตำแหน่งของตัวเอง /////////////////////////////////////

sub window_onload

ถ้าไม่ใช่ (fso.fileexists ("ensume.ini")) จากนั้น 'สร้างถ้าไม่มีไฟล์การกำหนดค่า

fso.createtextfile ("ensume.ini") ปิด

สิ้นสุดถ้า

Window.resizeto 638,495 'ตั้งขนาดและตำแหน่งของตัวเอง

window.moveto 200,100

Addrow 0, "Hoho", "2007-1-1", "Tuesday" 'เพิ่มแถวก่อน ฉันไม่สามารถเข้าใจด้วยตัวเองได้ แต่ฉันใช้มันเพื่อจัดการกับข้อบกพร่องอยู่แล้ว

document.all.namedItem ("myTable"). แถว (1) .style.display = "ไม่มี" 'ตั้งค่าบรรทัดนี้มองไม่เห็น;

Addrow 0, "Hoho", "2007-1-1", "Tuesday" 'เพิ่มอีกแถวหนึ่ง ฉันไม่สามารถเข้าใจด้วยตัวเองได้ แต่ฉันใช้มันเพื่อจัดการกับข้อบกพร่องอยู่แล้ว

document.all.namedItem ("myTable"). แถว (2) .style.display = "ไม่มี" ตั้งค่าบรรทัดนี้มองไม่เห็น;

readfile ("ensume.ini")

สิ้นสุดย่อย

-

ฟังก์ชั่น readfile (ชื่อไฟล์)

SET FILE = FSO.OpentExtFile (ชื่อไฟล์, 1,1)

ทำในขณะที่ file.atendofline <> true 'อ่านไฟล์จนกว่าจะสิ้นสุดไฟล์

str = split (file.readline, " #") 'แยกไม่มีแถวโดย # flag (มีทั้งหมดสี่ธงดังกล่าว)

addrow str (1), str (2), str (3), str (4) 'เพิ่มห้าเซลล์เนื้อหาคือ ...

วง

ฟังก์ชันสิ้นสุด

-

ฟังก์ชั่น addrow (cnum, ctype, cdate, cday)

ดัชนี = ดัชนี+1 'หมายเลขซีเรียลเพิ่ม 1

ตั้งค่า objtable = document.all.namedItem ("myTable") 'รับตารางวัตถุตาม ID

ตั้งค่า newrow = objtable.insertrow () 'แทรกบรรทัด

newrow.className = "row_add" 'ตั้งค่าสไตล์ของบรรทัด;

newrow.onmouseover = getRef ("Change_bgcolor"))

newrow.onmouseout = getRef ("back_bgcolor"))

newrow.onclick = getRef ("cotledobj")

var = "#" & cnum & "#" & ctype & "#" & cdate & "#" & cday

str = split (var, "#")

str (0) = "<อินพุตประเภท = ช่องทำเครื่องหมาย = 'delcheck' & index>"

สำหรับ i = 0 ถึง 4

ตั้งค่า newCell = newrow.insertCell () 'แทรกเซลล์และตั้งค่าของเซลล์;

newcell.innerhtml = str (i)

ต่อไป

TotalMoney = TotalMoney+CLNG (CNUM) 'ตั้งค่าการบริโภคทั้งหมดและกำหนดจอแสดงผล

การบริโภค. innerhtml = "การบริโภคทั้งหมด:" & totalMoney & "หยวน"