我在搜索窗口中,有一个EDIT窗口
要求输入年份时,查询整个年的东东!
就是输入1999时,将1999年的全部显示出来;
我数据库里面的日期形式为1999-5-1;我想的是实现下面的判断:edit7.text-1-1<edit4.text<edit.text+1-1-1;
但不知道怎么实现
或者我的想法就是错的;请指教
要求输入年份时,查询整个年的东东!
就是输入1999时,将1999年的全部显示出来;
我数据库里面的日期形式为1999-5-1;我想的是实现下面的判断:edit7.text-1-1<edit4.text<edit.text+1-1-1;
但不知道怎么实现
或者我的想法就是错的;请指教
解决方案 »
- 关于delphi下操作内存流(tmemorystream)
- delphi有没有只能输入数字的EDIT?
- delphi 开发的websevice java用wsdl2java说delphi的wsdl无效,怎么回事?
- idtcpserver接受数据不完整,各位大侠帮忙啊!
- 请问谁知道在delphi5.0下没有安装Excel,把dbgrid控件中的数据生成Excel文件。(求完整源代码)
- 很急!!希望大家帮帮忙!!
- 如何添加form
- 关于文件查找的一个小问题!
- 参数配置没错提示:too many actual parameters错误
- Pascal 中怎样让用户输入的字符变成*,就象输入密码一样?
- 程序崩溃救命
- FastReport如何设置用自定义纸型横打?
不好意思,
怎样才能实现那个条件语句呢,能不能写一下代码
and
<2000.1.1 0:0:0
where xxx between 'xxxx-1-1'and'xxxx+1-1-1'//????????????
:(
我就是不会这里,请帮我写一下代码让我参考一下好吗,谢谢了
:Date := Edit1.Text;
2:
Format()
不是我懒而是太苯,弄了半天还是一堆错误;
help
vstartdate, venddate :string;
begin
vstartdate := edit1.Text + '-1-1';
venddate := edit1.text + '-12-31';
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from table where date between :startdate and :enddate');
ParamByName('startdate').AsString := vstartdate;
ParamByName('enddate').AsString := vEndDate;
try
Open;
//其它处理
except
//异常处理部分
end;
end;
end;这样总行了吧? 简洁明了.
vEndDate := IntToStr(StrToInt(edit1.Text) + 1) + '-1-1';不好意思了,刚才没看仔细.
where substring(datatostr("tablename"."reName"),1,4='''+edit+'''
var sqlstr:string ;
startdate, enddate :string;
if (combobox1.Text='起始日期') or (combobox1.Text='验收日期') then
beginstartdate := edit1.Text + '-1-1';
enddate := edit1.text + '-12-31';
sqlstr:='select * from 123 where ';
sqlstr:=sqlstr + Trim(combobox1.text) ;
sqlstr:=sqlstr+' between :startdate and :enddate' ;
ParamByName('startdate').AsString := vstartdate;
ParamByName('enddate').AsString := vEndDate;
用的是Demonia(彷徨) 的方法,谢谢了if (Trim(combobox2.Text)='起始日期') or (Trim(combobox2.Text)='验收日期') then begin sqlstr:=sqlstr + Trim(combobox2.text) ;
sqlstr:=sqlstr+' between ' + QuotedStr(edit1.text+ '-1-1') + ' and ' + QuotedStr(edit1.text + '-12-31' );
end
else
begin
...
end;