Автоматизация менеджера по подбору автозапчастей

Маршрут будет выглядеть следующим образом: кабинет, дверной проем, коридор, лестница, тамбур и дверной проем выхода.

Для определения времени движения людей по первому участку, с учетом габаритных размеров кабинета 3×6 м, определяется плотность движения людского потока на первом участке по формуле (4.4):

чел./м2 (4.4)

где: — число людей на первом участке, чел.;

f — средняя площадь горизонтальной проекции человека, м2/чел.;

и — длина и ширина первого участка пути, м.

На данном участке скорость движения составляет 100 м/мин., интенсивность движения 1 м/мин, т.о. время движения по первому участку:

мин. (4.5)

где — длина первого участка пути, м;

— значение скорости движения людского потока по горизонтальному пути на первом участке, определяется в зависимости от относительной плотности D, чел./м2.

Длина дверного проема принимается равной нулю. Наибольшая возможная интенсивность движения в проеме в нормальных условиях gmffic=19,6 м/мин., интенсивность движения в проеме шириной 1,1 м рассчитывается по формуле (4.6):

qd = 2,5 + 3,75 b=2,5 + 3,75* 1,1 = 6,62 м/мин., (4,6)

где b ширина проема;

qd поэтому движение через проем проходит беспрепятственно.

Время движения в проеме определяется по формуле (4.7):

мин. (4.7)

Так как на втором этаже работает 15 человек, плотность людского потока второго этажа по коридору, длинной 11 м, при f = 0,1/чел., составит:

чел./м2

На втором участке скорость движения составляет 80 м/мин., интенсивность 8,0 м/мин, т.о. время движения по второму участку:

мин .

Для определения скорости движения по лестнице рассчитывается интенсивность движения на третьем участке по формуле (4.8):

м/мин (4.8)

Это показывает, что на лестнице скорость людского потока останется прежней. Время движения по лестнице вниз (3-й участок):

мин

При переходе на третий этаж происходит смешивание с потоком людей, двигающихся по лестнице. Плотность людского потока для третьего этажа:

чел./м2

при этом интенсивность движения составит около 8 м/мин.

При переходе на 4-й участок происходит слияние людских потоков, поэтому интенсивность движения определяется по формуле (4.9):

м/мин (4.9)

где , — ширина рассматриваемого iгo и предшествующего ему участка пути, м;

— значения интенсивности движения людского потока по рассматриваемому iму и предшествующему участкам пути, м/мин.

На данном участке скорость движения равняется 40 м/мин., поэтому скорость движения по лестнице от третьего этажа:

мин

Тамбур при выходе на улицу необходимо пройти тамбур, который имеет длину 5 метров, на этом участке образуется максимальная плотность людского потока поэтому согласно справочным данным скорость падает до 15 м/мин, а время движения по тамбуру составит:

мин

При максимальной плотности людского потока интенсивность движения через дверной проем на улицу шириной более 1,6 м — 8,5 м/мин., время движения через него:

мин

Расчетное время эвакуации рассчитывается по формуле (4.10):

мин.

Таким образом, расчетное время эвакуации из кабинетов ФГУП «Ростехинвентаризация — Федеральное БТИ» больше допустимого (4,27 мин.). Поэтому здание, в котором располагается предприятие, необходимо оборудовать системой оповещения о пожаре, средствами автоматической сигнализации.

4.3 Выброс в атмосферу аварийно-химических отравляющих веществ

Нельзя исключать причину возникновения чрезвычайной ситуации около кинотеатра, которой может быть — выброс в атмосферу аварийно-химических отравляющих веществ (АХОВ).

Выброс отравляющих веществ наиболее вероятен из автотранспорта или железнодорожных цистерн. Выброс этого отравляющего вещества приведет к наиболее серьезным последствиям для рабочих, сотрудников.

Метиловый спирт, древесный спирт, карбинол, метанол СНзОН является простейшим представителем предельных одноатомных спиртов. В свободном состоянии в природе встречается редко и в очень небольших количествах (например, в эфирных маслах). На организм человека метанол действует опьяняющим образом и является сильным ядом, вызывающим потерю зрения и, в зависимости от дозы, смерть.

Определим глубину зоны заражения метанолом. При этом рекомендуется считать, что приземный слой атмосферы находится в состоянии инверсии, которое способствует наибольшему распространению АХОВ, средняя скорость ветра — 1 м/с. Направление ветра, наиболее способствующее переносу метанола в сторону здания объекта, — юго-восточное. Количество метанола в цистерне 5 тонна. По таблице находим глубину зоны заражения — 3,5 км. Ширина зоны заражения для инверсии вычисляется по формуле (4.11):

