Информационная система "Азиатские государства"

->FileName);\\Если выводится окно с сообщением о сохранении, то данные из RichEdit1 сохраняются в файл

}

Печать данных осуществлена путем добавления в меню пункта «Печать», который выводит стандартное оено печати данных.

void __fastcall TForm11::N6Click(TObject *Sender)

{

if(PrintDialog1->Execute())RichEdit1->Print("");\\Если выводится окно с сообщением о печати, то данные из RichEdit1 выводятся на печать

}

SaveDialog:

FileName=c:\Документ.rtf

Filter=Текстовый редактор (*.rtf)

InitialDir=c:\

Рисунок 5. Раздел «Происхождение названия» и организация печати

Второй созданный раздел - это «Государства» (Рисунок 6). Этот раздел создан для поиска информации о странах Азии (Государство, столица, численность населения, координаты государства и т.д.) Был реализован запрос для поиска: государство, столица, телефонный код государства, валюта. Введенные неверно либо некорректно данные считаются не верными и остаются данные отображенные ранее. Имеется возможность печати и сохранения данных.

Используемые элементы: DataSource, ADOConnection, ADOTable, MainMenu, DBGrid, Button, Label, Image

Организация связи и исполняемого кода: Поиск информации осуществляется по нажатию на кнопку «Поиск» по данным : Государство, столица, телефонный код государства, валюта

void __fastcall TForm10::Button3Click(TObject *Sender) \\ функция определения действий при нажатии на кнопку

{

DBGrid1->Visible=true;\\отобразил таблицу

AnsiString Str2;

bool dz2,m1,m2,m3;

Str2=Edit1->Text;

TLocateOptions SearchOptions;\\опции поиска

SearchOptions<<loPartialKey<<loCaseInsensitive;\\задание опции поиска

dz2=Form10->ADOTable1

->Locate("Государство",Str2,SearchOptions);\\организация поиска по столбцу Государство

m1=Form10->ADOTable1

->Locate("Столица",Str2,SearchOptions);\\организация поиска по столбцу «Государство»

m2=Form10->ADOTable1->Locate("Валюта",Str2,SearchOptions);\\организация поиска по столбцу «Валюта»

m1=Form10->ADOTable1->Locate("Телефонный код",Str2,SearchOptions);\\организация поиска по столбцу «Телефонный код»

}

Подключение базы данных

Поместил на форму компонент TADOConnection, отвечающий за связь приложения с физической базой данных. Далее поместил TDataSource, отвечающий за графическое отображение данных, он необходим для связи Data Controls компонентов с компонентом TADOTable, который тоже поместил на форму (он нужен для связи с конкретной таблицей БД, аналогично TTable из BDE). Для связи всех трех компонентов между собой проделал следующие операции:

У компонента TADOTable установил свойство Connection в положенный на форму компонент TADOConnection (По-умолчанию это ADOConnection1);

Свойство DataSet компонента TDataSource установил в ADOTable1;

Для установления соединение с БД выберал компонент TADOConnection. В появившемся окне выбрал "Use connection string" и нажал Build. В ответ предложили выбрать драйвер для работы с базой, выбрал драйвер Microsoft Jet 4.0 OLE DB и нажал далее. Указал путь к базе данных. Проверил, есть ли соединение с базой данных, установив свойство Connected (этого же компонента) в true. Далее выбрал компонент TADOTable и указал в свойстве TableName имя желаемой для работы таблицы из созданной базы данных. Чтобы компонент получил доступ к базе данных, используя ADOConnection установил Active=true (TADOTable). Соединение графических компонентов с физической базой данных осуществил путем использования промежуточного звена - компонента TDataSource. Для этого у каждого компонента есть свойство DataSource, выделенное красным в "Инспекторе Объектов". Установил в это свойство DataSource1. Далее свойство Active TADOTable поставил в положении true, а TADOConnection[2].Connected=true. База данных была создана в Microsoft Office Access 2003.

DataSource1:

DataSet=ADOTable

Enable=true

ADOConnection:

LoginPrompt=false\\выключил проверку пароля

ConnectionString=Build=Поставщик данных=Microsoft Jet 4.0=путь к базе

Enable=true

ADOConnection:

LoginPrompt=false\\выключил проверку пароля

Connection string=Build=Поставщик данных=Microsoft Jet4.0=путь к базе

Connected=true

ADOTable

Connection=ADOConnection1

Filtered=true\\фильтрация данных по названию от А до Я

LockType=ltReadOnly

ReadOnly=true\\ Организация атрибута «только для чтения»

TableName=государства

Active=true\\активировал соединение

DBGrid:

BorderStile=bsSingle\\стиль таблицы

Color=clTeal\\выбрал цвет таблицы

DataSource=DataSource1

Enable=true

ReadOnly=true\\ активировал атрибута «только для чтения»

Рисунок 6. Раздел «Государства»

Далее создан раздел «Население Азии» (Рисунок 7), в котором отображена информация о численности населения, этнический состав и другое. Имеется возможность печати и сохранения информации.

Используемые элементы: TRichEdit, SaveDialog, PrintDialog, MainMenu, Image

Организация связи и исполняемого кода: После открытия дочерней формы «Население» открывается текстовый файл, в котором записана информация о населении Азии (численность, этнический состав)

void __fastcall TForm12::RichEdit1Change(TObject *Sender)

{

RichEdit1->Lines->LoadFromFile("..\\AsiaGid\\doc\\26.rtf");\\открывает файл 26.rtf и помещает данные в RichEdit1

}

Пункт «Сохранить как» был создан для сохранения информации в файл, выведенной на экран монитора

void __fastcall TForm11::N7Click(TObject *Sender)

{

if(SaveDialog1->Execute())RichEdit1->Lines->SaveToFile(SaveDialog1

->FileName); \\Если выводится окно с сообщением о сохранении, то данные из RichEdit1 сохраняются в файл

}

Для осуществления печати был создан пункт «Печать», которое выводит окно, в котором можно указать имя принтера, число копий и др.

void __fastcall TForm11::N6Click(TObject *Sender) \\ функция определения действий при нажатии на пункт «Печать» в меню

if(PrintDialog1->Execute())RichEdit1->Print("");\\Если выводится окно с сообщением о спечати, то данные из RichEdit1 выводятся на печать

}

