| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| Access数据库循环采集 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 局_SQL | 文本型 | |||||
| 局_返回数据 | 类_json | |||||
| 局_起始时间 | 文本型 | |||||
| 局_结束时间 | 文本型 | |||||
| 数据编号 | 文本型 | |||||
| 设备编号 | 文本型 | |||||
| 测量值 | 小数型 | |||||
| n | 整数型 | |||||
| 记录数量 | 整数型 | |||||
| 客户代码 | 文本型 | |||||
| 芯片型号 | 文本型 | |||||
| 测量时间 | 日期时间型 | |||||
| 操作员编号 | 文本型 | |||||
| 测量标准 | 文本型 | |||||
| 芯片厚度 | 文本型 | |||||
| 判断结果 | 文本型 | |||||
| 测量标准查询编号 | 整数型 | |||||
| FLT上限 | 文本型 | |||||
| FLT下限 | 文本型 | |||||
| 局_addtime | 文本型 | |||||
| 局_user | 文本型 | |||||
| 文本型变量 | 文本型 | |||||
| 流程卡号 | 文本型 | |||||
| 压焊图号 | 文本型 | |||||
| 工号 | 文本型 | |||||
| 局_记录集句柄 | 整数型 | |||||
| 局_MeasureStander_Item句柄 | 整数型 | |||||
| 局_Customer句柄 | 整数型 | |||||
| 测量值查询编号 | 整数型 | |||||
| 局_MeasureData句柄 | 整数型 | |||||
| 局_code | 文本型 | |||||
| flt1 | 文本型 | |||||
| flt2 | 文本型 | |||||
| flt3 | 文本型 | |||||
| flt4 | 文本型 | |||||
| flt最小值 | 文本型 | |||||
| flt最大值 | 文本型 | |||||
| flt平均值 | 文本型 | |||||
| 检测结果 | 文本型 | |||||
| A | 文本型 | |||||
| 局_查询异常时间 | 文本型 | |||||
Access数据库重连 () ' 'Access数据库重连
' ''''' ''''' ''''' ' ''''' ''''''''' ''''''''' ''''''''' '''''''' 基础表Customer查询开始 ''''''' ''''''' ''''' ''''' ''''' ''''' ''''' ''''' ''''' '''''
局_code ＝ 时间_到时间戳 (取现行时间 (), 真, 真)
取上次采集结束时间 ()
' 局_起始时间 ＝ 到文本 (时间_格式化 (全_上次采集结束时间, “yyyy/M/d”, “ hh:mm:ss”, 真, ))
' 局_结束时间 ＝ 到文本 (时间_格式化 (增减时间 (全_上次采集结束时间, #分钟, 2), “yyyy/M/d”, “ hh:mm:ss”, 真, ))
局_起始时间 ＝ 到文本 (时间_格式化 (增减时间 (取现行时间 (), #年份, -5), “yyyy/M/d”, “ hh:mm:ss”, 真, ))
局_结束时间 ＝ 到文本 (时间_格式化 (取现行时间 (), “yyyy/M/d”, “ hh:mm:ss”, 真, ))
调试输出 (局_起始时间)
调试输出 (局_结束时间)
' *** 缩略程序块 ***
局_Customer句柄 ＝ Access.查询 (“Customer”, “_DateTime”, 假, “select * from Customer where `_DateTime` BETWEEN #” ＋ 局_起始时间 ＋ “# AND #” ＋ 局_结束时间 ＋ “#”)
调试输出 (局_Customer句柄)
如果真 (局_Customer句柄 ＝ 0)
信息框 (“数据表Customer查询失败,请反馈工艺工程处理！”, 0, , )结束 ()时钟_数据读取.时钟周期 ＝ 0
外部数据库1.到首记录 (局_Customer句柄)
判断循环首 (外部数据库1.尾记录后 (局_Customer句柄) ＝ 假)流程卡号 ＝ 外部数据库1.读 (局_Customer句柄, “_ID”)压焊图号 ＝ 外部数据库1.读 (局_Customer句柄, “_MapId”)芯片型号 ＝ 外部数据库1.读 (局_Customer句柄, “_ChipId”)客户代码 ＝ 外部数据库1.读 (局_Customer句柄, “_CustomerId”)设备编号 ＝ 外部数据库1.读 (局_Customer句柄, “_EquId”)测量时间 ＝ 外部数据库1.读 (局_Customer句柄, “_DateTime”)操作员编号 ＝ 外部数据库1.读 (局_Customer句柄, “_UserId”)测量标准查询编号 ＝ 外部数据库1.读 (局_Customer句柄, “_Stander_Id”)测量值查询编号 ＝ 外部数据库1.读 (局_Customer句柄, “ID”)编辑框_log.加入文本 (“流程卡号= ” ＋ 流程卡号 ＋ #换行符 )编辑框_log.加入文本 (“压焊图号= ” ＋ 压焊图号 ＋ #换行符 )编辑框_log.加入文本 (“芯片型号= ” ＋ 芯片型号 ＋ #换行符 )编辑框_log.加入文本 (“客户代码= ” ＋ 客户代码 ＋ #换行符 )编辑框_log.加入文本 (“设备编号= ” ＋ 设备编号 ＋ #换行符 )编辑框_log.加入文本 (“测量时间= ” ＋ 到文本 (测量时间) ＋ #换行符 )编辑框_log.加入文本 (“操作员编号= ” ＋ 操作员编号 ＋ #换行符 )编辑框_log.加入文本 (“测量标准查询编号= ” ＋ 到文本 (测量标准查询编号) ＋ #换行符 )编辑框_log.加入文本 (“测量值查询编号= ” ＋ 到文本 (测量值查询编号) ＋ #换行符 ) ' ''''' ''''' ''''' '''' ''''''''' ''''''''' '''''''' 根据表Customer中_Stander_Id字段查询测量标准 ''''''' ''''''' ''''' ''''' ''''' ''''' ''''' ''''' '''''局_MeasureStander_Item句柄 ＝ Access.查询 (“MeasureStander_Item”, “_Stander_Id”, 假, “select * from MeasureStander_Item where `_Stander_Id` = ” ＋ 到文本 (测量标准查询编号))如果真 (局_MeasureStander_Item句柄 ＝ 0)信息框 (“数据表MeasureStander_Item查询失败,请反馈工艺工程处理！”, 0, , )结束 ()外部数据库1.到首记录 (局_MeasureStander_Item句柄)测量标准 ＝ 外部数据库1.读 (局_MeasureStander_Item句柄, “_Stander_Item_Name”)FLT上限 ＝ 外部数据库1.读 (局_MeasureStander_Item句柄, “_Plus”)FLT下限 ＝ 外部数据库1.读 (局_MeasureStander_Item句柄, “_Minus”)编辑框_log.加入文本 (“测量标准= ” ＋ 测量标准 ＋ #换行符 )编辑框_log.加入文本 (“FLT上限= ” ＋ FLT上限 ＋ #换行符 )编辑框_log.加入文本 (“FLT下限= ” ＋ FLT下限 ＋ #换行符 ) ' ''''' ''''' ''''' '''' ' '''' ' '''''' ' '''''' ' '''''''''' 出错区域，多次运行后查询失败 ''''''' ' '''''' '''''''' ''''' ''''' ''''' ''''' '''''局_MeasureData句柄 ＝ Access.查询 (“MeasureData”, “_CustomerId”, 假, “select * from MeasureData where `_CustomerId` = ” ＋ 到文本 (测量值查询编号))调试输出 (“局_MeasureData句柄 =” ＋ 到文本 (局_MeasureData句柄))如果真 (局_MeasureData句柄 ＝ 0)信息框 (“数据表MeasureData查询失败,请反馈工艺工程处理！”, 0, , )结束 () ' ''''' ''''' ''''' '''' '' ' '''''' ' ''''' '''' ' '''''''''' 出错区域，多次运行后查询失败''''''' '' ' '''''''''''' ''''' ''''' ''''' ''''' ''''' ' ''''' ''''' ''''' ''''' '''''''' Access后续要输入的内容能查询成功的情况下，已经查询到的数据先存入Mysql，并用唯一码进行标记 ''''''' ''''''' ''''' ''局_user ＝ 全_操作用户.用户名局_addtime ＝ 时间_格式化 (取现行时间 (), “yyyy-M-dd ”, “hh:mm:ss”, 真, )局_code ＝ 到文本 (到数值 (局_code) ＋ 1)局_SQL ＝ “insert into buyoff_flt (`area`,`kehu`,`liucheng_card`,`yahan_id`,`die_xinghao`,`die_bonder`,`jiance_op`,`jiance_machine`,`jiance_spec`,`addtime`,`flt_down`,`flt_up`,`jiance_time`,`user`,`code`) values ('%s','%s','%s','%s','%s','%s','%s','%s','%s','%s','%s','%s','%s','%s','%s')”局_SQL ＝ 格式化文本 (局_SQL, 全_操作用户.区域, 客户代码, 流程卡号, 压焊图号, 芯片型号, 设备编号, 操作员编号, 显微镜编号, 测量标准, 局_addtime, FLT下限, FLT上限, 到文本 (测量时间), 局_user, 局_code)如果真 (全_mysql.方法_开始事务 ())如果 (全_mysql.方法_执行 (局_SQL))
全_mysql.方法_保存事务 ()
全_mysql.方法_回滚事务 ()
' 信息框 (“数据存储失败！”, 16, , )编辑框_log.加入文本 (“文件读取成功，但保存至数据库失败---” ＋ 到文本 (取现行时间 ()) ＋ #换行符 )返回 ()
' ''''' ''''' ''''' '''' ' '''''''' 将Access中MeasureData表的单个flt测量值通过唯一码循update存入Mysql ''''''' '''''''' ''''' ''''' ''''' ''''' ''''' ' *** 缩略程序块 *** ' 局_MeasureData句柄 ＝ Access.查询 (“MeasureData”, “_CustomerId”, 假, “select * from MeasureData where `_CustomerId` like '%” ＋ 到文本 (测量值查询编号) ＋ “%'”) ' 局_MeasureData句柄 ＝ Access.查询 (“MeasureData”, “_CustomerId”, 假, “select * from MeasureData where `_CustomerId` = '” ＋ 到文本 (测量值查询编号) ＋ “'”) ' '''''''' 数字查询时，数值字段两侧不能用单引号延时 (100)外部数据库1.到首记录 (局_MeasureData句柄)n ＝ 0判断循环首 (外部数据库1.尾记录后 (局_MeasureData句柄) ＝ 假)n ＝ n ＋ 1测量值 ＝ 外部数据库1.读 (局_MeasureData句柄, “_MeasureData”)调试输出 (“测量值= ” ＋ 到文本 (测量值) ＋ #换行符 )编辑框_log.加入文本 (“测量值flt” ＋ 到文本 (n) ＋ “=” ＋ 到文本 (测量值) ＋ #换行符 ＋ #换行符 )局_SQL ＝ “update buyoff_flt set `flt” ＋ 到文本 (n) ＋ “` = '%s' where `code` = '%s'”局_SQL ＝ 格式化文本 (局_SQL, 到文本 (测量值), 局_code)调试输出 (局_code)如果真 (全_mysql.方法_开始事务 ())判断 (全_mysql.方法_执行 (局_SQL))全_mysql.方法_保存事务 () ' 信息框 (“提交成功”, 64, , )全_mysql.方法_回滚事务 ()编辑框_log.加入文本 (“文件读取成功，但保存至数据库失败---” ＋ 到文本 (取现行时间 ()) ＋ #换行符 ) ' 返回 ()信息框 (“提交失败”, 16, , )延时 (100)外部数据库1.到后一记录 (局_MeasureData句柄)
判断循环尾 () ' ''''' ''''' ''''' '''' ''''' '''''''' 通过Mysql中已有数据算最小值，最大值，平均值和判定结论 ''''''' ''''''' ''''' ''''' ''''' ''''' ''''' '''''延迟 (100)局_SQL ＝ “select * from buyoff_flt where `code` = '” ＋ 局_code ＋ “'”全_mysql.方法_查询 (局_SQL, 局_返回数据) ' 局_数量 ＝ 到数值 (局_返回数据.取通用属性 (“记录数量”, )) ' 调试输出 (“局_数量 =” ＋ 到文本 (局_数量))flt1 ＝ 局_返回数据.取通用属性 (“数据[0].flt1”, )flt2 ＝ 局_返回数据.取通用属性 (“数据[0].flt2”, )flt3 ＝ 局_返回数据.取通用属性 (“数据[0].flt3”, )flt4 ＝ 局_返回数据.取通用属性 (“数据[0].flt4”, )加入成员 (集_历史数据, 到数值 (flt1))加入成员 (集_历史数据, 到数值 (flt2))加入成员 (集_历史数据, 到数值 (flt3))加入成员 (集_历史数据, 到数值 (flt4))数组排序 (集_历史数据, 真)flt最小值 ＝ 到文本 (集_历史数据 [1])flt最大值 ＝ 到文本 (集_历史数据 [取数组成员数 (集_历史数据)])调试输出 (“最小值是:” ＋ 到文本 (集_历史数据 [1]), “最大值是:” ＋ 到文本 (集_历史数据 [取数组成员数 (集_历史数据)]))flt平均值 ＝ 到文本 (四舍五入 ( (到数值 (flt1) ＋ 到数值 (flt2) ＋ 到数值 (flt3) ＋ 到数值 (flt4)) ÷ 4, 2))如果 (flt最小值 ＞ FLT下限 且 flt最大值 ＜ FLT上限)检测结果 ＝ “OK”检测结果 ＝ “NO”删除成员 (集_历史数据, 1, 4) ' ''''' ''''' ''''' '''' '''''| i支持库列表 | 支持库注释 |
| spec | 特殊功能支持库 |
| eAPI | 应用接口支持库 |