; AsString=Edit3- gt; Text; - gt; IBStoredProc2- gt; ParamByName ( otchestvo ) - gt; AsString=Edit4- gt; Text; - gt; IBStoredProc2- gt; ParamByName ( ulica ) - gt; AsString=Edit5- gt; Text; - gt; IBStoredProc2- gt; ParamByName ( n_doma ) - gt; AsString=Edit6- gt; Text; - gt; IBStoredProc2- gt; ParamByName ( tel ) - gt; AsString=Edit7- gt; Text; - gt; IBStoredProc2- gt; Prepare (); - gt; IBStoredProc2- gt; ExecProc (); - gt; IBTable3- gt; Active=false; - gt; IBTable3- gt; Active=true;
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: Button3Click (TObject * Sender)
{- gt; IBStoredProc3- gt; ParamByName ( n_CHITAT ) - gt; AsString=Edit8- gt; Text; - gt; IBStoredProc3- gt; Prepare (); - gt; IBStoredProc3- gt; ExecProc (); - gt; IBTable3- gt; Active=false; - gt; IBTable3- gt; Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button5Click (TObject * Sender)
{-gt;IBTable3-gt;Active=false;-gt;IBTable3-gt;Filtered=false;-gt;IBTable3-gt;Filter=laquo;NOMER_CHITATELYA=laquo;raquo;+Edit9-gt;Text+laquo;raquo;raquo;;-gt;IBTable3-gt;Active=true;-gt;IBTable3-gt;Filtered=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button4Click (TObject * Sender)
{- gt; IBTable3- gt; Filtered=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button6Click (TObject * Sender)
{(RadioButton4- gt; Checked == true)
{DataModule2- gt; IBTable3- gt; IndexName= RDB $ PRIMARY1 raquo ;; } if (RadioButton5- gt; Checked == true)
{DataModule2- gt; IBTable3- gt; IndexName= familiya_chitatelya raquo ;; } if (RadioButton6- gt; Checked == true)
{DataModule2- gt; IBTable3- gt; IndexName= ulica raquo ;; }
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: Button7Click (TObject * Sender)
{- gt; IBStoredProc4- gt; ParamByName ( n_biblio ) - gt; AsString=Edit11- gt; Text; - gt; IBStoredProc4- gt; ParamByName ( n_otdela ) - gt ; AsString=Edit12- gt; Text; - gt; IBStoredProc4- gt; ParamByName ( familiya ) - gt; AsString=Edit13- gt; Text; - gt; IBStoredProc4- gt; ParamByName ( name ) - gt ; AsString=Edit14- gt; Text; - gt; IBStoredProc4- gt; Prepare (); - gt; IBStoredProc4- gt; ExecProc (); - gt; IBTable4- gt; Active=false; - gt; IBTable4- gt; Active =true;
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: Button8Click (TObject * Sender)
{- gt; IBStoredProc5- gt; ParamByName ( n_biblio ) - gt; AsString=Edit11- gt; Text; - gt; IBStoredProc5- gt; ParamByName ( n_otdel ) - gt ; AsString=Edit12- gt; Text; - gt; IBStoredProc5- gt; ParamByName ( familiya ) - gt; AsString=Edit13- gt; Text; - gt; IBStoredProc5- gt; ParamByName ( name ) - gt ; AsString=Edit14- gt; Text; - gt; IBStoredProc5- gt; Prepare (); - gt; IBStoredProc5- gt; ExecProc (); - gt; IBTable4- gt; Active=false; - gt; IBTable4- gt; Active =true;
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: Button9Click (TObject * Sender)
{- gt; IBStoredProc6- gt; ParamByName ( n_biblio ) - gt; AsString=Edit15- gt; Text; - gt; IBStoredProc6- gt; Prepare (); - gt; IBStoredProc6- gt; ExecProc (); - gt; IBTable4- gt; Active=false; - gt; IBTable4- gt; Active=true;
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: Button10Click (TObject * Sender)
{-gt;IBTable4-gt;Active=false;-gt;IBTable4-gt;Filtered=false;-gt;IBTable4-gt;Filter=laquo;Nomer_BIBLIOtekorya=laquo;raquo;+Edit16-gt;Text+laquo;raquo;raquo;;-gt;IBTable4-gt;Active=true;-gt;IBTable4-gt;Filtered=true;
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: Button12Click (TObject * Sender)
{(RadioButton7- gt; Checked == true)
{DataModule2- gt; IBTable4- gt; IndexName= pk_bibliotekor raquo ;; } if (RadioButton8- gt; ...