SaveDialog:

FileName=c:\Документ.rtf

Filter=Текстовый редактор (*.rtf)

InitialDir=c:\

Рисунок 7. Раздел «Население»

Следующий созданный раздел представлен как «Основные сведения» (Рисунок 8), в котором представлены основные географические сведения Азии: площадь, средняя высота над уровнем моря, самая южная точка территории Азии и т.д.

Используемые элементы: TRichEdit, Panel, SaveDialog, PrintDialog, MainMenu, Image

Организация связи и исполняемого кода: Отображение информации осуществлен путем загрузки текстового файла в RichEdit.

void __fastcall TForm13::RichEdit1Change(TObject *Sender) \\ функция определения действий при открытии Form 13

{

RichEdit1->Lines->LoadFromFile("..\\AsiaGid\\doc\\27.rtf");\\открывает файл 27.rtf и помещает данные в RichEdit1

}

Отображение картинки стало возможным после того, как был помещен компонент Panel и сама картинки Image

Image1=picture=Load=путь к файлу=OK

Image2=picture=Load=путь к файлу=OK

Сохранение данных стало возможным после того, как был создан пункт «Сохранить как» в меню «Файл»

void __fastcall TForm11::N7Click(TObject *Sender) \\ определение событий при нажатии на пункт «Сохранить как» в меню

{

if(SaveDialog1->Execute())RichEdit1->Lines->SaveToFile(SaveDialog1

->FileName);

}

Осуществление печати стало возможным после организации исполняемого кода

void __fastcall TForm11::N6Click(TObject *Sender) \\ функция определения действий при нажатии на пункт «Печать» в меню

{

if(PrintDialog1->Execute())RichEdit1->Print("");

}

SaveDialog:

FileName=c:\Документ.rtf

Filter=Текстовый редактор (*.rtf)

InitialDir=c:\

Рисунок 8. Раздел «Основные сведения»

Далее был создан раздел «Расположение на материке» (Рисунок 9) описывающий геополитические границы Азии, описание территории, описание типов климата, расположение, описание крупных озер и рек, расположение гор.

Используемые элементы: TRichEdit, SaveDialog, PrintDialog, MainMenu

Организация связи и исполняемого кода: После открытия дочерней формы (Расположение на материке), в окно (RichEdit) загружается текстовый файл с информацией о расположении части света на материке Евразия.

void __fastcall TForm12::RichEdit1Change(TObject *Sender) \\ определение действий с RichEdit1 на Form12

{

RichEdit1->Lines->LoadFromFile("..\\AsiaGid\\doc\\26.rtf");

}

Для осуществления функции сохранения отображенной информации был создан пункт «Сохранить как», который при желании пользователя сохраняет информацию в файл

void __fastcall TForm11::N7Click(TObject *Sender)

