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

BitBtn6.Enabled:=false;

BitBtn7.Enabled:=false;

DBMemo1.Enabled:=false;

DBEdit1.Enabled:=false;

DBEdit2.Enabled:=false;

DBEdit3.Enabled:=false;

DBEdit4.Enabled:=false;

DBCheckBox1.Enabled:=false;

DBCheckBox2.Enabled:=false;

DBCheckBox3.Enabled:=false;

DBCheckBox4.Enabled:=false;

DBRadioGroup1.Enabled:=false;

end;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

if a>=Table1.RecordCount then BitBtn2.Enabled:=false

else begin

BitBtn1.Enabled:=true;

inc(a);

Label7.Caption:='Питання № '+IntToStr(a);

Table1.Next;

BitBtn3.Enabled:=true;

BitBtn5.Enabled:=true;

BitBtn6.Enabled:=false;

BitBtn7.Enabled:=false;

DBMemo1.Enabled:=false;

DBEdit1.Enabled:=false;

DBEdit2.Enabled:=false;