?@!fn mian载入事件()
fr("记账本.txt",o)
us(2,"text",o)
sss y=o
f(sss.y==null)
{
us(2,"text","")}
end fn
fn 保存点击事件()
time(0,r)
ug(6,"text",q)
ug(2,"text",w)
f(q=="")
{
tw("请输入消费信息")
}
else
{
ss(w+"\n"+"时间: "+r+" "+"备注: "+q,e)
us(2,"text",e)
us(6,"text","")
ug(2,"text",t)
fw("记账本.txt",t)
}
end fn
fn 刷新数据点击事件()
fr("记账本.txt",o)
us(2,"text",o)
end fn
fn 删除数据点击事件()
fw("记账本.txt","")
end fn!@?
fr("记账本.txt",o)
us(2,"text",o)
sss y=o
f(sss.y==null)
{
us(2,"text","")}
end fn
fn 保存点击事件()
time(0,r)
ug(6,"text",q)
ug(2,"text",w)
f(q=="")
{
tw("请输入消费信息")
}
else
{
ss(w+"\n"+"时间: "+r+" "+"备注: "+q,e)
us(2,"text",e)
us(6,"text","")
ug(2,"text",t)
fw("记账本.txt",t)
}
end fn
fn 刷新数据点击事件()
fr("记账本.txt",o)
us(2,"text",o)
end fn
fn 删除数据点击事件()
fw("记账本.txt","")
end fn!@?