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

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

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

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

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

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

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

Edit3->Text = Table1Prinal->AsString;

Edit4->Text = Table1Kol_St->AsString;

Table1->Filtered = true;

Table2->Filtered = true;

  }

}

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

void __fastcall TForm1::ComboBox3Change(TObject *Sender)

{

   if (RadioGroup1->ItemIndex==0)

{ Table1->Filtered = false;  Table2->Filtered = false; }

else {

  if (RadioGroup1->ItemIndex==1)

    Table1->Filter="Nom_Zak='"+ComboBox2->Text+"'";

      else

  if (RadioGroup1->ItemIndex==2)

   {   Table2->Filter="Name_Zak='"+ComboBox3->Text+"'";

      Table1->Filter="Name_Zak='"+ComboBox3->Text+"'";

   }

else

Table1->Filter="(Kol_St>='"+IntToStr(CSpinEdit1->Value)+"')and (Kol_St<='"+IntToStr(CSpinEdit2->Value)+"')";

 

Edit1->Text = Table1Nom_Zak->AsString;

Edit2->Text = Table1Name_Zak->AsString;

Edit15->Text = Table1Data->AsString;

Edit3->Text = Table1Prinal->AsString;

Edit4->Text = Table1Kol_St->AsString;

Table1->Filtered = true;   Table2->Filtered = true;

}     

}

//--------------------------------------------------------------------------- 25

 

void __fastcall TForm1::CSpinEdit1Change(TObject *Sender)

{

   if (RadioGroup1->ItemIndex==0)

{ Table1->Filtered = false;  Table2->Filtered = false; }

else {

  if (RadioGroup1->ItemIndex==1)

    Table1->Filter="Nom_Zak='"+ComboBox2->Text+"'";

else

  if (RadioGroup1->ItemIndex==2)

   {Table2->Filter="Name_Zak='"+ComboBox3->Text+"'";

   Table1->Filter="Name_Zak='"+ComboBox3->Text+"'";  }

else

{

Table1->Filtered = false;

Table1->Filter="(Kol_St>='"+IntToStr(CSpinEdit1->Value)+"')";

Table1->Filtered = true;

Table1->First();

while(Table1->Eof)

{

Edit1->Text = Table1Nom_Zak->AsString;

Edit2->Text = Table1Name_Zak->AsString;

Edit15->Text = Table1Data->AsString;

Edit3->Text = Table1Prinal->AsString;

Edit4->Text = Table1Kol_St->AsString;

Table2->Filtered = false;

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

Table2->Filtered = true;

Edit11->Text=IntToStr(CSpinEdit2->MaxValue); 

if(Edit4->Text>Edit11->Text)

IntToStr(CSpinEdit2->MaxValue)=Edit4->Text;

Table1->Next();

}

Table1->Filter="(Kol_St>='"+IntToStr(CSpinEdit1->Value)+"')and (Kol_St<='"+IntToStr(CSpinEdit2->Value)+"')";

}

 

Edit1->Text = Table1Nom_Zak->AsString;

Edit2->Text = Table1Name_Zak->AsString;

Edit15->Text = Table1Data->AsString;

Edit3->Text = Table1Prinal->AsString;

Edit4->Text = Table1Kol_St->AsString;

Table1->Filtered = true;   Table2->Filtered = true;

  }

}

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

 

void __fastcall TForm1::CSpinEdit2Change(TObject *Sender)

{

  if (RadioGroup1->ItemIndex==0)

{ Table1->Filtered = false;  Table2->Filtered = false; } 26

else {

  if (RadioGroup1->ItemIndex==1)

    Table1->Filter="Nom_Zak='"+ComboBox2->Text+"'";

else

  if (RadioGroup1->ItemIndex==2)

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

   Table1->Filter="Name_Zak='"+ComboBox3->Text+"'";  }

else

{

  Table1->Filtered = false;

Table1->Filter="(Kol_St>='"+IntToStr(CSpinEdit1->Value)+"')";

Table1->Filtered = true;

Table1->First();

while(Table1->Eof)

{

Edit1->Text = Table1Nom_Zak->AsString;

Edit2->Text = Table1Name_Zak->AsString;

Edit15->Text = Table1Data->AsString;

Edit3->Text = Table1Prinal->AsString;

Edit4->Text = Table1Kol_St->AsString;

Table2->Filtered = false; 

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

Table2->Filtered = true;

Edit11->Text=IntToStr(CSpinEdit2->MaxValue);

if(Edit4->Text>Edit11->Text)

IntToStr(CSpinEdit2->MaxValue)=Edit4->Text;

Table1->Next();

}

Table1->Filter="(Kol_St>='"+IntToStr(CSpinEdit1->Value)+"')and (Kol_St<='"+IntToStr(CSpinEdit2->Value)+"')";

}

 

Edit1->Text = Table1Nom_Zak->AsString;

Edit2->Text = Table1Name_Zak->AsString;

Edit15->Text = Table1Data->AsString;

Edit3->Text = Table1Prinal->AsString;

Edit4->Text = Table1Kol_St->AsString;

Table1->Filtered = true;   Table2->Filtered = true;

} }

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

 

