jvsfilterform.pas

功能全面的商业财会系统源码,清晰,很有参考价值.扩展性强.

unit JVsFilterForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons;

type
  TfrmJVsFilter = class(TForm)
    RadioGroup1: TRadioGroup;
    optPostedYes: TRadioButton;
    optPostedNo: TRadioButton;
    optPostedAll: TRadioButton;
    btnReset: TButton;
    btnOK: TButton;
    btnCancel: TButton;
    cboSource: TComboBox;
    Label1: TLabel;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnResetClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmJVsFilter: TfrmJVsFilter;

implementation

uses BS1Form, JVsForm;

{$R *.DFM}

var
  cboSourceOld: string;
  optPostedYesCheckedOld, optPostedNoCheckedOld: Boolean;


procedure TfrmJVsFilter.btnOKClick(Sender: TObject);
begin
  if (cboSource.text <> '<All>') or (optPostedAll.Checked <> true) then begin
    frmJVs.mnuFilter.Checked := true;
    frmJVs.qryJV.Filtered := true;
  end else begin
    frmJVs.mnuFilter.Checked := false;
    frmJVs.qryJV.Filtered := false;
  end;
  frmJVs.FormShow(Sender);
  cboSource.setfocus;
  self.close;
end;

procedure TfrmJVsFilter.btnCancelClick(Sender: TObject);
begin
  cboSource.text := cboSourceOld;
  if optPostedYesCheckedOld = true then optPostedYes.checked := true
  else if optPostedNoCheckedOld = true then optPostedNo.checked := true
  else optPostedAll.checked := true;
  cboSource.setfocus;
  self.close;
end;

procedure TfrmJVsFilter.btnResetClick(Sender: TObject);
begin
  cboSource.text := '<All>';
  optPostedAll.checked := true;
  cboSource.setfocus;
end;

procedure TfrmJVsFilter.FormShow(Sender: TObject);
begin
  cboSourceOld := cboSource.text;
  optPostedYesCheckedOld := optPostedYes.checked;
  optPostedNoCheckedOld := optPostedNo.checked;
end;

end.