Автор работы: Пользователь скрыл имя, 29 Января 2011 в 08:14, курсовая работа
Целью создания информационно-поисковой системы «Ювелирные изделия» является упрощение действий пользователя по ведению коллекции изделий с реализацией широкого круга возможностей по ее просмотру и редактированию: добавление, изменение и удаление, поиск, сортировка, форматный вывод записей из базы данных.
Введение
Структура программного обеспечения
Анализ и спецификация задач
Техническое задание
Текст программы
Тестирование
Руководство пользователя
Руководство программиста
Заключение
Список использованных источников
i:=0;
while not EOF(F) do
begin
Read(F, data);
Writeln(i:3, data.isd:15, data.mat:15, data.cen:15);
inc(i);
end;
end;
end; begin
Close(F);
end;
{-----------------------
{-----------------------
procedure add;
var
data: Jeverly;
begin
clrscr; begin
Write('Введите название изделия: ');
Readln(data.isd);
Write('Введите материал, из которого сделано изделие: ');
Readln(data.mat);
Write('Введите стоимость изделия($): ');
Readln(data.cen);
{$I-}
Assign(F, name);
Reset(F);
{$I+}
if IOResult<>0 then
Rewrite(F)
else
begin
Seek(F, FileSize(F));
Write(F, data);
end;
Close(F);
end;
{-----------------------
{-----------------------
procedure delete;
var
del, i: integer;
data: Jeverly;
G: File of Jeverly;
begin
{$I-}
Assign(F, name);
Reset(F);
{$I+}
if IOResult<>0 then
begin
clrscr;
Write('А нечего удалять!');
readkey;
Exit;
end
else
begin
if FileSize(F)=0 then
begin
clrscr;
Write('Файл пуст!');
readkey;
Exit;
end
else
begin
view;
Writeln;
Writeln;
Write('Введите номер удаляемой записи: ');
Readln(del);
Assign(G, '~temp~');
Rewrite(G);
Assign(F, name);
Reset(F);
i:=0;
while not EOF(F) do
begin
Read(F, data);
if i<>del then
Write(G, data);
inc(i);
end;
Close(F);
Erase(F);
ReName(G, name);
end;
end;
end;
{-----------------------
{-----------------------
procedure edit;
var
ed, i: integer;
data: Jeverly;
G: File of Jeverly;
begin
{$I-}
Assign(F, name);
Reset(F);
{$I+}
if IOResult<>0 then
begin
clrscr;
Write('А нечего редактировать!');
readkey;
Exit;
end
else
begin
if FileSize(F)=0 then
begin
clrscr;
Write('Файл пуст!');
readkey;
Exit;
end
else
begin
view;
Writeln;Writeln;
Write('Введите номер редактируемой записи: ');
Readln(ed);
Assign(F, name);
Reset(F);
Seek(F, ed);
Read(F, data);
Writeln;
Write(data.isd, ' -> ');
Readln(data.isd);
Write(data.mat, ' -> ');
Readln(data.mat);
Write(data.cen, ' -> ');
Readln(data.cen);
Seek(F, ed);
Write(F, data);
Close(F);
end;
end;
end;
{-----------------------
{-----------------------
procedure sort;
var
i,j,count,sortPole: integer;
tmp:
Jeverly;
data: array[0..20]of Jeverly;
G: File of Jeverly;
begin
{$I-}
Assign(F, name);
Reset(F);
{$I+}
if IOResult<>0 then
begin
clrscr;
Write('Сортировка невозможна!');
readkey;
Exit;
end
else
begin
if FileSize(F)=0 then
begin
clrscr;
Write('Файл пуст!');
readkey;
Exit;
end
else
begin
clrscr;
Writeln('До сортировки...');
Writeln;
view;
Writeln;
Writeln('Введите поле для сортировки:');
Writeln('1: Название 2: Material 3: Cena');
Write('---> ');
Readln(sortPole);
Assign(F, name);
Reset(F);
count:=0;
while not EOF(F) do
begin
Read(F,
data[count]);
inc(count);
end;
Close(F);
dec(count);
case
sortPole of
1: begin
for i:=0 to count do
for j:=i+1 to count do
if data[i].isd[1]>data[j].isd[1] then
begin
tmp:=data[i];
data[i]:=data[j];
data[j]:=tmp;
end;
end;
2: begin
for i:=0 to count do
for j:=i+1 to count do
if data[i].mat[1]>data[j].mat[1] then
begin
tmp:=data[i];
data[i]:=data[j];
end;
end;
3: begin
for i:=0 to count do
for j:=i+1 to count do
if data[i].cen>data[j].cen then
begin
tmp:=data[i];
data[i]:=data[j];
data[j]:=tmp;
end
end;
Else begin
Write('Такого поля не существует!');
Readkey;
Exit;
end
end;
ReWrite(F);
for i:=0 to count do
Write(F, data[i]);
Close(F);
Writeln;Writeln;
Writeln('После сортировки...');Writeln;
view;
Writeln;
Writeln;
Write('‘Сортировка закончена!!!');
Readkey;
end;
end;
end;
{-----------------------
{-----------------------
procedure search;
var
i,error,tmp: integer;
searchString: string;
data: Jeverly;
begin
clrscr;
view;
Writeln;Writeln;
Write('Введите строку для поиска: ');
Readln(searchString);
Writeln;Writeln('
Writeln;
Writeln('#':3, 'Название':25, 'Материал':25, 'Цена ($)':10);
Writeln('---------------
Assign(F, name);
Reset(F);
i:=0;
while not EOF(F) do
begin
Read(F, data);
val(searchString,tmp,
if
(data.isd=searchString) or (data.mat=searchString) or (data.cen=tmp)
then
Writeln(i:3, data.isd:25, data.mat:25, data.cen:10);
inc(i);
end;
Close(F);
Readkey;
end;
{-----------------------
Информация о работе Разработка информационно-поисковой системы «Ювелирные изделия»