datamoduleunit.dfm

Delphi 应用举例

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 445
  Top = 220
  Height = 471
  Width = 459
  object Qry_search: TQuery
    OnCalcFields = Qry_searchCalcFields
    SQL.Strings = (
      'select * from demo_msg where 1=2')
    Left = 24
    Top = 96
    object Qry_searchUserID: TStringField
      DisplayLabel = #29992#25143
      FieldName = 'UserID'
    end
    object Qry_searchFYear: TFloatField
      DisplayLabel = #24180
      FieldName = 'FYear'
    end
    object Qry_searchFMonth: TFloatField
      DisplayLabel = #26376
      FieldName = 'FMonth'
    end
    object Qry_searchFDay: TFloatField
      DisplayLabel = #26085
      FieldName = 'FDay'
    end
    object Qry_searchCaption: TStringField
      DisplayLabel = #26631#39064
      FieldName = 'Caption'
      Size = 30
    end
    object Qry_searchFMessage: TMemoField
      FieldName = 'FMessage'
      BlobType = ftMemo
      Size = 240
    end
    object Qry_searchrowID: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'rowID'
      Calculated = True
    end
  end
  object Qry_tmp: TQuery
    Left = 24
    Top = 248
  end
  object Qry_inf: TQuery
    SQL.Strings = (
      'select * from demo_msg'
      'where fyear>3000')
    Left = 24
    Top = 24
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Qry_inf
    Left = 104
    Top = 24
  end
  object ClientDataSet_edit: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    AfterInsert = ClientDataSet_editAfterInsert
    AfterPost = ClientDataSet_editAfterPost
    Left = 208
    Top = 24
  end
  object DataSourceSearch: TDataSource
    DataSet = Qry_search
    Left = 120
    Top = 96
  end
  object TableUser: TTable
    TableName = 'user.DB'
    Left = 24
    Top = 168
    object TableUserUserID: TStringField
      DisplayLabel = #29992#25143
      FieldName = 'UserID'
    end
    object TableUserPWD: TStringField
      DisplayLabel = #21475#20196
      FieldName = 'PWD'
    end
    object TableUserActor: TFloatField
      DisplayLabel = #35282#33394
      FieldName = 'Actor'
    end
    object TableUserMail: TStringField
      DisplayLabel = 'eMail'
      FieldName = 'Mail'
      Size = 50
    end
  end
  object DataSourceuser: TDataSource
    DataSet = TableUser
    Left = 120
    Top = 168
  end
  object DataSource_edit: TDataSource
    DataSet = ClientDataSet_edit
    Left = 312
    Top = 24
  end
end