База данных "Учет автотранспортных средств в ГАИ ГИБДД"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
---------------------------------------------__fastcall TFR::Button2Click(TObject *Sender)
{s;AnsiString s1=", ";="";(Table1god_vip->AsString != Egod_vip_d->Text)+= "год выпуска;(Table1god_reg->AsString !=Egod_reg->Text)
{(s !="") s+=s1;+= "год регистрации" ;
}(Table1tex_pas->AsString !=Etex_pas->Text)
{(s !="") s+=s1;+= "Технический паспорт";
}(Table1svet->AsString !=Esvet->Text)
{(s !="") s+=s1;+= "цвет" ;
}(Table1fam->AsString !=Efam->Text)
{(s !="") s+=s1;+= "фамилия";
}(Table1Im->AsString !=EIm->Text)
{(s !="") s+=s1;+= "имя" ;
}(Table1otc->AsString !=Eotc->Text)
{(s !="") s+=s1;+= "отчество";
}(Table1adres->AsString !=Eadres->Text)
{(s !="") s+=s1;+= "Адрес";(Table1pol->AsString !=Epol->Text)
{(s !="") s+=s1;+= "пол";(Table1kod_avto->AsString !=Ekod_avto->Text)
{(s !="") s+=s1;+= "код авто";(Table1ser-_nom>AsString !=Eser_nom->Text)
{(s !="") s+=s1;+= "серийный номер";(Table1nom_str->AsString !=Enom_str->Text)
{(s !="") s+=s1;+= "номер страховки";(s !="")
{( Application->MessageBox(
("Действительно хотите изменить запись?"+s+"?").c_str(),
"Подтвердите изменения",
MB_YESNO+MB_ICONQUESTION)==IDYES)
{_vip->Text = Table1 god_vip ->AsString;_reg->Text = Table1god_reg->AsString;_pasp->Text = Table1tex_pasp->AsString;>Text = Table1svet->AsString;>Text = Table1fam->AsString;>Text = Table1Im->AsString;>Text = Table1otc->AsString;>Text = Table1adres->AsString;>Text = Table1pol->AsString;_avto->Text = Table1kod_avto->AsString;>Text = Table1model->AsString;_nom->Text = Table1ser_nom->AsString;_str->Text = Table1nom_str->AsString;
}
}
}
//---------------------------------------------------------------------------__fastcall TFR::Button1Click(TObject *Sender)
{->Insert();
}
//---------------------------------------------------------------------------__fastcall TFR::Button3Click(TObject *Sender)
{
if ( Application->MessageBox(
"Действительно хотите удалить запись?",
"Подтвердите решение",
MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
Table1->Delete();
}
//---------------------------------------------------------------------------__fastcall TFR::TabSheet1ContextPopup(TObject *Sender,&MousePos, bool &Handled)
{_vip->Text = Table1 god_vip ->AsString;_reg->Text = Table1god_reg->AsString;_pasp->Text = Table1tex_pasp->AsString;>Text = Table1svet->AsString;>Text = Table1fam->AsString;>Text = Table1Im->AsString;>Text = Table1otc->AsString;>Text = Table1adres->AsString;>Text = Table1pol->AsString;_avto->Text = Table1kod_avto->AsString;>Text = Table1model->AsString;_nom->Text = Table1ser_nom->AsString;_str->Text = Table1nom_str->AsString;>ItemIndex =CDKodeks->Items->IndexOf(Table2Kodeks->AsString);
}
//---------------------------------------------------------------------------__fastcall TFR::Table2AfterScroll(TDataSet *DataSet)
{_vip->Text = Table1 god_vip ->AsString;_reg->Text = Table1god_reg->AsString;_pasp->Text = Table1tex_pasp->AsString;>Text = Table1svet->AsString;>Text = Table1fam->AsString;>Text = Table1Im->AsString;>Text = Table1otc->AsString;>Text = Table1adres->AsString;>Text = Table1pol->AsString;_avto->Text = Table1kod_avto->AsString;>Text = Table1model->AsString;_nom->Text = Table1ser_nom->AsString;_str->Text = Table1nom_str->AsString;>ItemIndex =CDKodeks->Items->IndexOf(Table2Kodeks->AsString);
}
//---------------------------------------------------------------------------__fastcall TFR::Button5Click(TObject *Sender)
{s;AnsiString s1=", ";="";(Table2N_r->AsString != EN_r->Text)+= "№ раздела";(Table2Naz_r->AsString !=ENaz_r->Text)
{(s !="") s+=s1;+= "Название раздела" ;
}(Table2N_g->AsString !=EN_g->Text)
{(s !="") s+=s1;+= "№ главы";
}(Table2Naz_g->AsString !=ENaz_g->Text)
{(s !="") s+=s1;+= "Название главы" ;
}(Table2Naz_st->AsString !=ENaz_st->Text)
{(s !="") s+=s1;+= "Название статьи";
}(Table2Soder->AsString !=ESoder->Text)
{(s !="") s+=s1;+= "Содержание" ; }(Table2N_st->AsString !=EN_st->Text)
{(s !="") s+=s1;+= "№ статьи" ; }(Table2Kodeks->AsString !=CDKodeks->Text)
{(s !="") s+=s1;+= Кодекс";
}(s !="")
{( Application->MessageBox(
("Действительно хотите изменить запись?"+s+"?").c_str(),
" Подтвердите изменения ",_YESNO+MB_ICONQUESTION)==IDYES)
{->Edit();N_r->AsString = EN_r->Text;Naz_r->AsString = ENaz_r->Text;N_g->AsString = EN_g->Text;Naz_g->AsString = ENaz_g->Text;Naz_st->AsString = ENaz_st->Text;Soder->AsString = ESoder->Text;Kodeks->AsString = CDKodeks->Text;
}
}
}
//---------------------------------------------------------------------------__fastcall TFR::Button4Click(TObject *Sender)
{->Insert();
}
//---------------------------------------------------------------------------__fastcall TFR::Button6Click(TObject *Sender)
{
if ( Application->MessageBox(
" Действительно хотите удалить запись?",
" Подтвердите решение ",
MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
Table2->Delete();
}
//---------------------------------------------------------------------------__fastcall TFR::N1Click(TObject *Sender)
{>Close();
}
//---------------------------------------------------------------------------
Текст программы для формы FF
#include
#pragma hdrstop
#include "UGL.h"
#include "UF.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*FF;
//---------------------------------------------------------------------------
__fastcall TFF::TFF(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TFF::RGFClick(TObject *Sender)
{(RGF->ItemIndex==0)->Filtered = false;
{(RGF->ItemIndex==1)->Filter="N_ist='"+CBist->Text+"'";->Filter="N_st="+CBst->Text+"";->Filtered = true;
}
}
//---------------------------------------------------------------------------__fastcall TFF::ENomer_dChange(TObject *Sender)
{SearchOptions;->Locate("Nomer_d",ENomer_d->Text,<<loPartialKey<<loCaseInsensitive);
}
//---------------------------------------------------------------------------__fastcall TFF::CBistChange(TObject *Sender)
{(RGF->ItemIndex==0)->Filtered = false;
{(RGF->ItemIndex==1)->Filter="N_ist='"+CBist->Text+"'";->Filter="N_st="+CBst->Text+"";->Filtered = true;
}
}
//---------------------------------------------------------------------------__fastcall TFF::CBstChange(TObject *Sender)
{(RGF->ItemIndex==0)->Filtered = false;
{(RGF->ItemIndex==1)->Filter="N_ist='"+CBist->Text+"'";->Filter="N_st="+CBst->Text+"";->Filtered = true;
}
}
//---------------------------------------------------------------------------__fastcall TFF::EAvtorChange(TObject *Sender)
{SearchOptions;->Locate("Avtor",EAvtor->Text,<<loPartialKey<<loCaseInsensitive);
}
//---------------------------------------------------------------------------__fastcall TFF::ETerminChange(TObject *Sender)
{SearchOptions;->Locate("Termin",ETermin->Text,<<loPartialKey<<loCaseInsensitive);
}
//---------------------------------------------------------------------------__fastcall TFF::N1Click(TObject *Sender)
{>Close();
}
//---------------------------------------------------------------------------__fastcall TFF::FormCreate(TObject *Sender)
{
}
//---------------------------------------------------------------------------
Текст программы для формы FSPR
#include
#pragma hdrstop
#include "USPR.h"
#include "UGL.h"
<