B = 0,03 ∙ L, (4.11)

где B — ширина зоны заражения, км;

L — глубина зоны заражения, км.

Таким образом, получим:

B = 0,03 ∙ 3,5=0,105 км.

Площадь зоны поражения при этом составит 0,19 км².

Поскольку ФГУП находится на расстоянии 0,1 км от дороги с возможным грузом метанола, то она оказывается в зоне заражения. Определим время по формуле (4.12), за которое облако АХОВ подойдет к зданию операторной:

(4.12)

где: t — время подхода облака к объекту, ч.;

S — расстояние между источником АХОВ и зданием ФГУП, км;

V — скорость переноса переднего фронта зараженного облака, км/ч.

Для заданных атмосферных параметров по таблице определяем скорость V=5 км/ч. Таким образом, время будет равно t = 0,1/5 = 0,02 ч = 1,2 мин. Время поражающего действия метанола определяется временем его испарения из поврежденной емкости. При скорости ветра 1 м/с испарение составляет 1,2 ч.

При отравлении в зоне заражения необходимо надеть на пострадавшего противогаз, вынести из зараженной зоны, освободить от стесняющей одежды. При спазме голосовой щели нужно провести теплые водные ингаляции области шеи. Слизистые оболочки и глаза пострадавшего промывают 2% раствором борной кислоты. Пораженные участки кожи обрабатывают 5% раствором уксусной, лимонной или соляной кислоты. Далее необходимо доставить пострадавшего в медицинское учреждение.

Ликвидация последствий заражения АХОВ включает в себя оповещение персонала и населения, разведку границ заражения, выдачу защитных средств (противогазов, комбинезонов) и организованную эвакуацию людей из зоны заражения, локализацию аварии, дегазацию территории. Снабжение противогазами необходимо произвести до подхода облака к зданию, то есть в нашем случае за 1,2 мин при своевременном оповещении о выбросе метанола.

Необходимо поддерживать постоянную готовность системы сигнализации и оповещения персонала и населения, проводить учения по ликвидации аварий АХОВ, обеспечивать хранение средств защиты на каждого сотрудника. Также важен периодический осмотр опасных объектов, инструктаж.

В результате проведенного анализа в данной главе были выявлены недостатки безопасности условий труда, предложены мероприятия по их решению, а так же проведены несколько расчетов, а именно: расчет освещенности, так как показатели данного фактора имеют не соответствующие значения, смоделированы ситуации ЧС и произведены расчеты по наиболее возможным из них: расчет времени эвакуации сотрудников предприятия при возникновении пожара и расчет зоны заражения при выбросе АХОВ.

ЗАКЛЮЧЕНИЕ

В дипломной работе была спроектирована и разработана автоматизированное рабочее место менеджера, предназначенное для выполнения функций по подбору автозапчастей.

Динамический процесс проектирования системы происходил в несколько стадий.

На этапе обследования была рассмотрена общая характеристика объекта автоматизации, его организационная структура и организация работы. На основе анализа сформированы и обоснованы требования к автоматизированному рабочему месту и к его отдельным компонентам: программному, информационному, техническому.

На стадии проектирования разработана общая структура автоматизированного рабочего места в целом, а также по каждой отдельной его задаче. Определены основные проектные решения, что стало основанием для разработки, отладки программной части и для конструирования эксплуатационной документации.

Создание и внедрение автоматизированного рабочего места позволит сократить время работы менеджера с документами, снизить временные затраты на поиск и формирование списка автозапчастей в среднем на 30−35% за счет автоматического анализа информации, имеющейся в базе данных.

Использование информационной системы позволит более глубоко и в полном объеме собирать и анализировать необходимую информацию об автозапчастях, хранящихся на складе и выполненных заказах на поставку автозапчастей.

Отмечено так же повышение эффективности учета автозапчастей, которое является одним из самых главных качественных результатов, так же еще одним важным результатом является то, что у менеджера, несущего наибольшую ответственность за правильность учета, имеется полное представление об автозапчастях, накладных, заказах, поскольку он сам оперативно организует и контролирует учет и движение товаров. При этом в практику работы персонала входят новые информационные технологии, такие как совместный авторизованный доступ к справочной информации о наличии автозапчастей на складе, автоматизация рутинных операций, доступ к информационно-справочным ресурсам, автоматическое заполнение документов, исключение недостатков бумажных носителей, контроль качества, стандартизация учета.

