Автор работы: Пользователь скрыл имя, 25 Декабря 2012 в 00:11, курсовая работа
В последние годы на первый план выдвигается новая отрасль информационная индустрия, связанная с производством технических средств, методов, технологий для производства новых знаний. Эта индустрия тесно связано с развитием компьютерных технологий. В информационном обществе доминирует производство информационного продукта, а материальный продукт становится более информационно емким. Возрастает спрос на знания, от человека требуется способность к интеллектуальному труду и творчеству.
Со временем возникло большое число избыточной информации, в которой иногда трудно сориентироваться и выбрать нужные сведения.
Введение 3
1. Аналитическая часть 4
1.1 Анализ объекта управления 4
1.2 Выбор программного обеспечения 10
1.3 Обоснование необходимости и цели использования вычислительной техники 11
1.4 Выбор технических средств 12
2. Проектная часть 15
2.1 Этапы проектирования БД 15
2.1.1 Модели данных 17
2.1.2 Инфологическая модель. Основные понятия 18
2.1.3 Классификация сущностей 21
2.1.4 О построении инфологической модели 21
2.1.5 Даталогическая и физическая модели 22
2.2 Разработка приложения 24
2.2.1 Внешний вид приложения и описание функций программного приложения 24
2.2.2 Описание формы и используемых компонентов 26
Заключение 28
Список литературы 29
Приложение 30
ENach_s->Text=Table1Nach_s->
EOrg_p->Text=Table1Org_p->
ENom_nUD->Text=Table1Nom_nUD->
ESotrud->Text=Table1Sotrud->
EAdres_t->Text=Table1Adres_t->
}
//----------------------------
void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
if ( Application->MessageBox(
"Действительно хотите ввести строку?",
"Подтвердите решение",
MB_YESNO+MB_ICONEXCLAMATION)==
Table1->Insert();
}
//----------------------------
void __fastcall TForm2::BitBtn3Click(TObject *Sender)
{
if ( Application->MessageBox(
"Действительно хотите удалить запись?",
"Подтвердите решение",
MB_YESNO+MB_ICONEXCLAMATION)==
Table1->Delete();
}
//----------------------------
void __fastcall TForm2::BitBtn2Click(TObject *Sender)
{
if ( Application->MessageBox(
"Сохранить изменения?",
"Подтвердите решение",
MB_YESNO+MB_ICONEXCLAMATION)==
{
Form2->Table1->Edit();
Form2->Table1Nom_UD->AsString=
Form2->Table1Org_proiz->
Form2->Table1Komu_n->AsString=
Form2->Table1Nach_s->AsString=
Form2->Table1Org_p->AsString=
Form2->Table1Nom_nUD->
Form2->Table1Sotrud->AsString=
Form2->Table1Adres_t->
Form2->Table1->Next();
Form2->Table1->Prior();
ENom_UD->Text=Form2->Table1Nom
EOrg_proiz->Text=Form2->
EKomu_n->Text=Form2->
ENach_s->Text=Form2->
EOrg_p->Text=Form2->Table1Org_
ENach_s->Text=Form2->
ESotrud->Text=Form2->
EAdres_t->Text=Form2->
}
}
//----------------------------
void __fastcall TForm2::Table1AfterScroll(
{
ENom_UD->Text=Table1Nom_UD->
EOrg_proiz->Text=Table1Org_
EKomu_n->Text=Table1Komu_n->
ENach_s->Text=Table1Nach_s->
EOrg_p->Text=Table1Org_p->
ENom_nUD->Text=Table1Nom_nUD->
ESotrud->Text=Table1Sotrud->
EAdres_t->Text=Table1Adres_t->
}
//----------------------------
Form 3
//----------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//----------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TForm3::FormCreate(TObject *Sender)
{
ENom->Text=Table1Nom->
EData_p->Text=Table1Data_p->
EVrem_p->Text=Table1Vrem_p->
EFIO_p->Text=Table1FIO_p->
EFIO_z->Text=Table1FIO_z->
EAdres_z->Text=Table1Adres_z->
EVid_z->Text=Table1Vid_z->
ESoderj->Text=Table1Soderj->
EKomu_d->Text=Table1Komu_d->
EKomu_p->Text=Table1Komu_p->
ESrok->Text=Table1Srok->
ERez->Text=Table1Rez->
}
//----------------------------
void __fastcall TForm3::Table1AfterScroll(
{
ENom->Text=Table1Nom->
EData_p->Text=Table1Data_p->
EVrem_p->Text=Table1Vrem_p->
EFIO_p->Text=Table1FIO_p->
EFIO_z->Text=Table1FIO_z->
EAdres_z->Text=Table1Adres_z->
EVid_z->Text=Table1Vid_z->
ESoderj->Text=Table1Soderj->
EKomu_d->Text=Table1Komu_d->
EKomu_p->Text=Table1Komu_p->
ESrok->Text=Table1Srok->
ERez->Text=Table1Rez->
}
//----------------------------
void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
if ( Application->MessageBox(
"Действительно хотите ввести строку?",
"Подтвердите решение",
MB_YESNO+MB_ICONEXCLAMATION)==
Table1->Insert();
}
//----------------------------
void __fastcall TForm3::BitBtn3Click(TObject *Sender)
{
if ( Application->MessageBox(
"Действительно хотите удалить запись?",
"Подтвердите решение",
MB_YESNO+MB_ICONEXCLAMATION)==
Table1->Delete();
}
//----------------------------
void __fastcall TForm3::BitBtn2Click(TObject *Sender)
{
if ( Application->MessageBox(
"Сохранить изменения?",
"Подтвердите решение",
MB_YESNO+MB_ICONEXCLAMATION)==
{
Form3->Table1->Edit();
Form3->Table1Nom->AsString=
Form3->Table1Data_p->AsString=
Form3->Table1Vrem_p->AsString=
Form3->Table1FIO_p->AsString=
Form3->Table1FIO_z->AsString=
Form3->Table1Adres_z->
Form3->Table1Vid_z->AsString=
Form3->Table1Soderj->AsString=
Form3->Table1Komu_d->AsString=
Form3->Table1Komu_p->AsString=
Form3->Table1Srok->AsString=
Form3->Table1Rez->AsString=
Form3->Table1->Next();
Form3->Table1->Prior();
ENom->Text=Form3->Table1Nom->
EData_p->Text=Form3->
EVrem_p->Text=Form3->Table1Vre
EFIO_p->Text=Form3->Table1FIO_
EFIO_z->Text=Form3->Table1FIO_
EAdres_z->Text=Form3->
EVid_z->Text=Form3->Table1Vid_
ESoderj->Text=Form3->
EKomu_d->Text=Form3->
EKomu_p->Text=Form3->
ESrok->Text=Form3->Table1Srok-
ERez->Text=Form3->Table1Rez->
}
}
//----------------------------
Form 4
//----------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//----------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
Form4->QuickRep1->Preview();
}
//----------------------------
void __fastcall TForm4::FormCreate(TObject *Sender)
{
}
//----------------------------
Form 5
//----------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
#include "Unit5.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//----------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TForm5::BitBtn1Click(TObject *Sender)
{
Form4->Table1->Filtered=False;
Form4->Table1->Filter="Nom_UD=
Form4->Table1->Filtered=True;
Form4->QuickRep1->Preview();
ENom_UD->Text="";
}
//----------------------------
void __fastcall TForm5::FormCreate(TObject *Sender)
{
ENom_UD->Text="";
}
//----------------------------
void __fastcall TForm5::BitBtn2Click(TObject *Sender)
{
Form4->Table1->Filtered=False;
Form4->Table1->Filter="Nom_UD=
Form4->Table1->Filtered=True;
Form4->QuickRep1->Print();
ENom_UD->Text="";
}
//----------------------------
Form 6
//----------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit6.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//----------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TForm6::FormCreate(TObject *Sender)
{
}
//----------------------------
Form 7
//----------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit7.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
//----------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TForm7::FormCreate(TObject *Sender)
{
}
//----------------------------
Form 8
//----------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit8.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm8 *Form8;
//----------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TForm8::RadioGroup1Click(
{
if (RadioGroup1->ItemIndex==0)
Table1->Filtered=false;
if (RadioGroup1->ItemIndex==1)
{
Table1->Filter="Nom_UD='"+
Table1->Filtered=true;
}
if (RadioGroup1->ItemIndex==2)
{
TLocateOptions SearchOptions;
SearchOptions<<loPartialKey<<
Table1->Locate("Org_p",Edit2->
Table1->Filter="Nach_s='"+
Table1->Filtered=true;
} }
//----------------------------
void __fastcall TForm8::Edit1Change(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
Table1->Filtered=false;
if (RadioGroup1->ItemIndex==1)
{
Table1->Filter="Nom_UD='"+
Table1->Filtered=true;
}
if (RadioGroup1->ItemIndex==2)
{
TLocateOptions SearchOptions;
SearchOptions<<loPartialKey<<
Table1->Locate("Org_p",Edit2->
Table1->Filter="Nach_s='"+
Table1->Filtered=true;
} }
//----------------------------
void __fastcall TForm8::Edit2Change(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
Table1->Filtered=false;
if (RadioGroup1->ItemIndex==1)
{
Table1->Filter="Nom_UD='"+
Table1->Filtered=true;
}
if (RadioGroup1->ItemIndex==2)
{
TLocateOptions SearchOptions;
SearchOptions<<loPartialKey<<
Table1->Locate("Org_p",Edit2->
Table1->Filter="Nach_s='"+
Table1->Filtered=true;
} }
//----------------------------
void __fastcall TForm8::FormCreate(TObject *Sender)
{
ENom_UD->Text=Table1Nom_UD->
EOrg_proiz->Text=Table1Org_
EKomu_n->Text=Table1Komu_n->
ENach_s->Text=Table1Nach_s->
EOrg_p->Text=Table1Org_p->
ENom_nUD->Text=Table1Nom_nUD->
ESotrud->Text=Table1Sotrud->
EAdres_t->Text=Table1Adres_t->
}
//----------------------------
void __fastcall TForm8::Table1AfterScroll(
{
ENom_UD->Text=Table1Nom_UD->
EOrg_proiz->Text=Table1Org_
EKomu_n->Text=Table1Komu_n->
ENach_s->Text=Table1Nach_s->
EOrg_p->Text=Table1Org_p->
ENom_nUD->Text=Table1Nom_nUD->
ESotrud->Text=Table1Sotrud->
EAdres_t->Text=Table1Adres_t->
}
//----------------------------
void __fastcall TForm8::Edit3Change(TObject *Sender)
{
TLocateOptions SearchOptions;
SearchOptions<<loPartialKey<<
Table1->Locate("Nach_s",Edit3-
}
//----------------------------
void __fastcall TForm8::Edit4Change(TObject *Sender)
{
TLocateOptions SearchOptions;
SearchOptions<<loPartialKey<<
Table1->Locate("Nom_nUD",
}
//----------------------------
Form 9
//----------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit9.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm9 *Form9;
//----------------------------
__fastcall TForm9::TForm9(TComponent* Owner)
: TForm(Owner)
{ }
//----------------------------
void __fastcall TForm9::FormCreate(TObject *Sender)
{
ENom->Text=Table1Nom->
EData_p->Text=Table1Data_p->
EVrem_p->Text=Table1Vrem_p->
EFIO_p->Text=Table1FIO_p->
EFIO_z->Text=Table1FIO_z->
EAdres_z->Text=Table1Adres_z->
EVid_z->Text=Table1Vid_z->
ESoderj->Text=Table1Soderj->
EKomu_d->Text=Table1Komu_d->
EKomu_p->Text=Table1Komu_p->
ESrok->Text=Table1Srok->
ERez->Text=Table1Rez->
}
//----------------------------
void __fastcall TForm9::Table1AfterScroll(
{
ENom->Text=Table1Nom->
EData_p->Text=Table1Data_p->
EVrem_p->Text=Table1Vrem_p->
EFIO_p->Text=Table1FIO_p->
EFIO_z->Text=Table1FIO_z->
EAdres_z->Text=Table1Adres_z->
EVid_z->Text=Table1Vid_z->
ESoderj->Text=Table1Soderj->
EKomu_d->Text=Table1Komu_d->
EKomu_p->Text=Table1Komu_p->
ESrok->Text=Table1Srok->AsStri
ERez->Text=Table1Rez->
}
//----------------------------
void __fastcall TForm9::RadioGroup1Click(
{
if (RadioGroup1->ItemIndex==0)
Table1->Filtered=false;
if (RadioGroup1->ItemIndex==1)
{
Table1->Filter="Nom='"+Edit1->
Table1->Filtered=true;
}
if (RadioGroup1->ItemIndex==2)
{
TLocateOptions SearchOptions;
SearchOptions<<loPartialKey<<
Table1->Locate("FIO_z",Edit2->
Table1->Filter="FIO_p='"+
Table1->Filtered=true;
}}
//----------------------------
void __fastcall TForm9::Edit1Change(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
Table1->Filtered=false;
if (RadioGroup1->ItemIndex==1)
{
Table1->Filter="Nom='"+Edit1->
Table1->Filtered=true;
Информация о работе Автоматизация делопроизводства и первичного учета дел в ОВД