Выпуск продукции и расход сырья

Автор работы: Пользователь скрыл имя, 04 Декабря 2016 в 19:21, курсовая работа

Описание работы

Целью данного курсового проекта является разработка программы для автоматизации учета изделии. Внедрение этого приложения значительно облегчает и усовершенствует ведение данных об имеющихся изделиях и расхода.
Задачами курсового проекта являются:
описание предметной области;
описание технологии функционирования ИС;
построение базовой и ER–модели, даталогической (реляционная) модели БД;
разработка экранных форм ввода-вывода и отчета;

Содержание работы

Введение…………………………………………………………………….…...2
1. Анализ предметной области………………………………………………....3
2. Проектирование БД……………………………………………………..……8
2.1. Инфологическая модель………………………………………………...….9
2.2. ER – модель…………………………………………………………………10
2.3. Даталогическая модель…………………………………………………….11
2.4. Структура файла БД………………………………………………..………12
3. Описание приложения…………………………………………………….….13
3.1. Основные функции приложения…………………………………………..13
3.2. Описание работы программы……………………………………………...14
Заключение………………………………………………………………………24
Список литературы……………………………………………………………...25

Скачать архив (824.71 Кб) Сколько стоит заказать работу?

Файлы: 1 файл

курсоовая2.docx

— 3.22 Мб (Скачать файл)

Table1->Post();

}

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

#include <vcl.h>

#pragma hdrstop

#include "Unit5.h"

#include "Unit0.h"

#include "Unit2.h"

#include "Unit3.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm5 *Form5;

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

__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm5::Edit1Change(TObject *Sender)

{

Table1->FindNearest(&TVarRec(Edit1->Text),0);

}

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

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

{

Form2->Edit1->Text=Table1->FieldByName("N_izd")->AsString;

Form2->DateTimePicker1->Date=Table1->FieldByName("Dat_vip")->Value;

Form3->Edit1->Text=Table1->FieldByName("K_mas")->AsString;

Form3->DateTimePicker1->Date=Table1->FieldByName("Dat_vip")->Value;

}

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

#include <vcl.h>

#pragma hdrstop

#include "Unit6.h"

#include "Unit0.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm6*Form6;

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

