局域网图书资料查询系统

更新打印
------ Datawindows control dw_1 对应数据窗口d_information图书信息检索
------ Datawindows control dw_2 对应数据窗口d_query_condition查询条件检索
 Command button Cb_2 模糊查询操作符英－中转换
表5－2　查询模块控件信息表
控件：w_main　　　事件（event）：open　　Script of open
string mode,p,xs,headboolean xs_item[10]integer idw_1.settransobject(sqlca)dw_1.

Retrieve()//打开窗口显示全部记录sj_check=0//为检索窗口排序变量赋初值st_1.text=user//

在查询窗口右上角显示当前用户名SELECT "keeper"."display_item",           "keeper"."

head_picture"  INTO :xs,        :head  FROM "keeper"  WHERE "keeper"."name" = :user;

//从用户表中读出当前用户的头像值及显示像值并分别赋值给变量 file://有头像的用户则显示

在查询窗口右上角if isnull(head) thenp_3.visible=false   else   p_3.picturename=

headend if ////将当前用户查询显示项变量读出并赋值给每个查询显示控件for i=1 to 8 if

Mid (xs, i, 1)='0' then  xs_item[i]=false else  xs_item[i]=true end ifend for////给每

个对应的CHECKBOX赋值，确实是勾还是叉cbx_2.checked = xs_item[1]cbx_3.checked =

xs_item[2]cbx_4.checked = xs_item[3]cbx_5.checked = xs_item[4]cbx_6.che