c (); - gt; IBTable6- gt; Active=false; - gt; IBTable6- gt; Active =true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button19Click (TObject * Sender)
{- gt; IBStoredProc12- gt; ParamByName ( n_otdela ) - gt; AsString=Edit28- gt; Text; - gt; IBStoredProc12- gt; Prepare (); - gt; IBStoredProc12- gt; ExecProc (); - gt; IBTable6- gt; Active=false; - gt; IBTable6- gt; Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button21Click (TObject * Sender)
{- gt; IBStoredProc13- gt; ParamByName ( n_zapisi ) - gt; AsString=Edit29- gt; Text; - gt; IBStoredProc13- gt; ParamByName ( n_knigi ) - gt ; AsString=Edit30- gt; Text; - gt; IBStoredProc13- gt; ParamByName ( n_biblio ) - gt; AsString=Edit31- gt; Text; - gt; IBStoredProc13- gt; ParamByName ( n_chit ) - gt ; AsString=Edit32- gt; Text; - gt; IBStoredProc13- gt; ParamByName ( data_vyd ) - gt; AsString=Edit33- gt; Text; - gt; IBStoredProc13- gt; ParamByName ( data_vozvr ) - gt ; AsString=Edit34- gt; Text; - gt; IBStoredProc13- gt; Prepare (); - gt; IBStoredProc13- gt; ExecProc (); - gt; IBTable7- gt; Active=false; - gt; IBTable7- gt; Active =true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button22Click (TObject * Sender)
{- gt; IBStoredProc14- gt; ParamByName ( n_zapisi ) - gt; AsString=Edit29- gt; Text; - gt; IBStoredProc14- gt; ParamByName ( n_knigi ) - gt ; AsString=Edit30- gt; Text; - gt; IBStoredProc14- gt; ParamByName ( n_biblio ) - gt; AsString=Edit31- gt; Text; - gt; IBStoredProc14- gt; ParamByName ( n_4itatelya ) - gt ; AsString=Edit32- gt; Text; - gt; IBStoredProc14- gt; ParamByName ( data_vyd ) - gt; AsString=Edit33- gt; Text; - gt; IBStoredProc14- gt; ParamByName ( data_vozv ) - gt ; AsString=Edit34- gt; Text; - gt; IBStoredProc14- gt; Prepare (); - gt; IBStoredProc14- gt; ExecProc (); - gt; IBTable7- gt; Active=false; - gt; IBTable7- gt; Active =true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button23Click (TObject * Sender)
{- gt; IBStoredProc15- gt; ParamByName ( n_zapisi ) - gt; AsString=Edit35- gt; Text; - gt; IBStoredProc15- gt; Prepare (); - gt; IBStoredProc15- gt; ExecProc (); - gt; IBTable7- gt; Active=false; - gt; IBTable7- gt; Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Edit36Change (TObject * Sender)
{(RadioButton13- gt; Checked == true)
{Set lt; TLocateOption, 0,1 gt; flags; lt; lt; loPartialKey; (! DataModule2- gt; IBTable7- gt; IsEmpty ()) - gt; IBTable7- gt; Locate ( nomer_zapisi raquo ;, Edit36- gt; Text, flags); } (RadioButton14- gt; Checked == true)
{Set lt; TLocateOption, 0,1 gt; flags; lt; lt; loPartialKey; (! DataModule2- gt; IBTable7- gt; IsEmpty ()) - gt; IBTable7- gt; Locate ( nomer_chitatelya raquo ;, Edit36- gt; Text, flags); }
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button24Click (TObject * Sender)
{(RadioButton15- gt; Checked == true)
{DataModule2- gt; IBTable7- gt; IndexName= pk_vida4a_knig raquo ;; } if (RadioButton16- gt; Checked == true)
{DataModule2- gt; IBTable7- gt; IndexName= fk_vida4a_knig_1 raquo ;; }
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button25Click (TObject * Sender)
{- gt; QuickRep1- gt; Preview ();
}
//-------------------------------------------------------------------
Додаток 3. Створення Web-додатки
Лістинг 3.1.html-файл index.html
lt; html gt;
lt; head gt;
lt; title gt; Бібліотека lt;/title gt;
lt;/head gt;
lt; body background=4.jpg gt;
...
