itemsfilterform.pas

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

unit ItemsFilterForm;

interface

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

type
  TfrmItemsFilter = class(TForm)
    RadioGroup1: TRadioGroup;
    optSuspendedYes: TRadioButton;
    optSuspendedNo: TRadioButton;
    optSuspendedAll: TRadioButton;
    btnReset: TButton;
    btnOK: TButton;
    btnCancel: TButton;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnResetClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmItemsFilter: TfrmItemsFilter;

implementation

uses BS1Form, ItemsForm;

{$R *.DFM}

var
  optSuspendedYesCheckedOld, optSuspendedNoCheckedOld: Boolean;


procedure TfrmItemsFilter.btnOKClick(Sender: TObject);
begin
  if (optSuspendedAll.Checked <> true) then begin
    frmItems.mnuFilter.Checked := true;
    frmItems.qryItem.Filtered := true;
    frmItems.tblItem.Filtered := true;
  end else begin
    frmItems.mnuFilter.Checked := false;
    frmItems.qryItem.Filtered := false;
    frmItems.tblItem.Filtered := false;
  end;
  frmItems.FormShow(Sender);
  frmItems_cboFind_RequeryRequired := true;
  if optSuspendedYes.checked = true then optSuspendedYes.setfocus
  else if optSuspendedNo.checked = true then optSuspendedNo.setfocus
  else optSuspendedAll.setfocus;
  self.close;
end;

procedure TfrmItemsFilter.btnCancelClick(Sender: TObject);
begin
  if optSuspendedYesCheckedOld = true then optSuspendedYes.checked := true
  else if optSuspendedNoCheckedOld = true then optSuspendedNo.checked := true
  else optSuspendedAll.checked := true;
  if optSuspendedYes.checked = true then optSuspendedYes.setfocus
  else if optSuspendedNo.checked = true then optSuspendedNo.setfocus
  else optSuspendedAll.setfocus;
  self.close;
end;

procedure TfrmItemsFilter.btnResetClick(Sender: TObject);
begin
  optSuspendedAll.checked := true;
  optSuspendedAll.setfocus;
end;

procedure TfrmItemsFilter.FormShow(Sender: TObject);
begin
  optSuspendedYesCheckedOld := optSuspendedYes.checked;
  optSuspendedNoCheckedOld := optSuspendedNo.checked;
end;

end.