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