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

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

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

end.

主界面与代码设计

代码设计:
unit Unmain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, Menus, ExtCtrls, ImgList, ActnList, DBCtrls,
DB, StdCtrls,Jpeg, Mask, Buttons, Grids, DBGrids, ExtDlgs, StdActns;

type
TMainFrm = class(TForm)
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N3: TMenuItem;
    N14: TMenuItem;
    N9: TMenuItem;
    ToolButton8: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton9: TToolButton;
    Timer1: TTimer;
    ImageList1: TImageList;
    ActionList1: TActionList;
    N16: TMenuItem;
  &nb

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

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