86
Form_Zapros.DBNavigator1.DataSource:=datamod.dm.DS_summa_modern;
// Указание источника данных для DBGrid1 и DBNavigator1
Form_Zapros.Show;// Показать форму Form_Zapros
end;
Форма Form_Zapros представлена на рисунке 30.
Рисунок 29. Форма Form_Zapros (Для вывода запросов)
Кнопка с изображением принтера «Отчет вWord» формирует отчет
текущего документа в документ MS Word. Программный код представлен
ниже.
procedure TForm_Zapros.ReportToWordClick(Sender: TObject);
var
table:integer;
begin
if CreateWord then
begin
VisibleWord(false);
AddDoc;
StartOfDoc;
PasteTextDoc(Form_Zapros.Caption);
WordTableAddFromDBGrid(DBGrid1,true,table);
87
VisibleWord(true);
//Table1.EnableControls;
end;
end;
Текст кода данной кнопки кажется простым и несложным, однако он
обращается к модулю MyWord, содержащему процедуры и функции вывода
информации вWord.
Например, функция CreateWord отвечает за создание документа Word
и скрывает от программиста подробности. Данный модуль был создан давно
программистами, авторство установить не удалось. Программисты для
оптимизации своей работы стараются использовать уже имеющиеся
библиотеки и модули.
Для работы с базой данных используется модуль datamod (рисунок
31).
Рисунок 280. Модуль доступа к данным datamod
88
ADOConnection1 – это компонент для связи с базой данных Access
Uchet_OS.accdb. Значение свойства ConnectionString:
Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data
Source=Uchet_OS.accdb;Mode=Share Deny None;Jet OLEDB:System
database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database
Password="";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking
Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk
Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create
System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't
Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica
Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;
Поставщик данных выбран Microsoft.ACE.OLEDB.12.0
Путь к базе данных указан напрямую, что не было зависимости от ее
расположения, главное, чтобы база была в одной папке с приложением.
Пользователь Admin, пароль пустой.
Каждому компоненту TADOTable соответствует компонент
TDataSourse. Каждому компоненту TADOTable соответствует таблица базы
данных. Настроены поля, выбрана их ширина (свойство поля DisplayWidth),
достаточная для отображения данных.
Свойства канала передачи данных представлены на рисунках 32-33.
Рисунок 291. Поставщик данных
89
Рисунок 302. Свойства соединения
Для формы, использующей datamod, необходимо выполнить
подключение модуля datamod следующим способом: File-Use unit.
Программный код приведен в приложении.
2.4 Контрольный пример реализации проекта и его описание
Запускаем приложение. Главная форма представлена на рисунке 34.
Форма имеет достаточно понятный интерфейс пользователя.
90
Рисунок 313. Главная форма
Выберем пункт меню Справочники – Вид ОС (рисунок 35).
Рисунок 324. Вид ОС
Откроем справочник Отделы (рисунок 36).
Рисунок 335. Справочник Отделы
Выберем пункт Новое основное средство. Откроется форма
(рисунок 37).
91
Рисунок 346. Новое основное средство
Введем данные по новому средству – фасовочный автомат, код 732
(рисунок 38).
Рисунок 357. Новое основное средство
Откроем по кнопке список ОС – увидим наше новое основное
средство – фасовочный автомат, код 732 (рисунок 39).
92
Рисунок 368. Список ОС
Редактирование и сохранение возможно, удобно (рисунок 40).
Рисунок 39. Редактирование ОС
Откроем форму работы с информацией по движению ОС. Все
функции доступны (рисунок 41).
93
Рисунок 370. Движение ОС
Откроем форму работы с информацией по амортизации ОС. Все
функции работают (рисунок 42).
Рисунок 381. Амортизация ОС
Откроем форму работы с информацией по модернизации ОС. Все
функции работают (рисунок 43).
Рисунок 392. Модернизация ОС
94
Откроем форму работы с информацией по списанию ОС. Все функции
работают (рисунок 44).
Рисунок 403. Списание ОС
Проверим работу запроса – История модернизации. Все доступно
(рисунок 45)
Рисунок 414. История модернизации
После нажатия кнопки с изображением принтера открылся документ
Word с отчетом (рисунок 46).
95
Рисунок 425. Отчет в MS Word
Кнопка Расчет итоговой стоимости ОС открывает форму (рисунок 47).
Рисунок 436. Форма Стоимость ОС
Нажатие кнопки с изображением принтера выводит отчет в Word
(рисунок 48).