gui = GUI()
szlistbox1 = "支出,收入"
szlistbox2 = "生活用品,交通,通讯,衣服鞋帽,数码产品,健身,旅游,工资,奖金"
# 记录输入界面设计
title = "账单录入"
size = [10,3,100,36]
text1 = ["|楷体|22|255|0|0","text",24,2,17,1] # text控件的标题为空，仍然可以定义字库
button = [" 录入 |微软雅黑|24|255|255|0","button",55,2,10,1] # 给button控件设置字库
edit0 = [" ID |微软雅黑|22|0|0|255","edit","i",12,5,12,1] # 给edit控件设置字库
combobox1= ["收入支出 |微软雅黑|22|0|255|0","combobox",szlistbox1,40,5,8,1] # 给combobox控件设置字库
edit1 = [" 录入者 ","edit","s",66,5,18,1]
edit2 = [" 日期 ","edit","s",12,8,14,1]
combobox2= [" 商品分类 ","combobox",szlistbox2,12,10,28,1]
edit3 = [" 商品名称 ","edit","s",12,12,60,1]
edit4 = [" 数量 ","edit","f",12,14,20,1]
edit5 = [" 单价 ","edit","f",12,16,20,1]
text2 = [" 合计 ","text",12,18,20,1]
textbox = [" 录入数据 |微软雅黑|22|0|0|255","textbox","N",12,20,74,8] # 给textbox控件设置字库
# 打包设计元素
list = [title,size,text1,button,edit0,combobox1,edit1,edit2,combobox2,edit3,edit4,edit5,text2,textbox]
t1 = TIME()
num = gui.Fine(list) # 创建账单录入窗口，并返回资源ID
t1.sleep(200)
gui.SendText(num,[" 记录输入",""])
while gui.FineClosed(num) != -1 # 检查窗口关闭消息
{
PowerDown(3) # 节能设置
if gui.FineReady(num) == 0 # 检查是否有数据录入
{
x = gui.FineRead(num) # 读取录入数据
# x[0]是button-编号(指令）
# 优先输出edit：x[1]ID，x[2]数据录入人，x[3]日期,x[4]商品名称，x[5]数量，x[6]单价
# 其次输出listbox：x[7]收入支出，x[8]商品分类
tm = x[3]
if tm == "" or len(tm) < 10 or tm[4] != "-"
{
boxnum = gui.MessageBox(boxnum,"时间不能为空！并且时间格式必须是：NNNN-YY-RR!")
while gui.MessageBoxClosed(boxnum) != -1 {PowerDown(3)}
continue
}
y = x[5]*x[6] # 计算数量乘以单价，合计
Y = sprint("%.2f",y) # 将合计转化为字符串
gui.SendText(num,[" 票据录入 ",Y]) # 显示合计
time1 = x[3]+" 08:00:00" # 拼接开票时间（录入的票据时间）
str = itoc(x[1]) +","+x[7]+","+x[8]+","+x[4]+"," +itoc(x[5])+","+itoc(x[6])+","+time1+"\n"
gui.SendTextbox(num,[str])
boxnum = gui.MessageBox("成功录入了一条记录！","确定")
while gui.MessageBoxClosed(boxnum) != -1 {PowerDown(3)}
gui.SendEdit(num,["",x[2],x[3],"","",""]) # 将查询选中的所有edit项记录显示出来，便于修改
gui.SendCombobox(num,[x[7],x[8]]) # 将查询选中的所有Combobox项记录显示出来，便于修改
gui.SendText(num,[" 记录输入",""])
}
}