Разработка программного обеспечения поддержки процессов учета хранения товаров на складе

Б.3.2 Описание меню системы

Диалог системы и пользователя организован на основе меню. Меню системы представлено на рисунке 5.7. Главное меню программы содержит пять основных разделов:

- «Документы»;

- «Правка»

- «Справочники»;

- «Отчёты»;

- «Справка».

Б.3.3 Описание работы с пунктом меню «Файл»

Рассмотрим пункт меню «Документы». В этом разделе предоставляется доступ к журналам базы данных. Пункт меню «Файл» разделен на следующие подразделы:

- «Поступления»;

- «Продажи»;

- «Списания»;

- «Инвентаризация».

Эти подразделы предназначены для ввода документов «Приходная накладная», «Расходная накладная», «Акт на списание» и «Инвентаризационная ведомость». Рассмотрим работу их на примере подпункта меню «Продажи». Окно работы программы разделено на 2 части (см. рисунок 5.8). Первая часть предназначена для добавления новых записей на основе документа расходная накладная. Она имеет три поля для выбора наименования товара, заказчика, сотрудника, ответственного за отгрузку товара из справочников «Наименования товаров», «Сотрудники», «Клиенты». Так же эта часть окна предоставляет выбор даты продажи товара, ввод номера документа и количества проданного товара. На данной форме имеется две кнопки управления: «Очистить форму» и «Добавить запись». При нажатии кнопки «Очистить форму» в форме добавления записи очищаются все выбранные записи. При нажатии кнопки «Добавить строку» в базу данных добавляется новая строка и в нее записываются выбранные значения из бланка добавления записи. В другой части окна мы имеем возможность просмотра внесённых изменений в таблицу базы данных «Продажи».

Б.3.3 Описание работы с пунктом меню «Справочники»

Рассмотрим пункт меню «Справочники». В этом пункте меню предоставляется доступ к справочникам базы данных. Пункт меню «Справочники» разделен на следующие подпункты:

- «Товар»;

- «Наименования товаров»;

- «Группы товаров»;

- «Сотрудники»;

- «Должность»;

- «Клиенты»;

- «Поставщики»;

- «Банки»;

- «Причины списания».

Подпункты пункта меню «Справочники» предназначены для просмотра и редактирования справочников базы данных. Для этого предусмотрено два поля (см. рисунок 5.9): первое - добавление данных в справочник, второе - просмотр справочника системы.

Б.3.3 Описание работы с пунктом меню «Отчеты»

В пункте меню «Отчеты» представлены все отчеты системы. К ним относят:

- «Бланк заказа»;

- «Объем продаж»;

- «Ведомость остатков»;

- «Списания».

При выборе пункта меню «Ведомость остатков» появляется окошко (см. рисунок 5.10), предлагающее выбрать группу товаров для вывода таблицы ведомости остатков. При нажатии кнопки «Отмена» управление программой переходит в главное меню. При нажатии кнопки «ОК» программа начинает формировать отчёт «Ведомость остатков» по введенным параметрам. Результаты формирования отчёта представлены на рисунке 5.11. На этой экранной форме имеется кнопка управления «Изменить параметры расчета». При нажатии этой кнопки программа открывает диалог задания параметров для формирования отчёта «Ведомость остатков».

В столбце optim_kolvo таблицы «Ведомость остатков» указывается оптимальное количество товаров, рассчитанное исходя из затрат на хранение данного товара на складе. Значение 1 в столбце garantzapas показывает, что количество товара на данный момент меньше либо равно величине гарантийного запаса. Это означает, что пользователь увидев значение 1 в столбце должен пополнить запасы данного товара.

Рассмотрим подпункт меню «Бланк заказа». При выборе этого подпункта меню организуется диалог с пользователем для задания параметров Бланка заказа (см. рисунок 5.12). Пользователю предлагается ввести номер заказа и количество товаров в заказе, а также выбрать дату заказа, наименование товара, поставщика и сотрудника оформившего заказ для вывода таблицы заказы.

