单档流程图分析报告.docx

MAIN 初始化cl_user,cl_setup 定义锁游标-修改 open window 3.CALL i010_menu() MENU() 定义按钮 MENU BEFORE MENU ON 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 #开启 FETCH i010_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 IF CALL i010_show() 刷新界面显示最新资料 弹出小窗口和用户二次确认是否删除 DELETE FROM 数据表 WHERE 主键 CLOSE i010_cl #解锁 IF 删除的不是最后一笔 THEN 总笔数=总笔数-1 当前笔数=当前笔数 CALL i010_fetch(‘N’) ELSE 总笔数=总笔数-1 当前笔数=当前笔数-1 CALL i010_fetch(‘L’) END IF ?show() 无效 ?i010_x() 变量初始化 判断主键不能为空 锁表 OPEN i010_cl USING g_azb.azb01 #开启 FETCH i010_cl INTO g_azb.* #上锁,取最新数据 CALL i010_show() 刷新界面显示最新资料 CALL i010_i(‘u’) IF 有效吗=‘Y’