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

unit Main;

interface

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

type
TFMain = class(TForm)
BBIns: TBitBtn;
BBTest: TBitBtn;
BBExit: TBitBtn;
IPsi: TImage;
LName: TLabel;
ICub: TImage;
LProgr: TLabel;
LNameProgr: TLabel;
BBRes: TBitBtn;
BHi: TBevel;
BLo: TBevel;
ADOQTest: TADOQuery;
LPsyholog: TLabel;
LNamePsyholog: TLabel;
procedure BBInsClick(Sender: TObject);
procedure BBTestClick(Sender: TObject);
procedure BBResClick(Sender: TObject);
procedure BBExitClick(Sender: TObject);
procedure FormActivate(Sender: TObject);

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

var
FMain: TFMain;


implementation

uses Ins, Result1, Variable, Filippse_Half, Kogan;

{$R *.dfm}

procedure TFMain.BBInsClick(Sender: TObject);
begin
// вывести инструкцию
FIns.ShowModal;

end;

procedure TFMain.BBTestClick(Sender: TObject);
begin
// провести тестирование
if TestId=1 then
begin
with FTest do
begin
TimerAll.Enabled := true;
ShowModal;
TimerAll.Enabled := false;
end;
end;
if testid=2 then
begin
FTestKog.ShowModal;
end;

end;



procedure TFMain.BBResClick(Sender: TObject);
begin
// вывести результаты тестирования
FResult1.ShowModal;
end;

procedure TFMain.FormActivate(Sender: TObject);
begin
if TestId=1 then
begin
with ADOQTest do
begin
SQL.Clear;
SQL.Add('SELECT * FROM Test WHERE Code=''2020200''');
Active := TRUE;
LName.Caption := FieldByName('NameTest').AsString;
LNameProgr.Caption := FieldByName('Developer').AsString;
LNamePsyholog.Caption := FieldByName('Psycologist').AsString;
ID_Test := StrToInt(FieldByName('ID_Test').AsString);

end;
end;
if TestId=2 then
begin
with ADOQTest do
begin
SQL.Clear;
SQL.Add('SELECT * FROM Test WHERE Code=''2030300''');
Active := TRUE;
LName.Caption := FieldByName('NameTest').AsString;
LNameProgr.Caption := FieldByName('Developer').AsString;
LNamePsyholog.Caption := FieldByName('Psycologist').AsString;
ID_Test := StrToInt(FieldByName('ID_Test').AsString);
end;

end;
SetBounds( Left - ClientOrigin.X, Top - ClientOrigin.Y, GetDeviceCaps(
Canvas.handle, HORZRES ) + (Width - ClientWidth), GetDeviceCaps( Canvas.handle,VERTRES )
+ (Height - ClientHeight ));

BBIns.Left := (FMain.Width div 4) - (BBIns.Width div 2);
BBTest.Left := 2 * (FMain.Width div 4) - (BBTest.Width div 2);
BBRes.Left := 2 * (FMain.Width div 4) - (BBRes.Width div 2);
BBExit.Left := 3 * (FMain.Width div 4) - (BBExit.Width div 2);
BBIns.Top := FMain.Height - ((FMain.Height div 5) - (BBIns.Height div 2));
BBTest.Top := FMain.Height - ((FMain.Height div 5) - (BBTest.Height div 2));
BBRes.Top := FMain.Height - ((FMain.Height div 5) - (BBRes.Height div 2));
BBExit.Top := FMain.Height - ((FMain.Height div 5) - (BBExit.Height div 2));

IPsi.Left := (FMain.Width div 4) - (IPsi.Width div 2);
ICub.Left := 3*(FMain.Width div 4) - (ICub.Width div 2);
IPsi.Top := FMain.Height - 3*(FMain.Height div 5) - (IPsi.Height div 2);
ICub.Top := FMain.Height - 3*(FMain.Height div 5) - (ICub.Height div 2);

BHi.Top := IPsi.Top - 20;
BHi.Height := IPsi.Height + 40;
BHi.Left := IPsi.Left - 20;
BHi.Width := (ICub.Left - IPsi.Left) + ICub.Width + 40;

LName.Width := (FMain.Width div 2) - IPsi.Width - ICub.Width;
LName.Left := 2*(FMain.Width div 4) - (LName.Width div 2);
LName.Top := BHi.Top + (BHi.Height div 2) - (LName.Height div 2);

BLo.Top := LName.Top;
BLo.Left := LName.Left;
BLo.Height := LName.Height;
BLo.Width := LName.Width;

LProgr.Left := 3 * (FMain.Width div 4) - (LProgr.Width div 2);
LNameProgr.Left := 3 * (FMain.Width div 4) - ((LProgr.Width div 2) - 10 - LProgr.Width);
LProgr.Top := FMain.Height - ((FMain.Height div 5) - (BBExit.Height div 2)) + 2 * LProgr.Height;
LNameProgr.Top := FMain.Height - ((FMain.Height div 5) - (BBExit.Height div 2)) + 2 * LProgr.Height;

LPsyholog.Left := LProgr.Left;
LNamePsyholog.Left := LNameProgr.Left;
LPsyholog.Top := LProgr.Top + LProgr.Height + 10;
LNamePsyholog.Top := LPsyholog.Top;

end;

procedure TFMain.BBExitClick(Sender: TObject);
begin
// завершить работу с программой
Close;
end;

end.