Введение (стр. 8 )

Основная задача рассматриваемой системы - это максимально упростить и ускорить работу пользователя программой.

Данная программа позволяет: повысить производительность труда; вести учет проданной продукции. Разрабатывает автоматизированную систему, с помощью которой можно выполнять функции для осуществления автоматического учета закупки и продажи продукции и товаров.

Результатом разработки стало программное средство, в котором реализован наилучший вариант для автоматизации работы сотрудника работающего со счетами, закупкой и продажей продукции.

Данная система позволяет:

-  повысить производительность труда;

- вести учет закупленной/проданной продукции.

Информация вводится с помощью элементов управления в соответствующие таблицы. Это облегчает работу пользователя работающего с данной программой.

ЛИТЕРАТУРА

, . Системы управления БД Ms Access 2002. Минск, МиУ, 2006. Ю. Стоцкий. Самоучитель Office XP. С-Пб., Питер, 2006. Microsoft Access 2002. Самоучитель.: - М.: Издательский дом «Вильямс», 2003 Т. Коннолли, К. Бегг, А. Страчан Базы данных: проектирование, реализация и сопровождение. теория и практика Герберт Шилдт С++ руководство для начинающих, 2-е издание. :Пер. с англ. - М.: Издательский дом «Вильяме», 2005 Герберт Шилдт Самоучитель С++ 3-е издание Санкт-Петербург БХВ-Петербург 2003 г. Обработка баз данных в С++. Программирование по стандаруту ODMG.: Пер. с англ. : Уч. пос. - М.: Издательский дом «Вильямс»,2001 зык программирования Си\Пер. с англ., 3-е изд., испр. СПб.: "Невский Диалект", 2001. Крупник С++ - СПб: Питер, 2004 ффективное использование С++. 55 верных способов улучшить структуру и код ваших программ - - М.: ДМК Пресс, 2006. Прата Стивен. Язык программирования С++. Лекции и упражнения. Учебник: Пер. с англ./Стивен Прата - СПб: ОО «ДиаСофтЮП», 2005. Саттер, Герб. Новые сложные задачи на С++. : Пер. с англ. — М. : Издательский дом "Вильяме", 2005.

ПРИЛОЖЕНИЕ А

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

Главный модуль

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

#include <vcl. h>

#pragma hdrstop

#include <ComObj. hpp>

#include "Main. h"

#include "Spr. h"

#include "DataMod. h"

#include "Docs. h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

  : TForm(Owner)

{

}

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

void __fastcall TForm1::N1Click(TObject *Sender)

{

Form2->ShowModal();

}

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

void __fastcall TForm1::N2Click(TObject *Sender)

{

Close(); 

}

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

void __fastcall TForm1::N3Click(TObject *Sender)

{

Form7->ShowModal();

}

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

void __fastcall TForm1::FormShow(TObject *Sender)

{

  StringGrid1->ColCount = 6;

  StringGrid1->ColWidths[0]=45;

  StringGrid1->ColWidths[2]=75 ;

  StringGrid1->ColWidths[3]=50 ;

  StringGrid1->ColWidths[4]=75 ;

  StringGrid1->ColWidths[5]=75 ;

  StringGrid1->ColWidths[1]=StringGrid1->Width - StringGrid1->ColWidths[0] - 25 - StringGrid1->ColWidths[2]- StringGrid1->ColWidths[3]- StringGrid1->ColWidths[4]- StringGrid1->ColWidths[5] ;

  StringGrid1->Cells[0][0]="Код";

  StringGrid1->Cells[1][0]="Наименование";

  StringGrid1->Cells[2][0]="Дата";

  StringGrid1->Cells[3][0]="Цена";

  StringGrid1->Cells[4][0]="Количество";

  StringGrid1->Cells[5][0]="Остаток";

  DataModule2->ADOQuery1->SQL->Clear();

  DataModule2->ADOQuery1->SQL->Add("SELECT Товары. Код, Товары. Наименование, НакладныеПр. Дата, Товары. ЦенаПродажи, Приход. Количество");

  DataModule2->ADOQuery1->SQL->Add("FROM Товары INNER JOIN (НакладныеПр INNER JOIN Приход ON НакладныеПр. Код = Приход. Номер) ON Товары. Код = Приход. КодТовара");

  DataModule2->ADOQuery1->SQL->Add("ORDER BY Товары. Наименование");

  DataModule2->ADOQuery1->Open();

  StringGrid1->RowCount=DataModule2->ADOQuery1->RecordCount+1;

  if (StringGrid1->RowCount>1) StringGrid1->FixedRows=1;

  DataModule2->ADOQuery1->First();

  int  j=1;

  while (j<=DataModule2->ADOQuery1->RecordCount){

  for (int i=0; i<=4; i++)

  StringGrid1->Cells[i][j]=DataModule2->ADOQuery1->Fields->Fields[i]->AsString;

  StringGrid1->Cells[5][j]=DataModule2->ADOQuery1->Fields->Fields[4]->AsString;

  DataModule2->ADOQuery1->Next();

  j++;

}

DataModule2->ADOQuery1->Close();

  DataModule2->ADOQuery1->SQL->Clear();

  DataModule2->ADOQuery1->SQL->Add("SELECT Товары. Код, Товары. Наименование, НакладныеРас. Дата, Товары. ЦенаПродажи, Sum(Расход. Количество) AS [Sum-Количество]");

  DataModule2->ADOQuery1->SQL->Add("FROM НакладныеРас INNER JOIN (Товары INNER JOIN Расход ON Товары. Код = Расход. КодТовара) ON НакладныеРас. Код = Расход. Номер");

  DataModule2->ADOQuery1->SQL->Add("GROUP BY Товары. Код, Товары. Наименование, НакладныеРас. Дата, Товары. ЦенаПродажи");

  DataModule2->ADOQuery1->Open();

  DataModule2->ADOQuery1->First();

  j=1;

  while (j<=DataModule2->ADOQuery1->RecordCount){

  for (int i=1; i<StringGrid1->RowCount; i++)

  if (DataModule2->ADOQuery1->Fields->Fields[0]->AsString==StringGrid1->Cells[0][i])

  StringGrid1->Cells[5][i]=IntToStr(StrToInt(StringGrid1->Cells[4][i])-DataModule2->ADOQuery1->Fields->Fields[4]->AsInteger);

  DataModule2->ADOQuery1->Next();

  j++;

  }

  DataModule2->ADOQuery1->Close();

}

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

