datamodel.dfm

关于利用DELPHI来进行企业级方案解决的著作的附书源码

object DM: TDM
  OldCreateOrder = False
  Left = 306
  Top = 188
  Height = 120
  Width = 352
  object qryTemp: TQuery
    DatabaseName = 'mainDB'
    Left = 240
    Top = 16
  end
  object MDB: TDatabase
    AliasName = 'dw'
    DatabaseName = 'mainDB'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=zbgl'
      'password=zbgl')
    SessionName = 'Default'
    Left = 16
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 120
    Top = 16
  end
  object Table1: TTable
    BeforeInsert = Table1BeforeInsert
    AfterInsert = Table1AfterInsert
    BeforeEdit = Table1BeforeEdit
    AfterEdit = Table1AfterEdit
    AfterPost = Table1AfterPost
    AfterCancel = Table1AfterCancel
    BeforeDelete = Table1BeforeDelete
    AfterDelete = Table1AfterDelete
    OnNewRecord = Table1NewRecord
    AutoRefresh = True
    DatabaseName = 'mainDB'
    FieldDefs = <
      item
        Name = 'DWNM'
        DataType = ftFloat
      end
      item
        Name = 'DWBM'
        DataType = ftString
        Size = 13
      end
      item
        Name = 'DWQC'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DWJC'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'DYMC'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'DWDH'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'DWJB'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'DWXZ'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'DWRW'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'DWZY'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'BZLX'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'SSBM'
        DataType = ftString
        Size = 14
      end
      item
        Name = 'DWZD'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'QHTZ'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'DLTD'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'ZDLX'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'TXDZ'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'YZBM'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'DHHM'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'CZHM'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'DWFZR'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'JDSNM'
        DataType = ftFloat
      end
      item
        Name = 'KHYH'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'YHZHU'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'YHZHAO'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'DWSH'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'KJDZ'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'LDDZ'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ZCDZ'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'LWBZ'
        Attributes = [faFixed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'DZYX'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DWGK'
        DataType = ftMemo
        Size = 1
      end
      item
        Name = 'SCBZ'
        DataType = ftFloat
      end
      item
        Name = 'BDQF'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'CCRQ'
        DataType = ftDateTime
      end
      item
        Name = 'FYRQ'
        DataType = ftDateTime
      end>
    IndexDefs = <
      item
        Name = 'DWBM_PK'
        Fields = 'DWBM'
        Options = [ixUnique]
      end
      item
        Name = 'SYS_C00538'
        Fields = 'DWNM'
        Options = [ixUnique]
      end>
    StoreDefs = True
    TableName = 'HZD_DW'
    Left = 64
    Top = 16
  end
  object Query1: TQuery
    Left = 184
    Top = 16
  end
end