Правила форума
Прочтите прежде чем задавать вопрос!
Вывод всей базы пользователей в виде таблицы(ФИО, дата рожд., телефон)
и упорядочивание пользователей по алфавиту(по фамилии),
добавление пользователя в базу.Файл базы обычный текстовый, вида:
-----------------------------------------------
Petrov Petr Petrovich 21.04.07
Romanov Roman Romanovich 12.12.90 123456
Sergeev Sergey Sergeevich 17.12.87 998222
-----------------------------------------------
Заранее спасибо.
Исходник (Показать/Скрыть)
uses crt;
label l1;
const
menu:array[1..5] of string=('Найти номер телефона', {Массив описывающий меню}
'Найти фамилию по номеру',
'Найти дни рождения',
'Сведения об авторе',
'ESC - Exit.');
autor:array[1..5] of string[50]=('Курсовая работа по программированию.',
'База Данных "Записная Книжка"',
'Выполнила: Гельдт Анна', {Заставка}
'Группа: В-123',
'Нажмите любую клавишу для продолжения...');
VAR
y:byte;
klav:char;
{============================= Выводит меню =================================}
Procedure DisplayMenu;
var
i1:Byte;
begin
clrscr;
for i1:=1 to 5 do
begin
gotoXY (20,i1*2);
write (menu[i1]);
end;
end;
{=========================== Выводит сведения об авторе =====================}
procedure DisplayAutor;
var
i2:byte;
begin
textcolor(0);
DisplayMenu;
textcolor(11);
for i2:=1 to 5 do
begin
gotoxy(trunc((80-length(autor[i2]))/2),i2*3);
write(autor[i2]);
end;
end;
{============================================================================}
Procedure Search(param:String); {Читает записи из файла и осуществляет поиск}
type
Man=record
SurName:String[16];
Name:String[16];
Otchestvo:String[16];
Born:String[8];
Phone:LongInt;
end;
Var
f:text;
i3,tmp,p,q,c,i,j,n,q1,q2:Integer;
tstr:String;
tLong:LongInt;
People:array[1..20] of Man; {Массив записей книжки}
Borned,Dates:array[1..20] of byte; {Массив индексов найденных записей}
Begin
Assign(f,'c:\ttp\zbook.dat'); Reset(f); {Открываем файл для чтения}
CLRSCR; i3:=0;
While NOT EOF(f) do {Считываем в цикле содержимое файла zbook.dat}
Begin
i3:=i3+1;
Readln(f,tstr); {Берем из файла строку и режем на части}
People[i3].SurName:=Copy(tstr,1,pos(' ',tstr)-1);
Delete(tstr,1,pos(' ',tstr));
People[i3].Name:=Copy(tstr,1,pos(' ',tstr)-1);
Delete(tstr,1,pos(' ',tstr));
People[i3].Otchestvo:=Copy(tstr,1,pos(' ',tstr)-1);
Delete(tstr,1,pos(' ',tstr));
People[i3].Born:=Copy(tstr,1,pos(' ',tstr)-1);
Delete(tstr,1,pos(' ',tstr));
val(tstr,People[i3].Phone,tmp);
End;
Close(f); tmp:=0; c:=0;
if param='SurName' then {Проверяем какой был передан параметр}
Begin {и ищем записи по нужному полю}
Write('Введите номер телефона (??????) ');
Readln(tLong);
for p:=1 to i3 do If People[p].Phone=tLong Then
Begin
Write(People[p].SurName,' ');
Write(People[p].Name,' ');
Write(People[p].Otchestvo,' ');
exit;
End;
If p=i3 Then Writeln('Ничего не найдено!');
End;
if param='Number' then
Begin
Write('Введите фамилию ');
Readln(tstr);
for p:=1 to i3 do If People[p].SurName=tstr Then
Begin
If People[p].Phone<>0
Then Writeln(People[p].Phone)
Else Writeln('Нет телефона!');
exit;
End;
If p=i3 Then Writeln('Ничего не найдено!');
End;
if param='Borned' then
Begin
Write('Введите номер месяца ');
Readln(tLong);
for p:=1 to i3 do
Begin
val(copy(People[p].Born,4,2),q,tmp);
If q=tLong Then
Begin
c:=c+1;
Borned[c]:=p;
End;
End;
Writeln('Найдено дней рождений ',c);
Writeln;
{Сортируем по возрастанию дни рождения}
for i:=1 to c do val(copy(People[Borned[i]].Born,1,2),Dates[i],tmp);
for i:=1 to c-1 do
for j:=i+1 to c do
begin
if Dates[i]<Dates[j] then
begin
n:=Borned[i];
Borned[i]:=Borned[j];
Borned[j]:=n;
end;
end;
for p:=1 to c do
Begin {Выводим результаты поиска}
write(People[Borned[p]].Born,' ');
write(People[Borned[p]].SurName,' ');
write(People[Borned[p]].Name,' ');
write(People[Borned[p]].Otchestvo,' ');
Writeln;
End;
End;
End;
{==================================Основная программа========================}
BEGIN
DisplayAutor;ReadKey; {Выводим заставку}
l1:
y:=1;
textcolor(15);
DisplayMenu; {Выводим меню}
repeat
textcolor(10); {Опрашиваем в цикле нажатия клавишей}
gotoxy (13,y*2); write(chr(16));
klav:=readkey;
gotoxy (13,y*2); write(' ');
if ord(klav)=97 then if y > 1 then y:=y-1 else y:= 5;
if ord(klav)=122 then if y < 5 then y:=y+1 else y:= 1;
if ord(klav)=27 then begin y:=5; klav:=Chr(13) end;
if (ord(klav)=13) and (y<6) then
begin {выполняем нужное действие}
case y of {в зависимости от выбранного пункта меню}
1:begin Search('Number'); readkey; goto l1 end;
2:begin Search('SurName'); readkey; goto l1 end;
3:begin Search('Borned'); readkey; goto l1 end;
4:begin DisplayAutor; readkey; goto l1 end;
5:exit;
end;
end;
until (ord(klav)=13) and (y=5);
END.