В графе количество есть 2 параметра: рекомендуемое количество и количество заказа. Рекомендуемое количество было рассчитано программой исходя из данных об остатках товара, стоимости хранения, спроса на товар, среднего времени поставки, среднего времени задержки поставки товара. Количество заказа показывает сколько пользователь решил заказать товаров, это количество может быть равным, большим или меньшим чем рекомендуемое, в зависимости от поставленных пользователем целей.

Результаты формирования таблицы «Заказы» представлены на рисунке 5.12. На этой экранной форме имеется кнопка управления «Изменить параметры расчета». При нажатии этой кнопки программа открывает диалог задания параметров для формирования «Бланка заказа».

Приложение В

Листинг программы

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

#include <vcl.h>

#pragma hdrstop

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

USEFORM("Unit1.cpp", Form1);

USEFORM("Unit2.cpp", Form2);

USEFORM("Unit3.cpp", Form3);

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

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application->Initialize();

Application->CreateForm(__classid(TForm1), &Form1);

Application->CreateForm(__classid(TForm2), &Form2);

Application->CreateForm(__classid(TForm3), &Form3);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

catch (...)

{

try

{

throw Exception("");

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

}

return 0;

}

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

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "date.h"

#include <systdate.h>

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::N6Click(TObject *Sender)

{

Form1->Close();

}

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

void __fastcall TForm1::N8Click(TObject *Sender)

{

this->GroupBox2->Visible=false;

this->GroupBox3->Visible=false;

this->GroupBox4->Visible=false;

this->GroupBox5->Visible=false;

this->GroupBox6->Visible=false;

this->GroupBox7->Visible=false;

this->GroupBox13->Visible=false;

this->GroupBox1->Visible=true;

UpdateComboBoxGoods();

}

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

void __fastcall TForm1::N2Click(TObject *Sender)

{

this->GroupBox1->Visible=false;

this->GroupBox3->Visible=false;

this->GroupBox4->Visible=false;

this->GroupBox5->Visible=false;

this->GroupBox6->Visible=false;

this->GroupBox7->Visible=false;

this->GroupBox13->Visible=false;

this->GroupBox2->Visible=true;

UpdateComboBoxSale();

}

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

void __fastcall TForm1::N3Click(TObject *Sender)

{

this->GroupBox1->Visible=false;

this->GroupBox2->Visible=false;

this->GroupBox4->Visible=false;

this->GroupBox6->Visible=false;

this->GroupBox5->Visible=false;

this->GroupBox7->Visible=false;

this->GroupBox13->Visible=false;

this->GroupBox3->Visible=true;

UpdateComboBoxSupplies();

}

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

void __fastcall TForm1::N4Click(TObject *Sender)

{

this->GroupBox2->Visible=false;

this->GroupBox3->Visible=false;

this->GroupBox1->Visible=false;

this->GroupBox5->Visible=false;

this->GroupBox6->Visible=false;

this->GroupBox7->Visible=false;

this->GroupBox13->Visible=false;

this->GroupBox4->Visible=true;

UpdateComboBoxWrite_off();

}

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

void __fastcall TForm1::N5Click(TObject *Sender)

{

this->GroupBox2->Visible=false;

this->GroupBox3->Visible=false;

this->GroupBox1->Visible=false;

this->GroupBox4->Visible=false;

this->GroupBox6->Visible=false;

this->GroupBox7->Visible=false;

this->GroupBox13->Visible=false;

this->GroupBox5->Visible=true;

UpdateComboBoxInventory();

}

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

void __fastcall TForm1::N29Click(TObject *Sender)

{

this->GroupBox2->Visible=false;

this->GroupBox3->Visible=false;

this->GroupBox1->Visible=false;

this->GroupBox4->Visible=false;

this->GroupBox5->Visible=false;

this->GroupBox7->Visible=false;

this->GroupBox13->Visible=false;

// this->GroupBox6->Visible=true;

Form1->Enabled=false;

Form2->Show();

}

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

void TForm1:: GZ()

