Базы данных по анкетам детей, оставшихся без попечения родителей для ОГОУ “Центра психолого-медико-социального сопровождения”

Автор работы: Пользователь скрыл имя, 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

Работа состоит из  1 файл

Диплом итог.doc

— 1.87 Мб (Скачать документ)

Edit3.Text:=dm.IBQuery1.FieldByName('s_doc').AsString;

Label3.Caption:=' ';

MaskEdit1.Visible:=false;

MaskEdit1.Clear;

Edit4.Text:='';

end else

begin

Label5.Visible:=false;

Memo1.Visible:=true;

Label6.Visible:=false;

Label7.Visible:=false;

Label8.Visible:=false;

Edit1.Visible:=false;

Edit2.Visible:=false;

Edit3.Visible:=false;

edit1.Clear;

edit2.Clear;

edit3.Clear;

Label3.Caption:=ComboBox1.Text;

MaskEdit1.Clear;

MaskEdit1.Visible:=false;

Edit4.Text:='';

if ComboBox1.ItemIndex=5 then

Memo1.Text:=dm.IBQuery1.FieldByName('fio').AsString;

if ComboBox1.ItemIndex=6 then

Memo1.Text:=dm.IBQuery1.FieldByName('pol').AsString;

if ComboBox1.ItemIndex=8 then

Memo1.Text:=dm.IBQuery1.FieldByName('grazd').AsString;

if ComboBox1.ItemIndex=10 then

Memo1.Text:=dm.IBQuery1.FieldByName('place_b').AsString;

if ComboBox1.ItemIndex=11 then

Memo1.Text:=dm.IBQuery1.FieldByName('origin').AsString;

if ComboBox1.ItemIndex=12 then

Memo1.Text:=dm.IBQuery1.FieldByName('take').AsString;

if ComboBox1.ItemIndex=13 then

Memo1.Text:=dm.IBQuery1.FieldByName('natur').AsString;

if ComboBox1.ItemIndex=14 then

Memo1.Text:=dm.IBQuery1.FieldByName('med_z').AsString;

if ComboBox1.ItemIndex=15 then

Memo1.Text:=dm.IBQuery1.FieldByName('place_do').AsString;

if ComboBox1.ItemIndex=16 then

Memo1.Text:=dm.IBQuery1.FieldByName('uch_do').AsString;

if ComboBox1.ItemIndex=17 then

Memo1.Text:=dm.IBQuery1.FieldByName('place_w').AsString;

if ComboBox1.ItemIndex=18 then

Memo1.Text:=dm.IBQuery1.FieldByName('place').AsString;

if ComboBox1.ItemIndex=21 then

Memo1.Text:=dm.IBQuery1.FieldByName('relativ_oth').AsString;

if ComboBox1.ItemIndex=22 then

Memo1.Text:=dm.IBQuery1.FieldByName('prich').AsString;

if ComboBox1.ItemIndex=23 then

Memo1.Text:=dm.IBQuery1.FieldByName('fix_pay').AsString;

if ComboBox1.ItemIndex=24 then

Memo1.Text:=dm.IBQuery1.FieldByName('sv_float').AsString;

if ComboBox1.ItemIndex=25 then

Memo1.Text:=dm.IBQuery1.FieldByName('sv_float_doc').AsString;

if ComboBox1.ItemIndex=26 then

Memo1.Text:=dm.IBQuery1.FieldByName('dop_inf').AsString;

end;

end; 

procedure TForm6.Button2Click(Sender: TObject);

begin

close;

end; 

procedure TForm6.Button1Click(Sender: TObject);

var

mas:array[1..4] of TEdit;//массив полей

q1,q2:string;

i:integer;

begin

//происходит  обновление

//в  таблицу обновлений  вносятся данные  о произведенном  обновлении

//а  в таблицу анкета  записываются новые  данные

mas[1]:=edit4;

mas[2]:=edit1;

mas[3]:=edit2;

mas[4]:=edit3;

ss:='';

for i:=1 to 5 do

if mas[i].text<>'' then

ss:=ss+mas[i].text+' ';

if memo1.Text<>'' then

ss:=ss+memo1.Text;

//ss:=edit4.Text+' '+Edit1.Text+' '+Edit2.Text+' '+edit3.Text+' '+memo1.Text;

q1:='insert into upd (date_upd,id_a,name_col,text_upd,us_n) values ('+chr(39)+datetostr(DateTimePicker1.Date)+chr(39)+','+Label9.Caption+','+chr(39)+ComboBox1.Text+chr(39)+','+chr(39)+ss+chr(39)+','+chr(39)+login_u+chr(39)+');';

if ComboBox1.ItemIndex=0 then

q2:='update uchrez set name='+chr(39)+edit1.Text+chr(39)+',address='+chr(39)+edit2.Text+chr(39)+' where id_u='+dm.IBQuery1.FieldByName('id_u').AsString;

