ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Описание процедуры KeyRecПроцедура реализует поиск записи по нужному ключу. В цикле Repeat... until f на экран выводится меню. В зависимости от выбора производится ввод значения переменной ch: ? по номеру записи (ch:=1), ? по наименованию товара (ch:=2), ? по стоимости товара (ch:=3), ? по году поступления товара (ch:=4). Условием выхода из цикла является значение TRUE логической переменной F. Переменная F принимает значение FALSE, если введено неизвестное значение ключа. При вводе значений полей элементов массива записей происходит их контроль соответствующими процедурами в зависимости от типа переменных (см. описание процедуры InputFields). После этого в зависимости от ключа происходит поиск нужной информации, формирование логических признаков f, f1 и вывод на экран записи. Если база данных пуста или нужная запись не найдена, то через процедуру OutMessageXY(x, y: byte; Str1, Str2:string) выводятся соответствующие сообщения. Алгоритм выполнения процедуры ChangeDel (flag: boolean) Процедура реализует изменение (входной параметр FLAG = TRUE) или удаление (входной параметр FLAG = FALSE) записи в массиве записей. По введенному номеру записи i удаляется или изменяется запись в массиве записей. При этом эта запись выводится и пользователь может удостовериться, та ли это запись. В случае утвердительного ответа происходит коррекция массива записей. В случае удаления записи i в цикле по j происходит переприсваивание каждого значения элемента массива записей, начиная с i до MaxElem-1 (каждому предыдущему значению элемента массива присваивается последующее значение mas[j]:=mas[j+1]). Максимальное число элементов массива записей уменьшается на единицу (MaxElem:=MaxElem-1). В случае изменения записи вводятся измененные (новые) значения всех полей элементов записи через процедуру InputFields (mas[i]). Вывод нужных сообщений реализуется через процедуру OutMessageXY(x, y: byte; Str1, Str2:string). Не нашли, что искали? Воспользуйтесь поиском:
|