Прошу прощения, но сделать Вам программу времени нет. Поэтому только советы. Мне кажется, что Вы хотите программу с формой, а под паскалем Вы имеете в виду нечто вроде дельфи или лазаруса. От этого и буду плясать. Примеры буду давать из некоего своего проекта (тоже нечто вроде БД)
1) Разработайте пользовательский тип данных для программы вроде:
Код:
Tserve = record
Day: TDateTime;
place: PChar;
end;
Twar = record
call: Tserve;
reason: PChar;
end;
- нечто вроде этого.
2) Введите переменную этого типа для хранения записи по 1 песне.
3) Так как Вы в паскале не очень, вряд ли Вам по силам бороться с технологиями БД, поэтому храните в обычном текстовом файле, который определите как файл Вашего типа. У Вас получится нечто вроде:
Код:
var person: Tperson;
DataFile: File of Tperson;
4) Данные во время работы храните в компоненте StringGrid. Там же и можно редектировать.
5) Для навигации на форме кнопки: вперед, назад, к первому, к последнему. Для редактирования: удалить, вставить.
6) Для быстрого поиска записи организуйте на форме TEdit. И в обработчике что-то вроде:
Код:
procedure TMain.Edit1Change(Sender: TObject);
var i,j: integer;
begin
for i:=1 to 3000 do
for j:=1 to region[i].Family.quantity do
begin
if WideUpperCase(Edit1.Text)=WideUpperCase(copy(region[i].Family.member[j].Surname+' '
+region[i].Family.member[j].name+' '
+region[i].Family.member[j].patronymic,1,length(Edit1.Text)))
then begin ID:=i;
GridPopular.RowCount:=region[ID].Family.quantity+1;
GridPopular.Row:=j;
refresh;
exit;
end;
end;
end;
Еще раз повторюсь, что примеры из моего проекта для образца. В общем эта работа не на один час. Удачи.
