- •Введение.
- •Консольные приложения.
- •Var I : integer;
- •Знакомство со средой программирования Delphi.
- •Создание теста с помощью функции MessageBox.
- •Var I:integer;
- •Var otv: array[1..12] of integer; m: array[1..12]of string; t,ball, I: integer;
- •Кнопка с рисунком. Создание формы для изменения иконки и стиля формы
- •Создание программы – простейший калькулятор.
- •Создание приложения для нахождения корней квадратного уравнения.
- •Создание инженерного калькулятора
- •If (Sender is tButton)
- •Изучение компонента Image и его свойств.
- •Создание приложений для решения математических задач.
- •Создание простейшего текстового редактора «Блокнот»
- •Создание приложения графический редактор.
- •If ssLeft in Shift then begin
- •И зучение графических возможностей Delphi при решении математических задач.
- •Работа со списками классов tListBox и tComboBox.
- •Механизм Drag-And-Drop – копирование и перенос объектов.
- •If Copy.Checked
- •If Cut.Checked
- •Изучение методов и свойств компонента ListBox с помощью Delphi Library Reference Help.
- •Изучение свойств и методов компонента класса tTabbedNotebook.
- •Создание приложения сезоны года с использованием оператора Case.
- •Создание приложения графический редактор – рисование от руки.
- •Initialization
- •Image1.Canvas.MoveTo (X, y);
- •Var NachPoint_Move, KonPoint_Move : tPoint;
- •If Clipboard.HasFormat(cf_bitmap) then
- •Image1.Canvas.Draw(0, 0, Bitmap);
- •Работа с базами данных в Delphi. Перемещение по записям при помощи кнопок.
- •Создание собственной структуры базы данных
- •Создание меню.
- •Создание заставки для проекта работы с окном формы.
- •Var Region: hrgn; //переменная описатель будущего региона, имеет тип hrgn
- •If IsMouseDown
- •Var Fr : tForm2;
- •Создание приложения для работы с базой данных ms Access.
- •Создание псевдонима базы данных FilesDb
- •Создание формы Form2 для просмотра данных запроса, созданного в программе ms Access.
- •Создание sql запросов.
- •Создание параметрических запросов:
- •Проектирование интерфейса приложения для работы с базой данных
- •Работа с типизированными файлами.
- •If OpenDialog1.Execute and fileExsist(OpenDialog1.Filename) then
- •If OpenDialog1.Execute then
- •Создание приложение Органайзер
- •Добавьте проект следующими возможностями:
- •Работа с компонентом StringGrid для создания электронных таблиц
- •If opendialog1.Execute then
- •Программирование графических тестов.
- •Создание программы – тест.
- •И спользование генератора случайных чисел при решении задач.
- •Создание проекта игры dxball.
- •If StartSharLog
- •If IntersectRect(r1, Doska.BoundsRect, Shar.BoundsRect)
- •Var r2 : tRect; r3 : tRect; I : integer;
- •If IntersectRect(r1, r2, r3)
- •Создание простых проектов.
- •Создание приложения Многооконный редактор
- •Создание интерфейса программы:
- •Var lDoc:tList; //объявление переменной типа tList – список, в котором буду храниться указатели на создаваемые пользователем формы документов
- •X, y: Integer);
- •If OpenDialog1.Execute then
- •If FontDialog1.Execute
- •If Left.Checked then
- •Закрепление полученных знаний по темам: графика, диалоги, меню, компоненты Delphi и их свойства
- •If SaveDialog1.Execute then image1.Picture.SaveToFile(savedialog1.FileName);
- •If OpenDialog1.Execute then image1.Picture.LoadfromFile(opendialog1.FileName);
- •Image1.Canvas.LineTo(X,y);
- •Image1.Canvas.MoveTo(X,y);
- •Создание приложение для шифрования данных методами Цезаря и Аффинной системой
- •1. Создание собственного класса.
- •Var I : integer;
- •Ish_text.Free;
- •Var I : byte;
- •Создание интерфейса программы:
- •Var sdvig,I, j, Index : integer;
- •Var I, j, Index, sdvig, a, b : integer;
- •Проверка знаний по теме: Создание программ в среде программирования Delphi
- •1 Задание.
- •Вопросы для самоконтроля.
- •Перечень основной и дополнительной литературы
Создание собственной структуры базы данных
Цель занятия: научиться с помощью Delphi создавать структуру базы данных и приложение для заполнения этой базы данных.
Для выполнения задания необходимо:
Использование утилиты DataBase Desktor (DBD). Используется для создания структуры базы данных.
- Запустите утилиту DataBase Desktor (в меню Tools);
- Для создания новой таблицы выберите File – New - Table.
- Нажмите кнопку выпадающего списка для просмотра списка возможных типов таблиц. По умолчанию в списке должны присутствовать типы таблиц Paradox и dBase. Выберите подходящий тип таблицы (желательно dBase) и нажмите OK.
- После создания первого поля измените (Modify) язык таблицы (table languish) на … Rus 866.
- Задав остальные поля, их соответствующие типы и размеры, сохраните таблицу.
Задание: Создайте структуру таблицы, содержащей не менее 5 полей.
Создание приложения, предназначенного для заполнения таблицы.
- В Delphi в меню DataBase выберите FormWizard для добавления окна для заполнения базы данных.
- Следуя по шагам мастера, создайте форму для работы с созданной вами ранее базой данных.
Расположите поля формы произвольным образом, измените шрифт, начертание и цвет по своему усмотрению.
Самостоятельно дополните написанный проект следующими возможностями:
Создание меню.
Создание SQL запросов: создайте на основе созданной базы данных три запроса на выборку записей.
Для создания первого запроса добавьте на форму компонент Query1, DataSource2, DBGrid1.
ВОПРОСЫ:
Как создать свою базу данных.
Как создать запрос на основе существующей базы данных.
Использование SQL-запросов при написании программ.
Создание заставки для проекта работы с окном формы.
Цель занятия: научиться с помощью Delphi создавать заставку для приложения, а также изменять вид формы на круглый.
Задание:
1. Создание главной формы. Измените высоту и ширину формы на 300 ед.
Для выполнения задания необходимо:
- В разделе uses укажите модуль Window (скорее всего он там указан). В этом модуле находится интерфейсное описание этой функции.
-В обработчик главной формы OnCreate введите следующий код:.
Все переменные, используемые в программе следует описать в разделе var как глобальные.
procedure TForm1.FormCreate(Sender: TObject);
Var Region: hrgn; //переменная описатель будущего региона, имеет тип hrgn
begin
region:=CreateEllipticRgn(30,30,300,300); //создание региона «Эллипс», вписанного в квадрат с (30,30) – (300,300)
if Region=0 then //если регион указан не верно, то функция возвращает 0
Raise Exception.Create('Пустой регион');
SetWindowRgn(Form1.Handle,region,true); //устанавливает созданный регион для окна
end;
- Запустите проект. Для придания «движения» окну создадим следующие процедуры:
-Напишите процедуру для события формы OnMouseDown
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
IsMouseDown := true; LastX := X; LastY := Y;
end;
- Напишите процедуру для события формы OnMouseUp
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
IsMouseDown := false;
end;
- Напишите процедуру для события формы OnMouseMove
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin