Автор работы: Пользователь скрыл имя, 26 Мая 2011 в 06:26, дипломная работа
Целью данного дипломного проекта являлось создание базы данных по анкетам детей, оставшихся без попечения родителей для ОГОУ “Центра психолого-медико-социального сопровождения”.
Реализация данной задачи проводится в системе программирования Delphi7.0, располагающей широкими возможностями по созданию приложений баз данных, необходимым набором драйверов для доступа к самым известным форматам баз данных, удобными и развитыми средствами для доступа к информации, расположенной как на локальном диске, так и на удаленном сервере, а также большим коллекцией визуальных компонент для построения отображаемых на экране окон, что необходимо для создания удобного интерфейса между пользователем и исполняемым кодом.
Введение 5
Глава 1. Описание предметной области объекта автоматизации 7
1.1. Постановка задачи 7
1.2. Описание предметной области задачи 9
1.2.1. История ОГОУ ЦПМСС 9
1.2.2. Направление деятельности ОГОУ ЦПМСС 9
1.2.3. Структура ОГОУ ЦПМСС 10
1.2.4. Описание компьютерной сети 12
1.2.5. Декомпозиция бизнес-процессов 13
1.2.6. Построение объектной модели задачи 19
Глава 2. Проектирование базы данных и реализация приложения 24
2.1. Программные средства, используемые при реализации проекта 24
2.2. Базы данных 26
2.2.1. Классификация баз данных 28
2.2.2. Структурные элементы баз данных 29
2.3. Проектирование базы данных 30
2.3.1. Проектирование инфологической модели 31
2.3.2. Проектирование логической и физической модели 34
2.4. Описание серверной части клиент-серверного приложения 37
2.5. Описание клиентской части 38
клиент-серверного приложения 38
2.6. Проектирование тестов и тестирование 40
Глава 3. Организационно-экономическая часть 46
3.1. Оценка затрат на разработку АС 46
3.1.1. Материальные затраты 48
3.1.2. Затраты на оплату труда 48
3.1.3. Дополнительная заработная плата 49
3.1.4. Страховые взносы 49
3.1.5. Затраты на электроэнергию 50
3.1.6. Затраты на содержание и эксплуатацию оборудования 50
3.1.7. Амортизационные отчисления 51
3.1.8. Накладные расходы 51
3.1.9. Cводная таблица затрат на разработку и внедрение проекта 52
3.2. Оценка эффекта от внедрения АС 53
Заключение 55
Список литературы 57
Приложения 58
Приложение 5.
Код сгенерированный в ERwin
CREATE TABLE use_acc (
id_use INTEGER NOT NULL,
fio VARCHAR(100),
login VARCHAR(20),
pass VARCHAR(20),
PRIMARY KEY (id_use)
);
CREATE UNIQUE INDEX XPKuse_acc ON use_acc
(
id_use ASC
);
CREATE TABLE uchrez (
id_u INTEGER NOT NULL,
name VARCHAR(100),
address VARCHAR(100),
us_n VARCHAR(20),
PRIMARY KEY (id_u)
);
CREATE UNIQUE INDEX XPKuchrez ON uchrez
(
id_u ASC
);
CREATE TABLE anketa (
fio VARCHAR(50),
date_fill DATE,
pol VARCHAR(7),
date_pr DATE,
date_b VARCHAR(20),
date_dep DATE,
id_a INTEGER NOT NULL,
date_deliv DATE,
grazd VARCHAR(20),
docum VARCHAR(20),
n_doc VARCHAR(10),
s_doc VARCHAR(10),
place_b VARCHAR(200),
take VARCHAR(200),
origin VARCHAR(200),
med_z VARCHAR(200),
natur VARCHAR(200),
place_do VARCHAR(200),
uch_do VARCHAR(200),
place_w VARCHAR(200),
place VARCHAR(200),
mam_fio VARCHAR(50),
mam_b VARCHAR(50),
mam_gr VARCHAR(20),
pap_fio VARCHAR(50),
mam_pl VARCHAR(50),
pap_b VARCHAR(50),
pap_gr VARCHAR(20),
pap_pl VARCHAR(50),
prich VARCHAR(200),
relativ_oth VARCHAR(200),
fix_pay VARCHAR(200),
sv_float VARCHAR(200),
sv_float_doc VARCHAR(200),
dop_inf VARCHAR(200),
id_u INTEGER,
us_n VARCHAR(20),
uc VARCHAR(2),
PRIMARY KEY (id_a),
FOREIGN KEY (id_u)
REFERENCES uchrez (id_u)
ON DELETE SET NULL
);
CREATE UNIQUE INDEX XPKanketa ON anketa
(
id_a ASC
);
CREATE TABLE upd (
id_upd INTEGER NOT NULL,
date_upd DATE,
id_a INTEGER,
name_col VARCHAR(200),
text_upd VARCHAR(200),
us_n VARCHAR(20),
PRIMARY KEY (id_upd),
FOREIGN KEY (id_a)
REFERENCES anketa (id_a)
ON DELETE SET NULL
);
CREATE UNIQUE INDEX XPKupd ON upd
(
id_upd ASC
);
CREATE TABLE account (
id_acc INTEGER NOT NULL,
date_acc DATE,
id_a INTEGER,
us_n VARCHAR(20),
taken_m VARCHAR(200),
PRIMARY KEY (id_acc),
FOREIGN KEY (id_a)
REFERENCES anketa (id_a)
ON DELETE SET NULL
);
CREATE UNIQUE INDEX XPKaccount ON account
(
id_acc ASC
);
CREATE TABLE cess_acc (
id_c INTEGER NOT NULL,
id_acc INTEGER,
reasons VARCHAR(200),
date_cess DATE,
req_doc VARCHAR(200),
dop_inf VARCHAR(200),
us_n VARCHAR(20),
PRIMARY KEY (id_c),
FOREIGN KEY (id_acc)
REFERENCES account (id_acc)
ON DELETE SET NULL
);
CREATE UNIQUE INDEX XPKcess_acc ON cess_acc
(
id_c ASC
);
CREATE TABLE grazd (
id_gr INTEGER NOT NULL,
name_gr VARCHAR(20),
PRIMARY KEY (id_gr)
);
CREATE UNIQUE INDEX XPKgrazd ON grazd
(
id_gr ASC
);
CREATE TABLE proish (
id_pr INTEGER NOT NULL,
name_pr VARCHAR(20),
PRIMARY KEY (id_pr)
);
CREATE UNIQUE INDEX XPKproish ON proish
(
id_pr ASC
);
Приложение 6.
Код приложения Delphi
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {DM: TDataModule},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
Unit5 in 'Unit5.pas' {Form5},
Unit6 in 'Unit6.pas' {Form6},
Unit7 in 'Unit7.pas' {Form7},
Unit8 in 'Unit8.pas' {Form8},
Unit9 in 'Unit9.pas' {Form9},
Unit10 in 'Unit10.pas' {Form10},
Unit11 in 'Unit11.pas' {Form11},
Unit12 in 'Unit12.pas'
{AboutBox};
{$R *.res}
begin
Application.Initialize;
Application.Title := 'Выпускник';
Application.CreateForm(TForm8, Form8);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TDM, DM);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TForm9, Form9);
Application.CreateForm(
Application.CreateForm(
Application.CreateForm(
Application.Run;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, Grids,
DBGrids, inifiles, StdCtrls, OleServer, ExcelXP;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
DBGrid1: TDBGrid;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
Edit1: TEdit;
Label1: TLabel;
PopupMenu1: TPopupMenu;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
CheckBox1: TCheckBox;
N21: TMenuItem;
ExA: TExcelApplication;
N22: TMenuItem;
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N7Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N18Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
login_u:string;
implementation
uses Unit3,Unit2, Unit4, Unit5, Unit6, DateUtils, Unit7, Unit9, Unit10,
Unit11, Unit8, Unit12;
{$R *.dfm}
procedure TForm1.N3Click(Sender: TObject);
begin