{

if(SaveDialog1->Execute())RichEdit1->Lines->SaveToFile(SaveDialog1

->FileName); \\ осуществляется сохранение данных из RichEdit1

Для осуществления печати был создан пункт в меню «Файл», который печатает отображенную на экран монитора информацию.

void __fastcall TForm11::N6Click(TObject *Sender)

{

if(PrintDialog1->Execute())RichEdit1->Print("");

}

SaveDialog:

FileName=c:\Документ.rtf

Filter=Текстовый редактор (*.rtf)

InitialDir=c:\

Рисунок 9. «Расположение на материке»

Главным плюсом программы явилось создание раздела с картами (политическая, физическая) государств, а так же всей территории Азии. Этот раздел назван «Азия на карте» (Рисунок 10). Для выбора необходимой географической карты был создан выпадающий список, из которого можно выбирать нужную карту [18], [19]. Так же было создана функция печати и сохранения карты в указанное место (Рисунок 10).

Используемые элементы: SaveDialog, PrintDialog, MainMenu, Image, ComboBox

Организация связи и исполняемого кода:

void __fastcall TForm5::ComboBox1Change(TObject *Sender) \\ функция определения действий ComboBox1

{

if(ComboBox1->ItemIndex==0)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\2.bmp");\\отображает на форме 2.bmp в Image

if(ComboBox1->ItemIndex==1)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\7.bmp");\\ открывает файл 7.bmp

if(ComboBox1->ItemIndex==2)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\3.bmp");\\ открывает файл 3.bmp

if(ComboBox1->ItemIndex==3)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\6.bmp");

if(ComboBox1->ItemIndex==4)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\5.bmp");

if(ComboBox1->ItemIndex==5)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\6.jpg");

if(ComboBox1->ItemIndex==6)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\7.jpg");

if(ComboBox1->ItemIndex==7)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\8.bmp");

if(ComboBox1->ItemIndex==8)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\9.bmp");

if(ComboBox1->ItemIndex==9)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\10.bmp");

if(ComboBox1->ItemIndex==10)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\11.bmp");

if(ComboBox1->ItemIndex==11)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\12.bmp");

if(ComboBox1->ItemIndex==12)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\13.bmp");

if(ComboBox1->ItemIndex==13)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\14.bmp");

if(ComboBox1->ItemIndex==14)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\15.bmp");

if(ComboBox1->ItemIndex==15)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\16.bmp");

}

ComboBox=Text=Выберите государство

Для организации сохранения карты был организован пункт «Сохранить как», который сохраняет выбранную карту в файл с расширением *.bmp [38].

void __fastcall TForm11::N7Click(TObject *Sender)

{

if(SaveDialog1->Execute())RichEdit1->Lines->SaveToFile(SaveDialog1

->FileName);

}

Для организации печати организован пункт «Печать» в меню «Файл», при нажатии на которого осуществляется печать географической, выбранной пользователем карты.

void __fastcall TForm5::N7Click(TObject *Sender)

{

if (!Form5->PrintDialog1->Execute()) return;

int PPIx = GetDeviceCaps(Printer()->Handle, LOGPIXELSX);\\Определение данных принтера по значению Х

int PPIy = GetDeviceCaps(Printer()->Handle, LOGPIXELSY);\\ \\Определение данных принтера по значению Y

int SmX = PPIx / 2, SmY = PPIy / 3;

int WInch = 10, HInch = 7; //организация масштаба

Printer ()->Orientation = poLandscape;\\Организация риентации листа

int x = Printer()->PageWidth;\\определение переменной Х, ширины

int y = Printer()->PageHeight;\\ определение переменной Y, длины

TPrinter *Prntr = Printer();

Prntr->BeginDoc();\\начало документа

Prntr->Canvas->Draw(10,10, Image2->Picture->Graphic);\\ Печать рисунка Image2 с длинной и шириной в 10 дюймов

Prntr->EndDoc();\\конец документа

Рисунок 10. Раздел «Азия на карте». Отображение карт государств

Далее был организован раздел «Районы» (Рисунок 11), в котором были описаны физико-географические районы Азии[19] (Западная Азия, Южная Азия и др. районы). Так же как и в других разделах программы была создана функция печати и сохранения (из пункта меню Файл), выведенных на экран монитора информации.

Используемые элементы: SaveDialog, PrintDialog, MainMenu, Image, RadioButton, Button

Организация связи и исполняемого кода: для легкости в отображении информации было создано несколько кнопок, при нажатии на которых, в правом окне дочернего окна, отобразится информация географического характера.

Западная Азия

void __fastcall TForm14::RadioButton1Click(TObject *Sender)

{

if(RadioButton1->Checked==true)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\111.rtf"); \\открывает файл 111.rtf и помещает данные в RichEdit1

}

Южная Азия

void __fastcall TForm14::RadioButton3Click(TObject *Sender)

{

if(RadioButton3->Checked==true)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\33.rtf"); \\открывает файл 333.rtf и помещает данные в RichEdit1

}

Юго-Восточная Азия

void __fastcall TForm14::RadioButton4Click(TObject *Sender)

{

if(RadioButton4->Checked==true)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\44.rtf");

}

Восточная Азия

void __fastcall TForm14::RadioButton5Click(TObject *Sender)

{

if(RadioButton5->Checked==true)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\55.rtf");

}

Северная Азия

void __fastcall TForm14::RadioButton6Click(TObject *Sender)

{

if(RadioButton6->Checked==true)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\66.rtf");

}

Средняя Азия

void __fastcall TForm14::RadioButton7Click(TObject *Sender)

{

if(RadioButton7->Checked==true)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\77.rtf");

}

Для сохранения отображенных данных был создан пункт «Сохранить как», в меню «Файл»[11]

void __fastcall TForm11::N7Click(TObject *Sender)

{

if (SaveDialog1->Execute())RichEdit1->Lines->SaveToFile(SaveDialog1

->FileName);

}

Для организации печати данных был создан пункт «Печать» в меню «Файл»

void __fastcall TForm11::N6Click(TObject *Sender)

{

if(PrintDialog1->Execute())RichEdit1->Print("");

}

SaveDialog:

FileName=c:\Документ.rtf

Filter=Текстовый редактор (*.rtf)

InitialDir=c:\

Рисунок 11. Дочернее окно «Районы»

Следующим, на этапе разработки стало конструирование раздела «Посольства Казахстана в Азии» (Рисунок 12). Было создано окно, в котором, при выборе государства отображалась информация о посольствах Казахстана в странах Азии. Было описано местонахождения посольств, адрес, телефон, факс, электронная почта. Разработана возможность печати и сохранения информации на внешний носитель. Для наглядности и подробного представления внизу изображен флаг Казахстана и государства, которая выбрана, в качестве описания информации о посольстве.

Используемые элементы: SaveDialog, PrintDialog, MainMenu, Image, RichEdit, ComboBox, Label

Организация связи и исполняемого кода: Для осуществления выбора государств, был создан выпадающий список (ComboBox), из которого можно выбрать желаемое Азиатское государство. После выбора, в правом окне (RichEdit) отобразиться информация о посольстве Республики Казахстан в выбранной стране.

void __fastcall TForm15::ComboBox1Change(TObject *Sender)

{

if(ComboBox1->ItemIndex==0)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\6.rtf"); \\ при выборе пункта из выподающего списка загружаются данные из файла 6.rtf

if(ComboBox1->ItemIndex==1)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\21.rtf"); \\ при выборе пункта из выподающего списка загружаются данные из файла 21.rtf

if(ComboBox1->ItemIndex==2)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\1.rtf");

if(ComboBox1->ItemIndex==3)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\2.rtf");

if(ComboBox1->ItemIndex==4)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\7.rtf");

if(ComboBox1->ItemIndex==5)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\4.rtf");

if(ComboBox1->ItemIndex==6)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\8.rtf");

if(ComboBox1->ItemIndex==7)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\10.rtf");

if(ComboBox1->ItemIndex==8)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\17.rtf");

if(ComboBox1->ItemIndex==9)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\12.rtf");

if(ComboBox1->ItemIndex==10)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\9.rtf");

if(ComboBox1->ItemIndex==11)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\13.rtf");

if(ComboBox1->ItemIndex==12)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\5.rtf");

if(ComboBox1->ItemIndex==13)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\16.rtf");

if(ComboBox1->ItemIndex==14)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\3.rtf");

if(ComboBox1->ItemIndex==15)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\15.rtf");

if(ComboBox1->ItemIndex==16)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\20.rtf");

if(ComboBox1->ItemIndex==17)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\14.rtf");

if(ComboBox1->ItemIndex==18)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\18.rtf");

if(ComboBox1->ItemIndex==19)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\19.rtf");

if(ComboBox1->ItemIndex==20)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\posol\\11.rtf");

if(ComboBox1->ItemIndex==0)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag3.jpg"); \\ при выборе пункта из выподающего списка загружаются данные из файла 3.jpg, картинка

if(ComboBox1->ItemIndex==2)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag4.jpg"); \\ при выборе пункта из выподающего списка загружаются данные из файла 4.jpg, картинка

if(ComboBox1->ItemIndex==1)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag5.jpg");

if(ComboBox1->ItemIndex==3)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag6.jpg");

if(ComboBox1->ItemIndex==4)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag7.jpg");

if(ComboBox1->ItemIndex==5)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag8.jpg");

if(ComboBox1->ItemIndex==6)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag9.jpg");

if(ComboBox1->ItemIndex==7)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag10.jpg");

if(ComboBox1->ItemIndex==8)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag11.jpg");

if(ComboBox1->ItemIndex==9)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag12.jpg");

if(ComboBox1->ItemIndex==10)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag13.jpg");

if(ComboBox1->ItemIndex==11)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag14.jpg");

if(ComboBox1->ItemIndex==12)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag15.jpg");

if(ComboBox1->ItemIndex==13)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag1.jpg");

if(ComboBox1->ItemIndex==14)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag16.jpg");

if(ComboBox1->ItemIndex==15)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag17.jpg");

if(ComboBox1->ItemIndex==16)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag18.jpg");

if(ComboBox1->ItemIndex==17)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag19.jpg");

if(ComboBox1->ItemIndex==18)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag20.jpg");

if(ComboBox1->ItemIndex==19)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag21.jpg");

if(ComboBox1->ItemIndex==20)Image2->Picture

->LoadFromFile("..\\AsiaGid\\foto\\flag22.jpg");

Для сохранения отображаемых данных в окне (RichEdit), при выборе государства, в меню «Файл», был создан пункт «Сохранить как».

void __fastcall TForm11::N7Click(TObject *Sender)

{

if(SaveDialog1->Execute())RichEdit1->Lines->SaveToFile(SaveDialog1

->FileName);

}

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

void __fastcall TForm11::N6Click(TObject *Sender)

{

if(PrintDialog1->Execute())RichEdit1->Print("");

}

SaveDialog:

FileName=c:\Документ.rtf \\ задание имени документа (по умолчанию) при сохранения

Filter=Текстовый редактор (*.rtf)

InitialDir=c:\ \\ сохранение файла на диск С

Для выхода из формы был организован пункт «Выход» в меню

void __fastcall TForm1::N5Click(TObject *Sender)

{

Form1->Close(); \\ закрывает форму 15

}

Рисунок 12. Дочернее окно «Посольства Казахстана»

Еще одним плюсом стал факт создания полноценного раздела «Курорты» (Рисунок 13), в котором при выборе Азиатского государства, выводилась информация о курортах, находящихся на территории страны. Ведь всегда будет удобно иметь под рукой программу, которая бы предоставляла бы информацию о курортах и при необходимости выводила на печать данные. Полезен туристическим фирмам, которые нуждаются в подобной информации.

Описаны морские климатические, горноклиматические, SPA курорты, а так же горнолыжные, бальнеологические и пляжные курорты государств Азии[19].

Используемые элементы: SaveDialog, PrintDialog, MainMenu, Image, RichEdit, ComboBox

Организация связи и исполняемого кода: Для осуществления выбора государств, в которых имеются курорты, был организован выпадающий список (ComboBox), из которого возможен выбор государства, после чего, в правом окне (RichEdit) отобразиться информация о курортах данного государства (SPA курорты, горнолыжные, пляжные, горноклиматические, бальнеологические курорты).

void __fastcall TForm9::ComboBox1Change(TObject *Sender)

{

if(ComboBox1->ItemIndex==0)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\1.rtf"); \\ загрузка файла 1.rtf и отображение при выборе пункта из выпадающего списка с индексом 0

if(ComboBox1->ItemIndex==1)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\2.rtf");\\ загрузка файла 2.rtf и отображение при выборе пункта из выпадающего списка с индексом 1

if(ComboBox1->ItemIndex==2)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\3.rtf");

if(ComboBox1->ItemIndex==3)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\4.rtf");

if(ComboBox1->ItemIndex==4)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\5.rtf");

if(ComboBox1->ItemIndex==5)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\6.rtf");

if(ComboBox1->ItemIndex==6)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\7.rtf");

if(ComboBox1->ItemIndex==7)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\8.rtf");

if(ComboBox1->ItemIndex==8)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\9.rtf");

if(ComboBox1->ItemIndex==9)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\10.rtf");

if(ComboBox1->ItemIndex==10)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\11.rtf");

if(ComboBox1->ItemIndex==11)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\12.rtf");

if(ComboBox1->ItemIndex==12)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\13.rtf");

if(ComboBox1->ItemIndex==13)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\23.rtf");

if(ComboBox1->ItemIndex==14)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\14.rtf");

if(ComboBox1->ItemIndex==15)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\15.rtf");

if(ComboBox1->ItemIndex==16)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\16.rtf");

if(ComboBox1->ItemIndex==17)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\17.rtf");

if(ComboBox1->ItemIndex==18)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\18.rtf");

if(ComboBox1->ItemIndex==19)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\19.rtf");

if(ComboBox1->ItemIndex==20)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\20.rtf");

if(ComboBox1->ItemIndex==21)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\21.rtf");

if(ComboBox1->ItemIndex==22)RichEdit1->Lines

->LoadFromFile("..\\AsiaGid\\doc\\22.rtf"); }

Для организации сохранения отображаемых данных в меню «Файл», был создан пункт «Сохранить как», при нажатии, на которого, информация, выведенная на экран монитора, сохраняется в файл с расширением *.rtf.

void __fastcall TForm11::N7Click(TObject *Sender)

{

if(SaveDialog1->Execute())RichEdit1->Lines->SaveToFile(SaveDialog1

->FileName); \\ сохраняются данные из RichEdit1

}

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

void __fastcall TForm11::N6Click(TObject *Sender)

{

if(PrintDialog1->Execute())RichEdit1->Print(""); \\ выводится на печать отображенная на экран информация из RichEdit1

}

SaveDialog:

FileName=c:\Документ.rtf

Filter=Текстовый редактор (*.rtf)

InitialDir=c:\

Рисунок 13. «Курорты»

2.4 Музыкальное сопровождение в программе

Музыка (композиция) в любой программе является, в какой то мере привлечением пользователя к экрану монитора, да и вообще появляется интерес к программе. Данная программа не стала исключением, и была оснащена музыкальной мелодией, которая в какой то мере и привлекает. При сопровождении композицией программы, важным фактором стало оснащение кнопками «выключить» и «возобновить звучание композиции» (рисунок 14). Если кому-нибудь не понравится, либо не захочется прослушивать мелодию, возможно выключить мелодию.

Оснащение музыкальной композицией стало одной из привлекательных достопримечательностей данной, разрабатываемой программы.

Используемые элементы: BitBtn, SpeedButton

Организация связи и исполняемого кода: При нажатии на кнопку вкл (BitBtn) срабатывает Timer и загружает композицию из файла, который использует подсчет времени для организации цикла проигрывания композиции. При нажатии на кнопку выкл (SpeedButton3) загружается пустая мелодия [9].

Рисунок 14. Кнопки выключения и возобновления сопровождения музыкальной композицией

2.5 Справки программы

Справка была создана для упрощения передвижения по формам и использования программы (Рисунок 14). Указатель содержит полный список использования функций предоставления информации. Для того, что бы не возникало вопросов у пользователей данной программы, был создан полный указатель. Так же была создана отдельная справка, предоставляющая информацию о разработчике, адрес электронной почты и номер ICQ и обращения по всем вопросам, в том числе и о разработке программных продуктов (Рисунок 15)[1]. Так же создана для представления упрощенного описания программы в целом отдельная справка, названная «О программе» (Рисунок 16).

Открытие справки, для просмотра пояснений возможно в пункте «Справка Азиатские государства»

void __fastcall TForm1::N6Click(TObject *Sender)

{

Application->HelpFile = "..\\AsiaGid\\doc\\help.hlp";\\открывает файл справки Help.hlp

Application->HelpCommand(HELP_CONTENTS, 0);

}

Рисунок 14. Главная справка программы

Открытие справки, для просмотра информации о авторе возможно в пункте «Автор»

void __fastcall TForm1::N4Click(TObject *Sender)

{

Form2->Show(); \\ открытие формы 2

}

Рисунок 15. Справка «Автор»

Открытие справки, для просмотра информации о программе в целом возможно в пункте «О программе»

void __fastcall TForm1::N3Click(TObject *Sender)

{

Form3->Show(); \\ отображает форму 3 }

Рисунок 16. «О программе»

3. Охрана труда

С развитием научно-технического прогресса немаловажную роль играет возможность безопасного исполнения людьми своих трудовых обязанностей. В связи с этим была создана и развивается наука о безопасности труда и жизнедеятельности человека.

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

Цель и содержание БЖД:

обнаружение и изучение факторов окружающей среды, отрицательно влияющих на здоровье человека;

ослабление действия этих факторов до безопасных пределов или исключение их если это возможно;

ликвидация последствий катастроф и стихийных бедствий.

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

На рабочем месте должны быть предусмотрены меры защиты от возможного воздействия опасных и вредных факторов производства. Уровни этих факторов не должны превышать предельных значений, оговоренных правовыми, техническими и санитарно-техническими нормами.

Данный раздел дипломного проекта посвящен рассмотрению следующих вопросов:

определение оптимальных условий труда инженера - программиста;

сведения о требуемой освещенности рабочего места;

сведения о шуме и вибрации на рабочем месте.

Эргономические требования к рабочему месту

3.1 Требования к производственным помещениям

Окраска помещений и мебели должна способствовать созданию благоприятных условий для зрительного восприятия, хорошего настроения. Источники света, такие как светильники и окна, которые дают отражение от поверхности экрана, значительно ухудшают точность знаков и влекут за собой помехи физиологического характера, которые могут выразиться в значительном напряжении, особенно при продолжительной работе. Отражение, включая отражения от вторичных источников света, должно быть, сведено к минимуму. Для защиты от избыточной яркости окон могут быть применены шторы и экраны. В зависимости от ориентации окон рекомендуется следующая окраска стен и пола:

окна ориентированы на юг: - стены зеленовато-голубого или светло голубого цвета; пол - зеленый;

окна ориентированы на север: - стены светло-оранжевого или оранжево-желтого цвета; пол - красновато-оранжевый;

окна ориентированы на восток: - стены желто-зеленого цвета; пол зеленый или красновато-оранжевый;

окна ориентированы на запад: - стены желто-зеленого или голубовато-зеленого цвета; пол зеленый или красновато-оранжевый.

В помещениях, где находится компьютер, необходимо обеспечить следующие величины коэффициента отражения: для потолка: 60…70%, для стен: 40…50%, для пола: около 30%. Для других поверхностей и рабочей мебели: 30…40%.

3.2 Освещение

Существует три вида освещения - естественное, искусственное и совмещенное (естественное и искусственное вместе).

Естественное освещение - освещение помещений дневным светом, проникающим через световые проемы в наружных ограждающих конструкциях помещений. Естественное освещение характеризуется тем, что меняется в широких пределах в зависимости от времени дня, времени года, характера области и ряда других факторов.

Искусственное освещение применяется при работе в темное время суток и днем, когда не удается обеспечить нормированные значения коэффициента естественного освещения (пасмурная погода, короткий световой день). Освещение, при котором недостаточное по нормам естественное освещение дополняется искусственным, называется совмещенным освещением.

Искусственное освещение подразделяется на рабочее, аварийное, эвакуационное, охранное. Согласно СНиП II-4-79 в помещений вычислительных центров необходимо применить систему комбинированного освещения.

При выполнении работ категории высокой зрительной точности (наименьший размер объекта различения 0,3…0,5мм) величина коэффициента естественного освещения (КЕО) должна быть не ниже 1,5%, а при зрительной работе средней точности (наименьший размер объекта различения 0,5…1,0 мм) КЕО должен быть не ниже 1,0%. В качестве источников искусственного освещения обычно используются люминесцентные лампы типа ЛБ или ДРЛ, которые попарно объединяются в светильники, которые должны располагаться над рабочими поверхностями равномерно.

Требования к освещенности в помещениях, где установлены компьютеры, следующие: при выполнении зрительных работ высокой точности общая освещенность должна составлять 300лк, а комбинированная - 750лк; аналогичные требования при выполнении работ средней точности - 200 и 300лк соответственно.

3.3 Шум и вибрация

Шум ухудшает условия труда оказывая вредное действие на организм человека. Работающие в условиях длительного шумового воздействия испытывают раздражительность, головные боли, головокружение, снижение памяти, повышенную утомляемость, понижение аппетита, боли в ушах и т. д. Такие нарушения в работе ряда органов и систем организма человека могут вызвать негативные изменения в эмоциональном состоянии человека вплоть до стрессовых. Под воздействием шума снижается концентрация внимания, нарушаются физиологические функции, появляется усталость в связи с повышенными энергетическими затратами и нервно-психическим напряжением, ухудшается речевая коммутация. Все это снижает работоспособность человека и его производительность, качество и безопасность труда. Длительное воздействие интенсивного шума (выше 80 дБ(А)) на слух человека приводит к его частичной или полной потере. В таблице 1 указаны предельные уровни звука в зависимости от категории тяжести и напряженности труда, являющиеся безопасными в отношении сохранения здоровья и работоспособности.

Таблица 1. Предельные уровни звука, дБ, на рабочих местах

Категория напряженности труда	Категория тяжести труда
	I. Легкая	II. Средняя	III. Тяжелая	IV. Очень тяжелая
I. Мало напряженный	80	80	75	75
II. Умеренно напряженный	70	70	65	65
III. Напряженный	60	60	-	-
IV. Очень напряженный	50	50	-	-

Уровень шума на рабочем месте математиков-программистов и операторов видеоматериалов не должен превышать 50дБА, а в залах обработки информации на вычислительных машинах - 65дБА. Для снижения уровня шума стены и потолок помещений, где установлены компьютеры, могут быть облицованы звукопоглощающими материалами.Уровень вибрации в помещениях вычислительных центров может быть снижен путем установки оборудования на специальные виброизоляторы. Уровень шума, возникающий от нескольких некогерентных источников, работающих одновременно, подсчитывается на основании принципа энергетического суммирования излучений отдельных источников (формула 1):

(1)

где Li - уровень звукового давления i-го источника шума;

n - количество источников шума.

Уровни звукового давления источников шума, действующих на оператора на его рабочем месте представлены в таблице 2

Таблица 2. Уровни звукового давления различных источников.

Источник шума	Уровень шума, дБ
Жесткий диск	40
Вентилятор	45
Монитор	17
Клавиатура	10
Принтер	45
Сканер	42

Полученное значение должно не превышать допустимый уровень шума для рабочего места оператора (программиста), равный 65 дБ (ГОСТ 12.1.003-83)

3.4 Эргономические требования к рабочему месту

Главными элементами рабочего места программиста являются стол и кресло. Основным рабочим положением является положение сидя. Рабочая поза сидя вызывает минимальное утомление программиста[14].

Оптимальное размещение предметов труда и документации в зонах досягаемости:

ДИСПЛЕЙ размещается в зоне а (в центре);

СИСТЕМНЫЙ БЛОК размещается в предусмотренной нише стола;

КЛАВИАТУРА - в зоне г/д;

«МЫШЬ» - в зоне в справа;

СКАНЕР в зоне а/б (слева);

ПРИНТЕР находится в зоне а (справа);

ДОКУМЕНТАЦИЯ: необходимая при работе - в зоне легкой досягаемости ладони - в, а в выдвижных ящиках стола - литература, неиспользуемая постоянно.

1 - сканер, 2 - монитор, 3 - принтер, 4 - поверхность рабочего стола,

5 - клавиатура, 6 - манипулятор типа «мышь».

Размещено на http://www.allbest.ru

Размещено на http://www.allbest.ru

Для комфортной работы стол должен удовлетворять следующим условиям:

высота стола должна быть выбрана с учетом возможности сидеть свободно, в удобной позе, при необходимости опираясь на подлокотники;

нижняя часть стола должна быть сконструирована так, чтобы программист мог удобно сидеть, не был вынужден поджимать ноги;

поверхность стола должна обладать свойствами, исключающими появление бликов в поле зрения программиста;

конструкция стола должна предусматривать наличие выдвижных ящиков (не менее 3 для хранения документации, листингов, канцелярских принадлежностей).

высота рабочей поверхности рекомендуется в пределах 680-760мм. Высота поверхности, на которую устанавливается клавиатура, должна быть около 650мм.

Положение экрана определяется:

расстоянием считывания (0,6…0,7м);

углом считывания, направлением взгляда на 20 ниже горизонтали к центру экрана, причем экран перпендикулярен этому направлению.

3.5 Режим труда

Как уже было неоднократно отмечено, при работе с персональным компьютером очень важную роль играет соблюдение правильного режима труда и отдыха. В противном случае у персонала отмечаются значительное напряжение зрительного аппарата с появлением жалоб на неудовлетворенность работой, головные боли, раздражительность, нарушение сна, усталость и болезненные ощущения в глазах, в пояснице, в области шеи и руках.

В табл. 3 представлены сведения о регламентированных перерывах, которые необходимо делать при работе на компьютере, в зависимости от продолжительности рабочей смены, видов и категорий трудовой деятельности с ВДТ (видеодисплейный терминал) и ПЭВМ (в соответствии с СанПиН 2.2.2 542-96 «Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работ»).

Таблица 3. Время регламентированных перерывов при работе на компьютере

Категория работы с ВДТ или ПЭВМ	Уровень нагрузки за рабочую смену при видах работы с ВДТ	Суммарное время регламентированных перерывов, мин
	Группа А, количество знаков	Группа Б, количество знаков	Группа В, часов	При 8-часовой смене	При 12-часовой смене
I	до 20000	до 15000	до 2,0	30	70
II	до 40000	до 30000	до 4,0	50	90
III	до 60000	до 40000	до 6,0	70	120

Время перерывов дано при соблюдении указанных Санитарных правил и норм. При несоответствии фактических условий труда требованиям Санитарных правил и норм время регламентированных перерывов следует увеличить на 30%.

В соответствии со СанПиН 2.2.2 546-96 все виды трудовой деятельности, связанные с использованием компьютера, разделяются на три группы:

группа А: работа по считыванию информации с экрана ВДТ или ПЭВМ с предварительным запросом;

группа Б: работа по вводу информации;

группа В: творческая работа в режиме диалога с ЭВМ (электронная вычислительная машина).

Эффективность перерывов повышается при сочетании с производственной гимнастикой или организации специального помещения для отдыха персонала с удобной мягкой мебелью, аквариумом, зеленой зонойЗаключение

В результате проектирования и разработки программы были реализованы функции и конструирование действий, направленные на поиск необходимой информации об Азиатских государствах. В частности: отображение данных о курортах в государствах Азии, общую информацию о государствах (столица, глава государства, численность населения, координаты, площадь, валюта, телефонный код государства), так же описание происхождения названия территории «Азия», географические данные территории (самая южная точка, общая площадь, площадь островов, средняя высота над уровнем моря и т.д.), описание населения (темпы роста численности, этнический состав населения), расположение на материке Евразия, описание географических районов Азии. Так же решен вопрос с печатью данных (пользователь вправе выбирать количество копий, диапазон печати) и сохранение (сохранение в файл в формате *.rtf и *.bmp). Реализована справка с картинками, в которой представлена наглядная информация для использования программы. Так же реализована отдельная справка с координатами автора и справка, описывающая программу в целом. Реализована база с государствами, которая возможно поможет пользователю.

Главным плюсом программы является музыкальное сопровождение, которое воспроизводится циклично.

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

Была достигнута основная цель (создать информационную справочную систему «Азиатские государства», используя информацию, предоставленную из достоверных источников).

Проделав работу по данному проекту, стоит отметить, что процесс является выгодным как для сотрудников туристических организации, так и для клиентов, так как в одном программном продукте собрана необходимая информация (сведения о курортах, посольствах, географические карты, описание географических районов и истории территории Азии).

Список использованной литературы

Электронный учебник.- C++ Builder первые опыты

Электронный учебник.- Визуальная разработка приложений баз данных

Электронный учебник.- Графические компоненты

Электронный учебник.-Инструменты визуальной разработки приложений

Электронный учебник.-Использование и создание визуальных компонент

Электронный учебник.- Объектно-ориентированное программирование и C++

Электронный учебник.- Основы программирования на С++Builder 6.0

Электронный учебник. - Основы программирования баз данных

Электронный учебник - Курс молодого бойца программирования

Электронный учебник - С++Builder 6.0 для программирования

Электронный учебник - Мир программирования

Электронный учебник - На порядок выше в С++Builder

Электронный учебник - С++ для изученных и одаренных

Электронный учебник - Безопасность жизнедеятельности

www.worldcpp.vingrad.ru

www.cpp-exe.ucoz.ru

www.web.znu.edu.ua

www.borland.xportal.ru

www.yestravel.ru

www.ru.wikipedia.org

Справочная карта Казахстана серии «Страны мира»

Справочная карта мира серии «Весь мир»

C/C++ в задачах и примерах. Культин Н.Б. - Санкт-Петербург, 2006 г., - 288 c.

C/C++ и Borland C++ Builder для начинающих. Пахомов Б.И. - BHV-Санкт-Петербург, 2005 г., - 628 c.

C/C++. Программирование на языке высокого уровня. Павловская Т.А. - Питер, 2007 г,- 461с.

Delphi: полное руководство. Сухарев М - Наука и техника, 2008 г.,- 1035 с.

Delphi 7. Хомоненко. - БХВ - Санкт-Петербург, 2007 г., - 1216 с.

C ++ начала программирования. Ишкова Э. А. - Бином., 2009 г., - 368 с.

C/C++ в задачах и примерах. Культин Н. Б. - БХВ-Петербург, 2008 г., 281 с.

C++.Объектно-ориентированное программирование: Практикум. Павловская Т. А. - Питер, 2008 г. 264 с.

C++. Просто как дважды два. Красиков И. В., Красикова И. Е. - Эксмо-Пресс, 2007 г., - 231 с.

Delphi 2005 для Win32. Дарахвелидзе П.Г., Марков Е.П., - БХВ-Петербург, 2005 г., - 1112 с.

Delphi в задачах и примерах. Культин Н., - БХВ-Петербург 2008 г.,-288

Borland C++ Builder. Рейсдорф К., Калверт Ч., - серия: "Энциклопедия программиста", ДиаСофт 2005 г., - 310с.

C++ Builder Borland Developer Studio 2006. Для профессионалов. Шамис Владимир, - Питер, серия: "Для профессионалов", - 2007 г., 457 с.

Технологии C++Builder. Разработка приложений для бизнеса. Бобровский Сергей. - Питер, серия: "Учебный курс" 2007 г., 574 с.

Атлас мира. Обзорно-географический. АСТ, Астрель

Приложение

Главная форма

Кнопка Показать (выбранный раздел программы)

void __fastcall TForm1::Button1Click(TObject *Sender)

{

if(RadioButton1->Checked==true)Form11->Show();

if(RadioButton2->Checked==true)Form10->Show();

if(RadioButton3->Checked==true)Form12->Show();

if(RadioButton4->Checked==true)Form13->Show();

}

void __fastcall TForm1::SpeedButton4Click(TObject *Sender)

{

if(RadioButton1->Checked==true)Form11->Show();

if(RadioButton2->Checked==true)Form10->Show();

if(RadioButton3->Checked==true)Form12->Show();

if(RadioButton4->Checked==true)Form13->Show();

}

Кнопка Выключить и включить звук

void __fastcall TForm1::SpeedButton3Click(TObject *Sender)

{

Form1->MediaPlayer1->FileName="..\\AsiaGid\\music\\11.wav";

Form1->MediaPlayer1->Open();

Form1->MediaPlayer1->Play();

Timer3->Enabled=false;

}

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

Timer3->Enabled=true;

Form1->MediaPlayer1->FileName="..\\AsiaGid\\music\\7.mp3";

Form1->MediaPlayer1->Open();

Form1->MediaPlayer1->Play();

}

Кнопка Курорты

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Form9->Show();

}

Дата и время на панели

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

Label4->Caption=Time().FormatString("hh:mm:ss");

Timer1->Interval=1;

Label5->Caption=Date().FormatString("dd:mm:yyyy");

Timer1->Interval=10;

}

