Автоматизация процесса оформления кадровых приказов и служебных записок в организации.

1.Общие сведения 3 1.1. Наименование системы 3 1.2.Основание для проведения работ 3 1.3.Наименование организаций Заказчика и Разработчика 3 1.4.Плановые сроки начала и окончания работы 3 1.5.Источники и порядок финансирования 4 1.5.1.Источник финансирования: 4 1.5.2.Порядок финансирования: 4 1.6.Порядок оформления и предъявления Заказчику результатов работ 4 2. Названия и цели создания системы 5 2.1. Назначения Системы 5 2.2. Цели создания Системы 5 3. Характеристика объектов автоматизации 6 3.1. Объект автоматизации 6 3.2.Перечень рассматриваемых процессов 6 3.3.Описание процессов 6 3.3.1.Ключевой показатель эффективности. 8 3.3.3. Выделение объектов автоматизации 8 4. Моделирование бизнес-процессов в методологии IDEF0 9 5. Моделирование бизнес-процессов в методологии IDEF3 13 6. Моделирование данных 17 7. Макеты экранных форм приложения 26 8.Оценка экономической эффективности проекта 27 9. Основные этапы реализации автоматизированной системы 40 Заключение 41 Список использованной литературы 42 Содержание

Clear; sql.Add('select * from sotr where kod='+form1.adoquery4isp3.AsString); open; end; if form1.adoquery1.RecordCount>0 then label24.Caption:=form1.adoquery1fio.AsString else label24.Caption:='';end;procedure TForm17.DBGrid1CellClick(Column: TColumn);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from sotr where kod='+form1.adoquery4isp1.AsString); open; end; label21.Caption:=form1.adoquery1fio.AsString; with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from sotr where kod='+form1.adoquery4isp2.AsString); open; end; if form1.adoquery1.RecordCount>0 then label23.Caption:=form1.adoquery1fio.AsString else label23.Caption:=''; with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from sotr where kod='+form1.adoquery4isp3.AsString); open; end; if form1.adoquery1.RecordCount>0 then label24.Caption:=form1.adoquery1fio.AsString else label24.Caption:='';end;procedure TForm17.BitBtn4Click(Sender: TObject);var i:integer;label q;begin form1.adoquery4.First; for i:=1 to form1.adoquery4.RecordCount do begin if form1.adoquery4nish.Asstring=edit2.Text then begin with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from sotr where kod='+form1.adoquery4isp1.AsString); open; end; label21.Caption:=form1.adoquery1fio.AsString; with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from sotr where kod='+form1.adoquery4isp2.AsString); open; end; if form1.adoquery1.RecordCount>0 then label23.Caption:=form1.adoquery1fio.AsString else label23.Caption:=''; with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from sotr where kod='+form1.adoquery4isp3.AsString); open; end; if form1.adoquery1.RecordCount>0 then label24.Caption:=form1.adoquery1fio.AsString else label24.Caption:=''; goto q; end else form1.adoquery4.Next; end; showmessage('Номерненайден');q:end;procedure TForm17.ComboBox1Select(Sender: TObject);begin with form1.adoquery1 do begin close; sql.Clear; sql.Add('select * from sotr where fio='+form1.Label3.Caption+trim(combobox1.Text)+form1.label3.Caption); open; end;end;end.unit Unit18;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBCtrls, DB, StdCtrls, Buttons;type TForm18 = class(TForm) Label1: TLabel; DataSource1: TDataSource; DBText1: TDBText; Label2: TLabel; DBText2: TDBText; Label3: TLabel; DBText3: TDBText; Label4: TLabel; DBText4: TDBText; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form18: TForm18;implementationuses Unit1;{$R *.dfm}procedure TForm18.BitBtn3Click(Sender: TObject);var num,god:string; i:integer;label q;beginnum:=dbtext1.Caption;god:=dbtext3.Caption; with form1.adoquery4 do begin close; sql.Clear; sql.Add('update vhod set new=yes where (num='+num+') and (god='+god+')'); execsql; close; sql.Clear; sql.Add('select * from vhod where god='+god); active:=true; end; for i:=1 to form1.adoquery4.RecordCount do begin if strtoint(num)=form1.ADOQuery4num.Asinteger then goto q else form1.adoquery4.Next;end;q: showmessage('Документ помечен как новый. Для его сортировки выберите "Операции - Входящие - Отправка исполнителям". Оттудажеегоможноудалить');end;procedure TForm18.BitBtn4Click(Sender: TObject);var num,god:string; i:integer;label q;begin num:=dbtext1.Caption;god:=dbtext3.Caption; with form1.adoquery4 do begin close; sql.Clear; sql.Add('update vhod set kontr=no where (num='+num+') and (god='+god+')'); execsql; close; sql.Clear; sql.Add('select * from vhod where god='+god); active:=true; end; for i:=1 to form1.adoquery4.RecordCount do begin if strtoint(num)=form1.ADOQuery4num.Asinteger then goto q else form1.adoquery4.Next;end;q: showmessage('Признак контроля для текущего документа отменен');end;procedure TForm18.BitBtn5Click(Sender: TObject);var num,god:string; i:integer;label q;begin num:=dbtext1.Caption;god:=dbtext3.Caption; with form1.adoquery4 do begin close; sql.Clear; sql.Add('update vhod set pisp=no where (num='+num+') and (god='+god+')'); execsql; close; sql.Clear; sql.Add('select * from vhod where god='+god); active:=true; end; for i:=1 to form1.adoquery4.RecordCount do begin if strtoint(num)=form1.ADOQuery4num.Asinteger then goto q else form1.adoquery4.Next;end;q: showmessage('Признак исполнения для текущего документа отменен');end;end.unit Unit19;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls;type TForm19 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; DateTimePicker1: TDateTimePicker; Label4: TLabel; Label5: TLabel; BitBtn1: TBitBtn; Label6: TLabel; Label7: TLabel; BitBtn2: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form19: TForm19;implementationuses Unit1;{$R *.dfm}procedure TForm19.BitBtn1Click(Sender: TObject);var year1,mon1,dt1:word ; m1,d1:string[2]; day1,num,god:string;begin decodedate(datetimepicker1.Date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day1:=inttostr(year1)+'/'+m1+'/'+d1; with form1.adoquery4 do begin close; sql.Clear; sql.Add('update vhod set kdate=#'+day1+'# where (num='+label2.Caption+') and (god='+label5.Caption+')'); execsql; close; sql.Clear; sql.Add('select * from vhod order by num'); active:=true; end; showmessage('Готово');end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, DBCtrls, ExtCtrls, DB, Grids, DBGrids;type TForm2 = class(TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; DBNavigator1: TDBNavigator; Label1: TLabel; DBText1: TDBText; Label2: TLabel; DBText2: TDBText; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form2: TForm2;implementationuses Unit1, Unit3, Unit4;{$R *.dfm}procedure TForm2.BitBtn1Click(Sender: TObject);beginform3.Show;end;procedure TForm2.BitBtn2Click(Sender: TObject);begin with form4 do begin edit1.Text:=dbtext1.Caption; label3.Caption:=dbtext2.Caption; show; end;end;procedure TForm2.BitBtn3Click(Sender: TObject);begin form1.adoquery2.Delete;end;procedure TForm2.BitBtn4Click(Sender: TObject);beginform2.Close;end;end.unit Unit20;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBCtrls, StdCtrls, DB, ExtCtrls, Grids, DBGrids;type TForm20 = class(TForm) DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; DataSource1: TDataSource; Label1: TLabel; Label2: TLabel; Label3: TLabel; DBText1: TDBText; DBText2: TDBText; DBText3: TDBText; private { Private declarations } public { Public declarations } end;var Form20: TForm20;implementationuses Unit1;{$R *.dfm}end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;type TForm3 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form3: TForm3;implementationuses Unit1;{$R *.dfm}procedure TForm3.BitBtn1Click(Sender: TObject);beginif (trim(edit1.Text)='') or (trim(edit2.Text)='') then showmessage('Проверьтереквизиты') elsebegin with form1.ADOQuery2 do begin close; sql.Clear; sql.Add('select * from otd where kodotd='+edit2.Text); open; end; if form1.ADOQuery2.RecordCount=0 then begin form1.ADOQuery2.AppendRecord([edit2.Text,edit1.Text]) ; showmessage('Записано'); end else showmessage('Повторкодаотдела'); end; with form1.adoquery2 do begin close; sql.Clear; sql.Add('select * from otd order by kodotd'); active:=true; end;end;end.unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;type TForm4 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Label3: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form4: TForm4;implementationuses Unit1;{$R *.dfm}procedure TForm4.BitBtn1Click(Sender: TObject);begin with form1.adoquery2 do begin close; sql.Clear; sql.Add('update otd set nameotd='+form1.Label3.caption+edit1.Text+form1.Label3.caption+' where kodotd='+label3.Caption); execsql; close; sql.Clear; sql.Add('select * from otd order by kodotd'); active:=true; end; showmessage('Записано');end;end.unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, StdCtrls, DB, Grids, DBGrids, Buttons;type TForm5 = class(TForm) DBGrid1: TDBGrid; DBText1: TDBText; DataSource1: TDataSource; Label1: TLabel; DBNavigator1: TDBNavigator; DBText2: TDBText; Label2: TLabel; DBText3: TDBText; Label3: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; procedure BitBtn1Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form5: TForm5;implementationuses Unit1, Unit6, Unit7;{$R *.dfm}procedure TForm5.BitBtn1Click(Sender: TObject);var i:integer;beginwith form1.adoquery2 dobegin close; sql.Clear; sql.Add('select * from otd order by nameotd'); open;end; with form6 do begin label4.Caption:=''; edit1.Clear; combobox1.Clear; for i:=1 to form1.adoquery2.RecordCount do begin combobox1.Items.Add(trim(form1.adoquery2nameotd.AsString)); form1.adoquery2.Next; end; show; end;end;procedure TForm5.BitBtn3Click(Sender: TObject);begin form1.adoquery1.Delete;end;procedure TForm5.BitBtn2Click(Sender: TObject);begin with form7 do begin edit1.Text:=dbtext1.Caption; label3.Caption:=dbtext2.Caption; show; end;end;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;type TForm6 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; ComboBox1: TComboBox; Label3: TLabel; Label4: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure ComboBox1Select(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form6: TForm6;implementationuses Unit1;{$R *.dfm}procedure TForm6.ComboBox1Select(Sender: TObject);begin with form1.ADOQuery2 do begin close; sql.Clear; sql.Add('select * from otd where nameotd='+form1.Label3.Caption+trim(combobox1.Text)+form1.Label3.Caption); open; end; label4.Caption:=form1.ADOQuery2kodotd.AsString;end;procedure TForm6.BitBtn1Click(Sender: TObject);begin if trim(combobox1.Text)='' then showmessage('Выберитеотдел') else begin with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from sotr where fio='+form1.Label3.Caption+trim(edit1.Text)+form1.Label3.Caption); open; end; with form1.adoquery1 do begin close; sql.Clear; sql.Add('select * from sotr where kodotd='+label4.Caption); open; end; form1.ADOQuery1.AppendRecord([edit1.Text,strtoint(label4.Caption)*100+form1.adoquery1.recordcount+1,strtoint(label4.Caption),form1.adoquery2nameotd.asstring]); showmessage('Записано. Присвоенкодсотрудника '+inttostr(strtoint(label4.Caption)*100+form1.adoquery1.recordcount)); with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from sotr order by fio'); active:=true; end; end;end;procedure TForm6.BitBtn2Click(Sender: TObject);begin form6.close;end;end.unit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;type TForm7 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Label3: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure BitBtn2Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form7: TForm7;implementationuses Unit1;{$R *.dfm}procedure TForm7.BitBtn2Click(Sender: TObject);begin form7.Close;end;procedure TForm7.BitBtn1Click(Sender: TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('update sotr set fio='+form1.Label3.Caption+trim(edit1.Text)+form1.Label3.Caption+' where kod='+label3.Caption); execsql; end; with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from sotr order by fio'); active:=true; end; showmessage('Выполнено');end;end.unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls;type TForm8 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; DateTimePicker1: TDateTimePicker; Label3: TLabel; ComboBox1: TComboBox; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Edit3: TEdit; Label8: TLabel; ComboBox2: TComboBox; Label9: TLabel; Edit4: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; ComboBox3: TComboBox; procedure ComboBox1Select(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure ComboBox3Select(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form8: TForm8;implementationuses Unit1, Unit9;{$R *.dfm}procedure TForm8.ComboBox1Select(Sender: TObject);begin with form1.adoquery1 do begin close; sql.Clear; sql.Add('select * from sotr where fio='+form1.Label3.Caption+trim(combobox1.Text)+form1.Label3.Caption); open; end; label5.Caption:=form1.ADOQuery1kod.AsString;end;procedure TForm8.BitBtn1Click(Sender: TObject);var j,i:integer;label q;beginwith form1.adoquery5 dobegin close; sql.Clear; sql.Add('select * from org where name='+form1.Label3.Caption+trim(combobox3.Text)+form1.Label3.Caption); open;end;if form1.ADOQuery5.RecordCount=0 thenbeginform1.adoquery5.AppendRecord([combobox3.text,edit3.Text]);form8.ComboBox3.Clear;with form1.adoquery5 dobegin close; sql.Clear; sql.Add('select * from org order by name'); open;end;for i:=1 to form1.adoquery5.RecordCount dobegin form8.ComboBox3.Items.Add(form1.adoquery5name.AsString); form1.adoquery5.Next;end;end;with form1.adoquery3 do begin close; sql.Clear; sql.Add('select * from ishod where (god='+edit1.Text+') and (num='+edit1.Text+')'); open; end; if form1.adoquery3.RecordCount>0 then showmessage('Такойномеружебыл') else begin if form1.adoquery1.RecordCount<>1 then showmessage('Невыбранисполнитель') else begin form1.ADOQuery3.AppendRecord([edit1.Text,strtoint(label5.Caption),datetimepicker1.date,form1.Edit1.Text,combobox3.Text,edit4.Text,edit3.Text,combobox2.Text]); showmessage('Записано'); edit3.Clear; edit4.Clear; combobox1.Text:=''; with form1.adoquery1 do begin close; sql.Clear; sql.Add('select * from sotr'); open; end; label5.Caption:=''; j:=strtoint(edit1.Text)+1;q: with form1.adoquery3 do begin close; sql.Clear; sql.Add('select * from ishod where (god='+edit1.Text+') and (num='+inttostr(j)+')'); open; end; if form1.adoquery3.RecordCount>0 then begin j:=j+1; goto q; end; form8.Edit1.Text:=inttostr(j); end; end;end;procedure TForm8.BitBtn2Click(Sender: TObject);begin with form1.adoquery3 do begin close; sql.Clear; sql.Add('select * from ishod where god='+form1.Edit1.Text+' order by num'); active:=true; end; form9.DBGrid1.Columns[0].Title.caption:='Номер'; form9.DBGrid1.Columns[1].Title.caption:='Дата'; form9.DBGrid1.Columns[2].Title.caption:='Организация'; form9.Show;end;procedure TForm8.ComboBox3Select(Sender: TObject);begin with form1.adoquery5 do begin close; sql.Clear; sql.Add('select * from org where name='+form1.Label3.Caption+trim(combobox3.Text)+form1.Label3.Caption); open; end; if form1.adoquery5.RecordCount>0 then edit3.Text:=form1.adoquery5adr.AsString;end;end.unit Unit9;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, DBGrids, DBCtrls, StdCtrls, ExtCtrls, Buttons;type TForm9 = class(TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; DBNavigator1: TDBNavigator; Label1: TLabel; DBText1: TDBText; Label2: TLabel; DBText2: TDBText; Label3: TLabel; DBText3: TDBText; DBText4: TDBText; Label5: TLabel; DBText5: TDBText; Label6: TLabel; DBText6: TDBText; BitBtn1: TBitBtn; BitBtn2: TBitBtn; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; RadioButton4: TRadioButton; Label4: TLabel; Label7: TLabel; Edit1: TEdit; BitBtn3: TBitBtn; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form9: TForm9;implementationuses Unit1, Unit10, Unit11, Unit12, Unit13;{$R *.dfm}procedure TForm9.BitBtn1Click(Sender: TObject);begin form1.ADOQuery3.Delete;end;procedure TForm9.BitBtn2Click(Sender: TObject);var i:integer;beginform10.ProgressBar1.Position:=0;form11.ProgressBar1.Position:=0;form12.ProgressBar1.Position:=0;form13.ProgressBar1.Position:=0; if radiobutton1.Checked=true then begin form10.DateTimePicker1.Date:=now; form10.DateTimePicker2.Date:=now; form10.Show; end; if radiobutton2.Checked=true then form11.show; if radiobutton3.Checked=true then begin with form1.adoquery1 do begin close; sql.Clear; sql.Add('select * from sotr order by fio'); open; end; form12.ComboBox1.Clear; for i:=1 to form1.ADOQuery1.RecordCount do begin form12.ComboBox1.Items.Add(trim(form1.ADOQuery1fio.AsString)); form1.adoquery1.Next; end; form12.Show; end; if radiobutton4.Checked=true then form13.show;end;procedure TForm9.BitBtn3Click(Sender: TObject);var i:integer;label q;begin form1.adoquery3.First; form1.adoquery3.open; for i:=1 to form1.adoquery3.RecordCount do begin if edit1.Text=form1.adoquery3num.AsString then goto q; form1.adoquery3.Next; end; showmessage('Номерненайден');q: form1.ADOQuery3.Active:=true;end;end.