|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> adoqueryOpen; end; procedure TmainButtonClick(Sender: TObject); begin //查询机构信息 adoqueryClose; adoquerySQLClear; adoquerySQLAdd(select 内部编号单位编号单位名称拼音编码单位地址); adoquerySQLAdd(单位电话号码开户银行帐号开户全称 from 组织机构编码表); adoquerySQLAdd(where 单位名称 like %+editText+%); adoqueryOpen; end; 用户可以在dbgrid中直接修改机构的信息并可以在上面的文本框中输入要查询的机构信息查询相应的结果上面代码中用到的模糊查询功能我们在第章的实例中已经讲到过这里就不再重复叙述同时为了界面更加简洁美观应该为相应的字段指定宽度指定宽度可以在程序设计时通过双击dbgrid然后设置手工设置每个字段的宽度也可以在程序中来设置每一个字段的宽度这两种方法我们在进销存系统中都已经介绍过读者可以参考前面的代码至此就实现了机构信息管理功能程序的运行结果如图所示 http://developcsaicn/delphi/images/jpg> 图 机构信息管理功能 right>[http://developcsaicn/delphi/htm>] [] |