Подсказки в нижней части панели

void __fastcall TForm1::RadioButton4Click(TObject *Sender)

{

if(RadioButton4->Checked==true)Label6->Caption="Сведения, о площади островов, самых крайних точках Азии и др.";

}

void __fastcall TForm1::RadioButton1Click(TObject *Sender)

{

if(RadioButton1->Checked==true)Label6->Caption="История возникновения названия";

}

void __fastcall TForm1::RadioButton2Click(TObject *Sender)

{

if(RadioButton2->Checked==true)Label6->Caption="Список всех Азиатских государств, а так же подробное их описание"}

void __fastcall TForm1::RadioButton3Click(TObject *Sender)

{

if(RadioButton3->Checked==true)Label6->Caption="Характеристика населения";

}

void __fastcall TForm1::RadioButton5Click(TObject *Sender)

{

if(RadioButton5->Checked==true)Label6->Caption="Расположение на материке Евразия";

}

void __fastcall TForm1::RadioButton6Click(TObject *Sender)

{

if(RadioButton6->Checked==true)Label6->Caption="Политическая, физическая карты Азии, а так же карта из космоса";

}

void __fastcall TForm1::RadioButton5Click(TObject *Sender)

{

}

void __fastcall TForm1::RadioButton6Click(TObject *Sender)

