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