Практическая часть

На этом уроке мы создадим формы прихода продуктов на склад. Приход продуктов будет состоять из трех форм. В первой мы будем хранить данные о приходе. Во второй, данные о продуктах для каждого прихода. Третья – форма для выбора продуктов.

Приступим к созданию первой формы.

Создаем новую форму File->New->Form –Delphi

В инспекторе объектов  устанавливаем следующие свойства для новой формы

Caption -> Приход;

FormStyle -> fsMDIChild;

Name -> Form_prihod;

 

Сохраните модуль с именем prihod.

Пропишем Uses general; после раздела implementation в программном модуле unit prihod.

А программном модуле unit general главной формы пропишем Uses ed_izmer, product_group, products, prihod;

Далее размещаем на форме следующие компоненты

Три кнопки TButton из вкладки Standart

В инспекторе объектов для Button1 устанавливаем свойство  Caption  -> Новая запись;

для Button2 устанавливаем  свойство  Caption  -> Удалить запись;

для Button3 устанавливаем  свойство  Caption  -> Закрыть.

 

А из вкладки Data Controls помещаем на форму компонент TDBGrid.

Сейчас сделаем запуск через меню Склад-> Приход   из главной формы. Для этого выбираем в меню Project -> Options…

Выбираем Forms и перемещаем Form_prihod из Auto-create forms  в Avalable forms.

Переходим на главную форму, щелкаем мышкой по компоненту MainMenu1, а затем по пункту Приход

 И пишем следующий обработчик события:

 

procedure TForm_general.N7Click(Sender: TObject); begin f:=0; //проверяем, активна ли наша форма if ActiveMDIChild.Caption<>'Приход' then begin //если нет то ищем ее среди неактивных  и если находим, то показываем ее for i:=0 to form_general.MDIChildCount-1 do if form_general.MDIChildren[i].Caption='Приход' then begin MDIChildren[i].Show;f:=1;end; end                                                                 else f:=1; //если форма еще не создана, то создаем ее if f<>1 then Tform_prihod.Create(Application); end;

 

Далее создаем Data Module,  в нем мы будем создавать подключения к таблице прихода.

File->New->Form –Other…

Delphi Files-> Data Module

В инспекторе объектов  устанавливаем для него следующие свойства

Name -> dm;

Сохраните модуль с именем unit_dm.

Пропишем Uses general, prihod; после раздела implementation в программном модуле unit_dm.

Пропишем Uses general, unit_dm; после раздела implementation в программном модуле unit prihod.

Далее из панели компонентов dbGo (ADO) размещаем на форме компоненты TADOTable и TADOQuery.

В инспекторе объектов для TADOQuery в свойство Name записываем ADOQuery_delete,

Connection устанавливаем -> form_general.ADOConnection1.

В инспекторе объектов ADOTable1 в свойство Name записываем table_prihod,

Connection устанавливаем -> form_general.ADOConnection1

 TableName-> prihod,

Active-> True;

Из вкладки Data Access помещаем на форму компонент TDataSource.

В инспекторе объектов свойство Name записываем  prihod,

DataSet->table_prihod;

 

На форме Приход для DBGrid1 в инспекторе объектов свойство DataSource-> dm.prihod, а свойство Options->dgRowSelect->True.

После этого в DBGrid1 должны отобразиться поля таблицы table_prihod.

Переходим в DataModule (unit_dm) выбираем table_prihod и в структуре (Structure) -> prihod -> Fields -> щелкнем правой кнопкой мыши и выберем Add all fields.

должно получиться следующее:

Далее выбираем поле id и в инспекторе объектов устанавливаем у него свойство Visible->False.

Для поля id_postav_ik  устанавливаем свойство Visible->False.

Для поля  number_docum

DisplayLabel -> Номер документа;

DisplayWidth -> 15;

 

Для поля date_prihoda

 

DisplayLabel -> Дата прихода;

DisplayWidth -> 18;

 

Для поля sum

DisplayFormat->.##

DisplayLabel -> Сумма;

DisplayWidth -> 10;

 

Далее создаем выпадающее поле Lookup для просмотра данных из справочника «Поставщики».

 

Для этого в структуре (Structure) -> prihod -> Fields -> щелкнем правой кнопкой мыши и выберем New  field….

и заполняем

В поле Name: пишем postav_ik;

в поле Type: выбираем String;

выбираем поле Lookup;

в Key Fields:выбираем id_postav_ik;

в Dataset: выбираем form_general.table_postav_ik;

в Lookup Keys: выбираем id;

а в Result Field: выбираем postav_ik_name  жмем ОК

 

В инспекторе объектов для созданного поля свойство DisplyLabel-> Поставщик, DisplyWidth-> 24 и перемещаем поле мышкой в позицию после поля id_postav_ik.

После этого видим для формы «Приход»: