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