glbudgetfilterform.pas

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

unit GLBudgetFilterForm;

interface

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

type
  TfrmGLBudgetFilter = class(TForm)
    btnReset: TButton;
    btnOK: TButton;
    btnCancel: TButton;
    cboAccountType: TComboBox;
    Label1: TLabel;
    UpDownYear: TUpDown;
    editYear: TEdit;
    Label2: TLabel;
    chkYearAll: TCheckBox;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnResetClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure chkYearAllClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure UpDownYearClick(Sender: TObject; Button: TUDBtnType);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGLBudgetFilter: TfrmGLBudgetFilter;

implementation

uses BS1Form, GLBudgetForm;

{$R *.DFM}

var
  cboAccountTypeOld: string;
  chkYearAllCheckedOld: Boolean;
  editYearOld: string;


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

procedure TfrmGLBudgetFilter.btnCancelClick(Sender: TObject);
begin
  cboAccountType.text := cboAccountTypeOld;
  chkYearAll.checked := chkYearAllCheckedOld;
  editYear.text := editYearOld;
  cboAccountType.setfocus;
  self.close;
end;

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

procedure TfrmGLBudgetFilter.FormShow(Sender: TObject);
begin
  if editYearOld = '' then editYear.text := '<All>';

  cboAccountTypeOld := cboAccountType.text;
  chkYearAllCheckedOld := chkYearAll.checked;
  editYearOld := editYear.text;
end;

procedure TfrmGLBudgetFilter.chkYearAllClick(Sender: TObject);
begin
  if chkYearAll.checked = true then editYear.text := '<All>'
  else begin
    if frmBS1.tblCompanyFiscalYear.value > 0 then editYear.text := frmBS1.tblCompanyFiscalYear.AsString
    else editYear.text := '1997';
  end;
end;

procedure TfrmGLBudgetFilter.FormCreate(Sender: TObject);
begin
    //editYear.text := '<All>';   //Doesn't work in Delphi 3: UpDown control resets text after this. Now done in FormShow.
end;

procedure TfrmGLBudgetFilter.UpDownYearClick(Sender: TObject;
  Button: TUDBtnType);
begin
  chkYearAll.checked := false;
  if (editYear.text = '<All>') and (frmBS1.tblCompanyFiscalYear.value > 0) then UpDownYear.position := frmBS1.tblCompanyFiscalYear.value;
end;

end.