Курсовая работа: Программирование в Delphi
Блок 10 – вызов подтверждения очистки StringGrid .
Блок 11 – задание начального условия цикла.
Блоки 12,13,14,15,16 – повтор цикла перевода массива в StringGrid .
Блок 17 – вызов процедуры расчета.
Блок 18 – вывод в поле memo подтверждения.
9. процедура удаления базы: button 3 click .
Пояснения к алгоритму 9:
Блок 2 – очистка выбранной строки.
Блок 3 – задание начального условия цикла.
Блоки 4,5 – повторный цикл очистки массива.
Блок 6 – задание начального условия цикла.
Блоки 7,8,9 – повторение цикла перевода строки StrinGrid в массив записей.
Блок 10 – задание начального условия цикла.
Блоки 11,12,13,14,15 – повтор цикла перевода массива в StrinGrid .
Блок 16 – расчет.
| ||||||||||||||||
|
10. клик StringGrid -а.
Пояснения к алгоритму 10:
|
|
| ||||||||
| ||||||||
11. вызов печати.
Пояснения к алгоритму 11:
|
|
12. выход.
Пояснения к алгоритму 12:
|
|
5. Форма представления исходных данных
По условию поставленной задачи необходимо предусмотреть хранение информации в типизированных файлах. Для решения данного вопроса, необходимо разработать типизированный элемент хранения данных – строку набора базы данных, роль которой в данном приложении будет выполнять переменная «zap», имеющая следующую структуру.
type zap=record
prod:string[80];
onng:longint;
plan:longint;
onkg:longint;
svocep:extended;
end;
Т.е. данная переменная представляет собой линейный массив переменных данных необходимого нам типа. Для организации двумерного массива, опишем в разделе переменных массив «Mzap»: