zhcg_form.dfm

地址档案管理系统

object FormZHCG_: TFormZHCG_
  Left = 24
  Top = 143
  Width = 800
  Height = 534
  Caption = #32508#21512#25104#26524
  Color = clBtnFace
  Constraints.MaxHeight = 534
  Constraints.MaxWidth = 800
  Constraints.MinHeight = 436
  Constraints.MinWidth = 657
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 56
    Top = 64
    Width = 42
    Height = 13
    AutoSize = False
    Caption = #26723#26696#21495
    FocusControl = DBEdit1
  end
  object Label2: TLabel
    Left = 224
    Top = 64
    Width = 42
    Height = 13
    AutoSize = False
    Caption = #21306#22359#21495
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 376
    Top = 64
    Width = 56
    Height = 13
    AutoSize = False
    Caption = #20013#25991#26631#39064
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 56
    Top = 120
    Width = 56
    Height = 13
    AutoSize = False
    Caption = #33521#25991#26631#39064
    FocusControl = DBEdit4
  end
  object Label5: TLabel
    Left = 368
    Top = 120
    Width = 28
    Height = 13
    AutoSize = False
    Caption = #25991#31181
  end
  object Label6: TLabel
    Left = 472
    Top = 120
    Width = 28
    Height = 13
    AutoSize = False
    Caption = #22871#25968
    FocusControl = DBEdit6
  end
  object Label8: TLabel
    Left = 584
    Top = 120
    Width = 28
    Height = 13
    AutoSize = False
    Caption = #25253#21578
    FocusControl = DBEdit7
  end
  object Label9: TLabel
    Left = 56
    Top = 176
    Width = 28
    Height = 13
    AutoSize = False
    Caption = #38468#20214
    FocusControl = DBEdit8
  end
  object Label10: TLabel
    Left = 208
    Top = 176
    Width = 28
    Height = 13
    AutoSize = False
    Caption = #38468#22270
    FocusControl = DBEdit9
  end
  object Label11: TLabel
    Left = 360
    Top = 176
    Width = 28
    Height = 13
    AutoSize = False
    Caption = #27604#20363
    FocusControl = DBEdit10
  end
  object Label12: TLabel
    Left = 512
    Top = 176
    Width = 28
    Height = 13
    AutoSize = False
    Caption = #38468#34920
    FocusControl = DBEdit11
  end
  object Label13: TLabel
    Left = 56
    Top = 232
    Width = 28
    Height = 13
    AutoSize = False
    Caption = #38598#20876
    FocusControl = DBEdit12
  end
  object Label14: TLabel
    Left = 208
    Top = 232
    Width = 42
    Height = 13
    AutoSize = False
    Caption = #36131#20219#32773
  end
  object Label15: TLabel
    Left = 360
    Top = 232
    Width = 28
    Height = 13
    AutoSize = False
    Caption = #32534#32773
  end
  object Label16: TLabel
    Left = 512
    Top = 232
    Width = 56
    Height = 13
    AutoSize = False
    Caption = #32534#21046#26085#26399
    FocusControl = DBEdit15
  end
  object Label17: TLabel
    Left = 56
    Top = 288
    Width = 56
    Height = 13
    AutoSize = False
    Caption = #24402#26723#26085#26399
    FocusControl = DBEdit16
  end
  object Label18: TLabel
    Left = 208
    Top = 288
    Width = 28
    Height = 13
    AutoSize = False
    Caption = #23494#32423
  end
  object Label19: TLabel
    Left = 280
    Top = 288
    Width = 56
    Height = 13
    AutoSize = False
    Caption = #25253#31649#26399#38480
  end
  object Label20: TLabel
    Left = 352
    Top = 288
    Width = 56
    Height = 13
    AutoSize = False
    Caption = #34013#22270#22320#22336
    FocusControl = DBEdit19
  end
  object Label21: TLabel
    Left = 504
    Top = 288
    Width = 56
    Height = 13
    AutoSize = False
    Caption = #24213#22270#26723#21495
    FocusControl = DBEdit20
  end
  object Label22: TLabel
    Left = 56
    Top = 344
    Width = 56
    Height = 13
    AutoSize = False
    Caption = #24213#22270#22320#22336
    FocusControl = DBEdit21
  end
  object Label23: TLabel
    Left = 208
    Top = 344
    Width = 28
    Height = 13
    AutoSize = False
    Caption = #38468#27880
    FocusControl = DBEdit22
  end
  object tDbNav971: tDbNav97
    Left = 704
    Top = 40
    Width = 73
    Height = 338
    DataSource = DM.dsCWTDA
    Ctl3D = True
    ParentCtl3D = False
    CaptionStyle = blBitmapTop
    Style = btCaption
    TabOrder = 0
  end
  object wwDBNavigator1: TwwDBNavigator
    Left = 704
    Top = 378
    Width = 73
    Height = 49
    AutosizeStyle = asSizeNavButtons
    DataSource = DM.dsCWTDA
    Layout = nlVertical
    RepeatInterval.InitialDelay = 500
    RepeatInterval.Interval = 100
    object wwDBNavigator1FilterDialog: TwwNavButton
      Left = 0
      Top = 0
      Width = 73
      Height = 25
      Hint = 'Filter the dataset'
      ImageIndex = 0
      NumGlyphs = 0
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = #31579#36873#35760#24405
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 0
      Style = nbsFilterDialog
    end
    object wwDBNavigator1LocateDialog: TwwNavButton
      Left = 0
      Top = 25
      Width = 73
      Height = 24
      Hint = 'Locate a specific record'
      ImageIndex = 0
      NumGlyphs = 2
      ShowText = True
      Spacing = 4
      Transparent = False
      Caption = #26597#25214#35760#24405
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 1
      Style = nbsLocateDialog
    end
  end
  object DBEdit1: TDBEdit
    Left = 56
    Top = 80
    Width = 147
    Height = 21
    DataField = 'DAH'
    DataSource = DM.dsCWTDA
    TabOrder = 2
  end
  object DBEdit2: TDBEdit
    Left = 224
    Top = 80
    Width = 134
    Height = 21
    DataField = 'QKH'
    DataSource = DM.dsCWTDA
    TabOrder = 3
  end
  object DBEdit3: TDBEdit
    Left = 376
    Top = 80
    Width = 289
    Height = 21
    DataField = 'zwbt'
    DataSource = DM.dsCWTDA
    TabOrder = 4
  end
  object DBEdit4: TDBEdit
    Left = 56
    Top = 136
    Width = 289
    Height = 21
    DataField = 'ywbt'
    DataSource = DM.dsCWTDA
    TabOrder = 5
  end
  object DBEdit6: TDBEdit
    Left = 472
    Top = 136
    Width = 89
    Height = 21
    DataField = 'TS'
    DataSource = DM.dsCWTDA
    TabOrder = 7
  end
  object DBEdit7: TDBEdit
    Left = 584
    Top = 136
    Width = 89
    Height = 21
    DataField = 'BG'
    DataSource = DM.dsCWTDA
    TabOrder = 8
  end
  object DBEdit8: TDBEdit
    Left = 56
    Top = 192
    Width = 134
    Height = 21
    DataField = 'FJ'
    DataSource = DM.dsCWTDA
    TabOrder = 9
  end
  object DBEdit9: TDBEdit
    Left = 208
    Top = 192
    Width = 134
    Height = 21
    DataField = 'FT'
    DataSource = DM.dsCWTDA
    TabOrder = 10
  end
  object DBEdit10: TDBEdit
    Left = 360
    Top = 192
    Width = 134
    Height = 21
    DataField = 'BL'
    DataSource = DM.dsCWTDA
    TabOrder = 11
  end
  object DBEdit11: TDBEdit
    Left = 512
    Top = 192
    Width = 134
    Height = 21
    DataField = 'FB'
    DataSource = DM.dsCWTDA
    TabOrder = 12
  end
  object DBEdit12: TDBEdit
    Left = 56
    Top = 248
    Width = 134
    Height = 21
    DataField = 'JC'
    DataSource = DM.dsCWTDA
    TabOrder = 13
  end
  object DBEdit15: TDBEdit
    Left = 512
    Top = 248
    Width = 137
    Height = 21
    DataField = 'bzrq'
    DataSource = DM.dsCWTDA
    TabOrder = 16
  end
  object DBEdit16: TDBEdit
    Left = 56
    Top = 304
    Width = 137
    Height = 21
    DataField = 'gdrq'
    DataSource = DM.dsCWTDA
    TabOrder = 17
  end
  object DBEdit19: TDBEdit
    Left = 352
    Top = 304
    Width = 134
    Height = 21
    DataField = 'ltdz'
    DataSource = DM.dsCWTDA
    TabOrder = 20
  end
  object DBEdit20: TDBEdit
    Left = 504
    Top = 304
    Width = 147
    Height = 21
    DataField = 'dtdh'
    DataSource = DM.dsCWTDA
    TabOrder = 21
  end
  object DBEdit21: TDBEdit
    Left = 56
    Top = 360
    Width = 134
    Height = 21
    DataField = 'dtdz'
    DataSource = DM.dsCWTDA
    TabOrder = 22
  end
  object DBEdit22: TDBEdit
    Left = 208
    Top = 360
    Width = 441
    Height = 21
    DataField = 'fz'
    DataSource = DM.dsCWTDA
    TabOrder = 23
  end
  object wwDBLookupCombo2: TwwDBLookupCombo
    Left = 368
    Top = 136
    Width = 81
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'detail_code'#9'5'#9'detail_code'#9'F'
      'caption'#9'10'#9'caption'#9'F')
    DataField = 'WZ'
    DataSource = DM.dsCWTDA
    LookupTable = qryWZ
    LookupField = 'detail_code'
    ImeMode = imDisable
    TabOrder = 6
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = wwDBLookupCombo1NotInList
  end
  object wwDBLookupCombo1: TwwDBLookupCombo
    Left = 208
    Top = 248
    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.dsCWTDA
    LookupTable = qryGSMC
    LookupField = 'ywsx'
    ImeMode = imDisable
    TabOrder = 14
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = wwDBLookupCombo1NotInList
  end
  object wwDBLookupCombo3: TwwDBLookupCombo
    Left = 360
    Top = 248
    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.dsCWTDA
    LookupTable = qryGSMC
    LookupField = 'ywsx'
    ImeMode = imDisable
    TabOrder = 15
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = wwDBLookupCombo1NotInList
  end
  object wwDBLookupCombo4: TwwDBLookupCombo
    Left = 208
    Top = 304
    Width = 57
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'detail_code'#9'5'#9'detail_code'#9'F'
      'caption'#9'10'#9'caption'#9'F')
    DataField = 'MJ'
    DataSource = DM.dsCWTDA
    LookupTable = qryMJ
    LookupField = 'detail_code'
    ImeMode = imDisable
    TabOrder = 18
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = wwDBLookupCombo1NotInList
  end
  object wwDBLookupCombo5: TwwDBLookupCombo
    Left = 280
    Top = 304
    Width = 57
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'detail_code'#9'5'#9'detail_code'#9'F'
      'caption'#9'10'#9'caption'#9'F')
    DataField = 'BGQX'
    DataSource = DM.dsCWTDA
    LookupTable = qryBGQX
    LookupField = 'detail_code'
    ImeMode = imDisable
    TabOrder = 19
    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 = 512
  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 = 544
  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 = 576
  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 = 608
  end
end