. ,
:
1) 䳿 ;
TTable, ( ).
3) :
) ;
) , .
) TDBGrid, .
ϳ ( ). : Table1 D ' ' Table1D TDateField( TField).
:
1) DisplayLabel, DisplayName(RO) ;
2) DisplayWidth ;
3) DisplayFormat ;
4) EditMask (), . ( ;).
( ):
< - ;
> - ;
Lt;> . \ - , . , \< <.
L , l ;
A- , a , ;
C- - , c- - ;
0 - ;
9 - ;
,
+.
1 0 ( ).
, ( ).
DisplayValue , . , ;, true, , false .
6) DisplayText( ),Text( ),Value - .
'
' .
' . ' . , Table2, ' S, ' ' Table2S. ' , , ' , .
|
|
Table ( Query). Table Database TableName, Query - Database SQL. '- . . '- (Add All Fields), Visible.
, , , - .
' (), ( ). , ( :Calculated). . DisplayLabel . ϳ (). Table1 ' 䳿 OnCalcFields( ). 䳿.
. , : s<49, s>=49 and s<60, s>=60. , , ' R , ' DisplayLabel=ϳ R DisplayWidth=12 . :
Var v:real;
begin
v:=StrToFloat(Table1.FieldByName('S').Value);
if v<49 Then Table1R.Value:=''
else if (v>=49)AND(v<60) Then Table1R.Value:=''
else Table1.FieldByName('r').Value:='';
, : Table1R.Value (' Table+' - '). , ( OnCalcFields) , ).
OnCalcFields , , , , .