// сорттау панелін көрсету/жасыру
procedure TFrmmain.ActShowSortPanelExecute(Sender: TObject);
begin
ActShowSortPanel.Checked := not ActShowSortPanel.Checked;
PabelSort.Visible := ActShowSortPanel.Checked;
if not ActShowSortPanel.Checked then
begin
edit.Text:='';
end else
begin
CheckFilterClick(nil);
end;
Ф-ОБ-001/033
75
end;
//фильтрация
procedure TFrmmain.QryFilterRecord(DataSet: TDataSet; var Accept: Boolean);
var i,j:integer;
fn,s:string;
b:boolean;
begin
Accept:=false;
if PageFIndType.ActivePageIndex = 0 then // қатармен іздеу
begin
fn:=AnsiUpperCase(Edit.Text);
for i:=0 to qry.Fields.Count-1 do
// барлық өрістер бойынша
begin
s:=AnsiUpperCase(qry.Fields[i].asString);
if CheckIn.Checked then
b:= pos(fn,s)<>0
// қосылуына байланысты
else
b:=copy(s,1,length(fn))=fn;
//қатар басына байланысты
if b then
begin
Accept:=true;
exit;
end;
end;
Exit;
end;
i:= ComboStran.ItemIndex;
if i>0 then
begin
i:= integer(ComboStran.Items.Objects[i]);
if QryCountryId.Value<>i then Exit;
end;
i:= ComboSity.ItemIndex;
if i>0 then
begin
i:= integer(ComboSity.Items.Objects[i]);
if QrySityId.Value<>i then Exit;
end;
if CheckZwezw.Checked then
begin
if QryZwezd.Valueend;
if CheckCost.Checked and TryStrToInt(EditCost.Text,i) then
Достарыңызбен бөлісу: |
