ә ө қ , ң ң ө қғ . ң ө ү String Filter қ қ.
ө ө .
Oklad <= 20000
Post = OR Post =
ө өң ә 20000 қ . ө қ ө ә ұ қ .
ә ғ Boolean Filter қ қ. Қ ғ ұ қң ә False, ә ө . Filtered қ True ә қғ қ, ә Filter қ ғ қғ ә .
TFilterOptions FilterOptions қң ө . ұ қ , ә әң қ:
foCaseInsensitive әң , ғ Post =
ө , ғ қ .
foNoPartialCompare ү, ө ә әң қ ә . ә ү қ.
, Post = * ү foNoPartialCompare ә қғ Post ө , -, ә ұ
.
Ө ә ү, қғ өң ққ. 24- .
24-. Ө ө ң
ә үң ә өң ө . (btnFilter) ү ә ң Filtered қ True ә . edtFilter ө қғ ғ. ң ө қғ . (btnAllrecord) ү қ , қ ө.
ө Form1 қң ү қғ өң .
|
|
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.FilterOptions:=[foCaseInsensitive];
Table1.Filtered:=False;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Filtered:=True;
Table1.Filter:=edit1.Text;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Filtered:=False;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;
end.
ң ү өң ғ ңғ . ұ ComboBox ә Memo ң ө . ә ө , CheckBox ң ә R adioButton -ққң ө қ .
қ қғ өң , ө ө қ ү қ, ә ққ.
25-. ө ө
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Filter:='';
Table1.FilterOptions:=[foCaseInsensitive];
Table1.Filtered:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Filtered:=True;
//
if Radiobutton1.Checked then table1.Filter:='Salary >'+
Edit1.Text+ 'AND Salary <'+Edit2.Text;
// ғ ү
if Radiobutton2.Checked then table1.Filter:='Birthday >'+
DateToStr(DateTimePicker1.Date)+'AND Brithday <
'+DateToStr(DateTimePicker2.Date);
// ө
if Radiobutton3.Checked then Table1.filter:=edit3.Text;
if Radiobutton4.Checked then Table1.Filter:='';
end;
ң ә ң ү ң ә ү TdateTimePicker (DateTimePicker1.Date ә DateTimePicker2.Date) қ. ң ә қ ү Edit1.Text ә Edit2.Text қ.