datamod.pas

《Delphi开发人员指南》配书原码

unit DataMod;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DB, DBTables, Fltr;

type
  TDM = class(TDataModule)
    Table1: TTable;
    Table1CustNo: TFloatField;
    Table1Company: TStringField;
    Table1Addr1: TStringField;
    Table1Addr2: TStringField;
    Table1City: TStringField;
    Table1State: TStringField;
    Table1Zip: TStringField;
    Table1Country: TStringField;
    Table1Phone: TStringField;
    Table1FAX: TStringField;
    Table1TaxRate: TFloatField;
    Table1Contact: TStringField;
    Table1LastInvoiceDate: TDateTimeField;
    DataSource1: TDataSource;
    procedure Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
  end;

var
  DM: TDM;

implementation

{$R *.DFM}

procedure TDM.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  { Accept record as a part of the filter if the value of the State }
  { field is the same as that of DBEdit1.Text.                      }
  Accept := Table1State.Value = FilterForm.DBEdit1.Text;
end;

end.