void __fastcall TForm1::ComboBox2Change(TObject *Sender)

{

  if (RadioGroup1->ItemIndex==0)

{ Table1->Filtered = false;  Table2->Filtered = false; }

else {

  if (RadioGroup1->ItemIndex==1)

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

 

     Table1->Filter="Nom_Zak='"+ComboBox2->Text+"'"; 27

                       }

else

  if (RadioGroup1->ItemIndex==2)

   {

    Table1->Filter="Name_Zak='"+ComboBox3->Text+"'";

    Table2->Filter="Name_Zak='"+ComboBox3->Text+"'";}

else

Table1->Filter="(Kol_St>='"+IntToStr(CSpinEdit1->Value)+"')and (Kol_St<='"+IntToStr(CSpinEdit2->Value)+"')";

 

Edit1->Text = Table1Nom_Zak->AsString;

Edit2->Text = Table1Name_Zak->AsString;

Edit15->Text = Table1Data->AsString;

Edit3->Text = Table1Prinal->AsString; 

Edit4->Text = Table1Kol_St->AsString;

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

Table1->Filtered = true;

Table2->Filtered = true;

}     

}

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

void __fastcall TForm1::Edit5Change(TObject *Sender)

{

    RadioGroup1->ItemIndex=0;

Table1->FindNearest(&TVarRec(Edit5->Text),0);

Edit1->Text = Table1Nom_Zak->AsString;

Edit2->Text = Table1Name_Zak->AsString;

Edit15->Text = Table1Data->AsString;

Edit3->Text = Table1Prinal->AsString;

Edit4->Text = Table1Kol_St->AsString;

Table2->Filtered = false;

Edit2->Text= Table1Name_Zak->AsString;

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

Table2->Filtered = true;    

}

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

void __fastcall TForm1::Edit6Change(TObject *Sender)

{

   RadioGroup1->ItemIndex=0;

  TLocateOptions SearchOptions;

Table1->Locate("Name_Zak",Edit6->Text,SearchOptions

<<loPartialKey<<loCaseInsensitive);

Edit1->Text = Table1Nom_Zak->AsString;

Edit2->Text = Table1Name_Zak->AsString;

Edit15->Text = Table1Data->AsString;

Edit3->Text = Table1Prinal->AsString;

Edit4->Text = Table1Kol_St->AsString;

Table2->Filtered = false;

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

Table2->Filtered = true;

 

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Form2->QuickRep1->Preview();      

} 

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

   if ( Application->MessageBox(

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

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

        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)

  Form2->QuickRep1->Print();     

}

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

 

void __fastcall TForm1::ComboBox1Change(TObject *Sender)

{

  Table1->Filtered = false;

Table1->Filter="Name_Zak='"+ComboBox1->Text+"'";

Table1->Filtered =true;

Edit1->Text = Table1Nom_Zak->AsString;

Edit2->Text = Table1Name_Zak->AsString;

Edit15->Text = Table1Data->AsString;

Edit3->Text = Table1Prinal->AsString;

Edit4->Text = Table1Kol_St->AsString;

Table2->Filtered = false;

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

Table2->Filtered = true;     

}

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

 

void __fastcall TForm1::Button3Click(TObject *Sender)

{

  Form4->QuickRep1->Preview();     

}

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

 

void __fastcall TForm1::ComboBox5Change(TObject *Sender)

{

   Table1->Filtered = false;

Table1->Filter="Data='"+ComboBox5->Text+"'";

Table1->Filtered =true;

Edit1->Text = Table1Nom_Zak->AsString;

Edit2->Text = Table1Name_Zak->AsString;

Edit15->Text = Table1Data->AsString;

Edit3->Text = Table1Prinal->AsString;

Edit4->Text = Table1Kol_St->AsString; 29

Table2->Filtered = false;

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

Table2->Filtered = true;    

}

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

 

void __fastcall TForm1::TabSheet1ContextPopup(TObject *Sender,

      TPoint &MousePos, bool &Handled)

{

  Edit7->Text = Table1Nom_Zak->AsString;

Edit8->Text = Table1Name_Zak->AsString;

Edit16->Text = Table1Data->AsString;

Edit9->Text = Table1Prinal->AsString;

Edit10->Text = Table1Kol_St->AsString;

 

Edit12->Text = Table2Nom_St->AsString;

Edit13->Text = Table2Name_St->AsString;

Edit14->Text = Table2Soderganie->AsString;

Table2->Filtered = false;

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

Table2->Filtered = true;     

}

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

 

void __fastcall TForm1::Button11Click(TObject *Sender)

