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

Этапы создания автоматизированной системы учета договоров на предприятии: определение входной и выходной информации, проектирование базы данных методом "сущность-связь" и 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 - Отчет по дополнительным договорам


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.