delphi源代码+可执行文件+考试系统

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,
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

首页上一页 2 3 4 5 6 下一页尾页 5/6/6

delphi源代码+可执行文件+考试系统(五)