{

    RadioGroup1->ItemIndex=0;

     if (RadioGroup1->ItemIndex==0)

{ Table1->Filtered = false;  Table2->Filtered = false; }

else {

  if (RadioGroup1->ItemIndex==1)

   {

       Table1->Filter="Nom_Zak='"+ComboBox2->Text+"'";

       Edit2->Text= Table1Name_Zak->AsString;

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

         }

else

  if (RadioGroup1->ItemIndex==2)

   {

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

 

    Table2->Filter="Name_Zak='"+ComboBox3->Text+"'";}

else

Table1->Filter="(Kol_St>='"+IntToStr(CSpinEdit1->Value)+"')and (Kol_St<='"+IntToStr(CSpinEdit2->Value)+"')";

Table1->Filtered = true;   Table2->Filtered = true;

Edit1->Text = Table1Nom_Zak->AsString;

Edit2->Text = Table1Name_Zak->AsString;

Edit15->Text = Table1Data->AsString;

Edit3->Text = Table1Prinal->AsString; 30

Edit4->Text = Table1Kol_St->AsString;

}    

}

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

 

void __fastcall TForm1::Button4Click(TObject *Sender)

{

   AnsiString s;

const AnsiString s1=", ";

s="";

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

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

        s+= "Название закона" ;

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

        s+= "Дата принятия";

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

        s+= "Кем принят";

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

        s+= "Количество статей";

           if (s !="")

           {

    if ( Application->MessageBox(

        ("Хотите ввести данные о  новом законе: "+s+"?").c_str(),

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

        MB_YESNO+MB_ICONQUESTION)==IDYES)

        {

        Table1->Insert();

          Edit1->Text ="";

        Edit2->Text ="";

        Edit3->Text ="";

        Edit4->Text ="";

        Edit15->Text ="";

   Edit7->Text="";

   Edit8->Text="";

   Edit9->Text="";

   Edit10->Text="";

   Edit16->Text="";

   Edit12->Text ="";

        Edit13->Text ="";

        Edit14->Text ="";

        Edit10->Text="0";

        Table1Nom_Zak->AsString = Edit7->Text;

        Table1Name_Zak->AsString =Edit8->Text;

        Table1Data->AsString =Edit16->Text;

        Table1Prinal->AsString =Edit9->Text;

        Table1Kol_St->AsString =Edit10->Text;

         Table1->Edit();

         Edit12->Text=1;

          Table2->Filtered=false;

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

           Table2->Filtered=true;

 

               }

 

 

   }     

}

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

 

void __fastcall TForm1::Button5Click(TObject *Sender)

{

  AnsiString s,a;

const AnsiString s1=", ";

s="";

if (Table1Nom_Zak->AsString != Edit7->Text)

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

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

{

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

        s+= "Название закона" ;

}

if    (Table1Data->AsString !=Edit16->Text)

{

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

        s+= "Дата принятия";

  }

if  (Table1Prinal->AsString !=Edit9->Text)

{

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

        s+= "Кем принят";

  }

   if  (Table1Kol_St->AsString !=Edit10->Text)

{

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

        s+= "Количество статей";

       }

 

    if (s !="")

  {   

    if ( Application->MessageBox(

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

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

        MB_YESNO+MB_ICONQUESTION)==IDYES)

        {

        Table1->Edit();

         Edit1->Text=Edit7->Text;

         Edit2->Text=Edit8->Text;

         Edit15->Text=Edit16->Text;

         Edit3->Text=Edit9->Text;

         Edit4->Text=Edit10->Text; 32

        Table1Nom_Zak->AsString = Edit7->Text;

        Table1Name_Zak->AsString =Edit8->Text;

        Table1Data->AsString =Edit16->Text;

        Table1Prinal->AsString =Edit9->Text;

        Table1Kol_St->AsString =Edit10->Text;

         Table2->Insert();

         Table2Name_Zak->AsString =Edit8->Text;

        Table2Nom_St->AsString =Edit12->Text;

        Table2Name_St->AsString=Edit13->Text;

        Table2Soderganie->AsString =Edit14->Text;

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

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

         Table1Kol_St->AsString =Edit4->Text;

         Table1Nom_Zak->AsString = Edit7->Text;

        Table1Name_Zak->AsString =Edit8->Text;

        Table1Data->AsString =Edit16->Text;

        Table1Prinal->AsString =Edit9->Text;

        Table1Kol_St->AsString =Edit10->Text;

        Table1->First();

         Edit11->Text=0;

        while(!Table1->Eof)

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

        Table1->Next();

 

           }            } }

              Table1->Next();

              Table1->Prior();

             Table2->Filtered=false;

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

           Table2->Filtered=true;

            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;

 

      

}

//--------------------------------------------------------------------------- 33

 

void __fastcall TForm1::Button7Click(TObject *Sender)

{

    if ( Application->MessageBox(

        ("Хотите ввести данные о  новой статье:"),

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

        MB_YESNO+MB_ICONQUESTION)==IDYES)

        {

        Table2->Insert();

        Edit12->Text ="";

        Edit13->Text ="";

        Edit14->Text ="";

 

              }    

}

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

 

void __fastcall TForm1::Button8Click(TObject *Sender)

{

  AnsiString s,a;

const AnsiString s1=", ";

s="";

 

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

{

       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 = Edit2->Text;

         Table2Nom_St->AsString =Edit12->Text;

         Table2Name_St->AsString=Edit13->Text;

         Table2Soderganie->AsString =Edit14->Text; 34

 

         Table1->Edit();

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

         Table1Kol_St->AsString =Edit4->Text;

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

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