Список использованной литературы

1. Веретенникова Е.Г., Патрушина С.М., Савельева Н.Г. Информатика: Учебное пособие. Серия «Учебный курс», - Ростов н/Д: Издательский центр «МарТ», 2002. – 416 с.

2. Гуде С.В., Ревин С.Б. Информационные системы. Учебное пособие. РЮИ МВД России. 2002.

3. Дейт К. Введение в системы баз данных. - К: «Диалектика", 2001г.

4. Золотых И. Автоматизация делопроизводства и документооборота-М.: Компьютерная неделя N36 (110) ,1997

5. Информатика и математика для юристов: Учебное пособие для вузов (Гриф МО РФ) / Под ред.проф. Х.

6. Куликов Г. Г., Речкалов А. В., Набатов А. Н., Черняховская Л. P., Никулина Н. О., Старцева Е. Б. Автоматизированное проектирование информационно-управляющих систем. Проектирование экспертных систем на основе системного моделирование.— Уфа.: УГАТУ, 1978.

7. Маруняк А. Какую программу выбрать для автоматизации документооборота. Тест-драйв популярных систем. –М.: Финансовый директор №10, 2010

8. 1С:Документооборот. Система электронного документооборота (СЭД): решаемые задачи //http://elektronnij-dokumentooborot.1c-kpd.ru/

9. Автоматизация документооборота. Внедрение системы электронного документооборота в вопросах и ответах// http://www.directum.ru/425833.aspx

10. Гаген А. Документооборот. График документооборота //http://www.financial-lawyer.ru/newsbox/document/165-528027.html

11. Глоссарий процессного управления// http://piter-soft.ru/automation/more/glossary/

12. Документооборот // http://www.vprikaz.com/post_1177004394.html

13. Елманова Н. Объекты, модели и совокупности моделей// http://www.interface.ru/home.asp?artId=22697

14. Назаренко А. Поддержка системы менеджмента качества: документооборот и бизнес-процессы // http://ecm-journal.ru/card.aspx?ContentID=2692565

15. Обзор систем документооборота //http://progresoft.ru/articles?fid=5&aid=82

16. Обзор систем электронного документооборота //http://www.ixbt.com/soft/sed.shtml

17. Обзор систем электронного документооборота// http://www.ixbt.com/soft/sed.shtml

18. Описание программного комплекса «Служба поддержки пользователей» // http://a-sw.ru/?page_id=15

19. Пашков Д.В. Обзор современных систем автоматизации делопроизводства и документооборота //http://www.vert.ru/obzoryi/obzor-sovremennyih-sistem-avtomatizatsii-deloproizvodstva-i-dokumentooborota.html

20. Полецкий С. Проект локальной сети// http://www.linuxcenter.ru/lib/articles/networking/project.phtml

21. Пример предпроектного обследования// http://infostart.ru/public/16920/

22. Прохоров А.Н. Работа в современном офисе // http://www.intuit.ru/department/office/od/

23. Рейтинг ведущих систем электронного документооборота// http://bishelp.ru/uprbiz/avto/document.php

24. Свиридов С., Курьян А. IDEF0: Функциональное моделирование деловых процессов // http://www.trizminsk.org/r/430002.htm

25. Сравнительный анализ баз данных, рекомендации по выбору базы данных // http://web.prog-it.ru/bdweb.shtml

Приложение

Код программы

Проект «Project1.dpr»

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Glavnaya},

Unit5 in 'Unit5.pas' {Avto},

Unit3 in 'Unit3.pas' {Info},

Unit4 in 'Unit4.pas' {Zarp},

Unit7 in 'Unit7.pas' {Zayavki},

Unit8 in 'Unit8.pas' {Dob},

Unit9 in 'Unit9.pas' {Blok},

Unit10 in 'Unit10.pas' {Shobloni},

Unit11 in 'Unit11.pas' {Pol},

Unit12 in 'Unit12.pas' {Poisk},

Unit13 in 'Unit13.pas' {Forma},

Unit14 in 'Unit14.pas' {Admin},

Unit2 in 'Unit2.pas' {Kassa};

{$R *.res}

begin

Application.Initialize;

Application.Title := 'ÀÐÌ';

Application.CreateForm(TAvto, Avto);

Application.CreateForm(TGlavnaya, Glavnaya);

Application.CreateForm(TInfo, Info);

Application.CreateForm(TZarp, Zarp);

Application.CreateForm(TZayavki, Zayavki);

Application.CreateForm(TDob, Dob);

Application.CreateForm(TBlok, Blok);

Application.CreateForm(TShobloni, Shobloni);

Application.CreateForm(TPol, Pol);

Application.CreateForm(TPoisk, Poisk);

Application.CreateForm(TForma, Forma);

Application.CreateForm(TAdmin, Admin);

Application.CreateForm(TKassa, Kassa);

Application.Run;

end.

Модуль «Unit1.pas»

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, ComCtrls, DB, DBTables, Grids, DBGrids,

DBCtrls, Registry, Menus, ComObj, ADODB, CustomizeDlg, Mask, XPMan;

type

TGlavnaya = class(TForm)