{

TDataSet *ds1 = DataSource18->DataSet;

TDataSet *ds2 = DataSource20->DataSet;

TDataSet *ds3 = DataSource19->DataSet;

int S= 0;

int tpost

int zpost

int length = ds1->RecordCount;

AnsiString *str1 = new AnsiString[length];

int gr = (int)Form1->Table1->FieldValues["id_group"];

int dn = (int)Form1->Table1->FieldValues["dn"];

int dk = (int)Form1->Table1->FieldValues["dk"];

for (ds1->First();!ds1->Eof; ds1->Next())

{

if(Form1->Table2->FieldValues["id_group"]==gr)

{

S = 0;

for (ds2->First();!ds2->Eof; ds2->Next())

Form1->Button11->Caption = "Zapasi";

if(Form1->Table3->FieldValues["id_name"]==Form1->Table2->FieldValues["id_tov"])

if((int)Form1->Table3->FieldValues["date"]>=dn && (int)Form1->Table3->FieldValues["date"]<=dk && Form1->Table3->FieldValues["id_packing"]==pac)

S=S+ Form1->Table3->FieldValues["amount"];

Form1->Table1->Append();

Form1->Table1->FieldValues["id_name"] = Form1->Table2->FieldValues["id_tov"];

Form1->Table1->FieldValues["Vsale"] = S;

Form1->Table1->Post();

}

}

Vprod = 0;

for (ds3->First(), ds3->Next();!ds3->Eof; ds3->Next())

S = S + Form1->Table1->FieldValues["Vsale"];

for (ds3->First(), ds3->Next();!ds3->Eof; ds3->Next())

{

Form1->Table1->Append();

Form1->Table1->FieldValues["spare"] = Form1->Table1->FieldValues FGZ = (tpost + zpost) * P - P* tpost

Form1->Table1->Post();

Form1->Query6->Active=false;

Form1->Query6->Active=true;

}

Form1->Query6->Active=false;

Form1->Query6->Active=true;

}

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

void __fastcall TForm1::ORZClick(TObject *Sender)

{

this->GroupBox2->Visible=false;

this->GroupBox3->Visible=false;

this->GroupBox1->Visible=false;

this->GroupBox4->Visible=false;

this->GroupBox5->Visible=false;

this->GroupBox6->Visible=false;

this->GroupBox13->Visible=false;

// this->GroupBox7->Visible=true;

Form1->Enabled=false;

Form3->Show();

}

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

void __fastcall TForm1::Button11Click(TObject *Sender)

{

Form1->GroupBox6->Visible=false;

}

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

void __fastcall TForm1::Button12Click(TObject *Sender)

{

Form1->Enabled=false;

Form2->Show();

}

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

void __fastcall TForm1::Button13Click(TObject *Sender)

{

Form1->GroupBox7->Visible=false;

}

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

void __fastcall TForm1::Button14Click(TObject *Sender)

{

Form1->Enabled=false;

Form3->Show();

}

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

void TForm1::UpdateComboBoxGoods()

