; datamodule1.cDSStudent.Filtered:=TRUE;
end
else
begin
datamodule1.CDSStudent.Filter:='得分<=60';
datamodule1.cDSStudent.Filtered:=TRUE;
end;
reportfrm.QuickRep1.Preview;
end;
procedure Tchengjifrm.Button3Click(Sender: TObject);
begin
datamodule1.CDSStudent.Filtered:=false;
if rgselect.Enabled=true then
if rgselect.ItemIndex=1 then
begin
datamodule1.CDSStudent.Filter:=format('准考证号>=''%s'' AND 准考证号<=''%S''',[edit2.text,edit3.text]);
datamodule1.cDSStudent.Filtered:=TRUE;
end;
if gbdate.Enabled=true then
begin
datamodule1.CDSStudent.Filter:=format('考试日期=''%s''',[datetostr(datepick.Date)]);
datamodule1.cDSStudent.Filtered:=TRUE;
end;
if rgpass.Enabled=true then
if rgpass.ItemIndex=0 then
begin
datamodule1.CDSStudent.Filter:='得分>=60';
datamodule1.cDSStudent.Filtered:=TRUE;
end
else
begin
datamodule1.CDSStudent.Filter:='得分<=60';
datamodule1.cDSStudent.Filtered:=TRUE;
end;
reportfrm.QuickRep1.Print;
end;
procedure Tchengjifrm.FormShow(Sender: TObject);
begin
datamodule1.CDSStudent.Filtered:=false;
end;
procedure Tchengjifrm.FormActivate(Sender: TObject);
begin
datamodule1.CDSStudent.Filtered:=false;
end;
