ИС карта Байкала

Содержание
Введение 3
Анализ предметной области 4
Схема базы данных (структура, физическая или логическая модель базы данных) 5
Реализация проекта (главные окна информационной системы) 9
Заключение 14
Приложения 15
Список литературы 28
Создание базы данных 6

h>
#pragma hdrstop
#include "Unit3.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormShow(TObject *Sender)
{
//добавление записей в список достопримечательностей
ComboBox1->Items->Clear();
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select distinct name3 from table2");
Query1->Open();
Query1->First();
for(int i = 0; i<=(Query1->RecordCount - 1);i++)
{
ComboBox1->Items->Add(Query1->FieldByName("name3")->AsString);
Query1->Next();
}
Query1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
//добавление файла с изображением
OpenDialog1->Execute();
Edit1->Text=OpenDialog1->FileName.c_str();
AnsiString s = Edit1->Text;
AnsiString s1 = ExtractFilePath(Application->ExeName)+"img\\"+Form1->ComboBox1->Text+"_"+Form1->ComboBox2->Text+"_"+ComboBox1->Text+".jpg";
//копируется файл и меняется имя, третий параметр - false, существующий файл затирается
CopyFile(s.c_str(), s1.c_str(),false);
}
//---------------------------------------------------------------------------
void __fastcall TForm3::BitBtn2Click(TObject *Sender)
{
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select * from table3 where name1='"+Form1->ComboBox1->Text+"' and name2='"+Form1->ComboBox2->Text+"' and name3='"+ComboBox1->Text+"'");
Query1->Open();
if(Query1->RecordCount!=0)
{
ShowMessage("Достопримечательность уже отмечена на маршруте. Данные будут обновлены.");
}
else
{
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("insert into table3 values ('"+Form1->ComboBox1->Text+"','"+Form1->ComboBox2->Text+"','"+ComboBox1->Text+"','"+Form1->ComboBox1->Text+"_"+Form1->ComboBox2->Text+"_"+ComboBox1->Text+".jpg"+"')");
ShowMessage(Query1->SQL->Text);
Query1->ExecSQL();
}
}
//---------------------------------------------------------------------------
Unit4.сpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::BitBtn1Click(TObject *Sender)
{
//добавление файла с изображением
OpenDialog1->Execute();
Edit2->Text=OpenDialog1->FileName.c_str();
AnsiString s = Edit2->Text;
AnsiString s1 = ExtractFilePath(Application->ExeName)+"img\\"+Edit1->Text+".jpg";
//копируется файл и меняется имя, третий параметр - false, существующий файл затирается
CopyFile(s.c_str(), s1.c_str(),false);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::BitBtn2Click(TObject *Sender)
{
//добавление файла с изображением
OpenDialog1->Execute();
Edit3->Text=OpenDialog1->FileName.c_str();
AnsiString s = Edit3->Text;
AnsiString s1 = ExtractFilePath(Application->ExeName)+"img\\"+Edit1->Text+"_map.jpg";
//копируется файл и меняется имя, третий параметр - false, существующий файл затирается
CopyFile(s.c_str(), s1.c_str(),false);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::BitBtn3Click(TObject *Sender)
{
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select * from table2 where name3='"+Edit1->Text+"'");
Query1->Open();
if(Query1->RecordCount!=0)
{
ShowMessage("Достопримечательность уже есть в базе. Данные будут обновлены.");
}
else
{
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("insert into table2 values ('"+Edit1->Text+"','"+Edit1->Text+".jpg','"+Edit1->Text+"_map.jpg')");
ShowMessage(Query1->SQL->Text);
Query1->ExecSQL();
}
}
//---------------------------------------------------------------------------
Список литературы
Аткинсон Леон MySQL. Библиотека профессионала.: Пер. с англ. -М.: “Вильяме”,2002, -624 c.
Послед Б.С. Builder C++ Builder 6. Разработка приложений баз данных. -СПб: ООО”ДиаСофтЮП”,2003, -320 с.
28
Table1
Map(varchar(30)
Map(varchar(30)
(PK)Name1(varchar(30))
(PK)Name2(varchar(30))
Time (int)
Map(varchar(30)
Photo(varchar(30))
(PK)Name3(varchar(30))
Table2
(PK)Name3(varchar(30))
(PK)Name2(varchar(30))
(PK)Name1(varchar(30))
Table3
Карта
Название (достопримечательности)
Название (куда)
Название(от куда)
Маршрут_Достопримечательность
Карта
Фото достопримечательности
Название (достопримечательности)
Достопримечательности
Карта
Время
Название (куда)
Название(от куда)
Экскурсионные маршруты