Курсовая ( Мюнсберга и Когана ) / 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.