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

unit Unit4;

interface

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

type
TFResults = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
ADOQResult: TADOQuery;
Label12: TLabel;
GroupBox2: TGroupBox;
Label3: TLabel;
Label4: TLabel;
ADOQProtocol: TADOQuery;
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FResults: TFResults;

implementation

{$R *.dfm}

uses Variable, Unit2;


procedure TFResults.FormCreate(Sender: TObject);
begin
ADOQResult.ConnectionString := SDB;
end;

procedure TFResults.FormShow(Sender: TObject);
var
Testing :String;
begin
{with ADOQResult do
begin
SQL.Clear;
SQL.Add('SELECT * FROM Testing WHERE (ID_Test = 1)AND(ID_Respondent = '+IntToStr(FStart.LRes.ItemIndex + 1)+') ORDER BY Testing_Date DESC');
Active := TRUE;
Testing := FieldByName('ID_Testing').AsString;
Label12.Caption := 'Дата: '+FieldByName('Testing_Date').AsString;
SQL.Clear;
SQL.Add('SELECT * FROM Result WHERE (ID_Testing = '+Testing+')');
Active := TRUE;
Label1.Caption := 'Оценка: '+FieldByName('Score').AsString;
SQL.Clear;
SQL.Add('SELECT * FROM Testing WHERE (ID_Test = 2)AND(ID_Respondent = '+IntToStr(FStart.LRes.ItemIndex + 1)+') ORDER BY Testing_Date DESC');
Active := TRUE;
Testing := FieldByName('ID_Testing').AsString;
Label3.Caption := 'Дата: '+FieldByName('Testing_Date').AsString;
SQL.Clear;
SQL.Add('SELECT * FROM Result WHERE (ID_Testing = '+Testing+')');
Active := TRUE;
Label2.Caption := 'Сырой балл: '+FieldByName('TorstScore').AsString;
Label4.Caption := 'Реальный балл: '+FieldByName('RealTorstScore').AsString;
HelpFile := SH;
end; }

with ADOQProtocol do
begin
SQL.Clear;
SQL.Add('select*from Protocol where (ID_Protocol='+IntToStr(FStart.LRes.ItemIndex + 1)+')and (ID_Testing =1)');
active:=true;
Label12.Caption :='Время прохождения:'+ FieldByName('TimeAnswer').AsString;
end;
with ADOQResult do
begin
SQL.Clear;
SQL.Add('select * from result where (ID_Result='+IntToStr(FStart.LRes.ItemIndex + 1)+')and (ID_Testing=1)');
active:=true;
Label1.Caption:='Результат:'+ FieldByName('Value_Result').AsString;
end;
with ADOQProtocol do
begin
SQL.Clear;
SQL.Add('select*from Protocol where (ID_Protocol='+IntToStr(FStart.LRes.ItemIndex + 1)+')and (ID_Testing =2)');
active:=true;
Label3.Caption := 'Время прохождения:'+FieldByName('TimeAnswer').AsString;
end;
with ADOQResult do
begin
SQL.Clear;
SQL.Add('select * from result where (ID_Result='+IntToStr(FStart.LRes.ItemIndex + 1)+')and (ID_Testing=2)');
active:=true;
Label4.Caption:= 'Результат:'+FieldByName('Value_Result').AsString;
end;
end;

end.