- •«Визуальное программирование для бизнеса»
- •Оглавление
- •1 Лабораторная работа №1 (Финансовый калькулятор)
- •12 Лабораторная работа №2 (Текстовый редактор)
- •15 Установить свойства главной формы проекта Form1 в Инспекторе Объектов:
- •55 Лабораторная работа №3
- •58 Установить свойства главной формы проекта Form1 в Инспекторе Объектов:
- •67 Лабораторная работа №4 (Приложение для работы с базами данных)
- •70 Установить свойства главной формы проекта Form1 в Инспекторе Объектов:
- •Литература
ФАКУЛЬТЕТ МЕЖДУНАРОДНОГО ПРОМЫШЛЕННОГО МЕНЕДЖМЕНТА
КАФЕДРА МЕНЕДЖМЕНТА ОРГАНИЗАЦИИ
МЕТОДИЧЕСКИЕ УКАЗАНИЯ
по выполнению лабораторных работ по курсу
«Визуальное программирование для бизнеса»
САНКТ-ПЕТЕРБУРГ
2007
Оглавление
1Лабораторная работа №1 (Финансовый калькулятор) 3
12Лабораторная работа №2 (Текстовый редактор) 8
55Лабораторная работа №3 18
67Лабораторная работа №4 (Приложение для работы с базами данных) 22
Литература 26
1 Лабораторная работа №1 (Финансовый калькулятор)
Цель работы: познакомиться с приемами работы в среде Delphi, приобрести навыки создания простейших Windows-приложений.
Последовательность действий при выполнении лабораторной работы:
2 Создать новый проект (команда File|New|Application) и сохранить его файлы в папке <Папка группы>\<Фамилия студента>\ЛР1\ (команда File|Save Project As).
3 Задать название проекта: 'Финансовый калькулятор' (команда Project|Options, закладка Application, параметр Title).
4 Установить свойства главной формы проекта Form1 в Инспекторе Объектов:
Свойство |
Обозначение |
Значение |
Стиль (обрамления) окна |
BorderStyle |
bsDialog |
Заголовок окна |
Caption |
Финансовый калькулятор, <Фамилия студента> |
Цвет клиентской области |
Color |
<по усмотрению студента> |
Положение на экране (при первом показе) |
Position |
poDesktopCenter или poScreenCenter |
5 Разместить на форме три компонента класса TLabel, три компонента класса TEdit и один компонент класса TButton (закладка Палитры Компонентов Standard). Изменить размеры формы, разместить и выровнять компоненты, как показано на рис. 1:
Рис. 1
6 Установить в свойствах Caption компонентов Label1, Label2 и Label3 значения, определяемые номером варианта (компьютера, на котором работает студент):
Номер варианта |
Label1 |
Label2* |
Label3* |
1 |
Сумма вклада |
Количество лет |
Сумма на счете (8% годовых**) |
2 |
Сумма вклада |
Количество лет |
Сумма на счете (9% годовых**) |
3 |
Сумма вклада |
Количество лет |
Сумма на счете (10% годовых**) |
4 |
Сумма вклада |
Количество лет |
Сумма на счете (11% годовых**) |
5 |
Сумма вклада |
Количество лет |
Сумма на счете (12% годовых**) |
6 |
Сумма вклада |
Количество лет |
Сумма на счете (13% годовых**) |
7 |
Сумма вклада |
Процент годовых |
Сумма на счете (через 3 года**) |
8 |
Сумма вклада |
Процент годовых |
Сумма на счете (через 4 года**) |
9 |
Сумма вклада |
Процент годовых |
Сумма на счете (через 5 лет**) |
10 |
Сумма вклада |
Процент годовых |
Сумма на счете (через 6 лет**) |
11 |
Сумма вклада |
Процент годовых |
Сумма на счете (через 7 лет**) |
12 |
Сумма вклада |
Процент годовых |
Сумма на счете (через 8 лет**) |
13 |
Сумма вклада |
Сумма на счете (через 3 года) |
Процент годовых** |
14 |
Сумма вклада |
Сумма на счете (через 4 года) |
Процент годовых** |
15 |
Сумма вклада |
Сумма на счете (через 5 лет) |
Процент годовых** |
16 |
Сумма вклада |
Сумма на счете (через 6 лет) |
Процент годовых** |
17 |
Сумма вклада |
Сумма на счете (через 7 лет) |
Процент годовых** |
18 |
Сумма вклада |
Сумма на счете (через 8 лет) |
Процент годовых** |
19 |
Себестоимость единицы продукции |
Цена |
Объем производства в точке безубыточности (постоянные издержки 5000 у.е.) |
20 |
Себестоимость единицы продукции |
Цена |
Объем производства в точке безубыточности (постоянные издержки 10000 у.е.) |
21 |
Себестоимость единицы продукции |
Цена |
Объем производства в точке безубыточности (постоянные издержки 15000 у.е.) |
22 |
Себестоимость единицы продукции |
Цена |
Объем производства в точке безубыточности (постоянные издержки 20000 у.е.) |
23 |
Себестоимость единицы продукции |
Цена |
Объем производства в точке безубыточности (постоянные издержки 25000 у.е.) |
24 |
Себестоимость единицы продукции |
Цена |
Объем производства в точке безубыточности (постоянные издержки 30000 у.е.) |
25 |
Цена продукции |
Постоянные издержки |
Объем производства в точке безубыточности (себестоимость единицы продукции 100 у.е.) |
26 |
Цена продукции |
Постоянные издержки |
Объем производства в точке безубыточности (себестоимость единицы продукции 150 у.е.) |
27 |
Цена продукции |
Постоянные издержки |
Объем производства в точке безубыточности (себестоимость единицы продукции 200 у.е.) |
28 |
Цена продукции |
Постоянные издержки |
Объем производства в точке безубыточности (себестоимость единицы продукции 250 у.е.) |
29 |
Цена продукции |
Постоянные издержки |
Объем производства в точке безубыточности (себестоимость единицы продукции 300 у.е.) |
30 |
Цена продукции |
Постоянные издержки |
Объем производства в точке безубыточности (себестоимость единицы продукции 350 у.е.) |
* для экономии места можно не вписывать в свойства Caption компонентов текст в круглых скобках;
** при расчетах используется простой процент.
7 Установить в свойствах Text компонентов Edit1, Edit2 и Edit3 значения '' (пустая строка), установить в свойстве ReadOnly компонента Edit3 значение 'True'.
8 Установить в свойстве Caption компонента Button1 значение 'Рассчитать'.
9 Создать обработчик события OnClick компонента Button1 (дважды щелкнуть на компоненте Button1 или перейти на закладку Events Инспектора Объектов и дважды щелкнуть в правой ячейке строки OnClick). В обработчике события TForm1.Button1Click ввести код (код, выделенный полужирным шрифтом, создается автоматически средой Delphi и его вводить не нужно):
procedure TForm1.Button1Click(Sender: TObject);
begin
try
Edit3.Text := FloatToStr(StrToFloat(Edit1.Text)*
(1+StrToFloat(Edit2.Text)*0.07));
except
Edit3.Text := 'Ошибка!!!';
end;
end;
Часть кода, выделенная курсивом, различается в зависимости от номера варианта студента. Пример обработчика события приводится для условного варианта №0:
Номер варианта |
Label1 |
Label2 |
Label3 |
0 |
Сумма вклада |
Количество лет |
Сумма на счете (7% годовых) |
10 Сохранить изменения проекта (команда File|Save All).
11 Запустить проект на выполнение (клавиша F9).