小弟作一个万能查询,当我的鼠标在DBGRID某一列时,按一下查询,输入该列的某一行内容,就能查询该笔记录的内容。
var
  InputString: string;
begin
  InputString:= InputBox('请输入要查找的PONO号!!!!!', ' PONO !!!! ', '');
   if M_didan.Locate('PONO',inputString,[]) then
 
注PONO根据鼠标在DBGRID某一列时自动获得 end;

解决方案 »

  1.   

    在《Delphi精要》这本书中有例子(已经做成组件嵌入到作者的DBGrid组件中)有源码
      

  2.   

    procedure TForm1.DBGrid1TitleClick(Column: TColumn);
    var str,str1:string;
        i:integer;
    begin
        str:=InputBox('请输入要查找的字段的内容!', '提示', '');
        i:=column.Index;
        str1:='select * from t_aa where '+dbgrid1.Columns[i].FieldName+'='+''''+str+'''';
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(str1);
        adoquery1.Open;
    end;