If Clipboard.HasFormat(cf_bitmap) then
begin
Bitmap := TBitmap.Create;
try
Bitmap.Assign(Clipboard);
Image1.Canvas.Draw(0, 0, Bitmap);
finally
Bitmap.Free;
end;
end;
end;
Для вырезки содержимого напишите программу:
procedure TFormHolst.Cut1Click(Sender: TObject);
var
ARect: TRect;
begin
Copy1Click(Sender);
with Image1.Canvas do
begin
CopyMode := cmWhiteness;
ARect := Rect(0, 0, Image1.Width, Image1.Height);
CopyRect(ARect, Image1.Canvas, ARect);
CopyMode := cmSrcCopy;
end;
end;
Напоминание: Интерфейс графического редактора по вашему усмотрению!!!
ВОПРОСЫ:
Свойства и методы компонента TOOLBAR1
Основные возможности написанной программы.
Работа с базами данных в Delphi. Перемещение по записям при помощи кнопок.
Цель занятия: Изучение компонентов для работы с базами данных в среде Delphi.
Delphi предоставляет большой набор компонентов, предназначенные для работы с базами данных, которые подразделяются на невизуальные и визуальные компоненты. Невизуальные компоненты содержат в себе описания таблиц, запросов, подключений и прочих элементов. Визуальные компоненты служат для просмотра и редактирования данных, находящихся на форме.
КОМПОНЕНТЫ, ПРЕДНАЗНАЧЕННЫЕ ДЛЯ РАБОТЫ С БАЗАМИ ДАННЫХ:
|
компонент DataSource предназначен для осуществления связи между компонентами доступа к данным и компонентами отображения данных. |
|
компонент Table1 предназначен для доступа к базам данных. |
|
компонент DBMemo используется для отображения и изменения многострочных тестовых полей (поля memo) базы данных. |
|
компонент DBImage предназначен для отображения и редактирования графических изображений базы данных |
|
компонент DBEdit используется для отображения и изменения текстовых полей базы данных. |
|
компонент DBText предназначен для отображения текстовых полей базы данных. |
|
компонент DBNavigator обеспечивает перемещение по записям набора данных, а также реализует вставку, удаление или редактирование записей. |
|
компонент DBGrid предназначен для отображения данных и их редактирования. |
ЗАДАЧА 1. Разработать форму, при выполнении которой осуществляется просмотр базы данных ANIMALS.DBF.
Для решения задачи необходимо:
-поместим на форму следующие компоненты: Table1, DataSource1 и DBGrid1;
-связать компонент Table1 с базой данных ANIMALS.DBF:
-присвоим свойству DatabaseName значение DBDEMOS;
-присвоим свойству TableName значение ANIMALS.DBF;
-присвоим свойству Active значение True;
-связать компонент DataSource1 с компонентом Table1:
-присвоим свойству DataSet значение Table1:
-связать компонент DBGrid1 с компонентом Table1 с помощью компонента DataSource1:
-присвоим свойству DataSource значение DataSource1;
-запустить форму на выполнение.
ЗАДАЧА 2. Разработать форму, при выполнении которой осуществляется просмотр базы данных ANIMALS.DBF не в виде таблицы, а по отдельным записям.
Для решения задачи необходимо:
-поместим на форму следующие компоненты: Table1, DataSource1,три компонента DBEdit и компонент DBNavigator;
-свяжем компонент Table1 с базой данных ANIMALS.DBF:
-присвоим свойству DatabaseName значение DBDEMOS;
-присвоим свойству TableName значение ANIMALS.DBF;
-присвоим свойству Active значение True;
-свяжем компонент DataSource с компонентом Table1:
-присвоим свойству DataSet значение Table1:
-свяжем компоненты DBEdit с компонентом DataField с помощью компонента DataSource:
DBEdit1: -присвоим свойству DataSource значение DataSource1;
-присвоим свойству DataField значение Area;
DBEdit2: -присвоим свойству DataSource значение DataSource1;
-присвоим свойству DataField значение Capital;
DBEdit3: -присвоим свойству DataSource значение DataSource1;
-присвоим свойству DataField значение Continent;
свяжем компонент DBNavigator1 с компонентом DataSource: присвоим свойству DataSource значение DataSource1
ЗАДАЧА 3. Разработать форму, при выполнении которой осуществляется просмотр базы данных, путем перехода от одного поля к другому с помощью кнопок, кроме того, осуществляется добавление и удаление полей базы данных.
Для решения задачи необходимо:
-поместить на форму следующие компоненты: Table1, DataSource1, DBGrid1 и четыре кнопки;
-связать компонент Table1 с базой данных ANIMALS.DBF;
-связать компонент DataSource1 с компонентом Table1;
-связать компонент DBGrid1 с компонентом Table1;
-написать программы, которые отвечают за переход по полям баз данных:
переход к первой записи:
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.First;
end;
переход к следующей записи:
procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Next;
end;
переход к предыдущей записи:
procedure Tform1.Button3Click(Sender: TObject);
begin
table1.Prior;
end;
переход к последней записи:
procedure TForm1.Button4Click(Sender: TObject);
begin
table1.Last;
end;
-написать программы, отвечающие за добавление, удаление записи базы данных:
для добавления записи:
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.Insert;
end;
для удаления записи:
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.Delete;
end;
-запустить форму на выполнение.
ЗАДАНИЕ: Разработать форму, с помощью которой можно просмотреть базу данных, в зависимости от своего варианта, предусмотреть возможность перехода от одного поля к другому с помощью кнопок, добавление новой записи, удаление записи.
ЗАДАЧА 4. Разработать форму, при выполнении которой осуществляется просмотр бд ANIMALS.DBF.
Для решения задачи необходимо:
-поместим на форму следующие компоненты: Table1, DataSource1, DBMemo1, DBImage1 и компонент DBNavigator;
-свяжем компонент Table1 с базой данных ANIMALS.DBF;
-свяжем компонент DataSource с компонентом Table1;
-свяжем компоненты DBMemo и DBImage с полями базы данных, содержащие графическую и текстовую информацию:
DBMemo: -присвоим свойству DataSource значение DataSource1;
-присвоим свойству DataField значение…по вашему выбору;
DBImage: -присвоим свойству DataSource значение DataSource1;
-присвоим свойству DataField значение… по вашему выбору;
-свяжем компонент DBNavigator1 с компонентом DataSource;
-запустим форму на выполнение.
Delphi предлагает несколько возможностей осуществить поиск.
-
метод
описание
поиск по индексированным полям
FindNearest
приблизительный поиск
FindKey
поиск точных совпадений
поиск по неиндексированным полям
Locate
поиск по всем полям
ЗАДАЧА 5. Разработать форму, при выполнении которой осуществляется поиск записи базы данных ANIMALS.DBF, удовлетворяющей некоторому условию в поле ввода Edit1.
Для решения задачи необходимо:
-поместим на форму следующие компоненты: Table1, DataSource1, DBGrid1, три
компонента класса TButton и компонент Edit1;
-свяжем компонент Table1 с бд ANIMALS.DBF;
-свяжем компонент DataSource с компонентом Table1;
-свяжем компонент DBGrid1 с компонентом Table1;
-напишем программы, отвечающие за поиск записей:
по событию OnClick кнопки Button1:
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.FindNearest([Edit1.text]);
end;
по событию OnClick кнопки Button2:
procedure TForm1.Button2Click(Sender: TObject);
begin
table1.FindKey([Edit1.text]);
end;
по событию OnClick кнопки Button3:
procedure TForm1.Button3Click(Sender: TObject);
begin
table1.Locate (‘Category’,edit1.Text,[]);
end;
ВОПРОСЫ:
Свойства и методы компонентов для работы с базами данных в среде Delphi
Как связать компонент DataBase с базой данных.
Как осуществить переходы по записям базы данных