86
ЗАКЛЮЧЕНИЕ
В ходе выполнения работы была описана и проанализирована
информационная инфраструктура кадастровой палаты г. Одинцово. В результате
анализа был сделан вывод о том, что уровень информационной инфраструктуры
организации является достаточно развитым и способным удовлетворить
потребности сотрудников учреждения. Однако, уровень информационной
безопасности организации оценивается как средний. Поэтому следует уделить
внимание на организационные и инженерно-технические аспекты обеспечения
безопасности.
Деятельность учреждения сопровождается большим количеством
информации, что выражается в документообороте, который должен дублироваться
на бумажном и электронном носителе. На данный момент деятельность учреждения
автоматизирована с помощью автоматизированного банка данных, который не
обладает удобством вода данных и возможностью формирования документов и
отчетов. Поэтому на оформление документов занимает у сотрудников много
времени. Автоматизация процесса кадастрового учета позволит осуществить
снижение временных затрат и повысить эффективность процесса.
Затем было дано обоснование необходимости разработки проекта, в ходе
которой были рассмотрены решения, представленные на рынке, были выделены
критерии для оценки программных продуктов и произведен анализ выбранных
программных продуктов. В результате анализа было установлено, что все
представленные на рынке решения показали низкий уровень соответствия
функциональным требованиям учреждения, в связи с чем возникает необходимость
в индивидуальной разработке программного обеспечения.
Для разработки информационной системы был выбран стандарт ГОСТ Р
ИСО/МЭК 12207-2010, который позволяет на ранних стадиях осуществить
уточнение требований к системе, что снизит затраты на исправление ошибок,
выявленных на более поздних стадиях. Были рассмотрены риски, которые могут
возникнуть при выполнении проекта и разработан план реагирования на них.
Затем был проанализирован документооборот процесса. Выявлены входящие
и результатные документы процесса, даны их описания и рассмотрена структура.
87
Были описаны справочники, которые содержит классификаторы информации,
использованные в информационной системе.
Далее была разработана информационная модель, которая включает в себя все
справочники и таблицы базы данных, описание всех форм приложения, описание
измененных файлов и результатных документов и отчетов.
На основании информационной модели были спроектирована модель базы
данных. Дана характеристика таблиц базы данных и связей между ними.
Затем было разработано дерево функций системы и описан сценарий диалога.
Было построено дерево вызова программных модулей и дано описание
программных модулей системы.
Была рассчитана экономическая эффективность проекта. На основании
проведенных расчетов был сделан вывод о том, что проект является выгодным,
поскольку повлечет снижение трудовых затрат в год на 189 000 часов, что составит
28 %. Трудовые затраты по проектному варианту ниже базовых в 1,39 раз.
Снижение стоимостных затрат составит 11 400 000 рублей или 34%.
Стоимостные затраты по проектному варианту ниже, чем по базовому в 1,51 раза.
Срок окупаемости проекта составил 1 год и 8 месяцев. На основании всех
рассчитанных показателей проект разработки автоматизированной системы
кадастрового учета можно считать прибыльным.
88
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
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. ГОСТ 34.601-90 АВТОМАТИЗИРОВАННЫЕ СИСТЕМЫ СТАДИИ
СОЗДАНИЯ.
9. ГОСТ Р ИСО/МЭК 12207-2010. Информационная технология.
Системная и программная инженерия. Процессы жизненного цикла программных
средств.
10. Абросимова М.А. Информационные технологии: Учебное пособие. -
М.: КноРус, 2013. - 368 стр.: ил.
11. Балдин К.В. Информационные технологии в менеджменте. - М.: ИЦ
Академия, 2012. - 328 с.
12. Васильков А.В. Информационные системы и их безопасность. – М.: Форум,
2013. – 544 с.
13. Вдовин В.М. Предметно-ориентированные информационные системы. - М.:
Дашков и К, 2013. - 388 с.
14. Гаврилов М.В. Информатика и информационные технологии. - М.:
Юрайт, 2013. - 378 с.
15. Гвоздева В.А. Информатика и автоматизированные информационные
системы. - М.: ИД Форум, 2013. - 544 c.
89
16. Голицына О.Л. Информационные технологии: Учебник. - М.: Инфра-М,
2013. - 608 с.
17. Гришин, В.Н. Информационные технологии в профессиональной
деятельности: Учебник / В.Н. Гришин, Е.Е. Панфилова. - М.: ИД ФОРУМ, НИЦ
ИНФРА-М, 2013. - 416 c.
18. Исаев, Г.Н. Информационные системы в экономике: Учебник / Г.Н.
Исаев. - М.: Омега-Л, 2012. - 462 c.
19. Максимов, Н.В. Современные информационные технологии: Учебное
пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. - М.: Форум, 2013. - 512 c.
20. Мельников, В.П. Информационные технологии: Учебник для студентов
высших учебных заведений / В.П. Мельников. - М.: ИЦ Академия, 2009. - 432 c.
21. Одинцов, Б.Е. Информационные системы управления эффективностью
бизнеса: Учебник и практикум для бакалавриата и магистратуры / Б.Е. Одинцов. -
Люберцы: Юрайт, 2016. - 206 c.
22. Олейник, П.П. Корпоративные информационные системы: Учебник для
вузов. Стандарт третьего поколения / П.П. Олейник. - СПб.: Питер, 2012. - 176 c.
23. Уткин, В.Б. Информационные системы в экономике: Учебник для
студентов высших учебных заведений / В.Б. Уткин, К.В. Балдин. - М.: ИЦ Академия,
2012. - 288 c.
24. ГИС Панорама [Электронный ресурс]: // КБ Панорама [Офиц. сайт].
URL: https://gisinfo.ru/products/products_panorama.htm (дата обращения: 19.12.2017).
25. ИС Кадастровый инженер [Электронный ресурс]: // ИС Кадастровый
инженер [Офиц. сайт]. URL: https://inform-service.ru/catalog/iskinj/iskinj_prof_tplan_/
(дата обращения: 19.12.2017).
26. Ракурс. Программные решения в области геоинформатики
[Электронный ресурс]: // Ракурс [Офиц. сайт]. URL: http://www.racurs.ru/?page=509
(дата обращения: 19.12.2017).
90
ПРИЛОЖЕНИЕ 1
Листинг программного кода
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField
*ADODataSetComputerTehnikaNameVidTehniki;
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
*ADODataSetComputerTehnikaCodVidTehniki;
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>
#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
*ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField
*ADODataSetComputerTehnikaNameVidTehniki;
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::TFormComputerTehnika(T
Component* Owner)
: TForm(Owner)
{
}
//----------------------------------------------------------------
-----------
void __fastcall
TFormComputerTehnika::ButtonFotoClick(TObject
*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(TObject
*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;//сделать кнопку
Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку
Удалить недоступной
ShowMessage("Данные отсутствуют в БД!");
//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите
удаление записи
!","Внимание",MB_ICONWARNING+MB_YESNO)
==IDYES)
ADODataSetComputerTehnika->Delete();//удалить
запись из таблицы БД
}
//----------------------------------------------------------------
-----------
//Выполняется при нажатии кнопки Изменить
void __fastcall
TFormComputerTehnika::ButtonChangeClick(TObjec
t *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0)
//есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в
БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
91
ADODataSetComputerTehnika->Edit();//перевести
таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePickerDataPostup->Date=
ADODataSetComputerTehnikaDataPostup->Value;
DBEditName->SetFocus(); //установить фокус в поле
для ввода
}
//----------------------------------------------------------------
-----------
//Выполняется при нажатии кнопки Выход
void __fastcall
TFormComputerTehnika::ButtonExitClick(TObject
*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;
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
*ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField
*ADODataSetComputerTehnikaNameVidTehniki;
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;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehniki;
TButton *ButtonProdat;
TGroupBox *GroupBoxOpisanie;
TDBMemo *DBMemoOpisanie;
TDBImage *DBImageFoto;
TButton *ButtonExit;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField
*ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall FormShow(TObject *Sender);
void __fastcall
DBGridComputerTehnikaCellClick(TColumn
*Column);
void __fastcall ButtonProdatClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdazha(TComponent* Owner);
};
//----------------------------------------------------------------
-----------
extern PACKAGE TFormProdazha *FormProdazha;
//----------------------------------------------------------------
-----------
#endif
//----------------------------------------------------------------
-----------
#ifndef SpravkaH
#define SpravkaH
//----------------------------------------------------------------
-----------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//----------------------------------------------------------------
-----------
class TFormSpravka : public TForm
{
__published: // IDE-managed Components
TMemo *MemoSpravka;
TMemo *Memo1;
TButton *ButtonExit;
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormSpravka(TComponent* Owner);
};
//----------------------------------------------------------------
-----------
extern PACKAGE TFormSpravka *FormSpravka;
//----------------------------------------------------------------
-----------
#endif
//----------------------------------------------------------------
-----------
#ifndef UnitReportH
#define UnitReportH
//----------------------------------------------------------------
-----------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
92
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//----------------------------------------------------------------
-----------
class TFormReport : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField
*ADODataSetComputerTehnikaProdan;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField
*ADODataSetComputerTehnikaNameVidTehniki;
void __fastcall QuickRep1AfterPreview(TObject
*Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport(TComponent* Owner);
};
//----------------------------------------------------------------
-----------
extern PACKAGE TFormReport *FormReport;
//----------------------------------------------------------------
-----------
#endif
//----------------------------------------------------------------
-----------
#ifndef UnitReport2H
#define UnitReport2H
//----------------------------------------------------------------
-----------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//----------------------------------------------------------------
-----------
class TFormReport2 : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField
*ADODataSetComputerTehnikaProdan;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField
*ADODataSetComputerTehnikaNameVidTehniki;
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
*ADODataSetComputerTehnikaCodVidTehniki;
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>
#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
*ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField
*ADODataSetComputerTehnikaNameVidTehniki;
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::TFormComputerTehnika(T
Component* Owner)
: TForm(Owner)
{
}
//----------------------------------------------------------------
-----------
void __fastcall
TFormComputerTehnika::ButtonFotoClick(TObject
*Sender)
{ char *s;
OpenDialogFoto->InitialDir=
ExtractFileDir(Application->ExeName);
if(OpenDialogFoto->Execute()==true) //вызов
диалога выбора файла
{DBImageFoto->Visible=true;
93
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(TObject
*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;//сделать кнопку
Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку
Удалить недоступной
ShowMessage("Данные отсутствуют в БД!");
//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите
удаление записи
!","Внимание",MB_ICONWARNING+MB_YESNO)
==IDYES)
ADODataSetComputerTehnika->Delete();//удалить
запись из таблицы БД
}
//----------------------------------------------------------------
-----------
//Выполняется при нажатии кнопки Изменить
void __fastcall
TFormComputerTehnika::ButtonChangeClick(TObjec
t *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(TObject
*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;
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
*ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField
*ADODataSetComputerTehnikaNameVidTehniki;
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;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehniki;
94
TButton *ButtonProdat;
TGroupBox *GroupBoxOpisanie;
TDBMemo *DBMemoOpisanie;
TDBImage *DBImageFoto;
TButton *ButtonExit;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField
*ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall FormShow(TObject *Sender);
void __fastcall
DBGridComputerTehnikaCellClick(TColumn
*Column);
void __fastcall ButtonProdatClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdazha(TComponent* Owner);
};
//----------------------------------------------------------------
-----------
extern PACKAGE TFormProdazha *FormProdazha;
//----------------------------------------------------------------
-----------
#endif
//----------------------------------------------------------------
-----------
#ifndef SpravkaH
#define SpravkaH
//----------------------------------------------------------------
-----------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//----------------------------------------------------------------
-----------
class TFormSpravka : public TForm
{
__published: // IDE-managed Components
TMemo *MemoSpravka;
TMemo *Memo1;
TButton *ButtonExit;
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormSpravka(TComponent* Owner);
};
//----------------------------------------------------------------
-----------
extern PACKAGE TFormSpravka *FormSpravka;
//----------------------------------------------------------------
-----------
#endif
//----------------------------------------------------------------
-----------
#ifndef UnitReportH
#define UnitReportH
//----------------------------------------------------------------
-----------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//----------------------------------------------------------------
-----------
class TFormReport : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField
*ADODataSetComputerTehnikaProdan;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField
*ADODataSetComputerTehnikaNameVidTehniki;
void __fastcall QuickRep1AfterPreview(TObject
*Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport(TComponent* Owner);
};
//----------------------------------------------------------------
-----------
extern PACKAGE TFormReport *FormReport;
//----------------------------------------------------------------
-----------
#endif
//----------------------------------------------------------------
-----------
#ifndef UnitReport2H
#define UnitReport2H
//----------------------------------------------------------------
-----------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//----------------------------------------------------------------
-----------
class TFormReport2 : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField
*ADODataSetComputerTehnikaProdan;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField
*ADODataSetComputerTehnikaNameVidTehniki;
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
*ADODataSetComputerTehnikaCodVidTehniki;
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>
#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
95
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField
*ADODataSetComputerTehnikaProdan;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField
*ADODataSetComputerTehnikaNameVidTehniki;
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::TFormComputerTehnika(T
Component* Owner)
: TForm(Owner)
{
}
//----------------------------------------------------------------
-----------
void __fastcall
TFormComputerTehnika::ButtonFotoClick(TObject
*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(TObject
*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;//сделать кнопку
Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку
Удалить недоступной
ShowMessage("Данные отсутствуют в БД!");
//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите
удаление записи
!","Внимание",MB_ICONWARNING+MB_YESNO)
==IDYES)
ADODataSetComputerTehnika->Delete();//удалить
запись из таблицы БД
}
//----------------------------------------------------------------
-----------
//Выполняется при нажатии кнопки Изменить
void __fastcall
TFormComputerTehnika::ButtonChangeClick(TObjec
t *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(TObject
*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;
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
*ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;