Panel1: TPanel;

StatusBar1: TStatusBar;

Label5: TLabel;

Label7: TLabel;

Button3: TButton;

Button4: TButton;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Label12: TLabel;

Label15: TLabel;

DataSource1: TDataSource;

ADOQuery2: TADOQuery;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

ADOQuery3: TADOQuery;

Button2: TButton;

Label4: TLabel;

DBLookupListBox1: TDBLookupListBox;

Label1: TLabel;

Label2: TLabel;

procedure Button2Click(Sender: TObject);

procedure Label8Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Label9Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Label10Click(Sender: TObject);

procedure Label11Click(Sender: TObject);

procedure Label13Click(Sender: TObject);

procedure Label7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label7MouseLeave(Sender: TObject);

procedure Label15MouseLeave(Sender: TObject);

procedure Label15MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label10MouseLeave(Sender: TObject);

procedure Label10MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label11MouseLeave(Sender: TObject);

procedure Label11MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label12MouseLeave(Sender: TObject);

procedure Label12MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label9MouseLeave(Sender: TObject);

procedure Label9MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label12Click(Sender: TObject);

procedure Label15Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Glavnaya: TGlavnaya;

pass,login: string;

key, longkey, result : string;

i : integer;

toto : char;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit9, Unit8, Unit10, Unit11,

Unit12, Unit14;

{$R *.dfm}

procedure TGlavnaya.Label7MouseMove(Sender: TObject; Shift: TShiftState; X,

//изменение размера label

Y: Integer);

begin

label7.font.size:=20;

end;

procedure TGlavnaya.Button2Click(Sender: TObject);

//закрытие формы

begin

glavnaya.close;

end;

procedure TGlavnaya.Label8Click(Sender: TObject);

//открытие формы Касса

begin

Kassa.show;

end;

procedure TGlavnaya.Button3Click(Sender: TObject);

//открытие формы Информация

begin

Info.show;

Glavnaya.Hide;

end;

procedure TGlavnaya.Button4Click(Sender: TObject);

//открытие формы Зарплата

begin

Glavnaya.Hide;

Zarp.show;

end;

procedure TGlavnaya.Label9Click(Sender: TObject);[13]

begin

Formi.show;

Glavnaya.Hide;

end;

procedure TGlavnaya.N3Click(Sender: TObject);

//блокировка прогараммы

begin

Blok.Show;

Glavnaya.Hide;

Blok.edit1.Clear;

Blok.Label2.Visible:=False;

Info.Hide;

Zarp.Hide;

Formi.Hide;

Dob.Hide;

end;

procedure TGlavnaya.N4Click(Sender: TObject);

//закрытие прогараммы

begin

avto.Close;

end;

procedure TGlavnaya.Label10Click(Sender: TObject);

begin

Shabloni.show;

Glavnaya.Hide;

end;

procedure TGlavnaya.Label11Click(Sender: TObject);

//открытие формы пользователи

begin

Pol.show;

Glavnaya.Hide;

end;

procedure TGlavnaya.Label7MouseLeave(Sender: TObject);

//менение размера label

begin

label7.font.size:=18;

end;

procedure TGlavnaya.Label15MouseLeave(Sender: TObject);

//менение размера label

begin

label15.font.size:=18;

end;

procedure TGlavnaya.Label15MouseMove(Sender: TObject; Shift: TShiftState; X, : Integer);

//менение размера label

begin

label15.font.size:=20;

end;

procedure TGlavnaya.Label10MouseLeave(Sender: TObject);

//менение размера label

begin

label10.font.size:=18;

end;

procedure TGlavnaya.Label10MouseMove(Sender: TObject; Shift: TShiftState; X, : Integer);

//менение размера label

begin

label10.font.size:=20;

end;

procedure TGlavnaya.Label11MouseLeave(Sender: TObject);

//менение размера label

begin

label11.font.size:=18;

end;

procedure TGlavnaya.Label11MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

//менение размера label

begin

label11.font.size:=20;

end;

procedure TGlavnaya.Label12MouseLeave(Sender: TObject);

//менение размера label

begin

label12.font.size:=18;

end;

procedure TGlavnaya.Label12MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

//менение размера label

begin

label12.font.size:=20;

end;

procedure TGlavnaya.Label9MouseLeave(Sender: TObject);

//менение размера label

begin

label9.font.size:=18;

end;

procedure TGlavnaya.Label9MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

//менение размера label

begin

label9.font.size:=20;

end;

procedure TGlavnaya.Label12Click(Sender: TObject);

//открытие формы поиск

begin

Poisk.Show;

Glavnaya.Hide;

end;

procedure TGlavnaya.Label15Click(Sender: TObject);

//открытие формы касса

begin

Glavnaya.Hide;

Kassa.show;

end;

procedure TGlavnaya.FormClose(Sender: TObject; var Action: TCloseAction);

//окрытие формы авторизация

begin

avto.Show;

avto.Edit1.Clear;

avto.Edit2.Clear;

end;

end.

Модуль «Unit8.pas»

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DBCtrls, DB, DBTables, ComCtrls, ADODB;

