If IsMouseDown

then begin

Self.Top := Self.Top + Y - LastY;

Self.Left := Self.Left + X - LastX;

LastX := X;

LastY := Y;

end;

end;

- На событие двойного щелчка по форме закройте её:

procedure TForm1.FormDblClick(Sender: TObject);

begin

Application.Terminate;

end;

2. Создание заставки для приложения. Создайте новую форму (File – New – Form), на которую поместите следующие компоненты: Image1, добавьте нужный вам рисунок и расположите его по клиентской области. Измените свойство Stretch на True. Timer1, измените свойство Interval на 2000.

- Измените свойство формы: нет бордюра, расположение по центру (самостоятельно).

На таймер напишите процедуру:

procedure TForm2.Timer1Timer(Sender: TObject);

begin Timer1.Enabled := false; end;

Для исключение формы из списка автоматически создаваемых форм выберите в меню Project – Options – вкладка Forms в правую часть перебросить Form2. Перейдите на файл проекта Project1. Внесите изменение в программный код:

program Project1;

uses Forms, Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2}; {$R *.RES}

Var Fr : tForm2;

begin

Application.Initialize;

Fr := TForm2.Create(Application);

Fr.Show; // Отображение экрана Form2

while Fr.Timer1.Enabled do

Application.ProcessMessages;

Application.CreateForm(TForm1, Form1);

Fr.Hide; // Скрытие экрана Form2

FR.Free; // Освобождение экрана Form2

Application.Run; end.

Самостоятельно дополните ваш проект следующими возможностями:

-Измените цвет главной формы по вашему усмотрению.

-Создайте бегущую строку (Label1), в которой поместите текст: “Задание выполнил студент ФИО группы АСО-__”.

Указания для выполнения задания: требуется поместить на форму таймер и написать процедуру на событие OnTimer.

ВОПРОСЫ:

1. Как изменить вид формы на круглый (с помощью чего)

2. Способ создания заставки для приложения.

22. Создание приложения для работы с базой данных ms Access.

Цель занятия: научиться создавать приложение в Delhi для просмотра данных базы данных, созданной в программе MS Access.

Для выполнения задания необходимо:

1. Создание источника данных – базы данных.

   1. Создайте базу данных Файлы.mdb средствами программы MS Access.

2. Заполните таблицу Файлы 5 записями с информацией о любых пяти файлах каталога U:\ по вашему выбору (смотрите вкладку Общие в свойствах файла), например:

3. Заполните таблицу Пользователи 3-мя записями (смотрите вкладку Безопасность в свойствах файла).

4. Заполните таблицу Безопасность (для каждого файла смотрите на вкладке Безопасность необходимые разрешения) – для каждого файла по три записи.

5. Создайте запрос Chahge, содержащий поля из разных таблиц: Имя пользователя, имя файла, Тип файла, Полный доступ.

1. Создание псевдонима базы данных FilesDb

   1. Запустите BDE Administrator.

   2. В меню Object выберите ODBC Administrator.

      1. На вкладке User DSN нажмите кнопку Add.

      2. В списке драйверов выберите драйвер Driver do Microsoft Access (*.mdb). Нажмите Готово.

      3. В появившемся окне Установка драйвера ODBC для Microsoft Access введите имя и описание источника данных, а также выберите базу данных Файлы.mdb. Нажмите кнопку OK.

   3. В программе BDE Administrator на вкладке Configuration в списке драйверов выберите ODBC, нажмите правую кнопку мыши - New.

   4. В появившемся окне New ODBC Driver введите имя драйвера FilesDB и выберите источник данных для создания псевдонима (Select Data Sources to Create Aliases) – FilesDB.

   5. Перейдите на вкладку Databases в списке псевдонимов выберите FilesDB. Произведите двойной щелчок по выбранному объекту. В появившемся окне Database Login введите User Name SYSDBA – Password masterkey и нажмите кнопку OK.

2. Создание приложения на языке программирования Delphi, предназначенного для просмотра данных созданной таблицы. Запустите программу Delphi

   1. Добавьте на форму для просмотра данных каждой таблицы компоненты классов TLabel, TTable, TDBNavigator, TDBGrid, TDataSource. Расположите компоненты на форме, измените шрифт, начертание и цвет по своему усмотрению.

   2. Установите связи между таблицами по полям связи. Для установления связи между таблицами измените свойства (подчинённых таблиц): MasterSource на (DataSource1, DataSource2) и MasterFields - нажмите на … и выберите поле связи (одинаковое поле для двух таблиц) и нажмите Add