Базы данных на Delphi 7. Сергей Николаевич Талипов
Чтение книги онлайн.
Читать онлайн книгу Базы данных на Delphi 7 - Сергей Николаевич Талипов страница 3
Название: Базы данных на Delphi 7
Автор: Сергей Николаевич Талипов
Издательство: ЛитРес: Самиздат
Жанр: Программирование
isbn:
isbn:
KeyField := ‘CODE’; // Имя поля БД для отображения
ListSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД
Компонент “DBGrid” служит для отображения значения всех записей и полей БД. Основные свойства этого компонента:
DataSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД
2. ПРИМЕР ИСПОЛЬЗОВАНИЯ МЕТОДОВ И СВОЙСТВ КОМПОНЕНТА «TTABLE»
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;
ЛЕКЦИЯ № 4
1. СОЗДАНИЕ ПОЛЕЙ ВЫБОРА И ВЫЧИСЛЯЕМЫХ ПОЛЕЙ
Поля выбора «Lookup» используются для создания виртуальных полей, данные в которых пользователь не набирает вручную, а выбирает из выпадающего списка. После выбора значения из списка оно отображается на экране, а в файл БД записывается код выбранного значения из выпадающего списка в соответствующее поле БД. Выпадающий список формируется из каких либо двух полей другой таблицы. Одно поле другой таблицы хранит код записи, а другое соответствующий текст, который появляется в выпадающем списке. Lookup-поля используются для подключения к основной таблице вспомогательных таблиц-справочников БД. Рассмотрим применение полей выбора на примере.
Например, имеется следующие таблицы:
Таблица 1. Диски – CD (Table_CD)
| Код диска | Название диска | Код фирмы |
| (Name_CD) | (Kod_Firm) | |
| 0000001 | Итнернет – 2001 | 00001 |
| 0000002 | Суперсистемный диск 2k2 | 00002 |
| 0000003 | English Platinum (2) | 00003 |
| 0000004 | All stars disco 2 | 00004 |
| 0000005 | Золотая бухгалтерия 2001 | 00002 |
Таблица 2. Фирмы – поставщики (Table_Firm)
| Код фирмы (Kod_Firm) | Название фирмы (Name_Firm) |
| 00001 | Красные Челны |
| СКАЧАТЬ
|