Курсовой проект - Системний аналіз процесу пошиття одягу

Подождите немного. Документ загружается.

ВИСНОВКИ

В даній курсовій роботі було досліджено технологічний процес пошиття

одягу. На основі цього було спроектовано інформаційну систему для

автоматизації роботи системних процесів обміну інформації. Як приклад було

розроблено програмний комплекс управління та контролю інформаційних

потоків технологічного процесу пошиття одягу. Для програмного комплексу

було спроектовано інформаційну базу, яка стала засобом обробки та зберігання

інформації. Тестування програми показало високі результати, підтвердило

правильність обробки, безпеку та надійність зберігання інформації на

жорсткому диску.

ЛІТЕРАТУРА

1. Базы данных. Проектирование, реализация и сопровождение. Теория и

практика. 3-е издание. : Пер. с англ. — М. : Издательский дом "Вильяме",

2003. — 1440 с. : ил. — Парал. тит. англ.

2. Буч Г. Объектно-ориентированный анализ и проектирование с примерами

приложений на C: Пер. с англ. – М.: Бином, 2000. – 560 с.

3. Вирт Н. Алгоритмы и структуры данных. – М.: Мир, 1989. – 360 с.

4. Глушков В.М., Цейтлин Г.Е., Ющенко Е.Л. Алгебра. Языки.

Программирование. 3-е изд. – К.: Наукова думка, 1989. – 376 с.

5. Глушков В.М., Цейтлин Г.Е., Ющенко Е.Л. Теория языковых

процессоров и параллельные вычисления // Кибернетика. – 1979. – №1. –

С. 1–19.

6. К.Рейсдорф К.Хендерсон - Borland C++ Builder. Освой самостоятельно

7. Капитонова Ю.В., Летичевский А.А. Математическая теория

проектирования вычислительных систем. – М.: Наука, 1988. – 296 с.

8. Кнут Д. Искусство программирования для ЭВМ. – М.: Мир, 1978. – Т. 3:

Сортировка и поиск. – 843 с.

9. Кокеткин П. П. и др. Промышленная технология одежды. Справочник. М.

Легпромбытиздат, 1988

10.Лебедев В.Н. Введение в системы программирования. – М.: Статистика,

1975. – 311 с.

11.Першина Л. Ф., Петрова С. В. Технология швейного производства. М.

Легпромбытиздат, 1991

ДОДАТОК А

Текст програмних модулів

Unit1.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Hide();

Form2->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Hide();

Form3->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Hide();

Form4->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)

{

Hide();

Form5->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

Unit2.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit9.h"

#include "Unit10.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

//---------------------------------------------------------------------------

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)

