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

{$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

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

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