РАЗРАБОТКА ПРОГРАММНЫХ МОДУЛЕЙ

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

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

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); - Загрузка программы отчета

Сообщения пользователю

При заполнении журнала отчета работы столов перед внесением данных в файл отчета появляется информационное сообщение, показанное на рис. 3.1.

Рис.3.1. Информационное сообщение внесением данных в файл отчета.

Для работы с файлом отчета при копировании, загрузке, удалении, если приложение не может найти носитель, оно выдает сообщение пользователю, ошибка доступа к файлу на носителе рис. 3.2.

Рис. 3.2. Окно предупреждения ошибка доступа к файлу.

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

Таким образом, программа производит автоматический контроль за целостностью и уникальностью записей в журнале отчетов, и не разрешит добавить новую запись с таким же кодом.

Рис.3.3. Информационное сообщение пользователю.

Не нашли, что искали? Воспользуйтесь поиском по сайту: