object dmfrm: Tdmfrm
  OldCreateOrder = False
  Left = 508
  Top = 187
  Height = 152
  Width = 169
  object ds_MSg: TDataSource
    DataSet = Table_MSG
    Left = 20
    Top = 8
  end
  object Table_MSG: TADOTable
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Jet OLEDB:' +
      'Database Password=main()'
    CursorType = ctStatic
    OnFilterRecord = Table_MSGFilterRecord
    TableName = 'MSG'
    Left = 72
    Top = 8
    object Table_MSGID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object Table_MSGTITLE: TWideStringField
      FieldName = 'TITLE'
      Size = 30
    end
    object Table_MSGTYPE: TSmallintField
      FieldName = 'TYPE'
      LookupDataSet = table_type
      LookupKeyFields = 'ID'
      LookupResultField = 'TYPE_NAME'
    end
    object Table_MSGMSG: TMemoField
      FieldName = 'MSG'
      BlobType = ftMemo
    end
    object Table_MSGDT: TDateTimeField
      FieldName = 'DT'
    end
  end
  object table_type: TADOTable
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Jet OLEDB:' +
      'Database Password=main()'
    CursorType = ctStatic
    TableName = 'TYPE_NAME'
    Left = 72
    Top = 64
  end
  object ds_type: TDataSource
    DataSet = table_type
    Left = 20
    Top = 64
  end
end