[教程源码] 界面配置保存到服务器

界面1:
{
	标签页1:
	{
		水平布局:
		{
			文字框:{名称:"文字框1",显示内容:"配置文件名"},
			输入框:{名称:"配置文件名",提示内容:"配置文件名",初始文本:"设置一"},
		},
		水平布局:
		{
			按钮:{名称:"按钮1",显示内容:"上传配置",点击响应:"保存配置"},
			按钮:{名称:"按钮2",显示内容:"下载配置",点击响应:"读取配置"},
		    
		
		},
		
		文字框:{名称:"文字框测试输出",显示内容:""},		
		
		水平布局:
		{
			多选框:{名称:"多选框1",提示内容:"功能选择一",点击响应:"函数名1",选中:false},
			多选框:{名称:"多选框2",提示内容:"功能选择二",点击响应:"函数名1",选中:false},
		},
		水平布局:
		{
			下拉框:{名称:"下拉框1",选择响应:"函数名1",选项:["选项1","选项2","选项3"],初始选项:0},
			下拉框:{名称:"下拉框2",选择响应:"函数名1",选项:["选项1","选项2","选项3"],初始选项:0},
		},
		输入框:{名称:"输入框1",提示内容:"------------",初始文本:"123"},
		输入框:{名称:"输入框2",提示内容:"------------",初始文本:"456"},
	},
}

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次
Function 保存配置()
    Dim 包名="com.chunqiuchuanqimayi"//打包的报名
    Dim 路径= "/data/data/"&包名&"/files/script.cfg"
    Dim 数据=File.Read(路径)
    dim 配置文件名=uip.GetAttribute("配置文件名")
    zm.NetDataInit "http://IP:80/sql.php", 配置文件名["初始文本"], "QQ密匙"//IP改成你自己无服务IP
    zm.NetDataSet "配置数据", 数据
    UIP.SetAttribute "文字框测试输出", {"显示内容":"上传配置成功"}
End Function
Function 读取配置()
    dim 配置文件名=uip.GetAttribute("配置文件名")
    zm.NetDataInit "http://IP:80/sql.php", 配置文件名["初始文本"], "QQ密匙"
    dim 数据=zm.NetDataGet("配置数据")
    dim 表 = Encode.JsonToTable(数据)
    For Each k , v In 表
        dim 当前数据=uip.GetAttribute(k)
        If 当前数据["提示内容"] <> null  Then 
            UIP.SetAttribute k, {"选中":v}
        ElseIf 当前数据["初始选项"]<> null Then
            UIP.SetAttribute k, {"初始选项":v}	
        ElseIf 当前数据["初始文本"] <> null Then
            UIP.SetAttribute k, {"初始文本":v}
        End If
    Next
    UIP.SetAttribute "文字框测试输出", {"显示内容":"读取配置成功"}
End Function