5.1. :
1. .
2. .
3. .
4. .
5. .
6. .
1. TDataSet?
2. ?
3. .
4. Delphi 6 ?
5. .
2
1.1. : .
. . Delphi .
- : Pentium , VGA , 64 , Windows 98 , 40 Mb .
Delphi 6.
, , . . , .
Active Table1 - false. ٸ Table1 New Field. :
Name ( ) Sum.
Type ( ) , Integer.
Field Type ( ) Calculated, .
. 2.1 . , .
Table1 OnCalcFields. , . . :
procedure TDataModule1.Table1CalcFields(DataSet: TDataSet);
begin
Table1Itog.Value:=Table1Kolvo.AsInteger*Table1Price.AsInteger;
|
|
end;
, Table1 ( Name) -, . Table1kolvo, Table1price Table1Itog . , . , :
. 2.1.
AsInteger , .
AsDateTime TDateTime.
AsBoolean .
AsCurrency .
AsFloat .
AsString .
AsVariant Variant. , , , , , .
, . Value Table1Itog . AsInetger.
!!! . . . 2.2 .
, , . . Delphi , (ReadOnly).
. 2.2.
Table , . , .
Filter, Filtered FilterOptions Table. Filtered . Filter , . , Filter:
Pokupatel=
Filtered true , , Porupatel .
*. : . : =, >,>=,<,<=,<>, and, or not.
, :
(Pokupatel= )and(Itog>10000)
, , , , , . . , . 2.3.
:
procedure TForm1.Button5Click(Sender: TObject);
begin
if (RadioButton1.Checked=true) or (Edit1.Text='') then
begin
Table1.Filtered:=false;
end;
if (RadioButton2.Checked=true) and (Edit1.Text<>'') then
|
|
begin
With Table1 do
begin
Filtered:=false;
Filter:='Pokupatel='+char(39)+Edit1.text+char(39);
Filtered:=true;
end;
end;
if (RadioButton1.Checked=true) and (Edit1.Text<>'') then
begin
With Table1 do
begin
Filtered:=false;
Filter:='Prodavec='+char(39)+Edit1.text+char(39);
Filtered:=true;
end;
end;
end;
. 2.3.