Учёт в экологическом законодательстве (База данных)

Автор работы: Пользователь скрыл имя, 09 Января 2013 в 11:50, курсовая работа

Краткое описание

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

Скачать в ZIP архиве (184.42 Кб) Сколько стоит заказать работу?
Вложенные файлы: 1 файл

Курсовая по БД Эмин 2.doc

— 392.00 Кб (Скачать файл)

          Table1->Next();Table1->Prior();

          }

 

        }      

}

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

 

void __fastcall TForm1::Button9Click(TObject *Sender)

{

if(Edit4->Text!=1)

{

if ( Application->MessageBox(

        "Действительно хотите удалить статью?",

        "Подтвердите решение",

        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)

       { Table2->Delete();

        Table1->Edit();

         Edit4->Text=StrToInt(Edit4->Text)-1;

         Table1Kol_St->AsString =Edit4->Text;

         Edit10->Text=StrToInt(Edit10->Text)-1;

         Table1->Next();

         Table1->Prior();

          Edit12->Text = Table2Nom_St->AsString;

Edit13->Text = Table2Name_St->AsString;

Edit14->Text = Table2Soderganie->AsString;

}  }else

 

if ( Application->MessageBox(

        "Нельзя удалять!",

        "Подтвердите решение",

        MB_YESNO)==IDYES);

      

}

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

 

void __fastcall TForm1::Button10Click(TObject *Sender)

{

AnsiString s,a;

const AnsiString s1=", ";

s="";

if (Table2Name_Zak->AsString != Edit8->Text)

        s= "Номер закона";

if    (Table2Nom_St->AsString !=Edit12->Text)

{

        if (s !="") s+=s1; 35

        s+= "Номер статьи";

  }

if  (Table2Name_St->AsString !=Edit13->Text)

{

        if (s !="") s+=s1;

        s+= "Название статьи";

  }

   if  (Table2Soderganie->AsString !=Edit14->Text)

{

        if (s !="") s+=s1;

        s+= "Содержание стаьи";

       }

 

    if (s !="")

  {

 

  if ( Application->MessageBox(

        ("Действительно хотите изменить данные о статье?"+s+"?").c_str(),

        "Подтвердите изменение",

        MB_YESNO+MB_ICONQUESTION)==IDYES)

        {Table2->Edit();

         Table2Name_Zak->AsString = Edit8->Text;

         Table2Nom_St->AsString =Edit12->Text;

         Table2Name_St->AsString=Edit13->Text;

         Table2Soderganie->AsString =Edit14->Text;

          Table2->Next();

          Table2->Prior();

                           }

 

        }      

}

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

 

void __fastcall TForm1::Button13Click(TObject *Sender)

{

  Table1->Insert();     

}

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

 

void __fastcall TForm1::Button14Click(TObject *Sender)

{

Table2->Insert();      

}

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

 

void __fastcall TForm1::Button15Click(TObject *Sender)

{

   RadioGroup1->ItemIndex==0;

ComboBox2->Clear();

ComboBox3->Clear(); 36

Table1->First();

while(!Table1->Eof)

{

    ComboBox2->Items->Add(Table1Nom_Zak->AsString);

    ComboBox3->Items->Add(Table1Name_Zak->AsString);

       Table1->Next();

   }

    ComboBox2->ItemIndex=-1;

    ComboBox3->ItemIndex=-1;

    Table1->First();     

}

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

 

void __fastcall TForm1::Button16Click(TObject *Sender)

{

RadioGroup1->ItemIndex==0;

ComboBox1->Clear();

ComboBox5->Clear();

 

Table1->First();

while(!Table1->Eof)

{

    ComboBox1->Items->Add(Table1Nom_Zak->AsString);

 

    ComboBox5->Items->Add(Table1Data->AsString);

 

       Table1->Next();

   }

    ComboBox1->ItemIndex=-1;

 

    ComboBox5->ItemIndex=-1;

   

        Table1->First();      

}

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

 

void __fastcall TForm1::Button17Click(TObject *Sender)

{

  if ( Application->MessageBox(

        "Вывести на просмотр?",

                "Подтвердите решение",

        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)

{Form5->QuickRep1->Preview();ComboBox5->ItemIndex=-1;}

  ComboBox5->ItemIndex=-1;     

}

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

 

void __fastcall TForm1::Button18Click(TObject *Sender)

{

  if ( Application->MessageBox( 37

        "Вывести на пeчать?",

                "Подтвердите решение",

        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)

        {Form5->QuickRep1->Print(); ComboBox5->ItemIndex=-1;}

        ComboBox5->ItemIndex=-1;     

}

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

 

void __fastcall TForm1::Button19Click(TObject *Sender)

{

  if ( Application->MessageBox(

        "Вывести на просмотр?",

        "Подтвердите решение",

        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)

{Form3->QuickRep1->Preview();

ComboBox1->ItemIndex=-1;}

ComboBox1->ItemIndex=-1;     

}

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

 

void __fastcall TForm1::Button20Click(TObject *Sender)

{

   if ( Application->MessageBox(

        "Печатать?",

        "Подтвердите решение",

        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)

{ Form3->QuickRep1->Print(); ComboBox1->ItemIndex=-1; }

  ComboBox1->ItemIndex=-1;    

}

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

 

void __fastcall TForm1::Button12Click(TObject *Sender)

{

   Table1->First();

         Edit11->Text=0;

        while(!Table1->Eof)

        { Edit11->Text=StrToInt(Edit11->Text)+1;

        Table1->Next();

                  }

Table1->First();

Edit1->Text = Table1Nom_Zak->AsString;

Edit2->Text = Table1Name_Zak->AsString;

Edit15->Text = Table1Data->AsString;

Edit3->Text = Table1Prinal->AsString;

Edit4->Text = Table1Kol_St->AsString;

Edit7->Text = Table1Nom_Zak->AsString;

Edit8->Text = Table1Name_Zak->AsString;

Edit16->Text = Table1Data->AsString;

Edit9->Text = Table1Prinal->AsString;

Edit10->Text = Table1Kol_St->AsString; 38

   Table2->Filtered=false;

         Table2->Filter="Name_Zak='"+Edit2->Text+"'";

           Table2->Filtered=true;

       Edit12->Text = Table2Nom_St->AsString;

Edit13->Text = Table2Name_St->AsString;

Edit14->Text = Table2Soderganie->AsString;    

}

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

 

 

 

void __fastcall TForm1::Button6Click(TObject *Sender)

{

 

   Table1->First();

         Edit11->Text=0;

        while(!Table1->Eof)

        { Edit11->Text=StrToInt(Edit11->Text)+1;

        Table1->Next();

                  }

Table1->First();

if(Edit11->Text>1)

   {

  if ( Application->MessageBox(

        "Действительно хотите удалить  запись?",

        "Подтвердите решение",

        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)

       {

       Table1->First();

       while(Table1->Eof)

        {

         Table2->Delete();

        Table1->Edit();

         Edit4->Text=StrToInt(Edit4->Text)-1;

         Table1Kol_St->AsString =Edit4->Text;

         Edit10->Text=StrToInt(Edit10->Text)-1;

        }

                             Table1->Delete();

            Table1->Next();

   Table1->Prior();

        Edit1->Text ="";

        Edit2->Text ="";

        Edit3->Text ="";

        Edit4->Text ="";

        Edit15->Text ="";

          Edit7->Text="";

   Edit8->Text="";

   Edit9->Text="";

   Edit10->Text="";

   Edit16->Text=""; 39

   Table1->First();

     Edit11->Text=1;

        while(!Table1->Eof)

        {

        Edit11->Text=StrToInt(Edit11->Text)+1;

          Table1->Next();

 

          }

       Edit11->Text=StrToInt(Edit11->Text)-1;

 

 

   Table1->Next();

   Table1->Prior();

    Edit1->Text = Table1Nom_Zak->AsString;

Edit2->Text = Table1Name_Zak->AsString;

Edit15->Text = Table1Data->AsString;

Edit3->Text = Table1Prinal->AsString;

Edit4->Text = Table1Kol_St->AsString;

Edit7->Text = Table1Nom_Zak->AsString;

Edit8->Text = Table1Name_Zak->AsString;

Edit16->Text = Table1Data->AsString;

Edit9->Text = Table1Prinal->AsString;

Edit10->Text = Table1Kol_St->AsString;

   Table2->Filtered=false;

         Table2->Filter="Name_Zak='"+Edit2->Text+"'";

           Table2->Filtered=true;

       Edit12->Text = Table2Nom_St->AsString;

Edit13->Text = Table2Name_St->AsString;

Edit14->Text = Table2Soderganie->AsString;

 

 

  }

 

         } else

          if ( Application->MessageBox(

        "Невозможно удалить?",

        "Подтвердите решение",

        MB_YESNO+MB_ICONEXCLAMATION)==IDYES);

 

}

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

 

 

 

 

 

 

40

 

Заключение

В данном курсовом проекте я ознакомился  с возможностями C++ Builder. Данная программа предназначена для организации модели автоматизированной системы «Экологические законы». В данной программе я попыталась учесть  наиболее важные моменты,  связанные с экологическими законами. Результатом выполнения программы является выдача информации о законах , с которыми сталкиваются все люди. Информация выводится :

  • на принтер;
  • на экран.

Такого рода программы  очень распространены на сегодняшний  день.

 

 

Список  литературы.

  1. Курс лекций по дисциплине “Базы данных” 
  2. “Использование и проектирование базы данных” Диго С.М.
  3. Хеннер Е.К., Могилев А.В., Пак Н.И. «Информатика». М.: «Учебное пособие для                                                                студентов пед. вузов», 1999 г.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

41


Информация о работе Учёт в экологическом законодательстве (База данных)