Checked == true)
{DataModule2- gt; IBTable4- gt; IndexName= fam raquo ;; }
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button11Click (TObject * Sender)
{- gt; IBTable4- gt; Filtered=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button13Click (TObject * Sender)
{- gt; IBStoredProc7- gt; ParamByName ( n_knigi ) - gt; AsString=Edit17- gt; Text; - gt; IBStoredProc7- gt; ParamByName ( n_otdela ) - gt ; AsString=Edit18- gt; Text; - gt; IBStoredProc7- gt; ParamByName ( new_nazvanie ) - gt; AsString=Edit19- gt; Text; - gt; IBStoredProc7- gt; ParamByName ( kol_vo_stranic ) - gt ; AsString=Edit20- gt; Text; - gt; IBStoredProc7- gt; ParamByName ( avtor ) - gt; AsString=Edit21- gt; Text; - gt; IBStoredProc7- gt; Prepare (); - gt; IBStoredProc7- gt; ExecProc (); - gt; IBTable5- gt; Active=false; - gt; IBTable5- gt; Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button14Click (TObject * Sender)
{
DataModule2- gt; IBStoredProc8- gt; ParamByName ( n_otdela ) - gt; AsString=Edit18- gt; Text; - gt; IBStoredProc8- gt; ParamByName ( new_nazvanie ) - gt ; AsString=Edit19- gt; Text; - gt; IBStoredProc8- gt; ParamByName ( kol_vo_stranic ) - gt; AsString=Edit20- gt; Text; - gt; IBStoredProc8- gt; ParamByName ( avtor ) - gt ; AsString=Edit21- gt; Text; - gt; IBStoredProc8- gt; Prepare (); - gt; IBStoredProc8- gt; ExecProc (); - gt; IBTable5- gt; Active=false; - gt; IBTable5- gt; Active =true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button15Click (TObject * Sender)
{- gt; IBStoredProc9- gt; ParamByName ( n_knigi ) - gt; AsString=Edit22- gt; Text; - gt; IBStoredProc9- gt; Prepare (); - gt; IBStoredProc9- gt; ExecProc (); - gt; IBTable5- gt; Active=false; - gt; IBTable5- gt; Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button16Click (TObject * Sender)
{(RadioButton9- gt; Checked == true)
{DataModule2- gt; IBTable5- gt; IndexName= pk_knigi raquo ;; } if (RadioButton10- gt; Checked == true)
{DataModule2- gt; IBTable5- gt; IndexName= _kniga raquo ;; }
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button17Click (TObject * Sender)
{- gt; IBStoredProc10- gt; ParamByName ( name_ot ) - gt; AsString=Edit23- gt; Text; - gt; IBStoredProc10- gt; ParamByName ( n_otel ) - gt ; AsString=Edit24- gt; Text; - gt; IBStoredProc10- gt; ParamByName ( kol_knig ) - gt; AsString=Edit25- gt; Text; - gt; IBStoredProc10- gt; ParamByName ( tel ) - gt ; AsString=Edit26- gt; Text; - gt; IBStoredProc10- gt; ParamByName ( n_biblio ) - gt; AsString=Edit27- gt; Text; - gt; IBStoredProc10- gt; Prepare (); - gt; IBStoredProc10- gt; ExecProc (); - gt; IBTable6- gt; Active=false; - gt; IBTable6- gt; Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button20Click (TObject * Sender)
{(RadioButton11- gt; Checked == true)
{DataModule2- gt; IBTable6- gt; IndexName= pk_otdel_knig raquo ;; } if (RadioButton12- gt; Checked == true)
{DataModule2- gt; IBTable6- gt; IndexName= nazv raquo ;; }
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button18Click (TObject * Sender)
{- gt; IBStoredProc11- gt; ParamByName ( nazvanie ) - gt; AsString=Edit23- gt; Text; - gt; IBStoredProc11- gt; ParamByName ( kol_knig ) - gt ; AsString=Edit25- gt; Text; - gt; IBStoredProc11- gt; ParamByName ( telefon ) - gt; AsString=Edit26- gt; Text; - gt; IBStoredProc11- gt; ParamByName ( n_biblio ) - gt ; AsString=Edit27- gt; Text; - gt; IBStoredProc11- gt; Prepare (); - gt; IBStoredProc11- gt; ExecPro...
