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

delphi源代码+可执行文件+考试系统(一)毕业(5)

2013-06-09 01:07 t;=Table1.RecordCount do
 begin
 zongfen:=zongfen+table1.fieldbyname('fenshu').Asinteger;
 Table1.Edit;
 Table1.FieldByName('DaTi').AsString:='';
 ii:=ii+1;
 Table1.RecNo:=ii;
 end;
 kaishiform.jigefenshu:=Zongfen*0.6;
 label6.Caption:='本套题共'+inttostr(zongfen)+'分，'+'及格分数为'+floattostr(kaishiform.jigefenshu)+'分。';
Table1.First;
end;

procedure TKaoshi2Form.jiaojuanbtClick(Sender: TObject);
begin
 if MessageDlg('交卷后不能再答题，真的要交卷吗?',mtConfirmation, [mbYes, mbNo], 0)
   = mrYes then
   begin
   jiaojuan.OnClick(Sender);
   end

end;

procedure TKaoshi2Form.FormShow(Sender: TObject);
begin
DBEdit1.SetFocus;
end;

procedure TKaoshi2Form.jiaojuanClick(Sender: TObject);
var i:byte;
begin
i:=1;
   Table1.First;
   while i<=Table1.RecordCount do
    begin
    if (ansicomparetext(trim(Table1.FieldByName('DaAn').AsString),
       trim(Table1.FieldByName('DaTi').AsString))=0) then  //比较
     kaishiform.FenShu:=kaishiform.FenShu+Table1.FieldByName('fenshu').AsInteger;//计算分数
     i:=i+1;
     Table1.RecNo:=i;
    end;
   Application.CreateForm(TJieguoForm, JieguoForm);
   JieGuoForm.show;
   kaoshi2form.Release;

end;

procedure TKaoshi2Form.Label4DblClick(Sender: TObject);
begin
dbtext5.Visible:=not dbtext5.Visible;
end;

end.

考试系统主界面设计与代码设计

代码设计:
unit KaiShi;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, （科教范文网http://fw.NSEAC.com编辑发布）
  Menus, ToolWin, ComCtrls, StdCtrls;

type
  TKaiShiForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    ToolBar1: TToolBar;
    N4: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    AppPath,RenMing:string;
    FenShu:Byte;
    jigefenshu:double;
    { Public declarations }
  end;

var
  KaiShiForm: TKaiShiForm;

implementation
 uses defen,Guanyu;
{$R *.DFM}

procedure TKaiShiForm.N3Click(Sender: TObject);
begin
 //Action:=caFree;
 if MessageDlg('真的要退出吗?',mtConfirmation, [mbYes, mbNo], 0)
      = mrYes then
    Close;
end;

procedure TKaiShiForm.FormCreate(Sender: TObject);
begin
AppPath:=ExtractFileDir(Application.ExeName);
FenShu:=0;//开始分数为0分
end;

procedure TKaiShiForm.N4Click(Sender: TObject);
begin
if FileExists(AppPath+'\df.sav') then
   begin
   Application.CreateForm(TDefenForm, DefenForm);
   DefenF