Для быстрой и полной адаптации пользователя к системе был разработан удобный дружественный интерфейс пользователя и подробное описание работы с системой в руководстве пользователя.

Считаю, что созданное в дипломной работе автоматизированное рабочее место менеджера по подбору автозапчастей полностью соответствует информационным требованиям предприятия и сможет поддерживать это соответствие в течение всего жизненного цикла системы.

Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.

Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.

Архангельский А. Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.

Архангельский А. Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.

Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. -304с.

Белов А. Н. Бухгалтерский учет в учреждениях непроизводственной сферы. — М.: Финансы и статистика, 1995. — 240с.

Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. — 654с.

Волков В. Ф. Экономика предприятия. — М.: Вита-Пресс, 1998. — 380с.

Галатенко В. Информационная безопасность // Открытые системы- 1996. — N 1−4.

Глушаков С.В., Ломотько Д. В. Базы данных .- Х.: Фолио, 2002. — 504 с.

Голубков Е. П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. — 450с.

Голубков Е. П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. — 280с.

Гофман В. Э. Хомоненко А.Д. Delphi 5. — СПб.: — Санки-Петербург, 2000. -800с.

Гофман В. Э. Хомоненко А.Д. Delphi 6. — СПб.: — Санки-Петербург, 2001. -1145с.

Дайан А. и др. Маркетинг. М., Экономика, 1993.

Жидецкий В. Ц. Охрана труда пользователей компьютеров. — К.: «Освгга», 1999. 186с.

Жутова З. У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.

Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.

Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. — 1111 с.

Культин Н.Б. Delphi 6: Программирование на Object Pascal. — М.: Бином, 2001. — 526 с.

Культин Н.Б. Delphi 7: Программирование на Object Pascal. — М.: Бином, 2003. — 535 с.

Магнус Я.Р., Катышев П. К., Пересецкий А. А. Эконометрика. Начальный курс. М., Дело, 1997

Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.

Матвеева В. О. Бюджетные организации: бухгалтерский учет и налогооблажение. -Харьков: Фактор, 2001. — 566с.

Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22−27. // www. ITC-UA.COM

Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. — 1128с.

Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22−27. www. ITC-UA.COM

ПРИЛОЖЕНИЕ, А ЛИСТИНГ ГЛАВНОГО МОДУЛЯ РАЗРАБОТАННОГО ПРИЛОЖЕНИЯ

/* главный модуль проекта*/

unit MainClients;

interface

/* подключаемые библиотеки */

uses

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

Dialogs, Menus, DB, ADODB, IniFiles, Grids, DBGrids, DBDirectoryTemplate,

addsorce, DateUtils, parampoisk, jpeg, ExtCtrls, ToolWin, ComCtrls, Buttons,

RzSpnEdt;

Type

// используемые объекты

