dzcsdaform.dfm

地址档案管理系统

object FormDZCSDA: TFormDZCSDA
  Tag = 4
  Left = 60
  Top = 156
  Width = 800
  Height = 534
  Caption = #22320#38663#27979#32447#26723#26696
  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 = 16
    Top = 184
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #25991#31181
  end
  object Label12: TLabel
    Left = 80
    Top = 184
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #32534#32773
  end
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 49
    Height = 13
    AutoSize = False
    Caption = #26723#26696#21495
    FocusControl = DBEdit1
  end
  object Label2: TLabel
    Left = 16
    Top = 72
    Width = 41
    Height = 13
    AutoSize = False
    Caption = #21306#22359#21495
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 168
    Top = 72
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #22788#29702#26041#27861
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 240
    Top = 72
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #27979#32447#24207#21495
    FocusControl = DBEdit4
  end
  object Label5: TLabel
    Left = 344
    Top = 72
    Width = 24
    Height = 13
    AutoSize = False
    Caption = #32447#21495
    FocusControl = DBEdit5
  end
  object Label6: TLabel
    Left = 432
    Top = 72
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #36215#22987#28846#21495
    FocusControl = DBEdit6
  end
  object Label8: TLabel
    Left = 544
    Top = 72
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #32456#27490#28846#21495
    FocusControl = DBEdit7
  end
  object Label9: TLabel
    Left = 16
    Top = 128
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #20013#25991#26631#39064
    FocusControl = DBEdit8
  end
  object Label10: TLabel
    Left = 336
    Top = 128
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #33521#25991#26631#39064
    FocusControl = DBEdit9
  end
  object Label13: TLabel
    Left = 384
    Top = 184
    Width = 24
    Height = 13
    Caption = #38468#22270
    FocusControl = DBEdit11
  end
  object Label15: TLabel
    Left = 176
    Top = 184
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #32534#21046#26085#26399
    FocusControl = DBEdit13
  end
  object Label16: TLabel
    Left = 280
    Top = 184
    Width = 73
    Height = 13
    AutoSize = False
    Caption = #24402#26723#26085#26399
    FocusControl = DBEdit14
  end
  object Label17: TLabel
    Left = 536
    Top = 184
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #20848#22270#22320#22336
    FocusControl = DBEdit15
  end
  object Label18: TLabel
    Left = 168
    Top = 240
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #24213#22270#26723#21495
    FocusControl = DBEdit16
  end
  object Label19: TLabel
    Left = 16
    Top = 240
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #24213#22270#22320#22336
    FocusControl = DBEdit17
  end
  object Label20: TLabel
    Left = 16
    Top = 304
    Width = 24
    Height = 13
    Caption = #38468#27880
    FocusControl = DBEdit18
  end
  object tDbNav971: tDbNav97
    Left = 704
    Top = 24
    Width = 73
    Height = 338
    DataSource = DM.dsDZCSDA_A
    Ctl3D = True
    ParentCtl3D = False
    CaptionStyle = blBitmapTop
    Style = btCaption
    TabOrder = 0
  end
  object wwDBNavigator1: TwwDBNavigator
    Left = 704
    Top = 363
    Width = 73
    Height = 49
    AutosizeStyle = asSizeNavButtons
    DataSource = DM.dsDZCSDA_A
    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 = 16
    Top = 200
    Width = 49
    Height = 21
    AutoSize = False
    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.dsDZCSDA_A
    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 = 80
    Top = 200
    Width = 81
    Height = 21
    AutoSize = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'ywsx'#9'15'#9'ywsx'#9'F'#9
      'zwm'#9'50'#9'zwm'#9'F'#9
      'ywm'#9'100'#9'ywm'#9'F'#9)
    DataField = 'BZ'
    DataSource = DM.dsDZCSDA_A
    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 = 16
    Top = 32
    Width = 209
    Height = 21
    AutoSize = False
    DataField = 'dah'
    DataSource = DM.dsDZCSDA_A
    Enabled = False
    TabOrder = 4
  end
  object DBEdit2: TDBEdit
    Left = 16
    Top = 88
    Width = 134
    Height = 21
    AutoSize = False
    DataField = 'QKH'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 5
  end
  object DBEdit3: TDBEdit
    Left = 168
    Top = 88
    Width = 57
    Height = 21
    AutoSize = False
    DataField = 'CLFF'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 6
  end
  object DBEdit4: TDBEdit
    Left = 240
    Top = 88
    Width = 89
    Height = 21
    AutoSize = False
    DataField = 'CXXH'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 7
  end
  object DBEdit5: TDBEdit
    Left = 344
    Top = 88
    Width = 73
    Height = 21
    AutoSize = False
    DataField = 'XH'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 8
  end
  object DBEdit6: TDBEdit
    Left = 432
    Top = 88
    Width = 95
    Height = 21
    AutoSize = False
    DataField = 'PAO1'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 9
  end
  object DBEdit7: TDBEdit
    Left = 544
    Top = 88
    Width = 95
    Height = 21
    AutoSize = False
    DataField = 'PAO2'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 10
  end
  object DBEdit8: TDBEdit
    Left = 16
    Top = 144
    Width = 300
    Height = 21
    AutoSize = False
    DataField = 'zwbt'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 11
  end
  object DBEdit9: TDBEdit
    Left = 336
    Top = 144
    Width = 300
    Height = 21
    AutoSize = False
    DataField = 'ywbt'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 12
  end
  object DBEdit11: TDBEdit
    Left = 384
    Top = 200
    Width = 134
    Height = 21
    AutoSize = False
    DataField = 'FT'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 13
  end
  object DBEdit13: TDBEdit
    Left = 176
    Top = 200
    Width = 89
    Height = 21
    AutoSize = False
    DataField = 'bzrq'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 14
  end
  object DBEdit14: TDBEdit
    Left = 280
    Top = 200
    Width = 89
    Height = 21
    AutoSize = False
    DataField = 'gdrq'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 15
  end
  object DBEdit15: TDBEdit
    Left = 536
    Top = 200
    Width = 134
    Height = 21
    AutoSize = False
    DataField = 'ltdz'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 16
  end
  object DBEdit16: TDBEdit
    Left = 168
    Top = 256
    Width = 147
    Height = 21
    AutoSize = False
    DataField = 'dtdh'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 17
  end
  object DBEdit17: TDBEdit
    Left = 16
    Top = 256
    Width = 134
    Height = 21
    AutoSize = False
    DataField = 'dtdz'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 18
  end
  object DBEdit18: TDBEdit
    Left = 16
    Top = 320
    Width = 337
    Height = 21
    AutoSize = False
    DataField = 'FZ'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 19
  end
  object DBGrid1: TDBGrid
    Left = 416
    Top = 264
    Width = 225
    Height = 153
    DataSource = DM.dsDZCSDA_B
    TabOrder = 20
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'gdrq'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FT'
        Visible = True
      end>
  end
  object DBEdit10: TDBEdit
    Left = 72
    Top = 224
    Width = 121
    Height = 21
    DataField = 'BZ'
    DataSource = DM.dsDZCSDA_A
    TabOrder = 21
  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 = 536
  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 = 568
  end
end