Структура баз данных БД. Теперь рассмотрю структуру баз данных.
Структура не является сложной, однако она может содержать все данные, необходимые для данной системой и связь между разными БД осуществляется довольно простым путем.
Основной БД является БД, которая содержит информацию о наименованиях, имеющихся на складе о количестве, о стоимости и т.д Она имеет следующую структуру Type DataType record Структура складских данных ProductNumber String 5 Номер ProductName String 22 Наименование ProductRasf String 10 Расфасовка PieceInBox String 5 Кол-во штук в упаковке ProductPrice String 12 Себестоимость ProductKol String 12 Поставленное количество ProductFirm String 22 Фирма поставщик ProductDate String l10 Дата прихода ProductOST String 12 Осталось на складе ProductKurs Real Курс прихода ProductSellPrice Real Стоимость ProductVozvrat LongInt Возврат end Var Data DataType DataFile File of DataType Файл SKLAD.001 Для записи считывания данных в из нее используется следующий алгоритм 1. Открыть файл данных. 2. Поместить указатель положения в файле на нужную запись. 3. Для записи данных - каждому полю записи Data присвоить соответствующие данные, затем их записать в файл данных Write DataFile,Data. Для считывания данных - Считать данные из файла Read DataFile,Data 4. Закрыть файл данных.
Более интересной структурой является структура сделок.
Type Заголовок сделки SdelkaInfo record SdelkaNumber LongInt Номер сделки Reserved Word Archive Boolean Флаг архива ItemIndex LongInt Индекс в наименованиях ItemsTaken LongInt Всего наименований FirmName String 22 Фирма Date String 10 Дата выписки накладной OplataDate String 10 Дата полной оплаты Summa Real Сумма Kurs Real Курс доллара SummaSkidka Real Сумма со скидкой Oplata Boolean TRUE - если оплачено полностью End Type OneItemInfo record Наименования Number LongInt SdelkaNumber LongInt SklNum LongInt Name String 22 Rasf String 10 Box Integer KolVo LongInt SBPrice Real Price Real Vozvrat LongInt End Var Sdelka SdelkaInfo SdelkaFile File of SdelkaInfo Файл SDELKA.001 Item OneitemInfo ItemsFile File of OneItemInfo Файл SDELKA.002 Структура состоит из заголовка и собстенно наименований.
В заголовке содержатся следующие данные Фирма покупатель, Дата накладной, Дата оплаты, Сумма накладной в долларах США , Сумма накладной со скидкой в рублях , Курс доллара на момент ваписки накладной, Флаг архива, Количество проданных наименований, Индекс в БД с наименованиями.
В БД наименований находится информация о каждом наименовании, относящегося к соответствующей сделки. Например, если нужно считать сделку, то надо 1. Открыть файлы данных SdelkaFile и ItemsFile 2. Поместить указатель на нужную сделку в файле SdelkaFile Seek SdelkaFile, n 3. Считать сделку из файла Read SdelkaFile,Sdelka 4. Поместить указтель на наименование, численно равный Sdelka. ItemIndex в файл ItemsFile и для каждого наименования от Sdelka. ItemsIndex до Sdelka. ItemsIndex Sdelka. ItemsTaken считывать данные.
Read ItemsFile,Item 5. Закрыть файлы данных SdelkaFile и ItemsFile На Borland Pascal это выглядит следующим образом OpenSdelkaFile OpenItemsFile Открытие файлов процедуры находятся в модуле SKLFILES.PAS Seek SdelkaFile, нужная сделка Указываю на нужную сделку Read SdelkaFile,Sdelka и считываю ее заголовок for n Sdelka. ItemIndex to Sdelka. ItemsTaken do Считывание инф-ции о наименованиях Begin Seek ItemsFile, n Read ItemsFile,Items операции над считанными данными вставка в коллекцию строк End CloseItemsFile CloseSdelkaFile Закратие файлов Структура приходов описана также, как и структура сделок. 2.6.5. ЗАКЛЮЧЕНИЕ Используя мощные возможности компилятора BORLAND PASCAL 7.0 и объектно-ориентированной библиотеки TURBO VISION для написания системы управления работой коммерческой компании мне удалось за очень сжатые сроки создать довольно гибкую программу с пользовательским интерфейсом очень высокого класса. 2.7