{

if(RadioButton6->Checked==true)Label6->Caption="Политическая, физическая карты Азии, а так же карта из космоса";

}

void __fastcall TForm1::RadioButton7Click(TObject *Sender)

{

if(RadioButton7->Checked==true)Label6->Caption="Физико-географические районы";

}

void __fastcall TForm1::RadioButton8Click(TObject *Sender)

{

if(RadioButton8->Checked==true)Label6->Caption="Местоположение Посольств Казахстана в странах Азии";

}

Меню

Выход из программы

void __fastcall TForm1::N5Click(TObject *Sender)

{

Form1->Close();

}

Справка Азиатские государства

void __fastcall TForm1::N6Click(TObject *Sender)

{

Application->HelpFile = "..\\AsiaGid\\doc\\help.hlp";

Application->HelpCommand(HELP_CONTENTS, 0);

}

Автор

void __fastcall TForm1::N4Click(TObject *Sender)

{

Form2->Show();

}

О программе

void __fastcall TForm1::N3Click(TObject *Sender)

{

Form3->Show();

}

Музыкальное сопровождение

void __fastcall TForm1::Form1Create(TObject *Sender)

{

Form1->MediaPlayer1->FileName="..\\AsiaGid\\music\\7.mp3";

Form1->MediaPlayer1->Open();

Form1->MediaPlayer1->Play();

}

