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.
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.
Соседние файлы в папке Курсовая ( Мюнсберга и Когана )