Информационная система "Азиатские государства"
Разработка информационной системы, которая бы смогла предоставить достоверную информацию о государствах Азии, посольстве Казахстана в Азиатских государствах, курортах, истории Азии. Интерфейс главной формы программы, компоненты доступа к базам данных.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 03.07.2015 |
| Размер файла | 8,5 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
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 TForm8::RichEdit1Change(TObject *Sender)
{
RichEdit1->Lines->LoadFromFile("..\\AsiaGid\\doc\\24.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 TForm5::ComboBox1Change(TObject *Sender)
{
if(ComboBox1->ItemIndex==0)Image2->Picture
->LoadFromFile("..\\AsiaGid\\foto\\2.bmp");
if(ComboBox1->ItemIndex==1)Image2->Picture
->LoadFromFile("..\\AsiaGid\\foto\\7.bmp");
if(ComboBox1->ItemIndex==2)Image2->Picture
->LoadFromFile("..\\AsiaGid\\foto\\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=Выберите государство
Меню
Печать
void __fastcall TForm5::N7Click(TObject *Sender)
{
if (!Form5->PrintDialog1->Execute()) return;
int PPIx = GetDeviceCaps(Printer()->Handle, LOGPIXELSX);
int PPIy = GetDeviceCaps(Printer()->Handle, LOGPIXELSY);
int SmX = PPIx / 2, SmY = PPIy / 3;
int WInch = 10, HInch = 7; // длина
Printer ()->Orientation = poLandscape;
int x = Printer()->PageWidth;
int y = Printer()->PageHeight;
TPrinter *Prntr = Printer();
Prntr->BeginDoc();
Prntr->Canvas->Draw(10,10, Image2->Picture->Graphic);
Prntr->EndDoc();
}
Сохранить как
void __fastcall TForm11::N7Click(TObject *Sender)
{
if(SaveDialog1->Execute())RichEdit1->Lines->SaveToFile(SaveDialog1
->FileName);
}
Выход из программы
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 TForm14::RadioButton1Click(TObject *Sender)
{
if(RadioButton1->Checked==true)RichEdit1->Lines
->LoadFromFile("..\\AsiaGid\\doc\\111.rtf");
}
Южная Азия
void __fastcall TForm14::RadioButton3Click(TObject *Sender)
{
if(RadioButton3->Checked==true)RichEdit1->Lines
->LoadFromFile("..\\AsiaGid\\doc\\33.rtf");
}
Юго-Восточная Азия
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");
}
Меню
Сохранить как
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 TForm15::ComboBox1Change(TObject *Sender)
{
if(ComboBox1->ItemIndex==0)RichEdit1->Lines
->LoadFromFile("..\\AsiaGid\\posol\\6.rtf");
if(ComboBox1->ItemIndex==1)RichEdit1->Lines
->LoadFromFile("..\\AsiaGid\\posol\\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");
if(ComboBox1->ItemIndex==2)Image2->Picture
->LoadFromFile("..\\AsiaGid\\foto\\flag4.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");
Меню
Сохранить как
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 TForm9::ComboBox1Change(TObject *Sender)
{
if(ComboBox1->ItemIndex==0)RichEdit1->Lines
->LoadFromFile("..\\AsiaGid\\doc\\1.rtf");
if(ComboBox1->ItemIndex==1)RichEdit1->Lines
->LoadFromFile("..\\AsiaGid\\doc\\2.rtf");
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");
}
Меню
Сохранить как
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();
}
Размещено на Allbest.ru
Подобные документы
Проведение структурного системного анализа предметной области и разработка информационной системы "Клиника". Описание диаграмм потоков данных в информационной базе. Построение инфологической модели информационной системы. Основной интерфейс баз данных.
курсовая работа [2,1 M], добавлен 11.07.2013Определение базы данных и банков данных. Компоненты банка данных. Основные требования к технологии интегрированного хранения и обработки данных. Система управления и модели организации доступа к базам данных. Разработка приложений и администрирование.
презентация [17,1 K], добавлен 19.08.2013Разработка информационной базы данных для поликлиники, которая поможет пользователю найти информацию о любом сотруднике или пациенте. Функциональная структура предметной области. Диаграмма потоков данных (DFD-диаграмма). Поддержка целостности данных.
курсовая работа [6,7 M], добавлен 17.09.2014Проектирование приложения для автоматизации процесса страхования, которое поможет страховым агентам сократить время на работу с документацией. Разработка прикладной программы доступа к базе данных в среде Delphi. Система управления базами данных.
курсовая работа [1,2 M], добавлен 14.01.2015Разработка корпоративной информационной системы, использующей несколько баз данных, содержащих информацию о наличии товара на складе, ходе ремонта компьютерной техники и данных о персонале. Разработка инфологической и даталогической моделей базы данных.
дипломная работа [1009,2 K], добавлен 01.05.2015Разработка информационной системы для хранения информации о результатах экзаменов студентов. Описание сервисов, разработка логической и физической модели системы. Выбор системы хранения данных. Схема работы сервиса, принципы безопасности доступа.
курсовая работа [560,6 K], добавлен 09.09.2012Столовые и места быстрого питания как важный субъект рыночной инфраструктуры. Применение баз данных при обработке информации. Описание предметной области. Применение структурного подхода к проектированию информационной системы, ее архитектура и интерфейс.
курсовая работа [2,2 M], добавлен 02.06.2015Разработка системы "РЭО-ГАИ" и соответствующей ей базы данных, позволяющей документировать в электронном виде автоматизацию учета движений автомобилей. Язык SQL - стандартный язык доступа к реляционным базам данных. Структура программы и описание модулей.
курсовая работа [83,1 K], добавлен 18.08.2009Разработка информационной системы для предметной области с использованием заданных структур данных. Создание и проверка базы данных, которая позволяет вводить информацию, хранить её в файле, осуществлять поиск, модификацию, сортировку и удаление данных.
курсовая работа [240,0 K], добавлен 29.03.2016Общие понятия реляционного похода к базам данных. Разработка программы для автоматизации функций руководителя салона сотовой связи. Детализация бизнес-процессов. Интерфейс для работы пользователя. Тестирование разработанной информационной системы.
курсовая работа [2,2 M], добавлен 26.06.2012
