blio) ;; INTO knigi (knigi. nomer_otdela, knigi. nazvanie_knigi, knigi. kol_vo_stranic, knigi. avtor) (: n_otdela ,: new_nazvanie ,: kol_vo_stranic ,: avtor) ;; FROM vida4a_knig (nomer_zapisi =: n_zapisi); FROM otdel_knig (nomer_otdela =: n_otdela); FROM knigi (nomer_knigi =: n_knigi); FROM bibliotekor (nomer_bibliotekorya =: n_biblio); FROM chitatel (nomer_CHITATELYA =: n_CHITAT ); chitatelnomer_chitatelya =: n_chit, _doma =: n_doma, _chitatelya =: familiya, _chitatelya =: name, =: otchestvo, =: ulica, =: tel (nomer_chitatelya =: n_chit); sqlcode - 530 dokey_ne_ice; bibliotekornomer_bibliotekorya =: n_biblio, _otdela =: n_otdela, familiya_bibliotekorya =: familiya, _bibliotekorya =: name (nomer_bibliotekorya =: n_biblio); vida4a_knignomer_zapisi =: n_zapisi, _knigi =: n_knigi, _chitatelya =: n_chit, _bibliotekorya =: n_biblio, _vyda4i_knigi =: data_vyd, _vozvrata_knigi =: data_vozvr (nomer_zapisi =: n_zapisi); sqlcode - 530 dokey_ne_ice; otdel_knignazvanie_otdela =: name_ot, _otdela =: n_otel, _vo_knig =: kol_knig, _bibliotekorya =: n_biblio, =: tel (nomer_otdela =: n_otel); sqlcode - 530 dokey_ne_ice; (: KOL_VO_STRANIC lt ;=0) then exception stranicy; kniginomer_knigi =: n_knigi, _otdela =: n_otdela, nazvanie_knigi =: new_nazvanie, _vo_stranic =: kol_vo_stranic, =: avtor (nomer_knigi =: N_KNIGI); sqlcode - 530 dokey_ne_ice;
Домени
CREATE DOMAIN D_ADRES AS (40) CHARACTER SET WIN1251NULLWIN1251; DOMAIN D_DATETYPE ASNULL; DOMAIN D_INDEXTYPE ASNULL; ON DOMAIN D_INDEXTYPE IS
VALUE gt; 0 raquo ;;
CREATE DOMAIN D_NAME AS (45) CHARACTER SET WIN1251NULLWIN1251; DOMAIN D_TEL AS (15) CHARACTER SET WIN1251WIN1251;
Додаток 2. Лістинг клієнтського застосування
//---------------------------------------------------------------------------
# include lt; vcl. h gt;
# pragma hdrstop
# include Unit1. h
# include Unit2. h
# include Unit3. h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form1;
//---------------------------------------------------------------------------
__ fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: Edit1Change (TObject * Sender)
{(RadioButton1- gt; Checked == true)
{Set lt; TLocateOption, 0,1 gt; flags; lt; lt; loPartialKey; (! DataModule2- gt; IBTable2- gt; IsEmpty ()) - gt; IBTable2- gt; Locate ( nomer_knigi raquo ;, Edit1- gt; Text, flags); } (RadioButton2- gt; Checked == true)
{Set lt; TLocateOption, 0,1 gt; flags; lt; lt; loPartialKey; (! DataModule2- gt; IBTable2- gt; IsEmpty ()) - gt; IBTable2- gt; Locate ( nazvanie_knigi raquo ;, Edit1- gt; Text, flags); } (RadioButton3- gt; Checked == true)
{Set lt; TLocateOption, 0,1 gt; flags; lt; lt; loPartialKey; (! DataModule2- gt; IBTable2- gt; IsEmpty ()) - gt; IBTable2- gt; Locate ( avtor raquo ;, Edit1- gt; Text, flags); }
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: Button1Click (TObject * Sender)
{- gt; IBStoredProc1- gt; ParamByName ( familiya ) - gt; AsString=Edit2- gt; Text; - gt; IBStoredProc1- gt; ParamByName ( name ) - gt ; AsString=Edit3- gt; Text; - gt; IBStoredProc1- gt; ParamByName ( otchestvo ) - gt; AsString=Edit4- gt; Text; - gt; IBStoredProc1- gt; ParamByName ( ulica ) - gt ; AsString=Edit5- gt; Text; - gt; IBStoredProc1- gt; ParamByName ( n_doma ) - gt; AsString=Edit6- gt; Text; - gt; IBStoredProc1- gt; ParamByName ( tel ) - gt ; AsString=Edit7- gt; Text; - gt; IBStoredProc1- gt; ParamByName ( n_chit ) - gt; AsString=Edit10- gt; Text; - gt; IBStoredProc1- gt; Prepare (); - gt; IBStoredProc1- gt; ExecProc (); - gt; IBTable3- gt; Active=false; - gt; IBTable3- gt; Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1 :: Button2Click (TObject * Sender)
{- gt; IBStoredProc2- gt; ParamByName ( familiya ) - gt; AsString=Edit2- gt; Text; - gt; IBStoredProc2- gt; ParamByName ( name ) - gt...
