glaccountsfilterform.pas

来自「功能全面的商业财会系统源码,清晰,很有参考价值.扩展性强.」· PAS 代码 · 共 86 行

unit GLAccountsFilterForm;

interface

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

type
  TfrmGLAccountsFilter = class(TForm)
    RadioGroup1: TRadioGroup;
    optSuspendedYes: TRadioButton;
    optSuspendedNo: TRadioButton;
    optSuspendedAll: TRadioButton;
    btnReset: TButton;
    btnOK: TButton;
    btnCancel: TButton;
    cboAccountType: 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
  frmGLAccountsFilter: TfrmGLAccountsFilter;

implementation

uses BS1Form, GLAccountsForm;

{$R *.DFM}

var
  cboAccountTypeOld: string;
  optSuspendedYesCheckedOld, optSuspendedNoCheckedOld: Boolean;


procedure TfrmGLAccountsFilter.btnOKClick(Sender: TObject);
begin
  if (cboAccountType.text <> '<All>') or (optSuspendedAll.Checked <> true) then begin
    frmGLAccounts.mnuFilter.Checked := true;
    frmGLAccounts.qryGLAccnt.Filtered := true;
    frmGLAccounts.tblGLAccnt.Filtered := true;
  end else begin
    frmGLAccounts.mnuFilter.Checked := false;
    frmGLAccounts.qryGLAccnt.Filtered := false;
    frmGLAccounts.tblGLAccnt.Filtered := false;
  end;
  frmGLAccounts.FormShow(Sender);
  frmGLAccounts_cboFind_RequeryRequired := true;
  cboAccountType.setfocus;
  self.close;
end;

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

procedure TfrmGLAccountsFilter.btnResetClick(Sender: TObject);
begin
  cboAccountType.text := '<All>';
  optSuspendedAll.checked := true;
  cboAccountType.setfocus;
end;

procedure TfrmGLAccountsFilter.FormShow(Sender: TObject);
begin
  cboAccountTypeOld := cboAccountType.text;
  optSuspendedYesCheckedOld := optSuspendedYes.checked;
  optSuspendedNoCheckedOld := optSuspendedNo.checked;
end;

end.