Автоматизация ведения учета образующихся отходов на предприятии

- ведение справочника взаимодействующих организаций;

- ввод и корректировка данных по отходам и подразделениям;

- просмотр информации по видам отходов с подсуммированием количества;

- формирование накладных по отпуску материалов;

- формирование журнала учета образования и движения отходов.

Безопасность данных гарантируется за счет системы распределения прав доступа пользователей.

2.1.2 Описание входной информации

2.1.2.1 Входные документы

Входным документом для решения данной задачи является акт списания отходов производства и потребления предприятия.

2.1.2.2 Входные данные

Входные данные представлены в таблицах 4-9.

Таблица 4 - Входные данные таблицы OTH_Move

Таблица 5 - Входные данные таблицы OTH_Source

Таблица 6 - Входные данные таблицы OTH_Spr

Таблица 7 - Входные данные таблицы OTH_Spr_Org

Таблица 8 - Входные данные таблицы Password_OTH

Таблица 9 - Входные данные таблицы Spr_Ed_Izm

2.1.3 Описание выходной информации

2.1.3.1. Выходные документы

Выходные документы - «Накладная на отпуск материалов на сторону» и «Журнал учета образования и движения отходов» представлены в Приложении 1 и Приложении 2 соответственно.

2.1.3.2 Описание выходных данных.

Выходные данные представлены в таблице 10.

Таблица 10 - Выходные данные

2.1.4 Математическая модель

Математическая модель задачи показана в формуле (1).

, (1)

где Sum -общее количество образовавшегося отхода одного вида;

Kol_i - количество единовременно образовавшегося отхода.

2.1.5 Логическая модель задачи

Логическая модель задачи представлена на рисунке 1.

Рис.1

2.1.6 Требования к программе

2.1.6.1 Функциональные требования

В программе должны быть реализованы следующие функции:

- ведение справочника видов отходов;

- ведение справочника взаимодействующих организаций;

- ввод и корректировка данных по отходам и подразделениям;

- просмотр информации по видам отходов с подсуммированием количества;

- формирование накладных по отпуску материалов;

- формирование журнала учета образования и движения отходов.

2.1.6.2 Требования к надежности

Безопасность данных гарантируется за счет системы распределения прав доступа пользователей.

Программа должна отвечать следующим требованиям надежности:

- вывод результатов только в том случае, если введены все данные;

- формирование отчетов только в том случае, если выполнены условия отбора данных.

2.1.6.3 Требования к интерфейсу программы

Для обеспечения максимального удобства и эффективности работы с данными необходимо предусмотреть наличие в приложении следующих элементов интерфейса.

Программа должна содержать:

- интуитивно понятный для пользователя интерфейс;

- наличие меню;

- наличие справочной информации.

2.2 Информационная модель программы решения задачи

2.2.1 Структура таблиц базы данных

Структура таблицы OTH_Move представлена в таблице 11.

Таблица 11 - Структура таблицы OTH_Move

Структура таблицы OTH_Source представлена в таблице 12.

Таблица 12 - Структура таблицы OTH_Source

Структура таблицы OTH_Spr представлена в таблице 13.

Таблица 13 - Структура таблицы OTH_Spr

Структура таблицы OTH_Spr_Org представлена в таблице 14.

Таблица 14 - Структура таблицы OTH_Spr_Org

Структура таблицы Password_OTH представлена в таблице 15.

Таблица 15 - Структура таблицы Password_OTH

Структура таблицы Spr_Ed_Izm представлена в таблице 16.

Таблица 16 - Структура таблицы Spr_Ed_Izm

2.2.2 Связи между таблицами базы данных и файлами

Связи между таблицами показаны на рисунке 2.

Рис.2 Связи между таблицами базы данных

2.3 Логическая модель программы

2.3.1 Структурная диаграмма

Структурная диаграмма представлена на рисунке 3.

Рис.3 Структурная диаграмма

2.3.2 Логическая структура программы

Логическая структура программы представлена на рисунке 4.

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Рис.4 Логическая структура

2.3.3 Обобщенные алгоритмы модулей программы

