Выгрузка данных из Delphi 7 в БД Access

@LSTSnaiper · Регистрация: 18.03.2018

Author24 — интернет-сервис помощи студентам

У меня есть программа тестировки в Delphi 7, я бы хотел сделать так ,что бы в мою БД в определённую таблицу записывались только пользователи имеющие право доступа Студент и его (ФИО,Название теста,Дата,Оценка) только не знаю как это сделать.
Для лучшего понимания выкладываю исходник,если что-то ещё понадобится,то скажите.
Test.rar

@LSTSnaiper · 22.05.2018, 12:08 **[ТС]**

Аааа,всё ,спасибо .Я просто не понимал что вы имели ввиду ,точнее не мог понять . А как быть с оценкой ?
у меня есть только вот это, но всё же это не к этому тесту относится.

Delphi

procedure TForm8.EClick(Sender: TObject);
begin
if RB1.Checked then vop[l].otvs:=vop[l].otv1;
if RB2.Checked then vop[l].otvs:=vop[l].otv2;
if RB3.Checked then vop[l].otvs:=vop[l].otv3;
if RB4.Checked then vop[l].otvs:=vop[l].otv4;
kl:=0;
for i:=1 to z do
if vop[i].otvs=vop[i].otv then inc(kl);
if (kl/z)>0.9 then oc:=' оценка 5' else
if (kl/z)>0.75 then oc:=' оценка 4' else
if (kl/z)>0.50 then oc:=' оценка 3' else
oc:= 'оценка 2' ;
Mark:=(Label1.Caption:='Правильно ' + inttostr(kl)+ ' из ' + inttostr(z)+ oc');
 
end;

@LSTSnaiper 1 / 1 / 1 Регистрация: 18.03.2018 Сообщений: 138
		1
	Delphi 6-7 Выгрузка данных из Delphi 7 в БД Access 17.05.2018, 20:19. Показов 1896. Ответов 60 Метки нет (Все метки) У меня есть программа тестировки в Delphi 7, я бы хотел сделать так ,что бы в мою БД в определённую таблицу записывались только пользователи имеющие право доступа Студент и его (ФИО,Название теста,Дата,Оценка) только не знаю как это сделать. Для лучшего понимания выкладываю исходник,если что-то ещё понадобится,то скажите. Test.rar 0

	22.05.2018, 12:08