小弟作一个万能查询,当我的鼠标在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;
解决方案 »
- 关于动态创建flash控件的问题,无法保存图片
- 请大家推荐,常用的DELPHI(免费,无版权问题)的常用控件.....谢谢....
- 关于日期时间函数的奇怪问题!
- form保存后说没定义。。。这是为什么~~在线等
- 怎样拖动一个Panel1到PANEL2里去,到PANEL2里后就把PANEL1的parent设成PANEL2,并在PANEL2靠左对齐。
- 在DBGridEh组件使升降排序标志符(▽降序△升序)为黑色
- 一个线程问题
- pascal语言在那里学习 网站或者视频
- char 数组转化成string时候得奇怪问题
- 请问有谁知道ThemeEngine 3.1.5(实现XP效果的控件)在DELPHI7下怎么安装?
- excel中怎样复制工作簿?
- delphi是否和winxp pack2有冲突?????????????????????
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;