Обобщенные алгоритмы модулей программы изображены на рисунках 5-13.

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Рис.5 Модуль «Справочник отходов»

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Рис.6 Модуль «Справочник организаций»

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Рис.7 Модуль «Справочник единиц измерения»

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Рис.8 Модуль «Регистрация»

Рис.9 Модуль «Главное меню»

Рис.10 Модуль «Ввод образовавшегося отхода»

Рис.11 Модуль «Создание накладной»

Рис.12 Модуль «Накладная»

Рис.13 Модуль «Журнал учета образования и движения отходов»

2.4 Текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids, DBGrids, Db, ADODB, ExtCtrls, DBTables, Mask, DBCtrls,

DBGridEh, GridsEh;//, GridsEh;

type

TForm1 = class(TForm)

Button1: TButton;

Bevel1: TBevel;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit5: TDBEdit;

DBComboBox2: TDBComboBox;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Button4: TButton;

ComboBox1: TComboBox;

DBGridEh1: TDBGridEh;

Edit1: TEdit;

Label1: TLabel;

Label9: TLabel;

RadioGroup1: TRadioGroup;

Button2: TButton;

Button3: TButton;

Edit2: TEdit;

procedure FormCreate(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);

procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);

procedure Button3Click(Sender: TObject);

procedure Edit2Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

DataModule2.Query1.Close;

DataModule2.Query1.SQL.Clear;

DataModule2.Query1.SQL.Add('Select * from OTH_Spr;');

DataModule2.Query1.Open;

DataModule2.Table2.Open;

DataModule2.Table2.First;

while NOT DataModule2.Table2.Eof do

begin

ComboBox1.Items.Add(DataModule2.Table2.Fields[1].Value);

DataModule2.Table2.Next;

end;

DataModule2.Table2.Close;

DBComboBox2.Items.Add('0');

DBComboBox2.Items.Add('1');

Button4.Visible:=false;

DataModule2.Table2.Open;

DataModule2.Table2.First;

while NOT DataModule2.Table2.Eof do

begin

if DataModule2.Table2.Fields[1].Value=ComboBox1.Text

then begin Edit2.Text:=DataModule2.Table2.Fields[0].Value;

break; end

else DataModule2.Table2.Next;

end;

DataModule2.Table2.Close;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

DataModule2.Database1.StartTransaction;

try

DataModule2.Query1.FieldByName('Kod_ed').AsInteger:=StrToInt(Edit2.Text);

DataModule2.Query1.Post;

RadioGroup1.Visible:=true;

Button1.Visible:=true;

Button4.Visible:=False;

Button3.Visible:=true;

DBGridEh1.Visible:=true;

Edit1.ReadOnly:=false;

Form1.Height:=495;

except

ShowMessage('Ошибка. Все несохраненные действия отменены');

DataModule2.Database1.Rollback;

//Button2.Click;

exit;

end;

DataModule2.Database1.Commit;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

RadioGroup1.Visible:=false;

Form1.Height:=660;

DataModule2.Query1.Insert;

ComboBox1.ItemIndex:=0;

DBComboBox2.ItemIndex:=0;

Button4.Visible:=true;

Button3.Visible:=false;

Button1.Visible:=False;

DBGridEh1.Visible:=false;

Edit1.ReadOnly:=true;

ComboBox1Change(Sender);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

RadioGroup1.Visible:=true;

Edit1.ReadOnly:=false;

DataModule2.Query1.Cancel;

DBGridEh1.Visible:=true;

Button1.Visible:=true;

Button3.Visible:=true;

Button4.Visible:=false;

DBGridEh1.Visible:=true;

Form1.Height:=495;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

DataModule2.Table2.Open;

DataModule2.Table2.First;

while NOT DataModule2.Table2.Eof do

begin

if DataModule2.Table2.Fields[1].Value=ComboBox1.Text

then begin Edit2.Text:=DataModule2.Table2.Fields[0].Value;

break; end

else DataModule2.Table2.Next;

end;

DataModule2.Table2.Close;

end;

procedure TForm1.Edit1Change(Sender: TObject);

var fil: string;

begin

