ACCESS日期精确查询函数

kuku2012

kuku2012

组别:封僵大吏
性别:
积分:136
帖子:76

2007-06-26 08:14 | 只看楼主 树型| 收藏| 小中大 1^#

ACCESS日期精确查询函数

///////////////////////////////////////////////////////////////////////
//
// 作者：付伟
//
// 日期： 2007-06-15
//
// TEL : 13655310832
//
///////////////////////////////////////////////////////////////////////
unit Func_Sql;

interface
uses
SysUtils,ComCtrls,Dialogs;
//下面的函数用来处理ACCESS日期类查询的精确查询问题
//如，时间范围在 09：59：59 时，10：00：00的记录不应该被选择.
//条件中的'预约时间'字段，是数据库内指定字段，应该在这里指定

// MoreThan 处理条件 ' >= A '的SQL
procedure MoreThan( m_date,m_time : TDateTimePicker ; const s_field : string ;var s_sql : string );
procedure LessThan( m_date,m_time : TDateTimePicker ; const s_field : string ;var s_sql : string );
implementation
procedure LessThan( m_date,m_time : TDateTimePicker ; const s_field : string ;var s_sql : string );
var
sqltxt : string;
pdate,ptime : PChar;
begin
// m_time.Format('yyyy-MM-dd hh:mm:ss')
GetMem( pdate , m_date.GetTextLen + 1 );
GetMem(ptime,m_time.GetTextLen + 1);
m_date.GetTextBuf( pdate , m_date.GetTextLen + 1 );
m_time.GetTextBuf( ptime , m_time.GetTextLen + 1 );
sqltxt := format('DatePart("yyyy",[%s]) <= DatePart("yyyy",''%s %s'')',[ s_field , pdate, ptime ]);
sqltxt := format('%s and DatePart("m",[%s]) <= DatePart("m",''%s %s'')',[ sqltxt, s_field , pdate, ptime ]);
sqltxt := format('%s and DatePart("d",[%s]) <= DatePart("d",''%s %s'')',[ sqltxt, s_field , pdate, ptime ]);
sqltxt := format('%s and DatePart("h",[%s]) <= DatePart("h",''%s %s'')',[ sqltxt, s_field , pdate, ptime ]);
sqltxt := format('%s and DatePart("n",[%s]) <= DatePart("n",''%s %s'')',[ sqltxt, s_field , pdate, ptime ]);
sqltxt := format('%s and DatePart("s",[%s]) <= DatePart("s",''%s %s'')',[ sqltxt, s_field , pdate, ptime ]);
s_sql := sqltxt;
FreeMem( pdate );
FreeMem( ptime );
end;

procedure MoreThan( m_date,m_time : TDateTimePicker ; const s_field : string ;var s_sql : string );
var
sqltxt : string;
pdate,ptime : PChar;
begin
// m_time.Format('yyyy-MM-dd hh:mm:ss')
GetMem( pdate , m_date.GetTextLen + 1 );
GetMem(ptime,m_time.GetTextLen + 1);
m_date.GetTextBuf( pdate , m_date.GetTextLen + 1 );
m_time.GetTextBuf( ptime , m_time.GetTextLen + 1 );
sqltxt := format('DatePart("yyyy",[%s]) >= DatePart("yyyy",''%s %s'')',[ s_field , pdate, ptime ]);
sqltxt := format('%s and DatePart("m",[%s]) >= DatePart("m",''%s %s'')',[ sqltxt, s_field , pdate, ptime ]);
sqltxt := format('%s and DatePart("d",[%s]) >= DatePart("d",''%s %s'')',[ sqltxt, s_field , pdate, ptime ]);
sqltxt := format('%s and DatePart("h",[%s]) >= DatePart("h",''%s %s'')',[ sqltxt, s_field , pdate, ptime ]);
sqltxt := format('%s and DatePart("n",[%s]) >= DatePart("n",''%s %s'')',[ sqltxt, s_field , pdate, ptime ]);
sqltxt := format('%s and DatePart("s",[%s]) >= DatePart("s",''%s %s'')',[ sqltxt, s_field , pdate, ptime ]);
s_sql := sqltxt;
FreeMem( pdate );
FreeMem( ptime );
end;

end.

TOP

<<上一主题|下一主题>>

1/1页1 跳转到页