djdaform.dfm

地址档案管理系统

  object DBEdit6: TDBEdit
    Left = 328
    Top = 168
    Width = 300
    Height = 21
    DataField = 'ywbt'
    DataSource = DM.dsDJDA
    TabOrder = 8
  end
  object DBEdit8: TDBEdit
    Left = 80
    Top = 224
    Width = 134
    Height = 21
    DataField = 'TS'
    DataSource = DM.dsDJDA
    TabOrder = 10
  end
  object DBEdit9: TDBEdit
    Left = 232
    Top = 224
    Width = 134
    Height = 21
    DataField = 'BG'
    DataSource = DM.dsDJDA
    TabOrder = 11
  end
  object DBEdit10: TDBEdit
    Left = 384
    Top = 224
    Width = 134
    Height = 21
    DataField = 'FJ'
    DataSource = DM.dsDJDA
    TabOrder = 12
  end
  object DBEdit11: TDBEdit
    Left = 536
    Top = 224
    Width = 134
    Height = 21
    DataField = 'FT'
    DataSource = DM.dsDJDA
    TabOrder = 13
  end
  object DBEdit12: TDBEdit
    Left = 16
    Top = 280
    Width = 134
    Height = 21
    DataField = 'BL'
    DataSource = DM.dsDJDA
    TabOrder = 14
  end
  object DBEdit13: TDBEdit
    Left = 168
    Top = 280
    Width = 134
    Height = 21
    DataField = 'FB'
    DataSource = DM.dsDJDA
    TabOrder = 15
  end
  object DBEdit14: TDBEdit
    Left = 320
    Top = 280
    Width = 134
    Height = 21
    DataField = 'JC'
    DataSource = DM.dsDJDA
    TabOrder = 16
  end
  object DBEdit17: TDBEdit
    Left = 160
    Top = 344
    Width = 81
    Height = 21
    DataField = 'bzrq'
    DataSource = DM.dsDJDA
    TabOrder = 21
  end
  object DBEdit18: TDBEdit
    Left = 256
    Top = 344
    Width = 81
    Height = 21
    DataField = 'gdrq'
    DataSource = DM.dsDJDA
    TabOrder = 22
  end
  object DBEdit21: TDBEdit
    Left = 352
    Top = 344
    Width = 81
    Height = 21
    DataField = 'jdsx'
    DataSource = DM.dsDJDA
    TabOrder = 23
  end
  object DBEdit22: TDBEdit
    Left = 448
    Top = 344
    Width = 81
    Height = 21
    DataField = 'jdxx'
    DataSource = DM.dsDJDA
    TabOrder = 24
  end
  object DBEdit23: TDBEdit
    Left = 544
    Top = 344
    Width = 129
    Height = 21
    DataField = 'ltdz'
    DataSource = DM.dsDJDA
    TabOrder = 25
  end
  object DBEdit24: TDBEdit
    Left = 16
    Top = 408
    Width = 95
    Height = 21
    DataField = 'dtdh'
    DataSource = DM.dsDJDA
    TabOrder = 26
  end
  object DBEdit25: TDBEdit
    Left = 128
    Top = 408
    Width = 105
    Height = 21
    DataField = 'dtdz'
    DataSource = DM.dsDJDA
    TabOrder = 27
  end
  object DBEdit26: TDBEdit
    Left = 248
    Top = 408
    Width = 425
    Height = 21
    DataField = 'fz'
    DataSource = DM.dsDJDA
    TabOrder = 28
  end
  object wwDBLookupCombo1: TwwDBLookupCombo
    Left = 16
    Top = 224
    Width = 49
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'detail_code'#9'10'#9'detail_code'#9'F'
      'caption'#9'30'#9'caption'#9'F'
      'note'#9'20'#9'note'#9'F')
    DataField = 'WZ'
    DataSource = DM.dsDJDA
    LookupTable = qryWZ
    LookupField = 'detail_code'
    ImeMode = imDisable
    TabOrder = 9
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = wwDBLookupCombo1NotInList
  end
  object wwDBLookupCombo2: TwwDBLookupCombo
    Left = 472
    Top = 280
    Width = 81
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'ywsx'#9'15'#9'ywsx'#9'F'#9
      'zwm'#9'30'#9'zwm'#9'F'
      'ywm'#9'30'#9'ywm'#9'F')
    DataField = 'ZRZ'
    DataSource = DM.dsDJDA
    LookupTable = qryGSMC
    LookupField = 'ywsx'
    ImeMode = imDisable
    TabOrder = 17
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = wwDBLookupCombo1NotInList
  end
  object wwDBLookupCombo3: TwwDBLookupCombo
    Left = 576
    Top = 280
    Width = 81
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'ywsx'#9'15'#9'ywsx'#9'F'#9
      'zwm'#9'30'#9'zwm'#9'F'
      'ywm'#9'30'#9'ywm'#9'F')
    DataField = 'BZ'
    DataSource = DM.dsDJDA
    LookupTable = qryGSMC
    LookupField = 'ywsx'
    ImeMode = imDisable
    TabOrder = 18
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = wwDBLookupCombo1NotInList
  end
  object wwDBLookupCombo4: TwwDBLookupCombo
    Left = 16
    Top = 344
    Width = 57
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'detail_code'#9'10'#9'detail_code'#9'F'
      'caption'#9'30'#9'caption'#9'F'
      'note'#9'20'#9'note'#9'F')
    DataField = 'MJ'
    DataSource = DM.dsDJDA
    LookupTable = qryMJ
    LookupField = 'detail_code'
    ImeMode = imDisable
    TabOrder = 19
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = wwDBLookupCombo1NotInList
  end
  object wwDBLookupCombo5: TwwDBLookupCombo
    Left = 88
    Top = 344
    Width = 57
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'detail_code'#9'10'#9'detail_code'#9'F'
      'caption'#9'30'#9'caption'#9'F'
      'note'#9'20'#9'note'#9'F')
    DataField = 'BGQX'
    DataSource = DM.dsDJDA
    LookupTable = qryBGQX
    LookupField = 'detail_code'
    ImeMode = imDisable
    TabOrder = 20
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = wwDBLookupCombo1NotInList
  end
  object DBEdit7: TDBEdit
    Left = 400
    Top = 112
    Width = 57
    Height = 21
    DataField = 'lbxh'
    DataSource = DM.dsDJDA
    TabOrder = 6
  end
  object wwDBLookupCombo6: TwwDBLookupCombo
    Left = 320
    Top = 112
    Width = 65
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'detail_code'#9'10'#9'detail_code'#9'F'
      'caption'#9'30'#9'caption'#9'F'
      'note'#9'20'#9'note'#9'F')
    DataField = 'LB'
    DataSource = DM.dsDJDA
    LookupTable = qryJHLB
    LookupField = 'pysx'
    ImeMode = imDisable
    TabOrder = 5
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = wwDBLookupCombo1NotInList
  end
  object qryWZ: TADOQuery
    Active = True
    AutoCalcFields = False
    Connection = DM.DBCnt
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select detail_code, caption, note '
      'from detail_code'
      'where master_code='#39'WZ'#39)
    Left = 520
  end
  object qryGSMC: TADOQuery
    Active = True
    AutoCalcFields = False
    Connection = DM.DBCnt
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select ywsx, zwm, ywm'
      'from gsmc'
      'order by ywsx')
    Left = 552
  end
  object qryMJ: TADOQuery
    Active = True
    AutoCalcFields = False
    Connection = DM.DBCnt
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select detail_code, caption, note '
      'from detail_code'
      'where master_code='#39'MJ'#39)
    Left = 584
  end
  object qryBGQX: TADOQuery
    Active = True
    AutoCalcFields = False
    Connection = DM.DBCnt
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select detail_code, caption, note '
      'from detail_code'
      'where master_code='#39'BGQX'#39)
    Left = 616
  end
  object qryJHLB: TADOQuery
    Active = True
    AutoCalcFields = False
    Connection = DM.DBCnt
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select pysx, jhlbm'
      'from jhlb'
      'order by pysx')
    Left = 552
    Top = 32
  end
end