TMainClientsForm = class (TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

DataSource1: TDataSource;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

ADOTable5: TADOTable;

ADOTable6: TADOTable;

ADOTable7: TADOTable;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

Image1: TImage;

ToolBar1: TToolBar;

// заголовки процедур и функций

RzRapidFireButton1: TRzRapidFireButton;

RzRapidFireButton2: TRzRapidFireButton;

RzRapidFireButton3: TRzRapidFireButton;

RzRapidFireButton4: TRzRapidFireButton;

RzRapidFireButton5: TRzRapidFireButton;

RzRapidFireButton6: TRzRapidFireButton;

RzRapidFireButton7: TRzRapidFireButton;

RzRapidFireButton8: TRzRapidFireButton;

N18: TMenuItem;

procedure N18Click (Sender: TObject);

procedure RzRapidFireButton1Click (Sender: TObject);

procedure RzRapidFireButton2Click (Sender: TObject);

procedure RzRapidFireButton5Click (Sender: TObject);

procedure RzRapidFireButton4Click (Sender: TObject);

procedure RzRapidFireButton6Click (Sender: TObject);

procedure RzRapidFireButton7Click (Sender: TObject);

procedure RzRapidFireButton3Click (Sender: TObject);

procedure RzRapidFireButton8Click (Sender: TObject);

procedure N12Click (Sender: TObject);

function IsMDIChildOpen (const AFormName: TForm; const AMDIChildName: string): Boolean;

function IsFormOpen (const FormName: string): Boolean;

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N20Click (Sender: TObject);

procedure N21Click (Sender: TObject);

procedure N22Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure DataSource1DataChange (Sender: TObject; Field: TField);

procedure N4Click (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure N15Click (Sender: TObject);

procedure N16Click (Sender: TObject);

procedure N17Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure N19Click (Sender: TObject);

private

{ Private declarations }

procedure BuildGridDatabaseDirectoryItem (sCaption:String; ds: TDataSource);

public

{ Public declarations }

end;

var

// используемые переменные

MainClientsForm: TMainClientsForm;

nastr:tinifile;

DirectoryForm: TDBDirectoryTemplateForm;

prosmForm: Taddform;

mainflag:boolean;

nomer_poisk:word;

idLocation, idAddional, idZapas, idPartiya: integer;

model, modelavto: string;

god:integer;

implementation

{$R *.dfm}

// функция создания дочернего окна

function TMainClientsForm. IsMDIChildOpen (const AFormName: TForm; const AMDIChildName: string): Boolean;

var

i: Integer;

begin

Result := False;

for i := Pred (AFormName.MDIChildCount) DownTo 0 do

if (AFormName.MDIChildren[i]. Name = AMDIChildName) then

begin

Result := True;

AFormName.MDIChildren[i]. Free;

end;

end;

function TMainClientsForm. IsFormOpen (const FormName: string): Boolean;

var

i: Integer;

begin

Result := False;

for i := Screen. FormCount — 1 DownTo 0 do

if (Screen.Forms[i]. Name = FormName) then

begin

Result := True;

Break;

end;

end;

// функция создания дочерней формы для отображения результатов информационных запросов

procedure TMainClientsForm. BuildGridDatabaseDirectoryItem (sCaption:String; ds: TDataSource);

begin

//создаем форму

DirectoryForm:=TDBDirectoryTemplateForm.Create (Owner);

DirectoryForm.TableDBGrid.DataSource:=ds;

DirectoryForm.Top:=0;

DirectoryForm.Left:=0;

DirectoryForm.Caption:=sCaption;

end;

// функция закрытия главного окна

procedure TMainClientsForm. N12Click (Sender: TObject);

begin

MainClientsForm.Close;

end;

// процедура запуска и настройки справочника автозапчасти

procedure TMainClientsForm. N6Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;

mainclientsform.ADOTable1.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('автозапчасти', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ИД.';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Наименование';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ид.размещения';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='ид.дополн. информации';

DirectoryForm.TableDBGrid.Fields[4]. DisplayLabel:='ид. запасов';

DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='ид. партии';

end;

// процедура запуска и настройки справочника «накладные»

procedure TMainClientsForm. N7Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;

mainclientsform.ADOTable2.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('накладные', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='№ накладной';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='дата';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ид. автозапчасти';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='откуда';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='цель';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='количество';

DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='стоимость';

DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='номер партии';

end;

// процедура запуска и настройки справочника «запасы»

procedure TMainClientsForm. N8Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;

mainclientsform.ADOTable3.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('запасы автозапчастей', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='№ записи';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='ед. измерения';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='количество';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='стоимость';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='резерв. кол.';

DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='кто резерв.';

DirectoryForm.TableDBGrid.Fields[6]. DisplayLabel:='дата резерв.';

DirectoryForm.TableDBGrid.Fields[7]. DisplayLabel:='примечание';

end;

// процедура запуска и настройки справочника «заказы»

procedure TMainClientsForm. N9Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;

mainclientsform.ADOTable4.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('заказы на автозапчасти', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='№ заказа';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='дата';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='заказчик';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='№ автозапчасти';

DirectoryForm.TableDBGrid.Fields[4]. DisplayLabel:='количество';

end;

// процедура запуска «горячих» кнопок приложения

procedure TMainClientsForm. RzRapidFireButton1Click (Sender: TObject);

begin

MainClientsForm.N6Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton2Click (Sender: TObject);

begin

MainClientsForm.N22Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton3Click (Sender: TObject);

begin

MainClientsForm.N19Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton4Click (Sender: TObject);

begin

MainClientsForm.N4Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton5Click (Sender: TObject);

begin

MainClientsForm.N3Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton6Click (Sender: TObject);

begin

MainClientsForm.N11Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton7Click (Sender: TObject);

begin

MainClientsForm.N14Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton8Click (Sender: TObject);

begin

MainClientsForm.Close;

end;

// процедура запуска и настройки справочника «заказы»

procedure TMainClientsForm. N10Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;

mainclientsform.ADOTable5.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Размещение запчастей', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='№ записи';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='место на складе';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='уточнение размещение';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='примечание';

end;

// процедура запуска и настройки справочника «Дополнительные сведения»

procedure TMainClientsForm. N20Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;

mainclientsform.ADOTable6.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Дополнительные сведения об автозапчастях ', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='№ записи';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='серийный номер';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='срок годности';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:=' Марка автомобиля';

DirectoryForm.TableDBGrid.Fields[4]. DisplayLabel:=' год';

DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:=' Примечание';

DirectoryForm.TableDBGrid.Fields[6]. DisplayLabel:=' Модель';

end;

// процедура запуска и настройки справочника «партии товаров»

procedure TMainClientsForm. N21Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;

mainclientsform.ADOTable7.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Сведения о партиях запчастей', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='№ записи';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='№ партии';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='количество';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='откуда';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='дата';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='описание операции';

end;

// процедура создания формы для просмотра записей

procedure TMainClientsForm. N22Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'addForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

MainClientsForm.N6Click (sender);

prosmForm:=Taddform.Create (Owner);

prosmForm.Top:=230;

prosmForm.Left:=0;

prosmForm.Width:=500;

prosmForm.Height:=200;

prosmForm.Caption:='просмотр записей';

prosmForm.DBNavigator1.Visible:=true;

mainflag:=true;

prosmForm.Show;

prosmForm.Button1.Visible:=false;

prosmForm.GroupBox3.Visible:=false;

prosmForm.GroupBox4.Visible:=false;

MainClientsForm.DataSource1.DataSet.last

end;

//процедура, обрабатывающая событие открытия главной формы приложения, основное назначение соединение с базой данных проверка логина и пароля

procedure TMainClientsForm. FormCreate (Sender: TObject);

var NewConnection: Widestring;

begin

ADOConnection1.Close;

// указываем файл .udl для ADOConnection1

ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.

4.0;User ID=Admin;Data Source='+GetCurrentDir+'avtozap.mdb;';

ADOConnection1.Open;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable2.Active:=true;

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable4.Active:=true;

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable6.Active:=true;

MainClientsForm.ADOTable7.Active:=true;

end;

// процедура создания формы для добавления записей

procedure TMainClientsForm. N3Click (Sender: TObject);

var dobForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'addForm');

dobForm:=Taddform.Create (Owner);

dobForm.Top:=240;

dobForm.Left:=3;

dobForm.Caption:='добавление записи';

dobForm.Show;

dobForm.Button1.Visible:=true;

dobForm.GroupBox1.Visible:=false;

dobForm.GroupBox3.Visible:=false;

dobForm.GroupBox4.Visible:=false;

end;

// процедура обработки события изменения DataSource, для изменения текущей записи при просмотре базы данных и выборе всех информационных полей

procedure TMainClientsForm. DataSource1DataChange (Sender: TObject;

Field: TField);

var

sql_str, rez: string;

P11:Tparameter;

rezdate:tdatetime;

rezint:integer;

rezfloat:real;

Ayear, amonth, aday, ahour, aminute, asecond, amillisecond: word;

begin

if mainflag then

begin

prosmForm.edit1.text:='';

prosmForm.edit2.text:='';

prosmForm.edit3.text:='';

prosmForm.edit4.text:='';

prosmForm.edit5.text:='';

prosmForm.edit6.text:='1';

prosmForm.edit7.text:='1';

prosmForm.edit9.text:='1';

prosmForm.edit10.text:='1';

prosmForm.edit8.text:='2011';

prosmForm.edit11.text:='2011';

prosmForm.edit12.text:='';

prosmForm.edit13.text:='';

prosmForm.edit14.text:='';

prosmForm.edit15.text:='';

prosmForm.edit16.text:='';

prosmForm.edit17.text:='';

prosmForm.edit18.text:='';

prosmForm.edit19.text:='';

prosmForm.edit20.text:='';

prosmForm.edit21.text:='';

prosmForm.edit22.text:='';

prosmForm.edit23.text:='';

prosmForm.edit41.text:='';

prosmForm.edit42.text:='';

prosmForm.edit43.text:='';

//из таблицы

prosmForm.Edit1.Text:=MainClientsForm.DataSource1.DataSet.FieldByName ('nameTovar').AsString;

idLocation:=MainClientsForm.DataSource1.DataSet.FieldByName ('idLocation').AsInteger; ;

idAddional:=MainClientsForm.DataSource1.DataSet.FieldByName ('idAddional').AsInteger; ;

idZapas:=MainClientsForm.DataSource1.DataSet.FieldByName ('idZapas').AsInteger; ;

idPartiya:=MainClientsForm.DataSource1.DataSet.FieldByName ('idPartiya').AsInteger; ;

// размещение

sql_str:='SELECT * from Location where idLocation= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=idLocation;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('Location').AsString;

prosmForm.Edit14.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('addional_location').AsString;

prosmForm.Edit15.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('notes').AsString;

prosmForm.Edit16.Text:=rez;

// дополнительные сведения

sql_str:='SELECT * from Addional where idAddional= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:= idAddional;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('Ser_num').AsString;

prosmForm.Edit5.Text:=rez;

model:=MainClientsForm.ADOQuery1.FieldByName ('marka').AsString;

modelavto:=MainClientsForm.ADOQuery1.FieldByName ('model').AsString;

god:=MainClientsForm.ADOQuery1.FieldByName ('god').AsInteger;

prosmForm.Edit41.Text:=modelavto;

prosmForm.Edit42.Text:=model;

prosmForm.Edit43.Text:=inttostr (god);

rezdate:= MainClientsForm. ADOQuery1.FieldByName ('srok_godnost').AsDateTime;

end;

// процедура добавления заказа

procedure TMainClientsForm. N4Click (Sender: TObject);

var zakForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'zakForm');

IsMDIChildOpen (MainClientsForm,'addForm');

zakForm:=Taddform.Create (Owner);

zakForm.Top:=240;

zakForm.Left:=3;

zakForm.Caption:='создание заказа';

zakForm.Show;

zakForm.Button1.Visible:=true;

zakForm.GroupBox1.Visible:=false;

zakForm.GroupBox2.Visible:=false;

zakForm.GroupBox4.Visible:=false;

zakForm.GroupBox3.Left:=2;

zakForm.GroupBox3.Top:=2;

end;

// процедура настройки динамического поиска автозапчасти по наименованию'

procedure TMainClientsForm. N14Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='поиск наличия автозапчасти по наименованию';

nomer_poisk:=1;

poisk.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

// процедура настройки динамического поиска контроль сроков хранения'

procedure TMainClientsForm. N15Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='проверка ср. годности расх. материала';

nomer_poisk:=2;

poisk.Edit1.Visible:=false;

poisk.Label1.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label2.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

{ poisk. UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;}

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

// процедура настройки динамического поиска размещения автозапчасти

procedure TMainClientsForm. N16Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='поиск размещения автозапчасти';

nomer_poisk:=3;

poisk.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

// процедура настройки динамического поиска хронологии накладных

procedure TMainClientsForm. N17Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='просмотр хронологии накладных';

nomer_poisk:=4;

poisk.Label1.Visible:=false;

poisk.Edit1.Visible:=false;

poisk.Label7.Caption:='Накладные в период'

end;

procedure TMainClientsForm. N18Click (Sender: TObject);

begin

MainClientsForm.N19Click (Sender);

end;

// процедура добавления накладной

procedure TMainClientsForm. N11Click (Sender: TObject);

var naklForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'naklForm');

IsMDIChildOpen (MainClientsForm,'addForm');

naklForm:=Taddform.Create (Owner);

naklForm.Top:=240;

naklForm.Left:=3;

naklForm.Caption:='создание накладной';

naklForm.Show;

naklForm.GroupBox1.Visible:=false;

naklForm.GroupBox2.Visible:=false;

naklForm.GroupBox3.Visible:=false;

naklForm.GroupBox4.Left:=2;

naklForm.GroupBox4.Top:=2;

naklForm.GroupBox4.Width:=600;

naklForm.GroupBox4.Height:=250;

end;

// процедура настройки динамического поиска подбор автозапчасти

procedure TMainClientsForm. N19Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='Подбор автозапчасти';

nomer_poisk:=5;

poisk.Label2.Visible:=True;

poisk.Label3.Visible:=True;

poisk.Label7.Visible:=false;

poisk.Label2.Caption:='Марка авто';

poisk.Label3.Caption:='Модель';

poisk.Edit2.text:='';

poisk.Edit5.text:='';

poisk.Edit2.Visible:=True;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=true;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

poisk.Label1.Caption:='Автозапчасть';

poisk.Button1.Caption:='Подбор автозапчасти'

end;

end.ПРИЛОЖЕНИЕ Б ФОРМЫ ВХОДНЫХ И ВЫХОДНЫХ ДОКУМЕНТОВ