81
Динамика трудовых затрат представлена на рисунке 43.
Рисунок 43. Динамика трудозатрат
Динамика стоимостных затрат представлена на рисунке 44.
Рисунок 44. Динамика стоимостных затрат
На основании проведенных расчетов можно заключить, что разработка АРМ
менеджера по связям с контрагентами повлечет снижение трудовых затрат в год на
200 человеко-часов, что составит 28%. Снижение стоимостных затрат составит 38
500 рублей или 36%. Стоимостные затраты по проектному варианту ниже, чем по
базовому на 1,4 трудовые затраты по проектному варианту ниже базовых также на
1,58.
Произведем расчет срока окупаемости проекта. Для этого необходимо
оценить затраты на разработку и внедрение информационной системы.
0
100
200
300
400
500
600
700
800
До автоматизации
После автоматизации
Динамика трудозатрат
0
2000000
4000000
6000000
8000000
10000000
12000000
14000000
Базовый вариант
Автоматизированный вариант
Затраты, руб.
Стоимостные затраты
82
Далее рассчитаем единовременные капитальные затраты на разработку и
внедрение системы (КП). Затраты на разработку и внедрение системы
рассчитываются по формуле:
допотладкавнедрпрогрпроектП
СССCK
(8)
С
проект
= 11 580 рублей.
С
прогр
= 52 500 рублей.
С
внедр
= 7 080 рубля.
С
доп
= 8 640 рублей.
К
п
= 79 800 рублей.
Рассчитаем срок окупаемости проекта:
Т
ок
= 79 800 / 66 500 = 1,2 года
Срок окупаемости проекта составил 1,2 года. На основании всех
рассчитанных показателей проект можно считать выгодным.
83
ЗАКЛЮЧЕНИЕ
Компания «ГЕОСЕРВИС» осуществляет деятельность в сфере геолого-
технических исследований. Автоматизации деятельности специалистов компании
находится на достаточно высоком уровне. В ходе работы была проведена оценка
методов обеспечения информационной безопасности организации, которая также
находится на высоком уровне.
Поскольку для осуществления деятельности организации важно обеспечить
ее необходимыми ресурсами, в ходе работы было проведено исследование
процесса снабжения предприятия, который включает в себя, помимо прочего, учет
взаимодействий с контрагентами. Несмотря на то, что бизнес-процессы
организации достаточно автоматизированы, процесс учета взаимодействий с
контрагентами ведется в личных записных книжках сотрудников отдела
снабжения. Это создает трудности при выходе сотрудников в отпуск и на
больничный, а также при увольнении. Поэтому процесс сопровождается высокими
временными затратами на сбор и восстановление данных.
В ходе выполнения работы была разработана функциональная модель
существующей системы. Далее была обоснована необходимость разработки
проекта, в ходе которой были рассмотрены решения, представленные на рынке,
были выделены критерии для оценки программных продуктов и произведен анализ
выбранных программных продуктов. В результате анализа было установлено, что
все представленные на рынке решения показали средний уровень соответствия
требованиям компании, в связи с чем возникает необходимость в индивидуальной
разработке программного обеспечения. На основе проведенного анализа
сформированы и обоснованы требования к работе системы и к ее отдельным
компонентам: программному, информационному, техническому.
Для разработки информационной системы была выбрана каскадная модель
жизненного цикла программного продукта. Были рассмотрены риски, которые
могут возникнуть при выполнении проекта и разработан план реагирования на них.
Затем был проанализирован документооборот процесса. Выявлены входящие
и результатные документы процесса, даны их описания и рассмотрена структура.
Были описаны справочники, которые содержит классификаторы информации,
использованные в информационной системе.
84
Далее была разработана информационная модель, которая включает в себя
все справочники и таблицы базы данных, описание всех форм приложения,
описание измененных файлов и результатных документов и отчетов.
На основании информационной модели были спроектирована модель базы
данных. Дана характеристика таблиц базы данных и связей между ними.
Затем было разработано дерево функций системы и описан сценарий
диалога. Было построено дерево вызова программных модулей и дано описание
программных модулей системы.
Была рассчитана экономическая эффективность проекта. На основании
проведенных расчетов можно заключить, что автоматизация процесса управления
взаимоотношениями с клиентами повлечет снижение трудовых затрат в год на 200
человеко-часов, что составит 28%. Снижение стоимостных затрат составит 38 500
рублей или 36%. Стоимостные затраты по проектному варианту ниже, чем по
базовому на 1,4 трудовые затраты по проектному варианту ниже базовых также на
1,58. Срок окупаемости проекта составил 1,4 лет. На основании всех рассчитанных
показателей проект внедрения CRM-системы в деятельность ООО «ГЕОСЕРВИС»
можно считать выгодным.
85
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. ISO 9001:2015 «Quality management systems – Requirements».
2. ISO/IEC/IEEE 830-1998 «Recommended practice for software
requirements specifications».
3. ISO/IEC/IEEE 1016-1998 «Recommended Practice for Software Design
Descriptions».
4. ISO/IEC/IEEE 1233-1998 «Guide for developing system requirements
specifications».
5. ISO/IEC IEEE Std 42010 1471-2000 «System and software engineering –
Recommended practice for architectural description of software-intensive systems».
6. ISO/IEC 15288:2015 «Разработка систем и программного обеспечения
– Процессы жизненного цикла систем».
7. ISO/IEC 90003:2014 «Software engineering – Guide lines for the
application of ISO 9001:2000 to computer software»
8. ГОСТ Р ИСО/МЭК 12207-2010. Информационная технология.
Системная и программная инженерия. Процессы жизненного цикла программных
средств.
9. Абросимова М.А. Информационные технологии: Учебное пособие. -
М.: КноРус, 2013. - 368 стр.: ил.
10. Балдин К.В. Информационные технологии в менеджменте. - М.: ИЦ
Академия, 2012. - 328 с.
11. Васильков А.В. Информационные системы и их безопасность. – М.: Форум, 2013. –
544 с.
12. Вдовин В.М. Предметно-ориентированные информационные системы. - М.:
Дашков и К, 2013. - 388 с.
13. Гаврилов М.В. Информатика и информационные технологии. - М.:
Юрайт, 2013. - 378 с.
14. Гвоздева В.А. Информатика и автоматизированные информационные
системы. - М.: ИД Форум, 2013. - 544 c.
15. Голицына О.Л. Информационные технологии: Учебник. - М.: Инфра-
М, 2013. - 608 с.
86
16. Гришин, В.Н. Информационные технологии в профессиональной
деятельности: Учебник / В.Н. Гришин, Е.Е. Панфилова. - М.: ИД ФОРУМ, НИЦ
ИНФРА-М, 2013. - 416 c.
17. Исаев, Г.Н. Информационные системы в экономике: Учебник / Г.Н.
Исаев. - М.: Омега-Л, 2012. - 462 c.
18. Максимов, Н.В. Современные информационные технологии: Учебное
пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. - М.: Форум, 2013. - 512 c.
19. Мельников, В.П. Информационные технологии: Учебник для
студентов высших учебных заведений / В.П. Мельников. - М.: ИЦ Академия, 2009.
- 432 c.
20. Одинцов, Б.Е. Информационные системы управления эффективностью
бизнеса: Учебник и практикум для бакалавриата и магистратуры / Б.Е. Одинцов. -
Люберцы: Юрайт, 2016. - 206 c.
21. Олейник, П.П. Корпоративные информационные системы: Учебник
для вузов. Стандарт третьего поколения / П.П. Олейник. - СПб.: Питер, 2012. - 176
c.
22. Уткин, В.Б. Информационные системы в экономике: Учебник для
студентов высших учебных заведений / В.Б. Уткин, К.В. Балдин. - М.: ИЦ
Академия, 2012. - 288 c.
23. Айтекс АРМ-менеджер [Электронный ресурс]: // Интернет-магазин
лицензионного программного обеспечения [Офиц. сайт]. URL:
https://www.softway.ru/shop/product/ajteks-arm-menedjer-16-polzovatelej/ (дата
обращения: 03.04.2019).
24. АРМ менеджера [Электронный ресурс]: // Стандарт-Н [Офиц. сайт].
URL: https://online.standart-n.ru/arm_manager (дата обращения: 03.04.2019).
25. Битрикс24: CRM система управления продажами [Электронный
ресурс]: // Битрикс24.: CRM [Офиц. сайт]. URL:
https://www.bitrix24.ru/features/crm.php (дата обращения: 03.04.2019).
26. Мегаплан - CRM-система автоматизации бизнеса и управления
клиентами [Электронный ресурс]: // Мегаплан [Офиц. сайт]. URL:
https://megaplan.ru/ (дата обращения: 03.04.2019).
87
ПРИЛОЖЕНИЕ 1
Листинг программного кода
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField
*ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehni
ki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField
*ADODataSetVidTehnikiName;
TStringField
*ADODataSetComputerTehnikaNameVidTeh
niki;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField
*ADODataSetHistoryCodComputerTehnika;
TIntegerField
*ADODataSetHistoryCodManager;
TDateTimeField
*ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField
*ADODataSetComputerTehnikaDataProdazhi;
void __fastcall
QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject
*Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport2(TComponent*
Owner);
};
//-------------------------------------------------------
--------------------
extern PACKAGE TFormReport2
*FormReport2;
//-------------------------------------------------------
--------------------
#endif
//-------------------------------------------------------
--------------------
#ifndef VidTehnikiH
#define VidTehnikiH
//-------------------------------------------------------
--------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//-------------------------------------------------------
--------------------
class TFormVidTehniki : public TForm
{
__published: // IDE-managed
Components
TDBGrid *DBGridVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TDataSource *DataSourceManager;
TADODataSet
*ADODataSetComputerTehnika;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField
*ADODataSetVidTehnikiName;
TAutoIncField
*ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField
*ADODataSetComputerTehnikaCena;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField
*ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehni
ki;
TBooleanField
*ADODataSetComputerTehnikaProdan;
void __fastcall ButtonAddClick(TObject
*Sender);
void __fastcall ButtonDeleteClick(TObject
*Sender);
void __fastcall ButtonChangeClick(TObject
*Sender);
void __fastcall ButtonExitClick(TObject
*Sender);
void __fastcall ButtonPostClick(TObject
*Sender);
void __fastcall ButtonOtmenClick(TObject
*Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall
DBEditNameKeyPress(TObject *Sender, char
&Key);
private: // User declarations
public: // User declarations
__fastcall TFormVidTehniki(TComponent*
Owner);
};
//-------------------------------------------------------
--------------------
extern PACKAGE TFormVidTehniki
*FormVidTehniki;
//-------------------------------------------------------
--------------------
#endif
//-------------------------------------------------------
--------------------
#ifndef VnalichiiH
#define VnalichiiH
//-------------------------------------------------------
--------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
88
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//-------------------------------------------------------
--------------------
class TFormVnalichii : public TForm
{
__published: // IDE-managed
Components
TDBGrid *DBGridComputerTehnika;
TADODataSet
*ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField
*ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField
*ADODataSetComputerTehnikaCena;
TBooleanField
*ADODataSetComputerTehnikaProdan;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField
*ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehni
ki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField
*ADODataSetComputerTehnikaNameVidTeh
niki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall ButtonExitClick(TObject
*Sender);
void __fastcall
DBGridComputerTehnikaCellClick(TColumn
*Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject
*Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormVnalichii(TComponent*
Owner);
};
//-------------------------------------------------------
--------------------
extern PACKAGE TFormVnalichii
*FormVnalichii;
//-------------------------------------------------------
--------------------
#endif
//-------------------------------------------------------
--------------------
#include <vcl.h>
#pragma hdrstop
#include "ComputerTehnika.h"
#include "DM.h"
//-------------------------------------------------------
--------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormComputerTehnika
*FormComputerTehnika;
//-------------------------------------------------------
--------------------
__fastcall
TFormComputerTehnika::TFormComputerTe
hnika(TComponent* Owner)
: TForm(Owner)
{
}
//-------------------------------------------------------
--------------------
void __fastcall
TFormComputerTehnika::ButtonFotoClick(T
Object *Sender)
{ char *s;
OpenDialogFoto->InitialDir=
ExtractFileDir(Application->ExeName);
if(OpenDialogFoto->Execute()==true) //вызов
диалога выбора файла
{DBImageFoto->Visible=true;
s= OpenDialogFoto->FileName.c_str();
//получить наименование выбранного
файла с полным путем
DBImageFoto->Picture->LoadFromFile(s);
}
else
{if(ADODataSetComputerTehnikaPicture-
>Value=="")
DBImageFoto->Visible=false;
}
}
//-------------------------------------------------------
--------------------
void __fastcall
TFormComputerTehnika::FormShow(TObject
*Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
}
//-------------------------------------------------------
--------------------
//Выполняется при нажатии кнопки
Добавить
void __fastcall
TFormComputerTehnika::ButtonAddClick(TO
bject *Sender)
{
if(ADODataSetComputerTehnika-
>State==dsBrowse)
{ADODataSetComputerTehnika->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePickerDataPostup->Date= Date();
DBEditName->SetFocus();
}
}
//-------------------------------------------------------
--------------------
//Выполняется при нажатии кнопки
Удалить
void __fastcall
TFormComputerTehnika::ButtonDeleteClick(
TObject *Sender)
{
if(ADODataSetComputerTehnika-
>RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать
кнопку Изменить недоступной
89
ButtonDelete->Enabled=false;//сделать
кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в
БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika-
>State==dsBrowse)
if(Application->MessageBoxA("Подтвердите
удаление записи
!","Внимание",MB_ICONWARNING+MB_
YESNO)==IDYES)
ADODataSetComputerTehnika-
>Delete();//удалить запись из таблицы БД
}
//-------------------------------------------------------
--------------------
//Выполняется при нажатии кнопки
Изменить
void __fastcall
TFormComputerTehnika::ButtonChangeClick(
TObject *Sender)
{
if(ADODataSetComputerTehnika-
>RecordCount==0) //есть ли данные в БД -
кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в
БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika-
>State==dsBrowse)
ADODataSetComputerTehnika-
>Edit();//перевести таблицу БД в режим
редактирования
Panel1->Visible=false;//сделать панель
невидимой
Panel2->Visible=true;//сделать панель
видимой
GroupBox1->Visible=true;//сделать панель
видимой
DateTimePickerDataPostup->Date=
ADODataSetComputerTehnikaDataPostup-
>Value;
DBEditName->SetFocus(); //установить
фокус в поле для ввода
}
//-------------------------------------------------------
--------------------
//Выполняется при нажатии кнопки Выход
void __fastcall
TFormComputerTehnika::ButtonExitClick(TO
bject *Sender)
{
Close();
TWideStringField
*ADODataSetManagerPassword;
TIntegerField
*ADODataSetManagerCodDolgnost;
TADODataSet *ADODataSetDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField
*ADODataSetDolgnostName;
TStringField
*ADODataSetManagerNameDolgnost;
TGroupBox *GroupBox1;
TLabel *Label1;
TDBEdit *DBEditFIO;
TLabel *Label2;
TDBLookupComboBox
*DBLookupComboBoxDolgnost;
TDataSource *DataSourceDolgnost;
TLabel *Label3;
TDBEdit *DBEditOklad;
TLabel *Label4;
TDBEdit *DBEditPasport;
TLabel *Label5;
TDBEdit *DBEditPassword;
TLabel *Label6;
TDateTimePicker *DateTimePicker1;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonAddClick(TObject
*Sender);
void __fastcall ButtonDeleteClick(TObject
*Sender);
void __fastcall ButtonChangeClick(TObject
*Sender);
void __fastcall ButtonExitClick(TObject
*Sender);
void __fastcall ButtonPostClick(TObject
*Sender);
void __fastcall ButtonOtmenClick(TObject
*Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormManager(TComponent*
Owner);
};
//-------------------------------------------------------
--------------------
extern PACKAGE TFormManager
*FormManager;
//-------------------------------------------------------
--------------------
#endif
//-------------------------------------------------------
--------------------
#ifndef OtchetManagerH
#define OtchetManagerH
//-------------------------------------------------------
--------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//-------------------------------------------------------
--------------------
class TFormOtchetManager : public TForm
{
__published: // IDE-managed
Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TADODataSet
*ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TButton *ButtonExit;
90
void __fastcall FormShow(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall ButtonExitClick(TObject
*Sender);
private: // User declarations
public: // User declarations
__fastcall
TFormOtchetManager(TComponent* Owner);
};
//-------------------------------------------------------
--------------------
extern PACKAGE TFormOtchetManager
*FormOtchetManager;
//-------------------------------------------------------
--------------------
#endif
//-------------------------------------------------------
--------------------
#ifndef ProdanoH
#define ProdanoH
//-------------------------------------------------------
--------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//-------------------------------------------------------
--------------------
class TFormProdano : public TForm
{
__published: // IDE-managed
Components
TDBGrid *DBGridComputerTehnika;
TADODataSet
*ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField
*ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField
*ADODataSetComputerTehnikaCena;
TBooleanField
*ADODataSetComputerTehnikaProdan;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField
*ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehni
ki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField
*ADODataSetComputerTehnikaNameVidTeh
niki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField
*ADODataSetHistoryCodComputerTehnika;
TIntegerField
*ADODataSetHistoryCodManager;
TDateTimeField
*ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField
*ADODataSetComputerTehnikaDataProdazhi;
void __fastcall ButtonExitClick(TObject
*Sender);
void __fastcall
DBGridComputerTehnikaCellClick(TColumn
*Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject
*Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdano(TComponent*
Owner);
};
//-------------------------------------------------------
--------------------
extern PACKAGE TFormProdano
*FormProdano;
//-------------------------------------------------------
--------------------
#endif
//-------------------------------------------------------
--------------------
#ifndef ProdazhaH
#define ProdazhaH
//-------------------------------------------------------
--------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//-------------------------------------------------------
--------------------
class TFormProdazha : public TForm
{
__published: // IDE-managed
Components
TLabel *Label1;
TDateTimePicker
*DateTimePickerDataProdazhi;
TGroupBox *GroupBox1;
TDBGrid *DBGridComputerTehnika;
TADODataSet
*ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField
*ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField
*ADODataSetComputerTehnikaCena;
TBooleanField
*ADODataSetComputerTehnikaProdan;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField
*ADODataSetComputerTehnikaPicture;