Автор работы: Пользователь скрыл имя, 07 Мая 2012 в 18:00, дипломная работа
Целью проектирования является разработка средства автоматизированной информационной поддержки работы логистика склада по поддержке процессов закупа и учёта хранения товаров на складе.
В соответствии с поставленной целью можно сформулировать следующие задачи разработки системы:
системный анализ работы логистика;
построение схемы информационного взаимодействия отдела логистики с другими подразделениями пред
Введение................................................................................................................ 7
1 Описание предметной области………………………………………………. 9
1.1 Обзор систем организации управления предприятия ..……………….. 9
1.2 Характеристика объекта автоматизации ………………………………. 14
1.3 Описание и схема информационного взаимодействия элементов
Системы …..………………………………………………...……………… 16
2 Описание постановки комплекса задач системы …..………………………. 18
2.1 Общая характеристика задач системы …..….………………………… 18
2.2 Выходная информация ………...………………………………………. 28
2.3 Входная информация…………………………………………………… 29
2.4 Технологические процесс функционирования системы
в автоматизированном режиме……………………………………………. 30
2.5 Требования к программно-техническому обеспечению…………….... 32
2.5.1 Комплекс технических средств………………………………........ 32
2.5.2 Общесистемное программное обеспечение….…………….…….. 33
2.5.3 Выбор и обоснование инструментального средства……….……. 33
3 Разработка информационного обеспечения системы………………...……. 36
3.1 Состав и структура таблиц базы данных системы………………….. 37
3.2 Логическая модель взаимосвязи таблиц базы данных системы….... 44
3.3 Информационная модель системы..…..…………………………….... 45
3.4 Описание алгоритмов и программ…………….…
str1[i++] = DataSource9->DataSet->
for (j = 0; j < length; j++)
{
ComboBox7->Items->Add(str1[j])
}
Query13->Active = false;
Query13->Active = true;
TDataSet *ds2 = DataSource13->DataSet;
length = ds2->RecordCount;
AnsiString *str2 = new AnsiString[length];
i = 0;
for (ds2->First(); !ds2->Eof; ds2->Next())
str2[i++] = DataSource13->DataSet->
for (j = 0; j < length; j++)
{
ComboBox10->Items->Add(str2[j]
}
}
//----------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
UpdateComboBoxSale();
Edit5->Text = "";
Edit9->Text = "";
}
//----------------------------
//----------------------------
void TForm1::
{
ComboBox8->Clear();
ComboBox9->Clear();
ComboBox11->Clear();
Query8->Active = false;
Query8->Active = true;
TDataSet *ds = DataSource8->DataSet;
int length = ds->RecordCount;
AnsiString *str = new AnsiString[length];
int i = 0, j = 0;
for (ds->First(); !ds->Eof; ds->Next())
str[i++] = DataSource8->DataSet->
for (j = 0; j < length; j++)
{
ComboBox8->Items->Add(str[j]);
}
// delete ds;
Query9->Active = false;
Query9->Active = true;
TDataSet *ds1 = DataSource9->DataSet;
length = ds1->RecordCount;
AnsiString *str1 = new AnsiString[length];
i = 0;
for (ds1->First(); !ds1->Eof; ds1->Next())
str1[i++] = DataSource9->DataSet->
for (j = 0; j < length; j++)
{
ComboBox9->Items->Add(str1[j])
}
Query13->Active = false;
Query13->Active = true;
TDataSet *ds2 = DataSource13->DataSet;
length = ds2->RecordCount;
AnsiString *str2 = new AnsiString[length];
i = 0;
for (ds2->First(); !ds2->Eof; ds2->Next())
str2[i++] = DataSource13->DataSet->
for (j = 0; j < length; j++)
{
ComboBox11->Items->Add(str2[j]
}
}
//----------------------------
//----------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
UpdateComboBoxSupplies();
Edit6->Text = "";
Edit7->Text = "";
}
//----------------------------
void TForm1::UpdateComboBoxWrite_
{
ComboBox12->Clear();
ComboBox13->Clear();
ComboBox14->Clear();
ComboBox15->Clear();
Query8->Active = false;
Query8->Active = true;
TDataSet *ds = DataSource8->DataSet;
int length = ds->RecordCount;
AnsiString *str = new AnsiString[length];
int i = 0, j = 0;
for (ds->First(); !ds->Eof; ds->Next())
str[i++] = DataSource8->DataSet->
for (j = 0; j < length; j++)
{
ComboBox12->Items->Add(str[j])
}
Query9->Active = false;
Query9->Active = true;
TDataSet *ds1 = DataSource9->DataSet;
length = ds1->RecordCount;
AnsiString *str1 = new AnsiString[length];
i = 0;
for (ds1->First(); !ds1->Eof; ds1->Next())
str1[i++] = DataSource9->DataSet->
for (j = 0; j < length; j++)
{
ComboBox13->Items->Add(str1[j]
}
Query13->Active = false;
Query13->Active = true;
TDataSet *ds2 = DataSource13->DataSet;
length = ds2->RecordCount;
AnsiString *str2 = new AnsiString[length];
i = 0;
for (ds2->First(); !ds2->Eof; ds2->Next())
str2[i++] = DataSource13->DataSet->
for (j = 0; j < length; j++)
{
ComboBox14->Items->Add(str2[j]
}
Query14->Active = false;
Query14->Active = true;
TDataSet *ds3 = DataSource14->DataSet;
length = ds3->RecordCount;
AnsiString *str3 = new AnsiString[length];
i = 0;
for (ds3->First(); !ds3->Eof; ds3->Next())
str3[i++] = DataSource14->DataSet->
for (j = 0; j < length; j++)
{
ComboBox15->Items->Add(str3[j]
}
}
//----------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
UpdateComboBoxWrite_off();
Edit10->Text = "";
Edit8->Text = "";
}
//----------------------------
void TForm1::
{
ComboBox16->Clear();
ComboBox17->Clear();
ComboBox10->Clear();
Query8->Active = false;
Query8->Active = true;
TDataSet *ds = DataSource8->DataSet;
int length = ds->RecordCount;
AnsiString *str = new AnsiString[length];
int i = 0, j = 0;
for (ds->First(); !ds->Eof; ds->Next())
str[i++] = DataSource8->DataSet->
for (j = 0; j < length; j++)
{
ComboBox16->Items->Add(str[j])
}
Query9->Active = false;
Query9->Active = true;
TDataSet *ds1 = DataSource9->DataSet;
length = ds1->RecordCount;
AnsiString *str1 = new AnsiString[length];
i = 0;
for (ds1->First(); !ds1->Eof; ds1->Next())
str1[i++] = DataSource9->DataSet->
for (j = 0; j < length; j++)
{
ComboBox17->Items->Add(str1[j]
}
}
//----------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
UpdateComboBoxInventory();
Edit11->Text = "";
Edit12->Text = "";
Edit14->Text = "";
}
//----------------------------
void __fastcall TForm1::Button15Click(TObject *Sender)
{
Edit15->Text= "";
}
//----------------------------
void __fastcall TForm1::Button17Click(TObject *Sender)
{
Edit13->Text = "";
}
//----------------------------
void __fastcall TForm1::Button19Click(TObject *Sender)
{
Edit16->Text = "";
}
//----------------------------
void __fastcall TForm1::N9Click(TObject *Sender)
{
this->GroupBox2->Visible=
this->GroupBox3->Visible=
this->GroupBox1->Visible=
this->GroupBox4->Visible=
this->GroupBox6->Visible=
this->GroupBox7->Visible=
this->GroupBox5->Visible=
this->GroupBox13->Visible=
}
//----------------------------
void __fastcall TForm1::N10Click(TObject *Sender)
{
this->GroupBox2->Visible=
this->GroupBox3->Visible=
this->GroupBox1->Visible=
this->GroupBox4->Visible=
this->GroupBox6->Visible=
this->GroupBox7->Visible=
this->GroupBox5->Visible=
this->GroupBox13->Visible=
}
//----------------------------
void __fastcall TForm1::N11Click(TObject *Sender)
{
this->GroupBox2->Visible=
this->GroupBox3->Visible=
this->GroupBox1->Visible=
this->GroupBox4->Visible=
this->GroupBox6->Visible=
this->GroupBox7->Visible=
this->GroupBox5->Visible=
this->GroupBox13->Visible=
}
//----------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
/* Table1->Append();
Table1->FieldValues["id_name"] = ComboBox1->Text;
Table1->FieldValues["id_group"
Table1->FieldValues["id_
Table1->FieldValues["id_ed_
Table1->FieldValues["id_
Table1->FieldValues["k_sh"] = Edit1->Text;*/
/* Table3->FieldValues["Date"] = Edit1->Text;
Table3->FieldValues["Sum"] = Edit3->Text;
Table3->FieldValues["ID_sklad"
// Table1->Post();
/*Table1->Active=false;
Table1->Active=true; */
/*Query1->Active=false;
Query1->Active=true;*/
}
//----------------------------
//----------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//----------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
UpdateComboBox();
}
//----------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form2->Close();
Form1->Enabled=true;
Form1->Show();
}
//----------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
Form1->Table1->Append();
Form1->Table1->FieldValues["
Form1->Table1->FieldValues["
Form1->Table1->FieldValues["
Form1->Table1->FieldValues["
Form1->Table1->Post();
Form1->GZ();
Form2->Close();
Form1->Enabled=true;
Form1->Show();
Form1->GroupBox6->Visible=
}
//----------------------------
void TForm2::UpdateComboBox()
{
ComboBox1->Clear();
ComboBox2->Clear();
Query1->Active = false;
Query1->Active = true;
TDataSet *dss = DataSource1->DataSet;
int length = dss->RecordCount;
AnsiString *str = new AnsiString[length];
int i = 0, j = 0;
for (dss->First(); !dss->Eof; dss->Next())
str[i++] = DataSource1->DataSet->
for (j = 0; j < length; j++)
{
ComboBox1->Items->Add(str[j]);
}
Query2->Active = false;
Query2->Active = true;
TDataSet *dss1 = DataSource2->DataSet;
length = dss1->RecordCount;
AnsiString *str1 = new AnsiString[length];
i = 0;
for (dss1->First(); !dss1->Eof; dss1->Next())
str1[i++] = DataSource2->DataSet->
for (j = 0; j < length; j++)
{
ComboBox2->Items->Add(str1[j])
}
//----------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#include "Unit1.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//----------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
UpdateComboBox();
}
//----------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Form3->Close();
Form1->Enabled=true;
Form1->Show();
}
//----------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
Form3->Close();
Form1->Enabled=true;
Form1->Show();
Form1->GroupBox7->Visible=
}
//----------------------------
void TForm3::UpdateComboBox()
{
ComboBox1->Clear();
ComboBox2->Clear();
Query1->Active = false;
Query1->Active = true;
TDataSet *dss = DataSource1->DataSet;
int length = dss->RecordCount;
AnsiString *str = new AnsiString[length];
int i = 0, j = 0;
for (dss->First(); !dss->Eof; dss->Next())
str[i++] = DataSource1->DataSet->
for (j = 0; j < length; j++)
{
ComboBox1->Items->Add(str[j]);
}
Query2->Active = false;
Query2->Active = true;
TDataSet *dss1 = DataSource2->DataSet;
length = dss1->RecordCount;
AnsiString *str1 = new AnsiString[length];
i = 0;
for (dss1->First(); !dss1->Eof; dss1->Next())
str1[i++] = DataSource2->DataSet->
for (j = 0; j < length; j++)
{
ComboBox2->Items->Add(str1[j])
}
}
//----------------------------
#ifndef Unit1H
#define Unit1H
//----------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
//----------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TMainMenu *MainMenu1;
TMenuItem *N1;
TMenuItem *N2;
TMenuItem *N3;
TMenuItem *N4;
TMenuItem *N5;
TMenuItem *N6;
TMenuItem *N7;
TMenuItem *N8;
TMenuItem *N9;
TMenuItem *N10;
TMenuItem *N11;
TMenuItem *N12;
TMenuItem *ORZ1;
TMenuItem *ORZ2;
TGroupBox *GroupBox1;
TDataSource *DataSource1;
TDBGrid *DBGrid1;
TDBNavigator *DBNavigator1;
TQuery *Query1;
TDatabase *Database1;
TSpeedButton *SpeedButton1;
TGroupBox *GroupBox2;
TDBGrid *DBGrid2;
TDBNavigator *DBNavigator2;
TDataSource *DataSource2;
TQuery *Query2;
TGroupBox *GroupBox3;
TDBGrid *DBGrid3;
TDBNavigator *DBNavigator3;
TDataSource *DataSource3;
TQuery *Query3;
TGroupBox *GroupBox4;
TDBGrid *DBGrid4;
TDBNavigator *DBNavigator4;
TQuery *Query4;
TDataSource *DataSource4;
TGroupBox *GroupBox5;
TDBNavigator *DBNavigator5;
TDBGrid *DBGrid5;
TQuery *Query5;
TDataSource *DataSource5;
TGroupBox *GroupBox6;
TDataSource *DataSource6;
TDBGrid *DBGrid6;
TDBNavigator *DBNavigator6;
TQuery *Query6;
TGroupBox *GroupBox7;
TDataSource *DataSource7;
TDBGrid *DBGrid7;
TDBNavigator *DBNavigator7;
TQuery *Query7;
TGroupBox *GroupBox8;
TComboBox *ComboBox1;
TLabel *Label1;
TComboBox *ComboBox2;
TComboBox *ComboBox3;
TComboBox *ComboBox4;
TComboBox *ComboBox5;
TEdit *Edit1;
TLabel *Label2;
TLabel *Label3;
TEdit *Edit2;
TEdit *Edit3;
TEdit *Edit4;
TButton *Button1;
TButton *Button2;
TGroupBox *GroupBox9;
TLabel *Label4;
TComboBox *ComboBox6;
TButton *Button3;
TButton *Button4;
TComboBox *ComboBox7;
TDateTimePicker *DateTimePicker1;
TComboBox *ComboBox10;
TEdit *Edit5;
TEdit *Edit9;
TGroupBox *GroupBox10;
TLabel *Label5;
TComboBox *ComboBox8;
TButton *Button5;
TButton *Button6;
TComboBox *ComboBox9;
TDateTimePicker *DateTimePicker2;
TComboBox *ComboBox11;
TEdit *Edit6;
TEdit *Edit7;
TGroupBox *GroupBox11;
TLabel *Label6;
TComboBox *ComboBox12;
TButton *Button7;
TButton *Button8;
TComboBox *ComboBox13;
TDateTimePicker *DateTimePicker3;
TComboBox *ComboBox14;
TEdit *Edit8;
TEdit *Edit10;
TLabel *Label7;
TComboBox *ComboBox15;
TGroupBox *GroupBox12;
TLabel *Label8;
TComboBox *ComboBox16;
TButton *Button9;
TButton *Button10;
TComboBox *ComboBox17;
TDateTimePicker *DateTimePicker4;
TEdit *Edit11;
TEdit *Edit12;
TEdit *Edit14;
TButton *Button11;
TButton *Button12;
TButton *Button13;
TButton *Button14;
TSpeedButton *SpeedButton2;
TSpeedButton *SpeedButton3;
TDataSource *DataSource8;
TQuery *Query8;
TQuery *Query9;
TDataSource *DataSource9;
TDataSource *DataSource10;
TQuery *Query10;
TQuery *Query11;
TDataSource *DataSource11;
TDataSource *DataSource12;
TQuery *Query12;
TQuery *Query13;
TDataSource *DataSource13;
TDataSource *DataSource14;
TQuery *Query14;
TGroupBox *GroupBox13;
TDBGrid *DBGrid8;
TDataSource *DataSource15;
TQuery *Query15;
TDBNavigator *DBNavigator8;
TGroupBox *GroupBox14;
TLabel *Label9;
TEdit *Edit15;
TDBGrid *DBGrid9;
TDBGrid *DBGrid10;
TDBNavigator *DBNavigator9;
TDBNavigator *DBNavigator10;
TDataSource *DataSource16;
TDataSource *DataSource17;
Информация о работе Разработка программного обеспечения поддержки процессов закупа и учёта