{

ComboBox1->Clear();

ComboBox2->Clear();

ComboBox3->Clear();

ComboBox4->Clear();

ComboBox5->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->FieldByName("Tov")->AsString;

for (j = 0; j < length; j++)

{

ComboBox1->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->FieldByName("Group")->AsString;

for (j = 0; j < length; j++)

{

ComboBox2->Items->Add(str1[j]);

}

Query10->Active = false;

Query10->Active = true;

TDataSet *ds2 = DataSource10->DataSet;

length = ds2->RecordCount;

AnsiString *str2 = new AnsiString[length];

i = 0;

for (ds2->First();!ds2->Eof; ds2->Next())

str2[i++] = DataSource10->DataSet->FieldByName("Naimenovanie")->AsString;

for (j = 0; j < length; j++)

{

ComboBox3->Items->Add(str2[j]);

}

Query11->Active = false;

Query11->Active = true;

TDataSet *ds3 = DataSource11->DataSet;

length = ds3->RecordCount;

AnsiString *str3 = new AnsiString[length];

i = 0;

for (ds3->First();!ds3->Eof; ds3->Next())

str3[i++] = DataSource11->DataSet->FieldByName("Prodagi")->AsString;

for (j = 0; j < length; j++)

{

ComboBox4->Items->Add(str3[j]);

}

Query12->Active = false;

Query12->Active = true;

TDataSet *ds4 = DataSource12->DataSet;

length = ds4->RecordCount;

AnsiString *str4 = new AnsiString[length];

i = 0;

for (ds4->First();!ds4->Eof; ds4->Next())

str4[i++] = DataSource12->DataSet->FieldByName("Proizvoditel")->AsString;

for (j = 0; j < length; j++)

{

ComboBox5->Items->Add(str4[j]);

}

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

UpdateComboBoxGoods();

Edit1->Text = "";

Edit2->Text = "";

Edit3->Text = "";

Edit4->Text = "";

}

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

void TForm1::UpdateComboBoxSale()

{

ComboBox6->Clear();

ComboBox7->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->FieldByName("Tov")->AsString;

for (j = 0; j < length; j++)

{

ComboBox6->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->FieldByName("Group")->AsString;

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->FieldByName("Surname")->AsString;

for (j = 0; j < length; j++)

{

ComboBox10->Items->Add(str2[j]);

}

}

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

void __fastcall TForm1::Button4Click(TObject *Sender)

{

UpdateComboBoxSale();

Edit5->Text = "";

Edit9->Text = "";

}

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

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

void TForm1::UpdateComboBoxSupplies()

{

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->FieldByName("Name")->AsString;

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->FieldByName("Group")->AsString;

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->FieldByName("Name")->AsString;

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_off()

{

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->FieldByName("Tov")->AsString;

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->FieldByName("Group")->AsString;

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->FieldByName("Name")->AsString;

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->FieldByName("Spisanie")->AsString;

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::UpdateComboBoxInventory()

{

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->FieldByName("Name")->AsString;

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->FieldByName("Group")->AsString;

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=false;

this->GroupBox3->Visible=false;

this->GroupBox1->Visible=false;

this->GroupBox4->Visible=false;

this->GroupBox6->Visible=false;

this->GroupBox7->Visible=false;

this->GroupBox5->Visible=false;

this->GroupBox13->Visible=true;

}

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

void __fastcall TForm1::N10Click(TObject *Sender)

{

this->GroupBox2->Visible=false;

this->GroupBox3->Visible=false;

this->GroupBox1->Visible=false;

this->GroupBox4->Visible=false;

this->GroupBox6->Visible=false;

this->GroupBox7->Visible=false;

this->GroupBox5->Visible=false;

this->GroupBox13->Visible=true;

}

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

void __fastcall TForm1::N11Click(TObject *Sender)

{

this->GroupBox2->Visible=false;

this->GroupBox3->Visible=false;

this->GroupBox1->Visible=false;

this->GroupBox4->Visible=false;

this->GroupBox6->Visible=false;

this->GroupBox7->Visible=false;

this->GroupBox5->Visible=false;

this->GroupBox13->Visible=true;

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

/* Table1->Append();

Table1->FieldValues["id_name"] = ComboBox1->Text;

Table1->FieldValues["id_group"] = ComboBox2->Text;

Table1->FieldValues["id_packing"] = ComboBox3->Text;

Table1->FieldValues["id_ed_izm"] = ComboBox4->Text;

Table1->FieldValues["id_producer"] = ComboBox5->Text;

Table1->FieldValues["k_sh"] = Edit1->Text;*/

/* Table3->FieldValues["Date"] = Edit1->Text;

Table3->FieldValues["Sum"] = Edit3->Text;

Table3->FieldValues["ID_sklad"] = ComboBox1->Text;*/

// 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["dn"] = Form2->DateTimePicker1->Date;

Form1->Table1->FieldValues["dk"] = Form2->DateTimePicker2->Date;

Form1->Table1->FieldValues["id_group"] = Form2->ComboBox1->ItemIndex+1;

Form1->Table1->FieldValues["id_packing"] = Form2->ComboBox2->ItemIndex+1;

Form1->Table1->Post();

Form1->GZ();

Form2->Close();

Form1->Enabled=true;

Form1->Show();

Form1->GroupBox6->Visible=true;

}

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

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->FieldByName("Group")->AsString;

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->FieldByName("Packing")->AsString;

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=true;

}

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

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->FieldByName("Group")->AsString;

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->FieldByName("Zakazi")->AsString;

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;

TQuery *Query16;

TQuery *Query17;

TGroupBox *GroupBox15;

TLabel *Label10;

TEdit *Edit13;

TGroupBox *GroupBox16;

TLabel *Label11;

TEdit *Edit16;

TTable *Table1;

TTable *Table2;

TTable *Table3;

void __fastcall N6Click(TObject *Sender);

void __fastcall N8Click(TObject *Sender);

void __fastcall N2Click(TObject *Sender);

void __fastcall N3Click(TObject *Sender);

void __fastcall N4Click(TObject *Sender);

void __fastcall N5Click(TObject *Sender);

void __fastcall ORZ1Click(TObject *Sender);

void __fastcall Button11Click(TObject *Sender);

void __fastcall Button12Click(TObject *Sender);

void __fastcall Button13Click(TObject *Sender);

void __fastcall Button14Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

void __fastcall Button4Click(TObject *Sender);

void __fastcall Button6Click(TObject *Sender);

void __fastcall Button8Click(TObject *Sender);

void __fastcall Button10Click(TObject *Sender);

void __fastcall Button15Click(TObject *Sender);

void __fastcall Button17Click(TObject *Sender);

void __fastcall N9Click(TObject *Sender);

void __fastcall N10Click(TObject *Sender);

void __fastcall N11Click(TObject *Sender);

void __fastcall Button1Click(TObject *Sender);

// void UpdateComboBox();

private: // User declarations

public: // User declarations

__fastcall TForm1(TComponent* Owner);

void UpdateComboBoxGoods();

void UpdateComboBoxSale();

void UpdateComboBoxSupplies();

void UpdateComboBoxWrite_off();

void UpdateComboBoxInventory();

void GZ();

// void UpdateComboBox();

};

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

extern PACKAGE TForm1 *Form1;

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

#endif

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

#ifndef Unit2H

#define Unit2H

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <DB.hpp>

#include <DBCtrls.hpp>

#include <DBTables.hpp>

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

class TForm2: public TForm

{

__published: // IDE-managed Components

TDateTimePicker *DateTimePicker1;

TDateTimePicker *DateTimePicker2;

TLabel *Label1;

TLabel *Label2;

TLabel *Label3;

TLabel *Label4;

TDataSource *DataSource1;

TQuery *Query1;

TButton *Button1;

TButton *Button2;

TComboBox *ComboBox1;

TLabel *Label5;

TComboBox *ComboBox2;

TDataSource *DataSource2;

TQuery *Query2;

void __fastcall Button1Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm2(TComponent* Owner);

void UpdateComboBox();

};

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

extern PACKAGE TForm2 *Form2;

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

#endif

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

#ifndef Unit3H

#define Unit3H

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <DB.hpp>

#include <DBTables.hpp>

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

class TForm3: public TForm

{

__published: // IDE-managed Components

TLabel *Label1;

TLabel *Label5;

TLabel *Label4;

TLabel *Label3;

TLabel *Label2;

TDateTimePicker *DateTimePicker2;

TDateTimePicker *DateTimePicker1;

TComboBox *ComboBox2;

TComboBox *ComboBox1;

TButton *Button2;

TButton *Button1;

TLabel *Label6;

TComboBox *ComboBox3;

TQuery *Query1;

TQuery *Query2;

TDataSource *DataSource1;

TDataSource *DataSource2;

void __fastcall Button1Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm3(TComponent* Owner);

void UpdateComboBox();

};

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

extern PACKAGE TForm3 *Form3;

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

#endif