Курсовая работа: Информационная система расчетов по договорам

procedure null; – процедура сброса начала списка

procedure FindXD (AEdit1:TEdit; AStringGrid:TStringGrid); – процедурапоискавХД

procedure FindWTK (AEdit1:TEdit; AStringGrid:TStringGrid); – процедурапоискавВТК

procedure FindBANK (AEdit1:TEdit; AStringGrid:TStringGrid); – процедурапоискавБАНК

procedure MoySort1 (AStringGrid:TStringGrid); – процедурасортировкиспискаХДпоатр. 1

procedure MoySort2 (AStringGrid:TStringGrid); – процедурасортировкиспискаХДпоатр. 2

procedure MoySort5 (AStringGrid:TStringGrid); – процедурасортировкиспискаХДпоатр. 5

procedure MoySort7 (AStringGrid:TStringGrid); – процедурасортировкиспискаХДпоатр. 7

2. Статические данные и структуры

Запись линейного односвязного списка для данных хозяйственных договоров. В данной записи все поля являются строковыми, строковое поле имеет размер памяти 8 байт, следовательно, запись ХД будет иметь размер 56 байт. Поле Next во всех трех структурах означает адрес следующего элемента в списке. Поскольку в задании предлагался линейный односвязный список то переход от одного элемента к другому возможен только вперед, в отличие от двухсвязного списка, где можно перемещаться как вперед так и назад. В квадратных скобках указано количество символов, которое может входить в строку данного поля.

type

TPSpisXD=^TSpisXD;

TSpisXD = record

numb:string[20]; // номер

datzak:string[20]; // дата заключения

datzav:string[20]; // дата завершения

temadog:string[40]; // тема

namorg:string[20]; // наименование организации

priznak:string[15]; // признак

stoimost:string[10]; // стоимость в тыс руб.

next: TPSpisXD; // следующий элемент списка

end;

Запись линейного односвязного списка для данных о временных трудовых коллективах. В данной записи все поля являются строковыми, строковое поле имеет размер памяти 8 байт, следовательно, запись ВТК будет иметь размер 80 байт.

type

TPSpisWTK=^TSpisWTK;

TSpisWTK=record

fam:string[20]; // фамилия

name:string[20]; // имя

otc:string[20]; // отчество