.子程序 子程序_计算同条件养护温度
.局部变量 局部_捣制时间格式转换, 文本型
.局部变量 局部_现行时间格式转换, 文本型
.局部变量 局部_SQL语句_统計温度, 文本型
.局部变量 局部_SQL语句_找需要更新温度的部位, 文本型
.局部变量 局部_记录集, 整数型
.局部变量 局部_找到的日期数组, 文本型, , "0"
.局部变量 局蔀_数据库捣制时间, 文本型
.局部变量 局部_计次, 整数型
.局部变量 局部_数组成员日期, 文本型
局部_记录集 = 全局_外部数据库.查询 (局部_SQL语句_找需要更噺温度的部位)
重定义数组 (局部_找到的日期数组, 假, 取数组成员数 (局部_找到的日期数组))
全局_外部数据库.到首记录 (局部_记录集)
.判断循环首 (全局_外蔀数据库.尾记录后 (局部_记录集) = 假)
全局_外部数据库.读 (局部_记录集, “ID”)
全局_外部数据库.读 (局部_记录集, “工程部位”)
全局_外部数据库.读 (局部_记錄集, “同条件养护温度记录”)
局部_数据库捣制时间 = 到文本 (全局_外部数据库.读 (局部_记录集, “捣制时间”))
加入成员 (局部_找到的日期数组, 局部_數据库捣制时间)
全局_外部数据库.到后一记录 (局部_记录集)
.计次循环首 (取数组成员数 (局部_找到的日期数组), 局部_计次)
局部_数组成员日期 = 局部_找箌的日期数组 [1]
' 局部_数组成员日期 = 局部_找到的日期数组 [1]
输出调试文本 (局部_数组成员日期)
' 局部_捣制时间格式转换 = 到文本 (取年份 (日期框_捣制時间.今天)) + “/” + 到文本 (取月份 (日期框_捣制时间.今天)) + “/” + 到文本 (取日 (日期框_捣制时间.今天))
局部_现行时间格式转换 = 到文本 (取年份 (取现荇时间 ())) + “/” + 到文本 (取月份 (取现行时间 ())) + “/” + 到文本 (取日 (取现行时间 ()))
全局_外部数据库.关闭记录集 (局部_记录集)
可选中1个或多个下面的关鍵词搜索相关资料。也可直接点“搜索资料”搜索整个问题