Автор работы: Пользователь скрыл имя, 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
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
XL.WorkBooks[1].WorkSheets[1].
//получаем имя пользователя
dm.IBQuery2.Close;
dm.IBQuery2.SQL.Clear;
dm.IBQuery2.SQL.Append('select
* from use_acc where login='+chr(39)+dm.IBQuery1.
dm.IBQuery2.Open;
dm.IBQuery2.First;
dm.IBQuery2.Last;
dm.IBQuery2.First;
XL.WorkBooks[1].WorkSheets[1].
xl.Visible:=true;
end;
procedure TForm1.N18Click(Sender: TObject);
begin
aboutbox.show;
end;
end.
unit Unit2;
interface
uses
SysUtils, Classes,
DB, IBDatabase, IBCustomDataSet, IBQuery;
type
TDM = class(TDataModule)
anketa: TIBDataSet;
uchrez: TIBDataSet;
grazd: TIBDataSet;
proish: TIBDataSet;
IBDataSet5: TIBDataSet;
DSanketa: TDataSource;
DSuchrez: TDataSource;
DSgrazd: TDataSource;
DSproish: TDataSource;
DataSource5: TDataSource;
IBTransaction1: TIBTransaction;
DB: TIBDatabase;
IBQuery1: TIBQuery;
IBQuery2: TIBQuery;
IBQuery3: TIBQuery;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
uses Unit1, Unit3;
{$R *.dfm}
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids,
StdCtrls, ExtCtrls, DBCtrls;
type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
DBNavigator1: TDBNavigator;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1, Unit2;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
//в зависимости от названия справочника выполняется функция
//вноса данных
if Caption='справочник - учреждения' then
dm.uchrez.Insert;
if Caption='справочник - происхождение' then
dm.proish.Insert;
if Caption='справочник - гражданство' then
dm.grazd.Insert;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
form3.Close;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
ComCtrls, Mask;
type
TForm4 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
ComboBox1: TComboBox;
Label2: TLabel;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Label3: TLabel;
DateTimePicker3: TDateTimePicker;
Label4: TLabel;
DateTimePicker4: TDateTimePicker;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
ComboBox2: TComboBox;
Label9: TLabel;
ComboBox3: TComboBox;
Label10: TLabel;
Label11: TLabel;
ComboBox4: TComboBox;
Edit4: TEdit;
Edit5: TEdit;
Label12: TLabel;
Label13: TLabel;
Memo1: TMemo;
Label14: TLabel;
ComboBox5: TComboBox;
Label15: TLabel;
Memo2: TMemo;
Label16: TLabel;
Memo3: TMemo;
Label17: TLabel;
Button1: TButton;
Button2: TButton;
Memo4: TMemo;
Label18: TLabel;
Memo5: TMemo;
Label19: TLabel;
Label20: TLabel;
Memo6: TMemo;
Label21: TLabel;
Memo7: TMemo;
Label22: TLabel;
Memo8: TMemo;
TabSheet3: TTabSheet;
Label23: TLabel;
Edit6: TEdit;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
ComboBox6: TComboBox;
Memo9: TMemo;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Edit7: TEdit;
Memo10: TMemo;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
ComboBox7: TComboBox;
Memo11: TMemo;
Label33: TLabel;
TabSheet4: TTabSheet;
Label34: TLabel;
Memo12: TMemo;
Label35: TLabel;
Memo13: TMemo;
Label36: TLabel;
Memo14: TMemo;
Label37: TLabel;
Memo15: TMemo;
TabSheet5: TTabSheet;
Memo16: TMemo;
DateTimePicker7: TDateTimePicker;
Label38: TLabel;
MaskEdit1: TMaskEdit;
MaskEdit2: TMaskEdit;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit2, DB, Unit1;
{$R *.dfm}
procedure TForm4.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm4.Button1Click(Sender: TObject);
var
id_u_i,fio_a:string;//ИД учреждения, фио
rod:string;//родители
q1,q2,q3,q4,q:string; //вспомогательные переменные
begin
//получаем ИД учреждения
dm.IBQuery1.Close;
dm.IBQuery1.SQL.Clear;
dm.IBQuery1.SQL.Add('select
* from uchrez where '+chr(39)+ComboBox1.Text+chr(
dm.IBQuery1.Open;
dm.IBQuery1.First;
dm.IBQuery1.Last;
dm.IBQuery1.First;
id_u_i:=dm.IBQuery1.
dm.IBQuery1.Close;
fio_a:=Chr(39)+Edit1.Text+' '+Edit2.Text+' '+Edit3.Text+Chr(39);
rod:=chr(39)+edit6.Text+chr(
q1:='INSERT INTO anketa (id_u, date_fill, date_pr, date_dep, date_deliv, fio, pol,'+' date_b, grazd, docum, s_doc, n_doc, place_b, origin, take, natur, med_z, place_do, uch_do, place_w, place, mam_fio, mam_b,'+' mam_gr, mam_pl,pap_fio, pap_b, pap_gr, pap_pl, relativ_oth, prich, fix_pay, sv_float, sv_float_doc, dop_inf,us_n) ';
q3:=Chr(39)+ComboBox3.Text+
q4:=Chr(39)+Memo4.Text+chr(39)
q2:='VALUES ('+id_u_i+',
'+Chr(39)+datetostr(