M
mygis
Unregistered / Unconfirmed
GUEST, unregistred user!
[blue][/blue]
with ADOQuery1 do begin
close;
with SQL do begin
Clear;
Add('select tai,neirong from mytable where week=:weekday and ftime < :wtime');
end; //with SQL do begin
Parameters.ParamByName('week').Value := 'monday';
decodetime(NowTime,hour,min,sec,msec);
strmy:='#'+IntToStr(hour)+':'+IntToStr(min)+'#';
showmessage(strmy);
Parameters.ParamByName('wtime').Value := strmy;
Open;
end; //with ADOQuery1 do
with ADOQuery1 do begin
close;
with SQL do begin
Clear;
Add('select tai,neirong from mytable where week=:weekday and ftime < :wtime');
end; //with SQL do begin
Parameters.ParamByName('week').Value := 'monday';
decodetime(NowTime,hour,min,sec,msec);
strmy:='#'+IntToStr(hour)+':'+IntToStr(min)+'#';
showmessage(strmy);
Parameters.ParamByName('wtime').Value := strmy;
Open;
end; //with ADOQuery1 do