Система автоматизации учета расходов на производство продукции для судоремонтного завода

Целью дипломной работы является разработка программного обеспечения, которое представляет собой автоматизированную информационную систему учета расхода сырья на производство продукции судоремонтным заводом для повышения эффективности работы предприятия и снижения временных затрат на операционно-учетную деятельность.
Для реализации програмного продукта использовались интегрированная среда разработки ПО Delphi, реляционная СУБД Microsoft Access, язык SQL.

При необходимости, работа может быть оперативно переделана и доработана под нужную область. Имеется 2 варианта работы, на русском и украинском языках. Имеются исходные файлы реализации программы, презентация, отчет по преддипломной практике(за дополнительную плату).
Работа была защищена в декабре 2014 года на оценку "Отлично" в одном из У ...

СОДЕРЖАНИЕ 4
Введение 5
1 Анализ предметной области 6
2 Постановка целей и заданий 14
3 обоснование предметной ОБЛАСТИ И ОПИСАНИЕ ПРОГРАММНЫХ СРЕДСТВ РЕАЛИЗАЦИИ ПРОГРАММНОГО ПРОДУКТА 17
3.1 обоснование предметной области 17
3.2 Описание средств реализации программного продукта 18
3.2.1 Интегрированная среда разработки программного обеспечения Borland Delphi 18
3.2.2 СУБД Microsoft Access 23
3.2.3 Язык SQL 26
3.2.4 Методология функционального моделирования IDEF0 29
4 РАЗРАБОТКА СИСТЕМЫ АВТОМАТИЗАЦИИ УЧЕТА ЗАТРАТ ПО ПРОИЗВОДСТВУ ПРОДУКЦИИ судоремонтного завода 34
4.1 Построение функциональной модели предметной области 34
4.2 Разработка ЕR-модели 39
4.3 Задача структуры входящей информации 39
4.4 Описание структуры базы данных 41
4.5 Описание выходной информации 42
4.6 Программная реализацияавтоматизированной системы 42
4.6.1 Описание модульного построения программного продукта 42
4.6.2 Описание интерфейсной части программного продукта 46
5 ОХРАНА ТРУДА 53
ВЫВОДЫ 54
ПЕРЕЧЕНЬ ССЫЛОК 55
ПРИЛОЖЕНИЕ А 5

Автоматизированная система управления учетом (Automated Accounting Management System) - система управления, обеспечивающая автоматизацию и оптимизацию всех процессов учетной работы профильного предприятия. Благодаря система управления учетом стало возможным обеспечение эффективного руководства товарооборотом на предприятиях различных отраслей.
AAMS - система управления учетом в режиме реального времени управляет материальным, финансовым и информационным потоками, которые проходят через производство. Система обеспечивает всестороннюю проверку товарных запасов на всех этапах технологического цикла с учетом всех характеристик товара и требований к его хранению. AAMS позволяет упорядочить и оптимизировать ход учета, существенно повышая его эффективность за счет уменьшения продолжительности и т рудоемкости операций на складе, поднятие оперативности перемещения и хранения товара в процессе транспортировки.
Архитектура дипломного проекта системы автоматизации учета затрат на производство продукции для судоремонтного завода построена по трехуровневой принципу.
Первый компонент представляет собой видимую для пользователя часть - «клиентскую программу», с помощью которого пользователь осуществляет ввод, изменение и удаление данных, дает запросы на выполнение операций и запросы на выборку данных (получение отчетов).
Второй компонент - сервер базы данных, осуществляет хранение данных. Пользователь через клиентскую программу инициюе процедуру запроса на выборку, введение, изменения или удаления данных в базе данных (БД).
Третий компонент - бизнес-логика, осуществляет инициированную пользователем обработку данных и возвращает обработанные данные в БД, сообщая пользователю через экран клиентского приложения о завершении запрошенной обработки

