局域网图书资料查询系统

格select passwd into :passwdfrom keeperwhere name=:sle_1.text;passwd=RightTrim(

passwd);//从用户表中校验口令的正确性if sqlca.sqlcode=0 then   if input_passwd <>

passwd then    messagebox('口令错误','对不起，请重新输入',stopsign!);    sle_2.

SelectText(1, Len(sle_2.Text))      this.Clear()//口令错误则清除输入内容    setfocus

(sle_2)   elseif input_passwd=passwd then   user=righttrim(sle_1.text)   select droit

into :droit      from keeper  

     open(main)//打开程序主窗口      close(w_login)//关闭登录窗口   end ifelseif

sqlca.sqlcode=100 then messagebox('提示!','无数据',Stopsign!) return 1else

messagebox("错误!",& "error:"+string(sqlca.sqldbcode)& +"information:"+sqlca.

sqlerrtext) file://SQL出错提示end if
在登录模块中，用户可输入自己的编号或编码来登录系统。系统会根据用户输入的编号或编码值

来自动给出确实已存在库中的用户中文名，若查找不到库中相匹配的记录则提示出错或重输。若

用户存在，则提示输入口令，口令正确则会顺利进入该系统主界面。
 
 
§5.3  查询模块的实现
 
图5－3　查询窗口
　　
该窗口（w_main）控件列表如下：
 风  格 控件名 说  明
显示项 Group Box gb_1    ------
资料名称 Check Box cbx_1 Checked:true
作者 Check Box cbx_2 Checked:true
出版社 Check Box cbx_3 Checked:true
出版日期 Check Box cbx_4 Checked:false
类别 Check Box cbx_5 Checked:true
购买日期 Check Box cbx_6 Checked:false
ISBN Check Box cbx_7 Checked:false
保管人 Check Box cbx_8 Checked:true
备注 Check Box cbx_9 Checked:false
全选 Check Box cbx_10 选择全部显示项
检索 Picture Box pb_1 模糊查询检索
插入 Picture Box pb_2 插入一条记录
删除 Picture Box pb_3 删除一条记录
检索 Picture Box pb_4 组合查询检索
全部记录 Picture Box pb_5 检索全部记录
退出 Picture Box pb_6 退出查询界面
修改 Picture Box pb_7 进入编辑模式
插入 Picture Box pb_8 插入一条查询条件
删除 Picture Box pb_9 删除一条查询条件
存盘 Picture Box pb_10 修改后的数据存盘
打印 Picture Box pb_11 打印查询结果报表
存为默认显示项 Picture Box pb_12 将显示项存为当前用户默认
------ Single line edit sle_1 查询内容输入（字符型）
------ Edit mask em_1 查询内容输入（日期型）
------ Static text st_1 显示当前用户名
------ Picture P_1 修改按钮装饰
------ Picture P_2 Gb_1显示装饰
------ Picture P_3 显示当前用户头像
------ Drop down list box ddlb_1 查询项选择