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

DBCheckBox3.Enabled:=false;

DBCheckBox4.Enabled:=false;

DBRadioGroup1.Enabled:=false;

end;

procedure TForm1.BitBtn7Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute then

DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

procedure TForm1.DBRadioGroup1Change(Sender: TObject);

begin

ShowPicture;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

DataBase := ExtractFileDir(Application.ExeName) + '\DB';

a:=1;

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

procedure TForm1.N2Click(Sender: TObject);

begin

BitBtn2.Enabled:=true;

BitBtn3.Enabled:=true;

BitBtn4.Enabled:=true;

BitBtn5.Enabled:=true;

Label7.Visible:=true;

Table1.DatabaseName:=DataBase;

Table1.TableName:='putanya_OC.db';

DataSource1.DataSet:=Table1;

Table1.Active:=true;