delphi+access网络考试系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](七)

delphi+access网络考试系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](七) 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';

首页上一页 4 5 6 7 8 9 10 下一页尾页 7/11/11

delphi+access网络考试系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](七)由免费论文网（www.jaoyuw.com）会员上传。