if ComboBox1.ItemIndex=1 then

q2:='update anketa set date_fill='+chr(39)+MaskEdit1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=2 then

q2:='update anketa set date_pr='+chr(39)+MaskEdit1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=3 then

q2:='update anketa set date_dep='+chr(39)+MaskEdit1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=4 then

q2:='update anketa set date_deliv='+chr(39)+MaskEdit1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=7 then

q2:='update anketa set date_b='+chr(39)+MaskEdit1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=9 then

q2:='update anketa set docum='+chr(39)+edit1.Text+chr(39)+',n_doc='+chr(39)+edit2.Text+chr(39)+',s_doc='+chr(39)+edit3.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=19 then

q2:='update anketa set mam_fio='+chr(39)+edit1.Text+chr(39)+',mam_gr='+chr(39)+edit2.Text+chr(39)+',mam_pl='+chr(39)+edit3.Text+chr(39)+',mam_b='+chr(39)+MaskEdit1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=20 then

q2:='update anketa set pap_fio='+chr(39)+edit1.Text+chr(39)+',pap_gr='+chr(39)+edit2.Text+chr(39)+',pap_pl='+chr(39)+edit3.Text+chr(39)+',pap_b='+chr(39)+MaskEdit1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=5 then

q2:='update anketa set fio='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=6 then

q2:='update anketa set pol='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=8 then

q2:='update anketa set grazd='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=10 then

q2:='update anketa set place_b='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=11 then

q2:='update anketa set origin='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=12 then

q2:='update anketa set take='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=13 then

q2:='update anketa set natur='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=14 then

q2:='update anketa set med_z='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=15 then

q2:='update anketa set place_do='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=16 then

q2:='update anketa set uch_do='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=17 then

q2:='update anketa set place_w='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=18 then

q2:='update anketa set place='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=21 then

q2:='update anketa set relativ_oth='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=22 then

q2:='update anketa set prich='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=23 then

q2:='update anketa set fix_pay='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=24 then

q2:='update anketa set sv_float='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=25 then

q2:='update anketa set sv_float_doc='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39);

if ComboBox1.ItemIndex=26 then

q2:='update anketa set dop_inf='+chr(39)+memo1.Text+chr(39)+' where id_a='+chr(39)+label9.Caption+chr(39); 
 

dm.IBQuery1.Close;

dm.IBQuery1.SQL.Clear;

dm.IBQuery1.SQL.Add(q1);

dm.IBQuery1.ExecSQL;

dm.IBQuery1.Close;

dm.IBQuery1.SQL.Clear;

dm.IBQuery1.SQL.Add(q2);

dm.IBQuery1.ExecSQL;

Label4.Caption:='Обновление выполнено: '+ ComboBox1.Text;

end; 

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

begin

dm.anketa.close;

dm.anketa.Open;

form1.CheckBox1Click(sender);

close;

end; 

end. 

unit Unit7; 

interface 

uses

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

  Dialogs, StdCtrls, Grids, ExtCtrls; 

type

  TForm7 = class(TForm)

    StringGrid1: TStringGrid;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    RadioGroup1: TRadioGroup;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form7: TForm7; 

implementation 

uses Unit2, Unit1; 

{$R *.dfm} 

procedure TForm7.Button2Click(Sender: TObject);

begin

//происходит сброс всех параметров поиска

dm.anketa.Close;

dm.anketa.SelectSQL.Clear;

dm.anketa.SelectSQL.Append('select anketa.id_a, anketa.fio, anketa.date_b, anketa.date_pr from anketa where uc=0 order by fio');

dm.anketa.Open;

dm.anketa.First;

dm.anketa.Last;

dm.anketa.First;

form1.Edit1.Text:='';

form1.DBGrid1.Columns[1].Title.Caption:='ФИО';

form1.DBGrid1.Columns[1].Width:=250;

form1.DBGrid1.Columns[2].Width:=150;

form1.DBGrid1.Columns[2].Title.Caption:='Дата рождения';

form1.DBGrid1.Columns[3].Width:=150;

form1.DBGrid1.Columns[3].Title.Caption:='Регистрация';

form1.DBGrid1.Columns[0].Width:=40;

form1.DBGrid1.Columns[0].Title.Caption:='Номер';

StringGrid1.Cells[1,1]:='';

StringGrid1.Cells[1,2]:='';

StringGrid1.Cells[1,3]:='';

StringGrid1.Cells[1,4]:='';

Form1.CheckBox1Click(sender);

close;

end; 

procedure TForm7.Button3Click(Sender: TObject);

begin

close;

end; 

procedure TForm7.Button1Click(Sender: TObject);

var

k1,k2,k3,m,b:string;

begin

//поиск

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

Информация о работе Базы данных по анкетам детей, оставшихся без попечения родителей для ОГОУ “Центра психолого-медико-социального сопровождения”