Для хранения данных предприятий и менеджеров в программе на Delphi используется файл в качестве базы данных в, котором по каждому предпритию хранится следующая информация.
- Название организации – используется для ввода названия организации, данное поле может состоять из 100 символов, текстового типа.
- Адрес - используется для ввода местоположения фирмы, данное поле состоит 150 символов, текстового типа.
- Телефон – используется для ввода контактного номера фирмы, данное поле содержит 20 символов, текстового типа.
- Контактное лицо – используется для ввода ФИО представителя фирмы из руководящего звена, данное поле состоит из 50 символов, текстового типа.
- E-mail – используется для ввода электронного адреса фирмы, данное поле может состоять 30 символов, текстового типа.
- Регион – используется для ввода названия области и города, данное моле может достигать 100 символов.
- Вид деятельности – используется для ввода, того чем фирма занимается, то есть производит или реализует, поле может достигать 50 символов, также текстового типа.
- Основная продукция – используется для ввода основной продукции, которую фирма производит или продаёт, данное поле может достигать 50 символов, текстового типа.
- Менеджер – используется для ввода информации о представителе фирмы, данное поле может достигать 100 символов, текстового типа.
Структура файла задается с помощью создаваемого типа данных TNote:
type
TNote=record
org: string[100];
adr: string[150];
tel: string[20];
kontl: string[50];
email: string[30];
reg: string[100];
vidd: string[50];
osnprod: string[50];
meneg: string[100];
end;
На каждую запись необходимо 680 байт памяти на жестком диске. Для позиционирования по данным используются смещения, наподобие как сегментном режиме работы с памятью - сегмент: смещение. Отсюда следует, для того чтобы обратится к названию телефона второй записи, нужно указать номер записи, что можно отнести к сегменту и позиция размещения данных телефона, что можно отнести к смещению, тогда это будет так 1(или сумма 1-й записи) : [100+150], отсчет идёт от нуля.
После скачивания программы необходимо сначала сделать распаковку всех файлов из архива и уже только потом производить запуск программы, также можно ознакомиться с инструкцией к программе.