TForm2.BitBtn13Click
Збереження даних за нормами витрат
TForm2.DBLookupComboBox1Click
Фільтрація моделей
Продовження таблиці 4.5
TForm2.Edit2KeyPress
Контроль введення даних
TForm2.Button20Click
Перехід в режим додавання норм витрати
TForm2.BitBtn14Click
Перехід в режим перегляду норм витрати
TForm2.Button21Click
Перехід в режим редагування норм витрати
TForm2.Button22Click
Каскадне видалення норм
TForm2.DBGrid9CellClick
Перехід в режим перегляду розмірів
TForm2.Button26Click
Перехід в режим додавання розміру
TForm2.Button27Click
Перехід в режим редагування розміру
TForm2.Button28Click
видалення розміру
TForm2.BitBtn17Click
Збереження даних по розмірам
Form2.BitBtn18Click
Повернення в режим перегляду розмірів
TForm2.PageControl1Change
Перехід по сторінках
Модуль Master
Zapros
Запит по акту виробництва
Zapros2
Запит щодо звіту підприємства
Akt
Збереження акта виробництва
TForm3.FormActivate
Визначення початкових даних
TForm3.LabeledEdit1Change
Перехід до іншого акту
TForm3.Button6Click
Збереження даних по акту виробництва
TForm3.Button2Click
Перехід в режим додавання рядків акта
TForm3.Button3Click
Перехід до режиму зміни рядків акта
TForm3.BitBtn2Click
Переход к режиму просмотра акта
TForm3.LabeledEdit2KeyPress
TForm3.LabeledEdit4KeyPress
TForm3.LabeledEdit1KeyPress
Контроль ввода
Продовження таблиці 4.5
TForm3.BitBtn1Click
Збереження рядка акта виробництва
TForm3.DBLookupComboBox4Click
Фільтрація моделей
Form3.Button4Click
Видалення рядків акта виробництва
TForm3.Button1Click
Перехід до нового акту
TForm3.Button5Click
Висновок акта в Excel
TForm3.Button7Click
Формування і виведення паспортів
TForm3.FormCreate
Дані за замовчуванням
TForm3.DateTimePicker4Change
Формування звіту по підприємству
TForm3.Button8Click
Висновок звіту по підприємству
4.6.2 Опис інтерфейсної частини програмного продукту
Зовнішній вигляд головної сторінки розробленої системи у Delphi з можливістю авторизації наведено на рис. 4.11.
Рисунок 4.11 – Інтерфейс головного вікна програми з авторизацією
Щоб отримати доступ до системи необхідно вибрати користувача, ввести пароль і натиснути кнопку ОК. Для того, що б увійти в якості адміністратора потрібно вибрати пункт «Адміністратор» і ввести пароль «1», а для майстра - вибрати пункт «Майстер» та ввести пароль «2». Після перевірки система видає одне з повідомлень, представлених на малюнку 4.12, або входить в обраний режим роботи.
а) при невірному паролі
б) якщо пароль не введений
Рисунок 4.12 – Інформаційні вікна
При виборі режиму «Адміністратор» з'являється вікно з вкладками довідників (малюнки 4.13, 4.14, 4.18, 4.19). Довідник «Моделі» відображає дані тільки відповідно до обраної рядком в довіднику «Продукції». Довідник «Розміри» також є незалежним.
Рисунок 4.13 – Види деталей
Рисунок 4.14 – Список продукції, моделей і розмірів
Для додавання нового виду , виду продукції, моделі, розміру необхідно кликнути мишею по кнопці «Додати» і заповнити необхідні поля на панелі «Додавання» (рис. 4.15). Для зміни даних необхідно перейти до потрібного запису і кликнути мишею по кнопці «Змінити», потім скорегувати поля на панелі «Редагування» (рис. 4.16).
Рисунок 4.15 – Додавання даних
Рисунок 4.16 – Редагування даних
При спробі видалення продукції зі списку з'являється попереджувала вікно, представлене на малюнку 4.17. По кнопці «ОК» запис видаляється з БД, по кнопці «Cancel» - видалення скасовується.
Рисунок 4.17 – Повідомлення при видаленні інформації
На вкладці «Норми» представлені довідник, як показано на малюнку 4.18. Він містить нормативні дані по витраті .
Додавання, редагування та видалення даних проводиться аналогічно іншим довідників.
На вкладці «Підприємство» можна змінити відомості про підприємство відповідно до малюнком 4.19.
Рисунок 4.18 – Нормативні довідники
Рисунок 4.19 – Дані про підприємство
В режимі майстра формуються виробничі документи і звіти. На вкладці «Акт виробництва», представленому на малюнку 4.20. вказавши загальні дані по акту, інформація по кожній продукції вибирається або вводиться на панелі «Додавання» або «Редагування», які викликаються по відповідним кнопкам. По кнопці «В Excel» документ формується в Excel відповідно до малюнком 4.21. По кнопці «Новий акт» дані на вкладці очищаються. По кнопці «Зберегти» інформація про акт виробництва зберігається. При спробі повторного збереження виводиться попереджувала вікно (рисунок 4.22). По кнопці «Паспорт» формуються паспорта продукції, які автоматично зберігаються в папці «Акти» з ім'ям act_N, де N - номер акта.
Рисунок 4.20 – Формування акта виробництва
Рисунок 4.21 – Вигляд результату формування акта виробництва
а) запит на підтвердження правильності
б) повідомлення при повторному збереженні
Рисунок 4.22 – Інформаційні вікна
На вкладці «Звіт за період» формується звіт по підприємству за обраний період (рисунок 4.16). Звіт також може бути виведений в файл Excel.
Рисунок 4.23 – Звіт по підприємству за період
5 ОХОРОНА ПРАЦІ
ВИСНОВКИ
Результатом дипломної роботи є створення програмного продукту. Програмне забезпечення написано на мові Object Pascal з використанням середовища розробки Delphi 7.
В програмі можна побачити, що судноремонтний завод випускає декілька видів і моделей продукції, виготовлених з різних видів деталей, витрата яких контролюється. Нормування витрат проводиться з метою встановлення їх планової кількості, необхідної для виготовлення виробу та забезпечення найбільш раціонального та ефективного використання і матеріалів у виробництві. По закінченню зміни здається акт виробництва, призначений для реєстрації на виробничій ділянці готової продукції. На підставі актів виробництва складаються паспорти продукції, який відображає інформацію про своєї продукції, і звіти по підприємству, спрямовані на забезпечення повного уявлення про витрати на підприємстві.
З системою можна працювати під режимом адміністратора або майстра. Адміністратор може додавати, змінювати і видаляти дані про деталі, продукцію і норми виробництва. А майстер за допомогою даних, які вводяться в систему адміністратором, може формувати акти виробництва, готувати паспорта на продукцію і формувати звіти по підприємству.
Було розроблено систему автоматизації обліку витрат на виробництво продукції для судноремонтного заводу, яка за рахунок функціональної організації, високої швидкодії і продуктивності дозволяє оптимізувати часові витрати на управління ресурсами підприємства, моніторинг операцій обліку в реальному часі.
Розроблена систему автоматизації обліку витрат на виробництво продукції може бути використана малими і середніми судноремонтними заводами, в силу універсального підходу, реалізованого при проектуванні струкури даної системи.
ПЕРЕЛІК ПОСИЛАНЬ
1. Хомоненко А.Д. Базы данных/ А.Д. Хомоненко, В.М. Цыганков, М.Г.Мальцев, — 4-е изд.- СПб.: КОРОНА принт, 2004. – 736 с.
2. Баженива И.Ю. Самоучитель программиста Delphi / И.Ю. Баженива - М.: Кудиц образ, 2003. – 278 с.
3. Житецький В.Д. Охорона праці користувачів ПК / В.Д. Житецький – Львів: Афіша, 2000. – 176 с.
4. Гофман В.З. Работа с базами данных в Delphi / В.З. Гофман, А.Д. Хомоненко – СПб.:БХВ–Петербург, 2001. – 656 с.
5. Харрингтон Д.Л. Проектирование реляционных баз данных. Просто и доступно / Д.Л. Харрингтон – М.: Лори, 2000. – 230 с.
6. Корнеев В.К. Базы данных. Интелектуальная обработка информации / В.К. Корнеев, А.Ф. Гарев, В.В. Райх. – М.: Нолидж, 2000. – 532 с.
7. Райордан Р.М. Основы реляционных баз данных / Р.М. Райордан: Ред.: Русская редакция, 2001. – 384 с.
8. Гондзюк М.Н. Основи охорони праці / М.Н. Гондзюк, О.П. Желібо, М.О. Халімовський. – К.: Каравелла, 2004. – 408с.
9. Овчинников Е.М. Корпоративные информационные системы и технологии / Е.М. Овчинников – М.: Учебный Центр ОАО Газпром, 1999. – 78 с.
10. Хансен Г. Базы данных: разработка и управление: Пер. с англ. / Г. Хансен, Д. Хансен – М.: ЗАО БИНОМ, 1999. – 704 с.
11. Никаноров С.П. Введение в концептуальное проектирование АСУ: анализ и синтез структур / С.П. Никаноров. – М.: РВСН, 1995. – 401 с.
12. Дж. Ван Гиг. Прикладная общая теория систем / Дж. Ван Гиг. – М.: Мир, 1981. – 615 с.
13. Мамиконов А.Г. Проектирование АСУ / А.Г. Мамиконов. – М.: Высшая школа, 1987. – 465 с.
14. Раскин Д. Интерфейс: новые направления в проектировании компьютерных систем / Д. Раскин. – СПб.: Символ–Плюс, 2006. – 227 с.
15. ГОСТ 19.701-90 ЕСПД. Схемы алгоритмов, программ, данных и систем. Обозначения условные и правила выполнения. [Текст]. – Введ. 1992–01–01 – М.: Изд-во стандартов, 1992. – 24 с.
16. Бобровский С.И. Delphi 7.Учебный курс [Текст] / С.И. Бобровский. – Санкт-Петербург: Питер, 2008.  736 стр.
17. Диго С.М. Базы данных: проектирование и использование: Учебник / С.М. Диго – М.: Финансы и статистика, 2005. – 592с.
ДОДАТОК А
// Управляющий модуль
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg,ComObj;
type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
GroupBox1: TGroupBox;
Edit1: TEdit;
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Button2: TButton;
Image1: TImage;
procedure RadioGroup1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Admin, Master,Base;
var reg:boolean;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
Edit1.SetFocus;
end;
// при активизации
procedure TForm1.FormActivate(Sender: TObject);
begin
form1.RadioGroup1.ItemIndex:=0;
RadioGroup1.Visible:=true; reg:=true;
Edit1.Text:='';
Form1.Caption:=DataModule1.ADOTable6.FieldByName('Предприятие').AsVariant;
end;
// выбор режима
procedure TForm1.BitBtn1Click(Sender: TObject);
var s:string;
begin
if Edit1.Text='' then ShowMessage('Введите пароль')
else
if reg then begin // рабочий режим
s:=edit1.Text; edit1.Text:='';
Form3.PageControl1.TabIndex:=0;
case RadioGroup1.ItemIndex of
0: if s=DataModule1.ADOTable6.FieldByName('ПА').AsVariant then form2.Show else ShowMessage('Неверный пароль');
1: if s=DataModule1.ADOTable6.FieldByName('ПМ').AsVariant then form3.Show else ShowMessage('Неверный пароль');
end
end
end;
// отмена действий
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if reg then
Edit1.Text:=''
else begin
Edit1.Text:='';
reg:=true;
end;
end;
// Справка
procedure TForm1.Button2Click(Sender: TObject);
var wordObject:variant; pat:string;
begin
wordObject := CreateOleObject('Word.Application');
pat:=ExtractFilepath(Application.ExeName)+'Руководство.doc';
wordObject.Visible:=true;
wordObject.Documents.Open(pat);
end; end.
// режим администратора
unit Admin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Grids, DBGrids, ExtCtrls, Mask, DBCtrls,
Buttons;
type
TForm2 = class(TForm)
PageControl1: TPageControl;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
DBGrid2: TDBGrid;
GroupBox2: TGroupBox;
LabeledEdit4: TLabeledEdit;
LabeledEdit5: TLabeledEdit;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
Button3: TButton;
Button4: TButton;
LabeledEdit7: TLabeledEdit;
DBGrid3: TDBGrid;
DBGrid4: TDBGrid;
DBEdit1: TDBEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBEdit2: TDBEdit;
Button5: TButton;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Button7: TButton;
GroupBox5: TGroupBox;
LabeledEdit10: TLabeledEdit;
BitBtn9: TBitBtn;
BitBtn10: TBitBtn;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Button19: TButton;
GroupBox6: TGroupBox;
LabeledEdit11: TLabeledEdit;
BitBtn11: TBitBtn;
BitBtn12: TBitBtn;
DBGrid7: TDBGrid;
GroupBox7: TGroupBox;
Label6: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Label7: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
Label9: TLabel;
DBLookupComboBox4: TDBLookupComboBox;
Label11: TLabel;
BitBtn13: TBitBtn;
BitBtn14: TBitBtn;
Button20: TButton;
Button21: TButton;
Button22: TButton;
Edit2: TEdit;
Label12: TLabel;
DBGrid9: TDBGrid;
Button26: TButton;
Button27: TButton;
Button28: TButton;
GroupBox9: TGroupBox;
LabeledEdit12: TLabeledEdit;
BitBtn17: TBitBtn;
BitBtn18: TBitBtn;
DBLookupComboBox6: TDBLookupComboBox;
procedure FormCreate(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure DBGrid2CellClick(Column: TColumn);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure DBGrid3CellClick(Column: TColumn);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure BitBtn12Click(Sender: TObject);
procedure DBGrid4CellClick(Column: TColumn);
procedure FormActivate(Sender: TObject);
procedure DBGrid7CellClick(Column: TColumn);
procedure Button20Click(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
procedure DBLookupComboBox1Click(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn14Click(Sender: TObject);
procedure Button21Click(Sender: TObject);
procedure Button22Click(Sender: TObject);
procedure DBGrid9CellClick(Column: TColumn);
procedure Button26Click(Sender: TObject);
procedure Button27Click(Sender: TObject);
procedure Button28Click(Sender: TObject);
procedure BitBtn17Click(Sender: TObject);
procedure BitBtn18Click(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
kodp:integer; {код продукции}
kodr:integer; {код расхода}
implementation
{$R *.dfm}
uses base, DB, Math, DateUtils;
// сортировка по алфавиту
procedure TForm2.FormCreate(Sender: TObject);
begin
with DataModule1.ADOTable2 do begin
if RecordCount>0 then begin First;
LabeledEdit4.Text:=fieldByName('Сырье').AsVariant;
LabeledEdit5.Text:=fieldByName('Линейная плотность').AsVariant;
LabeledEdit7.Text:=fieldByName('Состав').AsVariant;
end;
end;
with DataModule1 do begin
ADOTable3.Sort:='Продукция';
if ADOTable3.RecordCount>0 then begin ADOTable3.First;
LabeledEdit10.Text:=ADOTable3.fieldByName('Продукция').AsVariant;
kodp:=ADOTable3.fieldByName('Код').AsVariant;
ADOTable4.Filter:='[Код продукции]='+inttostr(kodp);
ADOTable4.Filtered:=true;
ADOTable4.First;
if ADOTable4.RecordCount>0 then
LabeledEdit11.Text:= ADOTable4.fieldByName('Модель').AsVariant
else LabeledEdit11.Text:='';
end;
end;
with DataModule1.ADOTable12 do begin
First;
if RecordCount>0 then
LabeledEdit12.Text:=fieldByName('Размер').AsVariant;
end;
end;
// изменение характеристик предприятия
procedure TForm2.Button5Click(Sender: TObject);
begin
if DataModule1.ADOTable6.Modified then DataModule1.ADOTable6.Post;
end;
// Переход в режим добавления сырья
procedure TForm2.Button3Click(Sender: TObject);
begin
GroupBox2.Enabled:=true;
GroupBox2.Caption:='Добавление';
LabeledEdit4.Text:='';
LabeledEdit5.Text:='';
LabeledEdit7.Text:='';
DBGrid2.Enabled:=False;
DataModule1.ADOTable2.First;
LabeledEdit4.SetFocus;
end;
// Переход в режим редактирования сырья
procedure TForm2.Button7Click(Sender: TObject);
begin
GroupBox2.Enabled:=true;
GroupBox2.Caption:='Редактирование';
DBGrid2.Enabled:=False;
LabeledEdit4.SetFocus;
end;
//каскадное удаление сырья
procedure TForm2.Button4Click(Sender: TObject);
var p:boolean; kod:integer;
begin
if MessageDlg('Подтвердите удаление',mtWarning,mbOKCancel,0)=mrOk then begin
kod:=DataModule1.ADOTable2.fieldByName('Код').AsVariant;
with DataModule1.ADOTable9 do begin
First;
Repeat
p:=Locate('Код сырья',kod,[]);
if p then Delete;
Continue;
Until not p;
end;
DataModule1.ADOTable2.Delete;
LabeledEdit4.Text:='';
LabeledEdit5.Text:='';
LabeledEdit7.Text:='';
with DataModule1.ADOTable2 do
if RecordCount>0 then begin First;
LabeledEdit4.Text:=fieldByName('Сырье').AsVariant;
LabeledEdit5.Text:=fieldByName('Линейная плотность').AsVariant;
LabeledEdit7.Text:=fieldByName('Состав').AsVariant;
end;
end;
end;
// Сохранение данных о сырье
procedure TForm2.BitBtn3Click(Sender: TObject);
var p:boolean;
begin
p:=true; // признак отсутствия дублирования
if (LabeledEdit4.Text='')or(LabeledEdit5.Text='')or(LabeledEdit7.Text='')
then begin ShowMessage('Заполнены не все поля');
if (LabeledEdit4.Text='') then LabeledEdit4.SetFocus
else if (LabeledEdit5.Text='') then LabeledEdit5.SetFocus
else LabeledEdit7.SetFocus
end
else with DataModule1.ADOTable2 do begin
if GroupBox2.Caption='Добавление' then begin
First;
if Locate('Сырье',Labelededit4.Text,[])
then begin ShowMessage('Дублирование сырья');Labelededit4.SetFocus; p:=false; end
end;
if p then begin
if GroupBox2.Caption='Добавление' then Append else Edit;
fieldByName('Сырье').AsVariant:=LabeledEdit4.Text;
fieldByName('Линейная плотность').AsVariant:=LabeledEdit5.Text;
fieldByName('Состав').AsVariant:=LabeledEdit7.Text;
post;
// очистка полей в режиме добавления
if GroupBox2.Caption='Добавление' then begin
LabeledEdit4.Text:='';
LabeledEdit5.Text:='';
LabeledEdit7.Text:='';
end
// завершение редактирования
else begin
GroupBox2.Enabled:=false;
GroupBox2.Caption:='Просмотр';
DBGrid2.Enabled:=True;
end
end;
end;
end;
// Возвращение в режим просмотра сырья
procedure TForm2.BitBtn4Click(Sender: TObject);
begin
GroupBox2.Enabled:=false;
GroupBox2.Caption:='Просмотр';
DBGrid2.Enabled:=True;
DataModule1.ADOTable2.First;
with DataModule1.ADOTable2 do begin
LabeledEdit4.Text:=fieldByName('Сырье').AsVariant;
LabeledEdit5.Text:=fieldByName('Линейная плотность').AsVariant;
LabeledEdit7.Text:=fieldByName('Состав').AsVariant;
end;
end;
// Режим просмотра сырья
procedure TForm2.DBGrid2CellClick(Column: TColumn);
begin
with DataModule1.ADOTable2 do begin
LabeledEdit4.Text:=fieldByName('Сырье').AsVariant;
LabeledEdit5.Text:=fieldByName('Линейная плотность').AsVariant;
LabeledEdit7.Text:=fieldByName('Состав').AsVariant;
end;
end;
// Переход в режим добавления продукции
procedure TForm2.Button14Click(Sender: TObject);
begin
GroupBox5.Enabled:=true;
GroupBox5.Caption:='Добавление';
LabeledEdit10.Text:='';
DBGrid3.Enabled:=False;
DataModule1.ADOTable3.First;
LabeledEdit10.SetFocus;
end;
// Переход в режим редактирования продукции
procedure TForm2.Button15Click(Sender: TObject);
begin
GroupBox5.Enabled:=true;
GroupBox5.Caption:='Редактирование';
DBGrid3.Enabled:=False;
LabeledEdit10.SetFocus;
end;
//каскадное удаление продукции
procedure TForm2.Button16Click(Sender: TObject);
var p:boolean; kod:integer;
begin
if MessageDlg('Подтвердите удаление',mtWarning,mbOKCancel,0)=mrOk then begin
kod:=DataModule1.ADOTable3.fieldByName('Код').AsVariant;
with DataModule1.ADOTable4 do begin
First;
Repeat
p:=Locate('Код продукции',kod,[]);
if p then Delete;
Continue;
Until not p;
end;
with DataModule1.ADOTable10 do begin
First;
Repeat
p:=Locate('Код продукции',kod,[]);
if p then Delete;
Continue;
Until not p;
end;
DataModule1.ADOTable3.Delete;
LabeledEdit10.Text:='';
with DataModule1.ADOTable3 do
if RecordCount>0 then begin First;
LabeledEdit10.Text:=fieldByName('Продукция').AsVariant;
kodp:=fieldByName('Код').AsVariant;
end;
with DataModule1 do begin
ADOTable4.Filter:='[Код продукции]='+inttostr(kodp);
ADOTable4.Filtered:=true;
ADOTable4.First;
if ADOTable4.RecordCount>0 then
LabeledEdit11.Text:= ADOTable4.fieldByName('Модель').AsVariant
else LabeledEdit11.Text:='';
end;
end;
end;
// Сохранение данных о продукции
procedure TForm2.BitBtn9Click(Sender: TObject);