filterpublic.pas

中小企业管理系统------ ERP系统原代码

    edtAnd4.Enabled := False;
  end;
end;

procedure TfrmFilterPublic.edtValue4Change(Sender: TObject);
begin
  inherited;
  if Trim(edtValue4.Text) <> '' then
  begin
    edtRow5.ItemIndex := 0;
    edtComp5.ItemIndex := 0;
    edtAnd5.ItemIndex := 0;
    edtValue5.Enabled := true;
    edtRow5.Enabled := true;
    edtComp5.Enabled := true;
    edtAnd5.Enabled := true;
  end
  else
  begin
    edtValue5.Enabled := False;
    edtRow5.Enabled := False;
    edtComp5.Enabled := False;
    edtAnd5.Enabled := False;
  end;
end;

procedure TfrmFilterPublic.edtValue5Change(Sender: TObject);
begin
  inherited;
  if Trim(edtValue5.Text) <> '' then
  begin
    edtRow6.ItemIndex := 0;
    edtComp6.ItemIndex := 0;
    edtAnd6.ItemIndex := 0;
    edtValue6.Enabled := true;
    edtRow6.Enabled := true;
    edtComp6.Enabled := true;
    edtAnd6.Enabled := true;
  end
  else
  begin
    edtValue6.Enabled := False;
    edtRow6.Enabled := False;
    edtComp6.Enabled := False;
    edtAnd6.Enabled := False;
  end;
end;

procedure TfrmFilterPublic.bbNoClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmFilterPublic.bbYesClick(Sender: TObject);
begin
  inherited;
  try
    DBSet1.Filter := GetFilterString;
  except
    Exit;
  end;
  if Trim(DBSet1.Filter) <> '' then
  try
    DBSet1.Filtered := True;
  except
  end;
  Close;
end;

procedure TfrmFilterPublic.edtDate1Change(Sender: TObject);
begin
  inherited;
  edtValue1.Text := edtDate1.Text;
  edtValue1Change(nil);
end;

procedure TfrmFilterPublic.edtDate2Change(Sender: TObject);
begin
  inherited;
  edtValue2.Text := edtDate2.Text;
  edtValue2Change(nil);
end;

procedure TfrmFilterPublic.edtDate3Change(Sender: TObject);
begin
  inherited;
  edtValue3.Text := edtDate3.Text;
  edtValue3Change(nil);
end;

procedure TfrmFilterPublic.edtDate4Change(Sender: TObject);
begin
  inherited;
  edtValue4.Text := edtDate4.Text;
  edtValue4Change(nil);
end;

procedure TfrmFilterPublic.edtDate5Change(Sender: TObject);
begin
  inherited;
  edtValue5.Text := edtDate5.Text;
  edtValue5Change(nil);
end;

procedure TfrmFilterPublic.edtDate6Change(Sender: TObject);
begin
  inherited;
  edtValue6.Text := edtDate6.Text;
end;

procedure TfrmFilterPublic.edtRow1Change(Sender: TObject);
begin
  inherited;
  edtDate1.Text := '';
  if (edtRow1.ItemIndex >= 0) and
    (GetFilterType(edtFieldValue.Items.Strings[edtRow1.ItemIndex]) = 'Date') then
  begin
    edtDate1.Visible := true;
    edtValue1.visible := false;
  end
  else
  begin
    edtDate1.Visible := false;
    edtValue1.visible := True;
    if GetFilterType(edtFieldValue.Items.Strings[edtRow1.ItemIndex]) = 'Str' then
    begin
      edtComp1.ItemIndex := 0;
      edtComp1.Enabled := False;
    end
    else
      edtComp1.Enabled := True;
  end;
end;

procedure TfrmFilterPublic.edtRow2Change(Sender: TObject);
begin
  inherited;
  edtDate2.Text := '';
  if GetFilterType(edtFieldValue.Items.Strings[edtRow2.ItemIndex]) = 'Date' then
  begin
    edtDate2.Visible := true;
    edtValue2.visible := false;
  end
  else
  begin
    edtDate2.Visible := false;
    edtValue2.visible := True;
    if GetFilterType(edtFieldValue.Items.Strings[edtRow2.ItemIndex]) = 'Str' then
    begin
      edtComp2.ItemIndex := 0;
      edtComp2.Enabled := False;
    end
    else
      edtComp2.Enabled := True;
  end;
