- •Содержание
- •Постановка задачи
- •Инструкции пользователю
- •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.1 Процесс разработки приложения в рабочей книге Microsoft Excel на языке Visual Basic for Application
Разработанная программа состоит из следующих модулей:
main («Основное окно») – лист для хранения основных данных
resfind («Окно поиска») – лист для вывода результатов поиска
FAdd – форма для добавления данных
FFind – форма для организации поиска
Размещение в основных модулях визуальных компонентов и их начальные значения приведены в таблице 1.
Таблица 1 - Изменение стандартных значений компонентов
Название компонента |
Имя компонента |
Свойство |
Значение свойства |
1 |
2 |
3 |
4 |
main: «Основное окно» |
|||
CommandButton |
BAdd |
Caption |
Добавить запись |
CommandButton |
BEdit |
Caption |
Изменить |
CommandButton |
BDel |
Caption |
Удалить запись |
CommandButton |
BFind |
Caption |
Поиск |
Fresfind |
|||
CommandButton |
CommandButton1 |
Caption |
Найти |
CommandButton |
CommandButton2 |
Caption |
Отмена |
FAdd |
|||
Label |
Label1 |
Caption |
№ компьютера |
Label |
Label2 |
Caption |
Пользователь |
Label |
Label3 |
Caption |
Начало сеанса |
Продолжение Таблицы 1
1 |
2 |
3 |
4 |
Label |
Label5 |
Caption |
Время пользования |
Label |
Label6 |
Caption |
Тариф |
Label |
Label7 |
Caption |
Скидка за ночное пользование |
Label |
Label8 |
Caption |
Стоимость услуг консультанта |
TextBox |
TextBox1 |
Text |
|
TextBox |
TextBox2 |
Text |
|
TextBox |
TextBox3 |
Text |
|
TextBox |
TextBox4 |
Text |
|
TextBox |
TextBox5 |
Text |
|
TextBox |
TextBox6 |
Text |
|
TextBox |
TextBox7 |
Text |
|
TextBox |
TextBox8 |
Text |
|
CommandButton |
CommandButton3 |
Caption |
Сохранить |
CommandButton |
CommandButton4 |
Caption |
Отмена |
Label |
Label1 |
Caption |
№ компьютера |
Label |
Label2 |
Caption |
Пользователь |
Label |
Label3 |
Caption |
Дата заполнения |
Label |
Label4 |
Caption |
Начало сеанса |
Label |
Label5 |
Caption |
Время пользования |
Label |
Label6 |
Caption |
Тариф |
Label |
Label7 |
Caption |
Скидка за ночное пользование |
Label |
Label8 |
Caption |
Стоимость услуг консультанта |
Продолжение Таблицы 1.
1 |
2 |
3 |
4 |
Label |
Label3 |
Caption |
Начало сеанса |
Label |
Label5 |
Caption |
Время пользования |
Label |
Label6 |
Caption |
Тариф |
Label |
Label7 |
Caption |
Скидка за ночное пользование |
Label |
Label8 |
Text |
Стоимость услуг консультанта |
Label |
Label9 |
Text |
Стоимость |
TextBox |
TextBox1 |
Text |
|
TextBox |
TextBox2 |
Text |
|
TextBox |
TextBox3 |
Text |
|
TextBox |
TextBox4 |
Text |
|
TextBox |
TextBox5 |
Text |
|
TextBox |
TextBox6 |
Text |
|
TextBox |
TextBox7 |
Text |
|
TextBox |
TextBox8 |
Text |
|
CommandButton |
CommandButton5 |
Caption |
Сохранить |
CommandButton |
CommandButton6 |
Caption |
Отмена |
Модуль main:
Глобальные переменные:
rb (номер первой строки в основной таблице)
cb (номер первого столбца)
ckol (количество столбцов)
rkol (количество строк)
ind (номер изменяемой записи)
row1
Процедуры и функции:
Public Sub kol (подпрограмма подсчета количества строк в таблице)
Private Sub bDel_Click (подпрограмма удаления выбранной записи)
Private Sub bEdit_Click (вызов формы для редактирования записи)
Private Sub bFind_Click (вызов формы введения критериев поиска)
Private Sub Worksheet_Change (подпрограмма, срабатывающая при изменении содержимого листа)
Модуль fAdd:
Процедуры и функции:
Private Sub bCancel_Click (подпрограмма для обработки собития нажатия кнопки "Отмена")
Private Sub bSave_Click (подпрограмма для обработки события нажатия кнопки "Сохранить")
Модуль fFind:
Процедуры и функции:
Private Sub bFind_Click (подпрограмма для обработки события нажатия кнопки "Найти")
BAdd, BEdit, BDel, BFind - Пользовательские функции и процедуры, использованные в программе.
CommandButton1, CommandButton2 - Обработка события нажатиям на кнопку «Поиск» на рабочем листе.
CommandButton3, CommandButton4 - Обработка события нажатия на кнопку «Добавить» на рабочем листе.
CommandButton5, CommandButton6 - Обработка события по нажатию на кнопку «Редактировать» на EditForm
Обработка события по нажатию кнопки «удалить запись» (см. ПРИЛОЖЕНИЕ А).