Поле dbEdit и кнопки управления

1. Создать справочник комбината, отображающий сведения о предприятии с возможностью внесения изменения данных в поля таблицы

2. File -> new -> form

Save as UnitKombinat

Caption: Справочник комбината

Name: FormKombinat

FormStyle: MDIChild

Position: PostOnly

3. Вызвать справочник из меню главной формы:

Caption: Kombinat

Application.CreateForm(TFormKombinat,formKombinat);

4. Справочник комбината

Events -> OnClose -> FormClose

5. Убрать автозапуск: project -> option

6. Begin

Action:=cafree;

End;

7. Создать интерфейс формы

С вкладки DataControls -> DBEdit

Перед расположением элементов необходимо в модуль UnitBD добавить компоненты связи с базой данных «DataBD»

ADO -> ADOtable

Name: ADOZavod

Connection -> ADOKombinat

Table name -> director

Active -> true

Data Access -> data source (перенос в «Data BD»)

Name -> DataZavod

«Справочник Комбинат»

File -> UseUnit -> UseBD

DBEdit свойства

Data source -> DataBD.DataZavod

Data Field -> name

Создать пять окон (name, adress, telephone, mail)

Кнопки (изменить, Сохранить, Закрыть)

1. DBEdit.SetFocus; - изменить

2. If DateBD.ADOZavod.Modified then DateBD.ADOZavod.Post – сохранить

3. Close; - закрыть

Пример 2: в справочнике поставщиков создаем вместо навигатора кнопки управления (первая, последняя, следующая, предыдущая, добавить, отменить, удалить, сохранить)

1. DateBD.ADOPostavchik.FindFirst;

2. DateBD.ADOPostavchik.FindLast;

3. DateBD.ADOPostavchik.FindNext;

4. DateBD.ADOPostavchik.FindPrior;

5. DateBD.ADOPostavchik.Append; DBGrid1.SetFocus

6. DateBD.ADOPostavchik.Cancel;

7. If DateBD.ADOPostavchik.Eof then abort; if messagebox(0,’Вы хотите удалить данную запись? ‘,’Запрос на удаление’,33)=1 then DateBD.ADOPostavchik.Delete

8. DateBD.ADOPostavchik.Post

Сделать те же кнопки в справочнике клиентов

Создаем пиктограммы в главной форме

Переходим в главную форму и с вкладки WIN выбираем элемент Imagelist

Дважды щелкаем по Image и в левом углу добавляем иконки 12х12.

В каждом подпункте меню в графе свойств Image выбираем нужную иконку.

Сортировка записей таблицы

Для сортировки записей используют index, field name - строковое значение имена поля, которое можно изменить программно.

Пример:

Создать в справочнике клиентов (поставщиков) две кнопки, которые будут производить сортировку по фамилии и по адресу. Для этого располагаем на форме

Label сортировка записей

Buttom1 по фамилии

Buttom2 по адресу

Обработка кнопок

datebd.adopostavhik.indexfieldnames:=’fam’;

datebd.adopostavhik.indexfieldnames:=’address’;

Создание вычисляемых полей

в редакторе полей имеется возможность создания новых полей, которые формируют свои значения на основе значений реально существующих вычисляемых полей. Значения данных полей могут сохранятся в БД, но также могут просто отображаться на форме или отчете.

Пример:

Создать вычисляемое поле, выводящее в одной строке фамилию, имя, отчество.

1. Для этого откроем редактор полей

DateBD -> ADOPostavhik

Вызвать контекстное меню (правой кнопкой) -

2. В окне новое поле заполнить две рамки:

Name - kod name

Size - 50

Type - string

Field type – calculated

Ok

3. Для организации работы вычисляемого поля необходимо создать обработчик компонента adoPostavhik (метод) - onCaleField . Для этого выделить компонент adopostavhik и на вкладке events 2щелкнуть по onCaleField.

begin

Adopostavchikodname.value:=adopostavchikfam.value+’ ’+ adopostavchikname.value+’ ’+ adopostavchikotch.value;

4. Для отображения вычисляемого поля добавить на форму label

В обработке кнопки вывод дописать команду:

Label5.caption:=datebd.adopostavchikkodname.value;