Файл: Проектирование реализации операций бизнес-процесса «Складской учет» (Характеристика существующих бизнес –процессов).pdf
Добавлен: 12.03.2024
Просмотров: 27
Скачиваний: 0
СОДЕРЖАНИЕ
1.1. Выбор комплекса задач автоматизации
1.2. Характеристика документооборота, возникающего при решении задачи
1.3. Характеристика существующих бизнес –процессов
1.4. Обоснование проектных решений по информационному обеспечению
1.5. Обоснование проектных решений по программному обеспечению
2.1. Информационная модель и её описание
2.2. Характеристика нормативно-справочной, входной и оперативной информации
2.3. Характеристика результатной информации
2.4. Общие положения (дерево функций и сценарий диалога)
2.5. Характеристика базы данных
2.6. Структурная схема пакета (дерево вызова программных модулей)
__fastcall TDM1::TDM1(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Dolgnost.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
__fastcall TFormDolgnost::TFormDolgnost(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormDolgnost::ButtonAddClick(TObject *Sender)
{
if(ADODataSetDolgnost->State==dsBrowse)
{ADODataSetDolgnost->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//ВыполняетсяпринажатиикнопкиУдалить
void __fastcall TFormDolgnost::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //естьлиданныевБД
{ButtonChange->Enabled=false;//сделатькнопкуИзменитьнедоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetDolgnost->State==dsBrowse)
if(Application->MessageBoxA("Подтвердитеудалениезаписи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where CodDolgnost="+IntToStr(ADODataSetDolgnostCod->Value);
ADODataSetManager->Open();
if(ADODataSetManager->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablManager' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetDolgnost->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormDolgnost::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetDolgnost->State==dsBrowse)
ADODataSetDolgnost->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormDolgnost::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormDolgnost::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetDolgnost->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormDolgnost::ButtonOtmenClick(TObject *Sender)
{
ADODataSetDolgnost->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::FormShow(TObject *Sender)
{
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::DBEditNameKeyPress(TObject *Sender,
char &Key)
{
if(Key==13)
ButtonPostClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainAIS.h"
#include "Dolgnost.h"
#include "VidTehniki.h"
#include "Manager.h"
#include "ComputerTehnika.h"
#include "Prodazha.h"
#include "Vnalichii.h"
#include "Prodano.h"
#include "OtchetManager.h"
#include "DiagrammaOklad.h"
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
__fastcall TFormMainAIS::TFormMainAIS(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N8Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N4Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDolgnost), &FormDolgnost);
FormDolgnost->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N5Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVidTehniki), &FormVidTehniki);
FormVidTehniki->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N3Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormManager), &FormManager);
FormManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N6Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormComputerTehnika), &FormComputerTehnika);
FormComputerTehnika->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N9Click(TObject *Sender)
{
N8Click(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N10Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdazha), &FormProdazha);
FormProdazha->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N12Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVnalichii), &FormVnalichii);
FormVnalichii->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N13Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdano), &FormProdano);
FormProdano->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N14Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormOtchetManager), &FormOtchetManager);
FormOtchetManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N11Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDiagrammaOklad), &FormDiagrammaOklad);
FormDiagrammaOklad->ShowModal();
}
//---------------------------------------------------------------------------
//Вызовсправки
void __fastcall TFormMainAIS::N15Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormSpravka), &FormSpravka);
FormSpravka->ShowModal();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainComputer.h"
#include "DM.h"
#include "MainAIS.h"
#include "string.h"
#include "stdio.h"
#include <algorithm>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVxod *FormVxod;
int TekManager;
//---------------------------------------------------------------------------
__fastcall TFormVxod::TFormVxod(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::FormShow(TObject *Sender)
{
ComboBoxManager->Clear();
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetManager->First();
while(!ADODataSetManager->Eof)
{ComboBoxManager->Items->Add(ADODataSetManagerFIO->Value);
ADODataSetManager->Next();
}
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::BitBtnExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::ButtonVxodClick(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where FIO="+QuotedStr(ComboBoxManager->Text);
ADODataSetManager->Open();
if(ADODataSetManagerPassword->Value==EditPassword->Text)
{TekManager= ADODataSetManagerCod->Value;
Application->CreateForm(__classid(TFormMainAIS), &FormMainAIS);
FormMainAIS->ShowModal();
Close();
}
else ShowMessage("Неверныйпароль!");
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::EditPasswordKeyPress(TObject *Sender, char &Key)
{
if(Key==13)
ButtonVxodClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Manager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormManager *FormManager;
//---------------------------------------------------------------------------
__fastcall TFormManager::TFormManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::FormShow(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormManager::ButtonAddClick(TObject *Sender)
{
if(ADODataSetManager->State==dsBrowse)
{ADODataSetManager->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePicker1->Date= Date();
DBEditFIO->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormManager::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //естьлиданныевБД
{ButtonChange->Enabled=false;//сделатькнопкуИзменитьнедоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetManager->State==dsBrowse)
if(Application->MessageBoxA("Подтвердитеудалениезаписи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
ADODataSetManager->Delete();//удалить запись из таблицы БД
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormManager::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetManager->State==dsBrowse)
ADODataSetManager->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePicker1->Date= ADODataSetManagerDataRozhd->Value;
DBEditFIO->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormManager::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditFIO->Text=="" )//проверка введенных данных
{ShowMessage("Введите Ф.И.О. !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPasport->Text=="" )//проверка введенных данных
{ShowMessage("Введите паспорт !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditOklad->Text=="" )//проверка введенных данных
{ShowMessage("Введите оклад !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPassword->Text=="" )//проверка введенных данных
{ShowMessage("Введите пароль !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(ADODataSetManagerCodDolgnost->Value==0 )//проверка введенных данных
{ShowMessage("Введите должность !");//вывод диалогового окна с сообщением
return;//выходизпроцедуры
}
//-----------
ADODataSetManagerDataRozhd->Value= DateTimePicker1->Date;
ADODataSetManager->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormManager::ButtonOtmenClick(TObject *Sender)
{
ADODataSetManager->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "OtchetManager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
__fastcall TFormOtchetManager::TFormOtchetManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::FormShow(TObject *Sender)
{ char *s;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select TablManager.FIO as 'ФИОменеджера',TablDolgnost.name as 'Должность',TablHistory.cena as 'Цена',TablComputerTehnika.name as 'Названиетовара' from TablManager,TablHistory,TablDolgnost,TablComputerTehnika where (TablManager.Cod=TablHistory.CodManager)and(TablDolgnost.Cod=TablManager.CodDolgnost)and(TablHistory.CodComputerTehnika=TablComputerTehnika.Cod)";
ADODataSetManager->Open();
DBGridManager->Columns->Items[0]->Width=290;
DBGridManager->Columns->Items[1]->Width=160;
DBGridManager->Columns->Items[2]->Width=60;
DBGridManager->Columns->Items[3]->Width=410;
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
