Дипломная работа: Автоматизация процесса ведения документации и отчетности в ИП Черкашин

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

16. Маклаков С. В. Моделирование бизнес-процессов с AllFusion Process

Modeler (BPwin 4.1) / С.В. Маклаков. – М. : ДИАЛОГ-МИФИ, 2013. – 340 c.

17. Маклаков С.В. Создание информационных систем с AllFusion

Modeling Suite / С.В. Маклаков. – М. : ДИАЛОГ-МИФИ, 2015. – 512 c.

18. Партыка, Т.Л., Попов И.И. Информационная безопасность: учебное

пособие. / Т.Л. Партыка. – М.: Форум, 2012. – 432 с.

19. Петров, С.В., Слинькова И.П., Гафнер В.В. Информационная

безопасность: Учебное пособие. / С.В. Петров. – М.: АРТА, 2012. – 296 с.

20. Сергеева, И.В. Экономика организаций (предприятий): Учебник/ Под

ред. И.В. Сергеева./ - 3-е изд., перераб. и доп. – М.: Проспект, 2010 – 560 с.

21. Туккель И.Л., Сурина А.В., Культин Н.Б. Управление

инновационными проектами: учебник / Под ред. И.Л. Туккеля. – Спб.: БХВ-

Петербург, 2016. – 542 с Фуфаев Д.Э. Фуфаев Э.В. Разработка и эксплуатация

автоматизированных информационных систем: учебник дя студ. М.:

Издательский центр «Академия», 2013. 304 с.

22. Шаньгин В.Ф. Информационная безопасность компьютерных

системы и сетей: Учебное пособие. М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. 416

с.

23. Описание программы КРАФТ [Электронный ресурс] URL:

http://www.crafterp.ru/CRAFT-enterprise/modules-CRAFT/module-production

24. Описание программы ТоргСофт [Электронный ресурс] URL:

https://torgsoft.ua/

25. Описание программы «Производства» [Электронный ресурс] URL:

http://www.prostoysoft.ru/Production.htm

ПРИЛОЖЕНИЕ

Приложение 1 Скрипт создания базы данных

CREATE TABLE Users

( id INTEGER AUTO_INCREMENT NOT NULL,

fio VARCHAR(255) NOT NULL,

password VARCHAR(255) NOT NULL,

roleid INTEGER NOT NULL,

PRIMARY KEY (id)

);

CREATE TABLE type

( id INTEGER AUTO_INCREMENT NOT NULL,

caption VARCHAR(255) NOT NULL,

PRIMARY KEY (id)

);

CREATE TABLE role

( id INTEGER AUTO_INCREMENT NOT NULL,

caption VARCHAR(255) NOT NULL,

PRIMARY KEY (id)

);

CREATE TABLE status

( id INTEGER AUTO_INCREMENT NOT NULL,

caption VARCHAR(255) NOT NULL,

PRIMARY KEY (id)

);

CREATE TABLE client

( id INTEGER AUTO_INCREMENT NOT NULL,

caption VARCHAR(255) NOT NULL,

phone VARCHAR(255) NOT NULL,

createdat DATETIME NOT NULL,

coment VARCHAR(255) NOT NULL,

PRIMARY KEY (id)

);

CREATE TABLE Service

( id INTEGER AUTO_INCREMENT NOT NULL,

caption VARCHAR(255) NOT NULL,

price DECIMAL(10,2) NOT NULL,

typeid INTEGER NOT NULL,

PRIMARY KEY (id)

);

CREATE TABLE Serviceorder

( id INTEGER AUTO_INCREMENT NOT NULL,

serviceid INTEGER NOT NULL,

orderid INTEGER NOT NULL,

price DECIMAL(10,2) NOT NULL,

quantity INTEGER NOT NULL,

PRIMARY KEY (id)

);

CREATE TABLE orders

( id INTEGER AUTO_INCREMENT NOT NULL,

statusid INTEGER NOT NULL,

createdat DATETIME NOT NULL,

endat DATETIME NULL,

comment VARCHAR(255) NOT NULL,

amount DECIMAL(10,2) NOT NULL,

clientid INTEGER NOT NULL,

userid INTEGER NOT NULL,

PRIMARY KEY (id)

);

Приложение 2 Исходный код программных модулей

unit Main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms,

Dialogs, ADODB, Menus, DB, StdCtrls, Comobj;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

client: TADOTable;

oborudovanie: TADOTable;

remont: TADOTable;

status: TADOTable;

typeob: TADOTable;

users: TADOTable;

vendor: TADOTable;

viewteh: TADOTable;

MainMenu1: TMainMenu;

C1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

ADOQuery1: TADOQuery;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

userid: TLabel;

typeobid: TAutoIncField;

typeobcaption: TWideStringField;

usersid: TAutoIncField;

usersusername: TWideStringField;

userspassword: TWideStringField;

usersrole: TWideStringField;

viewtehid: TAutoIncField;

viewtehcaption: TWideStringField;

viewtehcomment: TWideStringField;

vendorid: TAutoIncField;

vendorcaption: TWideStringField;

vendorcomment: TWideStringField;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

ADOQuery2: TADOQuery;

viewtehprice: TIntegerField;

procedure CreateSpravForm(const childName, id: string;

table: TDataset;

p: integer);

procedure N5Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure CreateOtchetForm(const childName: String; p:

integer);

procedure Othet(const Data: TADOQUERY; Otchetname: string);

procedure N9Click(Sender: TObject);

procedure CreateClientForm(id: string);

procedure N10Click(Sender: TObject);

procedure CreateOrderForm(id: string; clientid: integer);

procedure N11Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

Uses Login, Sprav, Otchet, List, Client, Order;

{$R *.dfm}

//создание формы для работы со справочником

procedure TForm1.CreateSpravForm(const childName, id : string;

table: TDataset; p: integer);

var

Child: TForm3;

i,k :integer;

f : boolean;

begin

f:=False; //флаг-ложь

k:=0;

for i:=0 to Form1.MDIChildCount-1 do //проверяем

создан ли экземнляр такого окна

if (Form1.MDIChildren[i] is TForm3) and

(Form1.MDIChildren[i].caption=childName) then

begin

f:=True;

k:=i;

end;

if (f) and (Form1.MDIChildren[k].Caption=childName) then begin

//если создан, то

Источник: https://baza.diplomsite.ru/previewfile/2037

Смотрите также:



17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы
- Описание типа СЭТ7009