Заставка программы

void __fastcall TForm1::Form1Create(TObject *Sender)

{

Form4= new TForm4(this);

Form4->ShowModal();

Form4->Free();

}

Раздел «Происхождение названия»

void __fastcall TForm11::RichEdit1Change(TObject *Sender)

{

RichEdit1->Lines->LoadFromFile("..\\AsiaGid\\doc\\25.rtf");

}

Image1=picture=Load=путь к файлу=OK

Image2=picture=Load=путь к файлу=OK

Меню

Сохранить как

void __fastcall TForm11::N7Click(TObject *Sender)

{

if(SaveDialog1->Execute())RichEdit1->Lines->SaveToFile(SaveDialog1

->FileName);

}

Печать

void __fastcall TForm11::N6Click(TObject *Sender)

{

if(PrintDialog1->Execute())RichEdit1->Print("");

}

SaveDialog:

FileName=c:\Документ.rtf

Filter=Текстовый редактор (*.rtf)

InitialDir=c:\

Выход из программы

void __fastcall TForm1::N5Click(TObject *Sender)

{

Form1->Close();

}

Справка Азиатские государства

void __fastcall TForm1::N6Click(TObject *Sender)

{

Application->HelpFile = "..\\AsiaGid\\doc\\help.hlp";

Application->HelpCommand(HELP_CONTENTS, 0);

}

Автор

void __fastcall TForm1::N4Click(TObject *Sender)

{

Form2->Show();

}

О программе

void __fastcall TForm1::N3Click(TObject *Sender)

{

Form3->Show();

}

Раздел «Государства»

Кнопка Поиск

void __fastcall TForm10::Button3Click(TObject *Sender)

{

DBGrid1->Visible=true;

ShowScrollBar(DBGrid1->Handle,SB_VERT,true);

ShowScrollBar(DBGrid1->Handle,SB_VERT,true);

AnsiString Str2;

bool dz2,m1,m2,m3;

Str2=Edit1->Text;

TLocateOptions SearchOptions;

SearchOptions<<loPartialKey<<loCaseInsensitive;

dz2=Form10->ADOTable1->Locate("Государство",Str2,SearchOptions);

m1=Form10->ADOTable1->Locate("Столица",Str2,SearchOptions);

m2=Form10->ADOTable1->Locate("Валюта",Str2,SearchOptions);

m1=Form10->ADOTable1->Locate("Телефонный код",Str2,SearchOptions);

}

Подключение базы данных

DataSource1:

DataSet=ADOTable

Enable=true

ADOConnection:

LoginPrompt=false

ConnectionString=Build=Поставщик данных=Microsoft Jet 4.0=путь к базе

