Файл: Проектирование реализации операций бизнес-процесса «Складской учет» (Характеристика существующих бизнес –процессов).pdf
Добавлен: 12.03.2024
Просмотров: 40
Скачиваний: 0
СОДЕРЖАНИЕ
1.1. Выбор комплекса задач автоматизации
1.2. Характеристика документооборота, возникающего при решении задачи
1.3. Характеристика существующих бизнес –процессов
1.4. Обоснование проектных решений по информационному обеспечению
1.5. Обоснование проектных решений по программному обеспечению
2.1. Информационная модель и её описание
2.2. Характеристика нормативно-справочной, входной и оперативной информации
2.3. Характеристика результатной информации
2.4. Общие положения (дерево функций и сценарий диалога)
2.5. Характеристика базы данных
2.6. Структурная схема пакета (дерево вызова программных модулей)
#include <vcl.h>
#pragma hdrstop
#include "Prodano.h"
#include "DM.h"
#include "UnitReport2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdano *FormProdano;
//---------------------------------------------------------------------------
__fastcall TFormProdano::TFormProdano(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
DBMemoOpisanie->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::FormShow(TObject *Sender)
{ TColumn *Column;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
//ВыполняетсяпринажатиикнопкиПечать
void __fastcall TFormProdano::ButtonPrintClick(TObject *Sender)
{
Application->CreateForm(__classid(TFormReport2), &FormReport2);
FormReport2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N1Click(TObject *Sender)
{
ButtonPrintClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Prodazha.h"
#include "DM.h"
#include "MainComputer.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdazha *FormProdazha;
//---------------------------------------------------------------------------
__fastcall TFormProdazha::TFormProdazha(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при отображении формы
void __fastcall TFormProdazha::FormShow(TObject *Sender)
{ TColumn *Column;
DateTimePickerDataProdazhi->Date= Date();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
GroupBoxOpisanie->Visible= false;
}
else
GroupBoxOpisanie->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonProdatClick(TObject *Sender)
{TColumn *Column;
if(Application->MessageBoxA("Подтвердитепродажутовара !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{if(ADODataSetComputerTehnika->RecordCount==0)
{ShowMessage("Товаротсутствуетвпродаже!");
return;
}
ADODataSetComputerTehnika->Edit();
ADODataSetComputerTehnikaProdan->Value=1;
ADODataSetComputerTehnika->Post();
ADODataSetComputerTehnika->Refresh();
ADODataSetHistory->Insert();
ADODataSetHistoryCodComputerTehnika->Value= ADODataSetComputerTehnikaCod->Value;
ADODataSetHistoryCodManager->Value= TekManager;
ADODataSetHistoryDataProdazhi->Value= DateTimePickerDataProdazhi->Date;
ADODataSetHistoryCena->Value= ADODataSetComputerTehnikaCena->Value;
ADODataSetHistory->Post();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
DBGridComputerTehnikaCellClick(Column);
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N1Click(TObject *Sender)
{
ButtonProdatClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("MainComputer.cpp", FormVxod);
USEFORM("DM.cpp", DM1); /* TDataModule: File Type */
USEFORM("Dolgnost.cpp", FormDolgnost);
USEFORM("MainAIS.cpp", FormMainAIS);
USEFORM("VidTehniki.cpp", FormVidTehniki);
USEFORM("Manager.cpp", FormManager);
USEFORM("ComputerTehnika.cpp", FormComputerTehnika);
USEFORM("Prodazha.cpp", FormProdazha);
USEFORM("Vnalichii.cpp", FormVnalichii);
USEFORM("UnitReport.cpp", FormReport);
USEFORM("Prodano.cpp", FormProdano);
USEFORM("UnitReport2.cpp", FormReport2);
USEFORM("OtchetManager.cpp", FormOtchetManager);
USEFORM("DiagrammaOklad.cpp", FormDiagrammaOklad);
USEFORM("Spravka.cpp", FormSpravka);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TFormVxod), &FormVxod);
Application->CreateForm(__classid(TDM1), &DM1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormSpravka *FormSpravka;
//---------------------------------------------------------------------------
__fastcall TFormSpravka::TFormSpravka(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormSpravka::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport *FormReport;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport::TFormReport(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport::QuickRep1AfterPreview(TObject *Sender)
{
FormReport->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показатьокнопредварительногопросмотраотчета
}
//---------------------------------------------------------------------------
//выполняетсяприотображенииформы
void __fastcall TFormReport::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport2.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport2 *FormReport2;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport2::TFormReport2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport2::QuickRep1AfterPreview(TObject *Sender)
{
FormReport2->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport2::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport2->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показатьокнопредварительногопросмотраотчета
}
//---------------------------------------------------------------------------
//выполняетсяприотображенииформы
void __fastcall TFormReport2::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "VidTehniki.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVidTehniki *FormVidTehniki;
//---------------------------------------------------------------------------
__fastcall TFormVidTehniki::TFormVidTehniki(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormVidTehniki::ButtonAddClick(TObject *Sender)
{
if(ADODataSetVidTehniki->State==dsBrowse)
{ADODataSetVidTehniki->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//ВыполняетсяпринажатиикнопкиУдалить
void __fastcall TFormVidTehniki::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //естьлиданныевБД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->CommandText= "select * from TablComputerTehnika where CodVidTehniki="+ADODataSetVidTehnikiCod->AsString;
ADODataSetComputerTehnika->Open();
if(ADODataSetComputerTehnika->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablComputerTehnika' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetVidTehniki->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormVidTehniki::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
ADODataSetVidTehniki->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormVidTehniki::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcallTFormVidTehniki::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetVidTehniki->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormVidTehniki::ButtonOtmenClick(TObject *Sender)
{
ADODataSetVidTehniki->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormVidTehniki::FormShow(TObject *Sender)
{
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormVidTehniki::DBEditNameKeyPress(TObject *Sender,
char &Key)
{
if(Key==13)
ButtonPostClick(Sender);
}
//---------------------------------------------------------------------------