Файл: ПРОЕКТИРОВАНИЕ РЕАЛИЗАЦИИ ОПЕРАЦИЙ БИЗНЕС-ПРОЦЕССА УПРАВЛЕНИЕ ДОКУМЕНТООБОРОТОМ.pdf
Добавлен: 28.04.2023
Просмотров: 302
Скачиваний: 2
СОДЕРЖАНИЕ
1.1. Выбор комплекса задач автоматизации
1.1.1 Общая информация о предприятии
1.1.2 Выбор комплекса задач автоматизации
1.3. Характеристика документооборота, возникающего при решении задачи
1.4. Обоснование проектных решений по информационному обеспечению
1.5. Обоснование проектных решений по программному обеспечению
2.1. Информационная модель и её описание
2.2. Характеристика нормативно-справочной, входной и оперативной информации
2.3. Характеристика результатной информации
2.4. Общие положения (дерево функций и сценарий диалога)
2.5. Характеристика базы данных
2.6 Структурная схема пакета (дерево вызова программных модулей)
2.7 Описание программных модулей
Использование данной системы в качестве системы автоматизации документооборота позволило достичь следующих результатов:
- Значительное снижение уровня трудозатрат.
- Повышение качество выполнения бизнес-процессов документооборота.
- Ускорение работы сотрудников, отвечающих за документооборот.
- Снижение ошибок, при составлении документов.
- Приведение документации к единому стандарту.
- Снижение влияния человеческого фактора.
- Снижение материальных расходов (бумаги, журналов, кассовых книг).
Как видно, внедрение разработки принесло большое количество преимуществ, в сферу обеспеченья документооборота предприятия.
Перспективы разработанной системы зависят от подхода к дальнейшему её эксплуатированию и развитию. На сегодняшний момент система обеспечивает автоматизацию лишь небольшой части бизнес-процессов предприятия, однако, используя данную систему, как платформу для разработки, дополняя её новыми модулями и совершенствуя существующие, можно развить данную систему в полноценную АСУ, которая быть может в последствии составит конкуренцию флагманам современной автоматизации предприятий.
Список использованных источников и литературы
- Методические рекомендации в помощь автору вузовской книги / Составитель Устьянцева Л. В.; под редакцией Козлова В. Ю.; Урал. гос. горный ун-т. – Екатеринбург: Изд-во УГГУ, 2007. – 51с.
- ГОСТ 2.105–95. Единая система конструкторской документации. Общие требования к текстовым документам. Введ. 2006-07-01. – Минск.: ИПК, Изд-во стандартов, 1996. – 37с.
- ГОСТ 7.32–2001. Система стандартов по информации, библиотечному и издательскому делу: отчет о научно-исследовательской работе. Структура и правила оформления. Введ. 2002–07–01. – Минск: Госстандарт России, 2002. – 19с.
- ГОСТ 7.1-2003. Библиографическая запись. Библиографическое описание. Общие требования и правила составления. (Система стандартов по информации, библиотечному и издательскому делу). – Введ. 2004–07–01. – Минск: ИПК, Изд-во стандартов, 2004. – 171с.
- ГОСТ Р 6.30-2003. Унифицированные системы документации. Унифицированная система организационно-распорядительной документации. Требования к оформлению документов. – Введ. 2003-07-01. – М.: Госстандарт России: Изд-во стандартов, 2003. –.28с.
- ГОСТ 7.90–2007. Система стандартов по информации, библиотечному и издательскому делу. Универсальная десятичная классификация. Структура, правила ведения и индексирования. – Введ. 2008–07–01. – М.: Стандартинформ, 2008. – 26с.
- ГОСТ 7.12–93. Библиографическая запись. Сокращение слов на русском языке. Общие требования и правила. – Введ. 1995–07–01. – М.:Изд-во стандартов, 1995. – 19с.
- ГОСТ 2.304–81. Переиздан (апрель 2000 г.) Единая система конструкторской документации. Шрифты чертежные. Изд. официальное. – М.:Госстандарт России, 2000. – 23с.
- ГОСТ 19.701–90. ЕСПД. Схемы алгоритмов программ, данных и систем. Условные обозначения. ГК СССР УКПС. – Введ. 1991-07-01. – М.:Госстандарт России, 1991. – 26с.
- Единицы физических величин. ГОСТ 8.417-81. Издание официальное. ГК СССР С. – М.: Издательство стандартов, 1988. – 40с.
- Петров Ю.С., Маркс С.Р. Система управления базами данных. ACESS 7.0. Учебное пособие.– Екатеринбург: Изд. УГГГА, 1998. – 35с.
- ПетровЮ.С. Мультимедийные лекции по дисциплине «Информатика», раздел «Базы данных», 2010г. –http://www.ursmu.ru/sitemap.html
- Тимухина В.В. Мультимедийные лекции по дисциплине «Информатика», разделы «Программное обеспечение» и «Алгоритмизация и программирование», 2010г. –http://www.ursmu.ru/sitemap.html
Приложение 1
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ImgList, Menus, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N9: TMenuItem;
N2: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N5: TMenuItem;
N12: TMenuItem;
N3: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N4: TMenuItem;
ImageList1: TImageList;
ADOConnection1: TADOConnection;
N8: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
MainMenu2: TMainMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
MenuItem9: TMenuItem;
MenuItem10: TMenuItem;
MenuItem11: TMenuItem;
MenuItem12: TMenuItem;
MenuItem13: TMenuItem;
MenuItem14: TMenuItem;
MenuItem15: TMenuItem;
MenuItem16: TMenuItem;
MenuItem17: TMenuItem;
MenuItem18: TMenuItem;
Image1: TImage;
N19: TMenuItem;
N20: TMenuItem;
procedure N7Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N20Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
dbpath:string;
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit7, Unit6, Unit8, Unit11, Unit10,
Unit9, Unit12, Unit13;
{$R *.dfm}
procedure TForm1.N7Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form3.show;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
form4.Show;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
form5.show;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
form6.show;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
form7.Show;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
form8.show;
end;
procedure TForm1.N15Click(Sender: TObject);
begin
form11.show;
end;
procedure TForm1.N16Click(Sender: TObject);
begin
form10.show;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
form9.show;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.N17Click(Sender: TObject);
begin
form12.show;
end;
procedure TForm1.N18Click(Sender: TObject);
begin
MessageDlg('ÀÐÌ ìåíåäæåðà',mtInformation, [mbOK], 0);
end;
procedure TForm1.FormCreate(Sender: TObject);
var a,p:string;
begin
getdir(0,form1.dbpath);
form1.dbpath:=form1.dbpath+'\db.mdb';
getdir(0,p);
form1.ADOConnection1.Connected:=false;
a:='Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DBQ='+p+'\db.mdb;DefaultDir='+p+';Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN='+p+'\db.mdb;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;";Initial Catalog='+p;
form1.ADOConnection1.ConnectionString:=a;
form1.ADOConnection1.Connected:=true;
end;
procedure TForm1.N20Click(Sender: TObject);
begin
form13.show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, unit1, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, comobj,
Buttons, AccessXP, OleServer, Access2000;
type
TForm2 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator2: TDBNavigator;
DataSource1: TDataSource;
ADOTable1: TADOTable;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner4: TWideStringField;
// procedure SpeedButton1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
// procedure SpeedButton2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
//const
//.acviewnormal = $00000000;
//acviewdesign = $00000001;
//acviewpreview = $00000002;
var
Form2: TForm2;
access: variant;
implementation
{$R *.dfm}
{procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
Access.Visible := True;
access.opencurrentdatabase(form1.dbpath, true);
access.docmd.openreport('Îáúåêò-ñïèñîê', acViewPreview, EmptyParam, EmptyParam);
end;
}
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{try
Access.CloseCurrentDatabase;
Access.Quit(acQuitSaveAll);
except
;
end; }
end;
{
procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
Access.Visible := True;
access.opencurrentdatabase(form1.dbpath, true);
//form2.ADOTable1.FieldByName('Íîìåð').AsString;
access.docmd.openreport('Îáúåêò-âûïèñêà', acViewPreview, EmptyParam, 'Íàèìåíîâàíèå='''+form2.ADOTable1.FieldByName('Íàèìåíîâàíèå').AsString+'''');
end;
}
procedure TForm2.FormActivate(Sender: TObject);
begin
{try
Access := GetActiveOleObject('Access.Application');
except
on exception do
begin
Access := CreateOleObject('Access.Application');
end;
end; }
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
form2.ADOTable1.Active:=true;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, unit1, Buttons, comobj,
AccessXP, OleServer, Access2000;
type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator2: TDBNavigator;
ADOTable1: TADOTable;
DataSource1: TDataSource;
ADOTable1DataSource: TDataSource;
ADOTable1DSDesigner5: TWideStringField;
ADOTable1DSDesigner6: TWideStringField;
ADOTable1DSDesigner7: TWideStringField;
ADOTable1DSDesigner8: TIntegerField;
ADOTable1DSDesigner9: TWideStringField;
ADOTable2: TADOTable;
ADOTable1Field: TStringField;
// procedure SpeedButton1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
// procedure SpeedButton2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
access: variant;
implementation
{$R *.dfm}
{
procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
Access.Visible := True;
access.opencurrentdatabase(form1.dbpath, true);
access.docmd.openreport('Ïîñòàâùèêè - ñïèñîê', acViewPreview, EmptyParam, EmptyParam);
end; }
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{try
Access.CloseCurrentDatabase;
Access.Quit(acQuitSaveAll);
except
;
end; }
end;
procedure TForm3.FormActivate(Sender: TObject);
begin
{try
Access := GetActiveOleObject('Access.Application');
except
on exception do
begin
Access := CreateOleObject('Access.Application');
end;
end; }
end;
{
procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
Access.Visible := True;
access.opencurrentdatabase(form1.dbpath, true);
access.docmd.openreport('Ïîñòàâùèêè - âûïèñêà', acViewPreview, EmptyParam, 'Íàèìåíîâàíèå='''+form3.ADOTable1.FieldByName('Íàèìåíîâàíèå').AsString+'''');
end;
}
procedure TForm3.FormCreate(Sender: TObject);
begin
form3.ADOTable1.Active:=true;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Buttons, comobj,
AccessXP, OleServer, Access2000;
type
TForm4 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator2: TDBNavigator;
ADOTable1: TADOTable;
ADOTable1DSDesigner: TAutoIncField;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TBCDField;
ADOTable1DSDesigner4: TIntegerField;
ADOTable2: TADOTable;
ADOTable1IntegerField: TStringField;
DataSource1: TDataSource;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
// procedure SpeedButton1Click(Sender: TObject);
// procedure SpeedButton2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
access: variant;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm4.FormActivate(Sender: TObject);
begin
{try
Access := GetActiveOleObject('Access.Application');
except
on exception do
begin
Access := CreateOleObject('Access.Application');
end;
end; }
end;
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{try
Access.CloseCurrentDatabase;
Access.Quit(acQuitSaveAll);
except
;
end; }
end;
{
procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
Access.Visible := True;
access.opencurrentdatabase(form1.dbpath, true);
access.docmd.openreport('Òîâàð - ñïèñîê', acViewPreview, EmptyParam, EmptyParam);
end;
procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
Access.Visible := True;
access.opencurrentdatabase(form1.dbpath, true);
access.docmd.openreport('Òîâàð - âûïèñêà', acViewPreview, EmptyParam, 'Íàèìåíîâàíèå='''+form4.ADOTable1.FieldByName('Íàèìåíîâàíèå').AsString+'''');
end;
}
procedure TForm4.FormCreate(Sender: TObject);
begin
form4.ADOTable1.Active:=true;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Buttons, comobj,
AccessXP, OleServer, Access2000;
type
TForm5 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator2: TDBNavigator;
ADOTable1: TADOTable;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TIntegerField;
ADOTable2: TADOTable;
ADOTable1DSDesigner: TIntegerField;
ADOTable1IntegerField: TStringField;
DataSource1: TDataSource;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
/// procedure SpeedButton1Click(Sender: TObject);
// procedure SpeedButton2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
access: variant;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm5.FormActivate(Sender: TObject);
begin
{try
Access := GetActiveOleObject('Access.Application');
except
on exception do
begin
Access := CreateOleObject('Access.Application');
end;
end; }
end;
procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{try
Access.CloseCurrentDatabase;
Access.Quit(acQuitSaveAll);
except
;
end; }
end;
{procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
Access.Visible := True;
access.opencurrentdatabase(form1.dbpath, true);
access.docmd.openreport('Ñîòðóäíèêè - ñïèñîê', acViewPreview, EmptyParam, EmptyParam);
end;
procedure TForm5.SpeedButton2Click(Sender: TObject);
begin
Access.Visible := True;
access.opencurrentdatabase(form1.dbpath, true);
access.docmd.openreport('Ñîòðóäíèêè - âûïèñêà', acViewPreview, EmptyParam, '[ÔÈÎ ñîòðóäíèêà]='''+form5.ADOTable1.FieldByName('ÔÈÎ').AsString+'''');
end;
}
procedure TForm5.FormCreate(Sender: TObject);
begin
form5.ADOTable1.Active:=true;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons, comobj,
AccessXP, OleServer, Access2000;
type
TForm6 = class(TForm)
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
Panel1: TPanel;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
// procedure SpeedButton1Click(Sender: TObject);
// procedure SpeedButton2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
access: variant;
implementation
uses Unit7, Unit1;
{$R *.dfm}
procedure TForm6.BitBtn1Click(Sender: TObject);
begin
form7.show;
end;
procedure TForm6.FormActivate(Sender: TObject);
begin
form6.ADOTable1.Active:=false;
form6.ADOTable1.Active:=true;
{try
Access := GetActiveOleObject('Access.Application');
except
on exception do
begin
Access := CreateOleObject('Access.Application');
end;
end; }
end;
procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{try
Access.CloseCurrentDatabase;
Access.Quit(acQuitSaveAll);
except
;
end; }
end;
{
procedure TForm6.SpeedButton1Click(Sender: TObject);
begin
Access.Visible := True;
access.opencurrentdatabase(form1.dbpath, true);
access.docmd.openreport('Ïðîäàæè', acViewPreview, EmptyParam, EmptyParam);
end;
procedure TForm6.SpeedButton2Click(Sender: TObject);
begin
Access.Visible := True;
access.opencurrentdatabase(form1.dbpath, true);
access.docmd.openreport('ñ÷¸ò', acViewPreview, EmptyParam, 'íîìåð='+form6.ADOTable1.FieldByName('íîìåð').AsString);
end;
}
procedure TForm6.FormCreate(Sender: TObject);
begin
form6.ADOTable1.Active:=true;
end;
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ComCtrls, StdCtrls, DBCtrls, Mask, Buttons;
type
TForm7 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DateTimePicker1: TDateTimePicker;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
Edit2: TEdit;
UpDown1: TUpDown;
Edit3: TEdit;
Edit1: TEdit;
BitBtn1: TBitBtn;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
procedure Edit2Change(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
procedure Edit2Exit(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public