Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Otchet_po_VP_Titulnyy.docx
Скачиваний:
8
Добавлен:
27.09.2019
Размер:
524 Кб
Скачать

3.2. Процесс разработки приложения для работы с файлом Microsoft Excel на языке Delphi 7

Разработанная программа состоит из следующих модулей:

  1. Form1 – форма для отображения основных данных

  2. Form2 – форма для добавления данных

  3. Form3 – форма редактирования

  4. 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 (Стоимость).

  1. Процедуры и функции:

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 (Поиск данных)