{

Form1->Show();

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button2Click(TObject *Sender)

{

ADOQuery1->SQL->Text ="select m.id, m.name, t.name, c.name, o.name, m.rozmir, m.quant from

material m, tkans t, ov o, colors c where c.id = m.id_color and t.id = m.id_tkan and o.id = m.id_ov";

ADOQuery1->ExecSQL();

ADOQuery1->Active = true;

}

//---------------------------------------------------------------------------

void __fastcall TForm2::N17Click(TObject *Sender)

{

Form6->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::N15Click(TObject *Sender)

{

Form7->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::N12Click(TObject *Sender)

{

Form8->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button1Click(TObject *Sender)

{

String ss = Edit1->Text;

String SQL = "select m.id, m.name, t.name, c.name, o.name, m.rozmir, m.quant from material m, tkans t,

ov o, colors c where c.id = m.id_color and t.id = m.id_tkan and o.id = m.id_ov ";

if(!Edit1->Text.IsEmpty())

SQL+="and m.name like '%"+ss+"%' ";

if(RadioButton1->Checked)SQL+=" and quant > 0";

if(RadioButton2->Checked)SQL+=" and quant = 0";

if(CheckBox1->Checked)

{

if(ComboBox2->ItemIndex==0)SQL+=" order by m.id";

if(ComboBox2->ItemIndex==1)SQL+=" order by m.name";

if(ComboBox2->ItemIndex==2)SQL+=" order by t.name";

if(ComboBox2->ItemIndex==3)SQL+=" order by c.name";

if(ComboBox2->ItemIndex==4)SQL+=" order by o.id";

if(ComboBox2->ItemIndex==5)SQL+=" order by m.quant";

}

ADOQuery1->SQL->Text = SQL;

ADOQuery1->ExecSQL();

ADOQuery1->Active = true;

}

//---------------------------------------------------------------------------

void __fastcall TForm2::N2Click(TObject *Sender)

{

Form9->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::N8Click(TObject *Sender)

{

Form10->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::DBGrid1DblClick(TObject *Sender)

{

String id = ADOQuery1->FieldByName("id")->AsString;

String S = InputBox("На цех", "Введіть клькість:", "");

if(S == "")return;

int k=0;

try

{

k = StrToInt(S);

}catch(...){ShowMessage("Введіть ціле число!");}

AQ2->SQL->Text = "insert into to_cex(id_mat, quant) values(:p1, :p2)";

AQ2->Parameters->ParamByName("p1")->Value = id;

AQ2->Parameters->ParamByName("p2")->Value = k;

AQ2->ExecSQL();

AQ2->SQL->Text = "select m.id, m.name, t.quant from material m, to_cex t where m.id = t.id_mat";

AQ2->ExecSQL();

AQ2->Active = true;

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button3Click(TObject *Sender)

{

AQ2->First();

for(int i=0;i<AQ2->RecordCount;i++)

{

AQ1->SQL->Text = "select id_mat from to_cex where id = :p1";

AQ1->Parameters->ParamByName("p1")->Value = AQ2->FieldByName("id")->AsString;

AQ1->ExecSQL();

AQ1->Active = true;

String id = AQ1->FieldByName("id_mat")->AsString;

String id_os = ADOQuery3->FieldByName("id")->AsString;

String quant = AQ2->FieldByName("quant")->AsString;

AQ1->SQL->Text = "insert into zvit_cex(id_tov, quant, ok, id_os) values(:p1, :p2, :p3, :p4)";

AQ1->Parameters->ParamByName("p1")->Value = id;

AQ1->Parameters->ParamByName("p2")->Value = quant;

AQ1->Parameters->ParamByName("p3")->Value = "0";

AQ1->Parameters->ParamByName("p4")->Value = id_os;

AQ1->ExecSQL();

AQ2->Next();

}

AQ2->SQL->Text = "delete from to_cex";

AQ2->ExecSQL();

AQ2->SQL->Text = "select m.id, m.name, t.quant from material m, to_cex t where m.id = t.id_mat";

AQ2->ExecSQL();

AQ2->Active = true;

ShowMessage("Матеріал відправлено в швейний цех!");

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button4Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

Unit3.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

#include "Unit1.h"

#include "Unit11.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

//---------------------------------------------------------------------------

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)

{

Form1->Show();

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button3Click(TObject *Sender)

{

ADOQuery1->SQL->Text = "select z.id as 'idd', m.id, m.name, z.quant, os.name from material m, zvit_cex

z, osob os where m.id = z.id_tov and z.ok = 0 and z.id_os = os.id";

ADOQuery1->ExecSQL();

ADOQuery1->Active = true;

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button4Click(TObject *Sender)

{

ADOQuery2->SQL->Text = "select z.id as 'idd', m.id, m.name, z.quant, os.name from material m, zvit_cex

z, osob os where m.id = z.id_tov and z.ok = 1 and z.id_os = os.id";

ADOQuery2->ExecSQL();

ADOQuery2->Active = true;

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button1Click(TObject *Sender)

{

String id = ADOQuery1->FieldByName("'idd'")->AsString;

ADOQuery1->SQL->Text = "update zvit_cex set ok =1 where id = :p1";

ADOQuery1->Parameters->ParamByName("p1")->Value = id;

ADOQuery1->ExecSQL();

Button3->Click();

Button4->Click();

}

//---------------------------------------------------------------------------

void __fastcall TForm3::DBGrid2CellClick(TColumn *Column)

{

String id = ADOQuery2->FieldByName("id")->AsString;

AQ->SQL->Text = "select c.name as 'c', t.name as 't', o.name as 'o', m.rozmir from material m, colors c,

tkans t, ov o where m.id_color = c.id and m.id_tkan = t.id and m.id_ov = o.id and m.id = :p1";

AQ->Parameters->ParamByName("p1")->Value = id;

AQ->ExecSQL();

AQ->Active = true;

Edit1->Text = AQ->FieldByName("'c'")->AsString;

Edit2->Text = AQ->FieldByName("'t'")->AsString;

Edit3->Text = AQ->FieldByName("'o'")->AsString;

Edit4->Text = AQ->FieldByName("rozmir")->AsString;

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button5Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm3::DBGrid3CellClick(TColumn *Column)

{

String id = ADOQuery3->FieldByName("id")->AsString;

ADOQuery4->SQL->Text = "select s.id, m.name, s.quant from material m, sq s where s.id_tov = m.id and

s.id_od = :p1";

ADOQuery4->Parameters->ParamByName("p1")->Value = id;

ADOQuery4->ExecSQL();

ADOQuery4->Active = true;

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button6Click(TObject *Sender)

{

Form11->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button2Click(TObject *Sender)

{

String id_tov = ADOQuery2->FieldByName("id")->AsString;

String id_od = ADOQuery3->FieldByName("id")->AsString;

String S = InputBox("Додати матеріал", "Введіть кількість:", "");

if(S == "")return;

int i = StrToInt(S);

AQ->SQL->Text = "insert into sq(id_od, id_tov, quant) values(:p1, :p2, :p3)";

AQ->Parameters->ParamByName("p1")->Value = id_od;

AQ->Parameters->ParamByName("p2")->Value = id_tov;

AQ->Parameters->ParamByName("p3")->Value = i;

AQ->ExecSQL();

ADOQuery4->SQL->Text = "select s.id, m.name, s.quant from material m, sq s where s.id_tov = m.id and

s.id_od = :p1";

ADOQuery4->Parameters->ParamByName("p1")->Value = id_od;

ADOQuery4->ExecSQL();

ADOQuery4->Active = true;

}

//---------------------------------------------------------------------------

Unit4.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

//---------------------------------------------------------------------------

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm4::FormClose(TObject *Sender, TCloseAction &Action)

{

Form1->Show();

Close();

}

//---------------------------------------------------------------------------

Unit5.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit5.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm5 *Form5;

//---------------------------------------------------------------------------

__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm5::FormClose(TObject *Sender, TCloseAction &Action)

{

Form1->Show();

Close();

}

//---------------------------------------------------------------------------

Unit6.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit6.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm6 *Form6;

//---------------------------------------------------------------------------

__fastcall TForm6::TForm6(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm6::Button1Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

Unit7.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit7.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm7 *Form7;

//---------------------------------------------------------------------------

__fastcall TForm7::TForm7(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm7::Button1Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

Unit8.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit8.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm8 *Form8;

//---------------------------------------------------------------------------

__fastcall TForm8::TForm8(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm8::Button1Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm8::Ref()

{

ComboBox1->Clear();

AQ1->SQL->Text = "select * from tkans";

AQ1->ExecSQL();

AQ1->Active = true;

AQ1->First();

for(int i=0;i<AQ1->RecordCount;i++)

{

ComboBox1->Items->Add(AQ1->FieldByName("name")->AsString);

AQ1->Next();

}

ComboBox2->Clear();

AQ1->SQL->Text = "select * from colors";

AQ1->ExecSQL();

AQ1->Active = true;

AQ1->First();

for(int i=0;i<AQ1->RecordCount;i++)

{

ComboBox2->Items->Add(AQ1->FieldByName("name")->AsString);

AQ1->Next();

}

ComboBox3->Clear();

AQ1->SQL->Text = "select * from ov";

AQ1->ExecSQL();

AQ1->Active = true;

AQ1->First();

for(int i=0;i<AQ1->RecordCount;i++)

{

ComboBox3->Items->Add(AQ1->FieldByName("name")->AsString);

AQ1->Next();

}

//--------

void __fastcall TForm8::FormShow(TObject *Sender)

{

Ref();

}

//---------------------------------------------------------------------------

void __fastcall TForm8::DBNavigator1Click(TObject *Sender,

TNavigateBtn Button)

{

Ref();

}

//---------------------------------------------------------------------------

void __fastcall TForm8::Button2Click(TObject *Sender)

{

String id_1, id_2, id_3;

AQ1->SQL->Text = "select id from tkans where name = :p1";

AQ1->Parameters->ParamByName("p1")->Value = ComboBox1->Text;

AQ1->Active = true;

id_1 = AQ1->FieldByName("id")->AsString;

AQ1->SQL->Text = "select id from colors where name = :p1";

AQ1->Parameters->ParamByName("p1")->Value = ComboBox2->Text;

AQ1->Active = true;

id_2 = AQ1->FieldByName("id")->AsString;

AQ1->SQL->Text = "select id from ov where name = :p1";

AQ1->Parameters->ParamByName("p1")->Value = ComboBox3->Text;

AQ1->Active = true;

id_3 = AQ1->FieldByName("id")->AsString;

try{

AQ1->SQL->Text = "insert into material(name, id_tkan, id_color, id_ov, rozmir, quant)

values(:p1,:p2,:p3,:p4,0,0)";

AQ1->Parameters->ParamByName("p1")->Value = Edit1->Text;

AQ1->Parameters->ParamByName("p2")->Value = id_1;

AQ1->Parameters->ParamByName("p3")->Value = id_2;

AQ1->Parameters->ParamByName("p4")->Value = id_3;

AQ1->ExecSQL();

}catch(...){ShowMessage("Error");return;}

ShowMessage("Матеріал додано!");

}

//---------------------------------------------------------------------------

Unit9.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit9.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm9 *Form9;

//---------------------------------------------------------------------------

__fastcall TForm9::TForm9(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------