adsMain.Active := false;
adsMain.CommandText := 'select * from server_main where if_settle = ''Y'' and finish_time >= #'
+FormatDateTime('yyyy-mm-dd',dtpStart.Date)+' '+formatdatetime('hh:mm',dtptStart.DateTime)+'# and finish_time <= #'
+FormatDateTime('yyyy-mm-dd',dtpEnd.Date)+' '+formatdatetime('hh:mm',dtptEnd.DateTime)+'# order by finish_time';
adsMain.Active := true;后来我把小时和分去掉就可以了,如下
adsMain.CommandText := 'select * from server_main where if_settle = ''Y'' and finish_time >= #'
+FormatDateTime('yyyy-mm-dd',dtpStart.Date)+'# and finish_time <= #'
+FormatDateTime('yyyy-mm-dd',dtpEnd.Date)+'# order by finish_time';
adsMain.CommandText := 'select * from server_main where if_settle = ''Y'' and finish_time >= #'
+FormatDateTime('yyyy-mm-dd',dtpStart.Date)+' '+formatdatetime('hh:mm',dtptStart.DateTime)+'# and finish_time <= #'
+FormatDateTime('yyyy-mm-dd',dtpEnd.Date)+' '+formatdatetime('hh:mm',dtptEnd.DateTime)+'# order by finish_time';
adsMain.Active := true;后来我把小时和分去掉就可以了,如下
adsMain.CommandText := 'select * from server_main where if_settle = ''Y'' and finish_time >= #'
+FormatDateTime('yyyy-mm-dd',dtpStart.Date)+'# and finish_time <= #'
+FormatDateTime('yyyy-mm-dd',dtpEnd.Date)+'# order by finish_time';
解决方案 »
- 两个日期相减,算出间隔几小时几分几秒
- 100分,在线等 DBGrideh下拉框如何设置.
- 请问一些关于ADOTable的数据刷新和删除的问题
- idUDP做点对点,穿透NAT问题
- :) 大家给出个主意吧,跟贴有分哦...... :)
- 安装delphi7出项的问题,请大家帮忙看看是什么原因?
- 大家好啊,小弟初学delphi,有个疑问,恳请大家给点提示
- 如何操作事务中的两个相互有关联的表?高手请进!!
- 这提问的地方太难找了,多亏斑竹大哥指点。这个网站的设计有点......,对不起!不要删我。憋了好久的问题,终于可以问了。
- 如何区分子窗体,并给子窗体赋值,高手请进。
- 斑竹,我的可用分怎么不增加了!
- 小弟的软件 发布 散点分~~~~~~~~~~
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from server_main where if_settle between :timebegin and :timeend');
Parameters.ParamByName('timebegin').Value := dtpStart.Date;
Parameters.ParamByName('timeend').Value := dtpEnd.Date;
Open;
end;
end;
Parameters.ParamByName('timebegin').Value := dtpStart.Date;
Parameters.ParamByName('timeend').Value := dtpEnd.Date;
formatdatetime('hh:mm',dtptStart.DateTime)
改成:
formatdatetime('hh:nn',dtptStart.DateTime)