arpaymentsfilterform.pas

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

unit ARPaymentsFilterForm;

interface

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

type
  TfrmARPaymentsFilter = class(TForm)
    RadioGroup1: TRadioGroup;
    optPostedYes: TRadioButton;
    optPostedNo: TRadioButton;
    optPostedAll: TRadioButton;
    btnReset: TButton;
    btnOK: TButton;
    btnCancel: TButton;
    Label1: TLabel;
    cboCurrency: TComboBox;
    cboCustomer: TComboBox;
    Label2: TLabel;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnResetClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cboCurrencyExit(Sender: TObject);
    procedure cboCustomerExit(Sender: TObject);
  private
    procedure SetCurrencyID(CurrencyID: integer);
    function GetCurrencyID: integer;
    procedure SetCustomerID(CustomerID: integer);
    function GetCustomerID: integer;
  public
    property CurrencyID: integer read GetCurrencyID write SetCurrencyID;
    property CustomerID: integer read GetCustomerID write SetCustomerID;
  end;

var
  frmARPaymentsFilter: TfrmARPaymentsFilter;

implementation

uses BS1Form, ARPaymentsForm, LookUpsData;

{$R *.DFM}

var
  CurrencyIDOld, CustomerIDOld: string;
  optPostedYesCheckedOld, optPostedNoCheckedOld: Boolean;
  cboCurrencyIDs, cboCustomerIDs: TStringList;

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

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

procedure TfrmARPaymentsFilter.SetCustomerID(CustomerID: integer);
begin
  CboCustomer.ItemIndex := cboCustomerIDs.IndexOf(IntToStr(CustomerID));
end;

function TfrmARPaymentsFilter.GetCustomerID: integer;
begin
  if cboCustomer.ItemIndex > 0 then Result := StrToInt(cboCustomerIDs[cboCustomer.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 cboCustomer_Load(const Tbl: TTable; const Cbo: TCombobox);
begin
  Cbo.Items.Clear;   //Populate "customer" combobox.
  cboCustomerIDs.Clear;
  Cbo.Items.Add('<All>');
  cboCustomerIDs.Add('');
  Tbl.First;
  while not Tbl.EOF do begin
    Cbo.Items.Add(Tbl['CustomerName']);
    cboCustomerIDs.Add(Tbl['CustomerID']);
    Tbl.Next;
  end;
  Cbo.ItemIndex := cboCustomerIDs.IndexOf(CustomerIDOld);
end;

procedure TfrmARPaymentsFilter.btnOKClick(Sender: TObject);
begin
  if cboCustomer.Items.IndexOf(cboCustomer.Text) < 0 then begin  //If Enter was pressed, this edit hasn't been done yet.
    cboCustomer.setfocus;
    raise(Exception.Create('Choose an item from the list'));
  end;
  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 (cboCustomer.ItemIndex > 0) or (optPostedAll.Checked <> true) then begin
    frmARPayments.mnuFilter.Checked := true;
    frmARPayments.qryARPmt.Filtered := true;
  end else begin
    frmARPayments.mnuFilter.Checked := false;
    frmARPayments.qryARPmt.Filtered := false;
  end;
  frmARPayments.FormShow(Sender);
  cboCustomer.setfocus;
  self.close;
end;

procedure TfrmARPaymentsFilter.btnCancelClick(Sender: TObject);
begin
  cboCurrency.ItemIndex := cboCurrencyIDs.IndexOf(CurrencyIDOld);
  cboCustomer.ItemIndex := cboCustomerIDs.IndexOf(CustomerIDOld);
  if optPostedYesCheckedOld = true then optPostedYes.checked := true
  else if optPostedNoCheckedOld = true then optPostedNo.checked := true
  else optPostedAll.checked := true;
  cboCustomer.setfocus;
  self.close;
end;

procedure TfrmARPaymentsFilter.btnResetClick(Sender: TObject);
begin
  cboCurrency.ItemIndex := 0;
  cboCustomer.ItemIndex := 0;
  optPostedAll.checked := true;
  cboCustomer.setfocus;
end;

procedure TfrmARPaymentsFilter.FormShow(Sender: TObject);
begin
  if cboCurrency.ItemIndex > 0 then CurrencyIDOld := cboCurrencyIDs[cboCurrency.ItemIndex]
  else CurrencyIDOld := '';
  if cboCustomer.ItemIndex > 0 then CustomerIDOld := cboCustomerIDs[cboCustomer.ItemIndex]
  else CustomerIDOld := '';
  optPostedYesCheckedOld := optPostedYes.checked;
  optPostedNoCheckedOld := optPostedNo.checked;

  cboCurrency_Load(dmLookups.tblCurrency, cboCurrency);   //Populate "currency" combobox.
  cboCustomer_Load(dmLookups.tblCustomer, cboCustomer);   //Populate "customer" combobox.
end;

procedure TfrmARPaymentsFilter.FormCreate(Sender: TObject);
begin
  dmLookups.tblCurrency.DatabaseName := strDatabaseName;
  dmLookups.tblCustomer.DatabaseName := strDatabaseName;
  dmLookups.tblCurrency.Active := true;
  dmLookups.tblCustomer.Active := true;
  cboCurrencyIDs := TStringList.create;   //Create a TStringList to store CurrencyIDs for the combobox.
  cboCustomerIDs := TStringList.create;   //Create a TStringList to store CustomerIDs for the combobox.
end;

procedure TfrmARPaymentsFilter.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;

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

end.