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;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmfrm: Tdmfrm;

implementation

{$R *.dfm}



end.