fscr.pas

delphi 汽车考试源码

unit fscr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TF_scr = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_scr: TF_scr;

implementation
  uses fdata;
{$R *.dfm}

procedure TF_scr.FormShow(Sender: TObject);
var
  cox,cop:integer;
begin
  cox:=0;
  cop:=0;
  with datamodule3.parse.DataSet do
  begin
    Panel2.Caption:='总题数：'+inttostr(strtoint(trim(Fields[4].AsString))+strtoint(trim(fields[5].asstring)))+'              总分：'+inttostr((strtoint(trim(Fields[4].AsString))+strtoint(trim(fields[5].asstring)))*strtoint(trim(fields[3].asstring)));
  end;
  with datamodule3 do
  begin
    xkaose.DataSet.First;
    pkaose.DataSet.First;
    while not xkaoqy.Eof do
    begin
      if trim(xkaose.DataSet.Fields[7].AsString)=trim(xkaose.DataSet.Fields[9].AsString) then
        cox:=cox+1;
      xkaoqy.Next;
    end;
    while not pkaoqy.Eof do
    begin
      if trim(pkaose.DataSet.Fields[3].AsString)=trim(pkaose.DataSet.Fields[5].AsString) then
        cop:=cop+1;
      pkaoqy.Next;
    end;
  end;
  panel3.Caption:='您的成绩：'+inttostr((cop+cox)*strtoint(trim(datamodule3.parse.DataSet.Fields[3].asstring)))+'分';
  if (cop+cox)*strtoint(trim(datamodule3.parse.DataSet.Fields[3].asstring))>=((strtoint(trim(datamodule3.parse.DataSet.Fields[4].AsString))+strtoint(trim(datamodule3.parse.DataSet.Fields[5].AsString)))*strtoint(trim(datamodule3.parse.DataSet.Fields[3].asstring))*0.6) then
  begin
    if (cop+cox)>0 then
      panel4.Caption:='恭喜！您及格了。';
  end
  else
    panel4.Caption:='努努力吧！';
end;

end.