|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> // //职员信息管理功能的实现 //职员信息查询 procedure TmainButtonClick(Sender: TObject); begin //这里是从两个表中查询数据请注意其中逻辑运算符的使用方法和通配符的使用 adoqueryClose; adoquerySQLClear; adoquerySQLAdd(select a姓名a性别a出生日期a籍贯a民族b单位名称 a办公电话a婚姻状况a文化程度 from 职员基本信息表 a组织机构编码表 b); adoquerysqladd(where (a单位编号=b单位编号)and((姓名 like %+edittext+%)and); adoquerySQLAdd((姓名简码 like %+editText+%)and); adoquerySQLAdd((籍贯 like %+editText+%)and); adoquerySQLAdd((民族 like %+comboboxText+)and); adoquerySQLAdd((性别 like %+comboboxText+))); adoqueryOpen end; //窗体显示时将表中所有数据显示出来 procedure TmainTabSheetShow(Sender: TObject); begin buttonClick; end; 至此我们完成了职员信息查询的功能运行结果如图所示在查询条件框中输入查询条件单击【查询】按钮可以查询出我们所要的结果 http://developcsaicn/delphi/images/jpg> 图 职员信息查询功能 right>[http://developcsaicn/delphi/htm>] [] |
