gui = GUI()

gui.HideConsoleWindow()

szlistbox1 = "支出,收入"

szlistbox2 = "生活用品,交通,通讯,衣服鞋帽,数码产品,健身,旅游,工资,奖金"

# 记录输入界面设计

title = "账单录入"

size  = [10,3,158,40]

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控件设置字库

media0   = ["C:\\fine\\exampleRes\\青花.avi","media",90,2,28,16]  

media1   = ["C:\\fine\\exampleRes\\赛车.avi","media",122,2,28,16]  

# 打包设计元素

list = [title,size,text1,button,edit0,combobox1,edit1,edit2,combobox2,edit3,edit4,edit5,text2,textbox,media0,media1]

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,["  记录输入",""])

    }

}