50187 (Разработка автоматизированной системы учета договоров для отеля), страница 5
Описание файла
Документ из архива "Разработка автоматизированной системы учета договоров для отеля", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "50187"
Текст 5 страницы из документа "50187"
}
//---------------------------------------------------------------------------
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;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N39Click(TObject *Sender)
{
Form25->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N40Click(TObject *Sender)
{
Form26->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N41Click(TObject *Sender)
{
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N42Click(TObject *Sender)
{
Form3->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N43Click(TObject *Sender)
{
if(Application->MessageBox("Вы действительно хотите удалить запись?","Подтвердите удаление записи!",MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
DataModule2->Table1->Delete();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N44Click(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::N45Click(TObject *Sender)
{
Form25->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N46Click(TObject *Sender)
{
Form26->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N47Click(TObject *Sender)
{
ReportAgreem->QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N48Click(TObject *Sender)
{
Form20->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N49Click(TObject *Sender)
{
Form15->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N50Click(TObject *Sender)
{
Form16->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N51Click(TObject *Sender)
{
DataModule2->Table2->Delete();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N52Click(TObject *Sender)
{
Form14->QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N12Click(TObject *Sender)
{
Form1->frReport1->ShowReport();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N19Click(TObject *Sender)
{
FormRep->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N55Click(TObject *Sender)
{
FormRepAgreem->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N57Click(TObject *Sender)
{
Form4->ShowModal();
}
//---------------------------------------------------------------------------
Unit20
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Saw12.h"
#include "Unit20.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Word_2K_SRVR"
#pragma resource "*.dfm"
TForm20 *Form20;
//---------------------------------------------------------------------------
__fastcall TForm20::TForm20(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm20::ToolButton2Click(TObject *Sender)
{
//Прверка наличия открытого документа
if(WordApplication1->Documents->Count==0)
{
Application->MessageBoxA(PChar("В Word нет открытого документа"),"Varning",MB_OK+MB_ICONEXCLAMATION);
Abort();
}
WordDocument1->ConnectTo(WordApplication1->ActiveDocument);
}
//---------------------------------------------------------------------------
void __fastcall TForm20::FormCreate(TObject *Sender)
{
DataModule2->Table1->Open();
//Выключение проверок синтаксиса и грамматики что бы не замедлять работу Winword
WordApplication1->Options->CheckSpellingAsYouType=false;
WordApplication1->Options->CheckGrammarAsYouType=false;
if(WordApplication1->Documents->Count==0)
{
ToolButton3->Enabled=false;
ToolButton4->Enabled=false;
ToolButton6->Enabled=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm20::ToolButton5Click(TObject *Sender)
{
//Открытие нового документа
WordApplication1->Documents->Add(EmptyParam, EmptyParam);
ToolButton3->Enabled=true;
ToolButton4->Enabled=true;
ToolButton5->Enabled=true;
ToolButton6->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm20::ToolButton6Click(TObject *Sender)
