76
if CreateWord then
begin
VisibleWord(false);
AddDoc;
StartOfDoc;
PasteTextDoc('Код '+ DBText1.field.AsString+' '+DBText2.field.AsString);
InsertParagraphAfter;
PasteTextDoc('Нач. стоимость '+ DBText3.field.AsString);
InsertParagraphAfter;
PasteTextDoc('Сумма модернизации '+ DBText4.field.AsString);
InsertParagraphAfter;
PasteTextDoc('Сумма амортизации '+ DBText5.field.AsString);
InsertParagraphAfter;
PasteTextDoc('Итоговая стоимость '+ Label5.Caption);
VisibleWord(true);
end;
end;
Данные для формы Вид_ОС выводятся на универсальную форму
Form_Sprav. Форма выглядит при запуске как представлена на рисунке 22.
Рисунок 201. Форма Вид_ОС
77
Программный код пункта меню Справочники – Отделы приведен
ниже.
procedure TForm1.N8Click(Sender: TObject);
begin
Form_Sprav.Caption:='Отделы'; // Вывести заголовок формы
Form_Sprav.DBGrid1.DataSource:=datamod.dm.DS_Otdel;
// Указать источник данных – таблица Отдел
Form_Sprav.DBNavigator1.DataSource:=datamod.dm.DS_Otdel;
Form_Sprav.Show; // Показать форму Form_Sprav
end;
Данные для формы Отделы выводятся на универсальную форму
Form_Sprav. Форма выглядит при запуске как представлена на рисунке 23.
Рисунок 212. Форма Отделы
Программный код пункта меню Операции – Список ОС приведен
ниже.
procedure TForm1.N13Click(Sender: TObject);
begin
Form_Spisok_OS.Show; // Показать форму Form_Spisok_OS
end;
Форма Form_Spisok_OS представлена на рисунке 24.
78
Рисунок 223. Форма Form_Spisok_OS (Список ОС)
На форме расположен компонент DBGrid1и DBNavigator1. Для них
указывается источник данных dm.DS_Prosm_OS.
Программный код пункта меню Операции – Новое ОС приведен
ниже.
procedure TForm1.N11Click(Sender: TObject);
begin
datamod.dm.Table_OS.Insert;
FormNewOS.show; // Показать форму FormNewOS
end;
Форма FormNewOS представлена на рисунке 25.
79
Рисунок 234. Форма FormNewOS (Новое ОС)
На форме использованы компоненты Label1 – Label5 для вывода
надписей, кнопки Button1, Button2. Для вывода кода ОС, имеющего тип
счетчик и нередактируемого – компонент DBText1. Еще использованы три
компонента DBEdit и один DBLookupComboBox1 для подстановки значений
вторичного ключа.
Программный код кнопки Сохранить приведен ниже.
procedure TFormNewOS.Button1Click(Sender: TObject);
begin
datamod.dm.Table_OS.Post; // Сохранение таблицы
datamod.dm.Table_OS.Refresh; // Обновление данных таблицы для
просмотра внесенных изменений
end;
Программный код кнопки Закрыть приведен ниже.
procedure TFormNewOS.Button2Click(Sender: TObject);
begin
FormNewOS.Close;// Закрыть форму FormNewOS
end;
Программный код пункта меню Операции – Редактировать ОС
приведен ниже.
procedure TForm1.N12Click(Sender: TObject);
begin
Form_OS_redakt.Show; // Показать форму Form_OS_redakt
datamod.dm.Table_OS.Edit;
// Перевод таблицы ОС в режим редактирования
end;
Форма Form_OS_redakt представлена на рисунке 26.
80
Рисунок 245. Форма Form_OS_redakt (Редактирование ОС)
На форме использованы компоненты Label1 – Label4 для вывода
надписей, кнопки Button1, Button2, Button3. Для вывода кода ОС, имеющего
тип счетчик и нередактируемого – компонент DBText1. Еще использованы
три компонента DBEdit, DBNavigator для управления записями и один
DBLookupComboBox1 для подстановки значений вида ОС - вторичного
ключа.
Программный код кнопки Сохранить изменения приведен ниже.
procedure TForm_OS_redakt.Button1Click(Sender: TObject);
begin
datamod.dm.Table_OS.Post; // Сохранение таблицы
datamod.dm.Table_OS.Refresh;
// Обновление данных таблицы для просмотра внесенных изменений
end;
Программный код кнопки Удалить запись приведен ниже
procedure TForm_OS_redakt.Button3Click(Sender: TObject);
begin
if MessageDlg('Подтвердите удаление записи', mtConfirmation,[mbOK,
mbCancel],0) = mrOK then
datamod.dm.Table_OS.Delete;
end;
Программный код кнопки Закрыть приведен ниже.
81
procedure TForm_OS_redakt.Button2Click(Sender: TObject);
begin
Form_OS_redakt.Close;
end;
Программный код пункта меню Операции – Движение ОС приведен
ниже.
procedure TForm1.N4Click(Sender: TObject);
begin
Form_Dvig.Show;// Показать форму Form_Dvig
datamod.dm.Table_Dvig.Edit;
// Таблицу Table_Dvig открыть для редактирования
end;
Форма Form_Dvig представлена на рисунке 27.
Рисунок 256. Форма Form_Dvig (Движение ОС)
На форме использованы компоненты Label1 – Label5 для вывода
надписей, кнопки Button1, Button2, Button3. Для вывода кода движения ОС,
имеющего тип счетчик и нередактируемого используется компонент
DBText1. Еще использованы два компонента DBEdit (Для даты и основания
движения), DBNavigator для управления записями и два
82
DBLookupComboBox1: первое - для подстановки наименования отделов и
второе – для подстановки значения кода ОС (для справки справа выводится
соответствующее наименование ОС) Программный код кнопки Сохранить
изменения приведен ниже.
procedure procedure TForm_Dvig.Button1Click(Sender: TObject);
begin
datamod.dm.Table_Dvig.Post; // Сохранение таблицы
datamod.dm.Table_Dvig.Refresh; // Обновление данных таблицы для
просмотра внесенных изменений
end;
Программный код кнопки Закрыть приведен ниже.
procedure TForm_Dvig.Button2Click(Sender: TObject);
begin
Form_Dvig.Close; // Закрыть форму Form_Dvig
end;
Программный код кнопки Удалить запись приведен ниже
procedure TForm_Dvig.Button3Click(Sender: TObject);
begin
if MessageDlg('Подтвердите удаление записи', mtConfirmation,[mbOK,
mbCancel],0) = mrOK then
datamod.dm.Table_Dvig.Delete;
end;
Программный код пункта меню Операции – Модернизация ОС
приведен ниже.
procedure TForm1.N6Click(Sender: TObject);
begin Form_Modern.Show;
datamod.dm.Table_Modern.Edit;
end;
Форма Form_Modern представлена на рисунке 28.
83
На форме использованы компоненты Label1 – Label4 для вывода
надписей, кнопки Button1, Button2, Button3. Для вывода кода ОС, имеющего
тип счетчик и нередактируемого – компонент DBText1. Еще использованы
два компонента DBEdit (для датыи стоимости модернизации), DBNavigator
для управления записями и один DBLookupComboBox1 для подстановки
значений кода ОС.
Рисунок 267. Форма Form_Modern (Модернизация ОС)
Программный код кнопки Сохранить изменения приведен ниже.
procedure TForm_Modern.Button1Click(Sender: TObject);
begin
datamod.dm.Table_Modern.Post; // Сохранение таблицы
datamod.dm.Table_Modern.Refresh;
// Обновление данных таблицы для просмотра внесенных изменений
end;
Программный код кнопки Закрыть приведен ниже.
procedure TForm_Modern.Button2Click(Sender: TObject);
begin
Form_Modern.Close;
datamod.dm.Table_Modern.Close; ;// Закрыть форму
end;
84
Программный код кнопки Удалить запись приведен ниже
procedure TForm_Modern.Button3Click(Sender: TObject);
begin
if MessageDlg('Подтвердите удаление записи', mtConfirmation,[mbOK,
mbCancel],0) = mrOK then
datamod.dm.Table_Modern.Delete;
end;
Программный код пункта меню Операции – Амортизация ОС
приведен ниже.
procedure TForm1.N5Click(Sender: TObject);
begin
Form_Amort.Show;
datamod.dm.Table_Amort.Edit;
end;
Форма Form_Amort представлена на рисунке 29.
Рисунок 278. Форма Form_Amort (Амортизация ОС)
На форме использованы компоненты Label1 – Label4 для вывода
надписей, кнопки Button1, Button2, Button3. Для вывода кода ОС, имеющего
тип счетчик и нередактируемого – компонент DBText1. Еще использованы
два компонента DBEdit (для даты и стоимости амортизации), DBNavigator
для управления записями и один DBLookupComboBox1 для подстановки
значений вторичного ключа – кода ОС.
85
Программный код кнопки Сохранить изменения приведен ниже.
procedure TForm_Amort.Button1Click(Sender: TObject);
begin
datamod.dm.Table_Amort.Post; // Сохранение таблицы
datamod.dm.Table_Amort.Refresh;
// Обновление данных таблицы для просмотра внесенных изменений
end;
Программный код кнопки Закрыть приведен ниже.
procedure TFormNewOS.Button2Click(Sender: TObject);
begin
FormNewOS.Close;// Закрыть форму FormNewOS
end;
Программный код кнопки Удалить запись приведен ниже
procedure TForm_Amort.Button3Click(Sender: TObject);
begin
if MessageDlg('Подтвердите удаление записи', mtConfirmation,[mbOK,
mbCancel],0) = mrOK then
datamod.dm.Table_Amort.Delete;
end;
Кнопка Список ОС на форме вызывает список ОС – результат
запроса. Все остальные кнопки также обращаются к соответствующим
запросам.
Программный код указывает заголовок единой универсальной формы
Form_Zapros, источник данных для таблицы DBGrid и DBNavigator. Ниже
приведен программный код кнопки Сумма модернизации.
procedure TForm1.Button1Click(Sender: TObject);
begin
Form_Zapros.Caption:='Сумма модернизации';//Вывод заголовка формы
Form_Zapros.DBGrid1.DataSource:=datamod.dm.DS_summa_modern;