Дипломная работа: Автоматизация учета аренды площадей клиентами компании ООО "Дубрава-Р"

Скачать файл

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

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

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

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

340 c.

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

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

16. Тельнова, Ю.Ф. Проектирование экономических

информационных систем: учеб. / под ред. Ю. Ф. Тельнова. М. : Горячая

линия, 2015 — 345 c.

17. Фуфаев Д.Э. Фуфаев Э.В. Разработка и эксплуатация

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

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

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

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

416 с.

ПРИЛОЖЕНИЯ

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

CREATE TABLE Customer

(

id INTEGER NULL,

caption VARCHAR(20) NULL,

address VARCHAR(20) NULL,

phone VARCHAR(20) NULL,

fio VARCHAR(20) NULL,

inn VARCHAR(20) NULL,

kpp VARCHAR(20) NULL,

bank VARCHAR(20) NULL,

comment VARCHAR(20) NULL

)

;

ALTER TABLE Customer

ADD PRIMARY KEY (id)

;

CREATE TABLE rental

(

customerid INTEGER NOT NULL,

squareid INTEGER NOT NULL,

cretatedat DATE NULL,

dogovor VARCHAR(20) NULL,

srok INTEGER NULL,

userid INTEGER NULL

)

;

ALTER TABLE rental

ADD PRIMARY KEY (customerid,squareid)

;

CREATE TABLE role

(

id INTEGER NULL,

caption VARCHAR(20) NULL);

ALTER TABLE role

ADD PRIMARY KEY (id);

CREATE TABLE square

(

id INTEGER NULL,

caption VARCHAR(20) NULL,

size INTEGER NULL,

typeid INTEGER NULL,

comment VARCHAR(20) NULL);

ALTER TABLE square

ADD PRIMARY KEY (id);

CREATE TABLE typesquare

(

id INTEGER NULL,

caption VARCHAR(20) NULL,

comment VARCHAR(20) NULL

);

ALTER TABLE typesquare

ADD PRIMARY KEY (id);

CREATE TABLE user

(

id INTEGER NULL,

fio VARCHAR(20) NULL,

password VARCHAR(20) NULL,

phone VARCHAR(20) NULL,

roleid INTEGER NULL

);

ALTER TABLE user

ADD PRIMARY KEY (id);

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

unit Main;

interface

uses

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

Controls, Frms,

Dialogs, Menus, DB, ADODB, StdCtrls, Buttons, Grids, DBGrids,

comobj,

ExtCtrls;

type

TFrm1 = class(TFrm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

ADOConnection1: TADOConnection;

DBGrid1: TDBGrid;

Label1: TLabel;

Edt1: TEdt;

BitBtn1: TBitBtn;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

DBGrid2: TDBGrid;

Label2: TLabel;

Edt2: TEdt;

BitBtn2: TBitBtn;

Adotbl1: TAdotbl;

Adotbl1Id: TAutoIncField;

Adotbl1FIO: TWideStringField;

Adotbl1Phone: TWideStringField;

Adotbl1Address: TWideStringField;

Adotbl1Passport: TWideStringField;

DataSource1: TDataSource;

DataSource2: TDataSource;

Adotbl2: TAdotbl;

Adotbl2id: TAutoIncField;

Adotbl2caption: TWideStringField;

Adotbl2path: TWideStringField;

PopupMenu1: TPopupMenu;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

PopupMenu2: TPopupMenu;

N8: TMenuItem;

ADOQuery1: TADOQuery;

N9: TMenuItem;

N10: TMenuItem;

BitBtn3: TBitBtn;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

Panel6: TPanel;

Panel7: TPanel;

produre N3Click(Send: TObject);

produre BitBtn1Click(Send: TObject);

produre BitBtn2Click(Send: TObject);

produre FrmShow(Send: TObject);

produre Edt1Change(Send: TObject);

produre N7Click(Send: TObject);

produre N8Click(Send: TObject);

produre N5Click(Send: TObject);

produre N6Click(Send: TObject);

produre N4Click(Send: TObject);

produre N2Click(Send: TObject);

produre FrmResize(Send: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Frm1: TFrm1;

implementation

uses shabl;

{$R *.dfm}

produre TFrm1.N3Click(Send: TObject);

begin

frm1.Close;

end;

produre TFrm1.BitBtn1Click(Send: TObject);

begin

Edt1.Clear;

Edt1.SetFocus;

end;

produre TFrm1.BitBtn2Click(Send: TObject);

begin

Edt2.Clear;

Edt2.SetFocus;

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

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







Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии