t);
var item:string;
begin
ITEM:=combobox1.ITEMS.strings[combobox1.ITEMINDEX];
if not (edit1.Text='') then
begin
if item='准考证号' then
begin
datamodule1.cdsstudent.filtered:=false;
datamodule1.cDSStudent.filter:=format('准考证号=%s',[edit1.text]);
datamodule1.cdsstudent.filtered:=true;
if datamodule1.CDSStudent.IsEmpty then
showmessage('数据库中没有符合条件的数据！');
end;
if item='姓名' then
begin
datamodule1.cdsstudent.filtered:=false;
datamodule1.cDSStudent.filter:=format('姓名=%s',[edit1.text]);
datamodule1.cdsstudent.filtered:=true;
if datamodule1.CDSStudent.IsEmpty then
showmessage('数据库中没有符合条件的数据！');
end;
if item='身份证号' then
begin
datamodule1.cdsstudent.filtered:=false;
datamodule1.cDSStudent.filter:=format('身份证号=%d',[strtoint(edit1.text)]);
datamodule1.cdsstudent.filtered:=true;
if datamodule1.CDSStudent.IsEmpty then
showmessage('数据库中没有符合条件的数据！');
end;
{if item='状态' then
begin
datamodule1.cDSStudent.filter:=format('状态=%s',[edit1.text]);
datamodule1.cdsstudent.filtered:=true;
if datamodule1.CDSStudent.IsEmpty then
showmessage('数据库中没有符合条件的数据！');
end; }
end
else
if item='' then
datamodule1.cdsstudent.filtered:=false
else
showmessage('请输入查询值！');
end;
procedure Tchengjifrm.RGselectClick(Sender: TObject);
begin
case rgselect.ItemIndex of
0:begin
rgid.Enabled:=true;
gbdate.Enabled:=false;
rgpass.Enabled:=false;
end;
1:begin
rgid.Enabled:=false;
gbdate.Enabled:=true;
rgpass.Enabled:=false;
end;
else
begin
rgid.Enabled:=false;
gbdate.Enabled:=false;
rgpass.Enabled:=true;
end;
end;
end;
procedure Tchengjifrm.Button2Click(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';
