Разработка автоматизированной системы учета договоров для отеля
Этапы создания автоматизированной системы учета договоров на предприятии: определение входной и выходной информации, проектирование базы данных методом "сущность-связь" и CASE-средствами, разработка интерфейса, составление руководства пользователя.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 15.01.2011 |
| Размер файла | 2,5 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
DataModule2->Table1->First();
StatusBar1->SimpleText="Идет формирование документа";
//Настройка диаграммы
ProgressBar1->Max=DataModule2->Table1->RecordCount;
ProgressBar1->Position=0;
ProgressBar1->Visible=true;
//Цикл по записям
while(! DataModule2->Table1->Eof)
{
ARecordExecuteClick(Sender);
ProgressBar1->Position=ProgressBar1->Position+1;
DataModule2->Table1->Next();
}
//Возвращение на текущую запись
DataModule2->Table1->GotoBookmark(SavePlace);
//Очистка закладки,полосы состояния и диаграммы
StatusBar1->SimpleText="";
ProgressBar1->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm20::ARecordExecuteClick(TObject *Sender)
{
TVariant snew="\n";
//Перенос в документ одной записи
//DocumentSearch();
WordApplication1->Selection->InsertAfter(snew);
WordApplication1->Selection->InsertAfter(
TVariant(DataModule2->Table1Register_number->AsString + ' ' +
DataModule2->Table1Juridical_number->AsString + ' ' +
DataModule2->Table1Date_register->AsDateTime + ' ' +
DataModule2->Table1Date_agreement->AsDateTime + ' ' +
DataModule2->Table1Contractor->AsString + ' ' +
DataModule2->Table1Object_agreement->AsString + ' ' +
DataModule2->Table1Sum_agreement->AsInteger+ '\n'));
WordApplication1->Selection->InsertAfter(snew);
if(ToolButton7->Enabled==true)
{
WordApplication1->Selection->InsertAfter(
TVariant (DataModule2->Table1Date_completion->AsString + "Срок окончания \n"));
WordApplication1->Selection->InsertAfter(snew);
}
if(ToolButton8->Enabled==true)
{
WordApplication1->Selection->InsertAfter(
TVariant (DataModule2->Table1Perfomance->AsString + "Исполнитель\n"));
}
WordFont1->ConnectTo(WordApplication1->Selection->Font);
WordParagraphFormat1->ConnectTo(WordApplication1->Selection->ParagraphFormat);
TVariant Direction = wdCollapseEnd;
WordApplication1->Selection->Collapse(&Direction);
}
//---------------------------------------------------------------------------
void __fastcall TForm20::ToolButton3Click(TObject *Sender)
{
//DocumentSearch();
WordApplication1->Dialogs->Item(wdDialogFileSaveAs)->Show(EmptyParam);
}
//---------------------------------------------------------------------------
void __fastcall TForm20::ToolButton1Click(TObject *Sender)
{
//Открытие и соединение с word, если пользователь случайно закрыл его
WordApplication1->Connect();
//Включение видимости сервера
WordApplication1->Visible;
}
//---------------------------------------------------------------------------
void __fastcall TForm20::ApplicationEvents1Hint(TObject *Sender)
{
//Отображение подсказок в строке состояния
StatusBar1->SimpleText=Application->Hint;
}
//---------------------------------------------------------------------------
void __fastcall TForm20::FormDestroy(TObject *Sender)
{
//Разрываем соединение с базой
DataModule2->Table1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm20::ToolButton4Click(TObject *Sender)
{
//Предварительный просмотр документа
//DocumentSearch();
WordDocument1->PrintPreview();
WordApplication1->Visible;
}
//---------------------------------------------------------------------------
void __fastcall TForm20::BitBtn1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm20::ToolButton15Click(TObject *Sender)
{
//Открытие файла
WordApplication1->Visible;
if(WordApplication1->Dialogs->Item(wdDialogFileOpen)->Show(EmptyParam)==-1)
{
ToolButton3->Enabled=false;
ToolButton4->Enabled=false;
ToolButton5->Enabled=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm20::CheckBox1Click(TObject *Sender)
{
if(CheckBox1->Checked==true){
ToolButton6->Enabled=true;
ToolButton7->Enabled=true;
ToolButton8->Enabled=true;}
else {
ToolButton6->Enabled=false;
ToolButton7->Enabled=false;
ToolButton8->Enabled=false; }
}
//---------------------------------------------------------------------------
void __fastcall TForm20::FormShow(TObject *Sender)
{
CheckBox1->Checked=false;
}
//---------------------------------------------------------------------------
//Поиск в БД
#include <vcl.h>
#pragma hdrstop
#include "Unit25.h"
#include "Saw12.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm25 *Form25;
//---------------------------------------------------------------------------
__fastcall TForm25::TForm25(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm25::ComboBox1Change(TObject *Sender)
{
if(ComboBox1->ItemIndex==0){ //Установка видимости компонентов, //связанных с данными
EditReg->Visible=true;
EditJur->Visible=false;
EditDateReg->Visible=false;
EditDateAgreem->Visible=false;
EditObjAgreem->Visible=false;
EditContractor->Visible=false;}
else if(ComboBox1->ItemIndex==1){
EditJur->Visible=true;
EditReg->Visible=false;
EditDateReg->Visible=false;
EditDateAgreem->Visible=false;
EditObjAgreem->Visible=false;
EditContractor->Visible=false;}
else {if(ComboBox1->ItemIndex==2){
EditDateReg->Visible=true;
EditJur->Visible=false;
EditReg->Visible=false;
EditDateAgreem->Visible=false;
EditObjAgreem->Visible=false;
EditContractor->Visible=false;
}
else {if(ComboBox1->ItemIndex==3){
EditDateAgreem->Visible=true;
EditDateReg->Visible=false;
EditJur->Visible=false;
EditReg->Visible=false;
EditObjAgreem->Visible=false;
EditContractor->Visible=false;
}
else {if(ComboBox1->ItemIndex==4){
EditObjAgreem->Visible=true;
EditDateReg->Visible=false;
EditJur->Visible=false;
EditReg->Visible=false;
EditDateAgreem->Visible=false;
EditContractor->Visible=false;
}
else {if(ComboBox1->ItemIndex==5){
EditContractor->Visible=true;
EditDateReg->Visible=false;
EditJur->Visible=false;
EditReg->Visible=false;
EditDateAgreem->Visible=false;
EditObjAgreem->Visible=false;
}
}
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm25::BitBtn2Click(TObject *Sender)
{
Form25->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm25::BitBtn1Click(TObject *Sender)
{
if(ComboBox1->ItemIndex==0){ //Поиск в записи в базе данных
DataModule2->Table1->IndexFieldNames="Register_number";
DataModule2->Table1->SetKey();
DataModule2->Table1->FieldByName("Register_number")->AsString=EditReg->Text;
Form25->Close();
if(!DataModule2->Table1->GotoKey())
ShowMessage("Запись не найдена!");}
else {if(ComboBox1->ItemIndex==1){
DataModule2->Table1->IndexFieldNames="Juridical_number"; //
DataModule2->Table1->SetKey();
DataModule2->Table1->FieldByName("Juridical_number")->AsInteger=StrToInt(EditJur->Text);
Form25->Close();
if(!DataModule2->Table1->GotoKey())
ShowMessage("Запись не найдена!!");}
else {if(ComboBox1->ItemIndex==2){
DataModule2->Table1->IndexFieldNames="Date_register";
DataModule2->Table1->SetKey();
DataModule2->Table1->FieldByName("Date_register")->AsDateTime=StrToDate(EditDateReg->Text); //
Form25->Close();
if(!DataModule2->Table1->GotoKey())
ShowMessage("Запись не найдена");}
else {if(ComboBox1->ItemIndex==3){
DataModule2->Table1->IndexFieldNames="Date_agreement"; //
DataModule2->Table1->SetKey();
DataModule2->Table1->FieldByName("Date_agreement")->AsDateTime=StrToDate(EditDateAgreem->Text);
Form25->Close();
if(!DataModule2->Table1->GotoKey())
ShowMessage("Запись не найдена");}
else {if(ComboBox1->ItemIndex==4){
DataModule2->Table1->IndexFieldNames="Object_agreement"; //
DataModule2->Table1->SetKey();
DataModule2->Table1->FieldByName("Object_agreement")->AsString=EditObjAgreem->Text;
Form25->Close();
if(!DataModule2->Table1->GotoKey())
ShowMessage("Запись не найдена");}
else {if(ComboBox1->ItemIndex==5){
DataModule2->Table1->IndexFieldNames="Contractor";
DataModule2->Table1->SetKey();
DataModule2->Table1->FieldByName("Contractor")->AsString=EditContractor->Text;
Form25->Close();
if(!DataModule2->Table1->GotoKey())
ShowMessage("Запись не найдена");}
}
}
}
}
}
}
//---------------------------------------------------------------------------
Модуль фильтрации БД
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit26.h"
#include "Saw12.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm26 *Form26;
//---------------------------------------------------------------------------
__fastcall TForm26::TForm26(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm26::BitBtn2Click(TObject *Sender)
{
Form26->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm26::ComboBox1Change(TObject *Sender)
{
if(ComboBox1->ItemIndex==0){
Label2->Visible=true;
Label3->Visible=true;
EditDateRegMin->Visible=true;
EditDateRegMax->Visible=true;
EditSumAgrMin->Visible=false;
EditSumAgrMax->Visible=false;
EditDateCompMin->Visible=false;
EditDateCompMax->Visible=false;
EditDateAgreemMin->Visible=false;
EditDateAgreemMax->Visible=false;}
else { if(ComboBox1->ItemIndex==1){
Label2->Visible=true;
Label3->Visible=true;
EditDateAgreemMin->Visible=true;
EditDateAgreemMax->Visible=true;
EditDateRegMin->Visible=false;
EditDateRegMax->Visible=false;
EditSumAgrMin->Visible=false;
EditSumAgrMax->Visible=false;
EditDateCompMin->Visible=false;
EditDateCompMax->Visible=false;}
else {if(ComboBox1->ItemIndex==2){
Label2->Visible=true;
Label3->Visible=true;
EditDateCompMin->Visible=true;
EditDateCompMax->Visible=true;
EditDateAgreemMin->Visible=false;
EditDateAgreemMax->Visible=false;
EditDateRegMin->Visible=false;
EditDateRegMax->Visible=false;
EditSumAgrMin->Visible=false;
EditSumAgrMax->Visible=false;}
else {if(ComboBox1->ItemIndex==3){
Label2->Visible=true;
Label3->Visible=true;
EditSumAgrMin->Visible=true;
EditSumAgrMax->Visible=true;
EditDateCompMin->Visible=false;
EditDateCompMax->Visible=false;
EditDateAgreemMin->Visible=false;
EditDateAgreemMax->Visible=false;
EditDateRegMin->Visible=false;
EditDateRegMax->Visible=false;
}
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm26::FormShow(TObject *Sender)
{
Label2->Visible=false;
Label3->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm26::BitBtn1Click(TObject *Sender)
{
if(ComboBox1->ItemIndex==0){
DataModule2->Table1->IndexFieldNames="Date_register";
DataModule2->Table1->SetRangeStart();
DataModule2->Table1->FieldByName("Date_register")->AsDateTime=StrToDate(EditDateRegMin->Text);
DataModule2->Table1->SetRangeEnd();
DataModule2->Table1->FieldByName("Date_register")->AsDateTime=StrToDate(EditDateRegMax->Text);
DataModule2->Table1->ApplyRange();
DataModule2->Table1->Refresh();
Form26->Close();}
else {if(ComboBox1->ItemIndex==1){
DataModule2->Table1->IndexFieldNames="Date_agreement";
DataModule2->Table1->SetRangeStart();
DataModule2->Table1->FieldByName("Date_agreement")->AsDateTime=StrToDate(EditDateAgreemMin->Text);
DataModule2->Table1->SetRangeEnd();
DataModule2->Table1->FieldByName("Date_agreement")->AsDateTime=StrToDate(EditDateAgreemMax->Text);
DataModule2->Table1->ApplyRange();
DataModule2->Table1->Refresh();
Form26->Close();}
else {if(ComboBox1->ItemIndex==2){
DataModule2->Table1->IndexFieldNames="Date_completion";
DataModule2->Table1->SetRangeStart();
DataModule2->Table1->FieldByName("Date_completion")->AsDateTime=StrToDate(EditDateCompMin->Text);
DataModule2->Table1->SetRangeEnd();
DataModule2->Table1->FieldByName("Date_completion")->AsDateTime=StrToDate(EditDateCompMax->Text);
DataModule2->Table1->ApplyRange();
DataModule2->Table1->Refresh();
Form26->Close();}
else {if(ComboBox1->ItemIndex==3){
DataModule2->Table1->IndexFieldNames="Sum_agreement";
DataModule2->Table1->SetRangeStart();
DataModule2->Table1->FieldByName("Sum_agreement")->AsString=EditSumAgrMin->Text;
DataModule2->Table1->SetRangeEnd();
DataModule2->Table1->FieldByName("Sum_agreement")->AsString=EditSumAgrMax->Text;
DataModule2->Table1->ApplyRange();
DataModule2->Table1->Refresh();//
Form26->Close();}
}
}
}
}
//---------------------------------------------------------------------------
Приложение Б (обязательное)
Отчеты
Рисунок А.1 - Отчет по основным договорам
Рисунок A.1 - Отчет по дополнительным договорам
Подобные документы
Техническое задание на разработку автоматизированной системы и складского учета управления универсальной торговой базы. Проектирование информационной системы и выбор среды для создания программного продукта. Создание интерфейса и руководство пользователя.
дипломная работа [2,1 M], добавлен 11.07.2015Понятие, законодательное регулирование и виды электронных подписей. Разработка структурной схемы приложения и базы данных. Создание диаграммы прецедентов и классов. Проектирование интерфейса программы. Анализ руководства пользователя web-приложения.
дипломная работа [869,8 K], добавлен 12.08.2017Этапы проектирования информационных систем. Корпоративные информационные системы, тенденции их развития. Требования к организации базы данных. Основные концепции реляционных баз данных. Выбор системы проектирования. Логическая структура приложения.
дипломная работа [2,2 M], добавлен 20.12.2012Разработка информационной системы для отдела учета приема пациентов и медицинского секретариата. Описание исходной (входной) информации и пользовательского интерфейса, логической структуры и технических средств. Построение реляционной базы данных.
дипломная работа [1,9 M], добавлен 16.04.2012Проектирование базы данных для автоматизированной системы "Склад". Разработка концептуальной модели (ER-диаграмма). Преобразование в реляционную модель и ее нормализация. Разработка запросов к базе данных на языке SQL. Скрипт для создания базы данных.
курсовая работа [161,8 K], добавлен 07.10.2013Обоснование проектных решений по программному обеспечению. Теория складского учёта. Характеристика входной информации. Основные показатели эффективности программных продуктов. Реализация базы данных. Защита информации в автоматизированной системе.
дипломная работа [4,6 M], добавлен 19.09.2014Разработка автоматизированной системы по учету и анализу заказов на товары для предприятия, работающего в сфере торговли товарами для обеспечения безопасности. Разработка удобного для пользователя интерфейса. Реализация многопользовательского доступа.
дипломная работа [1,1 M], добавлен 14.01.2012Анализ этапов разработки автоматизированной системы учета договоров страхования предпринимательских рисков: постановка задачи, определение системных требований, выбор структуры информационной базы и средств ее реализации, проектирование экранных форм.
дипломная работа [2,6 M], добавлен 02.03.2010Опыт создания автоматизированных информационных систем. Разработка автоматизированной информационной системы для строительного предприятия ООО "СТК Дело". Этапы проектирования базы данных для учета хранения строительных материалов на складе предприятия.
курсовая работа [1,7 M], добавлен 15.03.2015Анализ предметной области, главных функций организации. Разработка макета внутренней структуры программного обеспечения информационной системы в виде диаграммы классов. Составление схемы базы данных. Разработка интерфейса и руководства пользователя.
курсовая работа [866,3 K], добавлен 02.06.2015
