单档流程图教程范本.docxVIP

MAIN初始化cl_user,cl_setup定义锁游标-修改open window 3.CALL i010_menu()MENU()定义按钮 MENUBEFORE MENUON ACTION query CALL i010_q()ON ACTION insert #录入 CALL i010_a()… END MENU查询i010_q():变量初始化---i010_curs() CONSTRUCT指令接收查询条件根据查询条件定义SCROLL CURSOR（2个：查询数据KEY，查询总笔数）---i010_fetch(‘F’) CASE p_flag FETCH FIRST/LAST/PREVIOUS/NEXT/ABSOULT INTO key值变量 END CASE SELECT * INTO 变量列表FROM … WHERE KEY=key值变量 FETCH 总笔数到变量--i010_show() DISPLAY 变量列表 TO 画面栏位列表数据浏览i010_fetch(p_flag) CASE p_flag FETCH FIRST/LAST/PREVIOUS/NEXT/ABSOULT # F L P N / INTO key值变量 END CASE SELECT * INTO 变量列表FROM … WHERE KEY=key值变量 FETCH 总笔数到变量--i010_show() DISPLAY 变量列表 TO 画面栏位列表录入 i010_a()变量初始化CALL i010_i(‘a’)INSERT INTO 数据表 VALUES（变量列表）-i010_i(p_cmd) INPUT … BEFORE INPUT栏位的动态开启和关闭IF p_cmd=’a’ THEN主键开ELSE主键关ENF IF CALL i010_set_entry(p_cmd) CALL i010_set no_entry(p_cmd) BEFORE FIELD AFTER FIELD ON ACTION END INPUT修改i010_u()变量初始化判断主键不能为空锁表 OPEN i010_cl USING g_azb.azb01 #开启FETCHi010_cl INTO g_azb.* #上锁,取最新数据 CALL i010_show() 刷新界面显示最新资料 CALL i010_i(‘u’) UPDATE 数据表 SET …. CLOSE i010_cl #解锁show()i010_i(p_cmd)删除r()判断主键不能为空锁表 OPEN i010_cl USING g_azb.azb01 #开启 FETCH i010_cl INTO g_azb.* #上锁,取最新数据 #上锁过程中会检测到别的用户有没有在锁 IF SQLCA.sqlcode THEN RETURN END IFCALL i010_show() 刷新界面显示最新资料弹出小窗口和用户二次确认是否删除 DELETE FROM 数据表 WHERE 主键 CLOSE i010_cl #解锁 IF 删除的不是最后一笔 THEN总笔数=总笔数-1当前笔数=当前笔数CALL i010_fetch(‘N’) ELSE总笔数=总笔数-1当前笔数=当前笔数-1 CALL i010_fetch(‘L’) END IFshow()无效i010_x()变量初始化判断主键不能为空锁表 OPEN i010_cl USING g_azb.azb01 #开启 FETCH i010_cl INTO g_azb.* #上锁,取最新数据 CALL i010_show() 刷新界面显示最新资料CALL i010_i(‘u’) IF 有效吗=‘Y’ THEN弹出窗口“是否确定无效！”UPDATE 数据表 SET 有效吗=‘N’ELSE弹出窗口“是否确定恢复有效！” UPDATE 数据表 SET 有效吗=‘Y’END IF DISPLAY 有效码变量 TO 画面 CLOSE i010_cl #解锁i010_show()复制i010_copy()变量初始化判断主键不能为空INPUT 接收主键到变量 END INPUT SELECT * FROM azb_file WHERE 主键=旧值