fil:='%'+edit1.text+'%';

if edit1.Text>'' then

begin

DataModule2.Query1.Close;

DataModule2.Query1.SQL.Clear;

DataModule2.Query1.SQL.Add('SELECT * from OTH_Spr where Kod LIKE "'+fil+'"'+' OR Naim LIKE "'+fil+'"');

DataModule2.Query1.Open;

end

else

begin

DataModule2.Query1.Close;

DataModule2.Query1.SQL.Clear;

DataModule2.Query1.SQL.Add('SELECT * from OTH_Spr');

DataModule2.Query1.Open;

end;

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

DataModule2.Query1.Filtered:=False;

if RadioGroup1.ItemIndex=1 then

begin

DataModule2.Query1.Filter:='Del_Pr=0';

DataModule2.Query1.Filtered:=True;

end;

if RadioGroup1.ItemIndex=2 then

begin

DataModule2.Query1.Filter:='Del_Pr=1';

DataModule2.Query1.Filtered:=True;

end;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

RadioGroup1.Visible:=true;

Form1.Height:=495;

Edit1.ReadOnly:=false;

DBGridEh1.Visible:=true;

Button3.Visible:=true;

Button1.Visible:=true;

Button4.Visible:=false;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

DataModule2.Query1.Cancel;

end;

procedure TForm1.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

