- •Содержание
- •Постановка задачи
- •Инструкции пользователю
- •2.1 Программа «Работа интернет клуба» в Microsoft Excel на языке Visual Basic For Application
- •2.2 Программа «Работа интернет клуба» на Delphi 7
- •Описание процесса разработки программы
- •3.1 Процесс разработки приложения в рабочей книге Microsoft Excel на языке Visual Basic for Application
- •3.2. Процесс разработки приложения для работы с файлом Microsoft Excel на языке Delphi 7
- •Библиографический список
- •Приложение приложение а Листинг программы «Работа интернет клуба» в Microsoft Excel на языке Visual Basic For Application
- •Приложение б Листинг программы «Работа интернет клуба» на языке Delphi 7
3.2. Процесс разработки приложения для работы с файлом Microsoft Excel на языке Delphi 7
Разработанная программа состоит из следующих модулей:
Form1 – форма для отображения основных данных
Form2 – форма для добавления данных
Form3 – форма редактирования
Form4 – форма поиска
Размещение визуальных компонентов и их начальные значения приведены в таблице 2.
Таблица 2 - Изменение стандартных значений компонентов
Название компонента |
Имя компонента |
Свойство |
Значение свойства |
1 |
2 |
3 |
4 |
Form1 |
|||
TToolButton
|
Button1 |
Caption |
Открыть |
TToolButton
|
Button2 |
Caption |
Сохранить |
TToolButton
|
Button3 |
Caption |
Сохранить как |
TToolButton
|
Button4 |
Caption |
Добавить |
TToolButton
|
Button5 |
Caption |
Редактировать |
TToolButton
|
Button6 |
Caption |
Удалить |
TToolButton
|
Button7 |
Caption |
Поиск |
TToolButton
|
Button8 |
Caption |
Выйти |
Продолжение Таблицы 1
1 |
2 |
3 |
4 |
|
|||||
StringGrid |
StringGrid1 |
Caption |
|
|
|||||
TMainMenu |
MM1 |
Caption |
|
|
|||||
Form2 |
|
||||||||
Label |
Label1 |
Caption |
№ компьютера |
|
|||||
Label |
Label2 |
Caption |
Пользователь |
|
|||||
Label |
Label3 |
Caption |
Дата заполнения |
|
|||||
Label |
Label4 |
Caption |
Начало сеанса |
|
|||||
Label |
Label5 |
Caption |
Время пользования |
|
|||||
Label |
Label6 |
Caption |
Тариф |
|
|||||
Label |
Label7 |
Caption |
Скидка за ночное пользование |
|
|||||
Label |
Label8 |
Caption |
Стоимость услуг консультанта |
|
|||||
Label |
Label9 |
Caption |
Стоимость |
|
|||||
Edit |
Edit |
Text |
|
|
|||||
Edit |
Edit |
Text |
|
|
|||||
Edit |
Edit |
Text |
|
|
|||||
Edit |
Edit4 |
Text |
|
|
|||||
Edit |
Edit5 |
Text |
|
|
|||||
Edit |
Edit6 |
Text |
|
|
|||||
Edit |
Edit7 |
Text |
|
|
|||||
Edit |
Edit8 |
Text |
|
|
|||||
Button |
Button1 |
Caption |
Добавить |
|
|||||
Button |
Button2 |
Caption |
Отмена |
|
|||||
Form3 |
|
||||||||
Label |
Label1 |
Caption |
№ компьютера |
|
|||||
Label |
Label2 |
Caption |
Пользователь |
|
|||||
Label |
2 |
3 |
4 |
||||||
Label3 |
Caption |
Дата заполнения |
|||||||
Label4 |
Caption |
Начало сеанса |
|||||||
Label5 |
Caption |
Время пользования |
|||||||
Label6 |
Caption |
Тариф |
|||||||
Label7 |
Caption |
Скидка за ночное пользование |
|||||||
Label8 |
Caption |
Стоимость услуг консультанта |
|||||||
Label9 |
Caption |
Стоимость |
|||||||
Edit |
Edit1 |
Text |
|
||||||
Edit2 |
Text |
|
|||||||
Edit3 |
Text |
|
|||||||
Edit4 |
Text |
|
|||||||
Edit5 |
Text |
|
|||||||
Edit6 |
Text |
|
|||||||
Edit |
Edit7 |
Text |
|
||||||
Edit8 |
Text |
|
|||||||
Button |
Button1 |
Caption |
Редактировать |
||||||
Button2 |
Caption |
Отмена |
|||||||
Form4 |
|||||||||
StringGrid |
StringGrid1 |
Caption |
|
||||||
ComboBox |
cbb1 |
Caption |
|
||||||
Edit |
edt1 |
Caption |
|
||||||
Label |
Lbl1 |
Caption |
Где искать? |
||||||
Lbl2 |
Caption |
Что искать? |
|||||||
Button |
Button1 |
Caption |
Найти |
||||||
Button |
Button2 |
Caption |
Отмена |
Модуль Form1:
1. Глобальные переменные:
zap=record
n:string[100]
num:string[25]
polz:string[25]
data:string[25]
nach:string[25]
timer:string[25]
tar:string[25]
sk:string[25]
usl:string[25]
pr:string[25]
n (№ записи), num (№ компьютера), polz (Пользователь), data (Дата заполнения), nach (Начало сеанса), timer (Время пользования (мин)), tar (Тариф (за минуту)), sk(Скидка за ночное пользование), usl (Стоимость услуг консультанта), pr (Стоимость).
Процедуры и функции:
procedure Load – процедура загрузки файла Exel
procedure Save - Процедура передачи данных в файл Excel
procedure TForm1.N1Click - Обработка событий при нажатии на кнопку ‘Открыть’
procedure TForm1.N2Click - Обработка событий при нажатии на кнопку ‘Сохранить’
procedure TForm1.N3Click - Обработка события при нажатии на кнопку ‘Сохранить как’
procedure TForm1.N9Click - Обработка события при нажатии на кнопку ‘Редактирование’
procedure TForm1.N10Click - Обработка события при нажатии на кнопку ‘Удалить’
procedure TForm1.N8Click - Обработка события при нажатии на кнопку ‘Добавить’ на Form2
procedure TForm1.N6Click - Обработка события при нажатии на кнопку ‘Поиск’ на Form4
procedure TForm1.N4Click - Обработка события при нажатии на кнопку ‘Выход’ (см. ПРИЛОЖЕНИЕ Б)
Модуль Form2:
1. Процедуры и функции:
procedure TForm2.btn1Click (Добавление данных)
Модуль Form3:
1. Процедуры и функции:
procedure TForm3.btn1Click (Редактирование данных)
Модуль Form4:
1. Процедуры и функции:
procedure TForm4.btn2Click (Закрытие формы поиска)
procedure TForm4.btn1Click (Поиск данных)