datamodule.dfm

地址档案管理系统

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 41
  Top = 446
  Height = 244
  Width = 861
  object DBCnt: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=gauser;Persist Security Info=True;U' +
      'ser ID=gauser;Initial Catalog=GA4;Data Source=dsvr;Use Procedure' +
      ' for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ' +
      'ID=gauser;Use Encryption for Data=False;Tag with column collatio' +
      'n when possible=False'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 8
  end
  object tblMasterCode: TADOTable
    Connection = DBCnt
    CursorType = ctStatic
    TableName = 'master_code'
    Left = 32
    Top = 96
    object tblMasterCodecode: TWideStringField
      DisplayLabel = #31867#21035#20195#30721
      DisplayWidth = 14
      FieldName = 'code'
    end
    object tblMasterCodecaption: TWideStringField
      DisplayLabel = #25551#36848
      DisplayWidth = 23
      FieldName = 'caption'
      Size = 50
    end
    object tblMasterCodenote: TWideStringField
      DisplayLabel = #27880#37322
      DisplayWidth = 14
      FieldName = 'note'
      Size = 50
    end
  end
  object tblDetailCode: TADOTable
    Connection = DBCnt
    CursorType = ctStatic
    IndexFieldNames = 'master_code'
    MasterFields = 'code'
    MasterSource = dsMasterCode
    TableName = 'detail_code'
    Left = 104
    Top = 96
    object tblDetailCodemaster_code: TWideStringField
      DisplayLabel = #31867#21035#20195#30721
      FieldName = 'master_code'
      Visible = False
    end
    object tblDetailCodedetail_code: TWideStringField
      DisplayLabel = #26126#32454#20195#30721
      DisplayWidth = 16
      FieldName = 'detail_code'
      Size = 50
    end
    object tblDetailCodecaption: TWideStringField
      DisplayLabel = #25551#36848
      DisplayWidth = 15
      FieldName = 'caption'
      Size = 50
    end
    object tblDetailCodenote: TWideStringField
      DisplayLabel = #27880#37322
      DisplayWidth = 12
      FieldName = 'note'
      Size = 50
    end
  end
  object dsMasterCode: TDataSource
    AutoEdit = False
    DataSet = tblMasterCode
    Left = 32
    Top = 152
  end
  object dsDetailCode: TDataSource
    AutoEdit = False
    DataSet = tblDetailCode
    Left = 104
    Top = 152
  end
  object tblGSMC: TADOTable
    Connection = DBCnt
    CursorType = ctStatic
    TableName = 'gsmc'
    Left = 176
    Top = 96
    object tblGSMCzwm: TWideStringField
      DisplayLabel = #20013#25991#21517#31216
      FieldName = 'zwm'
      Size = 50
    end
    object tblGSMCywsx: TWideStringField
      DisplayLabel = #33521#25991#32553#20889
      FieldName = 'ywsx'
      Size = 15
    end
    object tblGSMCywm: TWideStringField
      DisplayLabel = #33521#25991#21517#31216
      FieldName = 'ywm'
      Size = 100
    end
  end
  object dsGSMC: TDataSource
    AutoEdit = False
    DataSet = tblGSMC
    Left = 176
    Top = 152
  end
  object dsJHLB: TDataSource
    AutoEdit = False
    DataSet = tblJHLB
    Left = 248
    Top = 152
  end
  object tblJHLB: TADOTable
    Connection = DBCnt
    CursorType = ctStatic
    TableName = 'jhlb'
    Left = 248
    Top = 96
    object tblJHLBjhlbm: TWideStringField
      DisplayLabel = #20117#21495#31867#21035#21517#31216
      FieldName = 'jhlbm'
      Size = 3
    end
    object tblJHLBpysx: TWideStringField
      DisplayLabel = #25340#38899#32553#20889
      FieldName = 'pysx'
      Size = 3
    end
  end
  object tblCLFF: TADOTable
    Connection = DBCnt
    CursorType = ctStatic
    TableName = 'clff'
    Left = 320
    Top = 96
    object tblCLFFclffsm: TWideStringField
      DisplayLabel = #22788#29702#26041#27861#35828#26126
      FieldName = 'clffsm'
      Size = 28
    end
    object tblCLFFclffbh: TWideStringField
      DisplayLabel = #22788#29702#26041#27861#32534#21495
      FieldName = 'clffbh'
      Size = 2
    end
  end
  object dsCLFF: TDataSource
    AutoEdit = False
    DataSet = tblCLFF
    Left = 320
    Top = 152
  end
  object tblDJDA: TADOTable
    Connection = DBCnt
    CursorType = ctStatic
    TableName = 'v_djda'
    Left = 392
    Top = 96
    object tblDJDADAH: TWideStringField
      DisplayLabel = #26723#26696#21495
      FieldName = 'DAH'
      ReadOnly = True
      Size = 87
    end
    object tblDJDAJH: TWideStringField
      DisplayLabel = #20117#21495
      FieldName = 'JH'
      Size = 14
    end
    object tblDJDALB: TWideStringField
      DisplayLabel = #31867#21035
      FieldName = 'LB'
      Size = 10
    end
    object tblDJDAQKH: TWideStringField
      DisplayLabel = #21306#22359#21495
      FieldName = 'QKH'
      Size = 10
    end
    object tblDJDAlbxh: TWideStringField
      DisplayLabel = #31867#21035#24207#21495
      FieldName = 'lbxh'
      Size = 50
    end
    object tblDJDAzwbt: TWideStringField
      DisplayLabel = #20013#25991#26631#39064
      FieldName = 'zwbt'
      Size = 100
    end
    object tblDJDAywbt: TWideStringField
      DisplayLabel = #33521#25991#26631#39064
      FieldName = 'ywbt'
      Size = 100
    end
    object tblDJDAWZ: TWideStringField
      DisplayLabel = #25991#31181
      FieldName = 'WZ'
      Size = 1
    end
    object tblDJDATS: TSmallintField
      DisplayLabel = #22871#25968
      FieldName = 'TS'
    end
    object tblDJDABG: TSmallintField
      DisplayLabel = #25253#21578
      FieldName = 'BG'
    end
    object tblDJDAFJ: TSmallintField
      DisplayLabel = #38468#20214
      FieldName = 'FJ'
    end
    object tblDJDAFT: TSmallintField
      DisplayLabel = #38468#22270
      FieldName = 'FT'
    end
    object tblDJDABL: TWideStringField
      DisplayLabel = #27604#20363
      FieldName = 'BL'
      Size = 10
    end
    object tblDJDAFB: TSmallintField
      DisplayLabel = #38468#34920
      FieldName = 'FB'
    end
    object tblDJDAJC: TSmallintField
      DisplayLabel = #38598#20876
      FieldName = 'JC'
    end
    object tblDJDAZRZ: TWideStringField
      DisplayLabel = #36131#20219#32773
      FieldName = 'ZRZ'
    end
    object tblDJDABZ: TWideStringField
      DisplayLabel = #32534#32773
      FieldName = 'BZ'
    end
    object tblDJDAbzrq: TDateTimeField
      DisplayLabel = #32534#21046#26085#26399
      FieldName = 'bzrq'
    end
    object tblDJDAgdrq: TDateTimeField
      DisplayLabel = #24402#26723#26085#26399
      FieldName = 'gdrq'
    end
    object tblDJDAMJ: TWideStringField
      DisplayLabel = #23494#32423
      FieldName = 'MJ'
      Size = 2
    end
    object tblDJDABGQX: TWideStringField
      DisplayLabel = #20445#31649#26399#38480
      FieldName = 'BGQX'
      Size = 2
    end
    object tblDJDAjdsx: TFloatField
      DisplayLabel = #20117#27573#19978#38480
      FieldName = 'jdsx'
    end
    object tblDJDAjdxx: TFloatField
      DisplayLabel = #20117#27573#19979#38480
      FieldName = 'jdxx'
    end
    object tblDJDAltdz: TWideStringField
      DisplayLabel = #34013#22270#22320#22336
      FieldName = 'ltdz'
      Size = 10
    end
    object tblDJDAdtdh: TWideStringField
      DisplayLabel = #24213#22270#26723#21495
      FieldName = 'dtdh'
      Size = 7
    end
    object tblDJDAdtdz: TWideStringField
      DisplayLabel = #24213#22270#22320#22336
      FieldName = 'dtdz'
      Size = 10
    end
    object tblDJDAfz: TWideStringField
      DisplayLabel = #38468#27880
      FieldName = 'fz'
      Size = 50
    end
  end
  object dsDJDA: TDataSource
    AutoEdit = False
    DataSet = tblDJDA
    Left = 392
    Top = 152
  end
  object tblCWTDA: TADOTable
    Connection = DBCnt
    CursorType = ctStatic
    TableName = 'v_cwtda'
    Left = 464
    Top = 96
    object tblCWTDAdah: TWideStringField
      DisplayLabel = #26723#26696#21495
      FieldName = 'dah'
      ReadOnly = True
      Size = 16
    end
    object tblCWTDAQKH: TWideStringField
      DisplayLabel = #21306#22359#21495
      FieldName = 'QKH'
      Size = 10
    end
    object tblCWTDALH: TWideStringField
      DisplayLabel = #31867#21495
      FieldName = 'LH'
      Size = 5
    end
    object tblCWTDAzwbt: TWideStringField
      DisplayLabel = #20013#25991#26631#39064
      FieldName = 'zwbt'
      Size = 100
    end
    object tblCWTDAywbt: TWideStringField
      DisplayLabel = #33521#25991#26631#39064
      FieldName = 'ywbt'
      Size = 100
    end
    object tblCWTDAWZ: TWideStringField
      DisplayLabel = #25991#31181
      FieldName = 'WZ'
      Size = 1
    end
    object tblCWTDATS: TSmallintField
      DisplayLabel = #22871#25968
      FieldName = 'TS'
    end
    object tblCWTDABL: TWideStringField
      DisplayLabel = #27604#21015
      FieldName = 'BL'
      Size = 10
    end
    object tblCWTDAFT: TSmallintField