. 3. . C++Builder 3.0, <^'^/"  Internet________
    ^, ҫ   ,   ,           . ^        *< .             ,    ^ ,      ^^ TDatabase.    ?:-  . g.ll.
] appsiv
""1 appsrv.cp'P 3 appsrvl
-) appsi'v1cPP
- Formf1 | appstv.tlb? | apps;v_T^LB-cPP
- appsi"v2-W
- MyRlDN
] appMvJ^LcpP
Puc. 8.11.  co?cm* "^       1" TTable   :
Export Tablet  from data module Export Table2 from data module
   ' HWcHO    TTable   - (%     TProvider    i )_ ?   ,     5 ^ K   (    ). '         <         5    , . .    * ("  <%eM  -   -
      C++Builder 3.0
,         ,    Internet).
      ,  , ,     ( library),    - appsrv.tlb.  ,  -,       ,  ,      Table 1 2(, 8.12).
			
ra	appsiv-Ub		
i te	1 -' ^M^yt:;":^ ;': ' ^iiS '  ' " '''  .- :> A *,:-%1,:.:::*-.  fagC!ittch sGoOestk'-iEnuni'	*         @   :    Alias      Recotd     Unior	*$'."**'       ^  "," ">:<""''    - Module    Method  Property          .   :        -SSftS-
E	A appsiv E-J* IMyRDM :      ".                    |"."1	Attiibutes | Parameters	Flaas j Text   |
	,  r-^iEB 1     i-fiS Table!	Name:	Table2                                                                              :,
	-ft MjiRDM	.D:	I....     ....                  .   .                                          '-
		Type:	IProvider'                                                     ^         :;
		Invoke Kind         : , Help         '         - 	Property Get                                                  jj         :: ....... . .......           .... ......               ... .                       ;.
		; Help String:	::
		Help Context	i
		Help String Context	..,'.',.. .   
			....... ..... .......,._.......  .......,^__,_,  ............
. 8.12.   ,     
    h-     ,    ,    ,        :
void _fastcall TMyRDM::MyRDMCreate(TObject *Sender)
{
Forml->Label1->Caption =
IntToStr(StrToInt(Form1->Label1->Caption)+1 );
}
// -------------.----.-.--.------.----
void _fastcall TMyRDM::MyRDMDestroy(TObject *Sender)
{
Forml->Label1->Caption =
IntToStr(StrToInt(Forml->Label1->Caption)-1);
}
174
175