dm.pas

个人信息管理系统

unit dm;

interface

uses
  SysUtils, Classes, ADODB, DB,datadefine;

type
  Tdmfrm = class(TDataModule)
    ds_MSg: TDataSource;
    Table_MSG: TADOTable;
    Table_MSGID: TAutoIncField;
    Table_MSGTITLE: TWideStringField;
    Table_MSGTYPE: TSmallintField;
    Table_MSGMSG: TMemoField;
    Table_MSGDT: TDateTimeField;
    table_type: TADOTable;
    ds_type: TDataSource;
    procedure Table_MSGFilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmfrm: Tdmfrm;

implementation

{$R *.dfm}



procedure Tdmfrm.Table_MSGFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var id1:integer;
begin
id1:=Dmfrm.table_msg.Fields[2].AsInteger;
 if id1=curfilt then
 accept:=True
 else
 accept:=False;
end;

end.