type

TDob = class(TForm)

ComboBox1: TComboBox;

DBMemo1: TDBMemo;

Button1: TButton;

DateTimePicker1: TDateTimePicker;

procedure Button1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure ComboBox1Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Dob: TDob;

implementation

uses Unit1, Unit7;

{$R *.dfm}

procedure TDob.Button1Click(Sender: TObject);

begin

Dob.Close;

end;

procedure TDob.FormClose(Sender: TObject; var Action: TCloseAction);

//перезапуск таблиц

begin

Formi.ADOquery1.Active:=True;

Formi.ADOquery2.Active:=True;

Formi.ADOquery3.Active:=True;

Formi.ADOquery1.Refresh;

Formi.ADOquery2.Refresh;

Formi.ADOquery3.Refresh;

Formi.Timer1.Enabled:=True;

end;

procedure TDob.FormCreate(Sender: TObject);

//запуск таймера

begin

datetimepicker1.Date:=date;

Formi.Timer1.Enabled:=False;

end;

end.

Модуль «Unit13.pas»

unit Unit13;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Gauges;

type

TForma = class(TForm)

Gauge1: TGauge;

Label1: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Forma: TForma;

implementation

{$R *.dfm}

end.

Модуль «Unit10.pas»

unit Unit10;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, Grids, DBGrids, DBTables, ExtCtrls, DBCtrls, StdCtrls, ADODB,

Mask;

type

TShobloni = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Label1: TLabel;

Edit1: TEdit;

ComboBox1: TComboBox;

Label2: TLabel;

ComboBox2: TComboBox;

Panel1: TPanel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBComboBox1: TDBComboBox;

DBEdit3: TDBEdit;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label11: TLabel;

ADOTable1: TADOTable;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure ComboBox2Change(Sender: TObject);

procedure DBComboBox1Change(Sender: TObject);

procedure Label9Click(Sender: TObject);

procedure Label10Click(Sender: TObject);

procedure Label11Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

procedure Label5Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Shobloni: TShobloni;

a: string;

implementation

uses Unit1, Unit7, Unit2, Unit11, Unit12;

{$R *.dfm}

procedure TShobloni.FormClose(Sender: TObject; var Action: TCloseAction);

//открытие главной формы

begin

Glavnaya.show;

end;

procedure TShobloni.ComboBox2Change(Sender: TObject);

//вывод по статусу

begin

if combobox2.Text='ВСЁ' then

begin

adoTable1.Active:=False;

adoTable1.Filter:='status<>'+ char(39)+;

adoTable1.Filtered:=True;

adoTable1.Active:=True;

end;

if combobox2.Text='Установлено' then

begin

adoTable1.Active:=False;

adoTable1.Filter:='status='+Char(39)+'Установлено'+Char(39);

adoTable1.Filtered:=True;

adoTable1.Active:=True;

end;

end;

procedure TShobloni.Label9Click(Sender: TObject);

//вставка в таблицу

begin

adoTable1.Insert;

end;

procedure TShobloni.Label10Click(Sender: TObject);

//редактирование

begin

adoTable1.edit;

end;

procedure TShobloni.Label11Click(Sender: TObject);

//вставка

begin

adoTable1.Post;

end;

procedure TShobloni.Label3Click(Sender: TObject);

//открытие главной формы

begin

Shobloni.Close;

Glavnaya.show;

Glavnaya.label7.OnClick:=onclick;

end;

procedure TShobloni.Label5Click(Sender: TObject);

//открытие формы заявки

begin

Formi.show;

Shobloni.hide;

end;

procedure TShobloni.Edit1Change(Sender: TObject);

//сортировка

begin

if edit1.text='' then

begin

ADOTable1.Filter:='status='+Char(39)+Combobox2.text+Char(39);

ADOTable1.Filtered:=True;

end

else if Combobox1.text='названию' then

begin

adoTable1.Filter:='status='+Char(39)+Combobox2.text+Char(39)+' and Nazvanie>='+Char(39)+Edit1.text+'*'+Char(39);

ADOTable1.Filtered:=True;

end

else if Combobox1.text='цене' then

begin

adoTable1.Filter:='status='+Char(39)+Combobox2.text+Char(39)+' and Cena>='+Edit1.text;

ADOTable1.Filtered:=True;

end

end;

procedure TShobloni.ComboBox1Change(Sender: TObject);

//сортировка

begin

if Combobox1.Text='названию' then

adoTable1.IndexFieldNames:='Nazvanie';

if Combobox1.Text='цене' then

adoTable1.IndexFieldNames:='Cena';

if Combobox1.Text='месту установки' then

adoTable1.IndexFieldNames:='Mesto';

end;

procedure TShobloni.Label4Click(Sender: TObject);

//открытие формы касса

begin

kassa.show;

Shobloni.Hide;

end;

procedure TShobloni.Label7Click(Sender: TObject);

//открытие формы пользователи

begin

pol.show;

Shobloni.Hide;

end;

procedure TShobloni.Label8Click(Sender: TObject);

//открытие формы поиск

begin

poisk.show;

Shobloni.Hide;

end;

end.