customersfilterform.pas

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

unit CustomersFilterForm;

interface

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

type
  TfrmCustomersFilter = class(TForm)
    RadioGroup1: TRadioGroup;
    optSuspendedYes: TRadioButton;
    optSuspendedNo: TRadioButton;
    optSuspendedAll: TRadioButton;
    btnReset: TButton;
    btnOK: TButton;
    btnCancel: TButton;
    Label1: TLabel;
    tblCurrency: TTable;
    tblCurrencyCurrencyID: TAutoIncField;
    tblCurrencyCurrencyName: TStringField;
    cboCurrency: TComboBox;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnResetClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cboCurrencyExit(Sender: TObject);
  private
    procedure SetCurrencyID(CurrencyID: integer);
    function GetCurrencyID: integer;
  public
    property CurrencyID: integer read GetCurrencyID write SetCurrencyID;
  end;

var
  frmCustomersFilter: TfrmCustomersFilter;

implementation

uses BS1Form, CustomersForm, LookUpsData;

{$R *.DFM}

var
  CurrencyIDOld: string;
  optSuspendedYesCheckedOld, optSuspendedNoCheckedOld: Boolean;
  cboCurrencyIDs: TStringList;

procedure TfrmCustomersFilter.SetCurrencyID(CurrencyID: integer);
begin
  CboCurrency.ItemIndex := cboCurrencyIDs.IndexOf(IntToStr(CurrencyID));
end;

function TfrmCustomersFilter.GetCurrencyID: integer;
begin
  if cboCurrency.ItemIndex > 0 then Result := StrToInt(cboCurrencyIDs[cboCurrency.ItemIndex])
  else Result := 0;
end;

procedure cboCurrency_Load(const Tbl: TTable; const Cbo: TCombobox);
begin
  Cbo.Items.Clear;   //Populate "currency" combobox.
  cboCurrencyIDs.Clear;
  Cbo.Items.Add('<All>');
  cboCurrencyIDs.Add('');
  Tbl.First;
  while not Tbl.EOF do begin
    Cbo.Items.Add(Tbl['CurrencyName']);
    cboCurrencyIDs.Add(Tbl['CurrencyID']);
    Tbl.Next;
  end;
  Cbo.ItemIndex := cboCurrencyIDs.IndexOf(CurrencyIDOld);
end;

procedure TfrmCustomersFilter.btnOKClick(Sender: TObject);
begin
  if cboCurrency.Items.IndexOf(cboCurrency.Text) < 0 then begin  //If Enter was pressed, this edit hasn't been done yet.
    cboCurrency.setfocus;
    raise(Exception.Create('Choose an item from the list'));
  end;

  if (cboCurrency.ItemIndex > 0) or (optSuspendedAll.Checked <> true) then begin
    frmCustomers.mnuFilter.Checked := true;
    frmCustomers.qryCustomer.Filtered := true;
    frmCustomers.tblCustomer.Filtered := true;
  end else begin
    frmCustomers.mnuFilter.Checked := false;
    frmCustomers.qryCustomer.Filtered := false;
    frmCustomers.tblCustomer.Filtered := false;
  end;
  frmCustomers.FormShow(Sender);
  frmCustomers_cboFind_RequeryRequired := true;
  cboCurrency.setfocus;
  self.close;
end;

procedure TfrmCustomersFilter.btnCancelClick(Sender: TObject);
begin
  cboCurrency.ItemIndex := cboCurrencyIDs.IndexOf(CurrencyIDOld);
  if optSuspendedYesCheckedOld = true then optSuspendedYes.checked := true
  else if optSuspendedNoCheckedOld = true then optSuspendedNo.checked := true
  else optSuspendedAll.checked := true;
  cboCurrency.setfocus;
  self.close;
end;

procedure TfrmCustomersFilter.btnResetClick(Sender: TObject);
begin
  cboCurrency.ItemIndex := 0;
  optSuspendedAll.checked := true;
  cboCurrency.setfocus;
end;

procedure TfrmCustomersFilter.FormShow(Sender: TObject);
begin
  if cboCurrency.ItemIndex > 0 then CurrencyIDOld := cboCurrencyIDs[cboCurrency.ItemIndex]
  else CurrencyIDOld := '';
  optSuspendedYesCheckedOld := optSuspendedYes.checked;
  optSuspendedNoCheckedOld := optSuspendedNo.checked;

  cboCurrency_Load(dmLookUps.tblCurrency, cboCurrency);   //Populate "currency" combobox.
end;

procedure TfrmCustomersFilter.FormCreate(Sender: TObject);
begin
  tblCurrency.DatabaseName := strDatabaseName;
  //tblCurrency.Active := true;   //Data Module used instead.
  cboCurrencyIDs := TStringList.create;   //Create a TStringList to store CurrencyIDs for the combobox.
end;

procedure TfrmCustomersFilter.cboCurrencyExit(Sender: TObject);
begin
  if cboCurrency.Items.IndexOf(cboCurrency.Text) < 0 then begin
    cboCurrency.setfocus;
    raise(Exception.Create('Choose an item from the list'));
  end;
end;

end.