Контрольная работа: Автоматизированная информационная система учета движения контингента студентов ВУЗа

Caption = ЛокальнаябазаданныхMS Access'

TabOrder = 3

OnClick = RadioButton2Click

end

ПроцедурыназначенынакнопкиTBitBtn1, TBitBtn2.

Подтверждение настройки происходит нажатием на кнопку BitBtn5.

Процедура настройки базы данных, назначенная на кнопку BitBtn5 приведена ниже.

procedure TForm2.BitBtn5Click(Sender: TObject);

var

setting:TiniFile;

begin

Setting:=TiniFile.Create('C:\Program Files\Mep\Setting.ini');

If radioButton1.Checked = true then

begin

try

Form2.Server_Base_connect;

Setting.WriteString('Connect','base','1');

except

ShowMessage('Ошибка подключения к базе данных.');

end;

end;

if RadioButton2.Checked = true then

begin

try

Form2.Local_Base_connect;

Setting.WriteString('Connect','base','0');

except

ShowMessage('Ошибка подключения к базе данных.');

end;