Курсовая работа: Програма контролю знань з дисципліни "Системне програмування та операційні системи"

Form5.DBMemo1.Visible:=false;

end

else

begin

Form5.DBImage1.Visible:=false;

Form5.DBMemo1.Visible:=true;

end;

end

else MessageDlg('Запoвнiть уci пoля!', mtInformation, [mbOk], 0);

end;

end.

_____________________________________________________________

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, DBCtrls, DB, DBTables, Buttons, XPMan,

ComCtrls, Gauges;

type

TForm5 = class(TForm)

Label1: TLabel;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

Label2: TLabel;

Label3: TLabel;

Timer1: TTimer;

Label4: TLabel;