cwtda_form.dfm

地址档案管理系统

object FormCWTDA_: TFormCWTDA_
  Left = 5
  Top = 135
  Width = 800
  Height = 534
  Caption = #27979#20301#22270
  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 Label7: TLabel
    Left = 56
    Top = 208
    Width = 41
    Height = 13
    AutoSize = False
    Caption = #25991#31181
  end
  object Label16: TLabel
    Left = 576
    Top = 208
    Width = 37
    Height = 13
    AutoSize = False
    Caption = #32534#32773
  end
  object Label1: TLabel
    Left = 56
    Top = 96
    Width = 36
    Height = 13
    Caption = #26723#26696#21495
    FocusControl = DBEdit1
  end
  object Label2: TLabel
    Left = 288
    Top = 96
    Width = 36
    Height = 13
    Caption = #21306#22359#21495
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 440
    Top = 96
    Width = 24
    Height = 13
    Caption = #31867#21495
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 56
    Top = 152
    Width = 48
    Height = 13
    Caption = #20013#25991#26631#39064
    FocusControl = DBEdit4
  end
  object Label5: TLabel
    Left = 376
    Top = 152
    Width = 48
    Height = 13
    Caption = #33521#25991#26631#39064
    FocusControl = DBEdit5
  end
  object Label8: TLabel
    Left = 120
    Top = 208
    Width = 24
    Height = 13
    Caption = #22871#25968
    FocusControl = DBEdit7
  end
  object Label9: TLabel
    Left = 272
    Top = 208
    Width = 24
    Height = 13
    Caption = #27604#20363
    FocusControl = DBEdit8
  end
  object Label10: TLabel
    Left = 424
    Top = 208
    Width = 24
    Height = 13
    Caption = #38468#22270
    FocusControl = DBEdit9
  end
  object Label12: TLabel
    Left = 56
    Top = 264
    Width = 48
    Height = 13
    Caption = #32534#21046#26085#26399
    FocusControl = DBEdit11
  end
  object Label13: TLabel
    Left = 160
    Top = 264
    Width = 48
    Height = 13
    Caption = #24402#26723#26085#26399
    FocusControl = DBEdit12
  end
  object Label14: TLabel
    Left = 256
    Top = 264
    Width = 48
    Height = 13
    Caption = #34013#22270#22320#22336
    FocusControl = DBEdit13
  end
  object Label15: TLabel
    Left = 408
    Top = 264
    Width = 48
    Height = 13
    Caption = #24213#22270#26723#21495
    FocusControl = DBEdit14
  end
  object Label17: TLabel
    Left = 528
    Top = 264
    Width = 48
    Height = 13
    Caption = #24213#22270#22320#22336
    FocusControl = DBEdit15
  end
  object Label18: TLabel
    Left = 56
    Top = 320
    Width = 24
    Height = 13
    Caption = #38468#27880
    FocusControl = DBEdit16
  end
  object tDbNav971: tDbNav97
    Left = 704
    Top = 40
    Width = 73
    Height = 338
    DataSource = DM.dsZHCG
    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.dsZHCG
    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 wwDBLookupCombo1: TwwDBLookupCombo
    Left = 56
    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.dsZHCG
    LookupTable = qryWZ
    LookupField = 'detail_code'
    ImeMode = imDisable
    TabOrder = 2
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = wwDBLookupCombo1NotInList
  end
  object wwDBLookupCombo3: TwwDBLookupCombo
    Left = 576
    Top = 224
    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.dsZHCG
    LookupTable = qryGSMC
    LookupField = 'ywsx'
    ImeMode = imDisable
    TabOrder = 3
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnNotInList = wwDBLookupCombo1NotInList
  end
  object DBEdit1: TDBEdit
    Left = 56
    Top = 112
    Width = 212
    Height = 21
    DataField = 'dah'
    DataSource = DM.dsZHCG
    Enabled = False
    TabOrder = 4
  end
  object DBEdit2: TDBEdit
    Left = 288
    Top = 112
    Width = 134
    Height = 21
    DataField = 'QKH'
    DataSource = DM.dsZHCG
    TabOrder = 5
  end
  object DBEdit3: TDBEdit
    Left = 440
    Top = 112
    Width = 69
    Height = 21
    DataField = 'LH'
    DataSource = DM.dsZHCG
    TabOrder = 6
  end
  object DBEdit4: TDBEdit
    Left = 56
    Top = 168
    Width = 300
    Height = 21
    DataField = 'zwbt'
    DataSource = DM.dsZHCG
    TabOrder = 7
  end
  object DBEdit5: TDBEdit
    Left = 376
    Top = 168
    Width = 300
    Height = 21
    DataField = 'ywbt'
    DataSource = DM.dsZHCG
    TabOrder = 8
  end
  object DBEdit7: TDBEdit
    Left = 120
    Top = 224
    Width = 134
    Height = 21
    DataField = 'TS'
    DataSource = DM.dsZHCG
    TabOrder = 9
  end
  object DBEdit8: TDBEdit
    Left = 272
    Top = 224
    Width = 134
    Height = 21
    DataField = 'BL'
    DataSource = DM.dsZHCG
    TabOrder = 10
  end
  object DBEdit9: TDBEdit
    Left = 424
    Top = 224
    Width = 134
    Height = 21
    DataField = 'FT'
    DataSource = DM.dsZHCG
    TabOrder = 11
  end
  object DBEdit11: TDBEdit
    Left = 56
    Top = 280
    Width = 81
    Height = 21
    DataField = 'bzrq'
    DataSource = DM.dsZHCG
    TabOrder = 12
  end
  object DBEdit12: TDBEdit
    Left = 160
    Top = 280
    Width = 81
    Height = 21
    DataField = 'gdrq'
    DataSource = DM.dsZHCG
    TabOrder = 13
  end
  object DBEdit13: TDBEdit
    Left = 256
    Top = 280
    Width = 129
    Height = 21
    DataField = 'ltdz'
    DataSource = DM.dsZHCG
    TabOrder = 14
  end
  object DBEdit14: TDBEdit
    Left = 408
    Top = 280
    Width = 108
    Height = 21
    DataField = 'dtdh'
    DataSource = DM.dsZHCG
    TabOrder = 15
  end
  object DBEdit15: TDBEdit
    Left = 528
    Top = 280
    Width = 129
    Height = 21
    DataField = 'dtdz'
    DataSource = DM.dsZHCG
    TabOrder = 16
  end
  object DBEdit16: TDBEdit
    Left = 56
    Top = 336
    Width = 394
    Height = 21
    DataField = 'FZ'
    DataSource = DM.dsZHCG
    TabOrder = 17
  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
end