在线等待,马上解决马上给分,很基础的!(代码) 1、 取得时间函数,只需要小时和分,插入数据库 2、 两个时间段查询,对查询结果进行打印阅览。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1、formatdatetime('hhmm',now);2、要自己做报表,将报表数据源设置为连接查询的datasoure,然后Preview 1.procedure TForm1.Button1Click(Sender: TObject);var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Present:= Now; DecodeDate(Present, Year, Month, Day); Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month ' + IntToStr(Month) + ' of Year ' + IntToStr(Year); DecodeTime(Present, Hour, Min, Sec, MSec); Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour ' + IntToStr(Hour);end;2.C:\Program Files\Borland\Delphi5\Demos\Quickrpt datetimepicker1.kind := ```time;datetimepicker1.format := 'hh:mm';adoquery1.fieldbyname['field_name'] := datetimepicker1.time;'select * from table_name where 字段名 >= ''' + datetimetostr(datetimepicker1.time);呵呵,大概就这些要看你的需要了 Delphi中StringGrid控件问题请教,求指导! 线程在执行时,调用Free是什么情况? ◆有谁能解决,fastreport套打问题◆ delphi(其他语言也可)如何通过USB端口向针式打印机发送命令 Delphi如何实现套打功能? 動態生成TTabSheet 放在Page_Contorl後如何刪除它 DBGrid怎么赋值 怎样检测键盘上的PageDown 和 PageUp 键 delphi编程 難道是這樣的嗎? vb写的控件(ocx)在delphi调用的问题 override和reintroduce有什么区别,能举出例子吗?
2、要自己做报表,将报表数据源设置为连接查询的datasoure,然后Preview
procedure TForm1.Button1Click(Sender: TObject);var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);
end;
2.C:\Program Files\Borland\Delphi5\Demos\Quickrpt
datetimepicker1.format := 'hh:mm';
adoquery1.fieldbyname['field_name'] := datetimepicker1.time;'select * from table_name where 字段名 >= ''' + datetimetostr(datetimepicker1.time);呵呵,大概就这些
要看你的需要了