2023年局域网图书资料查询系统.docx

局域网图书资料查询系统 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：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打印查询结果报表 存为默认显示项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： 更新打印 ------datawindowscontroldw_1对应数据窗口d_information图书信息检索 ------datawindowscontroldw_2对应数据窗口d_query_condition查询条件检索 commandbuttoncb_2模糊查询操作符英－中转换 表5－2查询模块控件信息表 控件：w_main事件（event）：openscriptofopen stringmode，p，xs，headbooleanxs_item[2023]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=1to8if mid（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 第4页 共4页