edit1.text
edit2.text
.......
checkbox1.checked
checkbox2.checked
......
edit2.text
.......
checkbox1.checked
checkbox2.checked
......
解决方案 »
- midas问题
- 报内存错误...
- Delphi中如何通过封装flash控件使背景透明和实现使用流播放(搞定就给分)
- 简单问题,如何在edit中判断小键盘的按键?在线给分。
- 如何让一个表中字段有计算关系,如实发=已发+未发,用的是Ado
- 請問怎樣使在dbgrid中輸入的文字都是大寫字體?
- 提问:请问那里有delphi中文的库函数手册 ????? 我用西文的把我弄C了。
- 如何处理屏幕抓取后,并发送到另一机上屏幕平滑显示的问题。
- 多媒体文件应该怎样保存到数据库里,并从数据中读取播放?
- 请教,image 上toolbutton的问题
- 有分割BMP的控件或原代码吗?500分
- 请指教:如何在dbGrid控件中gaibian
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(' Select * From Table1 Where Field1='+#39+Edit1.Text+#39)
Open;
end;
var
tmp:string;
begin
checkstring:='';
if edit1.Text<>'' then
begin
tmp:='题目='+''''+edit1.Text+'''';
checkstring:=checkstring+tmp;
tmp:='';
end;
if edit2.Text<>'' then
begin
tmp:='作者='+''''+edit2.Text+'''';
checkstring:=checkstring+tmp;
tmp:=''
end;
if edit3.Text<>'' then checkstring:=edit3.Text;
if checkbox1.Checked then
begin
tmp:='and typeface=''''板块一''''';
checkstring:=checkstring+tmp;
tmp:=''
end;
if checkbox2.Checked then
begin
tmp:='and typeface=''''板块二''''';
checkstring:=checkstring+tmp;
tmp:=''
end;
if checkbox3.Checked then
begin
tmp:='and typeface=''''板块三''''';
checkstring:=checkstring+tmp;
tmp:=''
end;
...............
adoquery.sql.tstring:=checkstring;
http://www.csdn.net/expert/topic/350/350072.shtm
应该先是是:checkstring:='select * from db1 where '
对memo里的字符串可以模糊查询吗?
模糊查询就是xxx也可以啊.