Файл: Проектирование реализации операций бизнес-процесса «Продажи» ( ООО «Бизнеском»).pdf
Добавлен: 21.05.2023
Просмотров: 442
Скачиваний: 3
СОДЕРЖАНИЕ
1. Основные и обеспечивающие бизнес-процессы
1.5. Послепродажное обслуживание
Информационная модель и её описание
Характеристика нормативно-справочной, входной и оперативной информации
Характеристика результатной информации
Структурная схема пакета (дерево вызова программных модулей)
Контрольный пример реализации проекта и его описание
Список использованной литературы
Приложение А - Листинг программы
//---------------------------------------------------------------------------
#ifndef ComputerTehnikaH
#define ComputerTehnikaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <ComCtrls.hpp>
#include <DBCtrls.hpp>
#include <Dialogs.hpp>
#include <Mask.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TFormComputerTehnika : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TBooleanField *ADODataSetComputerTehnikaProdan;
TGroupBox *GroupBox1;
TLabel *Label1;
TDBEdit *DBEditName;
TLabel *Label2;
TDBEdit *DBEditCena;
TLabel *Label3;
TDateTimePicker *DateTimePickerDataPostup;
TLabel *Label4;
TDBMemo *DBMemoOpisanie;
TLabel *Label5;
TDBLookupComboBox *DBLookupComboBoxVidTehniki;
TButton *ButtonFoto;
TDBImage *DBImageFoto;
TOpenDialog *OpenDialogFoto;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
void __fastcall ButtonFotoClick(TObject *Sender);
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);
private: // User declarations
public: // User declarations
__fastcall TFormComputerTehnika(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormComputerTehnika *FormComputerTehnika;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DiagrammaOkladH
#define DiagrammaOkladH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <Chart.hpp>
#include <DB.hpp>
#include <DbChart.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
#include <Series.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormDiagrammaOklad : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
TDBChart *DBChartManager;
TPieSeries *Series1;
TStringField *ADODataSetManagerFIO2;
TButton *ButtonExit;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ADODataSetManagerCalcFields(TDataSet *DataSet);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormDiagrammaOklad(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDiagrammaOklad *FormDiagrammaOklad;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DMH
#define DMH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
//---------------------------------------------------------------------------
class TDM1 : public TDataModule
{
__published: // IDE-managed Components
TADOConnection *ADOConnection1;
private: // User declarations
public: // User declarations
__fastcall TDM1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDM1 *DM1;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DolgnostH
#define DolgnostH
//---------------------------------------------------------------------------
#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 TFormDolgnost : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridDolgnost;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField *ADODataSetDolgnostName;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
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 TFormDolgnost(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainAISH
#define MainAISH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TFormMainAIS : public TForm
{
__published: // IDE-managed Components
TMainMenu *MainMenu1;
TMenuItem *N1;
TMenuItem *N2;
TMenuItem *N3;
TMenuItem *N4;
TMenuItem *N5;
TMenuItem *N6;
TMenuItem *N7;
TMenuItem *N8;
TPopupMenu *PopupMenu1;
TMenuItem *N9;
TMenuItem *N10;
TMenuItem *N12;
TMenuItem *N13;
TMenuItem *N14;
TMenuItem *N11;
TMenuItem *N15;
TImage *Image1;
void __fastcall N8Click(TObject *Sender);
void __fastcall N4Click(TObject *Sender);
void __fastcall N5Click(TObject *Sender);
void __fastcall N3Click(TObject *Sender);
void __fastcall N6Click(TObject *Sender);
void __fastcall N9Click(TObject *Sender);
void __fastcall N10Click(TObject *Sender);
void __fastcall N12Click(TObject *Sender);
void __fastcall N13Click(TObject *Sender);
void __fastcall N14Click(TObject *Sender);
void __fastcall N11Click(TObject *Sender);
void __fastcall N15Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormMainAIS(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainComputerH
#define MainComputerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TFormVxod : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TComboBox *ComboBoxManager;
TLabel *Label2;
TEdit *EditPassword;
TBitBtn *BitBtnExit;
TButton *ButtonVxod;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
void __fastcall FormShow(TObject *Sender);
void __fastcall BitBtnExitClick(TObject *Sender);
void __fastcall ButtonVxodClick(TObject *Sender);
void __fastcall EditPasswordKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormVxod(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVxod *FormVxod;
extern int TekManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ManagerH
#define ManagerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <ComCtrls.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Mask.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormManager : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridFormManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
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;