其实用table的filter,应该是很方便的。
自己看书吧。应该有很多例子的,好象是3月份的电脑编程技巧与维护上的一篇文章介绍的很详细的,可以找来看看。
自己看书吧。应该有很多例子的,好象是3月份的电脑编程技巧与维护上的一篇文章介绍的很详细的,可以找来看看。
解决方案 »
- 怪事~~~
- idhttp上传功能,请那个给点提示
- 我写了个能压缩解压缩字符串的动态链接库,大家帮我看看输入输出参数怎么写才对呢,我一直没有办法解压缩
- 推荐一个控件包,帮你快速制作报表
- 有关将ADOConnection 传至DLL里的窗体里的问题
- 如何在PARADOX 表建立key
- 学习用delphi写com程序看什么书好?
- 请教DELPHI+ACCESS的专家
- 如何绘制股票软件中的苷氏线,以及效果!
- 送分 --> http://www.xlkjsoft.com/winofficer.zip [软件交流,有源码,请各位多多指教!]
- 我有一个窗体里有几个edit,我想让用户进行输入法选择后,每次窗体打开后,那几个edit的输入法是以前用户选择的,怎么办啊?
- 关于图像的缩放
SELECT * FROM TABLE1 WHERE (name LIKE 'a1%');
begin
close;
sql.Clear;
sql.add('select * from m111 where name like '''+edit1.Text+'''');
Open;
end;
你只用设置edit1.text就可改了。
看上去象是指的列。如果是列的话,就可以用Tfield的visible属性来控制就行了。
以下的语句经调试通过
procedure TForm1.button1Click(Sender: TObject);
var i:integer;
find:boolean;
begin
find:=false;
for i:=0 to query1.FieldCount-1 do
if not (query1.Fields[i].FieldName=edit1.Text) then
query1.Fields[i].visible:=false
else
begin
find:=true;
query1.Fields[i].visible:=true;
end;
if not find then
for i:=0 to query1.FieldCount-1 do
if query1.Fields[i].FieldName[1]=edit1.Text then
query1.fields[i].Visible:=true;
end;
不过要注意大小写,这里必须大小写一样才行,你想忽略大小写的话,自己处理一下就行了。