Курсовая ( Мюнсберга и Когана ) / Result1

unit Result1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB,
  Data.Win.ADODB, Vcl.ExtCtrls;

type
  TFResult1 = class(TForm)
    BBExit: TBitBtn;
    Label1: TLabel;
    LResult: TLabel;
    MRes: TMemo;
    ADOQParamRes: TADOQuery;
    Label2: TLabel;
    LVrema: TLabel;
    PTop: TPanel;
    Memo1: TMemo;
    procedure FormActivate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FResult1: TFResult1;


implementation
Uses
  Variable, filippse_half, main;
{$R *.dfm}

procedure TFResult1.FormActivate(Sender: TObject);
begin
if testid=1 then
 begin
 LREsult.Caption:=inttostr(Result);
 Memo1.Visible:=false;
 MRes.Visible:=true;
 //PTop.Caption:='Результат теста Когана';
 end;   // вывод значения результата
 with ADOQParamRes do
 begin
   ADOQParamRes.SQL.Clear;
    ADOQParamRes.SQL.Add('SELECT * FROM ParamResult WHERE Parametr = '+QuotedStr('Ваш балл:'));
    ADOQParamRes.Active := True;
    Label1.Caption := ADOQParamRes.FieldByName('Parametr').AsString;
    lVrema.Caption:=TimeToStr(TAll);

 end;
 LResult.Caption := intToStr(Res);
 if testid =2 then
 begin
 LREsult.Caption:=inttostr(Result);
 MRes.Visible:=false;
 Memo1.Visible:=true;
 PTop.Caption:='Результат теста Когана';
 end;   // вывод значения результата
 with ADOQParamRes do
 begin
   ADOQParamRes.SQL.Clear;
    ADOQParamRes.SQL.Add('SELECT * FROM ParamResult WHERE Parametr = '+QuotedStr('Ваш балл:'));
    ADOQParamRes.Active := True;
    Label1.Caption := ADOQParamRes.FieldByName('Parametr').AsString;
    lVrema.Caption:=TimeToStr(TAll);

 end;
  SetBounds( Left - ClientOrigin.X, Top - ClientOrigin.Y, GetDeviceCaps(
  Canvas.handle, HORZRES ) + (Width - ClientWidth), GetDeviceCaps( Canvas.handle,VERTRES )
  + (Height - ClientHeight ));
  BBExit.Left := 2 * (FResult1.Width div 4) - (BBExit.Width div 2);
   BBExit.Top :=  FREsult1.Height - ((FResult1.Height div 5) - (BBExit.Height div 2));
  MRes.Left := 2 * (FResult1.Width div 4) - (MRes.Width div 2);
  MRes.Top := BBExit.Top - (MRes.Height)-100;
  Label1.Left:=Mres.Left;
  Label2.Left:=MRes.Left;
  LResult.Left:= Label1.Left+114+20;
  LVrema.Left:= Label2.Left+301+20;
  Label1.Top:=Label1.Top+50;
  LResult.Top:=LResult.Top+50;
  Label2.Top := Label2.Top+50;
  LVrema.Top:=LVrema.Top+50;


end;


end.