网络公司报餐管理小程序【此为投标定制软件】

易语言 2020-02-25 19:40:49

网络公司报餐管理小程序【此为投标定制软件】

编辑框3.加入文本 (服务器1.取回客户 () + #换行符)
客户地址 = 服务器1.取回客户 ()
编辑框1.内容 = “IP为” + 客户地址 + “客户已成功连接...” + 到文本 (取小时 (取现行时间 ())) + “;” + 到文本 (取分钟 (取现行时间 ())) + “:” + 到文本 (取秒 (取现行时间 ())) + #换行符 + 编辑框1.内容
服务器1.发送数据 (服务器1.取回客户 (), “^<**>^” + 编辑框7.内容 + “#$$rt#” + 发送姓名, )

.如果 (是否已报 = 假)
加记录 (今天日期, 姓名, 报餐)
服务器1.发送数据 (服务器1.取回客户 (), “已经收到您的报餐请求,现已保存成功!”, )
编辑框1.内容 = “回复” + 服务器1.取回客户 () + “客户数据成功” + 到文本 (取小时 (取现行时间 ())) + “;” + 到文本 (取分钟 (取现行时间 ())) + “:” + 到文本 (取秒 (取现行时间 ())) + #换行符 + 编辑框1.内容
高级表格1.插入行 (, )
高级表格1.置数据 (高级表格1.行数 - 1, 0, 1, 今天日期)
高级表格1.置数据 (高级表格1.行数 - 1, 1, 1, 读 (“xm”))
高级表格1.置数据 (高级表格1.行数 - 1, 2, 1, 读 (“bc”))
标签3.标题 = “今日已完成报餐人数共:” + 到文本 (高级表格1.行数 - 1) + “人”
.否则
服务器1.发送数据 (服务器1.取回客户 (), “您今日已经发过了报餐内容,服务器已经做了保存,请勿重复报餐!” + #换行符 + “以下是您今天已经报餐过的内容:” + #换行符 + 报餐内容, )