《易拓程序设计TIPTOP GP 5X 单档维护程序撰写》由会员分享，可在线阅读，更多相关《易拓程序设计TIPTOP GP 5X 单档维护程序撰写（70页珍藏版）》请在金锄头文库上搜索。
1、TIPTOP GP 5X 单档维护程序撰写,讲师：王召霞,神州数码管理有限公司 TIPTOP事业部,课程安排,单档程序介绍 单档程序基本介绍 单档程序写法介绍 单档作业布置 查询程序与除错工具 p_qry动态查询程序 除错工具介绍(Debugger) 单档练习 单档画面栏位控制 栏位的动态开启和关闭 单档练习 单档程序练习 单档程序验收,本次课程内容,单档程序基础介绍 单档程序示例讲解,单档程序基础介绍,单档程序（作业）的概念 单档程序（作业）的分类 单档程序（作业）的功能 单档程序（作业）的结构 单档程序（作业）的设计,单档程序的概念,何谓单档程序（作业） 我们把对单一数据库表进行操作的程序
2、（作业）称为单档程序（作业）。 注意： 1、数据操作（新建、更改、删除）是对一 张表进行的操作。 2、数据的取值可能会涉及多张表。,单档程序的分类,1、标准单档,单档程序的分类,2、单档多栏,单档程序的分类,3、假双档,单档程序的功能,单档程序(作业)的用途 一般单档程序(作业)用于系统资料的设置或者是简单资料的记录。 单档程序应具备哪些功能？ 1、基本编辑功能(新建、修改、删除、复制等) 2、查询功能 3、数据浏览功能 4、其他功能(有效/无效、打印、导出等),单档程序的功能,基本编辑功能 在TIPTOP系统中标准的编辑功能有： 1、录入-即新增一笔资料，对应的功能函数是,_a() 2、更改
3、-即修改当前资料，对应的功能函数是,_u() 3、删除-即删除当前资料，对应的功能函数是,_r() 4、复制-即复制当前数据并新增一笔资料， 对应的功能函数是,_c() 5、有效/无效-即对当前资料切换其有效无效码， 对应的功能函数是,_x(),单档程序的功能,数据浏览功能 在TIPTOP系统中标准的浏览功能有： 1、第一笔-显示总笔数的第一笔数据内容 2、上一笔-显示当前笔的前一笔数据内容 3、指定笔-显示指定笔数的数据内容 4、下一笔-显示当前笔的后一笔数据内容 5、最后笔-显示总笔数的最后一笔数据内容 数据浏览的功能由函数，_fetch()，完成。,单档程序的功能,数据查询功能 在TIP
4、TOP系统中标准的查询功能是： 查询-用户可在界面上输入查询条件， 系统会将用户输入的查询条件 形成WHERE 条件的一个组成部分。 查询功能由函数_q()和_curs()/_cs()完成。,单档程序的功能,数据输出功能 在TIPTOP系统中标准的输出功能有： 1、打印-将当前资料按打印格式预览并打印出来。 打印功能对应的函数是：_out() 2、汇出Excel-将当前资料汇出成Excel格式。 汇出Excel功能对应的函数是： cl_export_to_excel() 注意：所要汇出的资料类型需为RECORD类型，即数组,单档程序的功能,其他功能 在TIPTOP系统中其他功能有： 1、语言-
5、动态转换系统的语言别。 转换语言别的功能是由函数由cl_dynamic_locale()完成。 2、单身-进入单身栏位。功能函数为_b(),此功能在双档中讲解。 3、必要字段-显示当前作业的必要字段。 该功能由函数cl_show_req_fields()完成。 4、帮助-显示当前作业的帮助信息。 该功能由函数cl_show_help()完成。 5、离开-关闭作业。,单档程序的功能,自定义功能 上述功能均为TIPTOP系统标准功能， 每个客户都会有自己的需求， 每个企业的流程操作要求也不尽相同， 所以，用户可根据实际需要在客制作业 或 用户自定义作业中增加新功能。,单档程序的结构,问题： 对于一
6、支程序，它的结构是怎样的？,标准单档程序的结构,cs(),q(),fetch(),查询,数据浏览,新增,修改,删除,有效/无效,复制,打印,单档多栏程序的结构,查询,单身（新增，更改，删除，复制）,打印,单档程序的结构,Program Memo 程序注记 在程序起始前，均会对此程序的版本、目标、及编修人员和日期注记，便于追踪。 Global Setting 全局参数设计 包含3个部分： 1、DATABASE ds 2、GLOBALS “/config/top.global“ 3、DEFINE .,单档程序的设计,如何设计一支单档程序,明确需求,确定规格,规划数据表,确认功能,画面档设计,程序档
7、设计,单档程序的设计,需求： 1、记录金额核准的人员 2、金额的核准要分范围 3、必须设置密码,单档程序的示例,示例程序：aooi010 签核人员资料维护作业 涉及表 ：abz_file 签核人员资料档 gen_file 员工基本资料档 gem_file 部门信息资料档,单档程序的示例,表结构： create table azb_file ( azb01 varchar2(8), /*签核人员代码 */ azb02 varchar2(8), /*密码 */ azb06 number(20,6), /*金额 */ azbacti varchar2(1), /*资料有效码 */ azbuser v
8、archar2(10), /*资料所有者 */ azbgrup varchar2(6), /*资料所有群 */ azbmodu varchar2(10), /*资料修改者 */ azbdate date /*最近修改日 */ );,单档程序的示例,表结构： create table gen_file ( gen01 varchar2(8), /*员工编号 */ gen02 varchar2(30), /*员工姓名 */ gen03 varchar2(6), /*所属部门编号 */ gen04 varchar2(40), /*职称 */ gen05 varchar2(5), /*分机 */ ge
9、n06 varchar2(60), /*E-mail */ genacti varchar2(1), /*资料有效码 */ genuser varchar2(10), /*资料所有者 */ gengrup varchar2(6), /*资料所有部门 */ genmodu varchar2(10), /*资料修改者 */ gendate date /*最近修改日 */ ); create unique index gen_01 on gen_file (gen01);,单档程序的示例,表结构： create table gem_file ( gem01 varchar2(6), /*部门编号 *
10、/ gem02 varchar2(40), /*部门名称 */ gem03 varchar2(40), /*部门全称 */ gem04 varchar2(6), /*No Use */ gem05 varchar2(1), /*是否为会计部门 */ gem06 varchar2(1), /*No Use */ gem07 varchar2(1), /*费用类别 */ gem08 varchar2(1), /*No Use */ gemacti varchar2(1), /*资料有效码 */ gemuser varchar2(10), /*资料所有者 */ gemgrup varchar2(6)
11、, /*资料所有部门 */ gemmodu varchar2(10), /*资料修改者 */ gemdate date, /*最近修改日 */ gem09 varchar2(1), /*管理类别 1.成本中心 2.利润中心 3.其它 */ gem10 varchar2(6) /*对应成本中心 */ ); create unique index gem_01 on gem_file (gem01);,单档程序的示例,请查看教材单档部分！,第一天课程结束，谢谢大家,本次课程内容,查询程序介绍 p_qry动态程序设计 除错工具Debugger介绍,p_qry动态查询程序介绍,在TIPTOP GP系统
12、中，有两种查询程序： 1、hard-code 此类查询程序是由人工完成。 存在源代码档，目录是qry/4gl下 任何查询都可以用此类方式完成， 程序编写比较繁琐，对于初学者不易掌握。 2、p_qry动态查询程序 此类查询程序是由系统完成。 没有源代码档，系统直接调用配置后完成。 有一定的局限性 无需编程，容易掌握。,p_qry动态查询程序介绍,p_qry动态查询程序介绍,1.动态查询程序名称代码(.form) 2.查询视窗标题 3.本函式为Hard-Code函式：用于占位，防止两种查询 程序名称冲突 4.是否忽略单身营运中心设置：一旦勾选，查询仅限于用户所在db 5.本查询程序单身资料不上锁，
13、可更改：勾选后才能更改设置资料 6.客制查询程序：若为客制程序，则须勾选。,p_qry动态查询程序介绍,1.Input时的Where条件：录入状态下，开窗查询的条件。 2.Construct时的Where条件：查询状态下，开窗查询的条件。 3.需JOIN的TABLE：查询时所涉及到的非查询字段的表。 4.资料会重复，需要DISTINCT属性：增加distinct属性，去除重复资料。,p_qry动态查询程序介绍,1.资料数据库代码：设定查询资料所在数据库 2.资料表代码： 设定查询资料表 3.字段代码： 设定查询字段 4.字段宽度： 设定窗体中该栏位的宽度 5.本栏回传： 设定是否回传该字段的值
14、 6.字段类型： 设定窗体中该栏位的画面栏位类型 7.本栏需Outer： 设定该字段是否需要outer 8.串查程序代码： 可在窗体中增加相关资料的查询功能,p_qry动态查询程序介绍,参数须透过g_qryparam全局变量传递。 .form 查询程序代码 .state 状态 input/construct (i/c) .construct 是否作Construct (Y/N) .where 其他Where条件 .pagecount 每页最大浏览笔数 .default15 开窗栏位的预设值 .arg19 查询资料的条件替换值 .multiret_index 多选资料所要回传的栏位索引值 .mu
15、ltiret 多选资料的回传值暂存器 .ordercons ORDER BY的顺序,p_qry动态查询程序介绍,何时采用hard-code，何时采用p_qry 1)sql比较简单则采用p_qry sql非常复杂则采用hard-code 2)default值超过5个时，只能采用hard-code 3)arg传入值超过9个时，只能采用hard-code,p_qry动态查询程序介绍,查询状态下的开窗 CALL cl_init_qry_var() LET g_qryparam.form = “q_gen“ LET g_qryparam.state = “c” /此句不可省略 LET g_qryparam.default1 = g_azb.azb01 CALL cl_create_qry() RETURNING g_qryparam.multiret DISPLAY g_qryparam.multiret TO azb01 NEXT FIELD azb01,p_qry动态查询程序介绍,录入状态下的开窗 CALL cl_init_
