Курсовая работа: Создание базы данных

st:=st+Table1['Примечания']+';';

writeln(f,st);

Table1.Delete;

end else begin

j:=strtoint(st) div 10;

if j<11 then begin

with Query2 do begin

Close;

SQL.Clear;

SQL.Add('SELECT *');

SQL.Add('FROM '+Table1['Факультет']+'.db');

SQL.Add('WHERE Группа LIKE "'+Table1['Группа']+'"');

Open;

end;

Table1.Edit;

Table1['Группа']:=str+inttostr(j+1)+s[length(s)];

if (j mod 2)=0 then

Table1['Курс']:=Table1['Курс']+1;

Table1.Post;

if Query2['Группа']<>'' then begin

Query2.Edit;

Query2['Группа']:=Table1['Группа'];

Query2.Post;

end;

Table1.Next;

end else

if j=11 then begin

with Query2 do begin

Close;