Среда, 22.11.2017, 01:49
Приветствую Вас Гость

Не ошибается тот, кто ничего не делает.
Но и ничего не делать - ошибка.

Эмиль Кроткий

Меню сайта
Категории раздела
База данных "Склад" [14]
Статьи, связанные с программированием баз данных
Форма входа

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


















Тиц
Главная » Статьи » Базы данных » База данных "Склад"

Delphi. Урок 1.7. Программирование баз данных в Delphi - создаем формы прихода продуктов на склад.
Содержание

Урок 1.1. Пишем программу складского учета.
Будем писать программу учета продуктов на складе по средней цене прихода. А для этого нам нужно научиться работать с базами данных. Начнем работу с создания базы в MS Access 2007.

Урок 1.2. Создаем главную форму программы склад.
На этом уроке мы создадим главную форму для нашего склада. Создадим подключение, к базе, используя компонент TADOConnection. Используемые компоненты ( TADOConnection ).

Урок 1.3. Создаем главную форму программы склад.
На этом уроке мы продолжим создание главной формы для нашего склада. Разместим основные компоненты, создадим меню... Используемые компоненты (TADOTable, TMainMenu).

Урок 1.4. Создаем подчиненные формы для справочников программы склад.
На этом уроке мы создадим форму для справочника "Единицы измерения"  нашего склада. Используемые компоненты (TButton, TDBGrid, TDataSource ).

Урок 1.5. Создаем подчиненные формы для справочников программы склад.
На этом уроке мы создадим форму для справочника «Категории продуктов» и «Поставщики»  нашего склада. Используемые компоненты (TButton, TDBGrid, TDataSource ).

Урок 1.6. Создаем подчиненные формы для справочников программы склад.
На этом уроке мы создадим форму для справочника «Продукты»  нашего склада c использованием поле Lookup  из других таблиц. Используемые компоненты (TButton, TDBGrid, TDataSource ).

Урок 1.7. Создаем формы прихода продуктов на склад.
На этом уроке мы создадим формы прихода продуктов на склад. Приход продуктов будет состоять из трех форм. В первой мы будем хранить данные о приходе. Во второй, данные о продуктах для каждого прихода. Третья – форма для выбора продуктов. Используемые компоненты (TButton, TDBGrid, TADOTable, TADOQuery, DataModule).

Урок 1.8. Создаем формы прихода продуктов на склад.
На этом уроке мы создадим вторую форму,  в которой будут отражаться данные о продуктах для каждого прихода. Используемые компоненты (TButton, TDBGrid, TADOTable, TADOQuery, DataModule, TDateTimePicker, TDBLookupComboBox).

Урок 1.9. Создаем формы прихода продуктов на склад.
На этом уроке мы создадим последнюю форму для прихода продуктов. В  ней  будет происходить   выбор продуктов прихода. Используемые компоненты (TButton, TDataSource, TDateTimePicker, TDBLookupComboBox, TDBEdit).

Урок 1.10. Программирование баз данных в Delphi - создаем формы прихода продуктов на склад.
На этом уроке мы напишем процедуры для обработки событий для наших форм прихода, созданных на уроках 1.7. – 1.9.

Урок 1.13. Программирование баз данных в Delphi (Создаем модуль печати данных о приходе и расходе).
На этом уроке мы реализуем  печать данных прихода, расхода и состояния склада.  Печать будем реализовывать через MS Excel, то есть это будет не совсем печать, а экспорт данных в MS Excel, а там пользователь может сам выбрать, печатать или сохранить отчет. В начале приготовим шаблоны  MS Excel, в которые будем выводить отчеты

Урок 1.14. Программирование баз данных в Delphi (Создаем модуль для сжатия и восстановления базы данных).


Урок 1.7.

Программирование баз данных в Delphi - создаем формы прихода продуктов на склад. 

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

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

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

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

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.

Программирование баз данных в Delphi - создаем формы прихода продуктов на склад.

Сейчас сделаем запуск через меню Склад-> Приход   из главной формы. Для этого выбираем в меню 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->FormOther…

Программирование баз данных в Delphi - создаем формы прихода продуктов на склад.

Delphi Files-> Data Module

Программирование баз данных в Delphi - создаем формы прихода продуктов на склад.

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

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.


Программирование баз данных в Delphi - создаем формы прихода продуктов на склад.

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

Программирование баз данных в Delphi - создаем формы прихода продуктов на склад.

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

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

Для поля  number_docum

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

DisplayWidth -> 15;

 

Для поля date_prihoda

 

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

DisplayWidth -> 18;

 

Для поля sum

DisplayFormat->0.00

DisplayLabel -> Сумма;

DisplayWidth -> 10;

 

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

 

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

Программирование баз данных в Delphi - создаем формы прихода продуктов на склад.

и заполняем следующее окно

Программирование баз данных в Delphi - создаем формы прихода продуктов на склад.

В поле 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.

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

Программирование баз данных в Delphi - создаем формы прихода продуктов на склад.

Скачать исходники урока можно здесь.


Категория: База данных "Склад" | Добавил: xaramamburu (27.06.2011)
Просмотров: 18135 | Комментарии: 7 | Рейтинг: 5.0/2
Всего комментариев: 7
4  
Так мы здесь обработчики событий на кнопки (Новая запись, Удалить запись, Закрыть) не пишем???

5  
Нет. Смотрите содержание уроков.

6  
не получается прописать так же как в предыдущих уроках,может изза того что datasourse на другой  dm находится?

0
7  
Не получается прописать что?

3  
Спасибо!

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

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

ЭТО МЫ СДЕЛАЛАЛИ. А РАЗВЕ НЕ НАДО ПРОПИСАТЬ Uses unit_dm; после раздела implementation в программном модуле unit general???

2  
Как хотите. Если вам нужен доступ из главной формы в дата модуль, то тогда надо прописывать, если вы не будите обращаться из главной формы к дата модулю, то ненужно.)))

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск
Наш опрос
Оцените мой сайт
Всего ответов: 532
Уголок общения



Copyright MyCorp © 2017Конструктор сайтов - uCoz