void __fastcall TForm1::N5Click(TObject *Sender)

{

  Variant App, Books, Book, Sheets, Sheet, Cells, Cell;

  String s;

  try

  {

  App=CreateOleObject("Excel. Application");

  }

  catch (...)

  {

  Application->MessageBoxA("Не могу запустить сервер Microsoft Excel. Продолжение невозможно.",

  "Ошибка", MB_ICONERROR);

  return;

  }

  App. OlePropertySet("Visible",true);  //делаем Excel видимым

  Books=App. OlePropertyGet("Workbooks");

  App. OlePropertySet("SheetsInNewWorkbook",1); //создаём 3 листа в книге

  Books. OleProcedure("Add");

  Book=Books. OlePropertyGet("Item",1);

  Sheets=Book. OlePropertyGet("Worksheets");

  Sheet=Sheets. OlePropertyGet("Item",1);  //ссылка на первый лист в книге

  Sheet. OleProcedure("Activate");

  for (int i = 0; i<StringGrid1->RowCount; i++)

  for (int j = 0; j<StringGrid1->ColCount; j++){

  Cells=Sheet. OlePropertyGet("Cells");

  Cell=Cells. OlePropertyGet("Item",i+1,j+1); //выбираем ячейку E10...

  s =  StringGrid1->Cells[j][i];

  Cell. OlePropertySet("Value",s. c_str());  //...и пишем туда что-нибудь

  }

}

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

void __fastcall TForm1::N6Click(TObject *Sender)

{

  Variant App, Books, Book, Sheets, Sheet, Cells, Cell;

  String s;

  try

  {

  App=CreateOleObject("Excel. Application");

  }

  catch (...)

  {

  Application->MessageBoxA("Не могу запустить сервер Microsoft Excel. Продолжение невозможно.",

  "Ошибка", MB_ICONERROR);

  return;

  }

  App. OlePropertySet("Visible",true);  //делаем Excel видимым

  Books=App. OlePropertyGet("Workbooks");

  App. OlePropertySet("SheetsInNewWorkbook",1); //создаём 3 листа в книге

  Books. OleProcedure("Add");

  Book=Books. OlePropertyGet("Item",1);

  Sheets=Book. OlePropertyGet("Worksheets");

  Sheet=Sheets. OlePropertyGet("Item",1);  //ссылка на первый лист в книге

  Sheet. OleProcedure("Activate");

  for (int i = 0; i<StringGrid1->RowCount; i++)

  for (int j = 0; j<4; j++)

  if(j!=2){

  Cells=Sheet. OlePropertyGet("Cells");

  Cell=Cells. OlePropertyGet("Item",i+1,j+1); //выбираем ячейку...

  s =  StringGrid1->Cells[j][i];

  Cell. OlePropertySet("Value",s. c_str());  //...и пишем туда

  }

}

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

Справочники

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

#include <vcl. h>

#pragma hdrstop

#include "Spr. h"

#include "DataMod. h"

#include "BankInsert. h"

#include "TovarInsert. h"

#include "KlientInsert. h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

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

__fastcall TForm2::TForm2(TComponent* Owner)

  : TForm(Owner)

{

}

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

void __fastcall TForm2::RadioGroup1Click(TObject *Sender)

{

switch (RadioGroup1->ItemIndex){

case 0:{

StringGrid1->ColCount = 2;

StringGrid1->ColWidths[0] = 45;

StringGrid1->ColWidths[1] = StringGrid1->Width - 65;