局域网图书资料查询系统bsp;格控件名说明显示项groupboxgb_1------资料名称checkboxcbx_1checked:true作者checkboxcbx_2checked:true出版社checkboxcbx_3checked:true出版日期checkboxcbx_4checked:false类别checkboxcbx_5checked:true购买日期checkboxcbx_6checked:falseisbncheckboxcbx_7checked:false保管人checkboxcbx_8checked:true备注checkboxcbx_9checked:false全选checkboxcbx_10选择全部显示项检索pictureboxpb_1模糊查询检索插入pictureboxpb_2插入一条记录删除pictureboxpb_3删除一条记录检索pictureboxpb_4组合查询检索全部记录pictureboxpb_5检索全部记录退出pictureboxpb_6退出查询界面修改pictureboxpb_7进入编辑模式插入pictureboxpb_8插入一条查询条件删除pictureboxpb_9删除一条查询条件存盘pictureboxpb_10修改后的数据存盘打印pictureboxpb_11打印查询结果报表存为默认显示项pictureboxpb_12将显示项存为当前用户默认------singlelineeditsle_1查询内容输入(字符型)------editmaskem_1查询内容输入(日期型)------statictextst_1显示当前用户名------picturep_1修改按钮装饰------picturep_2gb_1显示装饰------picturep_3显示当前用户头像第1页共2页------dropdownlistboxddlb_1查询项选择------dropdownlistboxddlb_2查询操作符选择------tabcontroltab_1共有三个tabpage頁tabpage1:模糊查询tabpage2:组合查询tabpage3:更新打印------datawindowscontroldw_1对应数据窗口d_information图书信息检索------datawindowscontroldw_2对应数据窗口d_query_condition查询条件检索commandbuttoncb_2模糊查询操作符英-中转换表5-2查询模块控件信息表控件:w_main事件(event):openscriptofopenstringmode,p,xs,headbooleanxs_item[10]integeridw_1.settransobject(sqlca)dw_1.retrieve//打开窗口显示全部记录sj_check=0//为检索窗口排序变量赋初值st_1.text=user//在查询窗口右上角显示当前用户名select"keeper"."display_item","keeper"."head_picture"into:xs,:headfrom"keeper"where"keeper"."name"=:user;//从用户表中读出当前用户的头像值及显示像值并分别赋值给变量file://有头像的用户则显示在查询窗口右上角ifisnull(head)thenp_3.visible=falseelsep_3.picturename=headendif////将当前用户查询显示项变量读出并赋值给每个查询显示控件fori=1to8ifmid(xs,i,1)='0'thenxs_item[i]=falseelsexs_item[i]=trueendifendfor////给每xs_item[2]cbx_4.checked=xs_item[3]cbx_5.checked=xs_item[4]cbx_6.che第2页共2页