Connected=true

ADOTable

Connection=ADOConnection1

Filtered=true

LockType=ltReadOnly

ReadOnly=true

TableName=государства

Active=true

DBGrid:

BorderStile=bsSingle

Color=clTeal

DataSource=DataSource1

Enable=true

ReadOnly=true

Раздел «Население»

void __fastcall TForm12::RichEdit1Change(TObject *Sender)

{

RichEdit1->Lines->LoadFromFile("..\\AsiaGid\\doc\\26.rtf");

}

Меню

Сохранить как

void __fastcall TForm11::N7Click(TObject *Sender)

{

if(SaveDialog1->Execute())RichEdit1->Lines->SaveToFile(SaveDialog1

->FileName);

}

Печать

void __fastcall TForm11::N6Click(TObject *Sender)

{

if(PrintDialog1->Execute())RichEdit1->Print("");

}

SaveDialog:

FileName=c:\Документ.rtf

Filter=Текстовый редактор (*.rtf)

InitialDir=c:\

Выход из программы

void __fastcall TForm1::N5Click(TObject *Sender)

{

Form1->Close();

}

Справка Азиатские государства

void __fastcall TForm1::N6Click(TObject *Sender)

{

Application->HelpFile = "..\\AsiaGid\\doc\\help.hlp";

Application->HelpCommand(HELP_CONTENTS, 0);

}

Автор

void __fastcall TForm1::N4Click(TObject *Sender)

{

Form2->Show();

}

О программе

void __fastcall TForm1::N3Click(TObject *Sender)

{

Form3->Show();

}

Раздел «Основные сведения»

void __fastcall TForm13::RichEdit1Change(TObject *Sender)

{

RichEdit1->Lines->LoadFromFile("..\\AsiaGid\\doc\\27.rtf");

}

Image1=picture=Load=путь к файлу=OK

Image2=picture=Load=путь к файлу=OK

Меню

Сохранить как