Informix/4GL数据库查寻里面地翻屏编制程序灵活技术

informix-4GL是一个综合性的第四代应用程序开发和生成环境，它具有强大的数据库管理功能，编程灵活方便，界面友好，已被广泛应用于UNIX操作系统下的数据库管理。下面介绍一段借助屏幕表格完成查询的小程序，它可通过在屏幕上相应字段输入模糊查询条件，如*、=、？等，据此搜索出满足条件的全部记录，再按Ctrl-F或Ctrl-B分屏浏览（调用一个游标管理函数que_gz ），用上下光标键并结合Esc键选择所需记录，再通过内部函数arr_curr()将此记录所包括的信息传出它用，在实际工作中可将此段程序写成函数形式，简洁明快，需要时只要改写相应变量即可，省时省力。此段程序在SCO UNIX Open Sever5.05、online7.3上编译通过。　

程序清单：

屏幕格式：

database 数据库名

screen
{
人员代码　[a　　 ]
人员姓名　[b　　　 ]
====================================
人员代码　　　人员姓名　　　工　 资
[f000　]　　 [f001　　]　　[f002　 ]
[f000　]　　 [f001　　]　　[f002　 ]
[f000　]　　 [f001　　]　　[f002　 ]
[f000　]　　 [f001　　]　　[f002　 ]
[f000　]　　 [f001　　]　　[f002　 ]
[f000　]　　 [f001　　]　　[f002　 ]
[f000　]　　 [f001　　]　　[f002　 ]
}
end
tables
gz
attributes
a=gz.xh,autonext;
b=gz.xm,autonext;
f000=formonly.xh type char;
f001=formonly.xm type char;
f002=formonly.gz type decimal(6,2);
end
instructions
screen record s_gz[7](formonly.xh,formonly.xm,formonly.gz)

gz库表结构：

序号：xh char(6)

姓名：xm char(8)

工资：gz decimal(7,2)