{$R *.DFM}
end.
考试题目界面与代码设计
代码设计:
unit kaoshi2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Db, DBTables, Buttons, DBCtrls, Mask;
type
TKaoshi2Form = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
Timer1: TTimer;
Panel1: TPanel;
Panel2: TPanel;
GroupBox1: TGroupBox;
shijian: TLabel;
Label2: TLabel;
jiaojuanbt: TBitBtn;
Bianhao: TDBText;
Label1: TLabel;
Panel3: TPanel;
Panel4: TPanel;
Timu: TDBText;
Label5: TLabel;
Bevel1: TBevel;
Panel5: TPanel;
Panel6: TPanel;
Label4: TLabel;
DBNavigator1: TDBNavigator;
DBEdit1: TDBEdit;
Label3: TLabel;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
Panel7: TPanel;
DBImage1: TDBImage;
BatchMove1: TBatchMove;
jiaojuan: TButton;
Label6: TLabel;
Panel8: TPanel;
DBText5: TDBText;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure jiaojuanbtClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure jiaojuanClick(Sender: TObject);
procedure Label4DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Kaoshi2Form: TKaoshi2Form;
implementation
uses kaishi,kaoshi1,Jieguo;
{$R *.DFM}
procedure TKaoshi2Form.Timer1Timer(Sender: TObject);
begin
shijian.Caption:=intTostr(strToint(shijian.Caption)-1);
IF StrToInt(shijian.Caption)=0 then
begin
if MessageDlg('时间已到，考试结束，请点[确定]查看分数。',mtConfirmation, [mbOk], 0)
= mrOk then
begin
jiaojuan.OnClick(Sender);
end;
end;
end;
procedure TKaoshi2Form.FormCreate(Sender: TObject);
var ii,zongfen:byte;
begin
kaoshi2form.Caption:='第'+kaoshi1form.ComboBox1.Text+'组试题';
shijian.Caption:=kaoshi1form.shijian.Text;
ii:=1;
zongfen:=0;
Table1.DatabaseName:=kaishiform.AppPath;
Table1.TableName:='题库1.DB';
table1.EmptyTable;
Table1.Open;
kaoshi1form.Query1.Close;
kaoshi1form.Query1.Sql.Clear;
kaoshi1form.Query1.sql.Add('Select * from 题库.db where zu="'+kaoshi1form.ComboBox1.Text+'"');
kaoshi1form.Query1.Open;
batchMove1.Source:=kaoshi1form.Query1;
batchMove1.Destination:=Table1;
batchMove1.Execute;
table1.First;
While ii&l