khhfb.pas

服务信息管理系统

unit khhfb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Buttons, ComCtrls, Mask, DBCtrls,
  ExtCtrls, ToolEdit, CurrEdit, Grids, DBGrids;

type
  Tfrmkhhfb = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    Label1: TLabel;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmkhhfb: Tfrmkhhfb;

implementation
uses fwdjbdata, PubProc;
{$R *.dfm}

procedure Tfrmkhhfb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frmkhhfb := nil;
end;

procedure Tfrmkhhfb.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  lsbl_bmbh: string;
  lsbl_length: integer;
begin
  lsbl_bmbh := '001';
  lsbl_length := length(lsbl_bmbh);
  Accept := Copy(lsbl_bmbh, 1, lsbl_length) = lsbl_bmbh;
end;

end.