Сергей Талипов - Базы данных на Delphi 7

DataField := ‘CODE’; // Имя поля БД для отображения

DataSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД

Компонент “DBImage” служит для отображения значения одного конкретного Image-поля для текущей записи БД. Компонент поддерживает только «bmp» формат. Основные свойства компонент:

DataField := ‘CODE’; // Имя поля БД для отображения

DataSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД

Для “DBImage”:

Stretch := true; // Включение режима масштабирования рисунка

procedure TForm1.N1Click(Sender: TObject);

{ Скопировать картинку из таблицы данных в буфер обмена }

begin

DBImage1.CopyToClipboard;

end;

procedure TForm1.N2Click(Sender: TObject);

{ Вставить картинку из буфера обмена в поле таблицы данных }

begin

DBImage1.PasteFromClipboard;

end;

procedure TForm1.N3Click(Sender: TObject);

{ Загрузить картинку из файла в таблицу данных }

begin

if opendialog1.Execute=true then begin

try ADOTable1.edit; except end;

DBImage1.Picture.LoadFromFile(OpenDialog1.FileName);

try ADOTable1.post; except end;

end;

end;

procedure TForm1.N4Click(Sender: TObject);

{ Сохранить картинку из таблицы данных в файл }

begin

if savedialog1.Execute=true then

DBImage1.Picture.SaveToFile(SaveDialog1.FileName);

end;

procedure TForm1.Button3Click(Sender: TObject);

{ Удаление картинки из базы }

begin

try ADOTable1.Edit;

ADOTable1['Oblochka']:=null;

ADOTable1.Post; except end;

end;

Компонент “DBLookupComboBox” служит для выбора конкретной записи БД по значению из конкретного поля базы данных. Данный компонент представляет собой выпадающий список с перечнем значений поля БД для всех записей:

KeyField := ‘CODE’; // Имя поля БД для отображения

ListSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД

Компонент “DBLookupListBox” служит для выбора конкретной записи БД по значению из конкретного поля базы данных. Данный компонент представляет собой прокручиваемый список с перечнем значений поля БД для всех записей:

KeyField := ‘CODE’; // Имя поля БД для отображения

ListSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД

Компонент “DBGrid” служит для отображения значения всех записей и полей БД. Основные свойства этого компонента:

DataSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД

procedure TForm1.Button1Click(Sender: TObject);

begin

Table1.Append;

Table1.FieldValues['Name'] := Edit1.text;

Table1. ['Year'] := StrToInt(Edit2.text);

Table1.Post;

end;

* * * *

Table1.Edit;

Table1.FieldByName(‘Name’).AsString := ‘Fred’;

Table1.Post;

* * * *

Table1.Insert;

Table1['Name'] := 'Russia';

Table1['Sity'] := 'Moscow';

Table1.Post;

* * * *

if MessageDlg('Сохраннить запись?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then Table1.Post else Table1.Cancel;

* * * *

procedure TForm1.Button1Click(Sender: TObject);

var i: integer; k: real;

begin

k:=0;

with ProgressBar1 do begin

Min := 0; Max := Table1.RecordCount;

Table1.First;

for i := Min to Max do begin

Position := i; s:=s+ Table1[‘sum’];

Table1.Next;

end;

end;

end;

* * * *

with Table1 do begin

DisableControls;

try

First;

while not EOF do Delete;

finally

EnableControls;

end;

end;

Поля выбора «Lookup» используются для создания виртуальных полей, данные в которых пользователь не набирает вручную, а выбирает из выпадающего списка. После выбора значения из списка оно отображается на экране, а в файл БД записывается код выбранного значения из выпадающего списка в соответствующее поле БД. Выпадающий список формируется из каких либо двух полей другой таблицы. Одно поле другой таблицы хранит код записи, а другое соответствующий текст, который появляется в выпадающем списке. Lookup-поля используются для подключения к основной таблице вспомогательных таблиц-справочников БД. Рассмотрим применение полей выбора на примере.

Например, имеется следующие таблицы:

Таблица 1. Диски – CD (Table_CD)

Таблица 2. Фирмы – поставщики (Table_Firm)

Данные таблицы имеют общее поле «Код фирмы». Необходимо сделать так, чтобы при просмотре первой таблицы вместо кодов фирм выходило соответствующее название фирмы. Для этого необходимо в первой таблице поле «код фирмы» сделать невидимым для визуальных компонент, и добавить к таблице «Lookup»-поле. Данное поле просмотра будет смотреть код фирмы в первой таблице у каждой записи, находить соответствующую запись с данным кодом во второй таблице, брать из второй таблицы соответствующее коду название фирмы и подставлять его в качестве своего значения. В результате первая таблица будет отображаться следующим образом:

Таблица 1. Диски – CD (Table_CD)

Если при просмотре таблицы 1 мы поменяем для первой записи значение фирмы «Красные челны» на «Технопром» (через выпадающий список), то в поле «Код фирмы» таблицы 1 запишется значение «00002», взятое из таблицы 2. Таким образом, поля просмотра позволяют хранить в базе данных только нужные коды, а их текстовые значения брать из другой базы данных и подставлять для просмотра и выбора.

Текст предоставлен ООО «ЛитРес».

Прочитайте эту книгу целиком, на ЛитРес.

Безопасно оплатить книгу можно банковской картой Visa, MasterCard, Maestro, со счета мобильного телефона, с платежного терминала, в салоне МТС или Связной, через PayPal, WebMoney, Яндекс.Деньги, QIWI Кошелек, бонусными картами или другим удобным Вам способом.