98
else ListItem.SubItems.Add(' ');
end;
ADOTbl.Next; Следующая запись
end;
end;
ПРОЦЕДУРА СОЗДАНИЕ ТАБЛИЦЫ.
procedure TfrmYchPl.CreateTable;
var
commandsql:string;
begin
Команда для создания таблицы
commandsql:='Create table' +' '+ 'new'+CmBGroup.Text;
with ADOQuery1 do begin
with SQL do begin
Clear;
Команды для создания полей
Add(commandsql);
Add('(');
Add('Предметы varchar(50),Название_табл varchar(50)');
Add(',Группа varchar(50)');
Add(',1семестр logical, 2 семестр logical');
Add(',3 семестр logical, 4 семестр logical');
Add(',5 семестр logical, 6 семестр logical');
Add(',7 семестр logical, 8 семестр logical');
Add(')');
end;
ADOQuery1.ExecSQL; Выполнение команд на SQL не смотря на ошибки
end;
end;
ПРОЦЕДУРА УДАЛЕНИЕ ТАБЛИЦЫ.
procedure TfrmYchPl.DeleteTable;
var
commandsql:string;
begin
Команда для удаления таблицы
commandsql:='DELETE FROM' +' '+ 'new'+CmBGroup.Text;
with ADOQuery1 do begin
with SQL do begin
Clear;
Add(commandsql);
end;
ADOQuery1.ExecSQL; Выполнение команд на SQL не смотря на ошибки
end;
end;
procedure TfrmYchPl.FormCreate(Sender: TObject);
var