combobox.items.add('1998年以前');
combobox.items.add('1998-1999年');
...
combobox.items.add('2003年以后');sql的写法:(大致的意思,你自己根据具体情况改吧)
if combobox.text='1998年以前' then
select fieldname(s) from tablename where ... and yearfield<1998
if combobox.text='1998-1999年' then
select fieldname(s) from tablename where ... and yearfield is between (1998 and 1999)...
combobox.items.add('1998-1999年');
...
combobox.items.add('2003年以后');sql的写法:(大致的意思,你自己根据具体情况改吧)
if combobox.text='1998年以前' then
select fieldname(s) from tablename where ... and yearfield<1998
if combobox.text='1998-1999年' then
select fieldname(s) from tablename where ... and yearfield is between (1998 and 1999)...
解决方案 »
- 如何去掉快捷方式的热键?急!!!解决后立即结贴~~
- 高分,求源码! 怎样从FTP服务器上拷文件到本地上,
- 关于delphi中对象的疑惑
- 高分请教interbase如何修复数据库文件,急!!!!!!!!!!!
- 问各位大虾一个问题?
- 有关消息处理的问题,为甚么我的一个程序将其做成托盘程序后就不能响应自定义的消息了?
- 使用Delphi 7中IDHttp组件,get时返回415 unsupport media type
- Excel报表控件
- 帮忙看一下这段程序,指针那个地方用错了
- 请问你的 AdvMDIOfficeTabSet 控件是怎样用的?? 可以给我一个例子?
- 我在DELPHI5。C中安装新的控件提示“could not create output file”哪位大侠知道原因
- 如何在delphi5打开delph6的程序?
sql.clear;
query1.sql.add (' select * from "sjk.db" where 1>0');
if edit1.text<>'' then
query1.sql.add ('AND xmmc ="' + Edit1.text+'"');
if edit2.text<>'' then
query1.sql.add ('AND fzr ="' + Edit2.text+'"');
if combobox1.text<>'' then if combobox1.text='1998年以前' then
query1.SQL.add('and sj<"' + strtodate('1998-1-1')+'"'); .......
prepare;
open;