2.3. Выходная информация

Выходной информацией являются данные, которые пользователь принимает в форму отображения отчетов, показанную на рис. 2.5. Для этого рядом на основной форме отчетов находятся восемь кнопок, показанные на рис. 2.4. соответствующие номерам столам.

Рис. 2.4. Кнопки с номерами столов загрузки в форму отчетов.

Рис. 2.5. Основная форма отображение отчета заполненная отчетами первого стола.

3. Разработка программных модулей

3.1. Элементы управления

Для разработки программного проекта был использован объектно-ориентированный, визуально-программируемый язык программирования

Delphi 7. Обоснования данного выбора были приведены выше.

Рассмотрим некоторые модули программ, демонстрирующие характерные особенности программирования с использованием данного языка программирования.

Основным программным модулем приложения «Пирамида» является программа Unit2.pas. В нем описаны все переменные и модули, используемые в программе. Рассмотрим его подробней.

В начале программного модуля описываются все подключаемые модули:

Windows, Dialogs, Forms, IniFiles, SysUtils, Menus, ExtCtrls, StdCtrls, ComCtrls, Controls, Classes;

В программе Unit2.pas помимо основного программного кода находится класс в состав которого входит 109 компонентов формы, 36 процедур и 1 функция.

Основные процедуры программы:

1. Procedure ReadParams; - Загружает параметры формы из файла

2. Procedure RecordParams(Index:Byte); - Загружает параметры формы в файл

3. Procedure Clock; - Организовывает системный таймер реального времени

4. Procedure Table1; - Организовывает таймер реального времени стола №1

5. Procedure Table2; - Организовывает таймер реального времени стола №2

6. Procedure Table3; - Организовывает таймер реального времени стола №3

7. Procedure Table4; - Организовывает таймер реального времени стола №4

8. Procedure Table5; - Организовывает таймер реального времени стола №5

9. Procedure Table6; - Организовывает таймер реального времени стола №6

10. Procedure Table7; - Организовывает таймер реального времени стола №7

11. Procedure Table8; - Организовывает таймер реального времени стола №8

12. Procedure ResetPanel(N: Byte); - Обнуляет счетчик таймера

13. Function User(UserName: Byte):String; - Проверяет идентификацию пользователя

14. Procedure FormCreate(Sender:TObject); - Создает форму и загружает параметры

15. Procedure Timer1Timer(Sender:TObject); - Обработка кода первого таймера

16. Procedure Timer2Timer(Sender:TObject); - Обработка кода второго таймера

17. Procedure Button1Click(Sender:TObject); - Кнопка выхода из программы

18. Procedure Button2Click(Sender: TObject); - Загрузка программы отчета

19. Procedure Button3Click(Sender: TObject); - Загрузка настроек программы

20. Procedure Button4Click(Sender:TObject); - Загрузка формы окна блокнота

21. Procedure N2Click(Sender: TObject); - Загрузка настроек программы

22. Procedure N7Click(Sender: TObject); - Меню выход из программы

23. Procedure N9Click(Sender: TObject); - Загрузка настроек программы

24. Procedure N10Click(Sender: TObject); - Загрузка настроек программы

25. Procedure N13Click(Sender: TObject); - Загрузка настроек программы

26. Procedure N15Click(Sender: TObject); - Загрузка настроек программы

27. Procedure CheckBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: 28. TShiftState; X, Y: Integer); - Запуск работы стола №1

29. Procedure CheckBox2MouseDown(Sender: TObject; Button: TMouseButton; Shift: 30. TShiftState; X, Y: Integer); - Запуск работы стола №2

31. Procedure CheckBox3MouseDown(Sender: TObject; Button: TMouseButton; Shift: 32. TShiftState; X, Y: Integer); - Запуск работы стола №3

33. Procedure CheckBox4MouseDown(Sender: TObject; Button: TMouseButton; Shift: 34. TShiftState; X, Y: Integer); - Запуск работы стола №4

35. Procedure CheckBox5MouseDown(Sender: TObject; Button: TMouseButton; Shift: 36. TShiftState; X, Y: Integer); - Запуск работы стола №5

37. Procedure CheckBox6MouseDown(Sender: TObject; Button: TMouseButton; Shift: 38. TShiftState; X, Y: Integer); - Запуск работы стола №6

39. Procedure CheckBox7MouseDown(Sender: TObject; Button: TMouseButton; Shift: 40. TShiftState; X, Y: Integer); - Запуск работы стола №7

41. Procedure CheckBox8MouseDown(Sender: TObject; Button: TMouseButton; Shift: 42. TShiftState; X, Y: Integer); - Запуск работы стола №8

43. Procedure N6Click(Sender: TObject); - Загрузка программы отчета