Geum.ru


Разработка алгоритмов и их реализация

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



SortByClient (AFileName:string);: File of TCards;,Cards2: TCards;,kursor2, f_size: Longint;NOT FileExists(AFileName) then Exit;(t,AfileName);(t);:=0;_size:=FileSize(t)-1;kursor1 Cards2.Client then begin(t,kursor1);(t,Cards2);(t,kursor2);(t,Cards1);:=Cards2;;(kursor2);;(kursor1);;(t);

end;

{Процедура - Сортировки по номеру карты}

Procedure FSortByCardNo (AFileName:string);: File of TCards;,Cards2: TCards;,kursor2, f_size: Longint;NOT FileExists(AFileName) then Exit;(t,AfileName);(t);:=0;_size:=FileSize(t)-1;kursor1 Cards2.CardNo then begin(t,kursor1);(t,Cards2);(t,kursor2);(t,Cards1);:=Cards2;;(kursor2);;(kursor1);;(t);

end;

{Процедура - Сортировки по Типу топлива}

Procedure FSortByGoodType (AFileName:string);: File of TCards;,Cards2: TCards;,kursor2, f_size: Longint;NOT FileExists(AFileName) then Exit;(t,AfileName);(t);:=0;_size:=FileSize(t)-1;kursor1 Cards2.GoodType then begin(t,kursor1);(t,Cards2);(t,kursor2);(t,Cards1);:=Cards2;;(kursor2);;(kursor1);;(t);

end;

{Процедура - Сортировки по Типу клиента}

Procedure FSortByClientType (AFileName:string);: File of TCards;,Cards2: TCards;,kursor2, f_size: Longint;NOT FileExists(AFileName) then Exit;(t,AfileName);(t);:=0;_size:=FileSize(t)-1;kursor1 Cards2.ClientType then begin(t,kursor1);(t,Cards2);(t,kursor2);(t,Cards1);:=Cards2;;(kursor2);;(kursor1);;(t);;

{Процедура - Меню "Сортировать"}

Procedure MSort ;

var:char;:integer;;

WriteLn(' "Справочник выданных Мобильных карт" - Меню "Сортировть"');;(' По типу владельца');

WriteLn;(' Выход.');:=ReadKey;:=ord(a);b of

: FSortByClient(FileName);

: FSortByCardNo(FileName);

: FSortByGoodType(FileName);

: FSortByClientType(FileName);;;(b=27) or (b=49) or (b=50) or (b=51) or (b=52);;

{Процедура - Меню поиска}MPoisk ;:char;:integer;

begin;(' "Справочник выданных Мобильных карт" - Меню поиска');;(' Выборка по типу топлива');

WriteLn;(' Выход.');:=ReadKey;:=ord(a);b of

: SelectCardsClient(FileName, FileFTmp);

: SelectCardsNo(FileName, FileFTmp);

: SelectCardsGoodType(FileName, FileFTmp);;;b=27;;

{Процедура вывода на экран БД}

Procedure ShowFile (AfileName:string);: File of TCards;:integer;:char;Not FileExists(AFileName) then begin(FTmp,AFileName);(FTmp);(FTmp);(AFileName);;;(AFilename);;('-"ВЫХОД - Главное меню"');

a:=ReadKey;:=ord(a);b of

:MPoisk;

: FAddCards(FileName);

: FDelCardsNo (FileName, FileFTmp);

: FEdit (FileName, FileFTmp);

: MSort;;b=27;

{Удаляем FTmp.dat-файл}FileExists(FileFTmp) then begin(FTmp, FileFTmp);(FTmp);(FTmp);(FTmp);;;

{Процедура - Окно главного меню}

procedure PMenu;

var: char;: integer;

ClrScr;(' "Справочник выданных Мобильных карт" - Главное меню ');;(' Выйти из программы.');

a:=ReadKey;:=ord(a);b of

: ShowFile(FileName);;;b=27;;

{Тело программы};;

end.

Приложение 2

Результат работы

Результат работы приведен в картинках:

Начало работы программы:

"-Список карт"

"-ПоисктАж"

"-Поиск по клиенту"

"-Поиск по номеру карты"

"-Выборка по типу топлива"

Результат поиска:

"-Выдать картутАж"

Результат добавление записи:

"-Удалить картутАж"

"-Редактировать картутАж"

"-Сортировать списоктАж"

"-По клиенту"

"-По номеру карты"

"-По типу топлива"

"-По типу владельца"

При нажатии программа завершит свою работу: