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

При нажатии на кнопки "Просмотр" и "Печать" программа выполняет те же действия что и в таблице основных договоров. См. стр. 7

Рисунок 5.14 -Выходной документ дополнительных договоров

5.5 Рекомендации по освоению

Для освоения описываемого приложения пользователю достаточно опыта работы в самых обычных Windows – приложениях, поскольку интерфейс программы прост, и все его элементы снабжены всплывающими подсказками. Для закрепления навыков пользователю предоставляется возможность произвести базовые операции работы с б.д.. А также администратор может предоставить пользователю фиктивную БД, с которой можно отработать основные операции, реализуемые программой, после чего приступать к работе с реальной БД.

Заключение

Приложение "Law" достаточно эффективно решает поставленную задачу, простой и понятный интерфейс программы доступен любому пользователю, имеется весь необходимый набор операций для выполнения поставленных задач.

К достоинствам программы следует причислить отсутствие требования знаний СУБД к пользователю, возможность экспорта данных в средства MsOffice, а так же различные виды печати и богатый набор функций и инструментов для работы с данными.

Недостатками программы являются отсутствие справки .

Список использованных источников

1. Томас К., Каролин Б., Анна С. Базы данных. Проектирование, реализация и сопровождение. Теория и практика, Второе издание исправленное и дополненное, Вильяис, М. – 2000г.

2. Джен Харрингтон Проектирование объектно-реляционных баз данных, ДМК издательство, М. – 2000г.

3. Глушаков С.В., Ломотько Д.В. Базы Данных.Учебный курс, издательство АСТ, М. – 2002г.

4. Вендров А.М. Проектирование программного обеспечения экономических информационных систем: учебник, финансы и статистика, М. – 2003г.

5. Малыхина M. П. Базы данных: основы, проектирование, использование, СПб., БВХ-Петербург, 2004г.

6.Кириллов В.В. Структуризованный язык запросов (SQL). СПб.: ИТМО, 1994г.

Приложение А(обязательное)

Описание модулей программы

Основной модуль программы -MainUnit

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "DataModule.h"

#include "MainUnit.h"

#include "Saw21.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit13.h"

#include "Unit14.h"

#include "Unit15.h"

#include "Unit16.h"

#include "Unit17.h"

#include "Unit18.h"

#include "Unit19.h"

#include "Unit20.h"

#include "Unit21.h"

#include "Unit22.h"

#include "Unit25.h"

#include "Unit26.h"

#include "ContractorDiagram.h"

#include "DateAgreemDiagram.h"

#include "ObjectAgreemDiagramm.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "CSPIN"

#pragma link "FR_Class"

#pragma link "FR_Chart"

#pragma link "FR_ChBox"

#pragma link "FR_DCtrl"

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

RadioButton3->Checked=false; /*Установка видимости компонентов при создании формы */

Edit1->Text="by Evgen Corp. version1.0(Demo)";

ToolButton9->Enabled=false;

EditObjAgreem->Visible=false;

// DataModule2->Table1->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N15Click(TObject *Sender)

{

DataModule2->Table1->IndexFieldNames="Register_number";/*Сортировка по регистрационному номеру */

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N16Click(TObject *Sender)

{

DataModule2->Table1->IndexFieldNames="Juridical_number";/* Сортировкапоюридическомуномеру*/

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N17Click(TObject *Sender)

{

DataModule2->Table1->IndexFieldNames="Contractor";/* Сортировкапоконтрагенту */

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N18Click(TObject *Sender)

{

FormBySort->ShowModal(); /Вызовформысортировки

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

if(RadioButton3->Checked==true)/*Привыборевключаемфльтр*/

DataModule2->Table1->Filtered=false;

else

{

if (RadioButton1->Checked==true)

DataModule2->Table1->Filter="Contractor='"+CBContract->Text+"'";/*Фильтрпоконтрагенту*/

else if(RadioButton2->Checked==true)

{

DataModule2->Table1->Filter="Object_agreement='"+EditObjAgreem->Text+"'";/*Фильтрпопредметудоговора*/

}

else DataModule2->Table1->Filter= "(Contractor='"+CBContract->Text+"') and (Object_agreement="+(DataModule2->Table1->FieldByName("Object_agreement")->AsString+EditObjAgreem->Text)+")";/*Фильтрпоконтрагентуипредметудоговора*/

}

DataModule2->Table1->Filtered=false;/*Выключаемфильтр*/

DataModule2->Table1->Refresh();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N9Click(TObject *Sender)

{

Form2->ShowModal();//Вызов формы "Добавить договор"

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N10Click(TObject *Sender)

{

Form3->ShowModal();//Вызов формы "Редактировать договор"

Form3->Position=poOwnerFormCenter;/*Установка свойств формы(позиция и стиль)*/

Form3->BorderStyle=bsToolWindow;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N11Click(TObject *Sender)

{

if(Application->MessageBox("Выдействительнохотитеудалитьзапись?","Подтвердитеудалениезаписи!",MB_YESNO+MB_ICONEXCLAMATION)==IDYES)

DataModule2->Table1->Delete();

DataModule2->Table1->Refresh();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ToolButton13Click(TObject *Sender)

{

Form1->Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ToolButton5Click(TObject *Sender)

{

if(DataModule2->Table1->Modified==true)//Сохраняемизменениявбазе

DataModule2->Table1->Post();

ShowMessage("Вы сохранили изменнения в таблице!!");

}

//---------------------------------------------------------------------------

void __fastcall TForm1::DBGrid1DblClick(TObject *Sender)

{

Form3->ShowModal();//Вызов формы "Редактировать договор"

Form3->Position=poOwnerFormCenter;

Form3->BorderStyle=bsToolWindow;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ToolButton11Click(TObject *Sender)

{

DataModule2->Table1->Next();//Переходим на след. запись

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N6Click(TObject *Sender)

{

if(DataModule2->Table1->Modified==true)//Сохраняемизменениявтаблице

DataModule2->Table1->Post();

ShowMessage("Вы сохранили изменнения в таблице!!");

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ToolButton3Click(TObject *Sender)

{

Form2->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ToolButton7Click(TObject *Sender)

{

ReportAgreem->QuickRep1->Print();//Печать

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N27Click(TObject *Sender)

{

ReportAgreem->QuickRep1->Preview();//Предварительный просмотр перед //печатью

}

//---------------------------------------------------------------------------

void __fastcall TForm1::QuickReport1Click(TObject *Sender)

{

ReportAgreem->QuickRep1->Print();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Form14->QuickRep1->Preview();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Form14->QuickRep1->Print();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)

{

Form15->ShowModal();

Form15->Position=poOwnerFormCenter;

Form15->BorderStyle=bsToolWindow;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)

{

if(Application->MessageBox("Выдействительнохотитеудалитьзапись?","Подтвердитеудалениезаписи!",MB_YESNO+MB_ICONEXCLAMATION)==IDYES)

DataModule2->Table2->Delete();

DataModule2->Table2->Refresh();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)

{

Form16->ShowModal();

Form16->Position=poOwnerFormCenter;

Form16->BorderStyle=bsToolWindow;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::DBGrid2DblClick(TObject *Sender)

{

Form16->ShowModal();

Form15->Position=poOwnerFormCenter;

Form15->BorderStyle=bsToolWindow;

}

void __fastcall TForm1::N29Click(TObject *Sender)

{

Form17->ShowModal();

Form15->Position=poOwnerFormCenter;

Form15->BorderStyle=bsToolWindow;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N8Click(TObject *Sender)

{

Form1->Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N110Click(TObject *Sender)

{

Form18->ShowModal();

Form15->Position=poOwnerFormCenter;

Form15->BorderStyle=bsToolWindow;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N30Click(TObject *Sender)

{

Form19->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N35Click(TObject *Sender)

{

Form22->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::MsWord1Click(TObject *Sender)

{

Form20->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N7Click(TObject *Sender)

{

DBGrid1->Visible=true;

DBGrid2->Visible=true;

EditObjAgreem->Visible=true;

Edit1->Visible=false;

Memo1->Visible=false;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N13Click(TObject *Sender)

{

DataModule2->Table1->Filtered=false;

DataModule2->Table1->Active=false;

DataModule2->Table1->Active=true;

RadioButton1->Checked=false;

RadioButton2->Checked=false;

RadioButton3->Checked=false;

RadioButton4->Checked=false;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::MsWord21Click(TObject *Sender)

{

Form23->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N37Click(TObject *Sender)

{

DataModule2->Table3->Active=false;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N38Click(TObject *Sender)

{

DataModule2->Table3->Active=true;