if not ((key in['0'..'9'])or (key =#8)) then key:=#0;

end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin

key:=#0;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

RadioGroup1.Visible:=false;

Form1.Height:=660;

Edit1.ReadOnly:=true;

DataModule2.Query1.Edit;

Button1.Visible:=false;

Button4.Visible:=true;

Button3.Visible:=false;

DBGridEh1.Visible:=false;

Edit2.Text:=DataModule2.Query1.FieldByName('Kod_ed').AsString;

end;

procedure TForm1.Edit2Change(Sender: TObject);

begin

If Edit2.text='' then ComboBox1.Text:='' else

begin

DataModule2.Table2.Open;

DataModule2.Table2.First;

while NOT DataModule2.Table2.Eof do

begin

if Edit2.Text=DataModule2.Table2.Fields[0].Value

then begin ComboBox1.Text:=DataModule2.Table2.Fields[1].Value;

break;

end

else DataModule2.Table2.Next;

end;

DataModule2.Table2.Close;

end;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Db, DBTables;

type

TDataModule2 = class(TDataModule)

DataSource1: TDataSource;

Table2: TTable;

Table3: TTable;

Query1: TQuery;

DataSource2: TDataSource;

Query2: TQuery;

DataSource3: TDataSource;

Query3: TQuery;

Query4: TQuery;

Query5: TQuery;

DataSource5: TDataSource;

Query6: TQuery;

DataSource6: TDataSource;

Query7: TQuery;

DataSource7: TDataSource;

Query8: TQuery;

Query9: TQuery;

Query10: TQuery;

DataSource10: TDataSource;

Database1: TDatabase;

Query11: TQuery;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TDataModule2;

implementation

{$R *.DFM}

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids, DBGrids, Mask, DBCtrls, DBCGrids, Buttons, DBGridEh,

ExtCtrls, GridsEh;//, GridsEh, ComCtrls;

type

TForm3 = class(TForm)

Label1: TLabel;

Button3: TButton;

Button4: TButton;

Button1: TButton;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label7: TLabel;

DBComboBox1: TDBComboBox;

Label8: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBGridEh1: TDBGridEh;

Label6: TLabel;

Edit1: TEdit;

RadioGroup1: TRadioGroup;

Button2: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm3.FormCreate(Sender: TObject);

begin

DBComboBox1.Items.Add('0');

DBComboBox1.Items.Add('1');

DataModule2.Query2.Close;

DataModule2.Query2.SQL.Clear;

DataModule2.Query2.SQL.Add('Select * from OTH_Spr_Org;');

DataModule2.Query2.Open;

DBGridEh1.Visible:=true;

Button1.Visible:=true;

Button4.Visible:=false;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

RadioGroup1.Visible:=false;

Form3.Height:=575;

DataModule2.Query2.Insert;

DBComboBox1.ItemIndex:=0;

DBGridEh1.Visible:=false;

Button2.Visible:=False;

Button1.Visible:=false;

Button4.Visible:=true;

Edit1.ReadOnly:=true;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

RadioGroup1.Visible:=true;

Form3.Height:=460;

DataModule2.Query2.Cancel;

DBGridEh1.Visible:=true;

Button1.Visible:=true;

Button2.Visible:=true;

Button4.Visible:=false;

Edit1.ReadOnly:=false;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

DataModule2.Database1.StartTransaction;

try

DataModule2.Query2.Post;

RadioGroup1.Visible:=true;

Form3.Height:=460;

DBGridEh1.Visible:=true;

Button1.Visible:=true;

Button2.Visible:=true;

Button4.Visible:=false;

Edit1.ReadOnly:=false;

except

ShowMessage('Ошибка. Все несохраненные действия отменены');

DataModule2.Database1.Rollback;

exit;

end;

DataModule2.Database1.Commit;

end;

procedure TForm3.Edit1Change(Sender: TObject);

var fil: string;

begin

fil:='%'+edit1.text+'%';

if edit1.Text>'' then

begin

DataModule2.Query2.Close;

DataModule2.Query2.SQL.Clear;

DataModule2.Query2.SQL.Add('SELECT * from OTH_Spr_Org where Naim LIKE "'+fil+'"');

DataModule2.Query2.Open;

end

else

begin

DataModule2.Query2.Close;

DataModule2.Query2.SQL.Clear;

DataModule2.Query2.SQL.Add('Select * from OTH_Spr_Org');

DataModule2.Query2.Open;

end;

end;

procedure TForm3.RadioGroup1Click(Sender: TObject);

begin

DataModule2.Query2.Filtered:=False;

if RadioGroup1.ItemIndex=1 then

begin

DataModule2.Query2.Filter:='Del_Pr=0';

DataModule2.Query2.Filtered:=True;

end;

if RadioGroup1.ItemIndex=2 then

begin

DataModule2.Query2.Filter:='Del_Pr=1';

DataModule2.Query2.Filtered:=True;

end;

end;

procedure TForm3.FormActivate(Sender: TObject);

begin

RadioGroup1.Visible:=true;

Form3.Height:=460;

Edit1.ReadOnly:=false;

DBGridEh1.Visible:=true;

Button1.Visible:=true;

Button2.Visible:=true;

Button4.Visible:=false;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

RadioGroup1.Visible:=false;

Form3.Height:=575;

DataModule2.Query2.Edit;

DBGridEh1.Visible:=false;

Button2.Visible:=false;

Button1.Visible:=false;

Button4.Visible:=true;

Edit1.ReadOnly:=true;

end;

procedure TForm3.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if not ((key in['0'..'9'])or (key =#8)) then key:=#0;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Menus, StdCtrls, SHELLAPI;

type

TForm4 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N11Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1, Unit3, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11;

{$R *.DFM}

procedure TForm4.N2Click(Sender: TObject);

begin

Form1.ShowModal;

end;

procedure TForm4.N3Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm4.N4Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm4.N7Click(Sender: TObject);

begin

Form7.Close;

end;

procedure TForm4.N9Click(Sender: TObject);

begin

Form6.ShowModal;

end;

procedure TForm4.N8Click(Sender: TObject);

begin

Form9.ShowModal;

end;

procedure TForm4.N6Click(Sender: TObject);

begin

Form10.ShowModal;

end;

procedure TForm4.N12Click(Sender: TObject);

begin

Form11.ShowModal;

end;

procedure TForm4.N11Click(Sender: TObject);

begin

ShellExecute(Application.Handle,'open', PChar('hh.exe'),PChar('C:\РАТЕП\help1.chm'), nil, SW_SHOW);

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids, DBGrids, Mask, DBCtrls;

type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

Button2: TButton;

Button4: TButton;

Button1: TButton;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm5.Button1Click(Sender: TObject);

begin

Form5.Height:=430;

DataModule2.Query3.Insert;

DBGrid1.Visible:=false;

Button1.Visible:=false;

Button4.Visible:=true;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

Form5.Height:=345;

DataModule2.Query3.Cancel;

DBGrid1.Visible:=true;

Button1.Visible:=true;

Button4.Visible:=false;

end;

procedure TForm5.Button4Click(Sender: TObject);

begin

DataModule2.Database1.StartTransaction;

try

DataModule2.Query3.Post;

Form5.Height:=345;

except

ShowMessage('Ошибка. Все несохраненные действия отменены');

DataModule2.Database1.Rollback;

exit;

end;

DataModule2.Database1.Commit;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

DataModule2.Query3.Close;

DataModule2.Query3.SQL.Clear;

DataModule2.Query3.SQL.Add('Select * from Spr_Ed_Izm;');

DataModule2.Query3.Open;

DBGrid1.Visible:=true;

Button1.Visible:=true;

Button4.Visible:=false;

end;

procedure TForm5.FormActivate(Sender: TObject);

begin

Form5.Height:=345;

DBGrid1.Visible:=true;

Button1.Visible:=true;

Button4.Visible:=false;

end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);

begin

DataModule2.Query3.Cancel;

end;

procedure TForm5.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if not ((key in['0'..'9'])or (key =#8)) then key:=#0;

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids, DBGrids, DBGridEh, Mask, DBCtrls, ExtCtrls, GridsEh;//,GridsEh;

type

TForm6 = class(TForm)

Label1: TLabel;

ComboBox1: TComboBox;

Label2: TLabel;

ComboBox2: TComboBox;

Label3: TLabel;

DBGridEh1: TDBGridEh;

Button5: TButton;

Label6: TLabel;

Edit4: TEdit;

Edit1: TEdit;

Label4: TLabel;

Button1: TButton;

Button2: TButton;

Edit2: TEdit;

procedure FormCreate(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure OTHODY();

procedure ComboBox1Change(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit2, Unit1, Unit8;

{$R *.DFM}

procedure TForm6.FormCreate(Sender: TObject);

begin

//Подразделения

ComboBox1.Clear;

DataModule2.Query4.Close;

DataModule2.Query4.SQL.Clear;

DataModule2.Query4.SQL.Add('Select * from Password_OTH;');

DataModule2.Query4.Open;

DataModule2.Query4.First;

while NOT DataModule2.Query4.Eof do

begin

If DataModule2.Query4.Fields[1].AsString<>'0' then

ComboBox1.Items.Add(DataModule2.Query4.Fields[1].AsString);

DataModule2.Query4.Next;

end;

DataModule2.Query4.Close;

//Виды отходов

ComboBox2.Clear;

DataModule2.Query4.Close;

DataModule2.Query4.SQL.Clear;

DataModule2.Query4.SQL.Add('Select * from OTH_Spr;');

DataModule2.Query4.Open;

DataModule2.Query4.First;

while NOT DataModule2.Query4.Eof do

begin

ComboBox2.Items.Add(DataModule2.Query4.Fields[2].AsString);

DataModule2.Query4.Next;

end;

DataModule2.Query4.Close;

If (ComboBox2.Text>'') then

begin

Button5.Visible:=true;

Form6.Height:=530;

end

else begin

Button5.Visible:=false;

Form6.Height:=425;

end;

ComboBox2Change(Sender);

end;

procedure TForm6.ComboBox2Change(Sender: TObject);

var Summa_OTH: variant;

begin

if ComboBox1.Text<>'' then Button5.Visible:=false;

if ComboBox2.Text='' then Edit4.Text:='0';

DataModule2.Query4.Close;

DataModule2.Query4.SQL.Clear;

DataModule2.Query4.SQL.Add('Select * from OTH_Spr;');

DataModule2.Query4.Open;

DataModule2.Query4.First;

while NOT DataModule2.Query4.Eof do

begin

if DataModule2.Query4.Fields[2].AsString=ComboBox2.Text

then begin

Edit1.Text:=DataModule2.Query4.Fields[0].AsString;

break;

end

else DataModule2.Query4.Next;

end;

DataModule2.Query4.Close;

OTHODY;

IF ComboBox2.Text<>'' then

begin

Summa_OTH:=0;

DataModule2.Query5.First;

while NOT DataModule2.Query5.Eof do

begin

Summa_OTH:=Summa_OTH+ DataModule2.Query5.Fieldbyname('kol').AsVariant;

DataModule2.Query5.Next;

end;

Edit4.Text:=Summa_OTH;

end;

If (ComboBox2.Text>'') then

begin

Button5.Visible:=true;

Form6.Height:=530;

end

else begin

Button5.Visible:=false;

Form6.Height:=425;

end;

end;

Procedure TForm6.OTHODY();

begin

//Загрузка отходов по виду и подразделению

DataModule2.Query5.Filtered:=False;

DataModule2.Query5.Filter:='';

//первое введено, второе-нет

If (ComboBox1.Text>'') and (ComboBox2.Text='')

then DataModule2.Query5.Filter:='[Pr_Form]=0 and [Podr]='+ComboBox1.Text

else

//первое не введено, второе-введено

if (ComboBox1.Text='') and (ComboBox2.Text>'')

then DataModule2.Query5.Filter:='[Pr_Form]=0 and [Nzap_Spr]='+Edit1.Text

else

//если все введено

if (ComboBox1.Text>'') and (ComboBox2.Text>'')

then DataModule2.Query5.Filter:='[Pr_Form]=0 and [Podr]='+ComboBox1.Text+' and [Nzap_Spr]='+Edit1.Text;

{else begin DataModule2.Query5.Filtered:=false;

exit;

end; }

DataModule2.Query5.Filtered:=true;

end;

procedure TForm6.ComboBox1Change(Sender: TObject);

begin

OTHODY;

ComboBox2Change(Sender);

if ComboBox1.Text<>'' then Button5.Visible:=false;

end;

procedure TForm6.Button5Click(Sender: TObject);

begin

If (ComboBox2.Text>'') then

begin

DataModule2.Query7.Open;

DataModule2.Query7.Insert;

//Form8.DBEdit2.Text:=ComboBox1.Text;

Form8.Edit10.Text:=ComboBox2.Text;

Form8.DBEdit7.Text:=Edit4.Text;

Form8.Edit9.Text:=DataModule2.Query5.FieldByName('Naim_1').AsStrin;

Form8.ShowModal;

end

else ShowMessage('Сначала выберите вид отхода');

end;

procedure TForm6.FormActivate(Sender: TObject);

begin

ComboBox2.Text:='';

If (ComboBox2.Text>'') then Button5.Visible:=true

else Button5.Visible:=false;

ComboBox2Change(Sender);

end;

procedure TForm6.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if not ((key in['0'..'9'])or (key =#8)or (key =#44)) then key:=#0;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

if DataModule2.Query5.Fields[0].AsString>'' then

begin

if edit2.text>'' then

begin

DataModule2.Query9.Open;

DataModule2.Query9.Locate('Nzap',DataModule2.Query5.Fields[0].AsVariant,[]);

DataModule2.Query9.Edit;

DataModule2.Query9.FieldByName('Kol').AsVariant:= Edit2.Text;

DataModule2.Query9.Post;

DataModule2.Query9.Close;

DataModule2.Query5.Close; DataModule2.Query5.Open;

ShowMessage('Изменено количество!');

Edit2.Text:='';

ComboBox2Change(Sender );

end

else ShowMessage('Сначала введите количество');

end else ShowMessage('Вы не выбрали запись!');

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

if DataModule2.Query5.Fields[0].AsString>'' then

begin

if MessageDlg('Подтвердите удаление записи', mtInformation, [mbYes,mbNo], 0)=mrYes

then

begin

DataModule2.Query9.Open;

DataModule2.Query9.Locate('Nzap',DataModule2.Query5.Fields[0].AsVariant,[]);

If DataModule2.Query9.FieldbyName('Pr_form').AsBoolean=true then

ShowMessage('Данный вид отхода находится в накладной. Удаление невозможно')

else DataModule2.Query9.Delete;

DataModule2.Query9.Close;

DataModule2.Query5.Close; DataModule2.Query5.Open;