__fastcall TForm6::TForm6(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm8::Edit1Change(TObject *Sender)

{

Table1->FindNearest(&TVarRec(Edit1->Text),0);

}

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

#include <vcl.h>

#pragma hdrstop

#include "Unit8.h"

#include "Unit0.h"

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

#pragma package(smart_init)

#pragma link "CSPIN"

#pragma resource "*.dfm"

TForm8 *Form8;

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

__fastcall TForm8::TForm8(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm8::Edit1Change(TObject *Sender)

{

RadioGroup1->ItemIndex=0;

Table1->FindNearest(&TVarRec(Edit1->Text),0);

}

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

void __fastcall TForm8::RadioGroup1Click(TObject *Sender)

{

if (RadioGroup1->ItemIndex==0)

Table1->Filtered = false;

else

{

if (RadioGroup1->ItemIndex==1)

Table1->Filter="Vid_tk='"+ComboBox1->Text+"'";

else

Table1->Filter="(Kol <="+

IntToStr(CSpinEdit2->Value)+") and (Kol >="+

IntToStr(CSpinEdit1->Value)+")";

Table1->Filtered = true;

}

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

void __fastcall TForm9::ComboBox1Change(TObject *Sender)

{

if (RadioGroup1->ItemIndex==0)

Table1->Filtered = false;

else

{

if (RadioGroup1->ItemIndex==1)

Table1->Filter="Vid_tk='"+ComboBox1->Text+"'";

else

Table1->Filter="(Kol <="+

IntToStr(CSpinEdit2->Value)+") and (Kol >="+

IntToStr(CSpinEdit1->Value)+")";

Table1->Filtered = true;

}

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

void __fastcall TForm8::CSpinEdit1Change(TObject *Sender)

{

if (RadioGroup1->ItemIndex==0)

Table1->Filtered = false;

else

{

if (RadioGroup1->ItemIndex==1)

Table1->Filter="Vid_tk='"+ComboBox1->Text+"'";

else

Table1->Filter="(Kol <="+

IntToStr(CSpinEdit2->Value)+") and (Kol >="+

IntToStr(CSpinEdit1->Value)+")";

Table1->Filtered = true;

}

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

void __fastcall TForm8::CSpinEdit2Change(TObject *Sender)

{

if (RadioGroup1->ItemIndex==0)

Table1->Filtered = false;

else

{

if (RadioGroup1->ItemIndex==1)

Table1->Filter="Vid_tk='"+ComboBox1->Text+"'";

else

Table1->Filter="(Kol <="+

IntToStr(CSpinEdit2->Value)+") and (Kol >="+

IntToStr(CSpinEdit1->Value)+")";

Table1->Filtered = true;

}

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

#include <vcl.h>

#pragma hdrstop

#include "Unit9.h"

#include "Unit0.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm9 *Form9;

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

__fastcall TForm9::TForm9(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm9::Button1Click(TObject *Sender)

{

AnsiString d;

switch (RadioGroup2->ItemIndex)

{

case 0:d=""; break;

case 1:d="DESC";

}

Query1->Close();

Query1->SQL->Clear();

Query1->SQL->Add("SELECT * FROM Izdelie.db");

switch (RadioGroup1->ItemIndex)

{

case 0:d="order by Vid_tk"+d; break;

case 1:d="order by Art_tk"+d;

}

Query1->SQL->Add(d);

Query1->Active=true;

}

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

void __fastcall TForm10::Button2Click(TObject *Sender)

{

Form9->Close();

}

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

#include <vcl.h>

#pragma hdrstop

#include "Unit11.h"

#include "Unit0.h"

#include "Unit13.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm11 *Form11;

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

__fastcall TForm11::TForm11(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm11::DateTimePicker1Change(TObject *Sender)

{

ShortDateFormat = "DD.MM.YYYY";

Table1->Filter="Vid_tk =’Расход' and Data>='"+DateToStr(DateTimePicker1->Date)

+"'and Data<='"+DateToStr(DateTimePicker2->Date)+"'";

Table1->Filtered = true;

}

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

void __fastcall TForm11::DateTimePicker2Change(TObject *Sender)

{

ShortDateFormat = "DD.MM.YYYY";

Table1->Filter="Vid_tk='расход' and Data>='"+DateToStr(DateTimePicker1->Date)

+"'and Data<='"+DateToStr(DateTimePicker2->Date)+"'";

Table1->Filtered = true;

}

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

void __fastcall TForm11::Button1Click(TObject *Sender)

{

DataSource1->DataSet->Edit();

ShortDateFormat = "DD.MM.YYYY";

Table2->Filter=" Vid_tk =’Расход' and Data>='"+DateToStr(DateTimePicker1->Date)

+"'and Data<='"+DateToStr(DateTimePicker2->Date)+"'";

Table2->Filtered = true;

DataSource1->DataSet->Post();

Form18->QuickRep1->Preview();

}

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

void __fastcall TForm13::Button2Click(TObject *Sender)

{

Form11->Close();

}

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

#include <vcl.h>

#pragma hdrstop

#include "Unit12.h"

#include "Unit1.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm12 *Form12;

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

__fastcall TForm12::TForm12(TComponent* Owner)

: TForm(Owner)

{

}

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

#include <vcl.h>

#pragma hdrstop

#include "Unit13.h"

#include "Unit9.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm12 *Form12;

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

__fastcall TForm13::TForm13(TComponent* Owner)

: TForm(Owner)

{

}

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

#include <vcl.h>

#pragma hdrstop

#include "Unit12.h"

#include "Unit1.h"

#include "Unit14.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm12 *Form12;

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

__fastcall TForm12::TForm12(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm12::DateTimePicker1Change(TObject *Sender)

{

ShortDateFormat = "DD.MM.YYYY";

Table1->Filter="Naz_tk='выработка' and Data>='"+DateToStr(DateTimePicker1->Date)

+"'and Data<='"+DateToStr(DateTimePicker2->Date)+"'";

Table1->Filtered = true;

}

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

void __fastcall TForm12::DateTimePicker2Change(TObject *Sender)

{

ShortDateFormat = "DD.MM.YYYY";

Table1->Filter=" Naz_tk='выработка' and Data>='"+DateToStr(DateTimePicker1->Date)

+"'and Data<='"+DateToStr(DateTimePicker2->Date)+"'";

Table1->Filtered = true;

}

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

void __fastcall TForm12::Button1Click(TObject *Sender)

{

DataSource1->DataSet->Edit();

ShortDateFormat = "DD.MM.YYYY";

Table2->Filter=" Naz_tk='выработка' and Data>='"+DateToStr(DateTimePicker1->Date)

+"'and Data<='"+DateToStr(DateTimePicker2->Date)+"'";

Table2->Filtered = true;

DataSource1->DataSet->Post();

Form14->QuickRep1->Preview();

}

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

void __fastcall TForm17::Button2Click(TObject *Sender)

{

Form14->Close();

}

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

#include <vcl.h>

#pragma hdrstop

#include "Unit14.h"

#include "Unit11.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm14 *Form14;

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

__fastcall TForm14::TForm14(TComponent* Owner)

: TForm(Owner)

{

}

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

Информация о работе Выпуск продукции и расход сырья