query1.ParamByName('qsrq').value:='''' + strtodate(edit1.text) + '''';
解决方案 »
- 灾难性错误!
- 查询ACCESS数据库,三表联结的问题?(请教SQL高手)
- 如何判断一个TEdit控件里用户输入的内容是一个实数型数据,而不是ascii字符或者一些汉字
- 求教fastreport的问题
- 如此菜的问题,高手就不要回答了.
- 请问大虾,怎样在memo1中显示图片。在线求救!!!!!
- 前几天的源码太少,整个的今天终于传上来了。进来者即有分!
- 关于自定义类的问题--〉〉有经验的请进!!
- [Error] dept1.pas(148): Undeclared identifier: 'TBlobField'这种错误,是何原因?
- 前辈,请帮忙
- 今天三喜临门,散分。
- Invalid Variant Operation的错误?
query1.close;
query1.sql.clear;
query1.sql.add('select Jname as 局名,Xinghao as 型号,Guige as 规格,Biaohao as 表号,Riqi as 日期,Shijian as 时间,Users as 操作员');
query1.sql.add(' from smzk where 1=1');
if edit1.text<>'' then
begin
query1.sql.add(' and convert(char(10),riqi,120)>= '+''''+strtodate(edit1.text+'''');
query1.sql.add(' order by Biaohao');
query1.sql.add('');
query1.open;
end;
query1.sql.clear;
query1.sql.add('select Jname as 局名,Xinghao as 型号,Guige as 规格,Biaohao as 表号,Riqi as 日期,Shijian as 时间,Users as 操作员');
query1.sql.add(' from smzk where 1=1');
if edit1.text<>'' then
begin
query1.sql.add(' and convert(char(10),riqi,120)>= '''+edit1.text+''');
query1.sql.add(' order by Biaohao');
query1.sql.add('');
query1.open;
end;
改
query1.ParamByName('qsrq').asdatetime:=strtodate(edit1.text);
为
Query1.ParamByname('Qsrq').asString:=Edit1.Text;