详细些,或说明此类的文章也可以di
解决方案 »
- 高分求助,按以下需求用delphi写代码?
- fastReport4.3报表,有金额大小写转换的函数吗?
- ImageEnView1.SelColor2 := RGB(255, 0, 0);
- 请问各位大哥,为什么我的帐号每天才能加10分?我昨天帮人家回答问题人家都给了我30分了
- ? 用H1:=findwindow(nil,'某网页标题')后,如何遍历该网页窗口内的所有控件,然后对各控件发送消息? (gyhong )
- 怎样实现设计的报表在程序运行时按所选纸张预览和打印(用QuickRep)?
- 请问如何内存映射文件进行操作
- 我做好一個delphi+sql2000的程序,請問專家們怎樣設置從客戶端到服務器的連接?怎樣打包?分不夠再加.謝謝了..
- 大家好,我刚接触DELPHI,上来请教大家一个关于多线程问题。
- vb中的ocx控件为什么拿到Delphi中不能用了?
- DBGrid,如何控制其中的一列数据可以修改,其它的不可以修改??
- Delpi6 中可以不可像bcb中那样很方便快速地给类添加属性和方法啊?不会没有那功能吧?
var
sqlstr:string;
with adoquery1 do
begin
close;
sql.clare;
sqlstr:='select * from user';//初始化sql语句
//以下组合所选的条件,生成必要的sql语句
if sex<>'' then
begin
sqlstr:=sqlstr+' where '+sex;
if name<>'' then sqlstr:=sqlstr+' and '+name;
if province<>'' then sqlstr:=sqlstr+' and '+province;
end
else begin
if name<>'' then
begin
sqlstr:=sqlstr+' where '+name;
if provivce<>'' then sqlstr:=sqlstr+' and '+province;
end
else begin
if province<>'' then
begin
sqlstr:=sqlstr+' wheree '+province;
end
end
end;
//给sql付值
sql.text:=sqlstr;
open;
end