Редактирование СУБД

[NoSiK]

Приветствую всех!
У меня такая проблема в СУБД не знаю как прописать кнопку "Копирование" надо сделать,чтобы при нажатии этой кнопки выбраный студент копировался в ячейку ниже
(запустите программу поймете о чем я))))) Но надо чтобы копировалось только ФИО,Группа,Факультет а поля Предмет и оценка оставались пустыми. и еще я прописал кнопку "удалить", но студент удаляется только в одной форме и при сохранении файла студент появляется снова.
Я в делфи пока новичек поэтому не выходит как ни старался.
Выручайте мужики)
Люди еще один вопросик прошу ответить проффесионалам, Какую книгу мне купить для изучения Делфи прям так сказать с самого элементарного до сложнейших программ(напишите те книги или книгу которую считаете самой лучше и понятной)? Просто при поиске в интернете больше рекламят.....

[S@fer]

В начале каждого раздела есть ссылки с литературой. К примеру Delphi и БД в Delphi

[NoSiK]

Я просмотрел материал ну так ниче схожего с моим вопрос не нашел

[S@fer]

Ну тогда по программе. Во первых это работа не с СУБД, а с типизированным файлом. Собственно по вопросу. При нажатии кнопки скопировать. проверяешь перебором. какая из строчек пустая.
если все строчки заняты добавляешь еще одну

StringGrid2.ColCount:=StringGrid2.ColCount+1; //или RowCount точно не помню какая из них строка

и затем вставляешь в пустую ячеку фамилию из комбабокс

[NoSiK]

Я не много не понял,в программе надо во 2 закладке где просмотр по студенту там все что мы выберем должно копироваться в ячейку ниже кроме предмет и оценка.
Не понимаю просто как с чего начать процедуру копирования.

[S@fer]

ну как то так:

procedure TForm1.Button5Click(Sender: TObject);
var stud,grup,fak:string;
    a:integer;
begin
  a:=0;
  stud:=StringGrid2.Cells[0,1];
  grup:=StringGrid2.Cells[1,1];
  fak:=StringGrid2.Cells[2,1];
  while StringGrid2.Cells[0,a]<>'' do
  begin
    Inc(a);
  end;
  StringGrid2.Cells[0,a]:=stud;
  StringGrid2.Cells[1,a]:=grup;
  StringGrid2.Cells[2,a]:=fak;
end;

Можно еще сделать проверку. Если свободных строк нет. то вставляем новую

[NoSiK]

я уже сделал сегодня ночью)))
Но все равно спасибо огромное,что уделили время на помощь мне!