end;

procedure TfrmFilterPublic.edtRow3Change(Sender: TObject);
begin
  inherited;
  edtDate3.Text := '';
  if GetFilterType(edtFieldValue.Items.Strings[edtRow3.ItemIndex]) = 'Date' then
  begin
    edtDate3.Visible := true;
    edtValue3.visible := false;
  end
  else
  begin
    edtDate3.Visible := false;
    edtValue3.visible := True;
    if GetFilterType(edtFieldValue.Items.Strings[edtRow4.ItemIndex]) = 'Str' then
    begin
      edtComp3.ItemIndex := 0;
      edtComp3.Enabled := False;
    end
    else
      edtComp3.Enabled := True;
  end;
end;

procedure TfrmFilterPublic.edtRow4Change(Sender: TObject);
begin
  inherited;
  edtDate4.Text := '';
  if GetFilterType(edtFieldValue.Items.Strings[edtRow4.ItemIndex]) = 'Date' then
  begin
    edtDate4.Visible := true;
    edtValue4.visible := false;
  end
  else
  begin
    edtDate4.Visible := false;
    edtValue4.visible := True;
    if GetFilterType(edtFieldValue.Items.Strings[edtRow4.ItemIndex]) = 'Str' then
    begin
      edtComp4.ItemIndex := 0;
      edtComp4.Enabled := False;
    end
    else
      edtComp4.Enabled := True;
  end;
end;

procedure TfrmFilterPublic.edtRow5Change(Sender: TObject);
begin
  inherited;
  edtDate5.Text := '';
  if GetFilterType(edtFieldValue.Items.Strings[edtRow5.ItemIndex]) = 'Date' then
  begin
    edtDate5.Visible := true;
    edtValue5.visible := false;
  end
  else
  begin
    edtDate5.Visible := false;
    edtValue5.visible := True;
    if GetFilterType(edtFieldValue.Items.Strings[edtRow5.ItemIndex]) = 'Str' then
    begin
      edtComp5.ItemIndex := 0;
      edtComp5.Enabled := False;
    end
    else
      edtComp5.Enabled := True;
  end;
end;

procedure TfrmFilterPublic.edtRow6Change(Sender: TObject);
begin
  inherited;
  edtDate6.Text := '';
  if GetFilterType(edtFieldValue.Items.Strings[edtRow6.ItemIndex]) = 'Date' then
  begin
    edtDate6.Visible := true;
    edtValue6.visible := false;
  end
  else
  begin
    edtDate6.Visible := false;
    edtValue6.visible := True;
    if GetFilterType(edtFieldValue.Items.Strings[edtRow6.ItemIndex]) = 'Str' then
    begin
      edtComp6.ItemIndex := 0;
      edtComp6.Enabled := False;
    end
    else
      edtComp6.Enabled := True;
  end;
end;

procedure TfrmFilterPublic.bbClearClick(Sender: TObject);
begin
  inherited;
  DBSet1.Filter := '';
  edtValue1.Text := '';
  edtValue2.Text := '';
  edtValue3.Text := '';
  edtValue4.Text := '';
  edtValue5.Text := '';
  edtValue6.Text := '';
  bbYes.Enabled := True;
end;

end.



//此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
//╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
//╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
//,︶︶︶︶,''︶~~ ,''~︶︶　 ,''
//╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
//╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
//╬　　　　　　　http://www.5ivb.net ╬
//╬　 ╭○╮●　                   　╬
//╬　　/■\/■\　　                  ╬
//╬　　 <|　||　   有希望,就有成功！ ╬
//╬　　　　　　　　　　　　　　　　　╬
//╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
//
//说明：
//专业提供VB、．NET、Delphi、ASP、PB源码下载
//包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档