ня проведені з урахуванням актуальних особливостей сучасного ринку. Розглянута організація з'явилася класичним представником комерційної організації з ремонту та продажу техніки.
Однією з серйозних завдань стало вивчення сучасних інформаційних систем, на основі чого були зроблені соотоветствующіе висновки про особливості подібних програмних продуктів, їх позитивних і негативних якостях. Подальший крок був за дослідженням оргструктури організації ТОВ «Редтех». Було проведено вивчення всіх аспектів діяльності фірми, теоретично обгрунтований і сформульований процес проектування АСУ та її впровадження в роботу фірми.
На основі проведених досліджень і накопиченої теоретичної бази створена інформаційна модель поставленої задачі, відображено основні потоки даних при розробці нової інформаційної системи. Наведено детальне економічне обґрунтування створення та подальшого впровадження розроблюваного програмного продукту, зроблені розрахунки, на основі яких можна чітко судити про можливості системи, вигодах її впровадження в роботі фірми.
Підсумком проектування стало створення, тестування та практичне застосування розробленої АСУ, призначеної для автоматизації діяльності фірми ТОВ «Редтех».
Також в дипломному проекті були враховані питання безпеки при роботі з ПК і безпосередньо з програмним середовищем фірми ТОВ «Редтех»., описані небезпечні та шкідливі фактори, складена санітарно-гігієнічна характеристика приміщення і організація робочого місця, а також організаційно-технічні заходи щодо забезпечення умов безпеки.
Таким чином, всі завдання, поставлені в дипломному проекті, вирішені і всі цілі досягнуті.
Список використаних джерел
1 Алексеев С.П., Казаков А.М., Колотіков Н.П., «Боротьба з шумом і вібрацією в машинобудуванні. Машинобудування ».- М.- 1 970 - С. 207.
Архангельський А.Я. Програмування в Delphi 7. - М .: ТОВ «Біном-Пресс», 2003. - 1152 с .: ил.
3 «Безпека життєдіяльності: Під загальною редакцією С.В. Бєлова. Изд. 2-е испр. і доп. М .: Вища школа ».- 2008 - 448 с.
4 Впровадження системи «Управління підприємством» на базі Microsoft
Dynamics AX 4.0. - # justify gt; Додаток
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus;=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem; N4Click (Sender: TObject); N6Click (Sender: TObject); N7Click (Sender: TObject); N15Click (Sender: TObject); N8Click (Sender: TObject); N10Click (Sender: TObject); N1Click (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender: TObject); FormClose (Sender: TObject; var Action:TCloseAction); N12Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm3; Unit2, Unit1, Unit4, Unit5, Unit6, Unit10, Unit8, Unit9, Unit11,;
{$ R * .dfm} TForm3.N4Click (Sender: TObject) ;. Close ;; TForm3.N6Click (Sender: TObject) ;. showmodal ;; TForm3.N7Click (Sender: TObject) ;. Showmodal ;; TForm3.N15Click (Sender: TObject) ;. Showmodal ;; TForm3.N8Click (Sender: TObject) ;. Showmodal ;; TForm3.N10Click (Sender: TObject) ;. showmodal ;; TForm3.N1Click (Sender: TObject) ;. showmodal ;; TForm3.N2Click (Sender: TObject) ;. showmodal ;; TForm3.N3Click (Sender: TObject) ; .showmodal ;; TForm3.N12Click (Sender: TObject) ;. showmodal ;; TForm3. FormClose (Sender: TObject; var Action: TCloseAction) ;. Close ;;.
unit Unit5;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ADODB, DB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;=class (TForm): TDataSource ;: TDBGrid ;: TDBNavigator ;: TADOTable ;: TPanel ;: TEdit ;: TEdit ;: TEdit ;: TButton ;: TButton ;: TLabel ;: TLabel ;: TLabel ;: TButton ;: TButton ;: TButton ;: TLabel ;: TLabel ;: TButton; Button1Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject); Button2Click (Sender: TObject); ADOTable1BeforeDelete (DataSet: TDataSet); Button6Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm5 ;: boolean; Unit3, Unit4, Unit1, Unit2, Unit9, Unit10;
{$ R * .dfm} TForm5. Button1Click (Sender: TObject); (Edit1. Text lt; gt; ) and
(Edit2. Text lt; gt; ) and
(Edit3. Text lt; gt; ) flag=true then ADOTable1. InsertADOTable1. Edit ;. FieldValues ??[ Найменування послуги ]:=Edit1. Text ;. FieldValues ??[ Вартість ]:=Edit2. ...
