|

楼主 |
发表于 2009-2-19 11:06:43
|
显示全部楼层
查询
设计一个界面,选择一个时间段和组织后点find查找信息集里的数据,并把数据列在下面的ricedit1里,已放了一个InfoBroker1和DataSetBroker1联到了一个信息上,在dind的procedure TMainForm.BitBtn1Click(Sender: TObject); 如何完善下面代码
procedure TMainForm.BitBtn1Click(Sender: TObject);
var
DateTemp : TDate;
begin
DateTemp:= DateTimePicker1.Date;
with DataSetBroker1.DataSet do
begin
if Active then active:=false;
Filter:='FCREATETIME='''+SysUtils.DateToStr(DateTemp)+'''';
Filtered:=True;
Active:=true;
end
end;
|
|