评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+access网络考试系统[开题报告＋论文＋源代码(7)

2013-06-04 01:56 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';