udm.dfm

来自「编写该文档是为了分析企业人事管理系统的流程」· DFM 代码 · 共 92 行

object dm: Tdm
  OldCreateOrder = False
  Left = 525
  Top = 164
  Height = 273
  Width = 427
  object db: TDatabase
    AliasName = 'ODBC_PersonalDB'
    Connected = True
    DatabaseName = 'PersonalDB'
    LoginPrompt = False
    Params.Strings = (
      'user name=sa'
      'password=justkong')
    SessionName = 'Default'
    Left = 32
    Top = 24
  end
  object qperson: TQuery
    DatabaseName = 'PersonalDB'
    SQL.Strings = (
      'select * from tperson order by pdep,pname')
    Left = 112
    Top = 16
  end
  object dsperson: TDataSource
    DataSet = qperson
    Left = 160
    Top = 24
  end
  object Qkq: TQuery
    DatabaseName = 'PersonalDB'
    SQL.Strings = (
      'select * from vkq order by pdate')
    Left = 56
    Top = 96
  end
  object Dskq: TDataSource
    DataSet = Qkq
    Left = 104
    Top = 104
  end
  object Qchang: TQuery
    DatabaseName = 'PersonalDB'
    SQL.Strings = (
      'select * from Vchang order by pdate')
    Left = 160
    Top = 72
  end
  object Dschang: TDataSource
    DataSet = Qchang
    Left = 208
    Top = 80
  end
  object Qachi: TQuery
    DatabaseName = 'PersonalDB'
    SQL.Strings = (
      'select * from vachi order by pdate')
    Left = 264
    Top = 16
  end
  object dsachi: TDataSource
    DataSet = Qachi
    Left = 312
    Top = 24
  end
  object Qdep: TQuery
    DatabaseName = 'PersonalDB'
    SQL.Strings = (
      'select * from tdep')
    Left = 240
    Top = 152
  end
  object dsdep: TDataSource
    DataSet = Qdep
    Left = 288
    Top = 160
  end
  object QPlist: TQuery
    DatabaseName = 'PersonalDB'
    SQL.Strings = (
      'select id,pname+'#39':'#39'+pdep from tperson order by pname')
    Left = 48
    Top = 168
  end
  object DSplist: TDataSource
    DataSet = QPlist
    Left = 112
    Top = 176
  end
end